//
// END ARTICLES
//
void EndText (void)
{
int artnum;
char *text;
memptr layout;
ClearMemory ();
CA_UpLevel ();
MM_SortMem ();
#ifdef JAPAN
ShowArticle(gamestate.episode + 1);
VW_FadeOut();
SETFONTCOLOR(0,15);
IN_ClearKeysDown();
if (MousePresent)
Mouse(MDelta); // Clear accumulated mouse movement
FreeMusic ();
CA_DownLevel ();
MM_SortMem ();
#else
#ifdef ARTSEXTERN
artnum = endextern+gamestate.episode;
CA_CacheGrChunk (artnum);
text = (char *)grsegs[artnum];
MM_SetLock (&grsegs[artnum], True);
#else
endfilename[6] = '1'+gamestate.episode;
CA_LoadFile (endfilename,&layout);
text = (char *)layout;
MM_SetLock (&layout, True);
#endif
ShowArticle (text);
#ifdef ARTSEXTERN
MM_FreePtr (&grsegs[artnum]);
#else
MM_FreePtr (&layout);
#endif
VW_FadeOut();
SETFONTCOLOR(0,15);
IN_ClearKeysDown();
//if (MousePresent) // PORT
// Mouse(MDelta); // Clear accumulated mouse movement
//FreeMusic ();
CA_DownLevel ();
MM_SortMem ();
#endif
}
void PlayDemo (int demonumber)
{
int length;
#ifdef DEMOSEXTERN
// debug: load chunk
#ifndef SPEARDEMO
int dems[4]={T_DEMO0,T_DEMO1,T_DEMO2,T_DEMO3};
#else
int dems[1]={T_DEMO0};
#endif
CA_CacheGrChunk(dems[demonumber]);
demoptr = grsegs[dems[demonumber]];
MM_SetLock (&grsegs[dems[demonumber]],true);
#else
demoname[4] = '0'+demonumber;
CA_LoadFile (demoname,&demobuffer);
MM_SetLock (&demobuffer,true);
demoptr = (char far *)demobuffer;
#endif
NewGame (1,0);
gamestate.mapon = *demoptr++;
gamestate.difficulty = gd_hard;
length = *((unsigned far *)demoptr)++;
demoptr++;
lastdemoptr = demoptr-4+length;
VW_FadeOut ();
SETFONTCOLOR(0,15);
DrawPlayScreen ();
VW_FadeIn ();
startgame = false;
demoplayback = true;
SetupGameLevel ();
StartMusic ();
PM_CheckMainMem ();
fizzlein = true;
PlayLoop ();
#ifdef DEMOSEXTERN
UNCACHEGRCHUNK(dems[demonumber]);
#else
MM_FreePtr (&demobuffer);
#endif
demoplayback = false;
StopMusic ();
VW_FadeOut ();
ClearMemory ();
}
void VW_FreeCursor (void)
{
if (cursornumber)
{
MM_SetLock (&grsegs[cursornumber],false);
MM_SetPurge (&grsegs[cursornumber],3);
MM_SetLock (&cursorsave,false);
MM_FreePtr (&cursorsave);
cursornumber = 0;
}
}
void VW_SetCursor (id0_int_t spritenum)
{
VW_FreeCursor ();
cursornumber = spritenum;
CA_CacheGrChunk (spritenum);
MM_SetLock (&grsegs[spritenum],true);
cursorwidth = spritetable[spritenum-STARTSPRITES].width+1;
cursorheight = spritetable[spritenum-STARTSPRITES].height;
MM_GetPtr (&cursorsave,cursorwidth*cursorheight*5);
MM_SetLock (&cursorsave,true);
}
void HelpScreens (void)
{
int artnum;
char *text;
memptr layout;
CA_UpLevel ();
MM_SortMem ();
#ifdef JAPAN
ShowArticle (0);
VW_FadeOut();
FreeMusic ();
CA_DownLevel ();
MM_SortMem ();
#else
#ifdef ARTSEXTERN
artnum = helpextern;
CA_CacheGrChunk (artnum);
text = (char *)grsegs[artnum];
MM_SetLock (&grsegs[artnum], True);
#else
CA_LoadFile (helpfilename,&layout);
text = (char *)layout;
MM_SetLock (&layout, True);
#endif
ShowArticle (text);
#ifdef ARTSEXTERN
MM_FreePtr (&grsegs[artnum]);
#else
MM_FreePtr (&layout);
#endif
VW_FadeOut();
//FreeMusic (); // PORT
CA_DownLevel ();
MM_SortMem ();
#endif
}
void StartDemoRecord (int levelnumber)
{
MM_GetPtr (&demobuffer,MAXDEMOSIZE);
MM_SetLock (&demobuffer,true);
demoptr = (char far *)demobuffer;
lastdemoptr = demoptr+MAXDEMOSIZE;
*demoptr = levelnumber;
demoptr += 4; // leave space for length
demorecord = true;
}
void StopMusic(void)
{
int i;
SD_MusicOff();
for (i = 0;i < LASTMUSIC;i++)
if (audiosegs[STARTMUSIC + i])
{
MM_SetPurge(&((memptr)audiosegs[STARTMUSIC + i]),3);
MM_SetLock(&((memptr)audiosegs[STARTMUSIC + i]),False);
}
}
// Allocate a table 'tabl' of size 'size'
void STR_AllocTable(STR_Table **tabl, size_t size)
{
MM_GetPtr((mm_ptr_t*)(tabl), sizeof(STR_Table) + size*(sizeof(STR_Entry)));
// Lock it in memory so that it doesn't get purged.
MM_SetLock((mm_ptr_t*)(tabl), true);
(*tabl)->size = size;
for (size_t i = 0; i < size; ++i)
{
(*tabl)->arr[i].str = 0;
(*tabl)->arr[i].ptr = 0;
}
}
void StopMusic(void)
{
id0_int_t i;
SD_MusicOff();
for (i = 0;i < LASTMUSIC;i++)
if (audiosegs[STARTMUSIC + i])
{
MM_SetPurge((memptr *)&audiosegs[STARTMUSIC + i],3);
MM_SetLock((memptr *)&audiosegs[STARTMUSIC + i],false);
}
}
// JAB - Cache & start the appropriate music for this level
void StartMusic(void)
{
musicnames chunk;
SD_MusicOff();
chunk = TOOHOT_MUS;
// if ((chunk == -1) || (MusicMode != smm_AdLib))
//DEBUG control panel return;
MM_BombOnError (false);
CA_CacheAudioChunk(STARTMUSIC + chunk);
MM_BombOnError (true);
if (mmerror)
mmerror = false;
else
{
MM_SetLock(&((memptr)audiosegs[STARTMUSIC + chunk]),true);
SD_StartMusic((MusicGroup far *)audiosegs[STARTMUSIC + chunk]);
}
}
static void PML_ClosePageFile()
{
if (PageFile != -1)
CloseRead(PageFile);
if (PMPages) {
int i;
for (i = 0; i < ChunksInFile; i++) {
PageListStruct *page;
page = &PMPages[i];
if (page->addr != NULL) {
MM_FreePtr((memptr)&page->addr);
}
}
MM_SetLock((memptr)&PMPages,false);
MM_FreePtr((memptr)&PMPages);
}
}
void StartMusic(void)
{
musicnames chunk;
SD_MusicOff();
chunk = songs[gamestate.mapon+gamestate.episode*10];
// if ((chunk == -1) || (MusicMode != smm_AdLib))
//DEBUG control panel return;
MM_BombOnError (False);
CA_CacheAudioChunk(STARTMUSIC + chunk);
MM_BombOnError (True);
if (mmerror)
mmerror = False;
else
{
MM_SetLock(&((memptr)audiosegs[STARTMUSIC + chunk]),True);
SD_StartMusic((MusicGroup *)audiosegs[STARTMUSIC + chunk]);
}
}
static void PML_OpenPageFile()
{
int i;
PageListStruct *page;
char fname[13];
strcpy(fname, pfilename);
if (w0 == true || w1 == true || s0 == true || s1 == true){
strcat(fname, extension);
} else {
strcat(fname, extension2);
}
PageFile = OpenRead(fname);
if (PageFile == -1)
Quit("PML_OpenPageFile: Unable to open page file");
/* Read in header variables */
ChunksInFile = ReadInt16(PageFile);
PMSpriteStart = ReadInt16(PageFile);
PMSoundStart = ReadInt16(PageFile);
/* Allocate and clear the page list */
MM_GetPtr((memptr)&PMPages, sizeof(PageListStruct) * ChunksInFile);
MM_SetLock((memptr)&PMPages, true);
memset(PMPages, 0, sizeof(PageListStruct) * ChunksInFile);
/* Read in the chunk offsets */
for (i = 0, page = PMPages; i < ChunksInFile; i++, page++) {
page->offset = ReadInt32(PageFile);
}
/* Read in the chunk lengths */
for (i = 0, page = PMPages; i < ChunksInFile; i++, page++) {
page->length = ReadInt16(PageFile);
}
}
void InitGame (void)
{
//id0_unsigned_t segstart,seglength;
id0_int_t i,x,y;
id0_unsigned_t *blockstart;
if (refkeen_current_gamever == BE_GAMEVER_CAT3D100)
{
US_TextScreen();
}
MM_Startup ();
VW_Startup ();
#ifndef PROFILE
IN_Startup ();
SD_Startup ();
#endif
US_Startup ();
if (refkeen_current_gamever == BE_GAMEVER_CAT3D100)
{
US_UpdateTextScreen();
}
CA_Startup ();
US_Setup ();
US_SetLoadSaveHooks(LoadTheGame,SaveTheGame,ResetGame);
//
// load in and lock down some basic chunks
//
CA_ClearMarks ();
CA_MarkGrChunk(STARTFONT);
CA_MarkGrChunk(STARTTILE8);
CA_MarkGrChunk(STARTTILE8M);
CA_MarkGrChunk(HAND1PICM);
CA_MarkGrChunk(HAND2PICM);
CA_MarkGrChunk(ENTERPLAQUEPIC);
CA_CacheMarks (NULL);
MM_SetLock (&grsegs[STARTFONT],true);
MM_SetLock (&grsegs[STARTTILE8],true);
MM_SetLock (&grsegs[STARTTILE8M],true);
MM_SetLock (&grsegs[HAND1PICM],true);
MM_SetLock (&grsegs[HAND2PICM],true);
MM_SetLock (&grsegs[ENTERPLAQUEPIC],true);
fontcolor = WHITE;
//
// build some tables
//
for (i=0;i<MAPSIZE;i++)
nearmapylookup[i] = &tilemap[0][0]+MAPSIZE*i;
for (i=0;i<PORTTILESHIGH;i++)
uwidthtable[i] = UPDATEWIDE*i;
blockstart = &blockstarts[0];
for (y=0;y<UPDATEHIGH;y++)
for (x=0;x<UPDATEWIDE;x++)
*blockstart++ = SCREENWIDTH*16*y+x*TILEWIDTH;
BuildTables (); // 3-d tables
SetupScaling ();
#ifndef PROFILE
if (refkeen_current_gamever == BE_GAMEVER_CAT3D100)
{
US_FinishTextScreen();
}
#endif
//
// reclaim the memory from the linked in text screen
//
// REFKEEN DIFFERENCE (FIXME: Should we "fix" this at all?)
// - Don't handle this, a bit more complicated with our setup and the
// difference is (probably) insignificant with well-defined behaviors
// anyway...
#if 0
segstart = FP_SEG(&introscn);
seglength = 4000/16;
if (FP_OFF(&introscn))
{
segstart++;
seglength--;
}
MML_UseSpace (segstart,seglength);
#endif
VW_SetScreenMode (GRMODE);
VW_ColorBorder (3);
VW_ClearVideo (BLACK);
//
// initialize variables
//
updateptr = &update[0];
// REFKEEN - Safe unaligned accesses
*(updateptr + UPDATEWIDE*PORTTILESHIGH) = 1;
*(updateptr + UPDATEWIDE*PORTTILESHIGH + 1) = 3;
//*(id0_unsigned_t *)(updateptr + UPDATEWIDE*PORTTILESHIGH) = UPDATETERMINATE;
bufferofs = 0;
displayofs = 0;
VW_SetLineWidth(SCREENWIDTH);
}
static void CAL_SetupMapFile()
{
int i;
int handle;
long pos;
char fname[13];
strcpy(fname, mheadname);
if (w0 == true || w1 == true || s0 == true || s1 == true){
strcat(fname, extension);
}else{
strcat(fname, extension2);
}
handle = OpenRead(fname);
if (handle == -1)
CA_CannotOpen(fname);
RLEWtag = ReadInt16(handle);
/* open the data file */
strcpy(fname, gmapsname);
if (w0 == true || w1 == true || s0 == true || s1 == true){
strcat(fname, extension);
}else{
strcat(fname, extension2);
}
maphandle = OpenRead(fname);
if (maphandle == -1)
CA_CannotOpen(fname);
/* load all map header */
for (i = 0; i < NUMMAPS; i++)
{
pos = ReadInt32(handle);
if (pos == 0) {
mapheaderseg[i] = NULL;
continue;
}
MM_GetPtr((memptr)&mapheaderseg[i], sizeof(maptype));
MM_SetLock((memptr)&mapheaderseg[i], true);
ReadSeek(maphandle, pos, SEEK_SET);
mapheaderseg[i]->planestart[0] = ReadInt32(maphandle);
mapheaderseg[i]->planestart[1] = ReadInt32(maphandle);
mapheaderseg[i]->planestart[2] = ReadInt32(maphandle);
mapheaderseg[i]->planelength[0] = ReadInt16(maphandle);
mapheaderseg[i]->planelength[1] = ReadInt16(maphandle);
mapheaderseg[i]->planelength[2] = ReadInt16(maphandle);
mapheaderseg[i]->width = ReadInt16(maphandle);
mapheaderseg[i]->height = ReadInt16(maphandle);
ReadBytes(maphandle, (byte *)mapheaderseg[i]->name, 16);
}
CloseRead(handle);
/* allocate space for 2 64*64 planes */
for (i = 0;i < MAPPLANES; i++) {
MM_GetPtr((memptr)&mapsegs[i], 64*64*2);
MM_SetLock((memptr)&mapsegs[i], true);
}
}
void CK_InitGame()
{
// Can't do much without memory!
MM_Startup();
//TODO: Get filenames/etc from config/episode
// Load the core datafiles
CA_Startup();
// Setup saved games handling
US_Setup();
// Set a few Menu Callbacks
// TODO: Finish this!
US_SetMenuFunctionPointers(&CK_LoadGame, &CK_SaveGame, &CK_ExitMenu);
// Set ID engine Callbacks
ca_beginCacheBox = CK_BeginCacheBox;
ca_updateCacheBox = CK_UpdateCacheBox;
ca_finishCacheBox = CK_FinishCacheBox;
// Mark some chunks we'll need.
CA_ClearMarks();
CA_MarkGrChunk(FON_MAINFONT);
CA_MarkGrChunk(ca_gfxInfoE.offTiles8);
CA_MarkGrChunk(ca_gfxInfoE.offTiles8m);
CA_MarkGrChunk(MPIC_STATUSLEFT);
CA_MarkGrChunk(MPIC_STATUSRIGHT);
CA_MarkGrChunk(PIC_TITLESCREEN); // Moved from CA_Startup
CA_CacheMarks(0);
// Lock them chunks in memory.
CA_LockGrChunk(FON_MAINFONT);
MM_SetLock(&ca_graphChunks[ca_gfxInfoE.offTiles8], true);
MM_SetLock(&ca_graphChunks[ca_gfxInfoE.offTiles8m], true);
MM_SetLock(&ca_graphChunks[MPIC_STATUSLEFT], true);
MM_SetLock(&ca_graphChunks[MPIC_STATUSRIGHT], true);
// Compile the actions
CK_ACT_SetupFunctions();
CK_KeenSetupFunctions();
CK_OBJ_SetupFunctions();
CK_Map_SetupFunctions();
CK_Misc_SetupFunctions();
ck_currentEpisode->setupFunctions();
CK_ACT_LoadActions("ACTION.EXT");
// Setup the screen
VL_InitScreen();
// TODO: Palette initialization should be done in the terminator code
VL_SetDefaultPalette();
// Setup input
IN_Startup();
// Setup audio
SD_Startup();
US_Startup();
// Wolf loads fonts here, but we do it in CA_Startup()?
RF_Startup();
VL_ColorBorder(3);
VL_ClearScreen(0);
VL_Present();
// Create a surface for the dropdown menu
ck_statusSurface = VL_CreateSurface(STATUS_W+64, STATUS_H+16);
}
void InitGame()
{
MM_Startup();
id0_int_t i;
/*#if 0
// Handle piracy screen...
//
movedata(FP_SEG(PIRACY),(id0_unsigned_t)PIRACY,0xb800,displayofs,4000);
while (BE_ST_BiosScanCode(0) != sc_Return);
//while ((bioskey(0)>>8) != sc_Return);
#endif*/
#if GRMODE == EGAGR
if (mminfo.mainmem < 335l*1024)
{
//#pragma warn -pro
//#pragma warn -nod
#ifdef REFKEEN_VER_KDREAMS_CGA_ALL
BE_ST_textcolor(7);
#endif
#ifndef REFKEEN_VER_KDREAMS_CGA_ALL
if (refkeen_current_gamever == BE_GAMEVER_KDREAMSE113)
#endif
{
BE_ST_textbackground(0);
}
//#pragma warn +nod
//#pragma warn +pro
BE_ST_clrscr(); // we can't include CONIO because of a name conflict
//#pragma warn +nod
//#pragma warn +pro
BE_ST_puts ("There is not enough memory available to play the game reliably. You can");
BE_ST_puts ("play anyway, but an out of memory condition will eventually pop up. The");
BE_ST_puts ("correct solution is to unload some TSRs or rename your CONFIG.SYS and");
BE_ST_puts ("AUTOEXEC.BAT to free up more memory.\n");
BE_ST_puts ("Do you want to (Q)uit, or (C)ontinue?");
//i = bioskey (0);
//if ( (i>>8) != sc_C)
i = BE_ST_BiosScanCode (0);
if (i != sc_C)
Quit ("");
}
#endif
US_TextScreen();
VW_Startup ();
RF_Startup ();
IN_Startup ();
SD_Startup ();
US_Startup ();
#ifdef REFKEEN_VER_KDREAMS_CGA_ALL
US_UpdateTextScreen();
#endif
CA_Startup ();
US_Setup ();
//
// load in and lock down some basic chunks
//
CA_ClearMarks ();
CA_MarkGrChunk(STARTFONT);
CA_MarkGrChunk(STARTFONTM);
CA_MarkGrChunk(STARTTILE8);
CA_MarkGrChunk(STARTTILE8M);
for ( id0_int_t j=KEEN_LUMP_START ; j<=KEEN_LUMP_END ; j++)
{
CA_MarkGrChunk(j);
}
#ifdef REFKEEN_VER_KDREAMS_CGA_ALL
CA_CacheMarks (NULL);
#elif defined REFKEEN_VER_KDREAMS_ANYEGA_ALL
CA_CacheMarks (NULL, 0);
#endif
MM_SetLock (&grsegs[STARTFONT],true);
MM_SetLock (&grsegs[STARTFONTM],true);
MM_SetLock (&grsegs[STARTTILE8],true);
MM_SetLock (&grsegs[STARTTILE8M],true);
for ( id0_int_t j=KEEN_LUMP_START ; j<=KEEN_LUMP_END ; j++)
{
MM_SetLock (&grsegs[j],true);
}
setupAudio();
fontcolor = WHITE;
RefKeen_FillObjStatesWithDOSPointers(); // Saved games compatibility
US_FinishTextScreen();
}
void InitGame (void)
{
//id0_unsigned_t segstart,seglength;
id0_int_t i,x,y;
id0_unsigned_t *blockstart;
// US_TextScreen();
MM_Startup ();
VW_Startup ();
#ifndef PROFILE
IN_Startup ();
SD_Startup ();
#endif
US_Startup ();
CA_Startup ();
US_Setup ();
US_SetLoadSaveHooks(LoadTheGame,SaveTheGame,ResetGame);
//
// load in and lock down some basic chunks
//
CA_ClearMarks ();
CA_MarkGrChunk(STARTFONT);
CA_MarkGrChunk(STARTTILE8);
CA_MarkGrChunk(STARTTILE8M);
CA_MarkGrChunk(HAND1PICM);
CA_MarkGrChunk(NORTHICONSPR);
CA_CacheMarks (NULL);
MM_SetLock (&grsegs[STARTFONT],true);
MM_SetLock (&grsegs[STARTTILE8],true);
MM_SetLock (&grsegs[STARTTILE8M],true);
MM_SetLock (&grsegs[HAND1PICM],true);
fontcolor = WHITE;
//
// build some tables
//
for (i=0;i<MAPSIZE;i++)
nearmapylookup[i] = &tilemap[0][0]+MAPSIZE*i;
for (i=0;i<PORTTILESHIGH;i++)
uwidthtable[i] = UPDATEWIDE*i;
blockstart = &blockstarts[0];
for (y=0;y<UPDATEHIGH;y++)
for (x=0;x<UPDATEWIDE;x++)
*blockstart++ = SCREENWIDTH*16*y+x*TILEWIDTH;
BuildTables (); // 3-d tables
SetupScaling ();
#ifndef PROFILE
// US_FinishTextScreen();
#endif
#if 0
//
// reclaim the memory from the linked in text screen
//
segstart = FP_SEG(&introscn);
seglength = 4000/16;
if (FP_OFF(&introscn))
{
segstart++;
seglength--;
}
MML_UseSpace (segstart,seglength);
#endif
VW_SetScreenMode (GRMODE);
ge_textmode = false;
// VW_ColorBorder (3);
VW_ClearVideo (BLACK);
//
// initialize variables
//
updateptr = &update[0];
// REFKEEN - Safe unaligned accesses
*(updateptr + UPDATEWIDE*PORTTILESHIGH) = 1;
*(updateptr + UPDATEWIDE*PORTTILESHIGH + 1) = 3;
//*(id0_unsigned_t *)(updateptr + UPDATEWIDE*PORTTILESHIGH) = UPDATETERMINATE;
bufferofs = 0;
displayofs = 0;
VW_SetLineWidth(SCREENWIDTH);
}
