void PicturePause (void)
{
id0_int_t y;
id0_unsigned_t source;
source = displayofs+panadjust;
VW_ColorBorder (15);
VW_SetLineWidth (40);
VW_SetScreen (0,0);
if (source<0x10000l-200*64)
{
//
// copy top line first
//
for (y=0;y<200;y++)
VW_ScreenToScreen (source+y*64,y*40,40,1);
}
else
{
//
// copy bottom line first
//
for (y=199;y>=0;y--)
VW_ScreenToScreen (source+y*64,y*40,40,1);
}
IN_Shutdown ();
VW_WaitVBL(70);
BE_ST_BiosScanCode(0);
VW_WaitVBL(70);
Quit (NULL);
}
//-------------------------------------------------------------------------
// Display320()
//-------------------------------------------------------------------------
void Display320(void)
{
// Can you believe it takes all this just to change to 320 mode!!???!
//
VW_ColorBorder(0);
VW_FadeOut();
VW_SetLineWidth(40);
MoveScreen(0,0);
VW_Bar (0,0,320,200,0);
VW_SetScreenMode(EGA320GR);
VW_SetLineWidth(40);
BlackPalette();
VW_ScreenToScreen(FREESTART-STATUSLEN,0,40,80);
}
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);
}
void MM_SortMem (void)
{
mmblocktype id0_far *scan,id0_far *last,id0_far *next;
id0_unsigned_t start,length,source,dest;
VW_ColorBorder (15);
// (REFKEEN) HACK: Actually show border color
BE_ST_ShortSleep();
if (beforesort)
beforesort();
scan = mmhead;
while (scan)
{
if (scan->attributes & LOCKBIT)
{
//
// block is locked, so try to pile later blocks right after it
//
start = scan->start + scan->length;
}
else
{
if (scan->attributes & PURGEBITS)
{
//
// throw out the purgable block
//
next = scan->next;
FREEBLOCK(scan);
last->next = next;
scan = next;
continue;
}
else
{
//
// push the non purgable block on top of the last moved block
//
if (scan->start != start)
{
length = scan->length;
source = scan->start;
dest = start;
while (length > 0xf00)
{
memmove(EMULATED_SEG_TO_PTR(dest), EMULATED_SEG_TO_PTR(source), 0xf00*16);
//movedata(source,0,dest,0,0xf00*16);
length -= 0xf00;
source += 0xf00;
dest += 0xf00;
}
memmove(EMULATED_SEG_TO_PTR(dest), EMULATED_SEG_TO_PTR(source), length*16);
//movedata(source,0,dest,0,length*16);
scan->start = start;
//*(id0_unsigned_t *)scan->useptr = start;
*(scan->useptr) = EMULATED_SEG_TO_PTR(start);
}
start = scan->start + scan->length;
}
}
last = scan;
scan = scan->next; // go to next block
}
mmrover = mmhead;
if (aftersort)
aftersort();
VW_ColorBorder (0);
}
void ShootActor (objtype *ob, id0_unsigned_t damage)
{
ob->hitpoints -= damage;
if (ob->hitpoints<=0)
{
switch (ob->obclass)
{
case reddemonobj:
ob->state = &s_red_demondie1;
break;
case orcobj:
ob->state = &s_orcdie1;
break;
case trollobj:
ob->state = &s_trolldie1;
break;
case demonobj:
ob->state = &s_demondie1;
break;
case mageobj:
ob->state = &s_magedie1;
break;
case batobj:
ob->state = &s_batdie1;
break;
case grelmobj:
ob->state = &s_greldie1;
break;
case zombieobj:
ob->state = &s_zombie_death1;
break;
case skeletonobj:
ob->state = &s_skel_die1;
break;
case spookobj:
ob->state = &s_spookdie;
break;
case wetobj:
ob->state = &s_wet_die1;
break;
case eyeobj:
ob->state = &s_eye_die1;
break;
case eshotobj:
case mshotobj:
ob->state = &s_bonus_die;
break;
case bonusobj:
case freezeobj:
switch (ob->temp1)
{
case B_POTION:
case B_CHEST:
case B_NUKE:
case B_BOLT:
ob->state = &s_pshot_exp1;
ob->obclass = expobj;
ob->ticcount = ob->state->tictime;
SpawnBigExplosion(ob->x,ob->y,12,(16l<<16L));
bordertime = FLASHTICS<<2;
bcolor = 14;
VW_ColorBorder(14 | 56);
DisplaySMsg("Item destroyed", NULL);
status_flag = S_NONE;
status_delay = 80;
break;
}
break;
}
if (ob->obclass != solidobj)
{
ob->obclass = inertobj;
ob->flags &= ~of_shootable;
actorat[ob->tilex][ob->tiley] = 0;
//actorat[ob->tilex][ob->tiley] = NULL;
}
}
else
{
switch (ob->obclass)
{
case reddemonobj:
ob->state = &s_red_demonouch;
break;
case orcobj:
ob->state = &s_orcouch;
break;
case trollobj:
ob->state = &s_trollouch;
break;
case demonobj:
ob->state = &s_demonouch;
break;
case mageobj:
ob->state = &s_mageouch;
break;
case grelmobj:
ob->state = &s_grelouch;
break;
case zombieobj:
ob->state = &s_zombie_ouch;
break;
case spookobj:
ob->state = &s_spookouch;
break;
case skeletonobj:
ob->state = &s_skel_ouch;
break;
case wetobj:
ob->state = &s_wet_ouch;
break;
case eyeobj:
ob->state = &s_eye_ouch;
break;
}
}
ob->ticcount = ob->state->tictime;
}
id0_int_t DebugKeys (void)
{
id0_boolean_t esc;
id0_int_t level,i;
#if 0
if (Keyboard[sc_A])
{
id0_char_t levelstr[50];
id0_unsigned_t org_tile,org_mapon,msgnum;
id0_boolean_t newmsg=true,newlevel=false;
VW_FixRefreshBuffer ();
CenterWindow (16,3);
US_Print("\n");
US_CPrint("Message Test");
VW_UpdateScreen();
org_mapon = mapon;
msgnum = (org_tile = *(mapsegs[0]+farmapylookup[player->tiley]+player->tilex))-NAMESTART;
while (1)
{
// Get outta' here
//
if (Keyboard[sc_Escape])
{
while (Keyboard[sc_Escape])
{
BE_ST_ShortSleep();
}
break;
}
// Move to previous message
//
if (Keyboard[sc_UpArrow])
{
if (msgnum)
{
msgnum--;
newmsg = true;
}
}
// Move to next message
//
if (Keyboard[sc_DownArrow])
{
if (msgnum < 24)
{
msgnum++;
newmsg = true;
}
}
// Move to previous level
//
if (Keyboard[sc_LeftArrow])
{
if (mapon)
{
MM_SetPurge(&grsegs[LEVEL1TEXT+mapon],3);
mapon--;
newlevel = true;
}
}
// Move to next level
//
if (Keyboard[sc_RightArrow])
{
if (mapon < LASTMAP-2)
{
MM_SetPurge(&grsegs[LEVEL1TEXT+mapon],3);
mapon++;
newlevel = true;
}
}
// Load new level text
//
if (newlevel)
{
CA_CacheGrChunk(LEVEL1TEXT+mapon);
ScanText();
newmsg = true;
newlevel=false;
}
// Display new message text
//
if (newmsg)
{
*(mapsegs[0]+farmapylookup[player->tiley]+player->tilex) = msgnum+NAMESTART;
DrawText(true);
strcpy(levelstr,"Level: ");
itoa(mapon,levelstr+strlen(levelstr),10);
strcat(levelstr," Msg: ");
itoa(msgnum,levelstr+strlen(levelstr),10);
DisplaySMsg(levelstr,NULL);
newmsg = false;
if (Keyboard[sc_UpArrow] || Keyboard[sc_DownArrow] || Keyboard[sc_LeftArrow] || Keyboard[sc_RightArrow])
VW_WaitVBL(6);
}
BE_ST_ShortSleep();
}
// Restore game
//
MM_SetPurge(&grsegs[LEVEL1TEXT+mapon],3);
mapon = org_mapon;
CA_CacheGrChunk(LEVEL1TEXT+mapon);
ScanText();
*(mapsegs[0]+farmapylookup[player->tiley]+player->tilex) = org_tile;
DrawText(true);
status_flag = 0;
}
#endif
if (Keyboard[sc_T])
{
VW_FixRefreshBuffer ();
CenterWindow (16,4);
US_Print("Tics :");
US_PrintUnsigned (tics);
US_Print("\nReal Tics :");
US_PrintUnsigned(realtics);
VW_UpdateScreen();
IN_Ack ();
}
if (Keyboard[sc_V])
{
displayofs = bufferofs = screenloc[screenpage];
CenterWindow (20,5);
US_CPrint(refkeen_compat_gelib_c4_debug_str_with_gamename);
//US_CPrint("\n"GAMENAME);
US_CPrint(VERSION);
US_CPrint(REVISION);
VW_UpdateScreen();
IN_Ack ();
}
if (Keyboard[sc_Q]) // Q = Insta-Quit!
Quit("Insta-Quit!");
if (Keyboard[sc_Z]) // Z = freeze Time
{
if (FreezeTime)
FreezeTime = 1; // Allow refresh to dec to zero..
else
StopTime();
IN_Ack();
return 1;
}
// if (Keyboard[sc_E])
// FaceDoor((player->x>>16l)+1,(player->y>>16l));
// FaceAngle(90);
#if 0
if (Keyboard[sc_B]) // B = border color
{
CenterWindow(24,3);
PrintY+=6;
US_Print(" Border color (0-15):");
VW_UpdateScreen();
esc = !US_LineInput (px,py,str,NULL,true,2,0);
if (!esc)
{
level = atoi (str);
if (level>=0 && level<=15)
VW_ColorBorder (level);
}
return 1;
}
#endif
#if 0
if (Keyboard[sc_C]) // C = count objects
{
CountObjects();
return 1;
}
if (Keyboard[sc_D]) // D = start / end demo record
{
if (DemoMode == demo_Off)
StartDemoRecord ();
else if (DemoMode == demo_Record)
{
EndDemoRecord ();
playstate = ex_completed;
}
return 1;
}
#endif
#if 0
if (Keyboard[sc_E]) // E = quit level
{
if (tedlevel)
TEDDeath();
playstate = ex_warped;
gamestate.mapon++;
}
#endif
#if 0
if (Keyboard[sc_F]) // F = facing spot
{
CenterWindow (12,4);
US_Print ("X:");
US_PrintUnsigned (player->x);
US_Print ("Y:");
US_PrintUnsigned (player->y);
US_Print ("A:");
US_PrintUnsigned (player->angle);
VW_UpdateScreen();
IN_Ack();
return 1;
}
#endif
if (Keyboard[sc_G]) // G = god mode
{
CenterWindow (12,2);
if (godmode)
US_PrintCentered ("God mode OFF");
else
US_PrintCentered ("God mode ON");
VW_UpdateScreen();
IN_Ack();
godmode ^= 1;
return 1;
}
#if 0
if (Keyboard[sc_H]) // H = hurt self
{
TakeDamage (5);
}
#endif
if (Keyboard[sc_I]) // I = item cheat
{
extern id0_boolean_t redraw_gems;
CenterWindow (12,3);
US_PrintCentered ("Free items!");
VW_UpdateScreen();
for (i=0;i<4;i++)
{
GiveBolt ();
GiveNuke ();
GivePotion ();
// if (!gamestate.keys[i])
GiveKey (i);
gamestate.gems[i] = GEM_DELAY_TIME;
}
gamestate.gems[4] = GEM_DELAY_TIME;
redraw_gems = true;
for (i=0;i<8;i++)
GiveScroll (i,false);
IN_Ack ();
return 1;
}
if (Keyboard[sc_M]) // M = memory info
{
DebugMemory();
return 1;
}
#if DEBUG_OVERHEAD
if (Keyboard[sc_O]) // O = overhead
{
ViewMap();
return 1;
}
#endif
#if 0
if (Keyboard[sc_P]) // P = pause with no screen disruptioon
{
PicturePause ();
return 1;
}
#endif
#if 0
if (Keyboard[sc_S]) // S = slow motion
{
singlestep^=1;
CenterWindow (18,3);
if (singlestep)
US_PrintCentered ("Slow motion ON");
else
US_PrintCentered ("Slow motion OFF");
VW_UpdateScreen();
IN_Ack ();
return 1;
}
#endif
#if 0
if (Keyboard[sc_V]) // V = extra VBLs
{
CenterWindow(30,3);
PrintY+=6;
US_Print(" Add how many extra VBLs(0-8):");
VW_UpdateScreen();
esc = !US_LineInput (px,py,str,NULL,true,2,0);
if (!esc)
{
level = atoi (str);
if (level>=0 && level<=8)
extravbls = level;
}
return 1;
}
#endif
if (Keyboard[sc_W]) // W = warp to level
{
CenterWindow(26,3);
PrintY+=6;
US_Print(" Warp to which level(0-18):");
VW_UpdateScreen();
esc = !US_LineInput (px,py,str,NULL,true,2,0);
if (!esc)
{
level = atoi (str);
if (level>=0 && level<=LASTMAP-1)
{
gamestate.mapon = level;
playstate = ex_warped;
lasttext = -1;
}
}
return 1;
}
#if 0
if (Keyboard[sc_X]) // X = item cheat
{
CenterWindow (12,3);
US_PrintCentered ("Extra stuff!");
VW_UpdateScreen();
for (i=0;i<4;i++)
{
GiveBolt ();
GiveNuke ();
GivePotion ();
}
IN_Ack ();
return 1;
}
#endif
if (LastScan >= sc_1 && LastScan <= sc_8) // free scrolls
{
GiveScroll (LastScan-sc_1,false);
IN_ClearKeysDown ();
}
return 0;
}
void PrintHelp(void)
{
id0_char_t oldfontcolor = fontcolor;
PrintY = 1;
WindowX = 135;
WindowW = 640;
VW_FadeOut();
bufferofs = displayofs = screenloc[0];
VW_Bar(0,0,320,200,0);
Display640();
VW_Bar(0, 0, 640, 200, 7);
fontcolor = (7 ^ 1);
US_Print ("\n\n SUMMARY OF GAME CONTROLS\n\n");
fontcolor = (7 ^ 4);
US_Print (" ACTION\n\n");
US_Print ("Arrow keys, joystick, or mouse\n");
US_Print ("TAB or V while turning\n");
US_Print ("ALT or Button 2 while turning\n");
US_Print ("CTRL or Button 1\n");
US_Print ("Z\n");
US_Print ("X or Enter\n");
US_Print ("F1\n");
US_Print ("F2\n");
US_Print ("F3\n");
US_Print ("F4\n");
US_Print ("F5\n");
US_Print ("ESC\n\n");
fontcolor = (7 ^ 0);
#ifndef CATALOG
US_Print (" (See complete Instructions for more info)\n");
#endif
US_Print ("\n copyright (c) 1992-93 Softdisk Publishing\n");
fontcolor = (7 ^ 8);
PrintX = 400;
PrintY = 37;
WindowX = 400;
US_Print (" REACTION\n\n");
US_Print ("Move and turn\n");
US_Print ("Turn quickly (Quick Turn)\n");
US_Print ("Move sideways\n");
US_Print ("Shoot a Missile\n");
US_Print ("Shoot a Zapper\n");
US_Print ("Shoot an Xterminator\n");
US_Print ("Help (this screen)\n");
US_Print ("Sound control\n");
US_Print ("Save game position\n");
US_Print ("Restore a saved game\n");
US_Print ("Joystick control\n");
US_Print ("System options\n\n\n");
VW_UpdateScreen();
VW_FadeIn();
VW_ColorBorder(8 | 56);
IN_Ack();
Display320();
fontcolor = oldfontcolor;
}
void PlayLoop (void)
{
id0_int_t give;
void (*think)(struct objstruct *); // REFKEEN: C++ patch
ingame = true;
SD_SetTimeCount(0);
playstate = (exittype)0;
//playstate = TimeCount = 0;
gamestate.shotpower = handheight = 0;
pointcount = pointsleft = 0;
DrawLevelNumber (gamestate.mapon);
DrawBars ();
#ifndef PROFILE
fizzlein = true; // fizzle fade in the first refresh
#endif
/*TimeCount = */lasttimecount = lastnuke = 0;
PollControls (); // center mouse
StartMusic ();
do
{
#ifndef PROFILE
PollControls();
#else
c.xaxis = 1;
// if (++TimeCount == 300)
// return;
SD_SetTimeCount(SD_GetTimeCount()+1);
if (SD_GetTimeCount() == 300)
return;
#endif
for (obj = player;obj;obj = obj->next)
if (obj->active)
{
if (obj->ticcount)
{
obj->ticcount-=tics;
while ( obj->ticcount <= 0)
{
think = obj->state->thinkptr;
if (think)
{
think (obj);
if (!obj->state)
{
RemoveObj (obj);
goto nextactor;
}
}
obj->state = obj->state->next;
if (!obj->state)
{
RemoveObj (obj);
goto nextactor;
}
if (!obj->state->tictime)
{
obj->ticcount = 0;
goto nextactor;
}
if (obj->state->tictime>0)
obj->ticcount += obj->state->tictime;
}
}
think = obj->state->thinkptr;
if (think)
{
think (obj);
if (!obj->state)
RemoveObj (obj);
}
nextactor:;
}
if (bordertime)
{
bordertime -= tics;
if (bordertime<=0)
{
bordertime = 0;
VW_ColorBorder (3);
}
}
if (pointcount)
{
pointcount -= tics;
if (pointcount <= 0)
{
pointcount += POINTTICS;
give = (pointsleft > 1000)? 1000 :
(
(pointsleft > 100)? 100 :
((pointsleft < 20)? pointsleft : 20)
);
SD_PlaySound (GETPOINTSSND);
AddPoints (give);
pointsleft -= give;
if (!pointsleft)
pointcount = 0;
}
}
ThreeDRefresh ();
CheckKeys();
// (REFKEEN) SPECIAL - Without this the game
// can run very fast, even if it's not noticeable
// (a lot of PlayLoop iterations and consumed CPU power)
//
// Notes:
// 1. Should NOT be called from ThreeDRefresh/CalcTics,
// because we don't always want that to be done
// (e.g., FizzleFade effect right after loading C4 saved game).
// 2. SHOULD be called AFTER CheckKeys. That function resets
// lasttimecount (just like CalcTics) if the debug key modifier
// (F10 in Cat. 3-D/Abyss, Backspace in Armageddon/Apocalypse)
// is held. As a consequence, if the wait is done before the
// call to CheckKeys then the game may seem to get stuck while
// the debug key modifier is held.
BE_ST_TimeCountWaitFromSrc(SD_GetTimeCount(), 1);
//
if (singlestep)
{
VW_WaitVBL(14);
lasttimecount = SD_GetTimeCount();
}
if (extravbls)
VW_WaitVBL(extravbls);
}while (!playstate);
StopMusic ();
ingame = false;
if (bordertime)
{
bordertime = 0;
VW_ColorBorder (3);
}
if (!abortgame)
AddPoints (pointsleft);
else
abortgame = false;
}
int DebugKeys (void)
{
boolean esc;
int level,i;
#if DEBUG_KEYS_AVAILABLE
if (Keyboard[sc_R])
{
CenterWindow (12,2);
if (autofire)
US_PrintCentered ("Rapid-Fire OFF");
else
US_PrintCentered ("Rapid-Fire ON");
VW_UpdateScreen();
IN_Ack();
autofire ^= 1;
return 1;
}
#endif
#if DEBUG_KEYS_AVAILABLE
if (Keyboard[sc_A])
{
char levelstr[50];
unsigned org_tile,org_mapon,msgnum;
boolean newmsg=true,newlevel=false;
VW_FixRefreshBuffer ();
CenterWindow (16,3);
US_Print("\n");
US_CPrint("Message Test");
VW_UpdateScreen();
org_mapon = mapon;
msgnum = (org_tile = *(mapsegs[0]+farmapylookup[player->tiley]+player->tilex))-NAMESTART;
while (1)
{
// Get outta' here
//
if (Keyboard[sc_Escape])
{
while (Keyboard[sc_Escape]);
break;
}
// Move to previous message
//
if (Keyboard[sc_UpArrow])
{
if (msgnum)
{
msgnum--;
newmsg = true;
}
}
// Move to next message
//
if (Keyboard[sc_DownArrow])
{
if (msgnum < 24)
{
msgnum++;
newmsg = true;
}
}
// Move to previous level
//
if (Keyboard[sc_LeftArrow])
{
if (mapon)
{
MM_SetPurge(&grsegs[LEVEL1TEXT+mapon],3);
mapon--;
newlevel = true;
}
}
// Move to next level
//
if (Keyboard[sc_RightArrow])
{
if (mapon < LASTMAP-1)
{
MM_SetPurge(&grsegs[LEVEL1TEXT+mapon],3);
mapon++;
newlevel = true;
}
}
// Load new level text
//
if (newlevel)
{
CA_CacheGrChunk(LEVEL1TEXT+mapon);
ScanText();
newmsg = true;
newlevel=false;
}
// Display new message text
//
if (newmsg)
{
*(mapsegs[0]+farmapylookup[player->tiley]+player->tilex) = msgnum+NAMESTART;
DrawText(true);
strcpy(levelstr,"Level: ");
itoa(mapon,levelstr+strlen(levelstr),10);
strcat(levelstr," Msg: ");
itoa(msgnum,levelstr+strlen(levelstr),10);
DisplaySMsg(levelstr,NULL);
newmsg = false;
if (Keyboard[sc_UpArrow] || Keyboard[sc_DownArrow] || Keyboard[sc_LeftArrow] || Keyboard[sc_RightArrow])
VW_WaitVBL(6);
}
}
// Restore game
//
MM_SetPurge(&grsegs[LEVEL1TEXT+mapon],3);
mapon = org_mapon;
CA_CacheGrChunk(LEVEL1TEXT+mapon);
ScanText();
*(mapsegs[0]+farmapylookup[player->tiley]+player->tilex) = org_tile;
DrawText(true);
status_flag = 0;
}
if (Keyboard[sc_V])
{
displayofs = bufferofs = screenloc[screenpage];
CenterWindow (16,4);
US_CPrint("\n"GAMENAME);
US_CPrint(VERSION);
US_CPrint(REVISION);
VW_UpdateScreen();
IN_Ack ();
}
#endif
if (Keyboard[sc_Q]) // Q = Insta-Quit!
Quit("Insta-Quit!");
#if 0
if (Keyboard[sc_Z]) // Z = freeze Time
{
if (FreezeTime)
FreezeTime = 1; // Allow refresh to dec to zero..
else
StopTime();
IN_Ack();
return 1;
}
#endif
// if (Keyboard[sc_E])
// FaceDoor((player->x>>16l)+1,(player->y>>16l));
// FaceAngle(90);
#if 0
if (Keyboard[sc_B]) // B = border color
{
CenterWindow(24,3);
PrintY+=6;
US_Print(" Border color (0-15):");
VW_UpdateScreen();
esc = !US_LineInput (px,py,str,NULL,true,2,0);
if (!esc)
{
level = atoi (str);
if (level>=0 && level<=15)
VW_ColorBorder (level);
}
return 1;
}
#endif
#if 1//DEBUG_KEYS_AVAILABLE
if (Keyboard[sc_O])
{
extern unsigned objectcount,latchmemavail;
unsigned unused,total;
CenterWindow (30,13);
US_Print ("Objects: ");
US_PrintUnsigned (objectcount);
US_Print("\n\nTics: ");
US_PrintUnsigned (tics);
US_Print(" Real Tics: ");
US_PrintUnsigned(realtics);
US_Print ("\n\n Total Available: ");
US_PrintUnsigned (mminfo.mainmem/1024);
US_Print ("k\n Mem In Use: ");
unused=MM_UnusedMemory()/1024;
US_PrintUnsigned (unused);
US_Print ("k\n Mem After Purge: ");
total=MM_TotalFree()/1024;
US_PrintUnsigned (total);
US_Print ("k (");
US_PrintUnsigned (total-unused);
US_Print (")\n\nLatch Mem Free: ");
US_PrintUnsigned (latchmemavail);
US_Print ("\n");
VW_UpdateScreen();
IN_Ack();
}
if (colordelay<1)
{
if (Keyboard[26])
{
extern unsigned *groundcolor,debug_gnd;
groundcolor = &debug_gnd;
debug_gnd += 0x0101;
if (debug_gnd == 0x1010)
debug_gnd = 0;
colordelay = 10;
}
if (Keyboard[27])
{
extern unsigned *skycolor,debug_sky;
skycolor = &debug_sky;
debug_sky += 0x0101;
if (debug_sky == 0x1010)
debug_sky = 0;
colordelay = 10;
}
}
else
colordelay -= realtics;
#endif
#if 0
if (Keyboard[sc_C]) // C = count objects
{
CountObjects();
return 1;
}
if (Keyboard[sc_D]) // D = start / end demo record
{
if (DemoMode == demo_Off)
StartDemoRecord ();
else if (DemoMode == demo_Record)
{
EndDemoRecord ();
playstate = ex_completed;
}
return 1;
}
#endif
#if 0
if (Keyboard[sc_E]) // E = quit level
{
if (tedlevel)
TEDDeath();
playstate = ex_warped;
gamestate.mapon++;
}
#endif
#if 0
if (Keyboard[sc_F]) // F = facing spot
{
CenterWindow (12,4);
US_Print ("X:");
US_PrintUnsigned (player->x);
US_Print ("Y:");
US_PrintUnsigned (player->y);
US_Print ("A:");
US_PrintUnsigned (player->angle);
VW_UpdateScreen();
IN_Ack();
return 1;
}
#endif
if (Keyboard[sc_G]) // G = god mode
{
CenterWindow (12,2);
if (godmode)
US_PrintCentered ("God mode OFF");
else
US_PrintCentered ("God mode ON");
VW_UpdateScreen();
IN_Ack();
godmode ^= 1;
return 1;
}
#if 0
if (Keyboard[sc_H]) // H = hurt self
{
TakeDamage (5);
}
#endif
if (Keyboard[sc_I]) // I = item cheat
{
extern boolean redraw_gems;
CenterWindow (12,3);
US_PrintCentered ("Free items!");
VW_UpdateScreen();
for (i=0;i<4;i++)
{
GiveBolt ();
GiveNuke ();
GivePotion ();
// if (!gamestate.keys[i])
GiveKey (i);
gamestate.gems[i] = GEM_DELAY_TIME;
}
gamestate.gems[4] = GEM_DELAY_TIME;
redraw_gems = true;
///////// for (i=0;i<8;i++)
///////// GiveScroll (i,false);
IN_Ack ();
return 1;
}
#if DEBUG_OVERHEAD
if (Keyboard[sc_Z]) // O is used elsewhere...
{
ViewMap();
return 1;
}
#endif
#if 0
if (Keyboard[sc_P]) // P = pause with no screen disruptioon
{
PicturePause ();
return 1;
}
#endif
#if 0
if (Keyboard[sc_S]) // S = slow motion
{
singlestep^=1;
CenterWindow (18,3);
if (singlestep)
US_PrintCentered ("Slow motion ON");
else
US_PrintCentered ("Slow motion OFF");
VW_UpdateScreen();
IN_Ack ();
return 1;
}
#endif
#if 0
if (Keyboard[sc_V]) // V = extra VBLs
{
CenterWindow(30,3);
PrintY+=6;
US_Print(" Add how many extra VBLs(0-8):");
VW_UpdateScreen();
esc = !US_LineInput (px,py,str,NULL,true,2,0);
if (!esc)
{
level = atoi (str);
if (level>=0 && level<=8)
extravbls = level;
}
return 1;
}
#endif
if (Keyboard[sc_W]) // W = warp to level
{
CenterWindow(26,3);
PrintY+=6;
US_Print(" Warp to which level(0-17):");
VW_UpdateScreen();
esc = !US_LineInput (px,py,str,NULL,true,2,0);
if (!esc)
{
level = atoi (str);
if (level>=0 && level<=LASTMAP-1)
{
gamestate.mapon = level;
playstate = ex_warped;
lasttext = -1;
}
}
return 1;
}
#if 0
if (Keyboard[sc_X]) // X = item cheat
{
CenterWindow (12,3);
US_PrintCentered ("Extra stuff!");
VW_UpdateScreen();
for (i=0;i<4;i++)
{
GiveBolt ();
GiveNuke ();
GivePotion ();
}
IN_Ack ();
return 1;
}
#endif
//////// if (LastScan >= sc_1 && LastScan <= sc_8) // free scrolls
//////// {
//////// GiveScroll (LastScan-sc_1,false);
//////// IN_ClearKeysDown ();
//////// }
return 0;
}
id0_int_t DebugKeys (void)
{
id0_boolean_t esc;
id0_int_t level,i;
if (Keyboard[sc_B]) // B = border color
{
CenterWindow(24,3);
PrintY+=6;
US_Print(" Border color (0-15):");
VW_UpdateScreen();
esc = !US_LineInput (px,py,str,NULL,true,2,0);
if (!esc)
{
level = atoi (str);
if (level>=0 && level<=15)
VW_ColorBorder (level);
}
return 1;
}
#if 0
if (Keyboard[sc_C]) // C = count objects
{
CountObjects();
return 1;
}
if (Keyboard[sc_D]) // D = start / end demo record
{
if (DemoMode == demo_Off)
StartDemoRecord ();
else if (DemoMode == demo_Record)
{
EndDemoRecord ();
playstate = ex_completed;
}
return 1;
}
#endif
if (Keyboard[sc_E]) // E = quit level
{
if (tedlevel)
TEDDeath();
playstate = ex_warped;
gamestate.mapon++;
}
if (Keyboard[sc_F]) // F = facing spot
{
CenterWindow (12,4);
US_Print ("X:");
US_PrintUnsigned (player->x);
US_Print ("Y:");
US_PrintUnsigned (player->y);
US_Print ("A:");
US_PrintUnsigned (player->angle);
VW_UpdateScreen();
IN_Ack();
return 1;
}
if (Keyboard[sc_G]) // G = god mode
{
CenterWindow (12,2);
if (godmode)
US_PrintCentered ("God mode OFF");
else
US_PrintCentered ("God mode ON");
VW_UpdateScreen();
IN_Ack();
godmode ^= 1;
return 1;
}
if (Keyboard[sc_H]) // H = hurt self
{
TakeDamage (5);
}
else if (Keyboard[sc_I]) // I = item cheat
{
CenterWindow (12,3);
US_PrintCentered ("Free items!");
VW_UpdateScreen();
for (i=0;i<4;i++)
{
GiveBolt ();
GiveNuke ();
GivePotion ();
if (!gamestate.keys[i])
GiveKey (i);
}
for (i=0;i<8;i++)
GiveScroll (i,false);
IN_Ack ();
return 1;
}
else if (Keyboard[sc_M]) // M = memory info
{
DebugMemory();
return 1;
}
else if (Keyboard[sc_O]) // O = overhead
{
ViewMap();
return 1;
}
else if (Keyboard[sc_P]) // P = pause with no screen disruptioon
{
PicturePause ();
return 1;
}
else if (Keyboard[sc_S]) // S = slow motion
{
singlestep^=1;
CenterWindow (18,3);
if (singlestep)
US_PrintCentered ("Slow motion ON");
else
US_PrintCentered ("Slow motion OFF");
VW_UpdateScreen();
IN_Ack ();
return 1;
}
else if (Keyboard[sc_S]) // T = shape test
{
ShapeTest ();
return 1;
}
else if (Keyboard[sc_V]) // V = extra VBLs
{
CenterWindow(30,3);
PrintY+=6;
US_Print(" Add how many extra VBLs(0-8):");
VW_UpdateScreen();
esc = !US_LineInput (px,py,str,NULL,true,2,0);
if (!esc)
{
level = atoi (str);
if (level>=0 && level<=8)
extravbls = level;
}
return 1;
}
else if (Keyboard[sc_W]) // W = warp to level
{
CenterWindow(26,3);
PrintY+=6;
US_Print(" Warp to which level(1-21):");
VW_UpdateScreen();
esc = !US_LineInput (px,py,str,NULL,true,2,0);
if (!esc)
{
level = atoi (str);
if (level>0 && level<21)
{
gamestate.mapon = level-1;
playstate = ex_warped;
}
}
return 1;
}
else if (Keyboard[sc_X]) // X = item cheat
{
CenterWindow (12,3);
US_PrintCentered ("Extra stuff!");
VW_UpdateScreen();
for (i=0;i<4;i++)
{
GiveBolt ();
GiveNuke ();
GivePotion ();
}
IN_Ack ();
return 1;
}
else if (Keyboard[sc_Z]) // Z = game over
{
}
else if (LastScan >= sc_1 && LastScan <= sc_8) // free scrolls
{
GiveScroll (LastScan-sc_1,false);
IN_ClearKeysDown ();
}
return 0;
}
