// // Copyright(C) 1993-1996 Id Software, Inc. // Copyright(C) 1993-2008 Raven Software // Copyright(C) 2005-2014 Simon Howard // // This program is free software; you can redistribute it and/or // modify it under the terms of the GNU General Public License // as published by the Free Software Foundation; either version 2 // of the License, or (at your option) any later version. // // This program is distributed in the hope that it will be useful, // but WITHOUT ANY WARRANTY; without even the implied warranty of // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the // GNU General Public License for more details. // // HEADER FILES ------------------------------------------------------------ #include "h2def.h" #include "m_random.h" #include "p_local.h" #include "s_sound.h" // MACROS ------------------------------------------------------------------ // TYPES ------------------------------------------------------------------- // EXTERNAL FUNCTION PROTOTYPES -------------------------------------------- // PUBLIC FUNCTION PROTOTYPES ---------------------------------------------- // PRIVATE FUNCTION PROTOTYPES --------------------------------------------- // EXTERNAL DATA DECLARATIONS ---------------------------------------------- extern fixed_t FloatBobOffsets[64]; // PUBLIC DATA DEFINITIONS ------------------------------------------------- int orbitTableX[256] = { 983025, 982725, 981825, 980340, 978255, 975600, 972330, 968490, 964065, 959070, 953475, 947325, 940590, 933300, 925440, 917025, 908055, 898545, 888495, 877905, 866775, 855135, 842985, 830310, 817155, 803490, 789360, 774735, 759660, 744120, 728130, 711690, 694845, 677565, 659880, 641805, 623340, 604500, 585285, 565725, 545820, 525600, 505050, 484200, 463065, 441645, 419955, 398010, 375840, 353430, 330810, 307995, 285000, 261825, 238485, 215010, 191400, 167685, 143865, 119955, 95970, 71940, 47850, 23745, -375, -24495, -48600, -72690, -96720, -120705, -144600, -168420, -192150, -215745, -239220, -262545, -285720, -308715, -331530, -354135, -376530, -398700, -420630, -442320, -463725, -484860, -505695, -526230, -546450, -566340, -585885, -605085, -623925, -642375, -660435, -678105, -695370, -712215, -728625, -744600, -760125, -775200, -789795, -803925, -817575, -830715, -843375, -855510, -867135, -878235, -888810, -898845, -908340, -917295, -925695, -933540, -940815, -947520, -953670, -959235, -964215, -968625, -972450, -975690, -978330, -980400, -981870, -982740, -983025, -982725, -981825, -980340, -978255, -975600, -972330, -968490, -964065, -959070, -953475, -947325, -940590, -933300, -925440, -917025, -908055, -898545, -888495, -877905, -866775, -855135, -842985, -830310, -817155, -803490, -789360, -774735, -759660, -744120, -728130, -711690, -694845, -677565, -659880, -641805, -623340, -604485, -585285, -565725, -545820, -525600, -505050, -484200, -463065, -441645, -419955, -398010, -375840, -353430, -330810, -307995, -285000, -261825, -238485, -215010, -191400, -167685, -143865, -119955, -95970, -71940, -47850, -23745, 375, 24495, 48600, 72690, 96720, 120705, 144600, 168420, 192150, 215745, 239220, 262545, 285720, 308715, 331530, 354135, 376530, 398700, 420630, 442320, 463725, 484860, 505695, 526230, 546450, 566340, 585885, 605085, 623925, 642375, 660435, 678105, 695370, 712215, 728625, 744600, 760125, 775200, 789795, 803925, 817575, 830715, 843375, 855510, 867135, 878235, 888810, 898845, 908340, 917295, 925695, 933540, 940815, 947520, 953670, 959235, 964215, 968625, 972450, 975690, 978330, 980400, 981870, 982740 }; int orbitTableY[256] = { 375, 24495, 48600, 72690, 96720, 120705, 144600, 168420, 192150, 215745, 239220, 262545, 285720, 308715, 331530, 354135, 376530, 398700, 420630, 442320, 463725, 484860, 505695, 526230, 546450, 566340, 585885, 605085, 623925, 642375, 660435, 678105, 695370, 712215, 728625, 744600, 760125, 775200, 789795, 803925, 817575, 830715, 843375, 855510, 867135, 878235, 888810, 898845, 908340, 917295, 925695, 933540, 940815, 947520, 953670, 959235, 964215, 968625, 972450, 975690, 978330, 980400, 981870, 982740, 983025, 982725, 981825, 980340, 978255, 975600, 972330, 968490, 964065, 959070, 953475, 947325, 940590, 933300, 925440, 917025, 908055, 898545, 888495, 877905, 866775, 855135, 842985, 830310, 817155, 803490, 789360, 774735, 759660, 744120, 728130, 711690, 694845, 677565, 659880, 641805, 623340, 604500, 585285, 565725, 545820, 525600, 505050, 484200, 463065, 441645, 419955, 398010, 375840, 353430, 330810, 307995, 285000, 261825, 238485, 215010, 191400, 167685, 143865, 119955, 95970, 71940, 47850, 23745, -375, -24495, -48600, -72690, -96720, -120705, -144600, -168420, -192150, -215745, -239220, -262545, -285720, -308715, -331530, -354135, -376530, -398700, -420630, -442320, -463725, -484860, -505695, -526230, -546450, -566340, -585885, -605085, -623925, -642375, -660435, -678105, -695370, -712215, -728625, -744600, -760125, -775200, -789795, -803925, -817575, -830715, -843375, -855510, -867135, -878235, -888810, -898845, -908340, -917295, -925695, -933540, -940815, -947520, -953670, -959235, -964215, -968625, -972450, -975690, -978330, -980400, -981870, -982740, -983025, -982725, -981825, -980340, -978255, -975600, -972330, -968490, -964065, -959070, -953475, -947325, -940590, -933300, -925440, -917025, -908055, -898545, -888495, -877905, -866775, -855135, -842985, -830310, -817155, -803490, -789360, -774735, -759660, -744120, -728130, -711690, -694845, -677565, -659880, -641805, -623340, -604485, -585285, -565725, -545820, -525600, -505050, -484200, -463065, -441645, -419955, -398010, -375840, -353430, -330810, -307995, -285000, -261825, -238485, -215010, -191400, -167685, -143865, -119955, -95970, -71940, -47850, -23745 }; // PRIVATE DATA DEFINITIONS ------------------------------------------------ // CODE -------------------------------------------------------------------- //-------------------------------------------------------------------------- // // Environmental Action routines // //-------------------------------------------------------------------------- //========================================================================== // // A_DripBlood // //========================================================================== /* void A_DripBlood(mobj_t *actor) { mobj_t *mo; mo = P_SpawnMobj(actor->x+((P_Random()-P_Random())<<11), actor->y+((P_Random()-P_Random())<<11), actor->z, MT_BLOOD); mo->momx = (P_Random()-P_Random())<<10; mo->momy = (P_Random()-P_Random())<<10; mo->flags2 |= MF2_LOGRAV; } */ //============================================================================ // // A_PotteryExplode // //============================================================================ void A_PotteryExplode(mobj_t * actor) { mobj_t *mo = NULL; int i; for (i = (P_Random() & 3) + 3; i; i--) { mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_POTTERYBIT1); P_SetMobjState(mo, mo->info->spawnstate + (P_Random() % 5)); if (mo) { mo->momz = ((P_Random() & 7) + 5) * (3 * FRACUNIT / 4); mo->momx = (P_Random() - P_Random()) << (FRACBITS - 6); mo->momy = (P_Random() - P_Random()) << (FRACBITS - 6); } } S_StartSound(mo, SFX_POTTERY_EXPLODE); if (actor->args[0]) { // Spawn an item if (!nomonsters || !(mobjinfo[TranslateThingType[actor->args[0]]]. flags & MF_COUNTKILL)) { // Only spawn monsters if not -nomonsters P_SpawnMobj(actor->x, actor->y, actor->z, TranslateThingType[actor->args[0]]); } } P_RemoveMobj(actor); } //============================================================================ // // A_PotteryChooseBit // //============================================================================ void A_PotteryChooseBit(mobj_t * actor) { P_SetMobjState(actor, actor->info->deathstate + (P_Random() % 5) + 1); actor->tics = 256 + (P_Random() << 1); } //============================================================================ // // A_PotteryCheck // //============================================================================ void A_PotteryCheck(mobj_t * actor) { int i; mobj_t *pmo; if (!netgame) { pmo = players[consoleplayer].mo; if (P_CheckSight(actor, pmo) && (abs(R_PointToAngle2(pmo->x, pmo->y, actor->x, actor->y) - pmo->angle) <= ANG45)) { // Previous state (pottery bit waiting state) P_SetMobjState(actor, actor->state - &states[0] - 1); } else { return; } } else { for (i = 0; i < maxplayers; i++) { if (!playeringame[i]) { continue; } pmo = players[i].mo; if (P_CheckSight(actor, pmo) && (abs(R_PointToAngle2(pmo->x, pmo->y, actor->x, actor->y) - pmo->angle) <= ANG45)) { // Previous state (pottery bit waiting state) P_SetMobjState(actor, actor->state - &states[0] - 1); return; } } } } //============================================================================ // // A_CorpseBloodDrip // //============================================================================ void A_CorpseBloodDrip(mobj_t * actor) { if (P_Random() > 128) { return; } P_SpawnMobj(actor->x, actor->y, actor->z + actor->height / 2, MT_CORPSEBLOODDRIP); } //============================================================================ // // A_CorpseExplode // //============================================================================ void A_CorpseExplode(mobj_t * actor) { mobj_t *mo; int i; for (i = (P_Random() & 3) + 3; i; i--) { mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_CORPSEBIT); P_SetMobjState(mo, mo->info->spawnstate + (P_Random() % 3)); if (mo) { mo->momz = ((P_Random() & 7) + 5) * (3 * FRACUNIT / 4); mo->momx = (P_Random() - P_Random()) << (FRACBITS - 6); mo->momy = (P_Random() - P_Random()) << (FRACBITS - 6); } } // Spawn a skull mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_CORPSEBIT); P_SetMobjState(mo, S_CORPSEBIT_4); if (mo) { mo->momz = ((P_Random() & 7) + 5) * (3 * FRACUNIT / 4); mo->momx = (P_Random() - P_Random()) << (FRACBITS - 6); mo->momy = (P_Random() - P_Random()) << (FRACBITS - 6); S_StartSound(mo, SFX_FIRED_DEATH); } P_RemoveMobj(actor); } //============================================================================ // // A_LeafSpawn // //============================================================================ void A_LeafSpawn(mobj_t * actor) { mobj_t *mo; int i; for (i = (P_Random() & 3) + 1; i; i--) { // Official release of Hexen's source code relies on unspecified behavior // the in order of function's argument evaluation, // see ISO-IEC 9899-1999, [6.5.2.2.10] mobjtype_t type = MT_LEAF1 + (P_Random() & 1); fixed_t z = actor->z + (P_Random() << 14); fixed_t y = actor->y + ((P_Random() - P_Random()) << 14); fixed_t x = actor->x + ((P_Random() - P_Random()) << 14); mo = P_SpawnMobj(x, y, z, type); if (mo) { P_ThrustMobj(mo, actor->angle, (P_Random() << 9) + 3 * FRACUNIT); mo->target = actor; mo->special1.i = 0; } } } //============================================================================ // // A_LeafThrust // //============================================================================ void A_LeafThrust(mobj_t * actor) { if (P_Random() > 96) { return; } actor->momz += (P_Random() << 9) + FRACUNIT; } //============================================================================ // // A_LeafCheck // //============================================================================ void A_LeafCheck(mobj_t * actor) { actor->special1.i++; if (actor->special1.i >= 20) { P_SetMobjState(actor, S_NULL); return; } if (P_Random() > 64) { if (!actor->momx && !actor->momy) { P_ThrustMobj(actor, actor->target->angle, (P_Random() << 9) + FRACUNIT); } return; } P_SetMobjState(actor, S_LEAF1_8); actor->momz = (P_Random() << 9) + FRACUNIT; P_ThrustMobj(actor, actor->target->angle, (P_Random() << 9) + 2 * FRACUNIT); actor->flags |= MF_MISSILE; } /* #define ORBIT_RADIUS (15*FRACUNIT) void GenerateOrbitTable(void) { int angle; for (angle=0; angle<256; angle++) { orbitTableX[angle] = FixedMul(ORBIT_RADIUS, finecosine[angle<<5]); orbitTableY[angle] = FixedMul(ORBIT_RADIUS, finesine[angle<<5]); } printf("int orbitTableX[256]=\n{\n"); for (angle=0; angle<256; angle+=8) { printf("%d, %d, %d, %d, %d, %d, %d, %d,\n", orbitTableX[angle], orbitTableX[angle+1], orbitTableX[angle+2], orbitTableX[angle+3], orbitTableX[angle+4], orbitTableX[angle+5], orbitTableX[angle+6], orbitTableX[angle+7]); } printf("};\n\n"); printf("int orbitTableY[256]=\n{\n"); for (angle=0; angle<256; angle+=8) { printf("%d, %d, %d, %d, %d, %d, %d, %d,\n", orbitTableY[angle], orbitTableY[angle+1], orbitTableY[angle+2], orbitTableY[angle+3], orbitTableY[angle+4], orbitTableY[angle+5], orbitTableY[angle+6], orbitTableY[angle+7]); } printf("};\n"); } */ // New bridge stuff // Parent // special1 true == removing from world // // Child // target pointer to center mobj // args[0] angle of ball void A_BridgeOrbit(mobj_t * actor) { if (actor->target->special1.i) { P_SetMobjState(actor, S_NULL); } actor->args[0] += 3; actor->x = actor->target->x + orbitTableX[actor->args[0]]; actor->y = actor->target->y + orbitTableY[actor->args[0]]; actor->z = actor->target->z; } void A_BridgeInit(mobj_t * actor) { byte startangle; mobj_t *ball1, *ball2, *ball3; fixed_t cx, cy, cz; // GenerateOrbitTable(); cx = actor->x; cy = actor->y; cz = actor->z; startangle = P_Random(); actor->special1.i = 0; // Spawn triad into world ball1 = P_SpawnMobj(cx, cy, cz, MT_BRIDGEBALL); ball1->args[0] = startangle; ball1->target = actor; ball2 = P_SpawnMobj(cx, cy, cz, MT_BRIDGEBALL); ball2->args[0] = (startangle + 85) & 255; ball2->target = actor; ball3 = P_SpawnMobj(cx, cy, cz, MT_BRIDGEBALL); ball3->args[0] = (startangle + 170) & 255; ball3->target = actor; A_BridgeOrbit(ball1); A_BridgeOrbit(ball2); A_BridgeOrbit(ball3); } void A_BridgeRemove(mobj_t * actor) { actor->special1.i = true; // Removing the bridge actor->flags &= ~MF_SOLID; P_SetMobjState(actor, S_FREE_BRIDGE1); } //========================================================================== // // A_GhostOn // //========================================================================== /* void A_GhostOn(mobj_t *actor) { actor->flags |= MF_SHADOW; } */ //========================================================================== // // A_GhostOff // //========================================================================== /* void A_GhostOff(mobj_t *actor) { actor->flags &= ~MF_SHADOW; } */ //========================================================================== // // A_HideThing // //========================================================================== void A_HideThing(mobj_t * actor) { actor->flags2 |= MF2_DONTDRAW; } //========================================================================== // // A_UnHideThing // //========================================================================== void A_UnHideThing(mobj_t * actor) { actor->flags2 &= ~MF2_DONTDRAW; } //========================================================================== // // A_SetShootable // //========================================================================== void A_SetShootable(mobj_t * actor) { actor->flags2 &= ~MF2_NONSHOOTABLE; actor->flags |= MF_SHOOTABLE; } //========================================================================== // // A_UnSetShootable // //========================================================================== void A_UnSetShootable(mobj_t * actor) { actor->flags2 |= MF2_NONSHOOTABLE; actor->flags &= ~MF_SHOOTABLE; } //========================================================================== // // A_SetAltShadow // //========================================================================== void A_SetAltShadow(mobj_t * actor) { actor->flags &= ~MF_SHADOW; actor->flags |= MF_ALTSHADOW; } //========================================================================== // // A_UnSetAltShadow // //========================================================================== /* void A_UnSetAltShadow(mobj_t *actor) { actor->flags &= ~MF_ALTSHADOW; } */ //-------------------------------------------------------------------------- // // Sound Action Routines // //-------------------------------------------------------------------------- //========================================================================== // // A_ContMobjSound // //========================================================================== void A_ContMobjSound(mobj_t * actor) { switch (actor->type) { case MT_SERPENTFX: S_StartSound(actor, SFX_SERPENTFX_CONTINUOUS); break; case MT_HAMMER_MISSILE: S_StartSound(actor, SFX_FIGHTER_HAMMER_CONTINUOUS); break; case MT_QUAKE_FOCUS: S_StartSound(actor, SFX_EARTHQUAKE); break; default: break; } } //========================================================================== // // PROC A_ESound // //========================================================================== void A_ESound(mobj_t * mo) { int sound; switch (mo->type) { case MT_SOUNDWIND: sound = SFX_WIND; break; default: sound = SFX_NONE; break; } S_StartSound(mo, sound); } //========================================================================== // Summon Minotaur -- see p_enemy for variable descriptions //========================================================================== void A_Summon(mobj_t * actor) { mobj_t *mo; mobj_t *master; mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_MINOTAUR); if (mo) { if (P_TestMobjLocation(mo) == false || !actor->special1.m) { // Didn't fit - change back to artifact P_SetMobjState(mo, S_NULL); mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_SUMMONMAULATOR); if (mo) mo->flags2 |= MF2_DROPPED; return; } // Store leveltime into mo->args. This must be stored in little- // endian format for Vanilla savegame compatibility. mo->args[0] = leveltime & 0xff; mo->args[1] = (leveltime >> 8) & 0xff; mo->args[2] = (leveltime >> 16) & 0xff; mo->args[3] = (leveltime >> 24) & 0xff; master = actor->special1.m; if (master->flags & MF_CORPSE) { // Master dead mo->special1.m = NULL; // No master } else { mo->special1.m = actor->special1.m; // Pointer to master (mobj_t *) P_GivePower(master->player, pw_minotaur); } // Make smoke puff P_SpawnMobj(actor->x, actor->y, actor->z, MT_MNTRSMOKE); S_StartSound(actor, SFX_MAULATOR_ACTIVE); } } //========================================================================== // Fog Variables: // // args[0] Speed (0..10) of fog // args[1] Angle of spread (0..128) // args[2] Frequency of spawn (1..10) // args[3] Lifetime countdown // args[4] Boolean: fog moving? // special1 Internal: Counter for spawn frequency // special2 Internal: Index into floatbob table // //========================================================================== void A_FogSpawn(mobj_t * actor) { mobj_t *mo = NULL; angle_t delta; if (actor->special1.i-- > 0) return; actor->special1.i = actor->args[2]; // Reset frequency count switch (P_Random() % 3) { case 0: mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_FOGPATCHS); break; case 1: mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_FOGPATCHM); break; case 2: mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_FOGPATCHL); break; } if (mo) { delta = actor->args[1]; if (delta == 0) delta = 1; mo->angle = actor->angle + (((P_Random() % delta) - (delta >> 1)) << 24); mo->target = actor; if (actor->args[0] < 1) actor->args[0] = 1; mo->args[0] = (P_Random() % (actor->args[0])) + 1; // Random speed mo->args[3] = actor->args[3]; // Set lifetime mo->args[4] = 1; // Set to moving mo->special2.i = P_Random() & 63; } } void A_FogMove(mobj_t * actor) { int speed = actor->args[0] << FRACBITS; angle_t angle; int weaveindex; if (!(actor->args[4])) return; if (actor->args[3]-- <= 0) { P_SetMobjStateNF(actor, actor->info->deathstate); return; } if ((actor->args[3] % 4) == 0) { weaveindex = actor->special2.i; actor->z += FloatBobOffsets[weaveindex] >> 1; actor->special2.i = (weaveindex + 1) & 63; } angle = actor->angle >> ANGLETOFINESHIFT; actor->momx = FixedMul(speed, finecosine[angle]); actor->momy = FixedMul(speed, finesine[angle]); } //=========================================================================== // // A_PoisonBagInit // //=========================================================================== void A_PoisonBagInit(mobj_t * actor) { mobj_t *mo; mo = P_SpawnMobj(actor->x, actor->y, actor->z + 28 * FRACUNIT, MT_POISONCLOUD); if (!mo) { return; } mo->momx = 1; // missile objects must move to impact other objects mo->special1.i = 24 + (P_Random() & 7); mo->special2.i = 0; mo->target = actor->target; mo->radius = 20 * FRACUNIT; mo->height = 30 * FRACUNIT; mo->flags &= ~MF_NOCLIP; } //=========================================================================== // // A_PoisonBagCheck // //=========================================================================== void A_PoisonBagCheck(mobj_t * actor) { if (!--actor->special1.i) { P_SetMobjState(actor, S_POISONCLOUD_X1); } else { return; } } //=========================================================================== // // A_PoisonBagDamage // //=========================================================================== void A_PoisonBagDamage(mobj_t * actor) { int bobIndex; extern void A_Explode(mobj_t * actor); A_Explode(actor); bobIndex = actor->special2.i; actor->z += FloatBobOffsets[bobIndex] >> 4; actor->special2.i = (bobIndex + 1) & 63; } //=========================================================================== // // A_PoisonShroom // //=========================================================================== void A_PoisonShroom(mobj_t * actor) { actor->tics = 128 + (P_Random() << 1); } //=========================================================================== // // A_CheckThrowBomb // //=========================================================================== void A_CheckThrowBomb(mobj_t * actor) { if (abs(actor->momx) < 1.5 * FRACUNIT && abs(actor->momy) < 1.5 * FRACUNIT && actor->momz < 2 * FRACUNIT && actor->state == &states[S_THROWINGBOMB6]) { P_SetMobjState(actor, S_THROWINGBOMB7); actor->z = actor->floorz; actor->momz = 0; actor->flags2 &= ~MF2_FLOORBOUNCE; actor->flags &= ~MF_MISSILE; } if (!--actor->health) { P_SetMobjState(actor, actor->info->deathstate); } } //=========================================================================== // Quake variables // // args[0] Intensity on richter scale (2..9) // args[1] Duration in tics // args[2] Radius for damage // args[3] Radius for tremor // args[4] TID of map thing for focus of quake // //=========================================================================== //=========================================================================== // // A_LocalQuake // //=========================================================================== boolean A_LocalQuake(byte * args, mobj_t * actor) { mobj_t *focus, *target; int lastfound = 0; int success = false; // Find all quake foci do { target = P_FindMobjFromTID(args[4], &lastfound); if (target) { focus = P_SpawnMobj(target->x, target->y, target->z, MT_QUAKE_FOCUS); if (focus) { focus->args[0] = args[0]; focus->args[1] = args[1] >> 1; // decremented every 2 tics focus->args[2] = args[2]; focus->args[3] = args[3]; focus->args[4] = args[4]; success = true; } } } while (target != NULL); return (success); } //=========================================================================== // // A_Quake // //=========================================================================== int localQuakeHappening[MAXPLAYERS]; void A_Quake(mobj_t * actor) { angle_t an; player_t *player; mobj_t *victim; int richters = actor->args[0]; int playnum; fixed_t dist; if (actor->args[1]-- > 0) { for (playnum = 0; playnum < maxplayers; playnum++) { player = &players[playnum]; if (!playeringame[playnum]) continue; victim = player->mo; dist = P_AproxDistance(actor->x - victim->x, actor->y - victim->y) >> (FRACBITS + 6); // Tested in tile units (64 pixels) if (dist < actor->args[3]) // In tremor radius { localQuakeHappening[playnum] = richters; } // Check if in damage radius if ((dist < actor->args[2]) && (victim->z <= victim->floorz)) { if (P_Random() < 50) { P_DamageMobj(victim, NULL, NULL, HITDICE(1)); } // Thrust player around an = victim->angle + ANG1 * P_Random(); P_ThrustMobj(victim, an, richters << (FRACBITS - 1)); } } } else { for (playnum = 0; playnum < maxplayers; playnum++) { localQuakeHappening[playnum] = false; } P_SetMobjState(actor, S_NULL); } } //=========================================================================== // // Teleport other stuff // //=========================================================================== #define TELEPORT_LIFE 1 void A_TeloSpawnA(mobj_t * actor) { mobj_t *mo; mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_TELOTHER_FX2); if (mo) { mo->special1.i = TELEPORT_LIFE; // Lifetime countdown mo->angle = actor->angle; mo->target = actor->target; mo->momx = actor->momx >> 1; mo->momy = actor->momy >> 1; mo->momz = actor->momz >> 1; } } void A_TeloSpawnB(mobj_t * actor) { mobj_t *mo; mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_TELOTHER_FX3); if (mo) { mo->special1.i = TELEPORT_LIFE; // Lifetime countdown mo->angle = actor->angle; mo->target = actor->target; mo->momx = actor->momx >> 1; mo->momy = actor->momy >> 1; mo->momz = actor->momz >> 1; } } void A_TeloSpawnC(mobj_t * actor) { mobj_t *mo; mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_TELOTHER_FX4); if (mo) { mo->special1.i = TELEPORT_LIFE; // Lifetime countdown mo->angle = actor->angle; mo->target = actor->target; mo->momx = actor->momx >> 1; mo->momy = actor->momy >> 1; mo->momz = actor->momz >> 1; } } void A_TeloSpawnD(mobj_t * actor) { mobj_t *mo; mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_TELOTHER_FX5); if (mo) { mo->special1.i = TELEPORT_LIFE; // Lifetime countdown mo->angle = actor->angle; mo->target = actor->target; mo->momx = actor->momx >> 1; mo->momy = actor->momy >> 1; mo->momz = actor->momz >> 1; } } void A_CheckTeleRing(mobj_t * actor) { if (actor->special1.i-- <= 0) { P_SetMobjState(actor, actor->info->deathstate); } } // Dirt stuff void P_SpawnDirt(mobj_t * actor, fixed_t radius) { fixed_t x, y, z; int dtype = 0; mobj_t *mo; angle_t angle; angle = P_Random() << 5; // <<24 >>19 x = actor->x + FixedMul(radius, finecosine[angle]); y = actor->y + FixedMul(radius, finesine[angle]); // x = actor->x + ((P_Random()-P_Random())%radius)<y + ((P_Random()-P_Random()<z + (P_Random() << 9) + FRACUNIT; switch (P_Random() % 6) { case 0: dtype = MT_DIRT1; break; case 1: dtype = MT_DIRT2; break; case 2: dtype = MT_DIRT3; break; case 3: dtype = MT_DIRT4; break; case 4: dtype = MT_DIRT5; break; case 5: dtype = MT_DIRT6; break; } mo = P_SpawnMobj(x, y, z, dtype); if (mo) { mo->momz = P_Random() << 10; } } //=========================================================================== // // Thrust floor stuff // // Thrust Spike Variables // special1 pointer to dirt clump mobj // special2 speed of raise // args[0] 0 = lowered, 1 = raised // args[1] 0 = normal, 1 = bloody //=========================================================================== void A_ThrustInitUp(mobj_t * actor) { actor->special2.i = 5; // Raise speed actor->args[0] = 1; // Mark as up actor->floorclip = 0; actor->flags = MF_SOLID; actor->flags2 = MF2_NOTELEPORT | MF2_FLOORCLIP; actor->special1.m = NULL; } void A_ThrustInitDn(mobj_t * actor) { mobj_t *mo; actor->special2.i = 5; // Raise speed actor->args[0] = 0; // Mark as down actor->floorclip = actor->info->height; actor->flags = 0; actor->flags2 = MF2_NOTELEPORT | MF2_FLOORCLIP | MF2_DONTDRAW; mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_DIRTCLUMP); actor->special1.m = mo; } void A_ThrustRaise(mobj_t * actor) { if (A_RaiseMobj(actor)) { // Reached it's target height actor->args[0] = 1; if (actor->args[1]) P_SetMobjStateNF(actor, S_BTHRUSTINIT2_1); else P_SetMobjStateNF(actor, S_THRUSTINIT2_1); } // Lose the dirt clump if ((actor->floorclip < actor->height) && actor->special1.m) { P_RemoveMobj(actor->special1.m); actor->special1.m = NULL; } // Spawn some dirt if (P_Random() < 40) P_SpawnDirt(actor, actor->radius); actor->special2.i++; // Increase raise speed } void A_ThrustLower(mobj_t * actor) { if (A_SinkMobj(actor)) { actor->args[0] = 0; if (actor->args[1]) P_SetMobjStateNF(actor, S_BTHRUSTINIT1_1); else P_SetMobjStateNF(actor, S_THRUSTINIT1_1); } } void A_ThrustBlock(mobj_t * actor) { actor->flags |= MF_SOLID; } void A_ThrustImpale(mobj_t * actor) { // Impale all shootables in radius PIT_ThrustSpike(actor); } //=========================================================================== // // A_SoAExplode - Suit of Armor Explode // //=========================================================================== void A_SoAExplode(mobj_t * actor) { mobj_t *mo; int i; for (i = 0; i < 10; i++) { mo = P_SpawnMobj(actor->x + ((P_Random() - 128) << 12), actor->y + ((P_Random() - 128) << 12), actor->z + (P_Random() * actor->height / 256), MT_ZARMORCHUNK); P_SetMobjState(mo, mo->info->spawnstate + i); if (mo) { mo->momz = ((P_Random() & 7) + 5) * FRACUNIT; mo->momx = (P_Random() - P_Random()) << (FRACBITS - 6); mo->momy = (P_Random() - P_Random()) << (FRACBITS - 6); } } if (actor->args[0]) { // Spawn an item if (!nomonsters || !(mobjinfo[TranslateThingType[actor->args[0]]]. flags & MF_COUNTKILL)) { // Only spawn monsters if not -nomonsters P_SpawnMobj(actor->x, actor->y, actor->z, TranslateThingType[actor->args[0]]); } } S_StartSound(mo, SFX_SUITOFARMOR_BREAK); P_RemoveMobj(actor); } //=========================================================================== // // A_BellReset1 // //=========================================================================== void A_BellReset1(mobj_t * actor) { actor->flags |= MF_NOGRAVITY; actor->height <<= 2; } //=========================================================================== // // A_BellReset2 // //=========================================================================== void A_BellReset2(mobj_t * actor) { actor->flags |= MF_SHOOTABLE; actor->flags &= ~MF_CORPSE; actor->health = 5; } //=========================================================================== // // A_FlameCheck // //=========================================================================== void A_FlameCheck(mobj_t * actor) { if (!actor->args[0]--) // Called every 8 tics { P_SetMobjState(actor, S_NULL); } } //=========================================================================== // Bat Spawner Variables // special1 frequency counter // special2 // args[0] frequency of spawn (1=fastest, 10=slowest) // args[1] spread angle (0..255) // args[2] // args[3] duration of bats (in octics) // args[4] turn amount per move (in degrees) // // Bat Variables // special2 lifetime counter // args[4] turn amount per move (in degrees) //=========================================================================== void A_BatSpawnInit(mobj_t * actor) { actor->special1.i = 0; // Frequency count } void A_BatSpawn(mobj_t * actor) { mobj_t *mo; int delta; angle_t angle; // Countdown until next spawn if (actor->special1.i-- > 0) return; actor->special1.i = actor->args[0]; // Reset frequency count delta = actor->args[1]; if (delta == 0) delta = 1; angle = actor->angle + (((P_Random() % delta) - (delta >> 1)) << 24); mo = P_SpawnMissileAngle(actor, MT_BAT, angle, 0); if (mo) { mo->args[0] = P_Random() & 63; // floatbob index mo->args[4] = actor->args[4]; // turn degrees mo->special2.i = actor->args[3] << 3; // Set lifetime mo->target = actor; } } void A_BatMove(mobj_t * actor) { angle_t newangle; fixed_t speed; if (actor->special2.i < 0) { P_SetMobjState(actor, actor->info->deathstate); } actor->special2.i -= 2; // Called every 2 tics if (P_Random() < 128) { newangle = actor->angle + ANG1 * actor->args[4]; } else { newangle = actor->angle - ANG1 * actor->args[4]; } // Adjust momentum vector to new direction newangle >>= ANGLETOFINESHIFT; speed = FixedMul(actor->info->speed, P_Random() << 10); actor->momx = FixedMul(speed, finecosine[newangle]); actor->momy = FixedMul(speed, finesine[newangle]); if (P_Random() < 15) S_StartSound(actor, SFX_BAT_SCREAM); // Handle Z movement actor->z = actor->target->z + 2 * FloatBobOffsets[actor->args[0]]; actor->args[0] = (actor->args[0] + 3) & 63; } //=========================================================================== // // A_TreeDeath // //=========================================================================== void A_TreeDeath(mobj_t * actor) { if (!(actor->flags2 & MF2_FIREDAMAGE)) { actor->height <<= 2; actor->flags |= MF_SHOOTABLE; actor->flags &= ~(MF_CORPSE + MF_DROPOFF); actor->health = 35; return; } else { P_SetMobjState(actor, actor->info->meleestate); } } //=========================================================================== // // A_NoGravity // //=========================================================================== void A_NoGravity(mobj_t * actor) { actor->flags |= MF_NOGRAVITY; }