You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
465 lines
14 KiB
465 lines
14 KiB
/*** |
|
* |
|
* Copyright (c) 1996-2002, Valve LLC. All rights reserved. |
|
* |
|
* This product contains software technology licensed from Id |
|
* Software, Inc. ("Id Technology"). Id Technology (c) 1996 Id Software, Inc. |
|
* All Rights Reserved. |
|
* |
|
* This source code contains proprietary and confidential information of |
|
* Valve LLC and its suppliers. Access to this code is restricted to |
|
* persons who have executed a written SDK license with Valve. Any access, |
|
* use or distribution of this code by or to any unlicensed person is illegal. |
|
* |
|
****/ |
|
//========================================================= |
|
// barnacle - stationary ceiling mounted 'fishing' monster |
|
//========================================================= |
|
|
|
#include "extdll.h" |
|
#include "util.h" |
|
#include "cbase.h" |
|
#include "monsters.h" |
|
#include "schedule.h" |
|
|
|
#define BARNACLE_BODY_HEIGHT 44 // how 'tall' the barnacle's model is. |
|
#define BARNACLE_PULL_SPEED 8 |
|
#define BARNACLE_KILL_VICTIM_DELAY 5 // how many seconds after pulling prey in to gib them. |
|
|
|
//========================================================= |
|
// Monster's Anim Events Go Here |
|
//========================================================= |
|
#define BARNACLE_AE_PUKEGIB 2 |
|
|
|
class CBarnacle : public CBaseMonster |
|
{ |
|
public: |
|
void Spawn( void ); |
|
void Precache( void ); |
|
CBaseEntity *TongueTouchEnt( float *pflLength ); |
|
int Classify( void ); |
|
void HandleAnimEvent( MonsterEvent_t *pEvent ); |
|
void EXPORT BarnacleThink( void ); |
|
void EXPORT WaitTillDead( void ); |
|
void Killed( entvars_t *pevAttacker, int iGib ); |
|
int TakeDamage( entvars_t *pevInflictor, entvars_t *pevAttacker, float flDamage, int bitsDamageType ); |
|
virtual int Save( CSave &save ); |
|
virtual int Restore( CRestore &restore ); |
|
static TYPEDESCRIPTION m_SaveData[]; |
|
|
|
float m_flAltitude; |
|
float m_flCachedLength; // tongue cached length |
|
float m_flKillVictimTime; |
|
int m_cGibs; // barnacle loads up on gibs each time it kills something. |
|
BOOL m_fTongueExtended; |
|
BOOL m_fLiftingPrey; |
|
float m_flTongueAdj; |
|
|
|
// FIXME: need a custom barnacle model with non-generic hitgroup |
|
// otherwise we can apply to damage to tongue instead of body |
|
#if BARNACLE_FIX_VISIBILITY |
|
void SetObjectCollisionBox( void ) |
|
{ |
|
pev->absmin = pev->origin + Vector( -16.0f, -16.0f, -m_flCachedLength ); |
|
pev->absmax = pev->origin + Vector( 16.0f, 16.0f, 0.0f ); |
|
} |
|
#endif |
|
}; |
|
|
|
LINK_ENTITY_TO_CLASS( monster_barnacle, CBarnacle ) |
|
|
|
TYPEDESCRIPTION CBarnacle::m_SaveData[] = |
|
{ |
|
DEFINE_FIELD( CBarnacle, m_flAltitude, FIELD_FLOAT ), |
|
DEFINE_FIELD( CBarnacle, m_flKillVictimTime, FIELD_TIME ), |
|
DEFINE_FIELD( CBarnacle, m_cGibs, FIELD_INTEGER ),// barnacle loads up on gibs each time it kills something. |
|
DEFINE_FIELD( CBarnacle, m_fTongueExtended, FIELD_BOOLEAN ), |
|
DEFINE_FIELD( CBarnacle, m_fLiftingPrey, FIELD_BOOLEAN ), |
|
DEFINE_FIELD( CBarnacle, m_flTongueAdj, FIELD_FLOAT ), |
|
DEFINE_FIELD( CBarnacle, m_flCachedLength, FIELD_FLOAT ), |
|
}; |
|
|
|
IMPLEMENT_SAVERESTORE( CBarnacle, CBaseMonster ) |
|
|
|
//========================================================= |
|
// Classify - indicates this monster's place in the |
|
// relationship table. |
|
//========================================================= |
|
int CBarnacle::Classify( void ) |
|
{ |
|
return m_iClass?m_iClass:CLASS_ALIEN_MONSTER; |
|
} |
|
|
|
//========================================================= |
|
// HandleAnimEvent - catches the monster-specific messages |
|
// that occur when tagged animation frames are played. |
|
// |
|
// Returns number of events handled, 0 if none. |
|
//========================================================= |
|
void CBarnacle::HandleAnimEvent( MonsterEvent_t *pEvent ) |
|
{ |
|
switch( pEvent->event ) |
|
{ |
|
case BARNACLE_AE_PUKEGIB: |
|
CGib::SpawnRandomGibs( pev, 1, 1 ); |
|
break; |
|
default: |
|
CBaseMonster::HandleAnimEvent( pEvent ); |
|
break; |
|
} |
|
} |
|
|
|
//========================================================= |
|
// Spawn |
|
//========================================================= |
|
void CBarnacle::Spawn() |
|
{ |
|
Precache(); |
|
|
|
if( pev->model ) |
|
SET_MODEL( ENT( pev ), STRING( pev->model ) ); //LRC |
|
else |
|
SET_MODEL( ENT( pev ), "models/barnacle.mdl" ); |
|
UTIL_SetSize( pev, Vector( -16.0f, -16.0f, -32.0f ), Vector( 16.0f, 16.0f, 0.0f ) ); |
|
|
|
pev->solid = SOLID_SLIDEBOX; |
|
pev->movetype = MOVETYPE_NONE; |
|
pev->takedamage = DAMAGE_AIM; |
|
m_bloodColor = BLOOD_COLOR_RED; |
|
pev->effects = EF_INVLIGHT; // take light from the ceiling |
|
pev->health = 25; |
|
m_flFieldOfView = 0.5f;// indicates the width of this monster's forward view cone ( as a dotproduct result ) |
|
m_MonsterState = MONSTERSTATE_NONE; |
|
m_flKillVictimTime = 0.0f; |
|
m_flCachedLength = 32.0f; // mins.z |
|
m_cGibs = 0; |
|
m_fLiftingPrey = FALSE; |
|
m_flTongueAdj = -100.0f; |
|
|
|
InitBoneControllers(); |
|
|
|
SetActivity( ACT_IDLE ); |
|
|
|
SetThink( &CBarnacle::BarnacleThink ); |
|
SetNextThink( 0.5f ); |
|
|
|
UTIL_SetOrigin ( this, pev->origin ); |
|
} |
|
|
|
int CBarnacle::TakeDamage( entvars_t *pevInflictor, entvars_t *pevAttacker, float flDamage, int bitsDamageType ) |
|
{ |
|
if( bitsDamageType & DMG_CLUB ) |
|
{ |
|
flDamage = pev->health; |
|
} |
|
|
|
return CBaseMonster::TakeDamage( pevInflictor, pevAttacker, flDamage, bitsDamageType ); |
|
} |
|
|
|
//========================================================= |
|
//========================================================= |
|
void CBarnacle::BarnacleThink( void ) |
|
{ |
|
CBaseEntity *pTouchEnt; |
|
CBaseMonster *pVictim; |
|
float flLength; |
|
#if BARNACLE_FIX_VISIBILITY |
|
if( m_flCachedLength != ( m_flAltitude + m_flTongueAdj ) || ( pev->absmin.z != pev->origin.z + -m_flCachedLength ) ) |
|
{ |
|
// recalc collision box here to avoid barnacle disappears bug |
|
m_flCachedLength = m_flAltitude + m_flTongueAdj; |
|
UTIL_SetOrigin( pev, pev->origin ); |
|
} |
|
#endif |
|
SetNextThink( 0.1f ); |
|
|
|
if( m_hEnemy != 0 ) |
|
{ |
|
// barnacle has prey. |
|
if( !m_hEnemy->IsAlive() ) |
|
{ |
|
// someone (maybe even the barnacle) killed the prey. Reset barnacle. |
|
m_fLiftingPrey = FALSE;// indicate that we're not lifting prey. |
|
m_hEnemy = NULL; |
|
return; |
|
} |
|
|
|
if( m_fLiftingPrey ) |
|
{ |
|
if( m_hEnemy != 0 && m_hEnemy->pev->deadflag != DEAD_NO ) |
|
{ |
|
// crap, someone killed the prey on the way up. |
|
m_hEnemy = NULL; |
|
m_fLiftingPrey = FALSE; |
|
return; |
|
} |
|
|
|
// still pulling prey. |
|
Vector vecNewEnemyOrigin = m_hEnemy->pev->origin; |
|
vecNewEnemyOrigin.x = pev->origin.x; |
|
vecNewEnemyOrigin.y = pev->origin.y; |
|
|
|
// guess as to where their neck is |
|
vecNewEnemyOrigin.x -= 6.0f * cos( m_hEnemy->pev->angles.y * M_PI_F / 180.0f ); |
|
vecNewEnemyOrigin.y -= 6.0f * sin( m_hEnemy->pev->angles.y * M_PI_F / 180.0f ); |
|
|
|
m_flAltitude -= BARNACLE_PULL_SPEED; |
|
vecNewEnemyOrigin.z += BARNACLE_PULL_SPEED; |
|
|
|
if( fabs( pev->origin.z - ( vecNewEnemyOrigin.z + m_hEnemy->pev->view_ofs.z - 8 ) ) < BARNACLE_BODY_HEIGHT ) |
|
{ |
|
// prey has just been lifted into position ( if the victim origin + eye height + 8 is higher than the bottom of the barnacle, it is assumed that the head is within barnacle's body ) |
|
m_fLiftingPrey = FALSE; |
|
|
|
EMIT_SOUND( ENT( pev ), CHAN_WEAPON, "barnacle/bcl_bite3.wav", 1, ATTN_NORM ); |
|
|
|
pVictim = m_hEnemy->MyMonsterPointer(); |
|
|
|
m_flKillVictimTime = gpGlobals->time + 10.0f;// now that the victim is in place, the killing bite will be administered in 10 seconds. |
|
|
|
if( pVictim ) |
|
{ |
|
pVictim->BarnacleVictimBitten( pev ); |
|
SetActivity( ACT_EAT ); |
|
} |
|
} |
|
|
|
UTIL_SetOrigin ( m_hEnemy, vecNewEnemyOrigin ); |
|
} |
|
else |
|
{ |
|
// prey is lifted fully into feeding position and is dangling there. |
|
pVictim = m_hEnemy->MyMonsterPointer(); |
|
|
|
if( m_flKillVictimTime != -1.0f && gpGlobals->time > m_flKillVictimTime ) |
|
{ |
|
// kill! |
|
if( pVictim ) |
|
{ |
|
pVictim->TakeDamage( pev, pev, pVictim->pev->health, DMG_SLASH | DMG_ALWAYSGIB ); |
|
m_cGibs = 3; |
|
} |
|
|
|
return; |
|
} |
|
|
|
// bite prey every once in a while |
|
if( pVictim && ( RANDOM_LONG( 0, 49 ) == 0 ) ) |
|
{ |
|
switch( RANDOM_LONG( 0, 2 ) ) |
|
{ |
|
case 0: |
|
EMIT_SOUND( ENT( pev ), CHAN_WEAPON, "barnacle/bcl_chew1.wav", 1, ATTN_NORM ); |
|
break; |
|
case 1: |
|
EMIT_SOUND( ENT( pev ), CHAN_WEAPON, "barnacle/bcl_chew2.wav", 1, ATTN_NORM ); |
|
break; |
|
case 2: |
|
EMIT_SOUND( ENT( pev ), CHAN_WEAPON, "barnacle/bcl_chew3.wav", 1, ATTN_NORM ); |
|
break; |
|
} |
|
|
|
pVictim->BarnacleVictimBitten( pev ); |
|
} |
|
} |
|
} |
|
else |
|
{ |
|
// barnacle has no prey right now, so just idle and check to see if anything is touching the tongue. |
|
// If idle and no nearby client, don't think so often |
|
if( FNullEnt( FIND_CLIENT_IN_PVS( edict() ) ) ) |
|
SetNextThink( RANDOM_FLOAT( 1.0f, 1.5f ) ); // Stagger a bit to keep barnacles from thinking on the same frame |
|
|
|
if( m_fSequenceFinished ) |
|
{ |
|
// this is done so barnacle will fidget. |
|
SetActivity ( ACT_IDLE ); |
|
m_flTongueAdj = -100; |
|
} |
|
|
|
if( m_cGibs && RANDOM_LONG( 0, 99 ) == 1 ) |
|
{ |
|
// cough up a gib. |
|
CGib::SpawnRandomGibs( pev, 1, 1 ); |
|
m_cGibs--; |
|
|
|
switch ( RANDOM_LONG( 0, 2 ) ) |
|
{ |
|
case 0: |
|
EMIT_SOUND( ENT( pev ), CHAN_WEAPON, "barnacle/bcl_chew1.wav", 1, ATTN_NORM ); |
|
break; |
|
case 1: |
|
EMIT_SOUND( ENT( pev ), CHAN_WEAPON, "barnacle/bcl_chew2.wav", 1, ATTN_NORM ); |
|
break; |
|
case 2: |
|
EMIT_SOUND( ENT( pev ), CHAN_WEAPON, "barnacle/bcl_chew3.wav", 1, ATTN_NORM ); |
|
break; |
|
} |
|
} |
|
|
|
pTouchEnt = TongueTouchEnt( &flLength ); |
|
|
|
if( pTouchEnt != NULL && m_fTongueExtended ) |
|
{ |
|
// tongue is fully extended, and is touching someone. |
|
if( pTouchEnt->FBecomeProne() ) |
|
{ |
|
EMIT_SOUND( ENT( pev ), CHAN_WEAPON, "barnacle/bcl_alert2.wav", 1, ATTN_NORM ); |
|
|
|
SetSequenceByName( "attack1" ); |
|
m_flTongueAdj = -20.0f; |
|
|
|
m_hEnemy = pTouchEnt; |
|
|
|
pTouchEnt->pev->movetype = MOVETYPE_FLY; |
|
pTouchEnt->pev->velocity = pev->velocity; //LRC- make him come _with_ me |
|
pTouchEnt->pev->basevelocity = pev->velocity; //LRC |
|
pTouchEnt->pev->origin.x = pev->origin.x; |
|
pTouchEnt->pev->origin.y = pev->origin.y; |
|
|
|
m_fLiftingPrey = TRUE;// indicate that we should be lifting prey. |
|
m_flKillVictimTime = -1;// set this to a bogus time while the victim is lifted. |
|
|
|
m_flAltitude = pev->origin.z - pTouchEnt->EyePosition().z; |
|
} |
|
} |
|
else |
|
{ |
|
// calculate a new length for the tongue to be clear of anything else that moves under it. |
|
if( m_flAltitude < flLength ) |
|
{ |
|
// if tongue is higher than is should be, lower it kind of slowly. |
|
m_flAltitude += BARNACLE_PULL_SPEED; |
|
m_fTongueExtended = FALSE; |
|
} |
|
else |
|
{ |
|
m_flAltitude = flLength; |
|
m_fTongueExtended = TRUE; |
|
} |
|
} |
|
} |
|
|
|
// ALERT( at_console, "tounge %f\n", m_flAltitude + m_flTongueAdj ); |
|
SetBoneController( 0, -( m_flAltitude + m_flTongueAdj ) ); |
|
StudioFrameAdvance( 0.1f ); |
|
} |
|
|
|
//========================================================= |
|
// Killed. |
|
//========================================================= |
|
void CBarnacle::Killed( entvars_t *pevAttacker, int iGib ) |
|
{ |
|
CBaseMonster *pVictim; |
|
|
|
pev->solid = SOLID_NOT; |
|
pev->takedamage = DAMAGE_NO; |
|
|
|
if( m_hEnemy != 0 ) |
|
{ |
|
pVictim = m_hEnemy->MyMonsterPointer(); |
|
|
|
if( pVictim ) |
|
{ |
|
pVictim->BarnacleVictimReleased(); |
|
} |
|
} |
|
|
|
//CGib::SpawnRandomGibs( pev, 4, 1 ); |
|
|
|
switch( RANDOM_LONG ( 0, 1 ) ) |
|
{ |
|
case 0: |
|
EMIT_SOUND( ENT( pev ), CHAN_WEAPON, "barnacle/bcl_die1.wav", 1, ATTN_NORM ); |
|
break; |
|
case 1: |
|
EMIT_SOUND( ENT( pev ), CHAN_WEAPON, "barnacle/bcl_die3.wav", 1, ATTN_NORM ); |
|
break; |
|
} |
|
|
|
SetActivity( ACT_DIESIMPLE ); |
|
SetBoneController( 0, 0 ); |
|
|
|
StudioFrameAdvance( 0.1f ); |
|
|
|
SetNextThink( 0.1f ); |
|
SetThink( &CBarnacle::WaitTillDead ); |
|
} |
|
|
|
//========================================================= |
|
//========================================================= |
|
void CBarnacle::WaitTillDead( void ) |
|
{ |
|
SetNextThink( 0.1f ); |
|
|
|
float flInterval = StudioFrameAdvance( 0.1f ); |
|
DispatchAnimEvents( flInterval ); |
|
|
|
if( m_fSequenceFinished ) |
|
{ |
|
// death anim finished. |
|
StopAnimation(); |
|
SetThink( NULL ); |
|
} |
|
} |
|
|
|
//========================================================= |
|
// Precache - precaches all resources this monster needs |
|
//========================================================= |
|
void CBarnacle::Precache() |
|
{ |
|
if (pev->model) |
|
PRECACHE_MODEL(STRING(pev->model)); //LRC |
|
else |
|
PRECACHE_MODEL( "models/barnacle.mdl" ); |
|
|
|
PRECACHE_SOUND( "barnacle/bcl_alert2.wav" );//happy, lifting food up |
|
PRECACHE_SOUND( "barnacle/bcl_bite3.wav" );//just got food to mouth |
|
PRECACHE_SOUND( "barnacle/bcl_chew1.wav" ); |
|
PRECACHE_SOUND( "barnacle/bcl_chew2.wav" ); |
|
PRECACHE_SOUND( "barnacle/bcl_chew3.wav" ); |
|
PRECACHE_SOUND( "barnacle/bcl_die1.wav" ); |
|
PRECACHE_SOUND( "barnacle/bcl_die3.wav" ); |
|
} |
|
|
|
//========================================================= |
|
// TongueTouchEnt - does a trace along the barnacle's tongue |
|
// to see if any entity is touching it. Also stores the length |
|
// of the trace in the int pointer provided. |
|
//========================================================= |
|
#define BARNACLE_CHECK_SPACING 8.0f |
|
CBaseEntity *CBarnacle::TongueTouchEnt( float *pflLength ) |
|
{ |
|
TraceResult tr; |
|
float length; |
|
|
|
// trace once to hit architecture and see if the tongue needs to change position. |
|
UTIL_TraceLine( pev->origin, pev->origin - Vector ( 0.0f, 0.0f, 2048.0f ), ignore_monsters, ENT( pev ), &tr ); |
|
length = fabs( pev->origin.z - tr.vecEndPos.z ); |
|
if( pflLength ) |
|
{ |
|
*pflLength = length; |
|
} |
|
|
|
Vector delta = Vector( BARNACLE_CHECK_SPACING, BARNACLE_CHECK_SPACING, 0.0f ); |
|
Vector mins = pev->origin - delta; |
|
Vector maxs = pev->origin + delta; |
|
maxs.z = pev->origin.z; |
|
mins.z -= length; |
|
|
|
CBaseEntity *pList[10]; |
|
int count = UTIL_EntitiesInBox( pList, 10, mins, maxs, ( FL_CLIENT | FL_MONSTER ) ); |
|
if( count ) |
|
{ |
|
for( int i = 0; i < count; i++ ) |
|
{ |
|
// only clients and monsters |
|
if( pList[i] != this && IRelationship( pList[i] ) > R_NO && pList[ i ]->pev->deadflag == DEAD_NO ) // this ent is one of our enemies. Barnacle tries to eat it. |
|
{ |
|
return pList[i]; |
|
} |
|
} |
|
} |
|
|
|
return NULL; |
|
}
|
|
|