--- /dev/null
+/* Reconstructed Commander Keen 4-6 Source Code\r
+ * Copyright (C) 2021 K1n9_Duk3\r
+ *\r
+ * This file is loosely based on:\r
+ * Keen Dreams Source Code\r
+ * Copyright (C) 2014 Javier M. Chavez\r
+ *\r
+ * This program is free software; you can redistribute it and/or modify\r
+ * it under the terms of the GNU General Public License as published by\r
+ * the Free Software Foundation; either version 2 of the License, or\r
+ * (at your option) any later version.\r
+ *\r
+ * This program is distributed in the hope that it will be useful,\r
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of\r
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the\r
+ * GNU General Public License for more details.\r
+ *\r
+ * You should have received a copy of the GNU General Public License along\r
+ * with this program; if not, write to the Free Software Foundation, Inc.,\r
+ * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.\r
+ */\r
+\r
+/*\r
+CK_KEEN2.C\r
+==========\r
+\r
+Contains the following actor types (in this order):\r
+\r
+- Score Box & Demo sprites\r
+- Keen (world map)\r
+- Flags (world map)\r
+- Neural Stunner Shots\r
+- Gem Door Opener\r
+- Card Door Opener (Keen 5 only)\r
+\r
+*/\r
+\r
+#include "CK_DEF.H"\r
+\r
+Direction opposite[8] = {dir_South, dir_SouthWest, dir_West, dir_NorthWest, dir_North, dir_NorthEast, dir_East, dir_SouthEast};\r
+\r
+/*\r
+=============================================================================\r
+\r
+ SCORE BOX ROUTINES\r
+\r
+=============================================================================\r
+*/\r
+\r
+statetype s_score = { 0, 0, think, false, false, 0, 0, 0, NULL, NULL, NULL, NULL};\r
+statetype s_demo = {DEMOPLAQUESPR, DEMOPLAQUESPR, think, false, false, 0, 0, 0, NULL, NULL, NULL, NULL};\r
+\r
+/*\r
+======================\r
+=\r
+= SpawnScore\r
+=\r
+======================\r
+*/\r
+\r
+void SpawnScore(void)\r
+{\r
+ scoreobj->obclass = inertobj;\r
+ scoreobj->priority = 3;\r
+ scoreobj->active = ac_allways;\r
+ scoreobj->needtoclip = cl_noclip;\r
+ scoreobj->temp2 = -1;\r
+ scoreobj->temp1 = -1;\r
+ scoreobj->temp3 = -1;\r
+ scoreobj->temp4 = -1;\r
+ if (scorescreenkludge)\r
+ {\r
+ scoreobj->state = &sc_deadstate;\r
+ }\r
+ else if (!DemoMode)\r
+ {\r
+ NewState(scoreobj, &s_score);\r
+ }\r
+ else\r
+ {\r
+ NewState(scoreobj, &s_demo);\r
+ CA_MarkGrChunk(DEMOPLAQUESPR);\r
+ }\r
+}\r
+\r
+\r
+// Taken from Keen Dreams: MemDrawChar and ShiftScore\r
+\r
+/*\r
+======================\r
+=\r
+= MemDrawChar\r
+=\r
+======================\r
+*/\r
+\r
+#if GRMODE == EGAGR\r
+\r
+void MemDrawChar(Sint16 char8, Uint8 far *dest, Uint16 width, Uint16 planesize)\r
+{\r
+ Uint16 source = (Uint16)grsegs[STARTTILE8]; // Note: this differs from Keen Dreams source\r
+\r
+asm mov si,[char8]\r
+asm shl si,1\r
+asm shl si,1\r
+asm shl si,1\r
+asm shl si,1\r
+asm shl si,1 // index into char 8 segment\r
+\r
+asm mov ds,[WORD PTR source] // Note: this differs from Keen Dreams source\r
+asm mov es,[WORD PTR dest+2]\r
+\r
+asm mov cx,4 // draw four planes\r
+asm mov bx,[width]\r
+asm dec bx\r
+\r
+planeloop:\r
+\r
+asm mov di,[WORD PTR dest]\r
+\r
+asm movsb\r
+asm add di,bx\r
+asm movsb\r
+asm add di,bx\r
+asm movsb\r
+asm add di,bx\r
+asm movsb\r
+asm add di,bx\r
+asm movsb\r
+asm add di,bx\r
+asm movsb\r
+asm add di,bx\r
+asm movsb\r
+asm add di,bx\r
+asm movsb\r
+\r
+asm mov ax,[planesize]\r
+asm add [WORD PTR dest],ax\r
+\r
+asm loop planeloop\r
+\r
+asm mov ax,ss\r
+asm mov ds,ax\r
+}\r
+\r
+#elif GRMODE == CGAGR\r
+\r
+void MemDrawChar (int char8,byte far *dest,unsigned width,unsigned planesize)\r
+{\r
+asm mov si,[char8]\r
+asm shl si,1\r
+asm shl si,1\r
+asm shl si,1\r
+asm shl si,1 // index into char 8 segment\r
+\r
+asm mov ds,[WORD PTR grsegs+STARTTILE8*2]\r
+asm mov es,[WORD PTR dest+2]\r
+\r
+asm mov bx,[width]\r
+asm sub bx,2\r
+\r
+asm mov di,[WORD PTR dest]\r
+\r
+asm movsw\r
+asm add di,bx\r
+asm movsw\r
+asm add di,bx\r
+asm movsw\r
+asm add di,bx\r
+asm movsw\r
+asm add di,bx\r
+asm movsw\r
+asm add di,bx\r
+asm movsw\r
+asm add di,bx\r
+asm movsw\r
+asm add di,bx\r
+asm movsw\r
+\r
+asm mov ax,ss\r
+asm mov ds,ax\r
+\r
+ planesize++; // shut the compiler up\r
+}\r
+#endif\r
+\r
+/*\r
+====================\r
+=\r
+= ShiftScore\r
+=\r
+====================\r
+*/\r
+#if GRMODE == EGAGR\r
+void ShiftScore (void)\r
+{\r
+ spritetabletype far *spr;\r
+ spritetype _seg *dest;\r
+\r
+ spr = &spritetable[SCOREBOXSPR-STARTSPRITES];\r
+ dest = (spritetype _seg *)grsegs[SCOREBOXSPR];\r
+\r
+ CAL_ShiftSprite (FP_SEG(dest),dest->sourceoffset[0],\r
+ dest->sourceoffset[1],spr->width,spr->height,2);\r
+\r
+ CAL_ShiftSprite (FP_SEG(dest),dest->sourceoffset[0],\r
+ dest->sourceoffset[2],spr->width,spr->height,4);\r
+\r
+ CAL_ShiftSprite (FP_SEG(dest),dest->sourceoffset[0],\r
+ dest->sourceoffset[3],spr->width,spr->height,6);\r
+}\r
+#endif\r
+\r
+/*\r
+===============\r
+=\r
+= UpdateScore\r
+=\r
+===============\r
+*/\r
+\r
+void UpdateScore(objtype *ob)\r
+{\r
+ char str[10],*ch;\r
+ spritetype _seg *block;\r
+ Uint8 far *dest;\r
+ Uint16 i, length, width, planesize, number;\r
+ boolean changed;\r
+\r
+ if (scorescreenkludge)\r
+ return;\r
+\r
+ if (DemoMode)\r
+ {\r
+ DrawDemoPlaque(ob);\r
+ return;\r
+ }\r
+\r
+ if (!showscorebox)\r
+ return;\r
+\r
+ changed = false;\r
+\r
+//code below is a combination of ScoreThink and ScoreReact from Keen Dreams with minor changes\r
+\r
+//\r
+// score changed\r
+//\r
+ if ((gamestate.score>>16) != ob->temp1\r
+ || (Uint16)gamestate.score != ob->temp2 )\r
+ {\r
+ block = (spritetype _seg *)grsegs[SCOREBOXSPR];\r
+ width = block->width[0];\r
+ planesize = block->planesize[0];\r
+ dest = (Uint8 far *)grsegs[SCOREBOXSPR]+block->sourceoffset[0]\r
+ + planesize + width*4;\r
+\r
+ ltoa (gamestate.score,str,10);\r
+\r
+ // erase leading spaces\r
+ length = strlen(str);\r
+ for (i=9;i>length;i--)\r
+ MemDrawChar (41,dest+=CHARWIDTH,width,planesize);\r
+\r
+ // draw digits\r
+ ch = str;\r
+ while (*ch)\r
+ MemDrawChar (*ch++ - '0'+42,dest+=CHARWIDTH,width,planesize);\r
+\r
+#if GRMODE == EGAGR\r
+ ShiftScore ();\r
+#endif\r
+ ob->needtoreact = true;\r
+ ob->temp1 = gamestate.score>>16;\r
+ ob->temp2 = gamestate.score;\r
+\r
+ changed = true;\r
+ }\r
+\r
+//\r
+// ammo changed\r
+//\r
+ number = gamestate.ammo;\r
+ if (number != ob->temp3)\r
+ {\r
+ block = (spritetype _seg *)grsegs[SCOREBOXSPR];\r
+ width = block->width[0];\r
+ planesize = block->planesize[0];\r
+ dest = (byte far *)grsegs[SCOREBOXSPR]+block->sourceoffset[0]\r
+ + planesize + width*20 + 7*CHARWIDTH;\r
+\r
+ if (number > 99)\r
+ strcpy (str,"99");\r
+ else\r
+ ltoa (number,str,10);\r
+\r
+ // erase leading spaces\r
+ length = strlen(str);\r
+ for (i=2;i>length;i--)\r
+ MemDrawChar (41,dest+=CHARWIDTH,width,planesize);\r
+\r
+ // draw digits\r
+ ch = str;\r
+ while (*ch)\r
+ MemDrawChar (*ch++ - '0'+42,dest+=CHARWIDTH,width,planesize);\r
+\r
+#if GRMODE == EGAGR\r
+ ShiftScore ();\r
+#endif\r
+ ob->needtoreact = true;\r
+ ob->temp3 = number;\r
+\r
+ changed = true;\r
+ }\r
+\r
+//\r
+// lives changed\r
+//\r
+ if (gamestate.lives != ob->temp4)\r
+ {\r
+ block = (spritetype _seg *)grsegs[SCOREBOXSPR];\r
+ width = block->width[0];\r
+ planesize = block->planesize[0];\r
+ dest = (byte far *)grsegs[SCOREBOXSPR]+block->sourceoffset[0]\r
+ + planesize + width*20 + 2*CHARWIDTH;\r
+\r
+ if (gamestate.lives > 99)\r
+ strcpy (str,"99");\r
+ else\r
+ ltoa (gamestate.lives,str,10);\r
+\r
+ // erase leading spaces\r
+ length = strlen(str);\r
+ for (i=2;i>length;i--)\r
+ MemDrawChar (41,dest+=CHARWIDTH,width,planesize);\r
+\r
+ // draw digits\r
+ ch = str;\r
+ while (*ch)\r
+ MemDrawChar (*ch++ - '0'+42,dest+=CHARWIDTH,width,planesize);\r
+\r
+#if GRMODE == EGAGR\r
+ ShiftScore ();\r
+#endif\r
+ ob->needtoreact = true;\r
+ ob->temp4 = gamestate.lives;\r
+\r
+ changed = true;\r
+ }\r
+\r
+/*\r
+Note:\r
+-----\r
+\r
+It would be more efficient to use\r
+\r
+ if (changed)\r
+ ShiftScore();\r
+\r
+here instead of the individual ShiftScore() calls above. Because if the player\r
+gains a life by collecting points items, both the score and lives numbers need\r
+to be updated, which means the sprite would be shifted twice. And if the player\r
+fires a shot during the same frame, the ammo number also needs to be updated,\r
+leading to up to three shifts in one frame.\r
+*/\r
+\r
+ if (ob->x != originxglobal || ob->y != originyglobal)\r
+ {\r
+ ob->x = originxglobal;\r
+ ob->y = originyglobal;\r
+ changed = true;\r
+ }\r
+\r
+ if (changed)\r
+#if GRMODE == EGAGR\r
+ RF_PlaceSprite(&ob->sprite, ob->x+4*PIXGLOBAL, ob->y+4*PIXGLOBAL, SCOREBOXSPR, spritedraw, 3);\r
+#elif GRMODE == CGAGR\r
+ RF_PlaceSprite(&ob->sprite, ob->x+8*PIXGLOBAL, ob->y+8*PIXGLOBAL, SCOREBOXSPR, spritedraw, 3);\r
+#endif\r
+}\r
+\r
+/*\r
+===============\r
+=\r
+= DrawDemoPlaque\r
+=\r
+===============\r
+*/\r
+\r
+void DrawDemoPlaque(objtype *ob)\r
+{\r
+ if (ob->x != originxglobal || ob->y != originyglobal)\r
+ {\r
+ ob->x = originxglobal;\r
+ ob->y = originyglobal;\r
+ RF_PlaceSprite(&ob->sprite, ob->x + 160*PIXGLOBAL - 32*PIXGLOBAL, ob->y + 8*PIXGLOBAL, DEMOPLAQUESPR, spritedraw, 3);\r
+ }\r
+}\r
+\r
+\r
+/*\r
+=============================================================================\r
+\r
+ MINI KEEN\r
+\r
+player->temp1 = dir\r
+player->temp2 = animation stage\r
+\r
+=============================================================================\r
+*/\r
+\r
+#ifdef KEEN4\r
+statetype s_keenonfoot1 = {WOLRDKEENRIDE1SPR, WOLRDKEENRIDE1SPR, stepthink, false, false, 30, 0, 0, T_FootFly, NULL, R_Draw, &s_keenonfoot2};\r
+statetype s_keenonfoot2 = {WOLRDKEENRIDE2SPR, WOLRDKEENRIDE2SPR, stepthink, false, false, 30, 0, 0, T_FootFly, NULL, R_Draw, &s_keenonfoot1};\r
+statetype s_worldswim = {0, 0, slide, true, false, 6, 16, 16, T_KeenWorldSwim, NULL, R_Draw, &s_worldswim};\r
+#endif\r
+\r
+#ifdef KEEN5\r
+statetype s_worldelevate = {-1, -1, think, true, false, 6, 16, 16, T_Elevate, NULL, R_Draw, NULL};\r
+#endif\r
+\r
+statetype s_worldkeen = {0, 0, stepthink, false, false, 360, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave1};\r
+\r
+statetype s_worldkeenwave1 = {WORLDKEENWAVE1SPR, WORLDKEENWAVE1SPR, stepthink, false, false, 20, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave2};\r
+statetype s_worldkeenwave2 = {WORLDKEENWAVE2SPR, WORLDKEENWAVE2SPR, stepthink, false, false, 20, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave3};\r
+statetype s_worldkeenwave3 = {WORLDKEENWAVE1SPR, WORLDKEENWAVE1SPR, stepthink, false, false, 20, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave4};\r
+statetype s_worldkeenwave4 = {WORLDKEENWAVE2SPR, WORLDKEENWAVE2SPR, stepthink, false, false, 20, 0, 0, T_KeenWorld, NULL, R_Draw, &s_worldkeenwave5};\r
+statetype s_worldkeenwave5 = {WORLDKEENWAVE1SPR, WORLDKEENWAVE1SPR, stepthink, false, false, 20, 0, 0, T_KeenWorldWalk, NULL, R_Draw, &s_worldkeen};\r
+\r
+statetype s_worldkeenwalk = {0, 0, slide, true, false, 4, 24, 24, T_KeenWorldWalk, NULL, R_Draw, &s_worldkeenwalk};\r
+\r
+Sint16 worldshapes[8] = {WORLDKEENU1SPR-1, WORLDKEENUR1SPR-1, WORLDKEENR1SPR-1, WORLDKEENDR1SPR-1, WORLDKEEND1SPR-1, WORLDKEENDL1SPR-1, WORLDKEENL1SPR-1, WORLDKEENUL1SPR-1}; //-1 to everything because worldanims values are 1-based\r
+Sint16 worldanims[4] = {2, 3, 1, 3};\r
+#ifdef KEEN4\r
+Sint16 swimshapes[8] = {WORLDKEENSWIMU1SPR, WORLDKEENSWIMUR1SPR, WORLDKEENSWIMR1SPR, WORLDKEENSWIMDR1SPR, WORLDKEENSWIMD1SPR, WORLDKEENSWIMDL1SPR, WORLDKEENSWIML1SPR, WORLDKEENSWIMUL1SPR};\r
+#endif\r
+#ifndef KEEN6\r
+Sint16 tiledir[4] = {dir_South, dir_West, dir_North, dir_East};\r
+#endif\r
+\r
+/*\r
+======================\r
+=\r
+= SpawnWorldKeen\r
+=\r
+======================\r
+*/\r
+\r
+void SpawnWorldKeen(Sint16 x, Sint16 y)\r
+{\r
+#ifdef KEEN4\r
+ if (playstate == ex_foot)\r
+ {\r
+ player->needtoclip = cl_noclip;\r
+ player->obclass = keenobj;\r
+ player->x = gamestate.worldx;\r
+ player->y = gamestate.worldy;\r
+ player->active = ac_allways;\r
+ player->priority = 3;\r
+ player->xdir = 0;\r
+ player->ydir = 0;\r
+ if (gamestate.worldx < 20*TILEGLOBAL)\r
+ {\r
+ player->temp1 = 280;\r
+ player->xspeed = (30*TILEGLOBAL - player->x)/280 + 1;\r
+ player->yspeed = (55*TILEGLOBAL - player->y)/280 + 1;\r
+ }\r
+ else\r
+ {\r
+ player->temp1 = 140;\r
+ player->xspeed = (Sint16)(16*TILEGLOBAL - player->x)/140 + 1;\r
+ player->yspeed = (Sint16)(47*TILEGLOBAL - player->y)/140 + 1;\r
+ }\r
+ NewState(player, &s_keenonfoot1);\r
+ return;\r
+ }\r
+#endif\r
+\r
+ player->obclass = keenobj;\r
+ if (gamestate.worldx == 0)\r
+ {\r
+ player->x = CONVERT_TILE_TO_GLOBAL(x);\r
+ player->y = CONVERT_TILE_TO_GLOBAL(y);\r
+ }\r
+ else\r
+ {\r
+ player->x = gamestate.worldx;\r
+ player->y = gamestate.worldy;\r
+ }\r
+ player->active = ac_allways;\r
+ player->priority = 1;\r
+ player->xdir = 0;\r
+ player->ydir = 0;\r
+ player->temp1 = dir_West;\r
+ player->temp2 = 3;\r
+ player->temp3 = 0;\r
+ player->shapenum = WORLDKEENL3SPR;\r
+ NewState(player, &s_worldkeen);\r
+}\r
+\r
+#ifdef KEEN5\r
+/*\r
+======================\r
+=\r
+= SpawnWorldKeenPort\r
+=\r
+======================\r
+*/\r
+\r
+void SpawnWorldKeenPort(Uint16 tileX, Uint16 tileY)\r
+{\r
+ player->obclass = keenobj;\r
+ player->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
+ player->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
+ player->active = ac_allways;\r
+ player->priority = 1;\r
+ player->xdir = 0;\r
+ player->ydir = 0;\r
+ player->temp1 = dir_West;\r
+ player->temp2 = 3;\r
+ player->temp3 = 0;\r
+ player->shapenum = WORLDKEENL3SPR;\r
+ NewState(player, &s_worldkeen);\r
+}\r
+#endif\r
+\r
+\r
+/*\r
+======================\r
+=\r
+= CheckEnterLevel\r
+=\r
+======================\r
+*/\r
+\r
+void CheckEnterLevel(objtype *ob)\r
+{\r
+ Uint16 x, y, info;\r
+\r
+ for (y = ob->tiletop; y <= ob->tilebottom; y++)\r
+ {\r
+ for (x = ob->tileleft; x <= ob->tileright; x++)\r
+ {\r
+ info = *(mapsegs[2]+mapbwidthtable[y]/2 + x);\r
+ if (info > 0xC000 && info <= (0xC000 + 18))\r
+ {\r
+ gamestate.worldx = ob->x;\r
+ gamestate.worldy = ob->y;\r
+ gamestate.mapon = info - 0xC000;\r
+ playstate = ex_completed;\r
+ SD_PlaySound(SND_ENTERLEVEL);\r
+ }\r
+ }\r
+ }\r
+}\r
+\r
+/*\r
+======================\r
+=\r
+= T_KeenWorld\r
+=\r
+======================\r
+*/\r
+\r
+void T_KeenWorld(objtype *ob)\r
+{\r
+ if (c.dir != dir_None)\r
+ {\r
+ ob->state = &s_worldkeenwalk;\r
+ ob->temp2 = 0;\r
+ T_KeenWorldWalk(ob);\r
+ }\r
+ if (jumpbutton || pogobutton || firebutton)\r
+ {\r
+ CheckEnterLevel(ob);\r
+ }\r
+}\r
+\r
+/*\r
+======================\r
+=\r
+= T_KeenWorldWalk\r
+=\r
+======================\r
+*/\r
+\r
+void T_KeenWorldWalk(objtype *ob)\r
+{\r
+ if (ob->temp3)\r
+ {\r
+ ob->temp3 -= 4;\r
+ if (ob->temp3 < 0)\r
+ ob->temp3 = 0;\r
+ }\r
+ else\r
+ {\r
+ ob->xdir = c.xaxis;\r
+ ob->ydir = c.yaxis;\r
+ if (pogobutton || firebutton || jumpbutton)\r
+ {\r
+ CheckEnterLevel(ob);\r
+ }\r
+ if (c.dir == dir_None)\r
+ {\r
+ ob->state = &s_worldkeen;\r
+ ob->shapenum = worldshapes[ob->temp1] + 3;\r
+ return;\r
+ }\r
+ ob->temp1 = c.dir;\r
+ }\r
+ if (++ob->temp2 == 4)\r
+ ob->temp2 = 0;\r
+ ob->shapenum = worldshapes[ob->temp1] + worldanims[ob->temp2];\r
+\r
+ if (ob->temp2 == 1)\r
+ {\r
+ SD_PlaySound(SND_WORLDWALK1);\r
+ }\r
+ else if (ob->temp2 == 3)\r
+ {\r
+ SD_PlaySound(SND_WORLDWALK2);\r
+ }\r
+}\r
+\r
+#ifdef KEEN4\r
+/*\r
+======================\r
+=\r
+= T_FootFly\r
+=\r
+======================\r
+*/\r
+\r
+void T_FootFly(objtype *ob)\r
+{\r
+ ob->temp1 = ob->temp1 - tics;\r
+ xtry = ob->xspeed * tics;\r
+ ytry = ob->yspeed * tics;\r
+ if (ob->temp1 <= 0)\r
+ {\r
+ xtry -= ob->xspeed * -ob->temp1;\r
+ ytry -= ob->yspeed * -ob->temp1;\r
+ ob->priority = 1;\r
+ ob->temp1 = dir_West;\r
+ ob->temp2 = 3;\r
+ ob->temp3 = 0;\r
+ player->xdir = 0;\r
+ player->ydir = 0;\r
+ ob->state = &s_worldkeen;\r
+ ob->shapenum = WORLDKEENL3SPR;\r
+ ob->needtoclip = cl_midclip;\r
+ }\r
+}\r
+\r
+/*\r
+======================\r
+=\r
+= T_KeenWorldSwim\r
+=\r
+======================\r
+*/\r
+\r
+void T_KeenWorldSwim(objtype *ob)\r
+{\r
+ if (ob->temp3)\r
+ {\r
+ ob->temp3 -= 6;\r
+ if (ob->temp3 < 0)\r
+ ob->temp3 = 0;\r
+ }\r
+ else\r
+ {\r
+ ob->xdir = c.xaxis;\r
+ ob->ydir = c.yaxis;\r
+ if (c.xaxis || c.yaxis)\r
+ ob->temp1 = c.dir;\r
+ }\r
+ ob->shapenum = swimshapes[ob->temp1] + ob->temp2;\r
+ if (++ob->temp2 == 2)\r
+ ob->temp2 = 0;\r
+\r
+ if (ob->temp2 == 0)\r
+ {\r
+ SD_PlaySound(SND_SWIM1);\r
+ }\r
+ else\r
+ {\r
+ SD_PlaySound(SND_SWIM2);\r
+ }\r
+}\r
+\r
+#else // NOT Keen 4 (i.e. Keen 5 & 6):\r
+\r
+/*\r
+======================\r
+=\r
+= Teleport\r
+=\r
+======================\r
+*/\r
+\r
+void Teleport(Uint16 tileX, Uint16 tileY)\r
+{\r
+ Uint16 tile, globalx, globaly, duration, move;\r
+ objtype *o;\r
+ objtype *ob = player;\r
+\r
+ //\r
+ // enter the teleporter\r
+ //\r
+ SD_PlaySound(SND_TELEPORT);\r
+ globalx = CONVERT_TILE_TO_GLOBAL(tileX);\r
+ globaly = CONVERT_TILE_TO_GLOBAL(tileY);\r
+\r
+#ifdef KEEN6Ev15\r
+ // We need to make the compiler "forget" that duration starts at 0\r
+ // to make sure the while-loop check is performed when entering the\r
+ // loop. Can't change compiler settings since we do need that loop\r
+ // optimization for the for-loop at the end of this routine.\r
+ if (true)\r
+ duration = 0;\r
+#else\r
+ duration = 0;\r
+#endif\r
+\r
+ while (duration < 130)\r
+ {\r
+ RF_Refresh();\r
+ move = tics*2;\r
+ duration += tics;\r
+\r
+ if (ob->x == globalx && ob->y == globaly)\r
+ break;\r
+\r
+ if (ob->y < globaly)\r
+ {\r
+ ob->y += move;\r
+ if (ob->y > globaly)\r
+ ob->y = globaly;\r
+ }\r
+ else if (ob->y > globaly)\r
+ {\r
+ ob->y -= move;\r
+ if (ob->y < globaly)\r
+ ob->y = globaly;\r
+ }\r
+\r
+ if (ob->x < globalx)\r
+ {\r
+ ob->x += move;\r
+ if (ob->x > globalx)\r
+ ob->x = globalx;\r
+ }\r
+ else if (ob->x > globalx)\r
+ {\r
+ ob->x -= move;\r
+ if (ob->x < globalx)\r
+ ob->x = globalx;\r
+ }\r
+\r
+ ob->shapenum = ((TimeCount >> 3) % 3) + WORLDKEENU1SPR;\r
+ RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
+\r
+ tile = ((TimeCount >> 2) & TELEPORERTILEMASK) + TELEPORTERTILE1;\r
+ RF_MemToMap(&tile, 1, tileX, tileY, 1, 1);\r
+ }\r
+\r
+ tile = TELEPORTERTILE2;\r
+ RF_MemToMap(&tile, 1, tileX, tileY, 1, 1);\r
+\r
+ //\r
+ // teleport to new location\r
+ //\r
+ tile = *(mapsegs[2]+mapbwidthtable[tileY]/2 + tileX);\r
+ tileX = tile >> 8;\r
+ tileY = tile & 0x7F; // BUG? y coordinate is limited to 1..127\r
+ ob->x = CONVERT_TILE_TO_GLOBAL(tileX);\r
+ ob->y = CONVERT_TILE_TO_GLOBAL(tileY);\r
+ ob->xdir = 0;\r
+ ob->ydir = 1;\r
+ ob->temp1 = dir_South;\r
+ NewState(ob, ob->state);\r
+ CenterActor(ob);\r
+\r
+ //\r
+ // draw flags/signs for new location\r
+ //\r
+ for (o=player->next; o; o=o->next)\r
+ {\r
+ if (!o->active && o->obclass == flagobj\r
+ && o->tileright >= originxtile-1 && o->tileleft <= originxtilemax+1\r
+ && o->tiletop <= originytilemax+1 && o->tilebottom >= originytile-1)\r
+ {\r
+ o->needtoreact = true;\r
+ o->active = ac_yes;\r
+ RF_PlaceSprite(&o->sprite, o->x, o->y, o->shapenum, spritedraw, o->priority);\r
+ }\r
+ }\r
+ UpdateScore(scoreobj);\r
+ RF_Refresh();\r
+ RF_Refresh();\r
+\r
+ //\r
+ // leave teleporter\r
+ //\r
+ SD_PlaySound(SND_TELEPORT);\r
+\r
+ for (duration = 0; duration < 90; )\r
+ {\r
+ RF_Refresh();\r
+ duration += tics;\r
+ ob->y += tics*2 + tics;\r
+\r
+ ob->shapenum = ((TimeCount >> 3) % 3) + WORLDKEEND1SPR;\r
+ RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
+\r
+ tile = ((TimeCount >> 2) & TELEPORERTILEMASK) + TELEPORTERTILE3;\r
+ RF_MemToMap(&tile, 1, tileX, tileY, 1, 1);\r
+ }\r
+\r
+ tile = TELEPORTERTILE4;\r
+ RF_MemToMap(&tile, 1, tileX, tileY, 1, 1);\r
+ xtry = ytry = 0;\r
+ ClipToWalls(ob);\r
+}\r
+\r
+#ifdef KEEN5\r
+\r
+/*\r
+======================\r
+=\r
+= T_Elevate\r
+=\r
+======================\r
+*/\r
+\r
+void T_Elevate(objtype *ob)\r
+{\r
+ Sint16 i, x, y, tx, ty;\r
+ Uint16 tiles[2][2];\r
+\r
+ ytry = ob->ydir * 64 * tics;\r
+ if (ob->x != ob->temp2)\r
+ {\r
+ xtry = ob->xdir * 12 * tics;\r
+ if ( (ob->xdir == 1 && ob->x + xtry > ob->temp2)\r
+ || (ob->xdir == -1 && ob->x + xtry < ob->temp2) )\r
+ {\r
+ xtry = ob->temp2 - ob->x;\r
+ }\r
+ }\r
+\r
+ //\r
+ // Keen has no sprite in this state, so we need to update the hitbox manually\r
+ // to avoid issues (the screen scrolling routines use left/right/top/bottom)\r
+ //\r
+ ob->left = ob->x + xtry;\r
+ ob->right = ob->left + (TILEGLOBAL-1);\r
+ ob->top = ob->y + ytry;\r
+ ob->bottom = ob->top + (TILEGLOBAL-1);\r
+\r
+ if (ob->ydir == 1)\r
+ {\r
+ if (ob->y + ytry < ob->temp1)\r
+ return;\r
+ }\r
+ else\r
+ {\r
+ if (ob->y + ytry > ob->temp1)\r
+ return;\r
+ }\r
+\r
+ //\r
+ // the invisible Keen has arrived at its destination\r
+ //\r
+ ytry = 0;\r
+ xtry = 0;\r
+ ob->x = ob->temp2;\r
+ ob->y = ob->temp1;\r
+ ob->priority = 1;\r
+ ob->temp1 = 4;\r
+ ob->temp2 = 3;\r
+ ob->temp3 = 0;\r
+ player->xdir = 0;\r
+ player->ydir = 0;\r
+ ob->state = &s_worldkeen;\r
+ ob->shapenum = WORLDKEEND3SPR;\r
+ ob->needtoclip = cl_midclip;\r
+ tx = CONVERT_GLOBAL_TO_TILE(ob->x);\r
+ ty = CONVERT_GLOBAL_TO_TILE(ob->y);\r
+ WorldScrollScreen(ob);\r
+ UpdateScore(scoreobj);\r
+ RF_Refresh();\r
+ RF_Refresh();\r
+\r
+ ob->y -= TILEGLOBAL;\r
+ RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
+\r
+ //\r
+ // open the elevator door\r
+ //\r
+ SD_PlaySound(SND_ELEVATORDOOR);\r
+ for (i=0; i<=5; i++)\r
+ {\r
+ for (y=0; y<2; y++)\r
+ {\r
+ for (x=0; x<2; x++)\r
+ {\r
+ tiles[y][x] = *(mapsegs[1]+mapbwidthtable[y]/2 + i*2 + x);\r
+ }\r
+ }\r
+ RF_MemToMap(&tiles[0][0], 1, tx, ty-2, 2, 2);\r
+ RF_Refresh();\r
+ VW_WaitVBL(8);\r
+ }\r
+\r
+ //\r
+ // make Keen walk out of the elevator\r
+ //\r
+ for (y=0; y<32; y++)\r
+ {\r
+ ob->y += 8; // move half a pixel every frame for 32 frames -> move down 16 pixels total\r
+ ob->shapenum = (y / 4) % 3 + WORLDKEEND1SPR;\r
+ RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
+ RF_Refresh();\r
+ }\r
+ ob->needtoclip = cl_midclip; // redundant, but doesn't do any harm\r
+}\r
+\r
+/*\r
+======================\r
+=\r
+= Elevator\r
+=\r
+======================\r
+*/\r
+\r
+void Elevator(Uint16 tileX, Uint16 tileY, Sint16 dir)\r
+{\r
+ Uint16 info, globalx, globaly, duration, move;\r
+ Sint16 x, y, i;\r
+ Uint16 tiles[2][2];\r
+ objtype *ob = player;\r
+\r
+ globalx = CONVERT_TILE_TO_GLOBAL(tileX);\r
+ globaly = CONVERT_TILE_TO_GLOBAL(tileY);\r
+\r
+ //\r
+ // make Keen walk into the elevator\r
+ //\r
+ for (duration = 0; duration < 130; )\r
+ {\r
+ CalcBounds(ob);\r
+ WorldScrollScreen(ob);\r
+ UpdateScore(scoreobj);\r
+ RF_Refresh();\r
+\r
+ move = tics * 2;\r
+ duration += tics;\r
+\r
+ if (ob->x == globalx && ob->y == globaly)\r
+ break;\r
+\r
+ if (ob->y < globaly)\r
+ {\r
+ ob->y += move;\r
+ if (ob->y > globaly)\r
+ ob->y = globaly;\r
+ }\r
+ else if (ob->y > globaly)\r
+ {\r
+ ob->y -= move;\r
+ if (ob->y < globaly)\r
+ ob->y = globaly;\r
+ }\r
+\r
+ if (ob->x < globalx)\r
+ {\r
+ ob->x += move;\r
+ if (ob->x > globalx)\r
+ ob->x = globalx;\r
+ }\r
+ else if (ob->x > globalx)\r
+ {\r
+ ob->x -= move;\r
+ if (ob->x < globalx)\r
+ ob->x = globalx;\r
+ }\r
+\r
+ ob->shapenum = ((duration / 8) % 3) + WORLDKEENU1SPR;\r
+ RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
+ }\r
+\r
+ //\r
+ // close the elevator door\r
+ //\r
+ SD_PlaySound(SND_ELEVATORDOOR);\r
+ for (i=5; i >= 0; i--)\r
+ {\r
+ for (y=0; y<2; y++)\r
+ {\r
+ for (x=0; x<2; x++)\r
+ {\r
+ tiles[y][x] = *(mapsegs[1]+mapbwidthtable[y]/2 + i*2 + x);\r
+ }\r
+ }\r
+ RF_MemToMap(&tiles[0][0], 1, tileX+dir, tileY-1, 2, 2);\r
+ RF_Refresh();\r
+ VW_WaitVBL(8);\r
+ }\r
+\r
+ //\r
+ // make Keen invisible (and not clipping) and send him to the destination\r
+ //\r
+ RF_RemoveSprite(&ob->sprite);\r
+ info = *(mapsegs[2] + mapbwidthtable[tileY]/2 + tileX);\r
+ ob->temp2 = CONVERT_TILE_TO_GLOBAL(info >> 8);\r
+ ob->temp1 = CONVERT_TILE_TO_GLOBAL((info & 0x7F) + 1); // BUG? y coordinate is limited to 1..127\r
+ if (ob->temp1 < ob->y)\r
+ {\r
+ ob->ydir = -1;\r
+ }\r
+ else\r
+ {\r
+ ob->ydir = 1;\r
+ }\r
+ if (ob->temp2 < ob->x)\r
+ {\r
+ ob->xdir = -1;\r
+ }\r
+ else\r
+ {\r
+ ob->xdir = 1;\r
+ }\r
+ ob->needtoclip = cl_noclip;\r
+ ob->state = &s_worldelevate;\r
+}\r
+\r
+#endif //ifdef KEEN5\r
+\r
+#endif //ifdef KEEN4 ... else ...\r
+\r
+/*\r
+======================\r
+=\r
+= CheckWorldInTiles\r
+=\r
+======================\r
+*/\r
+\r
+void CheckWorldInTiles(objtype *ob)\r
+{\r
+ Uint16 tx, ty, intile;\r
+\r
+ if (ob->temp3)\r
+ return;\r
+\r
+ tx = ob->tilemidx;\r
+ ty = CONVERT_GLOBAL_TO_TILE(ob->top + (ob->bottom-ob->top)/2);\r
+ intile = tinf[INTILE + *(mapsegs[1]+mapbwidthtable[ty]/2+tx)];\r
+#if defined KEEN4\r
+ if (intile == INTILE_SHORESOUTH || intile == INTILE_SHORENORTH\r
+ || intile == INTILE_SHOREEAST || intile == INTILE_SHOREWEST)\r
+ {\r
+ if (!gamestate.wetsuit)\r
+ {\r
+ SD_PlaySound(SND_NOWAY);\r
+ CantSwim();\r
+ RF_ForceRefresh();\r
+ xtry = -ob->xmove;\r
+ ytry = -ob->ymove;\r
+ ob->xdir = ob->ydir = 0;\r
+ ClipToWalls(ob);\r
+ }\r
+ else\r
+ {\r
+ ob->temp1 = tiledir[intile-INTILE_SHORESOUTH];\r
+ if (ob->state == &s_worldswim)\r
+ {\r
+ ob->temp1 = opposite[ob->temp1];\r
+ }\r
+ switch (ob->temp1)\r
+ {\r
+ case dir_North:\r
+ ob->xdir = 0;\r
+ ob->ydir = -1;\r
+ break;\r
+ case dir_East:\r
+ ob->xdir = 1;\r
+ ob->ydir = 0;\r
+ break;\r
+ case dir_South:\r
+ ob->xdir = 0;\r
+ ob->ydir = 1;\r
+ break;\r
+ case dir_West:\r
+ ob->xdir = -1;\r
+ ob->ydir = 0;\r
+ break;\r
+ }\r
+ ob->temp2 = 0;\r
+ ob->temp3 = 18;\r
+ if (ob->state == &s_worldswim)\r
+ {\r
+ ChangeState(ob, &s_worldkeenwalk);\r
+ }\r
+ else\r
+ {\r
+ ChangeState(ob, &s_worldswim);\r
+ }\r
+ }\r
+ }\r
+#elif defined KEEN5\r
+ switch (intile)\r
+ {\r
+ case INTILE_TELEPORT:\r
+ Teleport(tx, ty);\r
+ break;\r
+ case INTILE_ELEVATORLEFT:\r
+ Elevator(tx, ty, 0);\r
+ break;\r
+ case INTILE_ELEVATORRIGHT:\r
+ Elevator(tx, ty, -1);\r
+ break;\r
+ }\r
+#elif defined KEEN6\r
+ switch (intile)\r
+ {\r
+ case INTILE_TELEPORT:\r
+ Teleport(tx, ty);\r
+ break;\r
+ }\r
+#endif\r
+}\r
+\r
+/*\r
+=============================================================================\r
+\r
+ FLAGS\r
+\r
+temp1 = x destination for the thrown flag\r
+temp2 = y destination for the thrown flag\r
+temp3 = amount of time passed since flag was thrown (in tics)\r
+\r
+=============================================================================\r
+*/\r
+\r
+statetype s_flagwave1 = {FLAGFLAP1SPR, FLAGFLAP1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_flagwave2};\r
+statetype s_flagwave2 = {FLAGFLAP2SPR, FLAGFLAP2SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_flagwave3};\r
+statetype s_flagwave3 = {FLAGFLAP3SPR, FLAGFLAP3SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_flagwave4};\r
+statetype s_flagwave4 = {FLAGFLAP4SPR, FLAGFLAP4SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_flagwave1};\r
+\r
+#ifndef KEEN5\r
+statetype s_throwflag0 = {FLAGFLIP1SPR, FLAGFLIP1SPR, think, false, false, 6, 0, 0, TossThink, NULL, R_Draw, &s_throwflag1};\r
+statetype s_throwflag1 = {FLAGFLIP1SPR, FLAGFLIP1SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag2};\r
+statetype s_throwflag2 = {FLAGFLIP2SPR, FLAGFLIP2SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag3};\r
+statetype s_throwflag3 = {FLAGFLIP3SPR, FLAGFLIP3SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag4};\r
+statetype s_throwflag4 = {FLAGFLIP4SPR, FLAGFLIP4SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag5};\r
+statetype s_throwflag5 = {FLAGFALL1SPR, FLAGFALL1SPR, stepthink, false, false, 12, 0, 0, PathThink, NULL, R_Draw, &s_throwflag6};\r
+statetype s_throwflag6 = {FLAGFALL1SPR, FLAGFALL1SPR, stepthink, true, false, 1, 0, 0, FlagAlign, NULL, R_Draw, &s_flagwave1};\r
+#endif\r
+\r
+Sint16 flagx, flagy;\r
+Point flagpath[30];\r
+\r
+/*\r
+======================\r
+=\r
+= SpawnFlag\r
+=\r
+======================\r
+*/\r
+\r
+void SpawnFlag(Sint16 x, Sint16 y)\r
+{\r
+ GetNewObj(false);\r
+ new->needtoclip = cl_noclip;\r
+ new->priority = 3;\r
+ new->obclass = flagobj;\r
+ new->active = ac_yes;\r
+#if defined KEEN4\r
+ new->x = CONVERT_TILE_TO_GLOBAL(x) + 6*PIXGLOBAL;\r
+ new->y = CONVERT_TILE_TO_GLOBAL(y) + -30*PIXGLOBAL;\r
+#elif defined KEEN5\r
+ new->x = CONVERT_TILE_TO_GLOBAL(x) + -5*PIXGLOBAL;\r
+ new->y = CONVERT_TILE_TO_GLOBAL(y) + -30*PIXGLOBAL;\r
+#elif defined KEEN6\r
+ new->x = CONVERT_TILE_TO_GLOBAL(x) + 6*PIXGLOBAL; // useless!\r
+ new->y = CONVERT_TILE_TO_GLOBAL(y) + -30*PIXGLOBAL; // useless!\r
+#if GRMODE == CGAGR\r
+ new->x = CONVERT_TILE_TO_GLOBAL(x) + 10*PIXGLOBAL;\r
+#else\r
+ new->x = CONVERT_TILE_TO_GLOBAL(x) + 14*PIXGLOBAL;\r
+#endif\r
+ new->y = CONVERT_TILE_TO_GLOBAL(y) + -26*PIXGLOBAL;\r
+ {\r
+ Uint16 tile = *(mapsegs[1]+mapbwidthtable[y]/2 + x) + 1;\r
+ RF_MemToMap(&tile, 1, x, y, 1, 1);\r
+ }\r
+#endif\r
+ new->ticcount = US_RndT() / 16;\r
+ NewState(new, &s_flagwave1);\r
+}\r
+\r
+#ifndef KEEN5\r
+/*\r
+======================\r
+=\r
+= SpawnThrowFlag\r
+=\r
+======================\r
+*/\r
+\r
+void SpawnThrowFlag(Sint16 x, Sint16 y)\r
+{\r
+ Sint16 i;\r
+ Sint32 xdist, ydist;\r
+\r
+ GetNewObj(false);\r
+ new->needtoclip = cl_noclip;\r
+ new->priority = 3;\r
+ new->obclass = flagobj;\r
+ new->active = ac_allways;\r
+ new->x = gamestate.worldx - 16*PIXGLOBAL;\r
+ new->y = gamestate.worldy - 16*PIXGLOBAL;\r
+#if defined KEEN4\r
+ new->temp1 = CONVERT_TILE_TO_GLOBAL(x) + 6*PIXGLOBAL;\r
+ new->temp2 = CONVERT_TILE_TO_GLOBAL(y) + -38*PIXGLOBAL;\r
+#elif defined KEEN6\r
+ flagx = x;\r
+ flagy = y;\r
+#if GRMODE == CGAGR\r
+ new->temp1 = CONVERT_TILE_TO_GLOBAL(x) + 10*PIXGLOBAL;\r
+#else\r
+ new->temp1 = CONVERT_TILE_TO_GLOBAL(x) + 14*PIXGLOBAL;\r
+#endif\r
+ new->temp2 = CONVERT_TILE_TO_GLOBAL(y) + -34*PIXGLOBAL;\r
+#endif\r
+ xdist = (Sint32)new->temp1 - (Sint32)new->x;\r
+ ydist = (Sint32)new->temp2 - (Sint32)new->y;\r
+ for (i = 0; i < 30; i++)\r
+ {\r
+ flagpath[i].x = new->x + (xdist * min(i, 24))/24;\r
+ flagpath[i].y = new->y + (ydist * i)/30;\r
+ if (i < 10)\r
+ {\r
+ flagpath[i].y -= i*3*PIXGLOBAL;\r
+ }\r
+ else if (i < 15)\r
+ {\r
+ flagpath[i].y -= i*PIXGLOBAL + 20*PIXGLOBAL;\r
+ }\r
+ else if (i < 20)\r
+ {\r
+ flagpath[i].y -= (20-i)*PIXGLOBAL + 30*PIXGLOBAL;\r
+ }\r
+ else\r
+ {\r
+ flagpath[i].y -= (29-i)*3*PIXGLOBAL;\r
+ }\r
+ }\r
+ NewState(new, &s_throwflag0);\r
+}\r
+\r
+/*\r
+======================\r
+=\r
+= TossThink\r
+=\r
+======================\r
+*/\r
+\r
+void TossThink(objtype *ob)\r
+{\r
+ if (screenfaded)\r
+ return;\r
+\r
+ SD_StopSound();\r
+ SD_PlaySound(SND_FLAGSPIN);\r
+ ob->state = ob->state->nextstate;\r
+}\r
+\r
+/*\r
+======================\r
+=\r
+= PathThink\r
+=\r
+======================\r
+*/\r
+\r
+void PathThink(objtype *ob)\r
+{\r
+ ob->temp3 = ob->temp3 + tics;\r
+ if (ob->temp3 > 58)\r
+ ob->temp3 = 58;\r
+\r
+ ob->x = flagpath[ob->temp3/2].x;\r
+ ob->y = flagpath[ob->temp3/2].y;\r
+ ob->needtoreact = true;\r
+ if (ob->temp1 == 0)\r
+ {\r
+ SD_PlaySound(SND_FLAGSPIN);\r
+ }\r
+}\r
+\r
+/*\r
+======================\r
+=\r
+= FlagAlign\r
+=\r
+======================\r
+*/\r
+\r
+void FlagAlign(objtype *ob)\r
+{\r
+ ob->x = ob->temp1;\r
+ ob->y = ob->temp2 + 8*PIXGLOBAL;\r
+ SD_PlaySound(SND_FLAGLAND);\r
+#ifdef KEEN6\r
+ {\r
+ Uint16 tile = *(mapsegs[1]+mapbwidthtable[flagy]/2 + flagx) + 1;\r
+ RF_MemToMap(&tile, 1, flagx, flagy, 1, 1);\r
+ }\r
+#endif\r
+}\r
+#endif\r
+\r
+/*\r
+=============================================================================\r
+\r
+ NEURAL STUNNER\r
+\r
+=============================================================================\r
+*/\r
+statetype s_stunray1 = {STUN1SPR, STUN1SPR, slide, false, false, 6, 64, 64, T_Shot, NULL, R_Shot, &s_stunray2};\r
+statetype s_stunray2 = {STUN2SPR, STUN2SPR, slide, false, false, 6, 64, 64, T_Shot, NULL, R_Shot, &s_stunray3};\r
+statetype s_stunray3 = {STUN3SPR, STUN3SPR, slide, false, false, 6, 64, 64, T_Shot, NULL, R_Shot, &s_stunray4};\r
+statetype s_stunray4 = {STUN4SPR, STUN4SPR, slide, false, false, 6, 64, 64, T_Shot, NULL, R_Shot, &s_stunray1};\r
+\r
+statetype s_stunhit = {STUNHIT1SPR, STUNHIT1SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, &s_stunhit2};\r
+statetype s_stunhit2 = {STUNHIT2SPR, STUNHIT2SPR, step, false, false, 12, 0, 0, NULL, NULL, R_Draw, NULL};\r
+\r
+/*\r
+======================\r
+=\r
+= SpawnShot\r
+=\r
+======================\r
+*/\r
+\r
+void SpawnShot(Uint16 x, Uint16 y, Direction dir)\r
+{\r
+ if (!gamestate.ammo)\r
+ {\r
+ SD_PlaySound(SND_USESWITCH);\r
+ return;\r
+ }\r
+\r
+ gamestate.ammo--;\r
+ GetNewObj(true);\r
+ new->x = x;\r
+ new->y = y;\r
+ new->priority = 0;\r
+ new->obclass = stunshotobj;\r
+ new->active = ac_allways;\r
+ SD_PlaySound(SND_KEENFIRE);\r
+ switch (dir)\r
+ {\r
+ case dir_North:\r
+ new->xdir = 0;\r
+ new->ydir = -1;\r
+ break;\r
+ case dir_East:\r
+ new->xdir = 1;\r
+ new->ydir = 0;\r
+ break;\r
+ case dir_South:\r
+ new->xdir = 0;\r
+ new->ydir = 1;\r
+ break;\r
+ case dir_West:\r
+ new->xdir = -1;\r
+ new->ydir = 0;\r
+ break;\r
+ default:\r
+ Quit("SpawnShot: Bad dir!");\r
+ break;\r
+ }\r
+ NewState(new, &s_stunray1);\r
+\r
+#ifdef KEEN6\r
+ {\r
+ objtype *ob;\r
+\r
+ for (ob=player->next; ob; ob=ob->next)\r
+ {\r
+ if (ob->active\r
+ && new->right > ob->left && new->left < ob->right\r
+ && new->top < ob->bottom && new->bottom > ob->top\r
+ && ob->state->contact)\r
+ {\r
+ ob->state->contact(ob, new);\r
+ return;\r
+ }\r
+ }\r
+ }\r
+#endif\r
+}\r
+\r
+/*\r
+======================\r
+=\r
+= ExplodeShot\r
+=\r
+======================\r
+*/\r
+\r
+void ExplodeShot(objtype *ob)\r
+{\r
+ ob->obclass = inertobj;\r
+ ChangeState(ob, &s_stunhit);\r
+ SD_PlaySound(SND_SHOTEXPLODE);\r
+}\r
+\r
+/*\r
+======================\r
+=\r
+= T_Shot\r
+=\r
+======================\r
+*/\r
+\r
+void T_Shot(objtype *ob)\r
+{\r
+ objtype *ob2;\r
+\r
+ if (ob->tileright >= originxtile && ob->tilebottom >= originytile\r
+ && ob->tileleft <= originxtilemax && ob->tiletop <= originytilemax)\r
+ {\r
+ //object is visible, so do nothing\r
+ return;\r
+ }\r
+\r
+ if (ob->tileright+10 < originxtile\r
+ || ob->tileleft-10 > originxtilemax\r
+ || ob->tilebottom+6 < originytile\r
+ || ob->tiletop-6 > originytilemax)\r
+ {\r
+ //shot is off-screen by more than half a screen, so remove it\r
+ RemoveObj(ob);\r
+ return;\r
+ }\r
+\r
+ //check for collisions with INACTIVE objects\r
+ for (ob2 = player->next; ob2; ob2 = ob2->next)\r
+ {\r
+ if (!ob2->active && ob->right > ob2->left && ob->left < ob2->right\r
+ && ob->top < ob2->bottom && ob->bottom > ob2->top)\r
+ {\r
+ if (ob2->state->contact)\r
+ {\r
+ ob2->state->contact(ob2, ob);\r
+ ob2->needtoreact = true;\r
+ ob2->active = ac_yes;\r
+ }\r
+\r
+ if (ob->obclass == nothing) //BUG: obclass is 'inertobj' for the exploded shot\r
+ break;\r
+ }\r
+ }\r
+}\r
+\r
+/*\r
+======================\r
+=\r
+= R_Shot\r
+=\r
+======================\r
+*/\r
+\r
+void R_Shot(objtype *ob)\r
+{\r
+ Uint16 tile;\r
+\r
+ if (ob->hitnorth == 1 && ob->tileleft != ob->tileright)\r
+ {\r
+ tile = *(mapsegs[1]+mapbwidthtable[ob->tiletop-1]/2+ob->tileright);\r
+ if (tinf[NORTHWALL+tile] == 17)\r
+ {\r
+ ob->hitnorth = 17;\r
+ ob->x += 0x100 - (ob->x & 0xFF);\r
+ }\r
+ }\r
+ else if (ob->hitnorth == 17 && ob->tileleft != ob->tileright)\r
+ {\r
+ ob->x &= 0xFF00;\r
+ }\r
+ if (ob->hitsouth == 1 && ob->tileleft != ob->tileright)\r
+ {\r
+ tile = *(mapsegs[1]+mapbwidthtable[ob->tilebottom+1]/2+ob->tileright);\r
+ if (tinf[SOUTHWALL+tile] == 17)\r
+ {\r
+ ob->hitsouth = 17;\r
+ ob->x += 0x100 - (ob->x & 0xFF);\r
+ }\r
+ }\r
+ else if (ob->hitsouth == 17 && ob->tileleft != ob->tileright)\r
+ {\r
+ ob->x &= 0xFF00;\r
+ }\r
+ if (ob->hitnorth == 17 || ob->hitsouth == 17)\r
+ {\r
+ ytry = ob->state->ymove * tics * ob->ydir;\r
+ ob->y += ytry;\r
+ ob->top += ytry;\r
+ ob->bottom += ytry;\r
+ ob->tiletop = CONVERT_GLOBAL_TO_TILE(ob->top);\r
+ ob->tilebottom = CONVERT_GLOBAL_TO_TILE(ob->bottom);\r
+ }\r
+ else if (ob->hitnorth || ob->hitsouth || ob->hiteast || ob->hitwest)\r
+ {\r
+ ExplodeShot(ob);\r
+ }\r
+ RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
+}\r
+\r
+/*\r
+=============================================================================\r
+\r
+ DOOR\r
+\r
+temp1 = height of the door's main section (identical tiles!), in tiles\r
+ DoorOpen changes two more tiles at the bottom end of the door\r
+ (total door height in tiles is temp1 + 2)\r
+\r
+=============================================================================\r
+*/\r
+\r
+statetype s_door1 = {0, 0, step, false, false, 10, 0, 0, DoorOpen, NULL, NULL, &s_door2};\r
+statetype s_door2 = {0, 0, step, false, false, 10, 0, 0, DoorOpen, NULL, NULL, &s_door3};\r
+statetype s_door3 = {0, 0, step, false, false, 10, 0, 0, DoorOpen, NULL, NULL, NULL};\r
+\r
+/*\r
+======================\r
+=\r
+= DoorOpen\r
+=\r
+======================\r
+*/\r
+\r
+void DoorOpen(objtype *ob)\r
+{\r
+ Sint16 i;\r
+ Uint16 far *map;\r
+ Uint16 tiles[50];\r
+\r
+ map = mapsegs[1] + mapbwidthtable[ob->y]/2 + ob->x;\r
+ for (i=0; i < ob->temp1+2; i++, map+=mapwidth)\r
+ {\r
+ tiles[i] = *map + 1;\r
+ }\r
+ RF_MemToMap(tiles, 1, ob->x, ob->y, 1, ob->temp1+2);\r
+}\r
+\r
+#ifdef KEEN5\r
+/*\r
+=============================================================================\r
+\r
+ CARD DOOR\r
+\r
+temp1 = frame counter\r
+\r
+=============================================================================\r
+*/\r
+statetype s_carddoor = {0, 0, step, false, false, 15, 0, 0, CardDoorOpen, NULL, NULL, &s_carddoor};\r
+\r
+/*\r
+======================\r
+=\r
+= CardDoorOpen\r
+=\r
+======================\r
+*/\r
+\r
+void CardDoorOpen(objtype *ob)\r
+{\r
+ Sint16 x, y;\r
+ Uint16 far *map;\r
+ Uint16 tiles[16], *tileptr;\r
+\r
+ tileptr = tiles;\r
+ map = mapsegs[1] + mapbwidthtable[ob->y]/2 + ob->x;\r
+ for (y=0; y<4; y++, map+=mapwidth)\r
+ {\r
+ for (x=0; x<4; x++)\r
+ {\r
+ *tileptr++ = map[x]-4;\r
+ }\r
+ }\r
+ RF_MemToMap(tiles, 1, ob->x, ob->y, 4, 4);\r
+\r
+ if (++ob->temp1 == 3)\r
+ ob->state = NULL;\r
+}\r
+\r
+#endif
\ No newline at end of file
projects / 16.git / blobdiff