DieHard Wolfers :: View topic - [Tutorial] Just for fun:Invisibility/Notarget (Like in RTCW)

/* ============ T_Chase ============= */
void T_Chase (objtype *ob)
{
long move,dx,dy;
int dist,chance;
boolean dodge;
#ifdef ENEMYFLEE
int runpoints=0;
#endif
dodge = false;

switch (ob->obclass)
{
case dogobj:
dodge = true;
#ifndef SPEAR
case ghostobj:
#ifdef GHOSTSTAND
if (! (ob->flags & FL_ATTACKMODE) )
{
T_Stand (ob);
return;
}
#endif
break;
#endif
default:
{
dx = abs(ob->tilex - player->tilex);
dy = abs(ob->tiley - player->tiley);
dist = dx>dy ? dx : dy;

switch(ob->obclass)
{
#ifndef SPEAR
case schabbobj:
case giftobj:
case fatobj:
case fakeobj:
chance = tics<<(ob->obclass == fakeobj?1:3);
break;
#endif
default:
if (gamestate.victoryflag) return;
#ifdef ENEMYFLEE

if (ob->obclass != dogobj && ob->obclass != mutantobj)
runpoints = starthitpoints[gamestate.difficulty][ob->obclass - 3] / ENEMYFLEEDIV;
if (ob->hitpoints <= runpoints) ob->speed = SPDPATROL*5; // enemy run faster
#endif
if (!dist || (dist==1 && ob->distance<0x4000) )
chance = 300;
else
chance = (tics<<4)/dist;
#ifdef INVISIBLE
if (gamestate.invisible && dist>1) goto invisible; // Invisible mode
#endif
break;
}
if (CheckLine(ob)) // got a shot at player?
{
if ( US_RndT() < chance )
{
switch (ob->obclass) // go into attack frame
{
case guardobj:
NewState (ob,&s_grdshoot1); break;
case officerobj:
NewState (ob,&s_ofcshoot1); break;
case mutantobj:
NewState (ob,&s_mutshoot1); break;
case ssobj:
NewState (ob,&s_ssshoot1); break;
#ifndef SPEAR
case schabbobj:
NewState (ob,&s_schabbshoot1); break;
case giftobj:
NewState (ob,&s_schabbshoot1); break;
case fatobj:
NewState (ob,&s_fatshoot1); break;
case fakeobj:
NewState (ob,&s_fakeshoot1); break;
case bossobj:
case gretelobj:
NewState (ob,&s_bossshoot1); break;
case mechahitlerobj:
NewState (ob,&s_mechashoot1); break;
case realhitlerobj:
NewState (ob,&s_hitlershoot1); break;
#else
case angelobj:
NewState (ob,&s_angelshoot1); break;
case transobj:
NewState (ob,&s_transshoot1); break;
case uberobj:
NewState (ob,&s_ubershoot1); break;
case willobj:
NewState (ob,&s_willshoot1); break;
case deathobj:
NewState (ob,&s_deathshoot1); break;
#endif
}
return;
}
#ifndef SPEAR
if (ob->obclass != fakeobj) dodge = true;
#endif
}
break;
}
}
#ifdef INVISIBLE
invisible: // Invisible jump point
#endif
if (ob->dir == nodir)
{
if (dodge) SelectDodgeDir (ob);
else SelectChaseDir (ob);
if (ob->dir == nodir) return; // object is blocked in
}

move = ob->speed*tics;

while (move)
{
if (ob->obclass == dogobj)
{
dx = player->x - ob->x;
if (dx<0) dx = -dx;
dx -= move;
if (dx <= MINACTORDIST)
{
dy = player->y - ob->y;
if (dy<0) dy = -dy;
dy -= move;
if (dy <= MINACTORDIST)
{
NewState (ob,&s_dogjump1);
return;
}
}
#ifdef DOGVANISH
if (ob->distance < 0)
{
if (doorobjlist[-ob->distance-1].action != dr_open) return; // waiting for a door to open
ob->distance = TILEGLOBAL; // go ahead, the door is now opoen
}
#endif
}
#ifndef SPEAR
#ifdef FAKEVANISH
else if (ob->obclass == fakeobj)
{
if (ob->distance < 0)
{
if (doorobjlist[-ob->distance-1].action != dr_open) return; // waiting for a door to open
ob->distance = TILEGLOBAL; // go ahead, the door is now opoen
}
}
#endif
else if (ob->obclass != fakeobj || ob->obclass != ghostobj) // Fake Can't Open Doors
#else
else if (ob->obclass != spectreobj)
#endif
{
if (ob->distance < 0)
{
OpenDoor (-ob->distance-1);
if (doorobjlist[-ob->distance-1].action != dr_open) return; // waiting for a door to open
ob->distance = TILEGLOBAL; // go ahead, the door is now open
}
}
if (move < ob->distance) { MoveObj (ob,move); break; }
// reached goal tile, so select another one
ob->x = ((long)ob->tilex<<TILESHIFT)+TILEGLOBAL/2; // fix position to account
ob->y = ((long)ob->tiley<<TILESHIFT)+TILEGLOBAL/2; // for round off during moving
move -= ob->distance;
#ifdef ENEMYBONUS
CheckEnemyTile (ob);
#endif
switch (ob->obclass)
{
#ifndef SPEAR
case schabbobj:
case giftobj:
case fatobj:
#else
case willobj:
case angelobj:
case deathobj:
#endif
if (dist <4) SelectRunDir (ob);
else if (dodge) SelectDodgeDir (ob);
else SelectChaseDir (ob);
break;

default:
#ifdef ENEMYFLEE
if (ob->hitpoints <= runpoints)
SelectRunDir (ob); // run away from player
else
{
#endif
if (dodge) SelectDodgeDir (ob);
else SelectChaseDir (ob);
break;
#ifdef ENEMYFLEE
}
#endif
}
if (ob->dir == nodir) return; // object is blocked in
}
}