--- /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
+K4_ACT1.C\r
+=========\r
+\r
+Contains the following actor types (in this order):\r
+\r
+- Miragia (world map)\r
+- Bonus Items\r
+- Council Member\r
+- Poison Slug\r
+- Mad Mushroom\r
+- Egg & Eggbird\r
+- Arachnut\r
+- Skypest\r
+\r
+*/\r
+\r
+#include "CK_DEF.H"\r
+\r
+/*\r
+=============================================================================\r
+\r
+ MIRAGIA\r
+\r
+=============================================================================\r
+*/\r
+\r
+statetype s_miragia0 = {0, 0, step, false, false, 300, 0, 0, T_Miragia0, NULL, NULL, &s_miragia1};\r
+statetype s_miragia1 = {0, 0, step, false, false, 30, 0, 0, T_Miragia1, NULL, NULL, &s_miragia2};\r
+statetype s_miragia2 = {0, 0, step, false, false, 30, 0, 0, T_Miragia2, NULL, NULL, &s_miragia3};\r
+statetype s_miragia3 = {0, 0, step, false, false, 30, 0, 0, T_Miragia3, NULL, NULL, &s_miragia4};\r
+statetype s_miragia4 = {0, 0, step, false, false, 300, 0, 0, T_Miragia4, NULL, NULL, &s_miragia5};\r
+statetype s_miragia5 = {0, 0, step, false, false, 30, 0, 0, T_Miragia5, NULL, NULL, &s_miragia6};\r
+statetype s_miragia6 = {0, 0, step, false, false, 30, 0, 0, T_Miragia6, NULL, NULL, &s_miragia7};\r
+statetype s_miragia7 = {0, 0, step, false, false, 30, 0, 0, T_Miragia7, NULL, NULL, &s_miragia0};\r
+\r
+/*\r
+===========================\r
+=\r
+= SpawnMiragia\r
+=\r
+===========================\r
+*/\r
+\r
+void SpawnMiragia(Sint16 x, Sint16 y)\r
+{\r
+ GetNewObj(false);\r
+ new->obclass = inertobj;\r
+ new->active = ac_allways;\r
+ new->x = x;\r
+ new->y = y;\r
+ new->state = &s_miragia0;\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_Miragia0\r
+=\r
+===========================\r
+*/\r
+\r
+void T_Miragia0(objtype *ob)\r
+{\r
+ if (player->tileright >= ob->x && player->tileleft <= ob->x+5\r
+ && player->tiletop >= ob->y && player->tilebottom <= ob->y+4)\r
+ {\r
+ //don't let miragia appear if player is in the area, so player won't get stuck\r
+ ob->state = &s_miragia7;\r
+ }\r
+ else\r
+ {\r
+ RF_MapToMap(8, 60, ob->x, ob->y, 6, 4);\r
+ }\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_Miragia1\r
+=\r
+===========================\r
+*/\r
+\r
+void T_Miragia1(objtype *ob)\r
+{\r
+ RF_MapToMap(14, 60, ob->x, ob->y, 6, 4);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_Miragia2\r
+=\r
+===========================\r
+*/\r
+\r
+void T_Miragia2(objtype *ob)\r
+{\r
+ RF_MapToMap(20, 60, ob->x, ob->y, 6, 4);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_Miragia3\r
+=\r
+===========================\r
+*/\r
+\r
+void T_Miragia3(objtype *ob)\r
+{\r
+ RF_MapToMap(26, 60, ob->x, ob->y, 6, 4);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_Miragia4\r
+=\r
+===========================\r
+*/\r
+\r
+void T_Miragia4(objtype *ob)\r
+{\r
+ RF_MapToMap(20, 60, ob->x, ob->y, 6, 4);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_Miragia5\r
+=\r
+===========================\r
+*/\r
+\r
+void T_Miragia5(objtype *ob)\r
+{\r
+ RF_MapToMap(14, 60, ob->x, ob->y, 6, 4);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_Miragia6\r
+=\r
+===========================\r
+*/\r
+\r
+void T_Miragia6(objtype *ob)\r
+{\r
+ RF_MapToMap(8, 60, ob->x, ob->y, 6, 4);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_Miragia7\r
+=\r
+===========================\r
+*/\r
+\r
+void T_Miragia7(objtype *ob)\r
+{\r
+ RF_MapToMap(2, 60, ob->x, ob->y, 6, 4);\r
+}\r
+\r
+/*\r
+=============================================================================\r
+\r
+ BONUS ITEMS\r
+\r
+temp1 = bonus type\r
+temp2 = base shape number\r
+temp3 = last animated shape number +1\r
+\r
+=============================================================================\r
+*/\r
+\r
+statetype s_bonus1 = {0, 0, step, false, false, 20, 0, 0, T_Bonus, NULL, R_Draw, &s_bonus2};\r
+statetype s_bonus2 = {0, 0, step, false, false, 20, 0, 0, T_Bonus, NULL, R_Draw, &s_bonus1};\r
+statetype s_bonusrise = {0, 0, slide, false, false, 40, 0, 8, NULL, NULL, R_Draw, NULL};\r
+\r
+statetype s_splash1 = {DROPSPLASH1SPR, DROPSPLASH1SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_splash2};\r
+statetype s_splash2 = {DROPSPLASH2SPR, DROPSPLASH2SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, &s_splash3};\r
+statetype s_splash3 = {DROPSPLASH3SPR, DROPSPLASH3SPR, step, false, false, 10, 0, 0, NULL, NULL, R_Draw, NULL};\r
+\r
+Uint16 bonusshape[] = {REDGEM1SPR, YELLOWGEM1SPR, BLUEGEM1SPR, GREENGEM1SPR, SUGAR1ASPR, SUGAR2ASPR, SUGAR3ASPR, SUGAR4ASPR, SUGAR5ASPR, SUGAR6ASPR, ONEUPASPR, STUNCLIP1SPR};\r
+\r
+/*\r
+===========================\r
+=\r
+= SpawnBonus\r
+=\r
+===========================\r
+*/\r
+\r
+void SpawnBonus(Sint16 x, Sint16 y, Sint16 type)\r
+{\r
+ GetNewObj(false);\r
+ new->needtoclip = cl_noclip;\r
+ new->priority = 2;\r
+ new->obclass = bonusobj;\r
+ new->x = CONVERT_TILE_TO_GLOBAL(x);\r
+ new->y = CONVERT_TILE_TO_GLOBAL(y);\r
+ new->ydir = -1;\r
+ new->temp1 = type;\r
+ new->temp2 = new->shapenum = bonusshape[type];\r
+ new->temp3 = new->temp2 + 2;\r
+ NewState(new, &s_bonus1);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= SpawnSplash\r
+=\r
+===========================\r
+*/\r
+\r
+void SpawnSplash(Sint16 x, Sint16 y)\r
+{\r
+ GetNewObj(true);\r
+ new->needtoclip = cl_noclip;\r
+ new->priority = 3;\r
+ new->obclass = inertobj;\r
+ new->x = CONVERT_TILE_TO_GLOBAL(x);\r
+ new->y = CONVERT_TILE_TO_GLOBAL(y);\r
+ NewState(new, &s_splash1);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_Bonus\r
+=\r
+===========================\r
+*/\r
+\r
+void T_Bonus(objtype *ob)\r
+{\r
+ ob->shapenum++;\r
+ if (ob->shapenum == ob->temp3)\r
+ ob->shapenum = ob->temp2;\r
+}\r
+\r
+/*\r
+=============================================================================\r
+\r
+ COUNCIL MEMBER\r
+\r
+=============================================================================\r
+*/\r
+\r
+statetype s_councilwalk1 = {COUNCILWALKL1SPR, COUNCILWALKR1SPR, step, false, true, 10, 64, 0, T_Council, NULL, R_Walk, &s_councilwalk2};\r
+statetype s_councilwalk2 = {COUNCILWALKL2SPR, COUNCILWALKR2SPR, step, false, true, 10, 64, 0, T_Council, NULL, R_Walk, &s_councilwalk1};\r
+statetype s_councilstand = {COUNCILTHINKLSPR, COUNCILTHINKRSPR, step, false, false, 120, 128, 0, NULL, NULL, R_Draw, &s_councilwalk1};\r
+\r
+/*\r
+===========================\r
+=\r
+= SpawnCouncil\r
+=\r
+===========================\r
+*/\r
+\r
+void SpawnCouncil(Sint16 x, Sint16 y)\r
+{\r
+ GetNewObj(false);\r
+ new->obclass = oracleobj;\r
+ new->active = ac_yes;\r
+ new->priority = 0;\r
+ new->x = CONVERT_TILE_TO_GLOBAL(x);\r
+ new->y = CONVERT_TILE_TO_GLOBAL(y) -0x171; //TODO: wierd\r
+ if (US_RndT() < 0x80)\r
+ {\r
+ new->xdir = 1;\r
+ }\r
+ else\r
+ {\r
+ new->xdir = -1;\r
+ }\r
+ new->ydir = 1;\r
+ NewState(new, &s_councilwalk1);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_Council\r
+=\r
+===========================\r
+*/\r
+\r
+void T_Council(objtype *ob)\r
+{\r
+ Uint16 randnum;\r
+\r
+ randnum = US_RndT();\r
+ if (tics*8 > randnum)\r
+ {\r
+ // BUG: might be about to move off a ledge, causing it to get stuck\r
+ // after standing (the stand state doesn't use R_Walk)!\r
+ // To avoid that, set xtry to 0 here.\r
+ ob->state = &s_councilstand;\r
+ }\r
+}\r
+\r
+/*\r
+=============================================================================\r
+\r
+ POINSON SLUG\r
+\r
+=============================================================================\r
+*/\r
+\r
+statetype s_slugwalk1 = {SLUGWALKL1SPR, SLUGWALKR1SPR, step, false, true, 8, 64, 0, NULL, C_Slug, R_WalkNormal, &s_slugwalk2};\r
+statetype s_slugwalk2 = {SLUGWALKL2SPR, SLUGWALKR2SPR, step, false, true, 8, 64, 0, T_Slug, C_Slug, R_WalkNormal, &s_slugwalk1};\r
+statetype s_slugpiss1 = {SLUGPISSLSPR, SLUGPISSRSPR, step, false, true, 60, 64, 0, T_SlugPiss, C_Slug, R_WalkNormal, &s_slugwalk1};\r
+statetype s_slugstun = {SLUGSTUN1SPR, SLUGSTUN1SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
+statetype s_slugstunalt = {SLUGSTUN2SPR, SLUGSTUN2SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Stunned, NULL};\r
+statetype s_slugslime = {SLUGSLIME1SPR, SLUGSLIME1SPR, step, false, false, 300, 0, 0, NULL, C_Lethal, R_Draw, &s_slugslime2};\r
+statetype s_slugslime2 = {SLUGSLIME2SPR, SLUGSLIME2SPR, step, false, false, 60, 0, 0, NULL, NULL, R_Draw, NULL};\r
+\r
+/*\r
+===========================\r
+=\r
+= SpawnSlug\r
+=\r
+===========================\r
+*/\r
+\r
+void SpawnSlug(Sint16 x, Sint16 y)\r
+{\r
+ GetNewObj(false);\r
+ new->obclass = slugobj;\r
+ new->active = ac_yes;\r
+ new->priority = 2;\r
+ new->x = CONVERT_TILE_TO_GLOBAL(x);\r
+ new->y = CONVERT_TILE_TO_GLOBAL(y) - 0x71;\r
+ if (US_RndT() < 0x80)\r
+ {\r
+ new->xdir = 1;\r
+ }\r
+ else\r
+ {\r
+ new->xdir = -1;\r
+ }\r
+ new->ydir = 1;\r
+ NewState(new, &s_slugwalk1);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_Slug\r
+=\r
+===========================\r
+*/\r
+\r
+void T_Slug(objtype *ob)\r
+{\r
+ if (US_RndT() < 16)\r
+ {\r
+ if (ob->x < player->x)\r
+ {\r
+ ob->xdir = 1;\r
+ }\r
+ else\r
+ {\r
+ ob->xdir = -1;\r
+ }\r
+ ob->state = &s_slugpiss1;\r
+ SD_PlaySound(SND_SLUGPOO);\r
+ // Note: might be a good idea to set xtry to 0 here\r
+ }\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_SlugPiss\r
+=\r
+===========================\r
+*/\r
+\r
+void T_SlugPiss(objtype *ob)\r
+{\r
+ GetNewObj(true);\r
+ new->obclass = inertobj;\r
+ new->active = ac_removable;\r
+ new->priority = 0;\r
+ new->x = ob->x;\r
+ new->y = ob->bottom - 8*PIXGLOBAL;\r
+ NewState(new, &s_slugslime);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= C_Slug\r
+=\r
+===========================\r
+*/\r
+\r
+void C_Slug(objtype *ob, objtype *hit)\r
+{\r
+ if (hit->obclass == keenobj)\r
+ {\r
+ KillKeen();\r
+ }\r
+ else if (hit->obclass == stunshotobj)\r
+ {\r
+ if (US_RndT() < 0x80)\r
+ {\r
+ StunObj(ob, hit, &s_slugstun);\r
+ }\r
+ else\r
+ {\r
+ StunObj(ob, hit, &s_slugstunalt);\r
+ }\r
+ ob->yspeed = -24;\r
+ ob->xspeed = ob->xdir*8;\r
+ }\r
+}\r
+\r
+/*\r
+=============================================================================\r
+\r
+ MAD MUSHROOM\r
+\r
+temp1 = jump counter\r
+\r
+=============================================================================\r
+*/\r
+\r
+statetype s_mushroom1 = {MADMUSHROOML1SPR, MADMUSHROOMR1SPR, stepthink, false, false, 8, 0, 0, T_Mushroom, C_Mushroom, R_Mushroom, &s_mushroom2};\r
+statetype s_mushroom2 = {MADMUSHROOML2SPR, MADMUSHROOMR2SPR, stepthink, false, false, 8, 0, 0, T_Mushroom, C_Mushroom, R_Mushroom, &s_mushroom1};\r
+\r
+/*\r
+===========================\r
+=\r
+= SpawnMadMushroom\r
+=\r
+===========================\r
+*/\r
+\r
+void SpawnMadMushroom(Sint16 x, Sint16 y)\r
+{\r
+ GetNewObj(false);\r
+ new->obclass = madmushroomobj;\r
+ new->active = ac_yes;\r
+ new->priority = 0;\r
+ new->x = CONVERT_TILE_TO_GLOBAL(x);\r
+ new->y = CONVERT_TILE_TO_GLOBAL(y) - 0xF1;\r
+ new->xdir = 1;\r
+ new->ydir = 1;\r
+ NewState(new, &s_mushroom1);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_Mushroom\r
+=\r
+===========================\r
+*/\r
+\r
+void T_Mushroom(objtype *ob)\r
+{\r
+ if (player->x < ob->x)\r
+ {\r
+ ob->xdir = -1;\r
+ }\r
+ else\r
+ {\r
+ ob->xdir = 1;\r
+ }\r
+\r
+ // BUG: this might be executed twice during the same frame if the\r
+ // object's animation/state changed during that frame, causing the\r
+ // object to move at twice the speed during that frame!\r
+ // To avoid that, return if ytry is not 0.\r
+ DoWeakGravity(ob);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= C_Mushroom\r
+=\r
+===========================\r
+*/\r
+\r
+void C_Mushroom(objtype *ob, objtype *hit)\r
+{\r
+ ob++; // shut up compiler\r
+ if (hit->obclass == stunshotobj)\r
+ {\r
+ ExplodeShot(hit);\r
+ }\r
+ else if (hit->obclass == keenobj)\r
+ {\r
+ KillKeen();\r
+ }\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= R_Mushroom\r
+=\r
+===========================\r
+*/\r
+\r
+void R_Mushroom(objtype *ob)\r
+{\r
+ if (ob->hitsouth)\r
+ ob->yspeed = 0;\r
+\r
+ if (ob->hitnorth)\r
+ {\r
+ ob->yspeed = 0;\r
+ if (++ob->temp1 == 3)\r
+ {\r
+ ob->temp1 = 0;\r
+ ob->yspeed = -68;\r
+ SD_PlaySound(SND_BOUNCE2);\r
+ }\r
+ else\r
+ {\r
+ SD_PlaySound(SND_BOUNCE1);\r
+ ob->yspeed = -40;\r
+ }\r
+ }\r
+ RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
+}\r
+\r
+/*\r
+=============================================================================\r
+\r
+ EGGBIRD\r
+\r
+temp1 = blocked flag for flying eggbird (cannot change xdir to chase Keen\r
+ while this is non-zero)\r
+\r
+=============================================================================\r
+*/\r
+\r
+statetype s_egg = {EGGSPR, EGGSPR, think, false, true, 8, 0, 0, NULL, C_Egg, R_Draw, NULL};\r
+statetype s_eggbroke = {EGGBROKESPR, EGGBROKESPR, step, false, false, 30000, 0, 0, NULL, NULL, R_Draw, NULL};\r
+statetype s_eggchip1 = {EGGCHIP1SPR, EGGCHIP1SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Chip, NULL};\r
+statetype s_eggchip2 = {EGGCHIP2SPR, EGGCHIP2SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Chip, NULL};\r
+statetype s_eggchip3 = {EGGCHIP3SPR, EGGCHIP3SPR, think, false, false, 0, 0, 0, T_Projectile, NULL, R_Chip, NULL};\r
+\r
+statetype s_eggbirdpause = {BIRDWALKL1SPR, BIRDWALKR1SPR, step, false, true, 120, 128, 0, NULL, C_EggbirdStun, R_Eggbird, &s_eggbirdwalk2};\r
+statetype s_eggbirdwalk1 = {BIRDWALKL1SPR, BIRDWALKR1SPR, step, false, true, 7, 128, 0, NULL, C_Eggbird, R_Eggbird, &s_eggbirdwalk2};\r
+statetype s_eggbirdwalk2 = {BIRDWALKL2SPR, BIRDWALKR2SPR, step, false, true, 7, 128, 0, NULL, C_Eggbird, R_Eggbird, &s_eggbirdwalk3};\r
+statetype s_eggbirdwalk3 = {BIRDWALKL3SPR, BIRDWALKR3SPR, step, false, true, 7, 128, 0, NULL, C_Eggbird, R_Eggbird, &s_eggbirdwalk4};\r
+statetype s_eggbirdwalk4 = {BIRDWALKL4SPR, BIRDWALKR4SPR, step, false, true, 7, 128, 0, T_Eggbird, C_Eggbird, R_Eggbird, &s_eggbirdwalk1};\r
+statetype s_eggbirdfly1 = {BIRDFLY1SPR, BIRDFLY1SPR, slidethink, false, false, 8, 0, 0, T_EggbirdFly, C_Eggbird, R_Eggbirdfly, &s_eggbirdfly2};\r
+statetype s_eggbirdfly2 = {BIRDFLY2SPR, BIRDFLY2SPR, slidethink, false, false, 8, 0, 0, T_EggbirdFly, C_Eggbird, R_Eggbirdfly, &s_eggbirdfly3};\r
+statetype s_eggbirdfly3 = {BIRDFLY3SPR, BIRDFLY3SPR, slidethink, false, false, 8, 0, 0, T_EggbirdFly, C_Eggbird, R_Eggbirdfly, &s_eggbirdfly4};\r
+statetype s_eggbirdfly4 = {BIRDFLY4SPR, BIRDFLY4SPR, slidethink, false, false, 8, 0, 0, T_EggbirdFly, C_Eggbird, R_Eggbirdfly, &s_eggbirdfly1};\r
+statetype s_eggbirddrop = {BIRDFLY4SPR, BIRDFLY4SPR, think, false, false, 8, 128, 0, T_WeakProjectile, C_Eggbird, R_EggbirdDrop, NULL};\r
+statetype s_eggbirdstun = {BIRDSTUNSPR, BIRDSTUNSPR, stepthink, false, false, 240, 0, 0, T_Projectile, C_EggbirdStun, R_Draw, &s_eggbirdstun2};\r
+statetype s_eggbirdstun2 = {BIRDWALKL1SPR, BIRDWALKR1SPR, step, false, true, 20, 0, 0, NULL, C_EggbirdStun, R_Draw, &s_eggbirdstun3};\r
+statetype s_eggbirdstun3 = {BIRDSTUNSPR, BIRDSTUNSPR, step, false, true, 20, 0, 0, NULL, C_EggbirdStun, R_Draw, &s_eggbirdstun4};\r
+statetype s_eggbirdstun4 = {BIRDWALKL1SPR, BIRDWALKR1SPR, step, false, true, 20, 0, 0, NULL, C_EggbirdStun, R_Draw, &s_eggbirdstun5};\r
+statetype s_eggbirdstun5 = {BIRDSTUNSPR, BIRDSTUNSPR, step, false, true, 20, 0, 0, T_EggUnstun, C_EggbirdStun, R_Draw, &s_eggbirdwalk1};\r
+\r
+/*\r
+===========================\r
+=\r
+= SpawnEggbird\r
+=\r
+===========================\r
+*/\r
+\r
+void SpawnEggbird(Sint16 x, Sint16 y)\r
+{\r
+ GetNewObj(false);\r
+ new->obclass = eggobj;\r
+ new->active = ac_yes;\r
+ new->priority = 2;\r
+ new->x = CONVERT_TILE_TO_GLOBAL(x);\r
+ new->y = CONVERT_TILE_TO_GLOBAL(y) - 0x71;\r
+ new->xdir = 1;\r
+ new->ydir = 1;\r
+ NewState(new, &s_egg);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_EggUnstun\r
+=\r
+===========================\r
+*/\r
+\r
+void T_EggUnstun(objtype *ob)\r
+{\r
+ ob->obclass = eggbirdobj;\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= SpawnEggbirdOut\r
+=\r
+===========================\r
+*/\r
+\r
+void SpawnEggbirdOut(Sint16 x, Sint16 y)\r
+{\r
+ GetNewObj(true);\r
+ new->obclass = eggbirdobj;\r
+ new->active = ac_yes;\r
+ new->priority = 2;\r
+ new->x = CONVERT_TILE_TO_GLOBAL(x);\r
+ new->y = CONVERT_TILE_TO_GLOBAL(y) - 0xF1;\r
+ if (new->x < player->x)\r
+ {\r
+ new->xdir = 1;\r
+ }\r
+ else\r
+ {\r
+ new->xdir = -1;\r
+ }\r
+ new->ydir = 1;\r
+ NewState(new, &s_eggbirdpause);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= C_Egg\r
+=\r
+===========================\r
+*/\r
+\r
+void C_Egg(objtype *ob, objtype *hit)\r
+{\r
+ if (hit->obclass == stunshotobj || hit->obclass == keenobj)\r
+ {\r
+ if (hit->obclass == stunshotobj)\r
+ ExplodeShot(hit);\r
+\r
+ ob->obclass = inertobj;\r
+ ob->active = ac_removable;\r
+ ChangeState(ob, &s_eggbroke);\r
+\r
+ GetNewObj(true);\r
+ new->obclass = eggbirdobj;\r
+ new->active = ac_yes;\r
+ new->x = ob->x;\r
+ new->y = ob->y - 8*PIXGLOBAL;\r
+ if (ob->x < player->x)\r
+ {\r
+ new->xdir = 1;\r
+ }\r
+ else\r
+ {\r
+ new->xdir = -1;\r
+ }\r
+ new->ydir = 1;\r
+ NewState(new, &s_eggbirdpause);\r
+\r
+ GetNewObj(true);\r
+ new->obclass = inertobj;\r
+ new->active = ac_removable;\r
+ new->x = ob->x;\r
+ new->y = ob->y;\r
+ new->xspeed = -28;\r
+ new->yspeed = -40;\r
+ NewState(new, &s_eggchip1);\r
+\r
+ GetNewObj(true);\r
+ new->obclass = inertobj;\r
+ new->active = ac_removable;\r
+ new->x = ob->x;\r
+ new->y = ob->y;\r
+ new->xspeed = 28;\r
+ new->yspeed = -40;\r
+ NewState(new, &s_eggchip2);\r
+\r
+ GetNewObj(true);\r
+ new->obclass = inertobj;\r
+ new->active = ac_removable;\r
+ new->x = ob->x;\r
+ new->y = ob->y;\r
+ new->xspeed = 0;\r
+ new->yspeed = -56;\r
+ NewState(new, &s_eggchip3);\r
+ }\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_Eggbird\r
+=\r
+===========================\r
+*/\r
+\r
+void T_Eggbird(objtype *ob)\r
+{\r
+ if (ob->x < player->x)\r
+ {\r
+ ob->xdir = 1;\r
+ }\r
+ else\r
+ {\r
+ ob->xdir = -1;\r
+ }\r
+ if (ob->bottom >= player->bottom + 3*TILEGLOBAL && player->hitnorth\r
+ && StatePositionOk(ob, &s_eggbirdfly1)) // BUG: StatePositionOk() only works for normal clipping, not for full clipping\r
+ {\r
+ // Note: might be a good idea to set xtry to 0 here\r
+ ob->state = &s_eggbirdfly1;\r
+ ob->needtoclip = cl_fullclip;\r
+ ob->yspeed = -8;\r
+ ob->temp1 = 0;\r
+ }\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_EggbirdFly\r
+=\r
+===========================\r
+*/\r
+\r
+void T_EggbirdFly(objtype *ob)\r
+{\r
+ if (ob->temp1 == 0)\r
+ {\r
+ if (ob->x < player->x)\r
+ {\r
+ ob->xdir = 1;\r
+ }\r
+ else\r
+ {\r
+ ob->xdir = -1;\r
+ }\r
+ }\r
+ AccelerateXv(ob, ob->xdir, 16);\r
+ if (ob->y < player->y)\r
+ {\r
+ AccelerateY(ob, 1, 16);\r
+ }\r
+ else\r
+ {\r
+ AccelerateY(ob, -1, 16);\r
+ }\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= C_Eggbird\r
+=\r
+===========================\r
+*/\r
+\r
+void C_Eggbird(objtype *ob, objtype *hit)\r
+{\r
+ if (hit->obclass == keenobj)\r
+ {\r
+ KillKeen();\r
+ }\r
+ else if (hit->obclass == stunshotobj)\r
+ {\r
+ ob->xspeed = 0;\r
+ ob->needtoclip = cl_midclip;\r
+ StunObj(ob, hit, &s_eggbirdstun);\r
+ }\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= C_EggbirdStun\r
+=\r
+===========================\r
+*/\r
+\r
+void C_EggbirdStun(objtype *ob, objtype *hit)\r
+{\r
+ if (hit->obclass == stunshotobj)\r
+ {\r
+ ob->xspeed = 0;\r
+ StunObj(ob, hit, &s_eggbirdstun);\r
+ }\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= R_Eggbird\r
+=\r
+===========================\r
+*/\r
+\r
+void R_Eggbird(objtype *ob)\r
+{\r
+ if (ob->xdir == 1 && ob->hitwest)\r
+ {\r
+ ob->x -= ob->xmove;\r
+ ob->xdir = -1;\r
+ ob->nothink = US_RndT() >> 5;\r
+ ChangeState(ob, ob->state);\r
+ }\r
+ else if (ob->xdir == -1 && ob->hiteast)\r
+ {\r
+ ob->x -= ob->xmove;\r
+ ob->xdir = 1;\r
+ ob->nothink = US_RndT() >> 5;\r
+ ChangeState(ob, ob->state);\r
+ }\r
+ if (!ob->hitnorth)\r
+ {\r
+ ob->yspeed = -16;\r
+ ob->needtoclip = cl_fullclip;\r
+ ChangeState(ob, &s_eggbirdfly1);\r
+ }\r
+ RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= R_EggbirdDrop\r
+=\r
+===========================\r
+*/\r
+\r
+void R_EggbirdDrop(objtype *ob) //never actually used\r
+{\r
+ if (ob->hitnorth)\r
+ {\r
+ ChangeState(ob, &s_eggbirdwalk1);\r
+ }\r
+ RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= R_Chip\r
+=\r
+===========================\r
+*/\r
+\r
+void R_Chip(objtype *ob)\r
+{\r
+ if (ob->hitnorth)\r
+ ob->xspeed = ob->yspeed = 0;\r
+\r
+ RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= R_Eggbirdfly\r
+=\r
+===========================\r
+*/\r
+\r
+void R_Eggbirdfly(objtype *ob)\r
+{\r
+ statetype *oldstate;\r
+\r
+ if ((ob->hitsouth || ob->hitnorth) && !ob->temp1)\r
+ ob->temp1++;\r
+\r
+ if (ob->hiteast && ob->xspeed < 0 || ob->hitwest && ob->xspeed > 0)\r
+ {\r
+ ob->xspeed = 0;\r
+ ob->xdir = -ob->xdir;\r
+ }\r
+ if (ob->hitnorth == 1 && player->bottom - ob->bottom < 8*PIXGLOBAL) // BUG? unsigned comparison!\r
+ {\r
+ oldstate = ob->state;\r
+ ob->needtoclip = cl_midclip;\r
+ ChangeState(ob, &s_eggbirdwalk1);\r
+ xtry = 0;\r
+ ytry = 8*PIXGLOBAL;\r
+ PushObj(ob);\r
+ if (!ob->hitnorth)\r
+ {\r
+ ob->needtoclip = cl_fullclip;\r
+ ChangeState(ob, oldstate);\r
+ }\r
+ return; // BUG: sprite isn't updated\r
+ }\r
+\r
+ if (!ob->hitsouth && !ob->hitnorth)\r
+ ob->temp1 = 0;\r
+\r
+ RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
+}\r
+\r
+/*\r
+=============================================================================\r
+\r
+ ARACHNUT\r
+\r
+=============================================================================\r
+*/\r
+\r
+statetype s_arach1 = {ARACHNUTWALK1SPR, ARACHNUTWALK4SPR, step, false, true, 6, 128, 0, NULL, C_Arach, R_Walk, &s_arach2};\r
+statetype s_arach2 = {ARACHNUTWALK2SPR, ARACHNUTWALK3SPR, step, false, true, 6, 128, 0, NULL, C_Arach, R_Walk, &s_arach3};\r
+statetype s_arach3 = {ARACHNUTWALK3SPR, ARACHNUTWALK2SPR, step, false, true, 6, 128, 0, NULL, C_Arach, R_Walk, &s_arach4};\r
+statetype s_arach4 = {ARACHNUTWALK4SPR, ARACHNUTWALK1SPR, step, false, true, 6, 128, 0, T_Arach, C_Arach, R_Walk, &s_arach1};\r
+statetype s_arachstun = {ARACHNUTSTUNSPR, ARACHNUTSTUNSPR, step, false, true, 240, 0, 0, NULL, C_ArachStun, R_Draw, &s_arachstun2};\r
+statetype s_arachstun2 = {ARACHNUTWALK1SPR, ARACHNUTWALK1SPR, step, false, true, 20, 0, 0, NULL, C_ArachStun, R_Draw, &s_arachstun3};\r
+statetype s_arachstun3 = {ARACHNUTSTUNSPR, ARACHNUTSTUNSPR, step, false, true, 20, 0, 0, NULL, C_ArachStun, R_Draw, &s_arachstun4};\r
+statetype s_arachstun4 = {ARACHNUTWALK1SPR, ARACHNUTWALK1SPR, step, false, true, 20, 0, 0, NULL, C_ArachStun, R_Draw, &s_arachstun5};\r
+statetype s_arachstun5 = {ARACHNUTSTUNSPR, ARACHNUTSTUNSPR, step, false, true, 20, 0, 0, NULL, C_ArachStun, R_Draw, &s_arach1};\r
+\r
+/*\r
+===========================\r
+=\r
+= SpawnArachnut\r
+=\r
+===========================\r
+*/\r
+\r
+void SpawnArachnut(Sint16 x, Sint16 y)\r
+{\r
+ GetNewObj(false);\r
+ new->obclass = arachnutobj;\r
+ new->active = ac_yes;\r
+ new->priority = 0;\r
+ new->x = CONVERT_TILE_TO_GLOBAL(x);\r
+ new->y = CONVERT_TILE_TO_GLOBAL(y) - 0x171;\r
+ if (US_RndT() < 0x80)\r
+ {\r
+ new->xdir = 1;\r
+ }\r
+ else\r
+ {\r
+ new->xdir = -1;\r
+ }\r
+ new->ydir = 1;\r
+ NewState(new, &s_arach1);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_Arach\r
+=\r
+===========================\r
+*/\r
+\r
+void T_Arach(objtype *ob)\r
+{\r
+ if (ob->x > player->x)\r
+ {\r
+ ob->xdir = -1;\r
+ }\r
+ else\r
+ {\r
+ ob->xdir = 1;\r
+ }\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= C_Arach\r
+=\r
+===========================\r
+*/\r
+\r
+void C_Arach(objtype *ob, objtype *hit)\r
+{\r
+ if (hit->obclass == stunshotobj)\r
+ {\r
+ StunObj(ob, hit, &s_arachstun);\r
+ }\r
+ else if (hit->obclass == keenobj)\r
+ {\r
+ KillKeen();\r
+ }\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= C_ArachStun\r
+=\r
+===========================\r
+*/\r
+\r
+void C_ArachStun(objtype *ob, objtype *hit)\r
+{\r
+ if (hit->obclass == stunshotobj)\r
+ {\r
+ StunObj(ob, hit, &s_arachstun);\r
+ }\r
+}\r
+\r
+/*\r
+=============================================================================\r
+\r
+ SKYPEST\r
+\r
+=============================================================================\r
+*/\r
+\r
+statetype s_pestfly1 = {SKYPESTFLYL1SPR, SKYPESTFLYR1SPR, stepthink, true, false, 5, 0, 0, T_PestFly, C_PestFly, R_Pest, &s_pestfly2};\r
+statetype s_pestfly2 = {SKYPESTFLYL2SPR, SKYPESTFLYR2SPR, stepthink, true, false, 5, 0, 0, T_PestFly, C_PestFly, R_Pest, &s_pestfly1};\r
+statetype s_squashedpest = {SKYPESTSQUASHEDSPR, SKYPESTSQUASHEDSPR, think, false, false, 0, 0, 0, NULL, NULL, R_Draw, &s_squashedpest};\r
+statetype s_pestrest1 = {SKYPESTSIT9SPR, SKYPESTSIT9SPR, step, false, false, 100, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest2};\r
+statetype s_pestrest2 = {SKYPESTSIT1SPR, SKYPESTSIT1SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest3};\r
+statetype s_pestrest3 = {SKYPESTSIT2SPR, SKYPESTSIT2SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest4};\r
+statetype s_pestrest4 = {SKYPESTSIT3SPR, SKYPESTSIT3SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest5};\r
+statetype s_pestrest5 = {SKYPESTSIT4SPR, SKYPESTSIT4SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest6};\r
+statetype s_pestrest6 = {SKYPESTSIT3SPR, SKYPESTSIT3SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest7};\r
+statetype s_pestrest7 = {SKYPESTSIT2SPR, SKYPESTSIT2SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest8};\r
+statetype s_pestrest8 = {SKYPESTSIT1SPR, SKYPESTSIT1SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest9};\r
+statetype s_pestrest9 = {SKYPESTSIT9SPR, SKYPESTSIT9SPR, step, false, false, 60, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest10};\r
+statetype s_pestrest10 = {SKYPESTSIT5SPR, SKYPESTSIT5SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest11};\r
+statetype s_pestrest11 = {SKYPESTSIT6SPR, SKYPESTSIT6SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest12};\r
+statetype s_pestrest12 = {SKYPESTSIT7SPR, SKYPESTSIT7SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest13};\r
+statetype s_pestrest13 = {SKYPESTSIT8SPR, SKYPESTSIT8SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest14};\r
+statetype s_pestrest14 = {SKYPESTSIT7SPR, SKYPESTSIT7SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest15};\r
+statetype s_pestrest15 = {SKYPESTSIT6SPR, SKYPESTSIT6SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest16};\r
+statetype s_pestrest16 = {SKYPESTSIT5SPR, SKYPESTSIT5SPR, step, false, false, 10, 0, 0, NULL, C_Squashable, R_Draw, &s_pestrest17};\r
+statetype s_pestrest17 = {SKYPESTSIT9SPR, SKYPESTSIT9SPR, step, false, false, 100, 0, 0, T_PestRest, C_Squashable, R_Draw, &s_pestfly1};\r
+\r
+/*\r
+===========================\r
+=\r
+= SpawnSkypest\r
+=\r
+===========================\r
+*/\r
+\r
+void SpawnSkypest(Sint16 x, Sint16 y)\r
+{\r
+ GetNewObj(false);\r
+ new->obclass = skypestobj;\r
+ new->active = ac_yes;\r
+ new->priority = 0;\r
+ new->x = CONVERT_TILE_TO_GLOBAL(x);\r
+ new->y = CONVERT_TILE_TO_GLOBAL(y);\r
+ if (US_RndT() < 0x80)\r
+ {\r
+ new->xdir = 1;\r
+ }\r
+ else\r
+ {\r
+ new->xdir = -1;\r
+ }\r
+ if (US_RndT() < 0x80)\r
+ {\r
+ new->ydir = 1;\r
+ }\r
+ else\r
+ {\r
+ new->ydir = -1;\r
+ }\r
+ NewState(new, &s_pestfly1);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_PestFly\r
+=\r
+===========================\r
+*/\r
+\r
+void T_PestFly(objtype *ob)\r
+{\r
+ // BUG: this might be executed twice during the same frame if the\r
+ // object's animation/state changed during that frame, causing the\r
+ // object to move at twice the speed during that frame!\r
+ // To avoid that, return if xtry is not 0 or ytry is not 0.\r
+\r
+ if (US_RndT() < tics)\r
+ ob->xdir = -ob->xdir;\r
+\r
+ if (ob->ydir == -1 && US_RndT() < tics)\r
+ ob->ydir = 1;\r
+\r
+ if (ob->ydir == 1 && US_RndT() < tics*2)\r
+ ob->ydir = -ob->ydir;\r
+\r
+ AccelerateX(ob, ob->xdir, 20);\r
+ AccelerateY(ob, ob->ydir, 20);\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= C_PestFly\r
+=\r
+===========================\r
+*/\r
+\r
+void C_PestFly(objtype *ob, objtype *hit)\r
+{\r
+ if (hit->obclass == keenobj)\r
+ KillKeen();\r
+\r
+ if (hit->obclass == stunshotobj)\r
+ {\r
+ if (hit->xdir == 1)\r
+ {\r
+ ob->xspeed = 20;\r
+ }\r
+ else if (hit->xdir == -1)\r
+ {\r
+ ob->xspeed = -20;\r
+ }\r
+ else if (hit->ydir == 1)\r
+ {\r
+ ob->yspeed = 20;\r
+ }\r
+ else if (hit->ydir == -1)\r
+ {\r
+ ob->yspeed = -20;\r
+ }\r
+ ExplodeShot(hit);\r
+ }\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= C_Squashable\r
+=\r
+===========================\r
+*/\r
+\r
+void C_Squashable(objtype *ob, objtype *hit)\r
+{\r
+ if (hit->state == &s_keenpogodown || hit->state == &s_keenpogo || hit->state == &s_keenpogo2)\r
+ {\r
+ ChangeState(ob, &s_squashedpest);\r
+ SD_PlaySound(SND_SQUISH);\r
+ ob->obclass = inertobj;\r
+ }\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= T_PestRest\r
+=\r
+===========================\r
+*/\r
+\r
+void T_PestRest(objtype *ob)\r
+{\r
+ ob->ydir = -1;\r
+ ob->yspeed = -16;\r
+ ytry = -144;\r
+}\r
+\r
+/*\r
+===========================\r
+=\r
+= R_Pest\r
+=\r
+===========================\r
+*/\r
+\r
+void R_Pest(objtype *ob)\r
+{\r
+ if (ob->hitsouth)\r
+ {\r
+ ob->yspeed = 8;\r
+ ob->ydir = 1;\r
+ }\r
+ if (ob->hitnorth && !ob->hiteast && !ob->hitwest)\r
+ {\r
+ ob->y += 8*PIXGLOBAL;\r
+ ChangeState(ob, &s_pestrest1);\r
+ }\r
+ if (ob->hitwest)\r
+ {\r
+ ob->xspeed = 0;\r
+ ob->xdir = -1;\r
+ }\r
+ if (ob->hiteast)\r
+ {\r
+ ob->xspeed = 0;\r
+ ob->xdir = 1;\r
+ }\r
+ RF_PlaceSprite(&ob->sprite, ob->x, ob->y, ob->shapenum, spritedraw, ob->priority);\r
+}\r
projects / 16.git / blobdiff