2016-03-01 15:47:10 +00:00
|
|
|
/*
|
|
|
|
#include "actor.h"
|
|
|
|
#include "info.h"
|
|
|
|
#include "m_random.h"
|
|
|
|
#include "s_sound.h"
|
|
|
|
#include "p_local.h"
|
|
|
|
#include "p_enemy.h"
|
|
|
|
#include "a_action.h"
|
|
|
|
#include "gstrings.h"
|
|
|
|
#include "thingdef/thingdef.h"
|
|
|
|
#include "g_level.h"
|
|
|
|
*/
|
|
|
|
|
|
|
|
static FRandom pr_foo ("WhirlwindDamage");
|
|
|
|
static FRandom pr_atk ("LichAttack");
|
|
|
|
static FRandom pr_seek ("WhirlwindSeek");
|
|
|
|
|
|
|
|
class AWhirlwind : public AActor
|
|
|
|
{
|
|
|
|
DECLARE_CLASS (AWhirlwind, AActor)
|
|
|
|
public:
|
|
|
|
int DoSpecialDamage (AActor *target, int damage, FName damagetype);
|
|
|
|
};
|
|
|
|
|
|
|
|
IMPLEMENT_CLASS(AWhirlwind)
|
|
|
|
|
|
|
|
int AWhirlwind::DoSpecialDamage (AActor *target, int damage, FName damagetype)
|
|
|
|
{
|
|
|
|
int randVal;
|
|
|
|
|
|
|
|
if (!(target->flags7 & MF7_DONTTHRUST))
|
|
|
|
{
|
|
|
|
target->angle += pr_foo.Random2() << 20;
|
2016-03-12 13:11:43 +00:00
|
|
|
target->vel.x += pr_foo.Random2() << 10;
|
|
|
|
target->vel.y += pr_foo.Random2() << 10;
|
2016-03-01 15:47:10 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
if ((level.time & 16) && !(target->flags2 & MF2_BOSS) && !(target->flags7 & MF7_DONTTHRUST))
|
|
|
|
{
|
|
|
|
randVal = pr_foo();
|
|
|
|
if (randVal > 160)
|
|
|
|
{
|
|
|
|
randVal = 160;
|
|
|
|
}
|
2016-03-12 13:11:43 +00:00
|
|
|
target->vel.z += randVal << 11;
|
|
|
|
if (target->vel.z > 12*FRACUNIT)
|
2016-03-01 15:47:10 +00:00
|
|
|
{
|
2016-03-12 13:11:43 +00:00
|
|
|
target->vel.z = 12*FRACUNIT;
|
2016-03-01 15:47:10 +00:00
|
|
|
}
|
|
|
|
}
|
|
|
|
if (!(level.time & 7))
|
|
|
|
{
|
|
|
|
P_DamageMobj (target, NULL, this->target, 3, NAME_Melee);
|
|
|
|
}
|
|
|
|
return -1;
|
|
|
|
}
|
|
|
|
|
|
|
|
//----------------------------------------------------------------------------
|
|
|
|
//
|
|
|
|
// PROC A_LichAttack
|
|
|
|
//
|
|
|
|
//----------------------------------------------------------------------------
|
|
|
|
|
|
|
|
DEFINE_ACTION_FUNCTION(AActor, A_LichAttack)
|
|
|
|
{
|
|
|
|
PARAM_ACTION_PROLOGUE;
|
|
|
|
|
|
|
|
int i;
|
|
|
|
AActor *fire;
|
|
|
|
AActor *baseFire;
|
|
|
|
AActor *mo;
|
|
|
|
AActor *target;
|
|
|
|
int randAttack;
|
|
|
|
static const int atkResolve1[] = { 50, 150 };
|
|
|
|
static const int atkResolve2[] = { 150, 200 };
|
|
|
|
int dist;
|
|
|
|
|
|
|
|
// Ice ball (close 20% : far 60%)
|
|
|
|
// Fire column (close 40% : far 20%)
|
|
|
|
// Whirlwind (close 40% : far 20%)
|
|
|
|
// Distance threshold = 8 cells
|
|
|
|
|
|
|
|
target = self->target;
|
|
|
|
if (target == NULL)
|
|
|
|
{
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
A_FaceTarget (self);
|
|
|
|
if (self->CheckMeleeRange ())
|
|
|
|
{
|
|
|
|
int damage = pr_atk.HitDice (6);
|
|
|
|
int newdam = P_DamageMobj (target, self, self, damage, NAME_Melee);
|
|
|
|
P_TraceBleed (newdam > 0 ? newdam : damage, target, self);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
dist = self->AproxDistance (target) > 8*64*FRACUNIT;
|
|
|
|
randAttack = pr_atk ();
|
|
|
|
if (randAttack < atkResolve1[dist])
|
|
|
|
{ // Ice ball
|
|
|
|
P_SpawnMissile (self, target, PClass::FindActor("HeadFX1"));
|
|
|
|
S_Sound (self, CHAN_BODY, "ironlich/attack2", 1, ATTN_NORM);
|
|
|
|
}
|
|
|
|
else if (randAttack < atkResolve2[dist])
|
|
|
|
{ // Fire column
|
|
|
|
baseFire = P_SpawnMissile (self, target, PClass::FindActor("HeadFX3"));
|
|
|
|
if (baseFire != NULL)
|
|
|
|
{
|
|
|
|
baseFire->SetState (baseFire->FindState("NoGrow"));
|
|
|
|
for (i = 0; i < 5; i++)
|
|
|
|
{
|
|
|
|
fire = Spawn("HeadFX3", baseFire->Pos(), ALLOW_REPLACE);
|
|
|
|
if (i == 0)
|
|
|
|
{
|
|
|
|
S_Sound (self, CHAN_BODY, "ironlich/attack1", 1, ATTN_NORM);
|
|
|
|
}
|
|
|
|
fire->target = baseFire->target;
|
|
|
|
fire->angle = baseFire->angle;
|
2016-03-12 13:11:43 +00:00
|
|
|
fire->vel.x = baseFire->vel.x;
|
|
|
|
fire->vel.y = baseFire->vel.y;
|
|
|
|
fire->vel.z = baseFire->vel.z;
|
2016-03-01 15:47:10 +00:00
|
|
|
fire->Damage = NULL;
|
|
|
|
fire->health = (i+1) * 2;
|
|
|
|
P_CheckMissileSpawn (fire, self->radius);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{ // Whirlwind
|
|
|
|
mo = P_SpawnMissile (self, target, RUNTIME_CLASS(AWhirlwind));
|
|
|
|
if (mo != NULL)
|
|
|
|
{
|
|
|
|
mo->AddZ(-32*FRACUNIT, false);
|
|
|
|
mo->tracer = target;
|
|
|
|
mo->health = 20*TICRATE; // Duration
|
|
|
|
S_Sound (self, CHAN_BODY, "ironlich/attack3", 1, ATTN_NORM);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
//----------------------------------------------------------------------------
|
|
|
|
//
|
|
|
|
// PROC A_WhirlwindSeek
|
|
|
|
//
|
|
|
|
//----------------------------------------------------------------------------
|
|
|
|
|
|
|
|
DEFINE_ACTION_FUNCTION(AActor, A_WhirlwindSeek)
|
|
|
|
{
|
|
|
|
PARAM_ACTION_PROLOGUE;
|
|
|
|
|
|
|
|
self->health -= 3;
|
|
|
|
if (self->health < 0)
|
|
|
|
{
|
2016-03-12 13:11:43 +00:00
|
|
|
self->vel.x = self->vel.y = self->vel.z = 0;
|
2016-03-01 15:47:10 +00:00
|
|
|
self->SetState (self->FindState(NAME_Death));
|
|
|
|
self->flags &= ~MF_MISSILE;
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
if ((self->threshold -= 3) < 0)
|
|
|
|
{
|
|
|
|
self->threshold = 58 + (pr_seek() & 31);
|
|
|
|
S_Sound (self, CHAN_BODY, "ironlich/attack3", 1, ATTN_NORM);
|
|
|
|
}
|
|
|
|
if (self->tracer && self->tracer->flags&MF_SHADOW)
|
|
|
|
{
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
P_SeekerMissile (self, ANGLE_1*10, ANGLE_1*30);
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
//----------------------------------------------------------------------------
|
|
|
|
//
|
|
|
|
// PROC A_LichIceImpact
|
|
|
|
//
|
|
|
|
//----------------------------------------------------------------------------
|
|
|
|
|
|
|
|
DEFINE_ACTION_FUNCTION(AActor, A_LichIceImpact)
|
|
|
|
{
|
|
|
|
PARAM_ACTION_PROLOGUE;
|
|
|
|
|
|
|
|
unsigned int i;
|
|
|
|
angle_t angle;
|
|
|
|
AActor *shard;
|
|
|
|
|
|
|
|
for (i = 0; i < 8; i++)
|
|
|
|
{
|
|
|
|
shard = Spawn("HeadFX2", self->Pos(), ALLOW_REPLACE);
|
|
|
|
angle = i*ANG45;
|
|
|
|
shard->target = self->target;
|
|
|
|
shard->angle = angle;
|
|
|
|
angle >>= ANGLETOFINESHIFT;
|
2016-03-12 13:11:43 +00:00
|
|
|
shard->vel.x = FixedMul (shard->Speed, finecosine[angle]);
|
|
|
|
shard->vel.y = FixedMul (shard->Speed, finesine[angle]);
|
|
|
|
shard->vel.z = -FRACUNIT*6/10;
|
2016-03-01 15:47:10 +00:00
|
|
|
P_CheckMissileSpawn (shard, self->radius);
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
//----------------------------------------------------------------------------
|
|
|
|
//
|
|
|
|
// PROC A_LichFireGrow
|
|
|
|
//
|
|
|
|
//----------------------------------------------------------------------------
|
|
|
|
|
|
|
|
DEFINE_ACTION_FUNCTION(AActor, A_LichFireGrow)
|
|
|
|
{
|
|
|
|
PARAM_ACTION_PROLOGUE;
|
|
|
|
|
|
|
|
self->health--;
|
|
|
|
self->AddZ(9*FRACUNIT);
|
|
|
|
if (self->health == 0)
|
|
|
|
{
|
|
|
|
self->Damage = self->GetDefault()->Damage;
|
|
|
|
self->SetState (self->FindState("NoGrow"));
|
|
|
|
}
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|