ref: 3fb46e6f9ca0c66556ecb060da92b74538cc9a2e
dir: /src/strife/p_enemy.c/
//
// Copyright(C) 1993-1996 Id Software, Inc.
// 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.
//
// DESCRIPTION:
// Enemy thinking, AI.
// Action Pointer Functions
// that are associated with states/frames.
//
#include <stdio.h>
#include <stdlib.h>
#include "m_random.h"
#include "i_system.h"
#include "doomdef.h"
#include "m_misc.h"
#include "p_local.h"
#include "s_sound.h"
#include "g_game.h"
#include "z_zone.h" // villsa [STRIFE]
// State.
#include "doomstat.h"
#include "r_state.h"
// Data.
#include "sounds.h"
// [STRIFE] Dialog / Inventory
#include "p_dialog.h"
#include "deh_str.h"
#include "w_wad.h"
#include "f_finale.h"
#include "p_inter.h"
// Forward Declarations:
void A_RandomWalk(mobj_t *);
void A_ProgrammerAttack(mobj_t* actor);
void A_FireSigilEOffshoot(mobj_t *actor);
void A_SpectreCAttack(mobj_t *actor);
void A_SpectreDAttack(mobj_t *actor);
void A_SpectreEAttack(mobj_t *actor);
void P_ThrustMobj(mobj_t *actor, angle_t angle, fixed_t force);
typedef enum
{
DI_EAST,
DI_NORTHEAST,
DI_NORTH,
DI_NORTHWEST,
DI_WEST,
DI_SOUTHWEST,
DI_SOUTH,
DI_SOUTHEAST,
DI_NODIR,
NUMDIRS
} dirtype_t;
//
// P_NewChaseDir related LUT.
//
dirtype_t opposite[] =
{
DI_WEST, DI_SOUTHWEST, DI_SOUTH, DI_SOUTHEAST,
DI_EAST, DI_NORTHEAST, DI_NORTH, DI_NORTHWEST, DI_NODIR
};
dirtype_t diags[] =
{
DI_NORTHWEST, DI_NORTHEAST, DI_SOUTHWEST, DI_SOUTHEAST
};
void A_Fall (mobj_t *actor);
//
// ENEMY THINKING
// Enemies are allways spawned
// with targetplayer = -1, threshold = 0
// Most monsters are spawned unaware of all players,
// but some can be made preaware
//
//
// Called by P_NoiseAlert.
// Recursively traverse adjacent sectors,
// sound blocking lines cut off traversal.
//
// haleyjd 09/05/10: [STRIFE] Verified unmodified
//
mobj_t* soundtarget;
void
P_RecursiveSound
( sector_t* sec,
int soundblocks )
{
int i;
line_t* check;
sector_t* other;
// wake up all monsters in this sector
if (sec->validcount == validcount
&& sec->soundtraversed <= soundblocks+1)
{
return; // already flooded
}
sec->validcount = validcount;
sec->soundtraversed = soundblocks+1;
sec->soundtarget = soundtarget;
for (i=0 ;i<sec->linecount ; i++)
{
check = sec->lines[i];
if (! (check->flags & ML_TWOSIDED) )
continue;
P_LineOpening (check);
if (openrange <= 0)
continue; // closed door
if ( sides[ check->sidenum[0] ].sector == sec)
other = sides[ check->sidenum[1] ] .sector;
else
other = sides[ check->sidenum[0] ].sector;
if (check->flags & ML_SOUNDBLOCK)
{
if (!soundblocks)
P_RecursiveSound (other, 1);
}
else
P_RecursiveSound (other, soundblocks);
}
}
//
// P_NoiseAlert
// If a monster yells at a player,
// it will alert other monsters to the player.
//
// haleyjd 09/05/10: [STRIFE] Verified unmodified
//
void
P_NoiseAlert
( mobj_t* target,
mobj_t* emmiter )
{
soundtarget = target;
validcount++;
P_RecursiveSound (emmiter->subsector->sector, 0);
}
//
// P_WakeUpThing
//
// villsa [STRIFE] New function
// Wakes up an mobj.nearby when somebody has been punched.
//
static void P_WakeUpThing(mobj_t* puncher, mobj_t* bystander)
{
if(!(bystander->flags & MF_NODIALOG))
{
bystander->target = puncher;
if(bystander->info->seesound)
S_StartSound(bystander, bystander->info->seesound);
P_SetMobjState(bystander, bystander->info->seestate);
}
}
//
// P_DoPunchAlert
//
// villsa [STRIFE] New function (by Quasar ;)
// Wake up buddies nearby when the player thinks he's gotten too clever
// with the punch dagger. Walks sector links.
//
void P_DoPunchAlert(mobj_t *puncher, mobj_t *punchee)
{
mobj_t *rover;
// don't bother with this crap if we're already on alert
if(punchee->subsector->sector->soundtarget)
return;
// gotta still be alive to call for help
if(punchee->health <= 0)
return;
// has to be something you can wake up and kill too
if(!(punchee->flags & MF_COUNTKILL) || punchee->flags & MF_NODIALOG)
return;
// make the punchee hurt - haleyjd 09/05/10: Fixed to use painstate.
punchee->target = puncher;
P_SetMobjState(punchee, punchee->info->painstate);
// wake up everybody nearby
// scan forward on sector list
for(rover = punchee->snext; rover; rover = rover->snext)
{
// we only wake up certain thing types (Acolytes and Templars?)
if(rover->health > 0 && rover->type >= MT_GUARD1 && rover->type <= MT_PGUARD &&
(P_CheckSight(rover, puncher) || P_CheckSight(rover, punchee)))
{
P_WakeUpThing(puncher, rover);
rover->flags |= MF_NODIALOG;
}
}
// scan backward on sector list
for(rover = punchee->sprev; rover; rover = rover->sprev)
{
// we only wake up certain thing types (Acolytes and Templars?)
if(rover->health > 0 && rover->type >= MT_GUARD1 && rover->type <= MT_PGUARD &&
(P_CheckSight(rover, puncher) || P_CheckSight(rover, punchee)))
{
P_WakeUpThing(puncher, rover);
rover->flags |= MF_NODIALOG;
}
}
}
//
// P_CheckMeleeRange
//
// [STRIFE] Minor change to meleerange.
//
boolean P_CheckMeleeRange(mobj_t* actor)
{
mobj_t* pl;
fixed_t dist;
if(!actor->target)
return false;
pl = actor->target;
if(actor->z + 3 * actor->height / 2 < pl->z) // villsa [STRIFE]
return false;
dist = P_AproxDistance(pl->x - actor->x, pl->y - actor->y);
if(dist >= MELEERANGE - 20*FRACUNIT + pl->info->radius)
return false;
if(!P_CheckSight (actor, actor->target))
return false;
return true;
}
//
// P_CheckMissileRange
//
// [STRIFE]
// Changes to eliminate DOOM-specific code and to allow for
// varying attack ranges for Strife monsters, as well as a general tweak
// to considered distance for all monsters.
//
boolean P_CheckMissileRange(mobj_t* actor)
{
fixed_t dist;
if(!P_CheckSight(actor, actor->target))
return false;
if(actor->flags & MF_JUSTHIT)
{
// the target just hit the enemy,
// so fight back!
actor->flags &= ~MF_JUSTHIT;
return true;
}
if(actor->reactiontime)
return false; // do not attack yet
// OPTIMIZE: get this from a global checksight
dist = P_AproxDistance(actor->x-actor->target->x,
actor->y-actor->target->y) - 64*FRACUNIT;
if (!actor->info->meleestate)
dist -= 128*FRACUNIT; // no melee attack, so fire more
dist >>= 16;
// villsa [STRIFE] checks for acolytes
// haleyjd 09/05/10: Repaired to match disassembly: Was including
// SHADOWGUARD in the wrong case, was missing MT_SENTINEL entirely.
// Structure of ASM also indicates this was probably a switch
// statement turned into a cascading if/else by the compiler.
switch(actor->type)
{
case MT_GUARD1:
case MT_GUARD2:
case MT_GUARD3:
case MT_GUARD4:
case MT_GUARD5:
case MT_GUARD6:
// oddly, not all Acolytes are included here...
dist >>= 4;
break;
case MT_SHADOWGUARD:
case MT_CRUSADER:
case MT_SENTINEL:
dist >>= 1;
break;
default:
break;
}
// villsa [STRIFE] changed to 150
if (dist > 150)
dist = 150;
// haleyjd 20100910: Hex-Rays was leaving this out completely:
if (actor->type == MT_CRUSADER && dist > 120)
dist = 120;
// haleyjd 20110224 [STRIFE]: reversed predicate
return (dist < P_Random());
}
//
// P_CheckRobotRange
//
// villsa [STRIFE] New function
//
boolean P_CheckRobotRange(mobj_t *actor)
{
fixed_t dist;
if(!P_CheckSight(actor, actor->target))
return false;
if(actor->reactiontime)
return false; // do not attack yet
dist = (P_AproxDistance(actor->x-actor->target->x,
actor->y-actor->target->y) - 64*FRACUNIT) >> FRACBITS;
return (dist < 200);
}
//
// P_Move
// Move in the current direction,
// returns false if the move is blocked.
//
// [STRIFE]
// villsa/haleyjd 09/05/10: Modified for terrain types and 3D object
// clipping. Below constants are verified to be unmodified:
//
fixed_t xspeed[8] = {FRACUNIT,47000,0,-47000,-FRACUNIT,-47000,0,47000};
fixed_t yspeed[8] = {0,47000,FRACUNIT,47000,0,-47000,-FRACUNIT,-47000};
extern line_t* spechit[];
extern int numspechit;
boolean P_Move (mobj_t* actor)
{
fixed_t tryx;
fixed_t tryy;
line_t* ld;
// warning: 'catch', 'throw', and 'try'
// are all C++ reserved words
boolean try_ok;
boolean good;
if (actor->movedir == DI_NODIR)
return false;
if ((unsigned)actor->movedir >= 8)
I_Error ("Weird actor->movedir!");
tryx = actor->x + actor->info->speed*xspeed[actor->movedir];
tryy = actor->y + actor->info->speed*yspeed[actor->movedir];
try_ok = P_TryMove (actor, tryx, tryy);
if (!try_ok)
{
// open any specials
if (actor->flags & MF_FLOAT && floatok)
{
// must adjust height
if (actor->z < tmfloorz)
actor->z += FLOATSPEED; // [STRIFE] Note FLOATSPEED == 5*FRACUNIT
else
actor->z -= FLOATSPEED;
actor->flags |= MF_INFLOAT;
return true;
}
if (!numspechit)
return false;
actor->movedir = DI_NODIR;
good = false;
while (numspechit--)
{
ld = spechit[numspechit];
// if the special is not a door
// that can be opened,
// return false
if (P_UseSpecialLine (actor, ld,0))
good = true;
}
return good;
}
else
{
actor->flags &= ~(MF_INFLOAT|MF_FEETCLIPPED); // villsa [STRIFE]
// villsa [STRIFE]
if(P_GetTerrainType(actor) != FLOOR_SOLID)
actor->flags |= MF_FEETCLIPPED;
}
// villsa [STRIFE] Removed pulling non-floating actors down to the ground.
// (haleyjd 09/05/10: Verified)
/*if (! (actor->flags & MF_FLOAT) )
actor->z = actor->floorz;*/
return true;
}
//
// TryWalk
// Attempts to move actor on
// in its current (ob->moveangle) direction.
// If blocked by either a wall or an actor
// returns FALSE
// If move is either clear or blocked only by a door,
// returns TRUE and sets...
// If a door is in the way,
// an OpenDoor call is made to start it opening.
//
// haleyjd 09/05/10: [STRIFE] Verified unmodified.
//
boolean P_TryWalk (mobj_t* actor)
{
if (!P_Move (actor))
{
return false;
}
actor->movecount = P_Random()&15;
return true;
}
//
// P_NewChaseDir
//
void P_NewChaseDir(mobj_t* actor)
{
fixed_t deltax;
fixed_t deltay;
dirtype_t d[3];
int tdir;
dirtype_t olddir;
dirtype_t turnaround;
// villsa [STRIFE] don't bomb out and instead set spawnstate
if(!actor->target)
{
//I_Error("P_NewChaseDir: called with no target");
P_SetMobjState(actor, actor->info->spawnstate);
return;
}
olddir = actor->movedir;
turnaround=opposite[olddir];
deltax = actor->target->x - actor->x;
deltay = actor->target->y - actor->y;
if (deltax>10*FRACUNIT)
d[1]= DI_EAST;
else if (deltax<-10*FRACUNIT)
d[1]= DI_WEST;
else
d[1]=DI_NODIR;
if (deltay<-10*FRACUNIT)
d[2]= DI_SOUTH;
else if (deltay>10*FRACUNIT)
d[2]= DI_NORTH;
else
d[2]=DI_NODIR;
// try direct route
if (d[1] != DI_NODIR
&& d[2] != DI_NODIR)
{
actor->movedir = diags[((deltay<0)<<1)+(deltax>0)];
if (actor->movedir != (int) turnaround && P_TryWalk(actor))
return;
}
// try other directions
if (P_Random() > 200
|| abs(deltay)>abs(deltax))
{
tdir=d[1];
d[1]=d[2];
d[2]=tdir;
}
if (d[1]==turnaround)
d[1]=DI_NODIR;
if (d[2]==turnaround)
d[2]=DI_NODIR;
if (d[1]!=DI_NODIR)
{
actor->movedir = d[1];
if (P_TryWalk(actor))
{
// either moved forward or attacked
return;
}
}
if (d[2]!=DI_NODIR)
{
actor->movedir =d[2];
if (P_TryWalk(actor))
return;
}
// there is no direct path to the player,
// so pick another direction.
if (olddir!=DI_NODIR)
{
actor->movedir =olddir;
if (P_TryWalk(actor))
return;
}
// randomly determine direction of search
if (P_Random()&1)
{
for ( tdir=DI_EAST;
tdir<=DI_SOUTHEAST;
tdir++ )
{
if (tdir != (int) turnaround)
{
actor->movedir =tdir;
if ( P_TryWalk(actor) )
return;
}
}
}
else
{
for ( tdir=DI_SOUTHEAST;
tdir != (DI_EAST-1);
tdir-- )
{
if (tdir != (int) turnaround)
{
actor->movedir = tdir;
if ( P_TryWalk(actor) )
return;
}
}
}
if (turnaround != DI_NODIR)
{
actor->movedir =turnaround;
if ( P_TryWalk(actor) )
return;
}
actor->movedir = DI_NODIR; // can not move
}
//
// P_NewRandomDir
//
// villsa [STRIFE] new function
//
// haleyjd: Almost identical to the tail-end of P_NewChaseDir, this function
// finds a purely random direction for an object to walk. Called from
// A_RandomWalk.
//
// Shockingly similar to the RandomWalk pointer in Eternity :)
//
void P_NewRandomDir(mobj_t* actor)
{
int dir = 0;
int omovedir = opposite[actor->movedir]; // haleyjd 20110223: nerfed this...
// randomly determine direction of search
if(P_Random() & 1)
{
// Try all non-reversal directions forward, first
for(dir = 0; dir < DI_NODIR; dir++)
{
if(dir != omovedir)
{
actor->movedir = dir;
if(P_Random() & 1)
{
if(P_TryWalk(actor))
break;
}
}
}
// haleyjd 20110223: logic missing entirely:
// failed all non-reversal directions? try reversing
if(dir > DI_SOUTHEAST)
{
if(omovedir == DI_NODIR)
{
actor->movedir = DI_NODIR;
return;
}
actor->movedir = omovedir;
if(P_TryWalk(actor))
return;
else
{
actor->movedir = DI_NODIR;
return;
}
}
}
else
{
// Try directions one at a time in backward order
dir = DI_SOUTHEAST;
while(1)
{
// haleyjd 09/05/10: missing random code.
if(dir != omovedir)
{
actor->movedir = dir;
// villsa 09/06/10: un-inlined code
if(P_TryWalk(actor))
return;
}
// Ran out of non-reversal directions to try? Reverse.
if(--dir == -1)
{
if(omovedir == DI_NODIR)
{
actor->movedir = DI_NODIR;
return;
}
actor->movedir = omovedir;
// villsa 09/06/10: un-inlined code
if(P_TryWalk(actor))
return;
else
{
actor->movedir = DI_NODIR;
return;
}
} // end if(--dir == -1)
} // end while(1)
} // end else
}
// haleyjd 09/05/10: Needed below.
extern void P_BulletSlope (mobj_t *mo);
//
// P_LookForPlayers
//
// If allaround is false, only look 180 degrees in front.
// Returns true if a player is targeted.
//
// [STRIFE]
// haleyjd 09/05/10: Modifications to support friendly units.
//
boolean
P_LookForPlayers
( mobj_t* actor,
boolean allaround )
{
int c;
int stop;
player_t* player;
angle_t an;
fixed_t dist;
mobj_t * master = players[actor->miscdata].mo;
// haleyjd 09/05/10: handle Allies
if(actor->flags & MF_ALLY)
{
// Deathmatch: support team behavior for Rebels.
if(netgame)
{
// Rebels adopt the allied player's target if it is not of the same
// allegiance. Other allies do it unconditionally.
if(master && master->target &&
(master->target->type != MT_REBEL1 ||
master->target->miscdata != actor->miscdata))
{
actor->target = master->target;
}
else
{
// haleyjd 09/06/10: Note that this sets actor->target in Strife!
P_BulletSlope(actor);
// Clear target if nothing is visible, or if the target is a
// friendly Rebel or the allied player.
if (linetarget == NULL
|| (actor->target->type == MT_REBEL1
&& actor->target->miscdata == actor->miscdata)
|| actor->target == master)
{
actor->target = NULL;
return false;
}
}
}
else
{
// Single-player: Adopt any non-allied player target.
if(master && master->target && !(master->target->flags & MF_ALLY))
{
actor->target = master->target;
return true;
}
// haleyjd 09/06/10: Note that this sets actor->target in Strife!
P_BulletSlope(actor);
// Clear target if nothing is visible, or if the target is an ally.
if(!linetarget || actor->target->flags & MF_ALLY)
{
actor->target = NULL;
return false;
}
}
return true;
}
c = 0;
// NOTE: This behavior has been changed from the Vanilla behavior, where
// an infinite loop can occur if players 0-3 all quit the game. Although
// technically this is not what Vanilla does, fixing this is highly
// desirable, and having the game simply lock up is not acceptable.
// stop = (actor->lastlook - 1) & 3;
// for (;; actor->lastlook = (actor->lastlook + 1) & 3)
stop = (actor->lastlook + MAXPLAYERS - 1) % MAXPLAYERS;
for ( ; ; actor->lastlook = (actor->lastlook + 1) % MAXPLAYERS)
{
if (!playeringame[actor->lastlook])
continue;
if (c++ == 2
|| actor->lastlook == stop)
{
// done looking
return false;
}
player = &players[actor->lastlook];
if (player->health <= 0)
continue; // dead
if (!P_CheckSight (actor, player->mo))
continue; // out of sight
if (!allaround)
{
an = R_PointToAngle2(actor->x,
actor->y,
player->mo->x,
player->mo->y) - actor->angle;
if (an > ANG90 && an < ANG270)
{
dist = P_AproxDistance (player->mo->x - actor->x,
player->mo->y - actor->y);
// if real close, react anyway
if (dist > MELEERANGE)
continue; // behind back
}
}
actor->target = player->mo;
return true;
}
return false;
}
// haleyjd 09/05/10: [STRIFE] Removed A_KeenDie
//
// ACTION ROUTINES
//
//
// A_Look
// Stay in state until a player is sighted.
//
// [STRIFE]
// haleyjd 09/05/10: Adjusted for allies, Inquisitors, etc.
//
void A_Look (mobj_t* actor)
{
mobj_t* targ;
actor->threshold = 0; // any shot will wake up
targ = actor->subsector->sector->soundtarget;
if (targ
&& (targ->flags & MF_SHOOTABLE) )
{
// [STRIFE] Allies wander when they call this.
if(actor->flags & MF_ALLY)
A_RandomWalk(actor);
else
{
actor->target = targ;
if ( actor->flags & MF_AMBUSH )
{
if (P_CheckSight (actor, actor->target))
goto seeyou;
}
else
goto seeyou;
}
}
// haleyjd 09/05/10: This is bizarre, as Rogue keeps using the GIVEQUEST flag
// as a parameter to control allaround look behavior. Did they just run out of
// flags, or what?
// STRIFE-TODO: Needs serious verification.
if (!P_LookForPlayers(actor, (actor->flags & MF_GIVEQUEST) != 0))
return;
// go into chase state
seeyou:
if (actor->info->seesound)
{
int sound = actor->info->seesound;
mobj_t * emitter = actor;
// [STRIFE] Removed DOOM random sounds.
// [STRIFE] Only Inquisitors roar loudly here.
if (actor->type == MT_INQUISITOR)
emitter = NULL;
S_StartSound (emitter, sound);
}
// [STRIFE] Set threshold (kinda odd as it's still set to 0 above...)
actor->threshold = 20;
P_SetMobjState (actor, actor->info->seestate);
}
//
// A_RandomWalk
//
// [STRIFE] New function.
// haleyjd 09/05/10: Action routine used to meander about.
//
void A_RandomWalk(mobj_t* actor)
{
// Standing actors do not wander.
if(actor->flags & MF_STAND)
return;
if(actor->reactiontime)
actor->reactiontime--; // count down reaction time
else
{
// turn to a new angle
if(actor->movedir < DI_NODIR)
{
int delta;
actor->angle &= (7 << 29);
delta = actor->angle - (actor->movedir << 29);
if(delta < 0)
actor->angle += ANG90/2;
else if(delta > 0)
actor->angle -= ANG90/2;
}
// try moving
if(--actor->movecount < 0 || !P_Move(actor))
{
P_NewRandomDir(actor);
actor->movecount += 5;
}
}
}
//
// A_FriendLook
//
// [STRIFE] New function
// haleyjd 09/05/10: Action function used mostly by mundane characters such as
// peasants.
//
void A_FriendLook(mobj_t* actor)
{
mobj_t *soundtarget = actor->subsector->sector->soundtarget;
actor->threshold = 0;
if(soundtarget && soundtarget->flags & MF_SHOOTABLE)
{
// Handle allies, except on maps 3 and 34 (Front Base/Movement Base)
if((actor->flags & MF_ALLY) == (soundtarget->flags & MF_ALLY) &&
gamemap != 3 && gamemap != 34)
{
// STRIFE-TODO: Needs serious verification.
if(P_LookForPlayers(actor, (actor->flags & MF_GIVEQUEST) != 0))
{
P_SetMobjState(actor, actor->info->seestate);
actor->flags |= MF_NODIALOG;
return;
}
}
else
{
actor->target = soundtarget;
if(!(actor->flags & MF_AMBUSH) || P_CheckSight(actor, actor->target))
{
actor->threshold = 10;
P_SetMobjState(actor, actor->info->seestate);
return;
}
}
}
// do some idle animation
if(P_Random() < 30)
{
int t = P_Random();
P_SetMobjState(actor, (t & 1) + actor->info->spawnstate + 1);
}
// wander around a bit
if(!(actor->flags & MF_STAND) && P_Random() < 40)
P_SetMobjState(actor, actor->info->spawnstate + 3);
}
//
// A_Listen
//
// [STRIFE] New function
// haleyjd 09/05/10: Action routine used to strictly listen for a target.
//
void A_Listen(mobj_t* actor)
{
mobj_t *soundtarget;
actor->threshold = 0;
soundtarget = actor->subsector->sector->soundtarget;
if(soundtarget && (soundtarget->flags & MF_SHOOTABLE))
{
if((actor->flags & MF_ALLY) != (soundtarget->flags & MF_ALLY))
{
actor->target = soundtarget;
if(!(actor->flags & MF_AMBUSH) || P_CheckSight(actor, actor->target))
{
if(actor->info->seesound)
S_StartSound(actor, actor->info->seesound);
actor->threshold = 10;
P_SetMobjState(actor, actor->info->seestate);
}
}
}
}
//
// A_Chase
// Actor has a melee attack,
// so it tries to close as fast as possible
//
// haleyjd 09/05/10: [STRIFE] Various minor changes
//
void A_Chase (mobj_t* actor)
{
int delta;
if (actor->reactiontime)
actor->reactiontime--;
// modify target threshold
if (actor->threshold)
{
// haleyjd 20110204 [STRIFE]: No health <= 0 check here!
if (actor->target)
actor->threshold--;
else
actor->threshold = 0;
}
// turn towards movement direction if not there yet
if (actor->movedir < 8)
{
actor->angle &= (7<<29);
delta = actor->angle - (actor->movedir << 29);
if (delta > 0)
actor->angle -= ANG90/2;
else if (delta < 0)
actor->angle += ANG90/2;
}
if (!actor->target
|| !(actor->target->flags&MF_SHOOTABLE))
{
// look for a new target
if (P_LookForPlayers(actor, true))
return; // got a new target
P_SetMobjState (actor, actor->info->spawnstate);
return;
}
// do not attack twice in a row
if (actor->flags & MF_JUSTATTACKED)
{
actor->flags &= ~MF_JUSTATTACKED;
// [STRIFE] Checks only against fastparm, not gameskill == 5
if (!fastparm)
P_NewChaseDir (actor);
return;
}
// check for melee attack
if (actor->info->meleestate
&& P_CheckMeleeRange (actor))
{
if (actor->info->attacksound)
S_StartSound (actor, actor->info->attacksound);
P_SetMobjState (actor, actor->info->meleestate);
return;
}
// check for missile attack
if (actor->info->missilestate)
{
// [STRIFE] Checks only fastparm.
if (!fastparm && actor->movecount)
{
goto nomissile;
}
if (!P_CheckMissileRange (actor))
goto nomissile;
P_SetMobjState (actor, actor->info->missilestate);
// [STRIFE] Add NODIALOG flag to disable dialog
actor->flags |= (MF_NODIALOG|MF_JUSTATTACKED);
return;
}
// ?
nomissile:
// possibly choose another target
if (netgame
&& !actor->threshold
&& !P_CheckSight (actor, actor->target) )
{
if (P_LookForPlayers(actor, true))
return; // got a new target
}
// chase towards player
if (--actor->movecount<0
|| !P_Move (actor))
{
P_NewChaseDir (actor);
}
// [STRIFE] Changes to active sound behavior:
// * Significantly more frequent
// * Acolytes have randomized wandering sounds
// make active sound
if (actor->info->activesound && P_Random () < 38)
{
if(actor->info->activesound >= sfx_agrac1 &&
actor->info->activesound <= sfx_agrac4)
{
S_StartSound(actor, sfx_agrac1 + P_Random() % 4);
}
else
S_StartSound(actor, actor->info->activesound);
}
}
//
// A_FaceTarget
//
// [STRIFE]
// haleyjd 09/05/10: Handling for visibility-modifying flags.
//
void A_FaceTarget (mobj_t* actor)
{
if (!actor->target)
return;
actor->flags &= ~MF_AMBUSH;
actor->angle = R_PointToAngle2 (actor->x,
actor->y,
actor->target->x,
actor->target->y);
if(actor->target->flags & MF_SHADOW)
{
// [STRIFE] increased SHADOW inaccuracy by a power of 2
int t = P_Random();
actor->angle += (t - P_Random()) << 22;
}
else if(actor->target->flags & MF_MVIS)
{
// [STRIFE] MVIS gives even worse aiming!
int t = P_Random();
actor->angle += (t - P_Random()) << 23;
}
}
//
// A_PeasantPunch
//
// [STRIFE] New function
// haleyjd 09/05/10: Attack used by Peasants as a one-time retaliation
// when the player or a monster injures them. Weak doesn't begin to
// describe it :P
//
void A_PeasantPunch(mobj_t* actor)
{
if(!actor->target)
return;
A_FaceTarget(actor);
if(P_CheckMeleeRange(actor))
P_DamageMobj(actor->target, actor, actor, 2 * (P_Random() % 5) + 2);
}
//
// A_ReaverAttack
//
// [STRIFE] New function
// haleyjd 09/06/10: Action routine used by Reavers to fire bullets.
// Also apparently used by Inquistors, though they don't seem to use
// it too often, as they're content to blow your face off with their
// HE grenades instead.
//
void A_ReaverAttack(mobj_t* actor)
{
int i = 0;
fixed_t slope;
if(!actor->target)
return;
S_StartSound(actor, sfx_reavat);
A_FaceTarget(actor);
slope = P_AimLineAttack(actor, actor->angle, 2048*FRACUNIT);
do
{
int t = P_Random();
angle_t shootangle = actor->angle + ((t - P_Random()) << 20);
int damage = 3*((P_Random() & 7) + 1);
P_LineAttack(actor, shootangle, 2048*FRACUNIT, slope, damage);
++i;
}
while(i < 3);
}
//
// A_BulletAttack
//
// [STRIFE] New function
// haleyjd 09/06/10: Action function for generic bullet attacks. Used by
// a lot of different characters, including Acolytes, Rebels, and Macil.
//
void A_BulletAttack(mobj_t* actor)
{
int t, damage;
fixed_t slope;
angle_t shootangle;
if(!actor->target)
return;
S_StartSound(actor, sfx_rifle);
A_FaceTarget(actor);
slope = P_AimLineAttack(actor, actor->angle, 2048*FRACUNIT);
t = P_Random();
shootangle = ((t - P_Random()) << 19) + actor->angle;
damage = 3 * (P_Random() % 5 + 1);
P_LineAttack(actor, shootangle, 2048*FRACUNIT, slope, damage);
}
//
// A_CheckTargetVisible
//
// [STRIFE] New function
// haleyjd 09/06/10: Action routine which sets a thing back to its
// seestate at random, or if it cannot see its target, or its target
// is dead. Used by diverse actors.
//
void A_CheckTargetVisible(mobj_t* actor)
{
A_FaceTarget(actor);
if(P_Random() >= 30)
{
mobj_t *target = actor->target;
if(!target || target->health <= 0 || !P_CheckSight(actor, target) ||
P_Random() < 40)
{
P_SetMobjState(actor, actor->info->seestate);
}
}
}
//
// A_SentinelAttack
//
// [STRIFE] New function
// haleyjd 09/06/10: Action function implementing the Sentinel's laser attack
// villsa 09/06/10 implemented
//
void A_SentinelAttack(mobj_t* actor)
{
mobj_t* mo;
mobj_t* mo2;
fixed_t x;
fixed_t y;
fixed_t z;
angle_t an;
int i;
mo = P_SpawnFacingMissile(actor, actor->target, MT_L_LASER);
an = actor->angle >> ANGLETOFINESHIFT;
if(mo->momy | mo->momx) // villsa - fixed typo (yes, they actually used '|' instead of'||')
{
for(i = 8; i > 1; i--)
{
x = mo->x + FixedMul(mobjinfo[MT_L_LASER].radius * i, finecosine[an]);
y = mo->y + FixedMul(mobjinfo[MT_L_LASER].radius * i, finesine[an]);
z = mo->z + i * (mo->momz >> 2);
mo2 = P_SpawnMobj(x, y, z, MT_R_LASER);
mo2->target = actor;
mo2->momx = mo->momx;
mo2->momy = mo->momy;
mo2->momz = mo->momz;
P_CheckMissileSpawn(mo2);
}
}
mo->z += mo->momz >> 2;
}
//
// A_StalkerThink
//
// [STRIFE] New function
// haleyjd 09/06/10: Action function to drive Stalker logic.
//
void A_StalkerThink(mobj_t* actor)
{
statenum_t statenum;
if(actor->flags & MF_NOGRAVITY)
{
if(actor->ceilingz - actor->info->height <= actor->z)
return;
statenum = S_SPID_11; // 1020
}
else
statenum = S_SPID_18; // 1027
P_SetMobjState(actor, statenum);
}
//
// A_StalkerSetLook
//
// [STRIFE] New function
// haleyjd 09/06/10: Action function to marshall transitions to the
// Stalker's spawnstate.
//
void A_StalkerSetLook(mobj_t* actor)
{
statenum_t statenum;
if(!actor) // weird; totally unnecessary.
return;
if(actor->flags & MF_NOGRAVITY)
{
if(actor->state->nextstate == S_SPID_01) // 1010
return;
statenum = S_SPID_01; // 1010
}
else
{
if(actor->state->nextstate == S_SPID_02) // 1011
return;
statenum = S_SPID_02; // 1011
}
P_SetMobjState(actor, statenum);
}
//
// A_StalkerDrop
//
// [STRIFE] New function
// haleyjd 09/06/10: Dead simple: removes NOGRAVITY status.
//
void A_StalkerDrop(mobj_t* actor)
{
actor->flags &= ~MF_NOGRAVITY;
}
//
// A_StalkerScratch
//
// [STRIFE] New function
// haleyjd 09/06/10: Action function for Stalker's attack.
//
void A_StalkerScratch(mobj_t* actor)
{
if(actor->flags & MF_NOGRAVITY)
{
// Drop him down before he can attack
P_SetMobjState(actor, S_SPID_11); // 1020
return;
}
if(!actor->target)
return;
A_FaceTarget(actor);
if(P_CheckMeleeRange(actor))
P_DamageMobj(actor->target, actor, actor, 2 * (P_Random() % 8) + 2);
}
//
// A_FloatWeave
//
// [STRIFE] New function
// haleyjd 09/06/10: Action function which is responsible for floating
// actors' constant upward and downward movement. Probably a really bad
// idea in retrospect given how dodgy the 3D clipping implementation is.
//
void A_FloatWeave(mobj_t* actor)
{
fixed_t height;
fixed_t z;
if(actor->threshold)
return;
if(actor->flags & MF_INFLOAT)
return;
height = actor->info->height; // v2
z = actor->floorz + 96*FRACUNIT; // v1
if ( z > actor->ceilingz - height - 16*FRACUNIT )
z = actor->ceilingz - height - 16*FRACUNIT;
if ( z >= actor->z )
actor->momz += FRACUNIT;
else
actor->momz -= FRACUNIT;
if ( z == actor->z )
actor->threshold = 4;
else
actor->threshold = 8;
}
//
// A_RobotMelee
//
// [STRIFE] New function
// haleyjd 09/06/10: Action function for Reaver and Templar melee attacks.
//
void A_RobotMelee(mobj_t* actor)
{
if(!actor->target)
return;
A_FaceTarget(actor);
if(P_CheckMeleeRange(actor))
{
S_StartSound(actor, sfx_revbld);
P_DamageMobj(actor->target, actor, actor, 3 * (P_Random() % 8 + 1));
}
}
//
// A_TemplarMauler
//
// [STRIFE] New function
// haleyjd 09/06/10: Exactly what it sounds like. Kicks your ass.
//
void A_TemplarMauler(mobj_t* actor)
{
int i, t;
int angle;
int bangle;
int damage;
int slope;
if(!actor->target)
return;
S_StartSound(actor, sfx_pgrdat);
A_FaceTarget(actor);
bangle = actor->angle;
slope = P_AimLineAttack(actor, bangle, 2048*FRACUNIT);
for(i = 0; i < 10; i++)
{
// haleyjd 09/06/10: Very carefully preserved order of P_Random calls
damage = (P_Random() & 4) * 2;
t = P_Random();
angle = bangle + ((t - P_Random()) << 19);
t = P_Random();
slope = ((t - P_Random()) << 5) + slope;
P_LineAttack(actor, angle, 2112*FRACUNIT, slope, damage);
}
}
//
// A_CrusaderAttack
//
// villsa [STRIFE] new codepointer
// 09/06/10: Action function for the Crusader's Flamethrower.
// Very similar to the player's flamethrower, seeing how it was ripped
// off a Crusader by the Rat People ;)
//
void A_CrusaderAttack(mobj_t* actor)
{
if(!actor->target)
return;
actor->z += (8*FRACUNIT);
if(P_CheckRobotRange(actor))
{
A_FaceTarget(actor);
actor->angle -= (ANG90 / 8);
P_SpawnFacingMissile(actor, actor->target, MT_C_FLAME);
}
else if(P_CheckMissileRange(actor))
{
A_FaceTarget(actor);
actor->z += (16*FRACUNIT);
P_SpawnFacingMissile(actor, actor->target, MT_C_MISSILE);
actor->angle -= (ANG45 / 32);
actor->z -= (16*FRACUNIT);
P_SpawnFacingMissile(actor, actor->target, MT_C_MISSILE);
actor->angle += (ANG45 / 16);
P_SpawnFacingMissile(actor, actor->target, MT_C_MISSILE);
P_SetMobjState(actor, actor->info->seestate);
actor->reactiontime += 15;
}
else
P_SetMobjState(actor, actor->info->seestate);
actor->z -= (8*FRACUNIT);
}
//
// A_CrusaderLeft
//
// villsa [STRIFE] new codepointer
//
void A_CrusaderLeft(mobj_t* actor)
{
mobj_t* mo;
actor->angle += (ANG90 / 16);
mo = P_SpawnFacingMissile(actor, actor->target, MT_C_FLAME);
mo->momz = FRACUNIT;
mo->z += (16*FRACUNIT);
}
//
// A_CrusaderRight
//
// villsa [STRIFE] new codepointer
//
void A_CrusaderRight(mobj_t* actor)
{
mobj_t* mo;
actor->angle -= (ANG90 / 16);
mo = P_SpawnFacingMissile(actor, actor->target, MT_C_FLAME);
mo->momz = FRACUNIT;
mo->z += (16*FRACUNIT);
}
//
// A_CheckTargetVisible2
//
// [STRIFE] New function
// haleyjd 09/06/10: Mostly the same as CheckTargetVisible, except without
// the randomness.
//
void A_CheckTargetVisible2(mobj_t* actor)
{
if(!actor->target || actor->target->health <= 0 ||
!P_CheckSight(actor, actor->target))
{
P_SetMobjState(actor, actor->info->seestate);
}
}
//
// A_InqFlyCheck
//
// [STRIFE] New function
// haleyjd 09/06/10: Action function to check if an Inquisitor wishes
// to take to flight.
//
void A_InqFlyCheck(mobj_t* actor)
{
if(!actor->target)
return;
A_FaceTarget(actor);
// if not in "robot" range, shoot grenades.
if(!P_CheckRobotRange(actor))
P_SetMobjState(actor, S_ROB3_14); // 1061
if(actor->z != actor->target->z)
{
// Take off all zig!
if(actor->z + actor->height + 54*FRACUNIT < actor->ceilingz)
P_SetMobjState(actor, S_ROB3_17); // 1064
}
}
//
// A_InqGrenade
//
// villsa [STRIFE] new codepointer
// 09/06/10: Inquisitor grenade attack action routine.
//
void A_InqGrenade(mobj_t* actor)
{
mobj_t* mo;
if(!actor->target)
return;
A_FaceTarget(actor);
actor->z += MAXRADIUS;
// grenade 1
actor->angle -= (ANG45 / 32);
mo = P_SpawnFacingMissile(actor, actor->target, MT_INQGRENADE);
mo->momz += (9*FRACUNIT);
// grenade 2
actor->angle += (ANG45 / 16);
mo = P_SpawnFacingMissile(actor, actor->target, MT_INQGRENADE);
mo->momz += (16*FRACUNIT);
actor->z -= MAXRADIUS;
}
//
// A_InqTakeOff
//
// [STRIFE] New function
// haleyjd 09/06/10: Makes an Inquisitor start flying.
//
void A_InqTakeOff(mobj_t* actor)
{
angle_t an;
fixed_t speed = actor->info->speed * (2 * FRACUNIT / 3);
fixed_t dist;
if(!actor->target)
return;
S_StartSound(actor, sfx_inqjmp);
actor->z += 64 * FRACUNIT;
A_FaceTarget(actor);
an = actor->angle >> ANGLETOFINESHIFT;
actor->momx = FixedMul(finecosine[an], speed);
actor->momy = FixedMul(finesine[an], speed);
dist = P_AproxDistance(actor->target->x - actor->x,
actor->target->y - actor->y);
dist /= speed;
if(dist < 1)
dist = 1;
actor->momz = (actor->target->z - actor->z) / dist;
actor->reactiontime = 60;
actor->flags |= MF_NOGRAVITY;
}
//
// A_InqFly
//
// [STRIFE] New function
// haleyjd 09/06/10: Handles an Inquisitor in flight.
//
void A_InqFly(mobj_t* actor)
{
if(!(leveltime & 7))
S_StartSound(actor, sfx_inqjmp);
if(--actor->reactiontime < 0 || !actor->momx || !actor->momy ||
actor->z <= actor->floorz)
{
// Come in for a landing.
P_SetMobjState(actor, actor->info->seestate);
actor->reactiontime = 0;
actor->flags &= ~MF_NOGRAVITY;
}
}
//
// A_FireSigilWeapon
//
// [STRIFE] New function
// haleyjd 09/06/10: Action function for the Entity's attack.
//
void A_FireSigilWeapon(mobj_t* actor)
{
int choice = P_Random() % 5;
// STRIFE-TODO: Needs verification. This switch is just weird.
switch(choice)
{
case 0:
A_ProgrammerAttack(actor);
break;
// ain't not seen no case 1, bub...
case 2:
A_FireSigilEOffshoot(actor);
break;
case 3:
A_SpectreCAttack(actor);
break;
case 4:
A_SpectreDAttack(actor);
break;
case 5: // BUG: never used? wtf were they thinking?
A_SpectreEAttack(actor);
break;
default:
break;
}
}
//
// A_ProgrammerAttack
//
// [STRIFE] New function
// haleyjd 09/06/10: Action function for the Programmer's main
// attack; equivalent to the player's first Sigil.
//
void A_ProgrammerAttack(mobj_t* actor)
{
mobj_t *mo;
if(!actor->target)
return;
mo = P_SpawnMobj(actor->target->x, actor->target->y, ONFLOORZ,
MT_SIGIL_A_GROUND);
mo->threshold = 25;
mo->target = actor;
mo->health = -2;
mo->tracer = actor->target;
}
//
// A_Sigil_A_Action
//
// [STRIFE] New function
// haleyjd 09/06/10: Called by MT_SIGIL_A_GROUND to zot anyone nearby with
// corny looking lightning bolts.
//
void A_Sigil_A_Action(mobj_t* actor)
{
int t, x, y, type;
mobj_t *mo;
if(actor->threshold)
actor->threshold--;
t = P_Random();
actor->momx += ((t & 3) - (P_Random() & 3)) << FRACBITS;
t = P_Random();
actor->momy += ((t & 3) - (P_Random() & 3)) << FRACBITS;
t = P_Random();
x = 50*FRACUNIT * ((t & 3) - (P_Random() & 3)) + actor->x;
t = P_Random();
y = 50*FRACUNIT * ((t & 3) - (P_Random() & 3)) + actor->y;
if(actor->threshold <= 25)
type = MT_SIGIL_A_ZAP_LEFT;
else
type = MT_SIGIL_A_ZAP_RIGHT;
mo = P_SpawnMobj(x, y, ONCEILINGZ, type);
mo->momz = -18 * FRACUNIT;
mo->target = actor->target;
mo->health = actor->health;
mo = P_SpawnMobj(actor->x, actor->y, ONCEILINGZ, MT_SIGIL_A_ZAP_RIGHT);
mo->momz = -18 * FRACUNIT;
mo->target = actor->target;
mo->health = actor->health;
}
//
// A_SpectreEAttack
//
// [STRIFE] New function
// haleyjd 09/06/10: Action function for the Loremaster's Spectre.
// Equivalent to the player's final Sigil attack.
//
void A_SpectreEAttack(mobj_t* actor)
{
mobj_t *mo;
if(!actor->target)
return;
mo = P_SpawnMissile(actor, actor->target, MT_SIGIL_SE_SHOT);
mo->health = -2;
}
//
// A_SpectreCAttack
//
// villsa [STRIFE] new codepointer
// 09/06/10: Action routine for the Oracle's Spectre. Equivalent to the player's
// third Sigil attack.
//
void A_SpectreCAttack(mobj_t* actor)
{
mobj_t* mo;
int i;
if(!actor->target)
return;
mo = P_SpawnMobj(actor->x, actor->y, actor->z + (32*FRACUNIT), MT_SIGIL_A_ZAP_RIGHT);
mo->momz = -(18*FRACUNIT);
mo->target = actor;
mo->health = -2;
mo->tracer = actor->target;
actor->angle -= ANG90;
for(i = 0; i < 20; i++)
{
actor->angle += (ANG90 / 10);
mo = P_SpawnMortar(actor, MT_SIGIL_C_SHOT);
mo->health = -2;
mo->z = actor->z + (32*FRACUNIT);
}
actor->angle -= ANG90;
}
//
// A_AlertSpectreC
//
// [STRIFE] New function
// haleyjd 09/06/10: Action function called by the Oracle when it is
// killed. Finds an MT_SPECTRE_C anywhere on the map and awakens it.
//
void A_AlertSpectreC(mobj_t* actor)
{
thinker_t *th;
for(th = thinkercap.next; th != &thinkercap; th = th->next)
{
if(th->function.acp1 == (actionf_p1)P_MobjThinker)
{
mobj_t *mo = (mobj_t *)th;
if(mo->type == MT_SPECTRE_C)
{
P_SetMobjState(mo, mo->info->seestate);
mo->target = actor->target;
return;
}
}
}
}
//
// A_Sigil_E_Action
//
// villsa [STRIFE] new codepointer
// 09/06/10: Action routine for Sigil "E" shots. Spawns the room-filling
// lightning bolts that seem to often do almost nothing.
//
void A_Sigil_E_Action(mobj_t* actor)
{
actor->angle += ANG90;
P_SpawnMortar(actor, MT_SIGIL_E_OFFSHOOT);
actor->angle -= ANG180;
P_SpawnMortar(actor, MT_SIGIL_E_OFFSHOOT);
actor->angle += ANG90;
P_SpawnMortar(actor, MT_SIGIL_E_OFFSHOOT);
}
//
// A_SigilTrail
//
// villsa [STRIFE] new codepointer
//
void A_SigilTrail(mobj_t* actor)
{
mobj_t* mo;
mo = P_SpawnMobj(actor->x - actor->momx,
actor->y - actor->momy,
actor->z, MT_SIGIL_TRAIL);
mo->angle = actor->angle;
mo->health = actor->health;
}
//
// A_SpectreDAttack
//
// [STRIFE] New function
// haleyjd 09/06/10: Action function for Macil's Spectre.
// Equivalent of the player's fourth Sigil attack.
//
void A_SpectreDAttack(mobj_t* actor)
{
mobj_t *mo;
if(!actor->target)
return;
mo = P_SpawnMissile(actor, actor->target, MT_SIGIL_SD_SHOT);
mo->health = -2;
mo->tracer = actor->target;
}
//
// A_FireSigilEOffshoot
//
// [STRIFE] New function
// haleyjd 09/06/10: Action function to fire part of a Sigil E
// attack. Used at least by the Entity.
//
void A_FireSigilEOffshoot(mobj_t* actor)
{
mobj_t *mo;
if(!actor->target)
return;
mo = P_SpawnMissile(actor, actor->target, MT_SIGIL_E_OFFSHOOT);
mo->health = -2;
}
//
// A_ShadowOff
//
// villsa [STRIFE] new codepointer
// 09/06/10: Disables SHADOW and MVIS flags.
//
void A_ShadowOff(mobj_t* actor)
{
actor->flags &= ~(MF_SHADOW|MF_MVIS);
}
//
// A_ModifyVisibility
//
// villsa [STRIFE] new codepointer
// 09/06/10: Turns on SHADOW, and turns off MVIS.
//
void A_ModifyVisibility(mobj_t* actor)
{
actor->flags |= MF_SHADOW;
actor->flags &= ~MF_MVIS;
}
//
// A_ShadowOn
//
// villsa [STRIFE] new codepointer
// 09/06/10: Turns on SHADOW and MVIS.
//
void A_ShadowOn(mobj_t* actor)
{
actor->flags |= (MF_SHADOW|MF_MVIS);
}
//
// A_SetTLOptions
//
// villsa [STRIFE] new codepointer
// 09/06/10: Sets SHADOW and/or MVIS based on the thing's spawnpoint options.
//
void A_SetTLOptions(mobj_t* actor)
{
if(actor->spawnpoint.options & MTF_TRANSLUCENT)
actor->flags |= MF_SHADOW;
if(actor->spawnpoint.options & MTF_MVIS)
actor->flags |= MF_MVIS;
}
//
// A_BossMeleeAtk
//
// villsa [STRIFE] new codepointer
// 09/06/10: Gratuitous melee attack used by multiple boss characters,
// just for the sake of having one. It's not like anybody in their right
// mind would get close to any of the maniacs that use this ;)
//
void A_BossMeleeAtk(mobj_t* actor)
{
if(!actor->target)
return;
P_DamageMobj(actor->target, actor, actor, 10 * (P_Random() & 9));
}
//
// A_BishopAttack
//
// villsa [STRIFE] new codepointer
// 09/06/10: Bishop's homing missile attack.
//
void A_BishopAttack(mobj_t* actor)
{
mobj_t* mo;
if(!actor->target)
return;
actor->z += MAXRADIUS;
mo = P_SpawnMissile(actor, actor->target, MT_SEEKMISSILE);
mo->tracer = actor->target;
actor->z -= MAXRADIUS;
}
//
// A_FireHookShot
//
// villsa [STRIFE] new codepointer
// 09/06/10: Action function for the Loremaster's hookshot attack.
//
void A_FireHookShot(mobj_t* actor)
{
if(!actor->target)
return;
P_SpawnMissile(actor, actor->target, MT_HOOKSHOT);
}
//
// A_FireChainShot
//
// villsa [STRIFE] new codepointer
// 09/06/10: Action function for the hookshot projectile. Spawns echoes
// to create a chain-like appearance.
//
void A_FireChainShot(mobj_t* actor)
{
S_StartSound(actor, sfx_tend);
P_SpawnMobj(actor->x, actor->y, actor->z, MT_CHAINSHOT); // haleyjd: fixed type
P_SpawnMobj(actor->x - (actor->momx >> 1),
actor->y - (actor->momy >> 1),
actor->z, MT_CHAINSHOT);
P_SpawnMobj(actor->x - actor->momx,
actor->y - actor->momy,
actor->z, MT_CHAINSHOT);
}
//
// A_MissileSmoke
//
// villsa [STRIFE] new codepointer
//
void A_MissileSmoke(mobj_t* actor)
{
mobj_t* mo;
S_StartSound(actor, sfx_rflite);
P_SpawnPuff(actor->x, actor->y, actor->z);
mo = P_SpawnMobj(actor->x - actor->momx,
actor->y - actor->momy,
actor->z, MT_MISSILESMOKE);
mo->momz = FRACUNIT;
}
//
// A_SpawnSparkPuff
//
// villsa [STRIFE] new codepointer
//
void A_SpawnSparkPuff(mobj_t* actor)
{
int r;
mobj_t* mo;
fixed_t x;
fixed_t y;
r = P_Random();
x = (10*FRACUNIT) * ((r & 3) - (P_Random() & 3)) + actor->x;
r = P_Random();
y = (10*FRACUNIT) * ((r & 3) - (P_Random() & 3)) + actor->y;
mo = P_SpawnMobj(x, y, actor->z, MT_SPARKPUFF);
P_SetMobjState(mo, S_BNG4_01); // 199
mo->momz = FRACUNIT;
}
// haleyjd 09/05/10: [STRIFE] Removed:
// A_PosAttack, A_SPosAttack, A_CPosAttack, A_CPosRefire, A_SpidRefire,
// A_BspiAttack, A_TroopAttack, A_SargAttack, A_HeadAttack, A_CyberAttack,
// A_BruisAttack, A_SkelMissile
int TRACEANGLE = 0xE000000; // villsa [STRIFE] changed from 0xC000000 to 0xE000000
//
// A_Tracer
//
void A_Tracer (mobj_t* actor)
{
angle_t exact;
fixed_t dist;
fixed_t slope;
mobj_t* dest;
//mobj_t* th;
// villsa [STRIFE] removed all randomization and puff code
// adjust direction
dest = actor->tracer;
if(!dest || dest->health <= 0)
return;
// change angle
exact = R_PointToAngle2(actor->x, actor->y, dest->x, dest->y);
if(exact != actor->angle)
{
// villsa [STRIFE] slightly different algorithm
if(exact - actor->angle <= 0x80000000)
{
actor->angle += TRACEANGLE;
if(exact - actor->angle > 0x80000000)
actor->angle = exact;
}
else
{
actor->angle -= TRACEANGLE;
if (exact - actor->angle < 0x80000000)
actor->angle = exact;
}
}
exact = actor->angle>>ANGLETOFINESHIFT;
actor->momx = FixedMul (actor->info->speed, finecosine[exact]);
actor->momy = FixedMul (actor->info->speed, finesine[exact]);
// change slope
dist = P_AproxDistance (dest->x - actor->x,
dest->y - actor->y);
dist = dist / actor->info->speed;
if (dist < 1)
dist = 1;
slope = (dest->z+40*FRACUNIT - actor->z) / dist;
if (slope < actor->momz)
actor->momz -= FRACUNIT/8;
else
actor->momz += FRACUNIT/8;
}
//
// A_ProgrammerMelee
//
// villsa [STRIFE] new codepointer
// 09/08/10: Melee attack for the Programmer.
// haleyjd - fixed damage formula
//
void A_ProgrammerMelee(mobj_t* actor)
{
if(!actor->target)
return;
A_FaceTarget(actor);
if(P_CheckMeleeRange(actor))
{
int damage = 6 * (P_Random() % 10 + 1);
S_StartSound(actor, sfx_mtalht);
P_DamageMobj(actor->target, actor, actor, damage);
}
}
// haleyjd 09/05/10: [STRIFE] Removed:
// A_SkelWhoosh, A_SkelFist, PIT_VileCheck, A_VileChase, A_VileStart,
// A_StartFire, A_FireCrackle, A_Fire, A_VileTarget, A_VileAttack
// A_FatRaise, A_FatAttack1, A_FatAttack2, A_FatAttack3, A_SkullAttack,
// A_PainShootSkull, A_PainAttack, A_PainDie
//
// A_Scream
//
// villsa [STRIFE]
// * Has no random death sounds, so play deathsound directly
// * Full-volume roars for the Entity and Inquisitor.
//
void A_Scream(mobj_t* actor)
{
if(!actor->info->deathsound)
return;
// Check for bosses.
if(actor->type == MT_ENTITY || actor->type == MT_INQUISITOR)
S_StartSound(NULL, actor->info->deathsound); // full volume
else
S_StartSound(actor, actor->info->deathsound);
}
//
// A_XScream
//
// villsa [STRIFE]
// * Robots will play deathsound while non-robots play the slop sfx
//
void A_XScream(mobj_t* actor)
{
int sound;
if(actor->flags & MF_NOBLOOD && actor->info->deathsound)
sound = actor->info->deathsound;
else
sound = sfx_slop;
S_StartSound(actor, sound);
}
//
// A_Pain
//
// villsa [STRIFE]
// * Play random peasant sounds; otherwise play painsound directly
//
void A_Pain(mobj_t* actor)
{
int sound = actor->info->painsound;
if(sound)
{
if(sound >= sfx_pespna && sound <= sfx_pespnd)
sound = sfx_pespna + (P_Random() % 4);
S_StartSound(actor, sound);
}
}
//
// A_PeasantCrash
//
// villsa [STRIFE] new codepointer
// 09/08/10: Called from Peasant's "crash" state (not to be confused with
// Heretic crash states), which is invoked when the Peasant has taken
// critical but sub-fatal damage. It will "bleed out" the rest of its
// health by calling this function repeatedly.
//
void A_PeasantCrash(mobj_t* actor)
{
// Set NODIALOG, because you probably wouldn't feel like talking either
// if somebody just stabbed you in the gut with a punch dagger...
actor->flags |= MF_NODIALOG;
if(!(P_Random() % 5))
{
A_Pain(actor); // inlined in asm
actor->health--;
}
if(actor->health <= 0)
P_KillMobj(actor->target, actor);
}
//
// A_Fall
//
// [STRIFE]
// * Set NODIALOG, and clear NOGRAVITY and SHADOW
//
void A_Fall (mobj_t *actor)
{
// villsa [STRIFE] set NODIALOG flag to stop dialog
actor->flags |= MF_NODIALOG;
// actor is on ground, it can be walked over
// villsa [STRIFE] remove nogravity/shadow flags as well
actor->flags &= ~(MF_SOLID|MF_NOGRAVITY|MF_SHADOW);
}
//
// A_HideZombie
//
// villsa [STRIFE] new codepointer
// Used by the "Becoming" Acolytes on the Loremaster's level.
//
void A_HideZombie(mobj_t* actor)
{
line_t junk;
junk.tag = 999;
EV_DoDoor(&junk, vld_blazeClose);
if(actor->target && actor->target->player)
P_NoiseAlert(actor->target, actor); // inlined in asm
}
//
// A_MerchantPain
//
// villsa [STRIFE] new codepointer
// 09/08/10: Pain pointer for merchant characters. They close up shop for
// a while and set off the alarm.
//
void A_MerchantPain(mobj_t* actor)
{
line_t junk;
junk.tag = 999;
EV_DoDoor(&junk, vld_shopClose);
if(actor->target && actor->target->player)
P_NoiseAlert(actor->target, actor); // inlined in asm
}
// haleyjd 09/05/10: Removed unused CheckBossEnd Choco routine.
// haleyjd 09/05/10: [STRIFE] Removed:
// A_Hoof, A_Metal, A_BabyMetal, A_OpenShotgun2, A_LoadShotgun2,
// A_CloseShotgun2, A_BrainAwake, A_BrainPain, A_BrainScream, A_BrainExplode,
// A_BrainDie, A_BrainSpit, A_SpawnSound, A_SpawnFly
//
// A_ProgrammerDie
//
// villsa [STRIFE] new codepointer
// 09/08/10: Action routine for the Programmer's grisly death. Spawns the
// separate mechanical base object and sends it flying off in some random
// direction.
//
void A_ProgrammerDie(mobj_t* actor)
{
int r;
angle_t an;
mobj_t* mo;
mo = P_SpawnMobj(actor->x, actor->y, actor->z + 24*FRACUNIT, MT_PROGRAMMERBASE);
// haleyjd 20110223: fix add w/ANG180
r = P_Random();
an = ((r - P_Random()) << 22) + actor->angle + ANG180;
mo->angle = an;
P_ThrustMobj(mo, an, mo->info->speed); // inlined in asm
mo->momz = P_Random() << 9;
}
//
// A_InqTossArm
//
// villsa [STRIFE] new codepointer
// 09/08/10: Inquisitor death action. Spawns an arm and tosses it.
//
void A_InqTossArm(mobj_t* actor)
{
int r;
angle_t an;
mobj_t* mo;
mo = P_SpawnMobj(actor->x, actor->y, actor->z + (24*FRACUNIT), MT_INQARM);
r = P_Random();
an = ((r - P_Random()) << 22) + actor->angle - ANG90;
mo->angle = an;
P_ThrustMobj(mo, an, mo->info->speed); // inlined in asm
mo->momz = P_Random() << 10;
}
//
// A_SpawnSpectreA
//
// villsa [STRIFE] new codepointer (unused)
// 09/08/10: Spawns Spectre A. Or would, if anything actually used this.
// This is evidence that the Programmer's spectre, which appears in the
// Catacombs in the final version, was originally meant to be spawned
// after his death.
//
void A_SpawnSpectreA(mobj_t* actor)
{
mobj_t* mo;
mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_SPECTRE_A);
mo->momz = P_Random() << 9;
}
//
// A_SpawnSpectreB
//
// villsa [STRIFE] new codepointer
// 09/08/10: Action function to spawn the Bishop's spectre.
//
void A_SpawnSpectreB(mobj_t* actor)
{
mobj_t* mo;
mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_SPECTRE_B);
mo->momz = P_Random() << 9;
}
//
// A_SpawnSpectreC
//
// villsa [STRIFE] new codepointer (unused)
// 09/08/10: Action function to spawn the Oracle's spectre. Also
// unused, because the Oracle's spectre is already present on the
// map and is awakened on his death. Also left over from the
// unreleased beta (and demo) versions.
//
void A_SpawnSpectreC(mobj_t* actor)
{
mobj_t* mo;
mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_SPECTRE_C);
mo->momz = P_Random() << 9;
}
//
// A_SpawnSpectreD
//
// villsa [STRIFE] new codepointer
// 09/08/10: Action function to spawn Macil's Spectre.
//
void A_SpawnSpectreD(mobj_t* actor)
{
mobj_t* mo;
mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_SPECTRE_D);
mo->momz = P_Random() << 9;
}
//
// A_SpawnSpectreE
//
// villsa [STRIFE] new codepointer
// 09/08/10: Action function to spawn the Loremaster's Spectre.
//
void A_SpawnSpectreE(mobj_t* actor)
{
mobj_t* mo;
mo = P_SpawnMobj(actor->x, actor->y, actor->z, MT_SPECTRE_E);
mo->momz = P_Random() << 9;
}
// [STRIFE] New statics - Remember the Entity's spawning position.
static fixed_t entity_pos_x = 0;
static fixed_t entity_pos_y = 0;
static fixed_t entity_pos_z = 0;
//
// A_SpawnEntity
//
// villsa [STRIFE] new codepointer
// 09/08/10: You will fall on your knees before the True God, the One Light.
//
void A_SpawnEntity(mobj_t* actor)
{
mobj_t* mo;
mo = P_SpawnMobj(actor->x, actor->y, actor->z + 70*FRACUNIT, MT_ENTITY);
mo->momz = 5*FRACUNIT;
entity_pos_x = mo->x;
entity_pos_y = mo->y;
entity_pos_z = mo->z;
}
//
// P_ThrustMobj
//
// villsa [STRIFE] new function
// Thrusts an thing in a specified force/direction
// Beware! This is inlined everywhere in the asm
//
void P_ThrustMobj(mobj_t *actor, angle_t angle, fixed_t force)
{
angle_t an = angle >> ANGLETOFINESHIFT;
actor->momx += FixedMul(finecosine[an], force);
actor->momy += FixedMul(finesine[an], force);
}
//
// A_EntityDeath
//
// [STRIFE]
// haleyjd 09/08/10: The death of the Entity's spectre brings forth
// three subentities, which are significantly less dangerous on their
// own but threatening together.
//
void A_EntityDeath(mobj_t* actor)
{
mobj_t *subentity;
angle_t an;
fixed_t dist;
dist = 2 * mobjinfo[MT_SUBENTITY].radius;
// Subentity One
an = actor->angle >> ANGLETOFINESHIFT;
subentity = P_SpawnMobj(FixedMul(finecosine[an], dist) + entity_pos_x,
FixedMul(finesine[an], dist) + entity_pos_y,
entity_pos_z, MT_SUBENTITY);
subentity->target = actor->target;
A_FaceTarget(subentity);
P_ThrustMobj(subentity, subentity->angle, 625 << 13);
// Subentity Two
an = (actor->angle + ANG90) >> ANGLETOFINESHIFT;
subentity = P_SpawnMobj(FixedMul(finecosine[an], dist) + entity_pos_x,
FixedMul(finesine[an], dist) + entity_pos_y,
entity_pos_z, MT_SUBENTITY);
subentity->target = actor->target;
P_ThrustMobj(subentity, actor->angle + ANG90, 4);
A_FaceTarget(subentity);
// Subentity Three
an = (actor->angle - ANG90) >> ANGLETOFINESHIFT;
subentity = P_SpawnMobj(FixedMul(finecosine[an], dist) + entity_pos_x,
FixedMul(finesine[an], dist) + entity_pos_y,
entity_pos_z, MT_SUBENTITY);
subentity->target = actor->target;
P_ThrustMobj(subentity, actor->angle - ANG90, 4);
A_FaceTarget(subentity);
}
//
// A_SpawnZombie
//
// villsa [STRIFE] new codepointer
//
void A_SpawnZombie(mobj_t* actor)
{
P_SpawnMobj(actor->x, actor->y, actor->z, MT_ZOMBIE);
}
//
// A_ZombieInSpecialSector
//
// villsa [STRIFE] new codepointer
//
void A_ZombieInSpecialSector(mobj_t* actor)
{
sector_t* sector;
fixed_t force;
angle_t angle;
int tagval;
sector = actor->subsector->sector;
if(actor->z != sector->floorheight)
return;
if(sector->special <= 15)
P_DamageMobj(actor, NULL, NULL, 999);
else if(sector->special == 18)
{
tagval = sector->tag - 100;
force = (tagval % 10) << 12;
angle = (tagval / 10) << 29;
P_ThrustMobj(actor, angle, force); // inlined in asm
}
}
//
// A_CrystalExplode
//
// villsa [STRIFE] new codepointer
// Throws out debris from the Power Crystal and sets its sector floorheight
// to the lowest surrounding floor (this is maybe the only time a direct
// level-changing action is done by an object in this fashion in any of
// the DOOM engine games... they usually call a line special instead)
//
void A_CrystalExplode(mobj_t* actor)
{
sector_t* sector;
mobj_t* rubble;
int i;
int r;
sector = actor->subsector->sector;
sector->lightlevel = 0;
sector->floorheight = P_FindLowestFloorSurrounding(sector);
// spawn rubble
for(i = 0; i < 8; i++)
{
rubble = P_SpawnMobj(actor->x, actor->y, actor->z, MT_RUBBLE1 + i);
r = P_Random();
rubble->momx = ((r & 0x0f) - (P_Random() & 7)) << FRACBITS;
r = P_Random();
rubble->momy = ((r & 7) - (P_Random() & 7)) << FRACBITS;
rubble->momz = ((P_Random() & 3) << FRACBITS) + (7*FRACUNIT);
}
}
// [STRIFE] New static global - buffer used for various player messages.
static char pmsgbuffer[80];
//
// P_FreePrisoners
//
// haleyjd 09/08/10: [STRIFE] New function
// * Called when the prisoners get freed, obviously. Gives a
// message and awards quest token 13.
//
void P_FreePrisoners(void)
{
int i;
DEH_snprintf(pmsgbuffer, sizeof(pmsgbuffer), "You've freed the prisoners!");
for(i = 0; i < MAXPLAYERS; i++)
{
P_GiveItemToPlayer(&players[i], SPR_TOKN, MT_TOKEN_QUEST13);
players[i].message = pmsgbuffer;
}
}
//
// P_DestroyConverter
//
// haleyjd 09/08/10: [STRIFE] New function
// * Called when the converter is shut down in the factory.
// Gives several items and a message.
//
void P_DestroyConverter(void)
{
int i;
DEH_snprintf(pmsgbuffer, sizeof(pmsgbuffer), "You've destroyed the Converter!");
for(i = 0; i < MAXPLAYERS; i++)
{
P_GiveItemToPlayer(&players[i], SPR_TOKN, MT_TOKEN_QUEST25);
P_GiveItemToPlayer(&players[i], SPR_TOKN, MT_TOKEN_STAMINA);
P_GiveItemToPlayer(&players[i], SPR_TOKN, MT_TOKEN_NEW_ACCURACY);
players[i].message = pmsgbuffer;
}
}
//
// A_QuestMsg
//
// villsa [STRIFE] new codepointer
// Displays text based on quest item's name
// Quest item is based on actor's speed
//
void A_QuestMsg(mobj_t* actor)
{
const char *name;
int quest;
int i;
// get name
name = DEH_String(mobjinfo[(MT_TOKEN_QUEST1 - 1) + actor->info->speed].name);
M_StringCopy(pmsgbuffer, name, sizeof(pmsgbuffer)); // inlined in asm
// give quest and display message to players
for(i = 0; i < MAXPLAYERS; i++)
{
quest = 1 << (actor->info->speed - 1);
players[i].message = pmsgbuffer;
players[i].questflags |= quest;
}
}
//
// A_ExtraLightOff
//
// villsa [STRIFE] new codepointer
// 09/08/10: Called by the Power Crystal to turn off the extended
// flash of light caused by its explosion.
//
void A_ExtraLightOff(mobj_t* actor)
{
if(!actor->target)
return;
if(!actor->target->player)
return;
actor->target->player->extralight = 0;
}
//
// A_CrystalRadiusAtk
//
// villsa [STRIFE] new codepointer
// 09/08/10: Called by the power crystal when it dies.
//
void A_CrystalRadiusAtk(mobj_t* actor)
{
P_RadiusAttack(actor, actor->target, 512);
if(!(actor->target && actor->target->player))
return;
// set extralight to 5 for near full-bright
actor->target->player->extralight = 5;
}
//
// A_DeathExplode5
//
// villsa [STRIFE] new codepointer
//
void A_DeathExplode5(mobj_t* actor)
{
P_RadiusAttack(actor, actor->target, 192);
if(actor->target && actor->target->player)
P_NoiseAlert(actor->target, actor); // inlined in asm
}
//
// A_DeathExplode1
//
// villsa [STRIFE] new codepointer
//
void A_DeathExplode1(mobj_t* actor)
{
P_RadiusAttack(actor, actor->target, 128);
if(actor->target && actor->target->player)
P_NoiseAlert(actor->target, actor); // inlined in asm
}
//
// A_DeathExplode2
//
// villsa [STRIFE] new codepointer
//
void A_DeathExplode2(mobj_t* actor)
{
P_RadiusAttack(actor, actor->target, 64);
if(actor->target && actor->target->player)
P_NoiseAlert(actor->target, actor); // inlined in asm
}
//
// A_DeathExplode3
//
// villsa [STRIFE] new codepointer
//
void A_DeathExplode3(mobj_t* actor)
{
P_RadiusAttack(actor, actor->target, 32);
if(actor->target && actor->target->player)
P_NoiseAlert(actor->target, actor); // inlined in asm
}
//
// A_RaiseAlarm
//
// villsa [STRIFE] new codepointer
// 09/08/10: Set off the infamous alarm. This is just a noise alert.
//
void A_RaiseAlarm(mobj_t* actor)
{
if(actor->target && actor->target->player)
P_NoiseAlert(actor->target, actor); // inlined in asm
}
//
// A_MissileTick
// villsa [STRIFE] - new codepointer
//
void A_MissileTick(mobj_t* actor)
{
if(--actor->reactiontime <= 0)
{
P_ExplodeMissile(actor);
actor->flags &= ~MF_MISSILE;
}
}
//
// A_SpawnGrenadeFire
// villsa [STRIFE] - new codepointer
//
void A_SpawnGrenadeFire(mobj_t* actor)
{
P_SpawnMobj(actor->x, actor->y, actor->z, MT_PFLAME);
}
//
// A_NodeChunk
//
// villsa [STRIFE] - new codepointer
// Throw out "nodes" from a spectral entity
//
void A_NodeChunk(mobj_t* actor)
{
int r;
mobj_t* mo;
mo = P_SpawnMobj(actor->x, actor->y, actor->z + 10*FRACUNIT, MT_NODE);
r = P_Random();
mo->momx = ((r & 0x0f) - (P_Random() & 7)) << FRACBITS;
r = P_Random();
mo->momy = ((r & 7) - (P_Random() & 0x0f)) << FRACBITS;
mo->momz = (P_Random() & 0x0f) << FRACBITS;
}
//
// A_HeadChunk
//
// villsa [STRIFE] - new codepointer
// Throw out the little "eye"-like object from a spectral entity when it dies.
//
void A_HeadChunk(mobj_t* actor)
{
int r;
mobj_t* mo;
mo = P_SpawnMobj(actor->x, actor->y, actor->z + 10*FRACUNIT, MT_SPECTREHEAD);
r = P_Random();
mo->momx = ((r & 7) - (P_Random() & 0x0f)) << FRACBITS;
r = P_Random();
mo->momy = ((r & 0x0f) - (P_Random() & 7)) << FRACBITS;
mo->momz = (P_Random() & 7) << FRACBITS;
}
//
// A_BurnSpread
// villsa [STRIFE] - new codepointer
//
void A_BurnSpread(mobj_t* actor)
{
int t;
mobj_t* mo;
fixed_t x;
fixed_t y;
actor->momz -= (8*FRACUNIT);
t = P_Random();
actor->momx += ((t & 3) - (P_Random() & 3)) << FRACBITS;
t = P_Random();
actor->momy += ((t & 3) - (P_Random() & 3)) << FRACBITS;
S_StartSound(actor, sfx_lgfire);
if(actor->flags & MF_DROPPED)
return; // not the parent
// haleyjd 20110223: match order of calls in binary
y = actor->y + (((P_Random() + 12) & 31) << FRACBITS);
x = actor->x + (((P_Random() + 12) & 31) << FRACBITS);
// spawn child
mo = P_SpawnMobj(x, y, actor->z + (4*FRACUNIT), MT_PFLAME);
t = P_Random();
mo->momx += ((t & 7) - (P_Random() & 7)) << FRACBITS;
t = P_Random();
mo->momy += ((t & 7) - (P_Random() & 7)) << FRACBITS;
mo->momz -= FRACUNIT;
mo->flags |= MF_DROPPED;
mo->reactiontime = (P_Random() & 3) + 2;
}
//
// A_BossDeath
//
// Possibly trigger special effects
// if on first boss level
//
// haleyjd 09/17/10: [STRIFE]
// * Modified to handle all Strife bosses.
//
void A_BossDeath (mobj_t* actor)
{
int i;
thinker_t *th;
line_t junk;
// only the following types can be a boss:
switch(actor->type)
{
case MT_CRUSADER:
case MT_SPECTRE_A:
case MT_SPECTRE_B:
case MT_SPECTRE_C:
case MT_SPECTRE_D:
case MT_SPECTRE_E:
case MT_SUBENTITY:
case MT_PROGRAMMER:
break;
default:
return;
}
// check for a living player
for(i = 0; i < MAXPLAYERS; i++)
{
if(playeringame[i] && players[i].health > 0)
break;
}
if(i == MAXPLAYERS)
return; // everybody's dead.
// check for a still living boss
for(th = thinkercap.next; th != &thinkercap; th = th->next)
{
if(th->function.acp1 == (actionf_p1) P_MobjThinker)
{
mobj_t *mo = (mobj_t *)th;
if(mo != actor && mo->type == actor->type && mo->health > 0)
return; // one is still alive.
}
}
// Victory!
switch(actor->type)
{
case MT_CRUSADER:
junk.tag = 667;
EV_DoFloor(&junk, lowerFloorToLowest);
break;
case MT_SPECTRE_A:
GiveVoiceObjective("VOC95", "LOG95", 0);
junk.tag = 999;
EV_DoFloor(&junk, lowerFloorToLowest);
break;
case MT_SPECTRE_B:
P_GiveItemToPlayer(&players[0], SPR_TOKN, MT_TOKEN_BISHOP);
GiveVoiceObjective("VOC74", "LOG74", 0);
break;
case MT_SPECTRE_C:
// Look for an MT_ORACLE - this is for in case the player awakened the
// Oracle's spectre without killing the Oracle, which is possible by
// looking up to max and firing the Sigil at it. If this were not done,
// a serious sequence break possibility would arise where one could
// kill both the Oracle AND Macil, possibly throwing the game out of
// sorts entirely. Too bad they thought of it ;) However this also
// causes a bug sometimes! The Oracle, in its death state, sets the
// Spectre C back to its seestate. If the Spectre C is already dead,
// it becomes an undead ghost monster. Then it's a REAL spectre ;)
for(th = thinkercap.next; th != &thinkercap; th = th->next)
{
if(th->function.acp1 == (actionf_p1) P_MobjThinker)
{
mobj_t *mo = (mobj_t *)th;
// KILL ALL ORACLES! RAWWR!
if(mo != actor && mo->type == MT_ORACLE && mo->health > 0)
P_KillMobj(actor, mo);
}
}
P_GiveItemToPlayer(&players[0], SPR_TOKN, MT_TOKEN_ORACLE);
// Bishop is dead? - verify.
if(players[0].questflags & QF_QUEST21)
P_GiveItemToPlayer(&players[0], SPR_TOKN, MT_TOKEN_QUEST22);
// Macil is dead?
if(players[0].questflags & QF_QUEST24)
{
// Loremaster is dead?
if(players[0].questflags & QF_QUEST26)
{
// We wield the complete sigil, blahblah
GiveVoiceObjective("VOC85", "LOG85", 0);
}
}
else
{
// So much for prognostication!
GiveVoiceObjective("VOC87", "LOG87", 0);
}
junk.tag = 222; // Open the exit door again;
EV_DoDoor(&junk, vld_open); // Note this is NOT the Loremaster door...
break;
case MT_SPECTRE_D:
P_GiveItemToPlayer(&players[0], SPR_TOKN, MT_TOKEN_MACIL);
if(players[0].questflags & QF_QUEST25) // Destroyed converter?
GiveVoiceObjective("VOC106", "LOG106", 0);
else
GiveVoiceObjective("VOC79", "LOG79", 0);
break;
case MT_SPECTRE_E:
P_GiveItemToPlayer(&players[0], SPR_TOKN, MT_TOKEN_LOREMASTER);
if(!netgame)
{
P_GiveItemToPlayer(&players[0], SPR_TOKN, MT_TOKEN_STAMINA);
P_GiveItemToPlayer(&players[0], SPR_TOKN, MT_TOKEN_NEW_ACCURACY);
}
if(players[0].sigiltype == 4)
GiveVoiceObjective("VOC85", "LOG85", 0);
else
GiveVoiceObjective("VOC83", "LOG83", 0);
junk.tag = 666;
EV_DoFloor(&junk, lowerFloorToLowest);
break;
case MT_SUBENTITY:
F_StartFinale();
break;
case MT_PROGRAMMER:
F_StartFinale();
G_ExitLevel(0);
break;
default:
// Real classy, Rogue.
if(actor->type)
I_Error("Error: Unconnected BossDeath id %d", actor->type);
break;
}
}
//
// A_AcolyteSpecial
//
// villsa [STRIFE] - new codepointer
// Awards quest #7 when all the Blue Acolytes are killed in Tarnhill
//
void A_AcolyteSpecial(mobj_t* actor)
{
int i;
thinker_t* th;
if(actor->type != MT_GUARD8)
return; // must be MT_GUARD8
for(i = 0; i < MAXPLAYERS; i++)
{
if(playeringame[i] && players[i].health > 0)
break;
}
if(i == 8)
return;
for(th = thinkercap.next; th != &thinkercap; th = th->next)
{
if(th->function.acp1 == (actionf_p1) P_MobjThinker)
{
mobj_t *mo = (mobj_t *)th;
// Found a living MT_GUARD8?
if(mo != actor && mo->type == actor->type && mo->health > 0)
return;
}
}
// All MT_GUARD8 are dead, give quest token #7 to all players
for(i = 0; i < MAXPLAYERS; i++)
P_GiveItemToPlayer(&players[i], SPR_TOKN, MT_TOKEN_QUEST7);
// play voice, give objective
GiveVoiceObjective("VOC14", "LOG14", 0);
}
//
// A_InqChase
// villsa [STRIFE] - new codepointer
//
void A_InqChase(mobj_t* actor)
{
S_StartSound(actor, sfx_inqact);
A_Chase(actor);
}
//
// A_StalkerChase
// villsa [STRIFE] - new codepointer
//
void A_StalkerChase(mobj_t* actor)
{
S_StartSound(actor, sfx_spdwlk);
A_Chase(actor);
}
//
// A_PlayerScream
//
// [STRIFE]
// * Modified to eliminate gamemode check and to use Strife sound.
//
void A_PlayerScream (mobj_t* mo)
{
// Default death sound.
int sound = sfx_pldeth;
// villsa [STRIFE] don't check for gamemode
if(mo->health < -50)
{
// IF THE PLAYER DIES
// LESS THAN -50% WITHOUT GIBBING
sound = sfx_plxdth; // villsa [STRIFE] different sound
}
S_StartSound (mo, sound);
}
//
// A_TeleportBeacon
//
// villsa [STRIFE] - new codepointer
//
void A_TeleportBeacon(mobj_t* actor)
{
mobj_t* mobj;
mobj_t* fog;
fixed_t fog_x;
fixed_t fog_y;
if(actor->target != players[actor->miscdata].mo)
actor->target = players[actor->miscdata].mo;
mobj = P_SpawnMobj(actor->x, actor->y, ONFLOORZ, MT_REBEL1);
// haleyjd 20141024: missing code from disassembly; transfer allegiance
// originally from master player to the rebel.
mobj->miscdata = actor->miscdata;
if(!P_TryMove(mobj, mobj->x, mobj->y))
{
// Rebel is probably stuck in something.. too bad
P_RemoveMobj(mobj);
return;
}
// beacon no longer special
actor->flags &= ~MF_SPECIAL;
// 20160306: set rebel threshold
mobj->threshold = 100;
// set rebel color and flags
mobj->flags |= ((actor->miscdata << MF_TRANSSHIFT) | MF_NODIALOG);
mobj->target = NULL;
// double Rebel's health in deathmatch mode
if(deathmatch)
mobj->health <<= 1;
if(actor->target)
{
mobj_t* targ = actor->target->target;
if(targ)
{
if(targ->type != MT_REBEL1 || targ->miscdata != mobj->miscdata)
mobj->target = targ;
}
}
P_SetMobjState(mobj, mobj->info->seestate);
mobj->angle = actor->angle;
fog_x = mobj->x + FixedMul(20*FRACUNIT, finecosine[actor->angle>>ANGLETOFINESHIFT]);
fog_y = mobj->y + FixedMul(20*FRACUNIT, finesine[actor->angle>>ANGLETOFINESHIFT]);
fog = P_SpawnMobj(fog_x, fog_y, mobj->z, MT_TFOG);
S_StartSound(fog, sfx_telept);
if(--actor->health < 0)
P_RemoveMobj(actor);
}
//
// A_BodyParts
//
// villsa [STRIFE] new codepointer
// 09/06/10: Spawns gibs when organic actors get splattered, or junk
// when robots explode.
//
void A_BodyParts(mobj_t* actor)
{
mobjtype_t type;
mobj_t* mo;
angle_t an;
if(actor->flags & MF_NOBLOOD) // Robots are flagged NOBLOOD
type = MT_JUNK;
else
type = MT_MEAT;
mo = P_SpawnMobj(actor->x, actor->y, actor->z + (24*FRACUNIT), type);
P_SetMobjState(mo, mo->info->spawnstate + (P_Random() % 19));
an = (P_Random() << 13) / 255;
mo->angle = an << ANGLETOFINESHIFT;
mo->momx = FixedMul(finecosine[an], (P_Random() & 0x0f) << FRACBITS);
mo->momy = FixedMul(finesine[an], (P_Random() & 0x0f) << FRACBITS);
mo->momz = (P_Random() & 0x0f) << FRACBITS;
}
//
// A_ClaxonBlare
//
// [STRIFE] New function
// haleyjd 09/08/10: The ever-dreadful Strife alarm!
//
void A_ClaxonBlare(mobj_t* actor)
{
// Timer ran down?
if(--actor->reactiontime < 0)
{
// reset to initial state
actor->target = NULL;
actor->reactiontime = actor->info->reactiontime;
// listen for more noise
A_Listen(actor);
// If we heard something, stay on for a while,
// otherwise return to spawnstate.
if(actor->target)
actor->reactiontime = 50;
else
P_SetMobjState(actor, actor->info->spawnstate);
}
// When almost ran down, clear the soundtarget so it doesn't
// retrigger the alarm.
// Also, play the harsh, grating claxon.
if(actor->reactiontime == 2)
actor->subsector->sector->soundtarget = NULL;
else if(actor->reactiontime > 50)
S_StartSound(actor, sfx_alarm);
}
//
// A_ActiveSound
//
// villsa [STRIFE] new codepointer
// 09/06/10: Plays an object's active sound periodically.
//
void A_ActiveSound(mobj_t* actor)
{
if(actor->info->activesound)
{
if(!(leveltime & 7)) // haleyjd: added parens
S_StartSound(actor, actor->info->activesound);
}
}
//
// A_ClearSoundTarget
//
// villsa [STRIFE] new codepointer
// 09/06/10: Clears the actor's sector soundtarget, so that the actor
// will not be continually alerted/awakened ad infinitum. Used by
// shopkeepers.
//
void A_ClearSoundTarget(mobj_t* actor)
{
actor->subsector->sector->soundtarget = NULL;
}
//
// A_DropBurnFlesh
//
// villsa [STRIFE] new codepointer
//
void A_DropBurnFlesh(mobj_t* actor)
{
mobj_t* mo;
mobjtype_t type;
type = actor->type;
mo = P_SpawnMobj(actor->x, actor->y, actor->z + (24*FRACUNIT), MT_BURNDROP);
mo->momz = -FRACUNIT;
actor->type = MT_SFIREBALL;
P_RadiusAttack(actor, actor, 64);
actor->type = type;
}
//
// A_FlameDeath
//
// villsa [STRIFE] new codepointer
// 09/06/10: Death animation for flamethrower fireballs.
//
void A_FlameDeath(mobj_t* actor)
{
actor->flags |= MF_NOGRAVITY;
actor->momz = (P_Random() & 3) << FRACBITS;
}
//
// A_ClearForceField
//
// villsa [STRIFE] new codepointer
// check for all matching lines in the sector
// and disable blocking/midtextures
//
void A_ClearForceField(mobj_t* actor)
{
int i;
sector_t *sec;
line_t *secline;
actor->flags &= ~(MF_SOLID|MF_SPECIAL);
sec = actor->subsector->sector;
if(!sec->linecount)
return;
for(i = 0; i < sec->linecount; i++)
{
secline = sec->lines[i];
// BUG: will crash if 1S line has TWOSIDED flag!
if(!(secline->flags & ML_TWOSIDED))
continue;
if(secline->special != 148)
continue;
secline->flags &= ~ML_BLOCKING;
secline->special = 0;
sides[secline->sidenum[0]].midtexture = 0;
sides[secline->sidenum[1]].midtexture = 0;
}
}