3D_ACT2.C

// 3D_ACT2.C

#include "3D_DEF.H"

#pragma hdrstop

/*
=============================================================================

						 LOCAL CONSTANTS

=============================================================================
*/


#define EXPODE_STATIC_SCAN		(true)
#define BFG_SHOT_STOPS			(true)


#define TURNTICS	10
#define SPDPATROL	512
#define SPDPROJ	7168
#define PROJSIZE			0x8000l		// collision with actor range
#define PROJCHECKSIZE	0x8000l		// scan for actor range
#define PROJWALLSIZE		0x2000l		// collision with wall range

#define PROJECTILESIZE	0xc000l

#define BJRUNSPEED	2048
#define BJJUMPSPEED	680

#define SEEK_TURN_DELAY		30			// tics

#define CLOSE_RANGE			1		// Tiles

#define ALIENSPEED 		(SPDPATROL)
#define ALIENAMMOINIT   (30+(US_RndT()%60))

#define GR_DAMAGE       		   (40+(US_RndT() & 0x7f))		// 20 & 3f
#define BFG_DAMAGE					(GR_DAMAGE<<1)				// Hit Point damage cause by BFG
#define PLASMA_DETONATOR_DAMAGE  (500)
#define DETONATOR_FLASH_RATE		(20)
#define EXPLODE_DAMAGE				(20)		// 5
#define OOZE_ANIMATE_SPEED			(20)

#define VPOST_BARRIER_SPEED		(7)			// Tics per anim step
#define VPOST_WAIT_DELAY			(90)			// Tics delay in cycling

#define DR_MIN_STATICS				(50)			// Min number of statics avail
															// before 50/50 chance of door rubble on exp. doors.
/*
=============================================================================

						 GLOBAL VARIABLES

=============================================================================
*/

char detonators_spawned = 0;

/*
=============================================================================

						 LOCAL VARIABLES

=============================================================================
*/


int	far starthitpoints[4][NUMHITENEMIES] =
	 //
	 // BABY MODE
	 //
{
	 {4,		// Rent-A-Cop
	  4,		// Hang Terrot
	  4,		// general scientist
	  22,		// pod alien
	  13,		// Electro-Alien
	  1,		// Electro-Sphere
	  33,		// ProGuard
	  20,		// Genetic Guard
	  24,		// Mutant Human Type 1
	  24,		// Mutant Human Type 2
	  1,		// Large Canister Alien - CONTAINER HP
	  34,		// Large Can-Alien - ALIEN HP
	  1,		// Small Canister Alien - CONTAINER HP
	  25,		// Small Can-Alien - ALIEN HP
	  1,		// Gurney Mutant - Waiting HP
	  27,		// Gurney Mutant - Spawned HP
	  30,		// Liquid Alien -
	  78,		// Swat Guards
	  90,		// Goldstern
	  4000,	// Morphed Goldstern
	  17,		// Volatile Material Transport
	  15,		// Floating Bomb
	  175,	// Vital Defence Obj  - DON'T CHANGE
	  60,		// spider_mutant
	  65,		// breather_beast
	  70,		// cyborg_warror
	  65,		// reptilian_warrior
	  60,		// acid_dragon
	  65,		// mech_guardian
	  1600,	// final_boss 1
	  1700,	// final_boss 2
	  1800,	// final_boss 3
	  1900,	// final_boss 4
	  1,		// Crate 1
	  1,		// Crate 2
	  1,		// Crate 3
	  1,		// Pod egg
	  1,		// morphing_spider_mutant
	  1,		// morphing_reptilian_warrior
	  1,		// morphing_Mutant Human Type 2
	  },

	 //
	 // DON'T HURT ME MODE
	 //

	 {9,		// Rent-A-Cop
	  9,		// Hang Terrot
	  9,		// general scientist
	  60,		// pod alien
	  37,		// Electro-Alien
	  1,		// Electro-Sphere
	  63,		// ProGuard
	  60,		// Genetic Guard
	  50,		// Mutant Human Type 1
	  50,		// Mutant Human Type 2
	  1,		// Large Canister Alien - CONTAINER HP
	  75,		// Large Can-Alien - ALIEN HP
	  1,		// Small Canister Alien - CONTAINER HP
	  60,		// Small Can-Alien - ALIEN HP
	  1,		// Gurney Mutant - Waiting HP
	  37,		// Gurney Mutant - Spawned HP
	  66,		// Liquid Alien -
	  112,	// SWAT Guards
	  100,	// Goldstern
	  4500,	// Morphed Goldstern
	  25,		// Volatile Material Transport
	  40,		// Floating Bomb
	  175,	// Vital Defence Obj  - DON'T CHANGE
	  100,	// spider_mutant
	  115,	// breather_beast
	  100,	// cyborg_warror
	  115,	// reptilian_warrior
	  100,	// acid_dragon
	  115,	// mech_guardian
	  1700,	// final_boss 1
	  1800,	// final_boss 2
	  1900,	// final_boss 3
	  2000,	// final_boss 4
	  1,		// Crate 1
	  1,		// Crate 2
	  1,		// Crate 3
	  1,		// Pod egg
	  1,		// morphing_spider_mutant
	  1,		// morphing_reptilian_warrior
	  1,		// morphing_Mutant Human Type 2
	  },

	 //
	 // BRING 'EM ON MODE
	 //

	 {25,		// Rent-A-Cop
	  23,		// Hang Terrot
	  23,		// general scientist
	  160,	// pod alien
	  112,	// Electro-Alien
	  1,		// Electro-Sphere
	  150,	// ProGuard
	  180,	// Genetic Guard
	  155,	// Mutant Human Type 1
	  155,	// Mutant Human Type 2
	  1,		// Large Canister Alien - CONTAINER HP
	  225,	// Large Can-Alien - ALIEN HP
	  1,		// Small Canister Alien - CONTAINER HP
	  180,	// Small Can-Alien - ALIEN HP
	  1,		// Gurney Mutant - Waiting HP
	  150,	// Gurney Mutant - Spawned HP
	  163,	// Liquid Alien -
	  325,	// SWAT Guards
	  150,	// Goldstern
	  4800,	// Morphed Goldstern
	  63,		// Volatile Material Transport
	  60,		// Floating Bomb
	  175,	// Vital Defence Obj  - DON'T CHANGE
	  150,	// spider_mutant
	  165,	// breather_beast
	  150,	// cyborg_warror
	  165,	// reptilian_warrior
	  150,	// acid_dragon
	  165,	// mech_guardian
	  1800,	// final_boss 1
	  1900,	// final_boss 2
	  2000,	// final_boss 3
	  2100,	// final_boss 4
	  1,		// Crate 1
	  1,		// Crate 2
	  1,		// Crate 3
	  1,		// Pod egg
	  1,		// morphing_spider_mutant
	  1,		// morphing_reptilian_warrior
	  1,		// morphing_Mutant Human Type 2
	  },

	 //
	 // DEATH INCARNATE MODE
	 //

	 {38,		// Rent-A-Cop
	  28,		// Hang Terrot
	  28,		// general scientist
	  210,	// pod alien
	  150,	// Electro-Alien
	  1,		// Electro-Sphere
	  175,	// ProGuard
	  240,	// Genetic Guard
	  210,	// Mutant Human Type 1
	  210,	// Mutant Human Type 2
	  1,		// Large Canister Alien - CONTAINER HP
	  300,	// Large Can-Alien - ALIEN HP
	  1,		// Small Canister Alien - CONTAINER HP
	  240,	// Small Can-Alien - ALIEN HP
	  1,		// Gurney Mutant - Waiting HP
	  200,	// Gurney Mutant - Spawned HP
	  210,	// Liquid Alien -
	  425,	// SWAT Gaurds
	  250,	// Goldstern
	  5400,	// Morphed Goldstern
	  75,		// Volatile Material Transport
	  85,		// Floating Bomb
	  175,	// Vital Defence Obj - DON'T CHANGE
	  200,	// spider_mutant
	  225,	// breather_beast
	  200,	// cyborg_warror
	  225,	// reptilian_warrior
	  200,	// acid_dragon
	  225,	// mech_guardian
	  1900,	// final_boss 1
	  2000,	// final_boss 2
     2100,	// final_boss 3
     2200,	// final_boss 4
	  1,		// Crate 1
	  1,		// Crate 2
	  1,		// Crate 3
	  1,		// Pod egg
	  1,		// morphing_spider_mutant
	  1,		// morphing_reptilian_warrior
	  1,		// morphing_Mutant Human Type 2
	  }
};

unsigned far BossShotShapes[] = {SPR_BOSS1_PROJ1,0,0,0,SPR_BOSS5_PROJ1,0,0,SPR_BOSS10_SPIT1};
unsigned far BossShapes[] = {SPR_BOSS1_W1,SPR_BOSS2_W1,SPR_BOSS3_W1,SPR_BOSS4_W1,SPR_BOSS5_W1,SPR_BOSS6_W1,SPR_BOSS7_W1,SPR_BOSS8_W1,SPR_BOSS9_W1,SPR_BOSS10_W1};
unsigned far MorphShapes[] = {SPR_BOSS1_MORPH1, SPR_BOSS4_MORPH1, SPR_MUTHUM2_MORPH1};
unsigned far MorphClass[] = {spider_mutantobj,reptilian_warriorobj,mutant_human2obj};
unsigned far MorphEndShapes[] = {SPR_BOSS1_W1,SPR_BOSS4_W1,SPR_MUTHUM2_W1};
char far MorphSounds[] = {SCANHALTSND,GGUARDHALTSND,DOGBOYHALTSND};
unsigned bars_connected = 0;

unsigned SpecialSpawnFlags[] = {FL2_DROP_RKEY,FL2_DROP_YKEY,FL2_DROP_BKEY,
									     FL2_DROP_BFG,FL2_DROP_ION,FL2_DROP_DETONATOR};


void	T_Path (objtype *ob);
void	T_Shoot (objtype *ob);
void T_Shade(objtype *obj);
void	T_Chase (objtype *ob);
void	T_Projectile (objtype *ob);
void	T_Stand (objtype *ob);


void T_OfsThink(objtype *obj);
void T_OfsChase(objtype *obj);

void A_DeathScream (objtype *ob);

int RandomSphereDir(enemy_t dir);
void CheckForcedMove(objtype *ob);

void T_SwatWound(objtype *ob);
void T_SpaceShip(objtype *ob);

void T_BlowBack(objtype *obj);
void DoAttack(objtype *ob);

boolean MoveTrappedDiag(objtype *ob);
boolean CheckTrappedDiag(objtype *ob);

void ChangeShootMode(objtype *ob);

//===========================================================================
//
//								OFFSET OBJECT ROUTINES
//
// * NOTES: OffsetObjects require the use of TEMP1 of the object structure!
//
// * NOTES: THINK function AnimateOfsObj() requires the use of TEMP3 of the
//				object structure!
//
//===========================================================================

//
// Local Externs
//
extern statetype s_ofs_stand;

extern statetype s_ofs_chase1;
extern statetype s_ofs_chase1s;
extern statetype s_ofs_chase2;
extern statetype s_ofs_chase3;
extern statetype s_ofs_chase3s;
extern statetype s_ofs_chase4;

extern statetype s_ofs_pain;

extern statetype s_ofs_die1;
extern statetype s_ofs_die1s;
extern statetype s_ofs_die2;
extern statetype s_ofs_die3;
extern statetype s_ofs_die4;
extern statetype s_ofs_die5;

extern statetype s_ofs_attack1;
extern statetype s_ofs_attack2;
extern statetype s_ofs_attack3;


extern statetype s_ofs_spit1;
extern statetype s_ofs_spit2;
extern statetype s_ofs_spit3;

extern statetype s_ofs_shoot1;
extern statetype s_ofs_shoot2;
extern statetype s_ofs_shoot3;
extern statetype s_ofs_shoot4;
extern statetype s_ofs_shoot5;
extern statetype s_ofs_shoot6;
extern statetype s_ofs_shoot7;

extern statetype s_ofs_smart_anim;
extern statetype s_ofs_smart_anim2;

extern statetype s_ofs_projectile1;
extern statetype s_ofs_projectile2;

extern statetype s_ofs_proj_exp1;
extern statetype s_ofs_proj_exp2;

extern statetype s_ofs_pod_spit1;
extern statetype s_ofs_pod_spit2;
extern statetype s_ofs_pod_spit3;

extern statetype s_ofs_pod_attack1;
extern statetype s_ofs_pod_attack1a;	  
extern statetype s_ofs_pod_attack2;

//extern statetype s_ofs_pod_attack1_2;
//extern statetype s_ofs_pod_attack2_2;

extern statetype s_ofs_pod_death1;
extern statetype s_ofs_pod_death2;
extern statetype s_ofs_pod_death3;

extern statetype s_ofs_roam;

extern statetype s_ofs_esphere_death1;
extern statetype s_ofs_esphere_death2;
extern statetype s_ofs_esphere_death3;



//
// Local Prototypes
//

void T_SmartThink(objtype *obj);
void T_SmartThought(objtype *obj);
void T_Action(objtype *obj);
boolean ProjectileTryMove(objtype *ob, fixed deltax, fixed deltay);
void T_Projectile(objtype *ob);
void T_OfsShoot(enemy_t which, objtype *ob);
void SphereStartDir(objtype *ob);
void T_OfsBounce(objtype *obj);

//
// Local Offset Anim Structures
//
statetype s_ofs_stand	= {false,SPR_GENETIC_W1 - SPR_GENETIC_W1, 0, T_OfsThink,NULL,&s_ofs_stand};

statetype s_ofs_chase1 	= {false,SPR_GENETIC_W1 - SPR_GENETIC_W1, 10, T_Chase,NULL,&s_ofs_chase1s};
statetype s_ofs_chase1s	= {false,SPR_GENETIC_W1 - SPR_GENETIC_W1, 5,NULL,NULL,&s_ofs_chase2};
statetype s_ofs_chase2 	= {false,SPR_GENETIC_W2 - SPR_GENETIC_W1, 8, T_Chase,NULL,&s_ofs_chase3};
statetype s_ofs_chase3 	= {false,SPR_GENETIC_W3 - SPR_GENETIC_W1, 10, T_Chase,NULL,&s_ofs_chase3s};
statetype s_ofs_chase3s	= {false,SPR_GENETIC_W3 - SPR_GENETIC_W1, 5, NULL,NULL,&s_ofs_chase4};
statetype s_ofs_chase4 	= {false,SPR_GENETIC_W4 - SPR_GENETIC_W1, 8, T_Chase,NULL,&s_ofs_chase1};

statetype s_ofs_pain		= {false,SPR_GENETIC_OUCH - SPR_GENETIC_W1, 15, NULL,NULL,&s_ofs_chase1};

statetype s_ofs_die1		= {false,SPR_GENETIC_OUCH - SPR_GENETIC_W1, 18, T_BlowBack,A_DeathScream,&s_ofs_die1s};
statetype s_ofs_die1s	= {false,SPR_GENETIC_DIE1 - SPR_GENETIC_W1, 20, T_BlowBack,NULL,&s_ofs_die2};
statetype s_ofs_die2		= {false,SPR_GENETIC_DIE2 - SPR_GENETIC_W1, 22, T_BlowBack,NULL,&s_ofs_die3};
statetype s_ofs_die3		= {false,SPR_GENETIC_DIE3 - SPR_GENETIC_W1, 20, T_BlowBack,NULL,&s_ofs_die4};
statetype s_ofs_die4		= {false,SPR_GENETIC_DIE4 - SPR_GENETIC_W1, 18, T_BlowBack,NULL,&s_ofs_die5};
statetype s_ofs_die5		= {false,SPR_GENETIC_DEAD - SPR_GENETIC_W1, 0, NULL,NULL,&s_ofs_die5};

statetype s_ofs_attack1 = {false,SPR_GENETIC_SWING1 - SPR_GENETIC_W1, 20, NULL,NULL,&s_ofs_attack2};
statetype s_ofs_attack2 = {false,SPR_GENETIC_SWING2 - SPR_GENETIC_W1, 20, NULL,T_Hit,&s_ofs_attack3};
statetype s_ofs_attack3 = {false,SPR_GENETIC_SWING3 - SPR_GENETIC_W1, 30, NULL,NULL,&s_ofs_chase1};

statetype s_ofs_spit1 = {false,SPR_GENETIC_SHOOT1 - SPR_GENETIC_W1, 20, NULL,NULL,&s_ofs_spit2};
statetype s_ofs_spit2 = {false,SPR_GENETIC_SHOOT2 - SPR_GENETIC_W1, 20, NULL,T_Shoot,&s_ofs_spit3};
statetype s_ofs_spit3 = {false,SPR_GENETIC_SHOOT3 - SPR_GENETIC_W1, 10, NULL,T_Shade,&s_ofs_chase1};

statetype s_ofs_shoot1 = {false,SPR_GENETIC_SWING1 - SPR_GENETIC_W1, 10, NULL,NULL,&s_ofs_shoot2};
statetype s_ofs_shoot2 = {false,SPR_GENETIC_SWING2 - SPR_GENETIC_W1, 10, NULL,T_Shoot,&s_ofs_shoot3};
statetype s_ofs_shoot3 = {false,SPR_GENETIC_SWING3 - SPR_GENETIC_W1, 10, NULL,T_Shade,&s_ofs_chase1};

// General 'offset-object' states...
//

statetype s_ofs_pod_attack1 = {0,SPR_POD_ATTACK1 - SPR_POD_WALK1, 8, NULL,NULL,&s_ofs_pod_attack1a};
statetype s_ofs_pod_attack1a = {0,SPR_POD_ATTACK2 - SPR_POD_WALK1, 8, NULL,NULL,&s_ofs_attack2};
statetype s_ofs_pod_attack2 = {0,SPR_POD_ATTACK3 - SPR_POD_WALK1, 8, NULL,T_Hit,&s_ofs_chase1};

statetype s_ofs_pod_spit1 = {0,SPR_POD_SPIT1 - SPR_POD_WALK1, 8, NULL,NULL,&s_ofs_pod_spit2};
statetype s_ofs_pod_spit2 = {0,SPR_POD_SPIT2 - SPR_POD_WALK1, 8, NULL,NULL,&s_ofs_pod_spit3};
statetype s_ofs_pod_spit3 = {0,SPR_POD_SPIT3 - SPR_POD_WALK1, 8, NULL,T_Shoot,&s_ofs_chase1};

statetype s_ofs_pod_death1	= {0,0, 60, NULL,NULL,&s_ofs_pod_death2};
statetype s_ofs_pod_death2	= {0,1, 30, NULL,NULL,&s_ofs_pod_death3};
statetype s_ofs_pod_death3	= {0,2, 0, NULL,NULL,&s_ofs_pod_death3};

statetype s_ofs_pod_ouch	= {0,SPR_POD_OUCH-SPR_POD_WALK1, 11, NULL,NULL,&s_ofs_chase1};

statetype s_ofs_bounce = {0,0,10,T_OfsBounce,T_OfsThink,&s_ofs_bounce};

statetype s_ofs_ouch = {0,0,15,T_OfsBounce,NULL,&s_ofs_bounce};

statetype s_ofs_esphere_death1 = {0,0, 15, NULL,A_DeathScream,&s_ofs_esphere_death2};
statetype s_ofs_esphere_death2 = {0,1, 15, NULL,NULL,&s_ofs_esphere_death3};
statetype s_ofs_esphere_death3 = {0,2, 15, NULL,NULL,NULL};

statetype s_ofs_random = {0,0,1,T_OfsThink,NULL,&s_ofs_random};

statetype s_ofs_static = {0,0,1,NULL,NULL,&s_ofs_static};

statetype s_hold = {0,0,1,NULL,NULL,&s_hold};

unsigned scan_value;

//---------------------------------------------------------------------------
// SpawnOffsetObj ()
//---------------------------------------------------------------------------
void SpawnOffsetObj (enemy_t which, int tilex, int tiley)
{
	unsigned	far *map,tile;
	enemy_t dir_which;

	switch (which)
	{
		case en_vertsphere:
		case en_horzsphere:
		case en_diagsphere:
			dir_which = which;
			which = en_electrosphere;
		break;

		case en_bloodvent:
		case en_watervent:
			dir_which = which;
			which = en_ventdrip;
		break;
	}

	SpawnNewObj (tilex,tiley,&s_ofs_stand);
	new->flags |= FL_SHOOTABLE | FL_SOLID | FL_OFFSET_STATES;
	new->obclass = rentacopobj+which;

	switch (which)
	{
      case en_final_boss2:
         new->lighting = NO_SHADING;
		case en_spider_mutant:
		case en_breather_beast:
		case en_cyborg_warrior:
		case en_reptilian_warrior:
		case en_acid_dragon:
		case en_mech_guardian:
      case en_final_boss1:
      case en_final_boss3:
      case en_final_boss4:
			new->temp1 = BossShapes[which-en_spider_mutant];
			new->speed = ALIENSPEED;
			new->ammo = ALIENAMMOINIT;
			new->flags |= FL_PROJ_TRANSPARENT;
			new->flags2 = FL2_BFG_SHOOTABLE|FL2_BFGSHOT_SOLID;
		break;

		case en_green_ooze:
			InitSmartSpeedAnim(new,SPR_GREEN_OOZE1,US_RndT()%3,2,at_CYCLE,ad_FWD,5+(US_RndT()&2));
			new->flags &= ~(FL_SHOOTABLE|FL_SOLID);
		break;

		case en_black_ooze:
			InitSmartSpeedAnim(new,SPR_BLACK_OOZE1,US_RndT()%3,2,at_CYCLE,ad_FWD,5+(US_RndT()&2));
			new->flags &= ~(FL_SHOOTABLE|FL_SOLID);
		break;

		case en_green2_ooze:
			InitSmartSpeedAnim(new,SPR_GREEN2_OOZE1,US_RndT()%3,2,at_CYCLE,ad_FWD,5+(US_RndT()&2));
			new->flags &= ~(FL_SHOOTABLE|FL_SOLID);
		break;

		case en_black2_ooze:
			InitSmartSpeedAnim(new,SPR_BLACK2_OOZE1,US_RndT()%3,2,at_CYCLE,ad_FWD,5+(US_RndT()&2));
			new->flags &= ~(FL_SHOOTABLE|FL_SOLID);
		break;


		case en_crate1:
		case en_crate2:
		case en_crate3:
			new->temp1 = SPR_CRATE_1+which-en_crate1;
			new->flags |= FL_NO_SLIDE|FL_FAKE_STATIC;

			// NOTE : TEMP2 is modified in ScanInfoPlane to determine if
			//			 this object is a "blastable" or not.
		break;

		case en_rotating_cube:
			InitSmartSpeedAnim(new,SPR_CUBE1,0,9,at_CYCLE,ad_FWD,5);
			new->flags2 = FL2_BFGSHOT_SOLID;
         new->lighting = LAMP_ON_SHADING;
		break;

		case en_ventdrip:
			if (dir_which == en_bloodvent)
				new->temp1 = SPR_BLOOD_DRIP1;
			else
				new->temp1 = SPR_WATER_DRIP1;
			new->temp2 = 5+(US_RndT()%10);
			new->temp3 = 0;
			NewState(new,&s_ofs_random);
			new->flags &= ~(FL_SHOOTABLE|FL_SOLID);
		break;

		case en_plasma_detonator:
		case en_plasma_detonator_reserve:
			NewState(new,&s_ofs_random);
         new->temp1 = SPR_DOORBOMB;
			new->temp3 = PLASMA_DETONATORS_DELAY;
			new->flags &= ~(FL_SOLID|FL_SHOOTABLE);
         if (detonators_spawned++)
         	ACT2_ERROR(TOO_MANY_DETONATORS);
      break;

		case en_flickerlight:
			new->temp1 = SPR_DECO_ARC_1;
			new->temp2 = (2+(US_RndT()%3))*60;
			NewState(new,&s_ofs_random);
         new->flags |= FL_NONMARK|FL_NEVERMARK;
			new->flags &= ~(FL_SOLID|FL_SHOOTABLE);
         new->lighting = LAMP_ON_SHADING;
		break;

		case en_security_light:
			new->flags &= ~(FL_SOLID | FL_SHOOTABLE);			// ick - this is stupid...
			NewState(new,&s_security_light);
		break;

		case en_electrosphere:
			new->trydir = dir_which;
			new->flags &= ~FL_SOLID;
			new->temp1 = SPR_ELECTRO_SPHERE_ROAM1;
			new->speed = 3096;
         new->lighting = NO_SHADING;			// NO shading
			NewState(new,&s_ofs_bounce);
			SphereStartDir(new);
		break;

		case en_podegg:
			new->temp1 = SPR_POD_EGG;
			if (scan_value == 0xffff)
				new->temp2 = 60*5+(60*(US_RndT()%20));
			else
				new->temp2 = scan_value*60;
			new->speed = ALIENSPEED;
			new->ammo = ALIENAMMOINIT;
			if (new->temp2==0xff*60)
				new->flags &= ~FL_SHOOTABLE;
			new->flags |= FL_PROJ_TRANSPARENT|FL_NO_SLIDE|FL_FAKE_STATIC;
			new->flags2 = FL2_BFGSHOT_SOLID|FL2_BFG_SHOOTABLE;
		break;

		case en_pod:
			new->temp1 = SPR_POD_WALK1;
			new->speed = SPDPATROL;
			new->ammo = -1;
			new->flags |= FL_PROJ_TRANSPARENT|FL_NO_SLIDE;
			new->flags2 = FL2_BFG_SHOOTABLE;
		break;

		case en_genetic_guard:
			new->temp1 = SPR_GENETIC_W1;
			new->speed = ALIENSPEED;
			new->ammo = ALIENAMMOINIT;
			new->flags |= FL_PROJ_TRANSPARENT|FL_NO_SLIDE;
			new->flags2 = FL2_BFG_SHOOTABLE;
		break;

		case en_mutant_human1:
			new->temp1 = SPR_MUTHUM1_W1;
			new->speed = ALIENSPEED;
			new->ammo = ALIENAMMOINIT;
			new->flags |= FL_PROJ_TRANSPARENT|FL_NO_SLIDE;
			new->flags2 = FL2_BFGSHOT_SOLID|FL2_BFG_SHOOTABLE;
		break;

		case en_mutant_human2:
			new->temp1 = SPR_MUTHUM2_W1;
			new->speed = ALIENSPEED;
			new->ammo = ALIENAMMOINIT;
			new->flags |= FL_PROJ_TRANSPARENT|FL_NO_SLIDE;
			new->flags2 = FL2_BFGSHOT_SOLID|FL2_BFG_SHOOTABLE;
		break;

		case en_scan_wait_alien:
			new->temp1 = SPR_SCAN_ALIEN_READY;
			new->flags |= FL_STATIONARY|FL_NO_SLIDE|FL_FAKE_STATIC;
			new->flags2 = FL2_BFGSHOT_SOLID|FL2_BFG_SHOOTABLE;
		break;

		case en_lcan_wait_alien:
			new->temp1 = SPR_LCAN_ALIEN_READY;
			new->flags |= FL_STATIONARY|FL_NO_SLIDE|FL_FAKE_STATIC;
			new->flags2 = FL2_BFGSHOT_SOLID|FL2_BFG_SHOOTABLE;
		break;

		case en_morphing_spider_mutant:
		case en_morphing_reptilian_warrior:
		case en_morphing_mutanthuman2:
			if (scan_value == 0xffff)
				new->temp2 = 0xffff;			// set to max!			// 60*5+(60*(US_RndT()%20));
			else
				new->temp2 = scan_value*60;

			if (new->temp2==0xff*60)
				new->flags &= ~FL_SHOOTABLE;

			new->speed = ALIENSPEED;
			new->ammo = ALIENAMMOINIT;
			new->temp1 = MorphShapes[which-en_morphing_spider_mutant];
			new->flags |= FL_FAKE_STATIC;
			new->flags2 = FL2_BFGSHOT_SOLID|FL2_BFG_SHOOTABLE;
			NewState(new,&s_ofs_random);
      break;

		case en_gurney_wait:
			if (scan_value == 0xffff)
				new->temp3 = 0;
			else
				new->temp3 = (scan_value & 0xff)*60;
			new->temp1 = SPR_GURNEY_MUT_READY;
			new->flags |= FL_STATIONARY|FL_PROJ_TRANSPARENT|FL_NO_SLIDE|FL_FAKE_STATIC;
			new->flags2 = FL2_BFGSHOT_SOLID|FL2_BFG_SHOOTABLE;
		break;

		case en_lcan_alien:						// Large Canister Alien - Out of can.
			new->temp1 = SPR_LCAN_ALIEN_W1;
			new->speed = ALIENSPEED;
			new->ammo = ALIENAMMOINIT;
			new->flags |= FL_PROJ_TRANSPARENT|FL_NO_SLIDE;
			new->flags2 = FL2_BFG_SHOOTABLE;
		break;

		case en_scan_alien:						// Small Canister Alien - Out of can.
			new->temp1 = SPR_SCAN_ALIEN_W1;
			new->speed = ALIENSPEED;
			new->ammo = ALIENAMMOINIT;
			new->flags |= FL_PROJ_TRANSPARENT;
			new->flags2 = FL2_BFG_SHOOTABLE;
		break;

		case en_gurney:							// Gurney Mutant - Off of gurney.
			new->temp1 = SPR_GURNEY_MUT_W1;
			new->speed = ALIENSPEED;
			new->flags |= FL_PROJ_TRANSPARENT|FL_NO_SLIDE;
			new->ammo = ALIENAMMOINIT;
			new->flags2 = FL2_BFG_SHOOTABLE;
		break;
	}

	CheckForSpecialTile(new,tilex,tiley);

	if (which < SPACER1_OBJ)
		new->hitpoints = starthitpoints[gamestate.difficulty][which];
}





//---------------------------------------------------------------------------
// T_OfsThink() - Think for general Offset Objects
//
// NOTE: This think is used for NON-SmartAnim objects
//---------------------------------------------------------------------------

short far grenade_shapes[] = {SPR_GRENADE_FLY3,SPR_GRENADE_FLY3,SPR_GRENADE_FLY2,
								  SPR_GRENADE_FLY1,SPR_GRENADE_FLY2,SPR_GRENADE_FLY2,
								  SPR_GRENADE_FLY3,SPR_GRENADE_FLY4,0};

void T_OfsThink(objtype *obj)
{
	char dx,dy,dist;
	char oldofs,ofs=0;

	switch (obj->obclass)
	{
		case plasma_detonator_reserveobj:
		break;

		case plasma_detonatorobj:
			if (obj->temp3 < tics)
			{
            BlastNearDoors(obj->tilex, obj->tiley);

	         obj->lighting = NO_SHADING;		// no shading
         	obj->flags &= ~FL_SHOOTABLE;
				obj->obclass = pd_explosionobj;
				A_DeathScream(obj);
				InitSmartSpeedAnim(obj,SPR_DETONATOR_EXP1,0,7,at_ONCE,ad_FWD,3+(US_RndT()&3));
            return;
         }
         else
				obj->temp3-=tics;

			if (obj->ammo >= tics)
				obj->ammo -= tics;
         else
         {
         	obj->ammo = DETONATOR_FLASH_RATE;
         	if (obj->temp1 == SPR_DOORBOMB)
            	obj->temp1 = SPR_ALT_DOORBOMB;
            else
            	obj->temp1 = SPR_DOORBOMB;
         }
      break;

		case grenadeobj:
		{
			T_Projectile(obj);

			// Check for range and update shape...

			if (obj->obclass == grenadeobj)
			{
				//
				// Has not exploded yet...
				//

				dx = obj->s_tilex - obj->tilex;
				dx = ABS(dx);
				dy = obj->s_tiley - obj->tiley;
				dy = ABS(dy);
				dist = dx>dy ? dx:dy;

				// Reached end of range?

				if (!(obj->temp1 = grenade_shapes[dist]))
				{
					obj->obclass = gr_explosionobj;
					InitSmartSpeedAnim(obj,SPR_GRENADE_EXPLODE1,0,4,at_ONCE,ad_FWD,3+(US_RndT()&3));
				}
			}

			if (obj->obclass != grenadeobj)
			{
				ExplodeRadius(obj,50+(US_RndT()&0x7f),false);
				A_DeathScream(obj);
			}
		}
		break;


		case bfg_shotobj:
		{
			T_Projectile(obj);

			if (obj->temp1 != SPR_BFG_WEAPON_SHOT3 && obj->obclass == bfg_shotobj)
			{
				//
				// Has not exploded yet...
				//

				dx = obj->s_tilex - obj->tilex;
				dx = ABS(dx);
				dy = obj->s_tiley - obj->tiley;
				dy = ABS(dy);
				dist = dx>dy ? dx:dy;

            obj->temp1 = SPR_BFG_WEAPON_SHOT2 + (dist>>2);
         }

			if (obj->obclass != bfg_shotobj)
			{
				ExplodeRadius(obj,50+(US_RndT()&0x7f),false);
				A_DeathScream(obj);
			}
		}
		break;


	case ventdripobj:
		// Decrement timer...
		//
			if (tics < obj->temp2)
			{
				obj->temp2 -= tics;
				break;
			}

		// Assign random delay and next shape.
		//
			obj->temp2 = 5+(US_RndT()%10);

			obj->temp1 -= obj->temp3;
			obj->temp3 = (obj->temp3 + 1) % 4;
			obj->temp1 += obj->temp3;
		break;

		case flickerlightobj:
			if (tics < obj->temp2)
			{
				obj->temp2 -= tics;
				break;
			}

			if ((obj->temp1 == SPR_DECO_ARC_1) || (US_RndT()&15))
			{
            // Becomes darker....

         	char t = (US_RndT()&1);

         	obj->lighting = LAMP_ON_SHADING+((t+3)<<2);
				obj->temp1 = SPR_DECO_ARC_2+t;
				obj->temp2 = 2+(US_RndT()%2);
			}
			else
			{
				obj->temp1 = SPR_DECO_ARC_1;
				obj->temp2 = (4+US_RndT()%10)*60;
            obj->lighting = LAMP_ON_SHADING;
			}
		break;

		case electrosphereobj:
			oldofs = obj->temp1 - SPR_ELECTRO_SPHERE_ROAM1;
			ofs = US_RndT()&3;
			if (ofs == oldofs)
         	ofs =	(ofs+1) & 3;
			obj->temp1 = SPR_ELECTRO_SPHERE_ROAM1+ofs;
		break;

		case podobj:
			if (obj->flags & FL_VISABLE)
				FirstSighting(obj);
		break;

		case podeggobj:
#if IN_DEVELOPMENT || TECH_SUPPORT_VERSION
			if (!((Keyboard[sc_6] || Keyboard[sc_7]) && Keyboard[sc_8] && DebugOk))
				if (!(obj->flags & FL_VISABLE))
					break;

#else
			if (!(obj->flags & FL_VISABLE))
				break;
#endif

			if (obj->temp2 == 0xff*60)
				break;

#if IN_DEVELOPMENT	|| TECH_SUPPORT_VERSION
			if ((Keyboard[sc_6] || Keyboard[sc_7]) && Keyboard[sc_8] && DebugOk)
				obj->temp2 = 0;
#endif

			if (obj->temp2 > tics)
			{
				obj->temp2 -= tics;
				break;
			}
			PlaySoundLocActor(PODHATCHSND,obj);
			InitSmartSpeedAnim(obj,SPR_POD_HATCH1,0,2,at_ONCE,ad_FWD,7);
		break;


		case morphing_spider_mutantobj:
		case morphing_reptilian_warriorobj:
		case morphing_mutanthuman2obj:
#if IN_DEVELOPMENT || TECH_SUPPORT_VERSION
			if (!((Keyboard[sc_6] || Keyboard[sc_7]) && Keyboard[sc_8] && DebugOk))
				if (!(obj->flags & FL_VISABLE))
					break;

#else
			if (!(obj->flags & FL_VISABLE))
				break;
#endif

#if IN_DEVELOPMENT || TECH_SUPPORT_VERSION
			if ((Keyboard[sc_6] || Keyboard[sc_7]) && Keyboard[sc_8] && DebugOk)
				obj->temp2 = 0;
#endif

			if (obj->temp2 > tics)
			{
				obj->temp2 -= tics;
				break;
			}
         obj->flags &= ~FL_SHOOTABLE;
			InitSmartSpeedAnim(obj,obj->temp1,0,8,at_ONCE,ad_FWD,2);
      break;


		case crate1obj:
		case crate2obj:
		case crate3obj:
		case lcan_wait_alienobj:		// These objs wait till they are destroyed
		case scan_wait_alienobj:		//   before doing anything.
			break;

		case gurney_waitobj:
			if (obj->flags & FL_VISABLE)
				SightPlayer(obj);
			break;

		case spider_mutantshotobj:
      case final_boss4shotobj:
		case acid_dragonshotobj:
			obj->temp1 = BossShotShapes[obj->obclass-spider_mutantshotobj]+(US_RndT()%3);
			T_Projectile(obj);
		break;

		default:
			T_Stand(obj);
			break;
	}
}

//---------------------------------------------------------------------------
// RandomSphereDir()
//---------------------------------------------------------------------------
int RandomSphereDir(enemy_t enemy)
{
	int dir;

	switch (enemy)
	{
		case en_vertsphere:
			dir = ((US_RndT()%2) * 4) + 2;
		break;

		case en_horzsphere:
			dir = (US_RndT()%2) * 4;
		break;

		case en_diagsphere:
			dir = ((US_RndT()%4) * 2) + 1;
		break;
	}

	return(dir);
}

//---------------------------------------------------------------------------
// SphereStartDir()
//---------------------------------------------------------------------------
void SphereStartDir(objtype *ob)
{
	char loop;

	actorat[ob->tilex][ob->tiley] = NULL;
	for (loop=0; loop<3; loop++)
	{
		ob->dir=RandomSphereDir(en_vertsphere+((ob->trydir-en_vertsphere+loop)%3));
		if (!TryWalk(ob,true))
		{
			ob->dir = opposite[ob->dir];
			if (!TryWalk(ob,true))
				ob->dir = nodir;
			else
				break;
		}
		else
			break;
	}
	actorat[ob->tilex][ob->tiley] = ob;
}

//---------------------------------------------------------------------------
// CheckForcedMove()
//---------------------------------------------------------------------------
void CheckForcedMove(objtype *ob)
{
	short olddir;

	olddir = ob->dir;
	ob->dir = RandomSphereDir(ob->trydir);
	if (!TryWalk(ob,false))
	{
		ob->dir = opposite[ob->dir];
		if (!TryWalk(ob,false))
			ob->dir = olddir;
	}
}

//---------------------------------------------------------------------------
// T_OfsBounce()
//---------------------------------------------------------------------------
void T_OfsBounce(objtype *ob)
{
	short oldtx,oldty;
	long move,dx,dy,dist;

// Should Electro-Sphere decrease player's health?
//

	dx = player->x - ob->x;
	dx = LABS(dx);
	dy = player->y - ob->y;
	dy = LABS(dy);
	dist = dx>dy ? dx : dy;

	if (dist < TILEGLOBAL)
	{
		PlaySoundLocActor(ELECARCDAMAGESND,ob);
		TakeDamage(4,ob);
   }


// Safety net - restart! Try to get a 'nodir' actor moving again.
//
	if (ob->dir == nodir)
	{
		SphereStartDir(ob);
		if (ob->dir == nodir)
			return;
	}

// Make actor bounce around the map!
//
	move = ob->speed*tics;

	while (move)
	{
	// Can actor move without reaching destination tile?
	//
		if (move < ob->distance)
		{
			MoveObj (ob,move);							// YES!
			break;
		}

	// Align actor on destination tile.
	//
		ob->x = ((long)ob->tilex<<TILESHIFT)+TILEGLOBAL/2;
		ob->y = ((long)ob->tiley<<TILESHIFT)+TILEGLOBAL/2;

	// Decrement move distance and reset distance to next tile.
	//
		move -= ob->distance;
		ob->distance = TILEGLOBAL;

	// Can actor continue moving in current direction?
	//
		oldtx=ob->tilex;
		oldty=ob->tiley;
		if (!TryWalk(ob,true))
		{
			boolean check_opposite=false;

		// Restore tilex/tiley
		//
			ob->tilex=oldtx;
			ob->tiley=oldty;

		// Direction change is based on current direction.
		//
			switch (ob->dir)
			{
				case northeast:
				case northwest:
				case southeast:
				case southwest:
					if (ob->trydir != en_diagsphere)
					{
						if (!MoveTrappedDiag(ob))
							SphereStartDir(ob);
						continue;
					}

					ob->dir = (ob->dir+2)%8;		// Try 90 degrees to the left
					if (TryWalk(ob,false))
						break;

					ob->dir = opposite[ob->dir];	// Try 90 degrees to the right
					if (TryWalk(ob,false))
						break;

					ob->dir = (ob->dir+2)%8;		// Back to original direction..
															// Must be in a corner...

					check_opposite = true;
				break;

				case north:
				case south:
					if (ob->trydir != en_vertsphere)
					{
						if (!MoveTrappedDiag(ob))
							SphereStartDir(ob);
						continue;
					}

					check_opposite = true;
				break;

				case east:
				case west:
					if (ob->trydir != en_horzsphere)
					{
						if (!MoveTrappedDiag(ob))
							SphereStartDir(ob);
						continue;
					}

					check_opposite = true;
				break;
			}

		// Check opposite direction?
		//
			if (check_opposite)
			{
				ob->dir = opposite[ob->dir];
				if (!TryWalk(ob,false))
					ob->dir = nodir;
			}

		// TryWalk  "true"  to set new destination tile.
		//
			if (!TryWalk(ob,true))
				ob->dir = nodir;
		}
		else
		{
			char orgx=ob->tilex,orgy=ob->tiley;

			ob->tilex=oldtx;
			ob->tiley=oldty;
			if (!MoveTrappedDiag(ob))
			{
				ob->tilex=orgx;
				ob->tiley=orgy;
			}
		}
	}
}

//---------------------------------------------------------------------------
// MoveTrappedDiag()
//---------------------------------------------------------------------------
boolean MoveTrappedDiag(objtype *ob)
{
// Don't mess with HORZs, VERTs, or normal DIAGs.
//
	if ((ob->trydir != en_diagsphere) ||
		 ((ob->dir>>1<<1) != ob->dir))
		return(false);

// When a DIAG gets to an open area, change it to diagonal movement!
//
	if (!CheckTrappedDiag(ob))
		return(true);

// DIAGs have a 50/50 chance of changing direction.
//
	if (US_RndT()&1)
		return(false);

// Try changing directions.
//
	if (ob->dir==north || ob->dir==south)
		ob->trydir = en_horzsphere;
	else
		ob->trydir = en_vertsphere;

	CheckForcedMove(ob);

	ob->trydir = en_diagsphere;

	return(TryWalk(ob,true));
}

//---------------------------------------------------------------------------
// CheckTrappedDiag()
//---------------------------------------------------------------------------
boolean CheckTrappedDiag(objtype *ob)
{
	dirtype orgdir=ob->dir;

	for (ob->dir=northeast; ob->dir<=southeast; ob->dir += 2)
		if (TryWalk(ob,false))
			break;

	if (ob->dir > southeast)
	{
		ob->dir = orgdir;
		return(true);
	}
	else
	{
		TryWalk(ob,true);
		return(false);
	}
}




//---------------------------------------------------------------------------
// FindObj() - This function will search the objlist for an object
//					of a given type at a given tilex & tiley coords.
//
// PARAMETERS:
//				which - objtype of actor to look for.
//				tilex - tile x coord of actor looking for (-1 == Dont care)
//				tiley - tile y coord of actor looking for (-1 == Dont care)
//
//---------------------------------------------------------------------------
objtype *FindObj(classtype which, short tilex, short tiley)
{
	objtype *obj;

	for (obj=player->next;obj;obj=obj->next)
   {
		if (obj->obclass == which)
      {
      	if (tilex != -1)
         	if (tilex != obj->tilex)
            	continue;

      	if (tiley != -1)
         	if (tiley != obj->tiley)
            	continue;

			return(obj);
      }
   }

	return(NULL);
}



//---------------------------------------------------------------------------
// SpawnHiddenOfs() - This function will spawn a given offset actor at a passed
//							 x & y coords and then move the actor to (0,0) for hidding
//
// PURPOSE: This function was created mainly for spawning reserve objects that
//				would later be simply moved from their (0,0) coords to a new
//          location.
//
// NOTE: When this actor is moved from it's (0,0) coords, you will need to
//       update the area number that this actor is standing in.
//
//---------------------------------------------------------------------------
void SpawnHiddenOfs(enemy_t which, int tilex, int tiley)
{
	nevermark	= true;
	SpawnOffsetObj(which, tilex, tiley);			// Spawn a reserve
	nevermark   = false;
	new->tilex = 0;
	new->tiley = 0;
	new->x = TILEGLOBAL/2;
	new->y = TILEGLOBAL/2;
}


//---------------------------------------------------------------------------
// FindHiddenOfs() - This function will find a hidden ofs actor which was
//							hidden using SpawnHiddenOfs() and will return a pointer
//							to the actor in the objlist.
//
// NOTE: When this actor is moved from it's (0,0) coords, you will need to
//       update the area number that this actor is standing in or use
//       MoveHiddenOfs().
//---------------------------------------------------------------------------
objtype *FindHiddenOfs(classtype which)
{
	objtype *obj;

   if (!(obj = FindObj(which, -1, -1)))
   	ACT2_ERROR(CANT_FIND_HIDDEN_OBJ);

	return(obj);
}


//---------------------------------------------------------------------------
// MoveHiddenOfs() - This function will find a hidden ofs actor which was
//							hidden using SpawnHiddenOfs() and will move the actor
//							to a new passed coords and change the actors class.
//
// RETURNS: Success = Ptr to the object that was moved.
//          Failure = NULL.
//
// NOTE: This function updates the actors 'areanumber' to the newly changed
//       coords.
//---------------------------------------------------------------------------
objtype *MoveHiddenOfs(classtype which_class, classtype new_class, fixed x, fixed y)
{
	objtype *obj;

#pragma warn -pia
	if (obj=FindHiddenOfs(which_class))
#pragma warn +pia
	{
		obj->obclass = new_class;
		obj->x = x;
		obj->y = y;
		obj->tilex = x>>TILESHIFT;
		obj->tiley = y>>TILESHIFT;
		obj->areanumber=GetAreaNumber(obj->tilex, obj->tiley);

		return(obj);
	}

   return(NULL);
}



//===========================================================================
//
//						SMART_ANIM ANIMATION ROUTINES
//
//
// * NOTES: OffsetObjects require the use of TEMP1 of the object structure!
//
// * NOTES: THINK function AnimateOfsObj() requires the use of TEMP3 of the
//				object structure!
//
//===========================================================================


//---------------------------------------------------------------------------
// InitSmartAnim() - Sets up an object for a SmartAnimation
//
// PARAMETERS: Obj  		- Ptr to object structure
//             ShapeNum - First shape number in anim
//					StartOfs - Starting offset in the animation to start with.
//					MaxOfs	- Ending offset in the animation.
//					AnimType - Type of animation (at_CYCLE,at_ONCE,or at_REBOUND)
//					AnimDir	- Direction of animation to start (ad_FWD, or ad_REV)
//
// ** This function should ALWAY be used to init/start SmartAnimations! **
//
// NOTE : It is the programmers responsiblity to watch bit field ranges on
//			 the passed parameters.
//
// NOTES: THINK function AnimateOfsObj() requires the use of TEMP3 of the
//		    object structure!
//
//---------------------------------------------------------------------------

void InitSmartAnimStruct(objtype *obj, unsigned ShapeNum, unsigned char StartOfs, unsigned char MaxOfs, animtype_t AnimType, animdir_t AnimDir)
{
	ofs_anim_t AnimStruct;

	AnimStruct.curframe = StartOfs;
	AnimStruct.maxframe = MaxOfs;
	AnimStruct.animtype = AnimType;
	AnimStruct.animdir = AnimDir;

	obj->temp1 = ShapeNum + AnimStruct.curframe;

	*(ofs_anim_t *)&obj->temp3 = AnimStruct;
}

void InitAnim(objtype *obj, unsigned ShapeNum, unsigned char StartOfs, unsigned char MaxOfs, animtype_t AnimType, animdir_t AnimDir, unsigned Delay, unsigned WaitDelay)
{
	InitSmartAnimStruct(obj,ShapeNum,StartOfs,MaxOfs,AnimType,AnimDir);
	obj->s_tilex = WaitDelay;
	obj->s_tiley = Delay;
	NewState(obj,&s_ofs_smart_anim);
}

//
// "s_ofs_smart_anim" - The following structure is designed for "Smart
//								Animations."
//
// OVERVIEW:  	This structure will allow the flexiblity to perform ANY type
//						of animation, custom, etc. using one single structure.
//						All of the animations are using "Offset" techniques, where
//					   the current shapenumber of the object is in TEMP1 of the
//						object structure,  Code is then written to handle changing
//						the shapenumber of each object individually.
//
// FUNCTIONS:  T_SmartThink() - Is a think that is call continusly and is
//						special coded for an object/actor.
//
//					T_SmartThought() - Is called only once allowing for other
//						special codeing, (Ex. the spawning of another animation at
//						anypoint in the current	animation, death screams, sounds,etc)
//
// * NOTES:	The T_SmartThink could be modified to handle generic animations
//          like cycle, once, rebound, etc. using flags in the object struct.
//
//

//statetype s_ofs_smart_anim	= {false,0, 1, NULL,T_SmartThought,&s_ofs_smart_anim};
//statetype s_ofs_smart_anim2	= {false,0, 5, NULL,T_SmartThought,&s_ofs_smart_anim2};

statetype s_ofs_smart_anim	   = {false, 0, 1, T_SmartThought, NULL, &s_ofs_smart_anim};
statetype s_ofs_smart_anim2	= {false, 0, 1, T_SmartThought, NULL, &s_ofs_smart_anim2};

//
// Functions
//

//---------------------------------------------
// T_SmartThought() - A think for ofset objects
//							 that is called ONLY ONCE
//							 per state change.
//---------------------------------------------
void T_SmartThought(objtype *obj)
{
	long dx,dy;

	switch (obj->obclass)
	{
			case green_oozeobj:
			case black_oozeobj:
			case green2_oozeobj:
			case black2_oozeobj:
			{
				if (((US_RndT()&7) == 7) && ((ofs_anim_t *)&obj->temp3)->curframe == 2 && obj->tilex == player->tilex && obj->tiley == player->tiley)
					TakeDamage(4,obj);
			}
			break;

			case arc_barrierobj:
            if (BARRIER_STATE(obj) == bt_DISABLED)
            	return;

				if (US_RndT() < 0x10)
				{
					dx = player->x - obj->x;
					dx = LABS(dx);
					dy = player->y - obj->y;
					dy = LABS(dy);

					if (dy <= 0x16000 && dx <= 0x16000)
					{
						PlaySoundLocActor(ELECARCDAMAGESND,obj);
						TakeDamage(4,obj);
					}
				}

			case post_barrierobj:
				//
				// Check for Turn offs
				//
				if ((unsigned)obj->temp2 != 0xffff)
					if (!gamestate.barrier_table[obj->temp2].on)
						ToggleBarrier(obj);
			break;

			case volatiletransportobj:
			case floatingbombobj:
         	if (obj->lighting)
            {
               // Slowly inc back to

					obj->lighting += ANIM_INFO(obj)->curframe;
               if (obj->lighting>0)
                  obj->lighting = 0;
            }
			break;

	}

	if (ANIM_INFO(obj)->animtype)
	{
		if (AnimateOfsObj(obj))
		{
			switch (obj->obclass)
			{
				case morphing_spider_mutantobj:
				case morphing_reptilian_warriorobj:
				case morphing_mutanthuman2obj:
					dx = obj->obclass - morphing_spider_mutantobj;
					obj->temp1 = MorphEndShapes[dx];
					PlaySoundLocActor(MorphSounds[dx],obj);
					obj->obclass = MorphClass[dx];
					obj->hitpoints = starthitpoints[gamestate.difficulty][MorphClass[dx]-rentacopobj];
					obj->flags &= ~FL_FAKE_STATIC;
					obj->flags |= FL_PROJ_TRANSPARENT|FL_SHOOTABLE;
					NewState (obj,&s_ofs_chase1);
         	break;

				case podeggobj:
					obj->flags |= FL_SHOOTABLE;
					obj->obclass = podobj;
					obj->temp1 = SPR_POD_WALK1;
					NewState(obj,&s_ofs_chase1);
					obj->hitpoints = starthitpoints[gamestate.difficulty][en_pod];
				break;

           	case rotating_cubeobj:
				   DISPLAY_TIMED_MSG(pd_floorunlocked, MP_FLOOR_UNLOCKED,MT_GENERAL);
               SD_PlaySound(ROLL_SCORESND);
               obj->lighting = 0;
            break;

				case inertobj:
				case fixup_inertobj:
				case scan_wait_alienobj:
				case lcan_wait_alienobj:
				case gurney_waitobj:
				break;

				case gold_morphobj:
             	//
             	// Game completed!
             	//
               playstate = ex_victorious;
					obj->state = NULL;				// Mark to be removed.
            break;


				case volatiletransportobj:
				case floatingbombobj:
					NewState(obj,&s_scout_dead);
					obj->lighting = 0;
				return;

				default:
					obj->state = NULL;				// Mark to be removed.
				break;
			}
		}


		if (ANIM_INFO(obj)->curframe == 3)
		{
			switch (obj->obclass)
			{
				case doorexplodeobj:
            	  if (!obj->temp2)
                 {
                 		int	avail,total,i;

                     // Make sure that there are at least DR_MIN_STATICS

                     avail = MAXSTATS;
							total = laststatobj-&statobjlist[0];
							for (i=0;i<total;i++)
								if (statobjlist[i].shapenum != -1)
									avail--;

							if ((avail > DR_MIN_STATICS) && (US_RndT() & 1))
						  		SpawnStatic(obj->tilex, obj->tiley, DOOR_RUBBLE_STATNUM);
                 }
            break;

         	case explosionobj:
            	  if (!obj->temp2)
                 {
						  ExplodeRadius(obj, 20, true);
   	              MakeAlertNoise(obj);
                    obj->temp2 = 1;
                 }
            break;

            case pd_explosionobj:
            	  if (!obj->temp2)
                 {
						  ExplodeRadius(obj, PLASMA_DETONATOR_DAMAGE, true);
   	              MakeAlertNoise(obj);
                    obj->temp2 = 1;
                 }

         	case bfg_explosionobj:
            	  if (!obj->temp2)
                 {
						  ExplodeRadius(obj, BFG_DAMAGE, true);
   	              MakeAlertNoise(obj);
                    obj->temp2 = 1;
                 }
            break;


				case gurney_waitobj:
#ifdef OBJ_RESERV
#if IN_DEVELOPMENT
					if (((unsigned)obj->temp2 < (unsigned)objlist) || ((unsigned)obj->temp2 > (unsigned)&objlist[MAXACTORS]))
						Quit("Gurney->temp2 out of range!");
#endif
					if (obj->temp2)
						RemoveObj((objtype *)obj->temp2);
#endif
					SpawnOffsetObj(en_gurney,obj->tilex,obj->tiley);
					NewState(obj,&s_ofs_static);
//					obj->obclass = fixup_inertobj;
					break;

				case scan_wait_alienobj:
#ifdef OBJ_RESERV
#if IN_DEVELOPMENT
					if (((unsigned)obj->temp2 < (unsigned)objlist) || ((unsigned)obj->temp2 >= (unsigned)&objlist[MAXACTORS]))
						Quit("Scan->temp2 out of range!");
#endif
					if (obj->temp2)
						RemoveObj((objtype *)obj->temp2);
#endif

					SpawnOffsetObj(en_scan_alien,obj->tilex,obj->tiley);
					NewState(obj,&s_ofs_static);
//					obj->obclass = fixup_inertobj;
					break;

				case lcan_wait_alienobj:
#ifdef OBJ_RESERV
#if IN_DEVELOPMENT
					if (((unsigned)obj->temp2 < (unsigned)objlist) || ((unsigned)obj->temp2 >= (unsigned)&objlist[MAXACTORS]))
						Quit("Scan->temp2 out of range!");
#endif
					if (obj->temp2)
						RemoveObj((objtype *)obj->temp2);
#endif
					SpawnOffsetObj(en_lcan_alien,obj->tilex,obj->tiley);
					NewState(obj,&s_ofs_static);
//					obj->obclass = fixup_inertobj;
					break;
			}
		}

		if (ANIM_INFO(obj)->curframe == 2)
		{
			switch (obj->obclass)
			{
				case volatiletransportobj:
            	if (!(obj->flags & FL_INTERROGATED))
               {
						if (US_RndT() < 0x7f)
      	         {
	      	         usedummy = true;
   	      	      SpawnOffsetObj (en_green_ooze, obj->tilex, obj->tiley);
      	      	   new->x = obj->x+(US_RndT()<<7);
         	      	new->y = obj->y+(US_RndT()<<7);
	                  new->tilex = new->x>>TILESHIFT;
							new->tiley = new->y>>TILESHIFT;
							usedummy = false;
						}
					}

				case floatingbombobj:
            	if (!(obj->flags & FL_INTERROGATED))
               {
						T_ExplodeDamage(obj);
						obj->flags |= FL_INTERROGATED;
               }
				break;
			}
		}
	}
}

//------------------------------------------------------------------
// AnimateOfsObj() - Animation routine for OffsetObjects.
//
// IMPORTANT NOTE: This does NOT work on the same principle as the old
// """"""""""""""  AnimateObj() function!
//
//
// obj->TEMP1 				- Holds the current shape number.
//
// obj->TEMP3.maxframe  - Frames in anim. (0 == 1 Frame, 1 == 2 Frames, etc))
//
// obj->TEMP3.curframe  - Holds the the shape offset which TEMP1 is off from
//								  the 1st shape in the anim. ALWAYS POSITIVE NUMBER!
//								  REVerse animations have the "curframe" on the last
//								  offset and TEMP1-CURFRAME should equ the first frame
//								  and MAXFRAME should equ the offset for the first
//								  frame.
//
// obj->TEMP3.animdir   - Determines the direction of the animation.
//
//
// obj->S_TILEX 			- Current number of tics remaining before advancing
//								  to next frame.
//
// obj->S_TILEY			- Delay Tic value per frame - This value is copied
//								  into  S_TILEX upon reaching the end of a frame.
//
// 	IF you want to do a reverse animation then you would need to init
// TEMP1 to the shape number of the LAST Shape, "curframe" to the	offset
//	value from the FIRST FRAME in anim and set "animdir" to at_REV.
//
// * NOTES: This is an OffsetObject which requires the use of TEMP1 of the
//				object structure!
//
// * NOTES: The use of a SmartAnim requires the use of TEMP3 of the object
//				structure!!! Therefore, Any other THINKS (like LookForGoodies)
//				CAN NOT be used while this routine is being called also.
//
// * NOTES: ALL SmartAnimations have the SAME animation delay rates!	Sorry!
//
// * NOTES: The SmartAnimations use S_TILEX & S_TILEY for animation delay
//				values - All SMART actors can not be used if they are using
//				a "smart" think!
//
//------------------------------------------------------------------
boolean AnimateOfsObj(objtype *obj)
{
	boolean Done= false;

#if 0 	// Anim existance test moved to the calling function.

	if (ANIM_INFO(obj)->animtype == at_NONE)		// Animation finished?
		return(true);										// YEP!

#endif


	if (obj->s_tilex)					// Check animation delay.
	{
		if (obj->s_tilex < tics)
			obj->s_tilex = 0;
		else
			obj->s_tilex -= tics;
		return(false);
	}

	switch (ANIM_INFO(obj)->animtype)				// Animate this puppy!
	{
		case at_ONCE:
		case at_CYCLE:
			switch (ANIM_INFO(obj)->animdir)
			{
				case ad_FWD:
					if (ANIM_INFO(obj)->curframe < ANIM_INFO(obj)->maxframe)
						AdvanceAnimFWD(obj);
					else
						if (ANIM_INFO(obj)->animtype == at_CYCLE)
						{
							// Pull shape number back to start...

							obj->temp1-= ANIM_INFO(obj)->curframe;

							// Reset Cycle Animation

							ANIM_INFO(obj)->curframe = 0;

							obj->s_tilex=obj->s_tiley;
						}
						else
						{
							// Terminate ONCE Anim type

							ANIM_INFO(obj)->animtype = at_NONE;
							Done = true;
						}
					break;

#if 0

				case ad_REV:
					if (ANIM_INFO(obj)->curframe > 0)
						AdvanceAnimREV(obj);
					else
						if (ANIM_INFO(obj)->animtype == at_CYCLE)
						{
							// Pull shape number up to start...

							obj->temp1 += ANIM_INFO(obj)->maxframe;

							// Reset REV cycle animation

							ANIM_INFO(obj)->curframe = ANIM_INFO(obj)->maxframe;
							ANIM_INFO(obj)->animdelay = obj->s_tiley;
						}
						else
						{
							// Stop this puppy!

							ANIM_INFO(obj)->animtype = at_NONE;
							Done = true;
						}
					break; // REV

#endif

			}
			break;


#if 0

		case at_REBOUND:
			switch (ANIM_INFO(obj)->animdir)
			{
				case ad_FWD:
					if (ANIM_INFO(obj)->curframe < ANIM_INFO(obj)->maxframe)
						AdvanceAnimFWD(obj);
					else
					{
						ANIM_INFO(obj)->animdir = ad_REV;
//						ANIM_INFO(obj)->animdelay = 1;
					}
					break;

				case ad_REV:
					if (ANIM_INFO(obj)->curframe > 0)
						AdvanceAnimREV(obj);
					else
					{
						ANIM_INFO(obj)->animdir = ad_FWD;
//						ANIM_INFO(obj)->animdelay = 1;
						Done = true;
					}
					break;
			}
			break; /* REBOUND */

#endif


	}

	return(Done);
}


//--------------------------------
// AdvanceAnimFWD()
//--------------------------------
void AdvanceAnimFWD(objtype *obj)
{
	ANIM_INFO(obj)->curframe++; 		 // INC frames

	obj->temp1++;
	obj->s_tilex = obj->s_tiley;
}


#if 0

//--------------------------------
// AdvanceAnimREV()
//--------------------------------
void AdvanceAnimREV(objtype *obj)
{
	ANIM_INFO(obj)->curframe--; 		 // Dec frames
	obj->temp1--;

//	ANIM_INFO(obj)->animdelay = ANIM_INFO(obj)->maxdelay;
}

#endif



//==========================================================================
//
//								WALL SWITCH ACTIVATION
//
//==========================================================================

//--------------------------------------------------------------------------
// ActivateWallSwitch() - Updates the Map, Actors, and Tables for wall switchs
//--------------------------------------------------------------------------
void ActivateWallSwitch(unsigned iconnum, short x, short y)
{
	#define UPDATE_OTHER_SWITCHES			1

	unsigned states[] = {OFF_SWITCH,ON_SWITCH};
	unsigned	mapx,mapy,newwall;
	unsigned icon,num;
   unsigned char *tile;
   unsigned *actor;
   barrier_type *barrier;


	if ((iconnum & 0xFF00) == 0xF800)
   {

		//
      // Update tile map & Display switch'd message
      //
      num = iconnum & 0xff;


      barrier = &gamestate.barrier_table[num];
      barrier->on ^= 1;
      newwall = tilemap[x][y] = states[barrier->on];

      DisplaySwitchOperateMsg(num);
      PlaySoundLocActor(SWITCHSND,player);

#if UPDATE_OTHER_SWITCHES

		tile = (unsigned char *)tilemap;
      actor = (unsigned *)actorat;

		for (mapx=0;mapx<MAPSIZE;mapx++)
			for (mapy=0;mapy<MAPSIZE;mapy++)
			{
      		if (*tile == OFF_SWITCH || *tile == ON_SWITCH)
            {
            	icon = *(mapsegs[1]+farmapylookup[mapy]+mapx);

            	if (icon == iconnum)
               {
               	*tile = newwall;
                  *actor = newwall;
               }
            }

            tile++;
            actor++;
      	}
#endif

   }
   else
   {
		DISPLAY_TIMED_MSG(SwitchNotActivateMsg,MP_WALLSWITCH_OPERATE,MT_GENERAL);
      SD_PlaySound(NOWAYSND);
   }
}

//--------------------------------------------------------------------------
// DisplaySwitchOperateMsg() - Displays the Operating Barrier Switch message
//										 for a particular level across the InfoArea.
//--------------------------------------------------------------------------
char OnSwitchMessage[] =  "\r\r  ACTIVATING BARRIER";

char OffSwitchMessage[] = "\r\r DEACTIVATING BARRIER";


void DisplaySwitchOperateMsg(unsigned coords)
{
   barrier_type *Barrier;

	Barrier = &gamestate.barrier_table[coords];

  	if (Barrier->on)
   {
		DISPLAY_TIMED_MSG(OnSwitchMessage,MP_WALLSWITCH_OPERATE,MT_GENERAL);
   }
	else
   {
		DISPLAY_TIMED_MSG(OffSwitchMessage,MP_WALLSWITCH_OPERATE,MT_GENERAL);
   }
}


//--------------------------------------------------------------------------
// UpdateBarrierTable(x,y,level) - Finds/Inserts arc entry in arc list
//
// RETURNS: Offset into barrier_table[] for a particular arc
//
//--------------------------------------------------------------------------
unsigned UpdateBarrierTable(unsigned char x, unsigned char y, boolean OnOff)
{
   barrier_type *Barrier;
   short num;

	//
   // Scan Table...
   //

  	Barrier = gamestate.barrier_table;

   for (num = 0;num < MAX_BARRIER_SWITCHES;num++,Barrier++)
   {
   	if (Barrier->coord.tilex == x && Barrier->coord.tiley == y)
      {
         return(num);
      }
      else
   	if (Barrier->on == 0xff)				// Empty?
      {
      	// We have hit end of list - Add

  	      Barrier->coord.tilex = x;
     	   Barrier->coord.tiley = y;
         Barrier->on = OnOff;
         return(num);
      }
   }

  	AGENT_ERROR(SWITCH_TABLE_OVERFLOW);
	return(0);
}



//--------------------------------------------------------------------------
// ScanBarrierTable(x,y) - Scans a switch table for a arc in this level
//
// RETURNS :
//	   0xFFFF    - Not found in table
//		barrier   - barrier_table of the barrier for [num]
//
//--------------------------------------------------------------------------
unsigned ScanBarrierTable(unsigned char x, unsigned char y)
{
   barrier_type *Barrier;
   unsigned num;

   Barrier = gamestate.barrier_table;

   for (num=0;num<MAX_BARRIER_SWITCHES;num++,Barrier++)
   {
      if (Barrier->coord.tilex == x && Barrier->coord.tiley == y)
      {
      	// Found switch...

         return(num);
		}
	}

	return(0xffff);		// Mark as EMPTY
}


//--------------------------------------------------------------------------
// Checks to see if the Barrier obj is free
//--------------------------------------------------------------------------
boolean CheckActor(objtype *actor,unsigned code)
{
		if ((unsigned)actor->temp2 == 0xffff)		// Is this actor free?
		{
      	//
         // Connect actor to barrier switch (code is index into barrier table)
         //

			actor->temp2 = code;		// This actor is NO longer a cycle actor.
			return(true);
		}

	return(false);
}


//--------------------------------------------------------------------------
// CheckAndConnect() -
//--------------------------------------------------------------------------
int CheckAndConnect(char x,char y, unsigned code)
{
	objtype *ob;
	char offsets[] = {-1,0,1,0};
	short loop;

	ob = objlist;

	do
	{
		switch (ob->obclass)
		{
			case arc_barrierobj:
			case post_barrierobj:
			case vpost_barrierobj:
			case vspike_barrierobj:
			{
				for (loop = 0;loop<4;loop++)
				{
					if ((ob->tilex == x+offsets[loop]) && (ob->tiley == y+offsets[3-loop]))
					{
		         	bars_connected++;

						if (CheckActor(ob,code))
						   CheckAndConnect(x+offsets[loop],y+offsets[3-loop],code);
					}
				}
			}
			break;
		}
#pragma warn -pia
	} while (ob = ob->next);
#pragma warn +pia

	return(bars_connected);
}

//--------------------------------------------------------------------------
// ConnectBarriers() - Scans the object list and finds the single barrier
//                     that is connected by switch and checks to see if
//							  there are any surrounding barriers that need to be
//							  connected also.
//--------------------------------------------------------------------------
void ConnectBarriers(void)
{
   barrier_type *Barrier;
	unsigned num;

   Barrier = gamestate.barrier_table;

   for (num=0;num<MAX_BARRIER_SWITCHES;num++,Barrier++)
   {
      if (Barrier->on != 0xff)
      {
		   bars_connected = 0;

			if (!CheckAndConnect(Barrier->coord.tilex, Barrier->coord.tiley, num))
         	AGENT_ERROR(BARRIER_SWITCH_NOT_CONNECTED);
      }
   }
}



/*
=============================================================================

									BARRIERS

=============================================================================
*/


extern statetype s_barrier_transition;
void T_BarrierTransition(objtype *obj);
void T_BarrierShutdown(objtype *obj);

statetype s_barrier_transition	= {0,0,15,T_BarrierTransition,NULL,&s_barrier_transition};
statetype s_vpost_barrier			= {0,SPR_VPOST1,15,T_BarrierTransition,NULL,&s_vpost_barrier};
statetype s_spike_barrier			= {0,SPR_VSPIKE1,15,T_BarrierTransition,NULL,&s_spike_barrier};
statetype s_barrier_shutdown		= {0,0,15,T_BarrierShutdown,NULL,&s_barrier_shutdown};


//---------------------------------------------------------------------------
// SpawnBarrier()
//---------------------------------------------------------------------------
void SpawnBarrier (enemy_t which, int tilex, int tiley,boolean OnOff)
{
	enemy_t dir_which;

   nevermark = !OnOff;
	SpawnNewObj (tilex,tiley,&s_ofs_stand);
   nevermark = false;

   if (OnOff)
		new->flags = FL_OFFSET_STATES|FL_BARRIER|FL_FAKE_STATIC|FL_SOLID;
   else
		new->flags = FL_OFFSET_STATES|FL_BARRIER;

	new->obclass = rentacopobj+which;
	new->ammo = OnOff;
	new->temp2 = ScanBarrierTable(tilex,tiley);
	new->flags2 = FL2_BFGSHOT_SOLID;

	switch (which)
	{
		case en_arc_barrier:
			new->flags2 |= FL2_BFG_SHOOTABLE;
      	if (OnOff)
         {
				InitSmartSpeedAnim(new,SPR_ELEC_ARC1,US_RndT()%3,2,at_CYCLE,ad_FWD,3+(US_RndT()&3));
      	   new->lighting = LAMP_ON_SHADING;
//         	new->flags |= FL_SHOOTABLE;
         }
         else
         {
				NewState(new,&s_barrier_transition);
				new->temp3 = 0;
				new->flags &= ~(FL_SOLID|FL_FAKE_STATIC);
				new->flags |= (FL_NEVERMARK|FL_NONMARK);
			   new->lighting = 0;
		   	BARRIER_STATE(new) = bt_OFF;
				new->temp1 = SPR_ELEC_ARC4;
         }
		break;


		case en_post_barrier:
      	if (OnOff)
         {
				InitSmartSpeedAnim(new,SPR_ELEC_POST1,US_RndT()%3,2,at_CYCLE,ad_FWD,3+(US_RndT()&3));
   	      new->lighting = LAMP_ON_SHADING;
         }
         else
         {
				NewState(new,&s_barrier_transition);
				new->temp3 = 0;
				new->flags &= ~(FL_SOLID|FL_FAKE_STATIC);
				new->flags |= (FL_NEVERMARK|FL_NONMARK);
			   new->lighting = 0;
		   	BARRIER_STATE(new) = bt_OFF;
				new->temp1 = SPR_ELEC_POST4;
         }
		break;


		case en_vpost_barrier:
      	NewState(new,&s_vpost_barrier);
         if (OnOff)
				new->temp1 = SPR_VPOST8-SPR_VPOST1;
		break;


		case en_vspike_barrier:
      	NewState(new,&s_spike_barrier);
         if (OnOff)
				new->temp1 = SPR_VSPIKE8-SPR_VSPIKE1;
		break;
	}

}

//---------------------------------------------------------------------------
// ToggleBarrier()
//
// OBJECT STATES:
//
// bt_ON 			 	-> bt_TURNING_OFF and think is changed to T_BarrierTrans
//
//---------------------------------------------------------------------------

void TurnPostOff(objtype *obj)
{
	NewState(obj,&s_barrier_transition);
	obj->temp3 = 0;
	obj->flags &= ~(FL_SOLID|FL_FAKE_STATIC);
	obj->flags |= (FL_NEVERMARK|FL_NONMARK);
   obj->lighting = 0;
   BARRIER_STATE(obj) = bt_OFF;

}


void TurnPostOn(objtype *obj)
{
	obj->flags |= (FL_SOLID|FL_FAKE_STATIC);
	obj->flags &= ~(FL_NEVERMARK|FL_NONMARK);
   obj->lighting = LAMP_ON_SHADING;
   BARRIER_STATE(obj) = bt_ON;
}


void ToggleBarrier(objtype *obj)
{
	switch (BARRIER_STATE(obj))
	{
		case bt_ON:				// Same as closed
      case bt_CLOSING:
			//
			// Turn OFF/Open
			//

         switch (obj->obclass)
         {
         	case post_barrierobj:
					obj->temp1 = SPR_ELEC_POST4;
               TurnPostOff(obj);
            break;

            case arc_barrierobj:
					obj->temp1 = SPR_ELEC_ARC4;
               TurnPostOff(obj);
            break;

            case vpost_barrierobj:
            case vspike_barrierobj:
            	BARRIER_STATE(obj) = bt_OPENING;
            break;
         }

		break;

		case bt_OFF:			// Same as open
      case bt_OPENING:
			//
			// Turn ON/Closed
			//

			switch (obj->obclass)
         {
         	case post_barrierobj:
					InitSmartSpeedAnim(obj,SPR_ELEC_POST1,US_RndT()%3,2,at_CYCLE,ad_FWD,3+(US_RndT()&3));
               TurnPostOn(obj);
            break;

            case arc_barrierobj:
					InitSmartSpeedAnim(obj,SPR_ELEC_ARC1,US_RndT()%3,2,at_CYCLE,ad_FWD,3+(US_RndT()&3));
               TurnPostOn(obj);
            break;

            case vpost_barrierobj:
            case vspike_barrierobj:
            	BARRIER_STATE(obj) = bt_CLOSING;
            break;
         }
		break;
   }
}




//---------------------------------------------------------------------------
// T_BarrierShutdown() - This is used ONLY for electric arc barriers
//								 which "flicker" out when disabled/destroyed.
//
//---------------------------------------------------------------------------
void T_BarrierShutdown(objtype *obj)
{
	switch (BARRIER_STATE(obj))
	{
		case bt_DISABLING:
      	if (obj->hitpoints)
         {
         	if (obj->temp2 < tics)
            {
	            if (obj->temp1 == SPR_ELEC_ARC4)
   	         {
						obj->temp1 = SPR_ELEC_ARC1+obj->temp3;
						obj->temp3 = (obj->temp3+1) % 4;

                  PlaySoundLocActor(ELECARCDAMAGESND,obj);
						obj->flags |= (FL_SOLID|FL_FAKE_STATIC);
						obj->flags &= ~(FL_NEVERMARK|FL_NONMARK);
	         		obj->lighting = LAMP_ON_SHADING;
	               obj->temp2 = US_RndT()&0x7;
   	         }
      	      else
         	   {
						obj->temp1 = SPR_ELEC_ARC4;
						obj->flags &= ~(FL_SOLID|FL_FAKE_STATIC);
						obj->flags |= (FL_NEVERMARK|FL_NONMARK);
	      	   	obj->lighting = 0;
	               obj->temp2 = 5+US_RndT()&0xf;
            	}

               obj->hitpoints--;
            }
            else
            	obj->temp2 -= tics;
         }
         else
         {
         	BARRIER_STATE(obj) = bt_DISABLED;
         }
		break;

      case bt_DISABLED:
			obj->flags |= (FL_NEVERMARK|FL_NONMARK);
//			obj->flags &= ~(FL_SOLID); //|FL_FAKE_STATIC);
			obj->flags &= ~(FL_SOLID|FL_FAKE_STATIC);
      	obj->lighting = 0;
			if (obj->obclass == post_barrierobj)
				obj->temp1 = SPR_ELEC_POST4;
			else
				obj->temp1 = SPR_ELEC_ARC4;
			obj->temp3 = 0;
			NewState(obj,&s_ofs_smart_anim);
      break;

   }
}

//---------------------------------------------------------------------------
// T_BarrierTransition() -
//
//---------------------------------------------------------------------------
void T_BarrierTransition(objtype *obj)
{
	fixed dx,dy;

	switch (BARRIER_STATE(obj))
   {
   	//
      // ON/CLOSED POSITION
      //
		case bt_ON:
         //
         // Check for cycle barrier.
         //
			if ((unsigned)obj->temp2 == 0xFFFF)
         {
         	if (obj->temp3 < tics)
            	ToggleBarrier(obj);
            else
            	obj->temp3-=tics;
         }
         else
			if (!gamestate.barrier_table[obj->temp2].on)
        	  	ToggleBarrier(obj);
		break;


      //
      // OFF/OPEN POSITION
      //
   	case bt_OFF:
         //
         // Check for cycle barrier.
         //
			if ((unsigned)obj->temp2 == 0xFFFF)
         {
         	if (obj->temp3 < tics)
            	ToggleBarrier(obj);
            else
            	obj->temp3-=tics;
         }
         else
			if (gamestate.barrier_table[obj->temp2].on)
           	ToggleBarrier(obj);
      break;


      //
      // CLOSING/TURNING ON
      //
      case bt_CLOSING:
			// Check for damaging the player

        	dx = player->x - obj->x;
			dx = LABS(dx);
			dy = player->y - obj->y;
			dy = LABS(dy);

			if (dy <= 0x17FFF && dx <= 0x17FFF)
         {
				if (dy <= 0x7FFF && dx <= 0x7FFF)
					TakeDamage(2,obj);
				break;
         }

         if (obj->temp3 < tics)
         {
         	obj->temp3 = VPOST_BARRIER_SPEED;
            obj->temp1++;

            if (obj->temp1 > 7)
            	obj->temp1 = 7;			// Errors...

            switch (obj->temp1)
            {
            	case 3:
               	// Closed enough to be solid
                  //

						obj->flags |= (FL_SOLID|FL_FAKE_STATIC);
						obj->flags &= ~(FL_NEVERMARK|FL_NONMARK);
               break;

               case 7:
	            	// Fully closed dude!
                  //

   	            BARRIER_STATE(obj) = bt_ON;
                  //
                  // Check for cycle barrier.
                  //
                  if ((unsigned)obj->temp2 == 0xFFFF)
                  {
                  	obj->temp3 = VPOST_WAIT_DELAY;
                  }
               break;
            }
         }
			else
         	obj->temp3 -= tics;

      	// Check to see if to was toggled

         if ((unsigned)obj->temp2 != 0xFFFF)
				if (!gamestate.barrier_table[obj->temp2].on)
   	        	ToggleBarrier(obj);
      break;


      //
      // OPENING/TURNNING OFF
      //
      case bt_OPENING:
         if (obj->temp3 < tics)
         {
         	obj->temp3 = VPOST_BARRIER_SPEED;
            obj->temp1--;

            if (obj->temp1 < 0)
            	obj->temp1 = 0;			// Errors...


            switch (obj->temp1)
            {
            	case 2:
               	//
                  // Open enough not to be solid.

						obj->flags &= ~(FL_SOLID|FL_FAKE_STATIC);
						obj->flags |= (FL_NEVERMARK|FL_NONMARK);
               break;

               case 0:
	            	// Fully Open dude!
                  //

   	            BARRIER_STATE(obj) = bt_OFF;

                  //
                  // Check for cycle barrier.
                  //
                  if ((unsigned)obj->temp2 == 0xFFFF)
                  	obj->temp3 = VPOST_WAIT_DELAY;
               break;
            }
         }
			else
         	obj->temp3 -= tics;

      	// Check to see if to was toggled

         if ((unsigned)obj->temp2 != 0xFFFF)
				if (gamestate.barrier_table[obj->temp2].on)
   	        	ToggleBarrier(obj);
      break;
   }
}



/*
=============================================================================

							GUARD

=============================================================================
*/



//
// Rent-A-Cop
//

extern	statetype s_rent_stand;

extern	statetype s_rent_path1;
extern	statetype s_rent_path1s;
extern	statetype s_rent_path2;
extern	statetype s_rent_path3;
extern	statetype s_rent_path3s;
extern	statetype s_rent_path4;

extern	statetype s_rent_pain;

extern	statetype s_rent_giveup;

extern	statetype s_rent_shoot1;
extern	statetype s_rent_shoot2;
extern	statetype s_rent_shoot3;
extern	statetype s_rent_shoot4;

extern	statetype s_rent_chase1;
extern	statetype s_rent_chase1s;
extern	statetype s_rent_chase2;
extern	statetype s_rent_chase3;
extern	statetype s_rent_chase3s;
extern	statetype s_rent_chase4;

extern	statetype s_rent_die1;
extern	statetype s_rent_die1d;
extern	statetype s_rent_die2;
extern	statetype s_rent_die3;
extern	statetype s_rent_die3s;
extern	statetype s_rent_die4;

statetype s_rent_stand	= {true,SPR_RENT_S_1,0,T_Stand,NULL,&s_rent_stand};

statetype s_rent_path1 	= {true,SPR_RENT_W1_1,20,T_Path,NULL,&s_rent_path1s};
statetype s_rent_path1s 	= {true,SPR_RENT_W1_1,5,NULL,NULL,&s_rent_path2};
statetype s_rent_path2 	= {true,SPR_RENT_W2_1,15,T_Path,NULL,&s_rent_path3};
statetype s_rent_path3 	= {true,SPR_RENT_W3_1,20,T_Path,NULL,&s_rent_path3s};
statetype s_rent_path3s 	= {true,SPR_RENT_W3_1,5,NULL,NULL,&s_rent_path4};
statetype s_rent_path4 	= {true,SPR_RENT_W4_1,15,T_Path,NULL,&s_rent_path1};

statetype s_rent_pain 	= {2,SPR_RENT_PAIN_1,15,NULL,NULL,&s_rent_chase1};

statetype s_rent_shoot1 	= {false,SPR_RENT_SHOOT1,20,NULL,NULL,&s_rent_shoot2};
statetype s_rent_shoot2 	= {false,SPR_RENT_SHOOT2,20,NULL,T_Shoot,&s_rent_shoot3};
statetype s_rent_shoot3 	= {false,SPR_RENT_SHOOT3,20,NULL,T_Shade,&s_rent_chase1};

statetype s_rent_chase1 	= {true,SPR_RENT_W1_1,10,T_Chase,NULL,&s_rent_chase1s};
statetype s_rent_chase1s 	= {true,SPR_RENT_W1_1,3,NULL,NULL,&s_rent_chase2};
statetype s_rent_chase2 	= {true,SPR_RENT_W2_1,8,T_Chase,NULL,&s_rent_chase3};
statetype s_rent_chase3 	= {true,SPR_RENT_W3_1,10,T_Chase,NULL,&s_rent_chase3s};
statetype s_rent_chase3s 	= {true,SPR_RENT_W3_1,3,NULL,NULL,&s_rent_chase4};
statetype s_rent_chase4 	= {true,SPR_RENT_W4_1,8,T_Chase,NULL,&s_rent_chase1};

statetype s_rent_die1		= {false,SPR_RENT_DIE_1,17,T_BlowBack,A_DeathScream,&s_rent_die2};
statetype s_rent_die2		= {false,SPR_RENT_DIE_2,21,T_BlowBack,NULL,&s_rent_die3};
statetype s_rent_die3		= {false,SPR_RENT_DIE_3,16,T_BlowBack,NULL,&s_rent_die3s};
statetype s_rent_die3s		= {false,SPR_RENT_DIE_4,13,T_BlowBack,NULL,&s_rent_die4};
statetype s_rent_die4		= {false,SPR_RENT_DEAD,0,NULL,NULL,&s_rent_die4};

//
// officers
//

extern	statetype s_ofcstand;

extern	statetype s_ofcpath1;
extern	statetype s_ofcpath1s;
extern	statetype s_ofcpath2;
extern	statetype s_ofcpath3;
extern	statetype s_ofcpath3s;
extern	statetype s_ofcpath4;

extern	statetype s_ofcpain;

extern	statetype s_ofcgiveup;

extern	statetype s_ofcshoot1;
extern	statetype s_ofcshoot2;
extern	statetype s_ofcshoot3;
extern	statetype s_ofcshoot4;

extern	statetype s_ofcchase1;
extern	statetype s_ofcchase1s;
extern	statetype s_ofcchase2;
extern	statetype s_ofcchase3;
extern	statetype s_ofcchase3s;
extern	statetype s_ofcchase4;

extern	statetype s_ofcdie1;
extern	statetype s_ofcdie2;
extern	statetype s_ofcdie3;
extern	statetype s_ofcdie4;
extern	statetype s_ofcdie5;

statetype s_ofcstand	= {true,SPR_OFC_S_1,0,T_Stand,NULL,&s_ofcstand};

statetype s_ofcpath1 	= {true,SPR_OFC_W1_1,20,T_Path,NULL,&s_ofcpath1s};
statetype s_ofcpath1s 	= {true,SPR_OFC_W1_1,5,NULL,NULL,&s_ofcpath2};
statetype s_ofcpath2 	= {true,SPR_OFC_W2_1,15,T_Path,NULL,&s_ofcpath3};
statetype s_ofcpath3 	= {true,SPR_OFC_W3_1,20,T_Path,NULL,&s_ofcpath3s};
statetype s_ofcpath3s 	= {true,SPR_OFC_W3_1,5,NULL,NULL,&s_ofcpath4};
statetype s_ofcpath4 	= {true,SPR_OFC_W4_1,15,T_Path,NULL,&s_ofcpath1};

statetype s_ofcpain 	= {2,SPR_OFC_PAIN_1,15,NULL,NULL,&s_ofcchase1};

statetype s_ofcshoot1 	= {false,SPR_OFC_SHOOT1,6,NULL,NULL,&s_ofcshoot2};
statetype s_ofcshoot2 	= {false,SPR_OFC_SHOOT2,20,NULL,T_Shoot,&s_ofcshoot3};
statetype s_ofcshoot3 	= {false,SPR_OFC_SHOOT3,10,NULL,T_Shade,&s_ofcchase1};

statetype s_ofcchase1 	= {true,SPR_OFC_W1_1,10,T_Chase,NULL,&s_ofcchase1s};
statetype s_ofcchase1s 	= {true,SPR_OFC_W1_1,3,NULL,NULL,&s_ofcchase2};
statetype s_ofcchase2 	= {true,SPR_OFC_W2_1,8,T_Chase,NULL,&s_ofcchase3};
statetype s_ofcchase3 	= {true,SPR_OFC_W3_1,10,T_Chase,NULL,&s_ofcchase3s};
statetype s_ofcchase3s 	= {true,SPR_OFC_W3_1,3,NULL,NULL,&s_ofcchase4};
statetype s_ofcchase4 	= {true,SPR_OFC_W4_1,8,T_Chase,NULL,&s_ofcchase1};

statetype s_ofcdie1		= {false,SPR_OFC_DIE_1,15,T_BlowBack,A_DeathScream,&s_ofcdie2};
statetype s_ofcdie2		= {false,SPR_OFC_DIE_2,15,T_BlowBack,NULL,&s_ofcdie3};
statetype s_ofcdie3		= {false,SPR_OFC_DIE_3,15,T_BlowBack,NULL,&s_ofcdie4};
statetype s_ofcdie4		= {false,SPR_OFC_DIE_4,15,T_BlowBack,NULL,&s_ofcdie5};
statetype s_ofcdie5		= {false,SPR_OFC_DEAD,0,NULL,NULL,&s_ofcdie5};


//
// SWAT
//

extern	statetype s_swatstand;

extern	statetype s_swatpath1;
extern	statetype s_swatpath1s;
extern	statetype s_swatpath2;
extern	statetype s_swatpath3;
extern	statetype s_swatpath3s;
extern	statetype s_swatpath4;

extern	statetype s_swatpain;

extern	statetype s_swatgiveup;

extern	statetype s_swatshoot1;
extern	statetype s_swatshoot2;
extern	statetype s_swatshoot3;
extern	statetype s_swatshoot4;
extern	statetype s_swatshoot5;
extern	statetype s_swatshoot6;
extern	statetype s_swatshoot7;	  

extern	statetype s_swatchase1;
extern	statetype s_swatchase1s;
extern	statetype s_swatchase2;
extern	statetype s_swatchase3;
extern	statetype s_swatchase3s;
extern	statetype s_swatchase4;

extern	statetype s_swatwounded1;
extern	statetype s_swatwounded2;
extern	statetype s_swatwounded3;
extern	statetype s_swatwounded4;

extern	statetype s_swatunwounded1;
extern	statetype s_swatunwounded2;
extern	statetype s_swatunwounded3;
extern	statetype s_swatunwounded4;

extern	statetype s_swatdie1;
extern	statetype s_swatdie2;
extern	statetype s_swatdie3;
extern	statetype s_swatdie4;
extern	statetype s_swatdie5;


statetype s_swatstand	= {true,SPR_SWAT_S_1,0,T_Stand,NULL,&s_swatstand};

statetype s_swatpath1 	= {true,SPR_SWAT_W1_1,20,T_Path,NULL,&s_swatpath1s};
statetype s_swatpath1s 	= {true,SPR_SWAT_W1_1,5,NULL,NULL,&s_swatpath2};
statetype s_swatpath2 	= {true,SPR_SWAT_W2_1,15,T_Path,NULL,&s_swatpath3};
statetype s_swatpath3 	= {true,SPR_SWAT_W3_1,20,T_Path,NULL,&s_swatpath3s};
statetype s_swatpath3s 	= {true,SPR_SWAT_W3_1,5,NULL,NULL,&s_swatpath4};
statetype s_swatpath4 	= {true,SPR_SWAT_W4_1,15,T_Path,NULL,&s_swatpath1};

statetype s_swatpain 	= {2,SPR_SWAT_PAIN_1,15,NULL,NULL,&s_swatshoot1};

statetype s_swatshoot1 	= {false,SPR_SWAT_SHOOT1,10,NULL,NULL,&s_swatshoot2};
statetype s_swatshoot2 	= {false,SPR_SWAT_SHOOT2,20,NULL,T_Shoot,&s_swatshoot3};
statetype s_swatshoot3 	= {false,SPR_SWAT_SHOOT3,10,NULL,T_Shade,&s_swatshoot4};
statetype s_swatshoot4 	= {false,SPR_SWAT_SHOOT2,10,NULL,T_Shoot,&s_swatshoot5};
statetype s_swatshoot5 	= {false,SPR_SWAT_SHOOT3,10,NULL,T_Shade,&s_swatshoot6};
statetype s_swatshoot6 	= {false,SPR_SWAT_SHOOT2,10,NULL,T_Shoot,&s_swatshoot7};
statetype s_swatshoot7 	= {false,SPR_SWAT_SHOOT3,10,NULL,T_Shade,&s_swatchase1};

statetype s_swatchase1 	= {true,SPR_SWAT_W1_1,10,T_Chase,NULL,&s_swatchase1s};
statetype s_swatchase1s 	= {true,SPR_SWAT_W1_1,3,NULL,NULL,&s_swatchase2};
statetype s_swatchase2 	= {true,SPR_SWAT_W2_1,8,T_Chase,NULL,&s_swatchase3};
statetype s_swatchase3 	= {true,SPR_SWAT_W3_1,10,T_Chase,NULL,&s_swatchase3s};
statetype s_swatchase3s 	= {true,SPR_SWAT_W3_1,3,NULL,NULL,&s_swatchase4};
statetype s_swatchase4 	= {true,SPR_SWAT_W4_1,8,T_Chase,NULL,&s_swatchase1};

statetype s_swatwounded1 = {false,SPR_SWAT_WOUNDED1,10,NULL,NULL,&s_swatwounded2};
statetype s_swatwounded2 = {false,SPR_SWAT_WOUNDED2,10,NULL,NULL,&s_swatwounded3};
statetype s_swatwounded3 = {false,SPR_SWAT_WOUNDED3,10,NULL,NULL,&s_swatwounded4};
statetype s_swatwounded4 = {false,SPR_SWAT_WOUNDED4,10,T_SwatWound,NULL,&s_swatwounded4};

statetype s_swatunwounded1 = {false,SPR_SWAT_WOUNDED4,10,NULL,NULL,&s_swatunwounded2};
statetype s_swatunwounded2 = {false,SPR_SWAT_WOUNDED3,10,NULL,NULL,&s_swatunwounded3};
statetype s_swatunwounded3 = {false,SPR_SWAT_WOUNDED2,10,NULL,NULL,&s_swatunwounded4};
statetype s_swatunwounded4 = {false,SPR_SWAT_WOUNDED1,10,NULL,T_SwatWound,&s_swatchase1};

statetype s_swatdie1		= {false,SPR_SWAT_DIE_1,20,T_BlowBack,A_DeathScream,&s_swatdie2};
statetype s_swatdie2		= {false,SPR_SWAT_DIE_2,20,T_BlowBack,NULL,&s_swatdie3};
statetype s_swatdie3		= {false,SPR_SWAT_DIE_3,20,T_BlowBack,NULL,&s_swatdie4};
statetype s_swatdie4		= {false,SPR_SWAT_DIE_4,20,T_BlowBack,NULL,&s_swatdie5};
statetype s_swatdie5		= {false,SPR_SWAT_DEAD,0,NULL,NULL,&s_swatdie5};


//
// PRO Guard
//

extern	statetype s_prostand;

extern	statetype s_propath1;
extern	statetype s_propath1s;
extern	statetype s_propath2;
extern	statetype s_propath3;
extern	statetype s_propath3s;
extern	statetype s_propath4;

extern	statetype s_propain;

extern	statetype s_proshoot1;
extern	statetype s_proshoot2;
extern	statetype s_proshoot3;
extern	statetype s_proshoot4;
extern	statetype s_proshoot5;
extern	statetype s_proshoot6;
extern	statetype s_proshoot6a;
//extern	statetype s_proshoot7;
//extern	statetype s_proshoot8;
//extern	statetype s_proshoot9;

extern	statetype s_prochase1;
extern	statetype s_prochase1s;
extern	statetype s_prochase2;
extern	statetype s_prochase3;
extern	statetype s_prochase3s;
extern	statetype s_prochase4;

extern	statetype s_prodie1;
extern	statetype s_prodie2;
extern	statetype s_prodie3;
extern	statetype s_prodie3a;
extern	statetype s_prodie4;

statetype s_prostand	= {true,SPR_PRO_S_1,0,T_Stand,NULL,&s_prostand};

statetype s_propath1 	= {true,SPR_PRO_W1_1,20,T_Path,NULL,&s_propath1s};
statetype s_propath1s 	= {true,SPR_PRO_W1_1,5,NULL,NULL,&s_propath2};
statetype s_propath2 	= {true,SPR_PRO_W2_1,15,T_Path,NULL,&s_propath3};
statetype s_propath3 	= {true,SPR_PRO_W3_1,20,T_Path,NULL,&s_propath3s};
statetype s_propath3s 	= {true,SPR_PRO_W3_1,5,NULL,NULL,&s_propath4};
statetype s_propath4 	= {true,SPR_PRO_W4_1,15,T_Path,NULL,&s_propath1};

statetype s_propain 	= {2,SPR_PRO_PAIN_1,15,NULL,NULL,&s_prochase1};

statetype s_proshoot1 	= {false,SPR_PRO_SHOOT1,20,NULL,NULL,&s_proshoot2};
statetype s_proshoot2 	= {false,SPR_PRO_SHOOT2,20,NULL,T_Shoot,&s_proshoot3};
statetype s_proshoot3 	= {false,SPR_PRO_SHOOT3,10,NULL,T_Shade,&s_proshoot4};
statetype s_proshoot4 	= {false,SPR_PRO_SHOOT2,10,NULL,T_Shoot,&s_proshoot5};
statetype s_proshoot5 	= {false,SPR_PRO_SHOOT3,10,NULL,T_Shade,&s_proshoot6};
statetype s_proshoot6 	= {false,SPR_PRO_SHOOT2,10,NULL,T_Shoot,&s_proshoot6a};
statetype s_proshoot6a 	= {false,SPR_PRO_SHOOT3,10,NULL,T_Shade,&s_prochase1};

//statetype s_proshoot7  	= {false,SPR_PRO_SHOOT3,10,NULL,NULL,&s_proshoot8};
//statetype s_proshoot8  	= {false,SPR_PRO_SHOOT2,10,NULL,T_Shoot,&s_proshoot9};
//statetype s_proshoot9  	= {false,SPR_PRO_SHOOT3,10,NULL,T_Shade,&s_prochase1};

statetype s_prochase1 	= {true,SPR_PRO_W1_1,10,T_Chase,NULL,&s_prochase1s};
statetype s_prochase1s 	= {true,SPR_PRO_W1_1,3,NULL,NULL,&s_prochase2};
statetype s_prochase2 	= {true,SPR_PRO_W2_1,8,T_Chase,NULL,&s_prochase3};
statetype s_prochase3 	= {true,SPR_PRO_W3_1,10,T_Chase,NULL,&s_prochase3s};
statetype s_prochase3s 	= {true,SPR_PRO_W3_1,3,NULL,NULL,&s_prochase4};
statetype s_prochase4 	= {true,SPR_PRO_W4_1,8,T_Chase,NULL,&s_prochase1};

statetype s_prodie1		= {false,SPR_PRO_DIE_1,20,T_BlowBack,A_DeathScream,&s_prodie2};
statetype s_prodie2		= {false,SPR_PRO_DIE_2,20,T_BlowBack,NULL,&s_prodie3};
statetype s_prodie3		= {false,SPR_PRO_DIE_3,20,T_BlowBack,NULL,&s_prodie3a};
statetype s_prodie3a		= {false,SPR_PRO_DIE_4,20,T_BlowBack,NULL,&s_prodie4};
statetype s_prodie4		= {false,SPR_PRO_DEAD,0,NULL,NULL,&s_prodie4};

extern statetype s_electro_appear1;
extern statetype s_electro_appear2;
extern statetype s_electro_appear3;

extern statetype s_electro_chase1;
extern statetype s_electro_chase2;
extern statetype s_electro_chase3;
extern statetype s_electro_chase4;

extern statetype s_electro_ouch;

extern statetype s_electro_shoot1;
extern statetype s_electro_shoot2;
extern statetype s_electro_shoot3;

extern statetype s_electro_shot1;
extern statetype s_electro_shot2;

extern statetype s_electro_shot_exp1;
extern statetype s_electro_shot_exp2;

extern statetype s_ofs_shot1;
extern statetype s_ofs_shot2;

extern statetype s_ofs_shot_exp1;
extern statetype s_ofs_shot_exp2;

extern statetype s_electro_die1;
extern statetype s_electro_die2;
extern statetype s_electro_die3;

statetype s_electro_appear1 = {0,SPR_ELEC_APPEAR1,14,NULL,NULL,&s_electro_appear2};
statetype s_electro_appear2 = {0,SPR_ELEC_APPEAR2,14,NULL,NULL,&s_electro_appear3};
statetype s_electro_appear3 = {0,SPR_ELEC_APPEAR3,14,NULL,NULL,&s_electro_chase1};

statetype s_electro_chase1 = {0,SPR_ELEC_WALK1,14,T_Chase,NULL,&s_electro_chase2};
statetype s_electro_chase2 = {0,SPR_ELEC_WALK2,14,NULL,NULL,&s_electro_chase3};
statetype s_electro_chase3 = {0,SPR_ELEC_WALK3,14,T_Chase,NULL,&s_electro_chase4};
statetype s_electro_chase4 = {0,SPR_ELEC_WALK4,14,NULL,NULL,&s_electro_chase1};

statetype s_electro_ouch = {0,SPR_ELEC_OUCH,14,NULL,NULL,&s_electro_chase1};

statetype s_electro_shoot1 = {0,SPR_ELEC_SHOOT1,14,NULL,NULL,&s_electro_shoot2};
statetype s_electro_shoot2 = {0,SPR_ELEC_SHOOT2,14,T_Shoot,NULL,&s_electro_shoot3};
statetype s_electro_shoot3 = {0,SPR_ELEC_SHOOT3,14,NULL,NULL,&s_electro_chase1};

statetype s_electro_shot1 = {0,SPR_ELEC_SHOT1,1,T_Projectile,NULL,&s_electro_shot2};
statetype s_electro_shot2 = {0,SPR_ELEC_SHOT2,1,T_Projectile,NULL,&s_electro_shot1};

statetype s_ofs_shot1 = {0,0,1,T_Projectile,NULL,&s_ofs_shot2};
statetype s_ofs_shot2 = {0,1,1,T_Projectile,NULL,&s_ofs_shot1};


statetype s_electro_die1 = {0,SPR_ELEC_DIE1,14,NULL,A_DeathScream,&s_electro_die2};
statetype s_electro_die2 = {0,SPR_ELEC_DIE2,14,NULL,NULL,&s_electro_die3};
statetype s_electro_die3 = {0,SPR_ELEC_DIE3,14,NULL,NULL,NULL};


extern statetype s_liquid_wait;
extern statetype s_liquid_move;

extern statetype s_liquid_rise1;
extern statetype s_liquid_rise2;
extern statetype s_liquid_rise3;
extern statetype s_liquid_rise4;

extern statetype s_liquid_stand;

extern statetype s_liquid_fall1;
extern statetype s_liquid_fall2;
extern statetype s_liquid_fall3;
extern statetype s_liquid_fall4;

extern statetype s_liquid_shoot1;
extern statetype s_liquid_shoot2;
extern statetype s_liquid_shoot3;

extern statetype s_liquid_ouch;

extern statetype s_liquid_die1;
extern statetype s_liquid_die2;
extern statetype s_liquid_die3;
extern statetype s_liquid_die4;
extern statetype s_liquid_dead;

extern statetype s_blake1;
extern statetype s_blake2;
extern statetype s_blake3;
extern statetype s_blake4;

extern statetype s_liquid_shot;

void T_LiquidStand_Check(objtype *obj);
void T_LiquidMove(objtype *obj);
void T_Solid(objtype *obj);


statetype s_liquid_wait = {0,SPR_LIQUID_M1,14,T_Stand,NULL,&s_liquid_wait};

statetype s_liquid_move = {0,SPR_LIQUID_M1,14,T_LiquidMove,T_ChangeShape,&s_liquid_move};

statetype s_liquid_rise1 = {0,SPR_LIQUID_R1,12,NULL,NULL,&s_liquid_rise2};
statetype s_liquid_rise2 = {0,SPR_LIQUID_R2,12,NULL,NULL,&s_liquid_rise3};
statetype s_liquid_rise3 = {0,SPR_LIQUID_R3,12,NULL,T_Solid,&s_liquid_shoot1};
//statetype s_liquid_rise4 = {0,SPR_LIQUID_R4,12,NULL,NULL,&s_liquid_stand};

statetype s_liquid_stand = {0,SPR_LIQUID_R4,40,T_LiquidStand,NULL,&s_liquid_stand};

statetype s_liquid_fall1 = {0,SPR_LIQUID_R3,15,NULL,NULL,&s_liquid_fall2};
statetype s_liquid_fall2 = {0,SPR_LIQUID_R2,15,NULL,NULL,&s_liquid_fall3};
statetype s_liquid_fall3 = {0,SPR_LIQUID_R1,15,NULL,NULL,&s_liquid_move};

statetype s_liquid_shoot1 = {0,SPR_LIQUID_S1,12,NULL,NULL,&s_liquid_shoot2};
statetype s_liquid_shoot2 = {0,SPR_LIQUID_S2,12,NULL,NULL,&s_liquid_shoot3};
statetype s_liquid_shoot3 = {0,SPR_LIQUID_S3,12,NULL,T_Shoot,&s_liquid_stand};

statetype s_liquid_ouch = {0,SPR_LIQUID_OUCH,7,NULL,NULL,&s_liquid_shoot1};

statetype s_liquid_die1 = {0,SPR_LIQUID_DIE_1,20,NULL,A_DeathScream,&s_liquid_die2};
statetype s_liquid_die2 = {0,SPR_LIQUID_DIE_2,20,NULL,NULL,&s_liquid_die3};
statetype s_liquid_die3 = {0,SPR_LIQUID_DIE_3,20,NULL,NULL,&s_liquid_die4};
statetype s_liquid_die4 = {0,SPR_LIQUID_DIE_4,20,NULL,NULL,&s_liquid_dead};
statetype s_liquid_dead = {0,SPR_LIQUID_DEAD,20,NULL,NULL,NULL};

statetype s_liquid_shot = {0,0,10,T_Projectile,T_ChangeShape,&s_liquid_shot};

statetype s_blake1 = {0,SPR_BLAKE_W1,12,NULL,NULL,&s_blake2};
statetype s_blake2 = {0,SPR_BLAKE_W2,12,NULL,NULL,&s_blake3};
statetype s_blake3 = {0,SPR_BLAKE_W3,12,NULL,NULL,&s_blake4};
statetype s_blake4 = {0,SPR_BLAKE_W4,12,NULL,NULL,&s_blake1};

//---------------------------------------------------------------------------
// T_ChangeShape()
//---------------------------------------------------------------------------
void T_ChangeShape(objtype *obj)
{
//	obj->temp1 = obj->temp2 + random(3);
	obj->temp1 = obj->temp2 + (US_RndT()%3);
}

//--------------------------------------------------------------------------
// T_MakeOffset()
//--------------------------------------------------------------------------
void T_MakeOffset(objtype *obj)
{
	obj->flags |= FL_OFFSET_STATES;
	obj->flags &= ~(FL_SOLID | FL_SHOOTABLE);
}

//--------------------------------------------------------------------------
// T_Solid()
//--------------------------------------------------------------------------
void T_Solid(objtype *obj)
{
	obj->flags |= (FL_SOLID | FL_SHOOTABLE);
}

//---------------------------------------------------------------------------
// T_LiquidMove()
//---------------------------------------------------------------------------
void T_LiquidMove(objtype *obj)
{
	int dx,dy,dist;


	//
	// Check to see if the Liquid Obj is VERY Close - Then FORCE up and
	// start firing...
	//

	dx = abs(obj->tilex - player->tilex);
	dy = abs(obj->tiley - player->tiley);
	dist = dx>dy ? dx : dy;

	if (dist < 6 && dx > 1 && dy > 1)
	{
		obj->flags &= ~(FL_OFFSET_STATES);
		obj->flags |= FL_SOLID;
		NewState(obj,&s_liquid_rise1);
	}
	else
		T_Chase(obj);
}




//---------------------------------------------------------------------------
// T_LiquidStand()
//---------------------------------------------------------------------------
void T_LiquidStand(objtype *obj)
{
	int dx,dy;

	obj->flags |= FL_SHOOTABLE | FL_SOLID;

	if (US_RndT() < 80 && obj->temp2 < 5)
	{
		obj->temp2++;
		NewState(obj,&s_liquid_shoot1);
	}
	else
	{
		dx = abs(obj->tilex - player->tilex);
		dy = abs(obj->tiley - player->tiley);

		if (dx > 1 || dy > 1)
		{
			if (!(obj->flags & FL_VISABLE) || (US_RndT() < 40) || (obj->temp2 == 5))
			{
				NewState(obj,&s_liquid_fall1);
				obj->flags |= FL_OFFSET_STATES;
				obj->flags &= ~(FL_SOLID | FL_SHOOTABLE);
				obj->temp2 = 0;
			}
		}
		else
			obj->temp2 = 0;
	}
}



//---------------------------------------------------------------------------
// T_SwatWound()
//---------------------------------------------------------------------------
void T_SwatWound(objtype *ob)
{
	long dx,dy;

	if (ob->state == &s_swatunwounded4)
	{
		ob->flags |= FL_SOLID|FL_SHOOTABLE;
	}
	else
	{
		if (ob->temp2)
			if (tics < ob->temp2)
			{
				ob->temp2 -= tics;
				return;
			}

		ob->temp2 = 0;

		dx = player->x - ob->x;
		dx = LABS(dx);
		dy = player->y - ob->y;
		dy = LABS(dy);

		if (dy > TILEGLOBAL || dx > TILEGLOBAL)
      {
			ob->flags |= FL_SOLID|FL_SHOOTABLE;
			NewState(ob,&s_swatunwounded1);
      }


//		if ((ob->tilex != player->tilex) && (ob->tiley != player->tiley))
//			NewState(ob,&s_swatunwounded1);
	}
}



/*
===============
=
= SpawnStand
=
===============
*/
void SpawnStand (enemy_t which, int tilex, int tiley, int dir)
{
	unsigned	far *map,tile,ammo=8;

	switch (which)
	{
		case en_goldstern:
			SpawnNewObj (tilex,tiley,&s_goldwarp_in1);
			new->flags = FL_SHOOTABLE | FL_SOLID;
			new->flags2 = FL2_BFG_SHOOTABLE;
			new->speed = SPDPATROL;
			if (gamestate.mapon==9)
				new->hitpoints = starthitpoints[gamestate.difficulty][which]*15;
			ammo = 25;
		break;

		case en_electro_alien:
			SpawnNewObj (tilex,tiley,&s_electro_appear1);
			new->flags = FL_SHOOTABLE | FL_SOLID | FL_PROJ_TRANSPARENT;
			new->speed = SPDPATROL;
         new->lighting = NO_SHADING;		// no shading
		break;

		case en_liquid:
			SpawnNewObj(tilex,tiley,&s_liquid_wait);
			new->flags = FL_OFFSET_STATES|FL_PROJ_TRANSPARENT;
			new->flags2 = FL2_BFG_SHOOTABLE;
			new->speed = SPDPATROL*3;
		break;

		case en_rentacop:
			SpawnNewObj (tilex,tiley,&s_rent_stand);
			new->flags = FL_SHOOTABLE | FL_SOLID;
			new->flags2 = FL2_BFG_SHOOTABLE;
			new->speed = SPDPATROL;
		break;

		case en_gen_scientist:
			SpawnNewObj (tilex,tiley,&s_ofcstand);
			new->flags = FL_SHOOTABLE | FL_SOLID | FL_FRIENDLY | FL_RANDOM_TURN;
			new->flags2 = FL2_BFG_SHOOTABLE;
			if (US_RndT()&1)
				new->flags |= FL_INFORMANT;
			new->speed = SPDPATROL;
		break;

		case en_swat:
			SpawnNewObj (tilex,tiley,&s_swatstand);
			new->flags = FL_SHOOTABLE | FL_SOLID;
			new->flags2 = FL2_BFG_SHOOTABLE;
			new->speed = SPDPATROL;
			ammo = 30;
			if (scan_value == 0xffff)
				new->temp1 = US_RndT()&1;
			else
				new->temp1 = scan_value;
		break;

		case en_proguard:
			SpawnNewObj (tilex,tiley,&s_prostand);
			new->flags = FL_SHOOTABLE | FL_SOLID;
			new->flags2 = FL2_BFG_SHOOTABLE;
			new->speed = SPDPATROL;
			ammo = 25;
		break;

		case en_hang_terrot:
			SpawnNewObj (tilex,tiley,&s_terrot_wait);
			new->flags = FL_SHOOTABLE|FL_NONMARK|FL_NEVERMARK;
			new->speed = SPDPATROL;
		break;

		case en_floatingbomb:
			SpawnNewObj (tilex,tiley,&s_scout_stand);
			new->speed = SPDPATROL;
			new->temp1 = SPR_FSCOUT_W1_1;
			new->flags2 = FL2_BFGSHOT_SOLID|FL2_BFG_SHOOTABLE;
			new->flags = FL_SHOOTABLE | FL_SOLID | FL_OFFSET_STATES|FL_FAKE_STATIC;
		break;

		case en_volatiletransport:
			SpawnNewObj (tilex,tiley,&s_scout_stand);
			new->speed = SPDPATROL;
			new->temp1 = SPR_GSCOUT_W1_1;
			new->flags = FL_SHOOTABLE | FL_SOLID | FL_OFFSET_STATES | FL_STATIONARY|FL_FAKE_STATIC;
			new->flags2 = FL2_BFGSHOT_SOLID|FL2_BFG_SHOOTABLE;
		break;

		case en_steamgrate:
			SpawnNewObj(tilex,tiley,&s_steamgrate);
			new->flags = FL_OFFSET_STATES;
			new->temp1 = SPR_GRATE;
			new->temp2 = 60*4;
		break;

		case en_steampipe:
      	nevermark = true;
			SpawnNewObj(tilex,tiley,&s_steamgrate);
         nevermark = false;
			new->flags = FL_OFFSET_STATES|FL_NONMARK|FL_NEVERMARK;
			new->temp1 = SPR_STEAM_PIPE;
			new->temp2 = 60*4;
		break;
	}

	CheckForSpecialTile(new,tilex,tiley);

	new->ammo = ammo;
	new->obclass = rentacopobj+which;
	new->hitpoints += starthitpoints[gamestate.difficulty][which];
	new->dir = dir<<1;

	if (new->flags & FL_INFORMANT)
	{
		new->hitpoints=1;
		new->ammo=0;
		new->flags |= FL_HAS_AMMO | FL_HAS_TOKENS;
		new->s_tilex = new->s_tiley = 0xff;
	}
}


//---------------------------------------------------------------------------
// CheckForSpecialTile() - Adds special attributes to actor if standing on
//				               special tiles.
//---------------------------------------------------------------------------
void CheckForSpecialTile(objtype *obj, unsigned tilex, unsigned tiley)
{
	unsigned far *map,far *map1;
   objtype *old_new;
   boolean getarea = false;

   //
   // Only shootables can use special tiles...
   //
   // (This also tests to make sure that the plasma_detonatorobj &
   //  plasma_detonator_reservedobj will not enter this function.)
   //

   if (!(obj->flags & FL_SHOOTABLE))
   	return;

	//
   // Check and handle special tiles... Only one per actor... now!
   //

	map = mapsegs[0]+farmapylookup[tiley]+tilex;

   switch (*map)
   {
      case CLOAK_AMBUSH_TILE:
      	obj->flags2 |= FL2_CLOAKED;

   	case AMBUSHTILE:
			obj->flags |= FL_AMBUSH|FL_SHOOTABLE|FL_SOLID;
         getarea = true;
      break;

		case DETONATOR_TILE:
      	old_new =new;
			SpawnHiddenOfs(en_plasma_detonator_reserve, tilex, tiley);
         new = old_new;
			obj->flags &= ~FL_INFORMANT;
		case RKEY_TILE:
		case YKEY_TILE:
		case BKEY_TILE:
		case BFG_TILE:
		case ION_TILE:
      	ReserveStatic();
			obj->flags2 |= SpecialSpawnFlags[(*map)-RKEY_TILE];
         getarea = true;
      break;

      case CLOAK_TILE:
      	obj->flags2 |= FL2_CLOAKED;
         getarea = true;
      break;

      case LINC_TILE:
      	obj->flags2 |= FL2_LINC;
			obj->flags &= ~FL_INFORMANT;				// Make sure informants dont have links
         getarea = true;
      	map1 = mapsegs[1]+farmapylookup[tiley]+tilex+1;
	      obj->linc = *map1;
   	   *map1 = 0;
      break;
   }

   //
   // Init areanumbers and tilemaps...
   //

   if (getarea)
   {
		tilemap[tilex][tiley] = 0;
		*map = obj->areanumber = GetAreaNumber(tilex,tiley);

		#if IN_DEVELOPMENT
  	   if (obj->areanumber >= NUMAREAS)
     	   Quit("Actor Spawned on wall at %d %d",tilex,tiley);
		#endif
   }
}

/*
===============
=
= SpawnPatrol
=
===============
*/

void SpawnPatrol (enemy_t which, int tilex, int tiley, int dir)
{
	short ammo = 8;

#if IN_DEVELOPMENT
	unsigned oldx,oldy;
#endif

	switch (which)
	{
		case en_blake:
			SpawnNewObj (tilex,tiley,&s_blake1);
			new->speed = SPDPATROL*2;
		break;

		case en_rentacop:
			SpawnNewObj (tilex,tiley,&s_rent_path1);
			new->flags2 = FL2_BFG_SHOOTABLE;
			new->speed = SPDPATROL;
		break;

		case en_gen_scientist:
			SpawnNewObj (tilex,tiley,&s_ofcpath1);
			new->flags = FL_FRIENDLY | FL_RANDOM_TURN;
			new->flags2 = FL2_BFG_SHOOTABLE;
			if (US_RndT()&1)
				new->flags |= FL_INFORMANT;
			new->speed = SPDPATROL;
		break;

		case en_proguard:
			SpawnNewObj (tilex,tiley,&s_propath1);
			new->speed = SPDPATROL;
			new->flags2 = FL2_BFG_SHOOTABLE;
			ammo = 25;
		break;

		case en_swat:
			SpawnNewObj (tilex,tiley,&s_swatpath1);
			new->speed = SPDPATROL;
			ammo = 30;
			if (scan_value == 0xffff)
				new->temp1 = US_RndT()&1;
			else
				new->temp1 = scan_value;
			new->flags2 = FL2_BFG_SHOOTABLE;
		break;

		case en_floatingbomb:
			SpawnNewObj (tilex,tiley,&s_scout_path1);
			new->speed = SPDPATROL;
			new->temp1 = SPR_FSCOUT_W1_1;
			new->flags = FL_OFFSET_STATES;
			new->flags2 = FL2_BFGSHOT_SOLID|FL2_BFG_SHOOTABLE;
		break;

		case en_volatiletransport:
			SpawnNewObj (tilex,tiley,&s_scout_path1);
			new->speed = SPDPATROL;
			new->temp1 = SPR_GSCOUT_W1_1;
			new->flags = FL_OFFSET_STATES;
			new->flags2 = FL2_BFGSHOT_SOLID|FL2_BFG_SHOOTABLE;
		break;
	}

	new->ammo = ammo;
	new->obclass = rentacopobj+which;
	new->dir = dir<<1;
	new->hitpoints = starthitpoints[gamestate.difficulty][which];
	new->distance = 0;
	if (new->obclass!=blakeobj)
		new->flags |= FL_SHOOTABLE|FL_SOLID;
	new->active = true;
	if (new->flags & FL_INFORMANT)
	{
		new->hitpoints=1;
		new->ammo = 0;
		new->flags |= FL_HAS_AMMO | FL_HAS_TOKENS;
		new->s_tilex = new->s_tiley = 0xff;
	}

	CheckForSpecialTile(new,tilex,tiley);

	actorat[new->tilex][new->tiley] = NULL;		// don't use original spot

#if IN_DEVELOPMENT
	oldx = new->tilex;
   oldy = new->tiley;
#endif

#if 1
	TryWalk(new,true);
#else
		switch (dir)
		{
			case 0:
				new->tilex++;
			break;

			case 1:
				new->tiley--;
			break;

			case 2:
				new->tilex--;
			break;

			case 3:
				new->tiley++;
			break;
		}
#endif

#if IN_DEVELOPMENT
	if (new->obclass!=blakeobj)
	{
		if ((unsigned)actorat[new->tilex][new->tiley] == 1)
			Quit("Actor spawned toward a solid static at %d %d",oldx,oldy);

		if (GetAreaNumber(new->tilex,new->tiley) >= NUMAREAS)
			Quit("Actor spawned toward wall at %d %d",oldx,oldy);
	}
#endif

	actorat[new->tilex][new->tiley] = new;
}




/*
==================
=
= A_DeathScream
=
==================
*/

// 3D_ACT2.C

void A_DeathScream (objtype *ob)
{
	switch (ob->obclass)
	{

	case swatobj:
		{
		 #if (GAME_VERSION != SHAREWARE_VERSION)
		 int sounds[2]=
			{
				SWATDIESND,
				SWATDEATH2SND
			};
		 PlaySoundLocActor(sounds[US_RndT()&1],ob);
		 #else
		 PlaySoundLocActor(SWATDIESND,ob);
		 #endif
		}
		break;



	case rentacopobj:
		{
#if (GAME_VERSION != SHAREWARE_VERSION)
		 int sounds[2]=
			{
				RENTDEATH1SND,
				RENTDEATH2SND,
			};
		 PlaySoundLocActor(sounds[US_RndT()&1],ob);
#else
		 PlaySoundLocActor(RENTDEATH1SND,ob);
#endif
		}
		break;

	case mutant_human1obj:
	case hang_terrotobj:
	case floatingbombobj:
	case volatiletransportobj:
	case explosionobj:
	case gr_explosionobj:
   case bfg_explosionobj:
   case pd_explosionobj:
	case doorexplodeobj:
		{

#if GAME_VERSION != SHAREWARE_VERSION
			int sounds[] = {EXPLODE1SND,
								EXPLODE2SND};
			PlaySoundLocActor(sounds[US_RndT()&1],ob);
#else
			PlaySoundLocActor(EXPLODE1SND,ob);
#endif

		}
		break;

		case rotating_cubeobj:
			SD_PlaySound(VITAL_GONESND);
		break;

#if (GAME_VERSION != SHAREWARE_VERSION)

	case gen_scientistobj:
		if (ob->flags & FL_INFORMANT)
		{
			 int sounds[3]=
			 {
					INFORMANTDEATHSND,
					INFORMDEATH2SND,
					INFORMDEATH3SND
			 };
			 PlaySoundLocActor(sounds[US_RndT()%3],ob);
		}
		else
		{
			 int sounds[3]=
			 {
					SCIENTISTDEATHSND,
					SCIDEATH2SND,
					SCIDEATH3SND
			 };
			 PlaySoundLocActor(sounds[US_RndT()%3],ob);
		}
		break;

#else

	case gen_scientistobj:
		if (ob->flags & FL_INFORMANT)
			PlaySoundLocActor(INFORMANTDEATHSND,ob);
		else
			PlaySoundLocActor(SCIENTISTDEATHSND,ob);
		break;

#endif


	case breather_beastobj:
	case cyborg_warriorobj:
	case genetic_guardobj:
	case acid_dragonobj:
	case podobj:
		PlaySoundLocActor(PODDEATHSND,ob);
		break;

	case liquidobj:
		PlaySoundLocActor(LIQUIDDIESND,ob);
		break;

	case proguardobj:
		{
#if (GAME_VERSION != SHAREWARE_VERSION)
		 int sounds[3]=
			{
				PROGUARDDEATHSND,
				PRODEATH2SND,
			};
		 PlaySoundLocActor(sounds[US_RndT()&1],ob);
#else
		 PlaySoundLocActor(PROGUARDDEATHSND,ob);
#endif
		}
		break;


	case final_boss1obj:
	case spider_mutantobj:
		PlaySoundLocActor(BLUEBOYDEATHSND,ob);
		break;

	case mech_guardianobj:
	case final_boss3obj:
	case mutant_human2obj:
		PlaySoundLocActor(DOGBOYDEATHSND,ob);
		break;

	case reptilian_warriorobj:
	case scan_alienobj:
		PlaySoundLocActor(SCANDEATHSND,ob);
		break;

	case lcan_alienobj:
	case final_boss4obj:
		PlaySoundLocActor(LCANDEATHSND,ob);
		break;

	case gurneyobj:
		PlaySoundLocActor(GURNEYDEATHSND,ob);
		break;

	case lcan_wait_alienobj:
		PlaySoundLocActor(LCANBREAKSND,ob);
		break;

	case scan_wait_alienobj:
		PlaySoundLocActor(SCANBREAKSND,ob);
		break;

	}
}




//============================================================================
//
//								DROP
//
//============================================================================



//---------------------------------------------------------------------------
// DropCargo()
//---------------------------------------------------------------------------
void DropCargo(objtype *obj)
{
	//
   // Keep seperate... May later have MULTI "cargo's"
   //

   if (obj->flags2 & FL2_DROP_RKEY)
   	PlaceReservedItemNearTile(bo_red_key, obj->tilex, obj->tiley);

   if (obj->flags2 & FL2_DROP_YKEY)
   	PlaceReservedItemNearTile(bo_yellow_key, obj->tilex, obj->tiley);

   if (obj->flags2 & FL2_DROP_BKEY)
   	PlaceReservedItemNearTile(bo_blue_key, obj->tilex, obj->tiley);

   if (obj->flags2 & FL2_DROP_BFG)
   	PlaceReservedItemNearTile(bo_bfg_cannon, obj->tilex, obj->tiley);

   if (obj->flags2 & FL2_DROP_ION)
   	PlaceReservedItemNearTile(bo_ion_cannon, obj->tilex, obj->tiley);

   if (obj->flags2 & FL2_DROP_DETONATOR)
   	PlaceReservedItemNearTile(bo_plasma_detonator, obj->tilex, obj->tiley);

	if ((obj->flags2 & FL2_LINC) && obj->linc)
   {
      OperateSmartSwitch(obj->linc>>8,obj->linc&255,ST_TURN_OFF,true);
   }
}



/*
============================================================================

							STAND

============================================================================
*/


/*
===============
=
= T_Stand
=
===============
*/

void T_Stand (objtype *ob)
{
	SightPlayer (ob);
}


/*
============================================================================

								CHASE

============================================================================
*/


/*
=================
=
= T_Chase
=
=================
*/

//	#define DODGE_N_CHASE

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

	ob->flags &= ~FL_LOCKED_STATE;

	if (ob->flags & (FL_STATIONARY|FL_BARRIER_DAMAGE))
		return;

//	if ((ob->flags & (FL_SOLID|FL_SHOOTABLE)) != (FL_SOLID|FL_SHOOTABLE))
//		ob->flags |= FL_SOLID|FL_SHOOTABLE;

  if (ob->ammo)
  {
#ifdef DODGE_N_CHASE
	dodge = false;
#endif
	if (CheckLine(ob,player) && (!PlayerInvisable))						// got a shot at player?
	{
		dx = abs(ob->tilex - player->tilex);
		dy = abs(ob->tiley - player->tiley);
		dist = dx>dy ? dx : dy;
		if (!dist)
			dist = 1;

		if (dist==1 && ob->distance<0x4000)
			nearattack=true;

	// Time to toggle SHOOTMODE?
	//
		switch (ob->obclass)
		{
			case mutant_human1obj:
			case genetic_guardobj:
			case gurneyobj:
			case podobj:
			case mutant_human2obj:
			case scan_alienobj:
			case lcan_alienobj:
			case spider_mutantobj:
			case breather_beastobj:
			case cyborg_warriorobj:
			case reptilian_warriorobj:
			case acid_dragonobj:
			case mech_guardianobj:
			case gold_morphobj:
			case final_boss1obj:
			case final_boss2obj:
			case final_boss3obj:
			case final_boss4obj:

			// Check for mode change
			//
				if (ob->ammo > tics)
					ob->ammo -= tics;
				else
				{
					ChangeShootMode(ob);

				// Move half as far when doing near attacks...
				//
					if (!(ob->flags & FL_SHOOTMODE))
						ob->ammo >>= 1;
				}
			break;
		}

		if (nearattack)
		{
		// Always shoot when in SHOOTMODE -- Never shoot when not!
		//
			if (ob->flags & FL_SHOOTMODE)
				chance=300;
			else
				chance=0;
		}
		else
		{
			switch (ob->obclass)
			{
				case mutant_human1obj:
				case genetic_guardobj:
				case gurneyobj:
				case podobj:
				case mutant_human2obj:
				case scan_alienobj:
				case lcan_alienobj:
				case spider_mutantobj:
				case breather_beastobj:
				case cyborg_warriorobj:
				case reptilian_warriorobj:
				case acid_dragonobj:
				case mech_guardianobj:
				case gold_morphobj:
				case final_boss1obj:
				case final_boss2obj:
				case final_boss3obj:
				case final_boss4obj:

				// Always shoot when in SHOOTMODE -- Never shoot when not!
				//
					if (ob->flags & FL_SHOOTMODE)
						chance=300;
					else
						chance=0;
				break;

				default:
					chance = (tics<<4)/dist;
				break;
			}
		}

		if ((US_RndT()<chance) && (ob->ammo) && (!(ob->flags&FL_INTERROGATED)))
		{
			DoAttack(ob);
			return;
		}

#ifdef DODGE_N_CHASE
		dodge = true;
#endif
	}
	else
		ChangeShootMode(ob);
  }

	if (ob->dir == nodir)
	{
#ifdef DODGE_N_CHASE
		if (dodge)
			SelectDodgeDir(ob);
		else
			SelectChaseDir(ob);
#else

		switch (ob->obclass)
		{
			case floatingbombobj:
				SelectChaseDir(ob);
				break;

			default:
				SelectDodgeDir(ob);
				break;
		}
#endif

		if (ob->dir == nodir)
			return;							// object is blocked in
	}

	move = ob->speed*tics;

	while (move)
	{
		if (ob->distance < 0)
		{
		//
		// waiting for a door to open
		//
			OpenDoor (-ob->distance-1);
			if (doorobjlist[-ob->distance-1].action != dr_open)
				return;
			ob->distance = TILEGLOBAL;	// go ahead, the door is now opoen
		}

		if (move < ob->distance)
		{
			MoveObj (ob,move);
			break;
		}

		//
		// reached goal tile, so select another one
		//

		//
		// fix position to account for round off during moving
		//
		ob->x = ((long)ob->tilex<<TILESHIFT)+TILEGLOBAL/2;
		ob->y = ((long)ob->tiley<<TILESHIFT)+TILEGLOBAL/2;

		move -= ob->distance;

#ifdef DODGE_N_CHASE
		if (dodge)
			SelectDodgeDir (ob);
		else
			SelectChaseDir (ob);
#else

		switch (ob->obclass)
		{
			case floatingbombobj:
				SelectChaseDir(ob);
			break;

			default:
				SelectDodgeDir(ob);
			break;
		}

#endif

		if (ob->dir == nodir)
			return;							// object is blocked in
	}
}

//--------------------------------------------------------------------------
// ChangeShootMode()
//--------------------------------------------------------------------------
void ChangeShootMode(objtype *ob)
{
	if (ob->flags & FL_SHOOTMODE)
	{
		ob->flags &= ~FL_SHOOTMODE;
		ob->ammo = 60+(US_RndT()%60);
	}
	else
	{
		ob->flags |= FL_SHOOTMODE;
		ob->ammo = 1+(US_RndT()%2);
		if (ob->obclass == gold_morphobj)
			ob->ammo += 3+(US_RndT()%5);
	}
}

//--------------------------------------------------------------------------
// DoAttack()
//--------------------------------------------------------------------------
void DoAttack(objtype *ob)
{
	int	dx,dy,dist;

		dx = abs(ob->tilex - player->tilex);
		dy = abs(ob->tiley - player->tiley);
		dist = dx>dy ? dx : dy;
		if (!dist)
			dist = 1;

		switch (ob->obclass)
		{
			case floatingbombobj:
				if (dist <= 1)
				{
					ob->flags &= ~(FL_SHOOTABLE | FL_SOLID);
					ob->flags |= FL_NONMARK | FL_DEADGUY;
					KillActor(ob);
					return;
				}
			break;

			case goldsternobj:
				NewState (ob,&s_goldshoot1);
			break;

			case gold_morphobj:
				NewState (ob,&s_mgold_shoot1);
			break;

			case rentacopobj:
				NewState (ob,&s_rent_shoot1);
			break;

			case gen_scientistobj:
				NewState (ob,&s_ofcshoot1);
			break;

			case swatobj:
				NewState (ob,&s_swatshoot1);
			break;

			case liquidobj:
				if ((dx > 2) || (dy > 2) && US_RndT() < 30)
				{
					ob->flags &= ~(FL_OFFSET_STATES);
					ob->flags |= FL_SOLID;
					NewState(ob,&s_liquid_rise1);
				}
			break;

			case proguardobj:
				NewState (ob,&s_proshoot1);
			break;

			case electroobj:
				NewState(ob,&s_electro_shoot1);
			break;

			case podobj:
				if (dist > CLOSE_RANGE)
					NewState(ob,&s_ofs_pod_spit1);
				else
					NewState(ob,&s_ofs_pod_attack1);
			break;

			case spider_mutantobj:
			case acid_dragonobj:
			case mech_guardianobj:
			case breather_beastobj:
			case cyborg_warriorobj:
			case reptilian_warriorobj:
			case gurneyobj:
			case mutant_human1obj:
			case final_boss1obj:
			case final_boss2obj:
			case final_boss3obj:
			case final_boss4obj:
				NewState(ob,&s_ofs_shoot1);
			break;


			case genetic_guardobj:
			case mutant_human2obj:
			case lcan_alienobj:
			case scan_alienobj:
				if (dist > CLOSE_RANGE)
					NewState(ob,&s_ofs_spit1);
				else
					NewState (ob,&s_ofs_attack1);
			break;

		}
}

/*
============================================================================

								PATH

============================================================================
*/


/*
===============
=
= SelectPathDir
=
===============
*/


dirtype SelectPathDir (objtype *ob)
{
	boolean CantWalk=false,RandomTurn=false;
	unsigned spot;

// Look for directional arrows!
//
	spot = MAPSPOT(ob->tilex,ob->tiley,1)-ICONARROWS;
	if (spot<8)
		ob->dir = spot;

// Reset move distance and try to walk/turn.
//
	ob->distance = TILEGLOBAL;
	if (ob->flags & FL_RANDOM_TURN)
		RandomTurn = US_RndT() > 180;
	else
		RandomTurn = false;
	CantWalk = !TryWalk(ob,false);

// Handle random turns and hitting walls
//
	if (RandomTurn || CantWalk)
	{
	// Directional arrows have priority!
	//
		if ((!CantWalk) && (spot<8))
			goto exit_func;

	// Either: path is blocked   OR   actor is randomly turning.
	//
		if (ob->trydir == nodir)
			ob->trydir |= US_RndT()&128;
		else
			ob->dir = ob->trydir&127;

	// Turn this actor
	//
		if (ob->trydir & 128)
		{
			ob->dir--;							// turn clockwise
			if (ob->dir < east)
				ob->dir = nodir-1;
		}
		else
		{
			ob->dir++;							// turn counter-clockwise
			if (ob->dir >= nodir)
				ob->dir = east;
		}
		ob->trydir = (ob->trydir&128) | ob->dir;

	// Walk into new direction?
	//
		if (!TryWalk(ob,false))
			ob->dir = nodir;
	}

exit_func:;
	if (ob->dir != nodir)
	{
		TryWalk(ob,true);
		ob->trydir = nodir;
	}

	return(ob->dir);
}

/*
===============
=
= T_Path
=
===============
*/


void T_Path (objtype *ob)
{
	long 	move;
	long 	deltax,deltay,size;

	if (ob->flags & FL_STATIONARY)
		return;

	switch (ob->obclass)
   {
      case volatiletransportobj:
      break;

#if 0
      case gen_scientistobj:
      	if (ob->flags & FL_INFORMANT)			// Only informants can get scared.
         {
	         if (ob->flags2 & FL2_SCARED)
   	      {
               //
               // Count down our timer of "Running Scared"
               //
               if (ob->temp3 > tics)
						ob->temp3 -= tics;
               else
               	ob->flags2 &= ~FL2_SCARED;
      	   }
         	else
		      	if (madenoise && areabyplayer[ob->areanumber])
               {
               	ob->flags2 |= FL2_SCARED;
						ob->temp3 = 60*2;
               }
			}
      break;
#endif

      default:
			if ((!(ob->flags & FL_FRIENDLY)) || madenoise)
				if (SightPlayer(ob))
					return;

#if LOOK_FOR_DEAD_GUYS
			if (LookForDeadGuys(ob))
				return;
#endif
		break;
	}

	if (ob->dir == nodir)
		if (SelectPathDir(ob) == nodir)
			return;

	move = ob->speed*tics;
	while (move)
	{
		if (ob->distance < 0)
		{
		// Actor waiting for door to open
		//
			OpenDoor (-ob->distance-1);
			if (doorobjlist[-ob->distance-1].action != dr_open)
				return;
			ob->distance = TILEGLOBAL;	// go ahead, the door is now opoen
		}

		if (move < ob->distance)
		{
			MoveObj (ob,move);
			break;
		}

		if (ob->tilex>MAPSIZE || ob->tiley>MAPSIZE)
			ACT2_ERROR(T_PATH_HIT_WALL);
//			Quit("T_Path hit a wall at %u,%u, dir %u",ob->tilex,ob->tiley,ob->dir);

		ob->x = ((long)ob->tilex<<TILESHIFT)+TILEGLOBAL/2;
		ob->y = ((long)ob->tiley<<TILESHIFT)+TILEGLOBAL/2;
		move -= ob->distance;

		if (SelectPathDir(ob) == nodir)
			return;
	}
}

/*
=============================================================================

								FIGHT

=============================================================================
*/

int morph_angle_adj=0;

void T_Shoot (objtype *ob)
{
	int	dx,dy,dist;
	int	hitchance,damage;
	int	chance;

	switch (ob->obclass)
	{
		case SMART_ACTORS:
			if (!ob->ammo)
				return;
	}

	switch (ob->obclass)
	{
		case electroobj:
		case mutant_human2obj:
			SpawnProjectile(ob,electroshotobj);
		break;

		case liquidobj:
			SpawnProjectile(ob,liquidshotobj);
		break;

		case lcan_alienobj:
			SpawnProjectile(ob,lcanshotobj);
		break;

		case podobj:
			SpawnProjectile(ob,podshotobj);
		break;

		case scan_alienobj:
			SpawnProjectile(ob,scanshotobj);
		break;

		case gold_morphobj:
			SpawnProjectile(ob,goldmorphshotobj);

			if (ob->hitpoints < 500)
				chance = 255 / 2;
			else
				chance = 255 / 4;

			if (US_RndT() < chance)
			{
				morph_angle_adj = 24;
				SpawnProjectile(ob,goldmorphshotobj);
				morph_angle_adj = -24;
				SpawnProjectile(ob,goldmorphshotobj);
				morph_angle_adj = 16;
				SpawnProjectile(ob,goldmorphshotobj);
				morph_angle_adj = -16;
				SpawnProjectile(ob,goldmorphshotobj);
				morph_angle_adj = 8;
				SpawnProjectile(ob,goldmorphshotobj);
				morph_angle_adj = -8;
				SpawnProjectile(ob,goldmorphshotobj);
				morph_angle_adj = 0;
			}
		break;

		case spider_mutantobj:
		case acid_dragonobj:
			SpawnProjectile(ob,spider_mutantshotobj+(ob->obclass-spider_mutantobj));
//			SpawnProjectile(ob,spider_mutantshotobj+(ob->obclass-spider_mutantobj));
		break;

		case final_boss2obj:
			SpawnProjectile(ob,final_boss2shotobj);
		break;

		case final_boss4obj:
			SpawnProjectile(ob,final_boss4shotobj);
		break;


		default:
			hitchance = 128;

			ob->lighting=-10;

			if (!areabyplayer[ob->areanumber])
				return;

			if (!CheckLine (ob,player))			// player is behind a wall
			  return;

			dx = abs(ob->tilex - player->tilex);
			dy = abs(ob->tiley - player->tiley);
			dist = dx>dy ? dx:dy;

			if (ob->obclass == swatobj)
				if (dist)
					dist = dist*2/3;					// ss are better shots

			if (thrustspeed >= RUNSPEED)
			{
				if (ob->flags&FL_VISABLE)
					hitchance = 160-dist*16;		// player can see to dodge
				else
					hitchance = 160-dist*8;
			}
			else
			{
				if (ob->flags&FL_VISABLE)
					hitchance = 256-dist*16;		// player can see to dodge
				else
					hitchance = 256-dist*8;
			}

		// See if the shot was a hit.
		//
			if (US_RndT()<hitchance)
			{
				if (dist<2)
					damage = US_RndT()>>2;
				else if (dist<4)
					damage = US_RndT()>>3;
				else
					damage = US_RndT()>>4;

				TakeDamage (damage,ob);
			}

			switch(ob->obclass)
			{

				case proguardobj:
				case swatobj:
					PlaySoundLocActor(ATKBURSTRIFLESND,ob);
				break;

				default:
					PlaySoundLocActor(ATKCHARGEDSND,ob);
				break;
			}

#ifdef LIMITED_AMMO
			switch (ob->obclass)
			{
				case SMART_ACTORS:
					ob->ammo--;
					CheckRunChase(ob);
				break;
			}
#endif

			MakeAlertNoise(ob);
		break;
	}

	switch (ob->obclass)
	{
		case proguardobj:
		case swatobj:
		break;

		default:
			ob->flags &= ~FL_LOCKED_STATE;
		break;
	}
}


//----------------------------------------------------------------------
// T_Shade()
//----------------------------------------------------------------------
void T_Shade(objtype *obj)
{

	switch (obj->obclass)
	{
		case final_boss2obj:
		break;

		default:
			obj->lighting = 0;
      break;
   }
}

//----------------------------------------------------------------------
// T_Hit
//----------------------------------------------------------------------
void T_Hit(objtype *ob)
{
	long	dx,dy;
	int	hitchance,damage;


	switch (ob->obclass)
	{
		case scan_alienobj:
      case lcan_alienobj:
		case podobj:
			hitchance = 220;								// Higher - Better Chance (255 max!)
			damage = (US_RndT()>>3)|1;
			PlaySoundLocActor(CLAWATTACKSND,ob);
			break;

		case genetic_guardobj:
		case mutant_human2obj:
			hitchance = 220;								// Higher - Better Chance (255 max!)
			damage = (US_RndT()>>3)|1;
			PlaySoundLocActor(PUNCHATTACKSND,ob);
			break;

		default:
			hitchance = 200;								// Higher - Better Chance (255 max!)
			damage = US_RndT()>>4;
		break;

	}

	MakeAlertNoise(ob);

	dx = player->x - ob->x;
	if (dx<0)
		dx = -dx;
	dx -= TILEGLOBAL;
	if (dx <= MINACTORDIST)
	{
		dy = player->y - ob->y;
		if (dy<0)
			dy = -dy;
		dy -= TILEGLOBAL;
		if (dy <= MINACTORDIST)
		{
			if (US_RndT()<hitchance)
			{
				TakeDamage(damage,ob);
				return;
			}
		}
	}

	return;
}



/*
============================================================================

							DR. GOLDSTERN STATES & ROUTINES

============================================================================
*/

void A_Beep(objtype *obj);
void A_Laugh(objtype *obj);
void A_WarpIn(objtype *obj);
void A_WarpOut(objtype *obj);
void T_GoldMorph(objtype *obj);


extern statetype s_goldstand;

extern statetype s_goldpath1;
extern statetype s_goldpath1s;
extern statetype s_goldpath2;
extern statetype s_goldpath3;
extern statetype s_goldpath3s;
extern statetype s_goldpath4;

extern statetype s_goldpain;

extern statetype s_goldshoot1;
extern statetype s_goldshoot2;
extern statetype s_goldshoot3;
extern statetype s_goldshoot4;
extern statetype s_goldshoot5;
extern statetype s_goldshoot6;
extern statetype s_goldshoot7;		// Add Line

extern statetype s_goldchase1;
extern statetype s_goldchase1s;
extern statetype s_goldchase2;
extern statetype s_goldchase3;
extern statetype s_goldchase3s;
extern statetype s_goldchase4;

extern statetype s_goldwarp_it;
extern statetype s_goldwarp_it1;
extern statetype s_goldwarp_it2;
extern statetype s_goldwarp_it3;
extern statetype s_goldwarp_it4;
extern statetype s_goldwarp_it5;

extern statetype s_goldwarp_out1;
extern statetype s_goldwarp_out2;
extern statetype s_goldwarp_out3;
extern statetype s_goldwarp_out4;
extern statetype s_goldwarp_out5;

extern statetype s_goldwarp_in1;
extern statetype s_goldwarp_in2;
extern statetype s_goldwarp_in3;
extern statetype s_goldwarp_in4;
extern statetype s_goldwarp_in5;

extern statetype s_goldmorphwait1;
extern statetype s_goldmorphwait2;

extern void T_GoldMorphWait(objtype *obj);

statetype s_goldstand 	= {true,SPR_GOLD_S_1,20,T_Stand,NULL,&s_goldpath1};

statetype s_goldpath1 	= {true,SPR_GOLD_W1_1,20,T_Path,NULL,&s_goldpath1s};
statetype s_goldpath1s 	= {true,SPR_GOLD_W1_1,5,NULL,NULL,&s_goldpath2};
statetype s_goldpath2 	= {true,SPR_GOLD_W2_1,15,T_Path,NULL,&s_goldpath3};
statetype s_goldpath3 	= {true,SPR_GOLD_W3_1,20,T_Path,NULL,&s_goldpath3s};
statetype s_goldpath3s 	= {true,SPR_GOLD_W3_1,5,NULL,NULL,&s_goldpath4};
statetype s_goldpath4 	= {true,SPR_GOLD_W4_1,15,T_Path,NULL,&s_goldpath1};

statetype s_goldpain 	= {0,SPR_GOLD_PAIN_1,15,NULL,NULL,&s_goldchase1};

statetype s_goldshoot1 	= {false,SPR_GOLD_SHOOT1,20,NULL,NULL,&s_goldshoot2};
statetype s_goldshoot2 	= {false,SPR_GOLD_SHOOT2,20,NULL,T_Shoot,&s_goldshoot3};
statetype s_goldshoot3 	= {false,SPR_GOLD_SHOOT3,10,NULL,T_Shade,&s_goldshoot4};
statetype s_goldshoot4 	= {false,SPR_GOLD_SHOOT2,10,NULL,T_Shoot,&s_goldshoot5};
statetype s_goldshoot5 	= {false,SPR_GOLD_SHOOT3,10,NULL,T_Shade,&s_goldshoot6};
statetype s_goldshoot6 	= {false,SPR_GOLD_SHOOT2,10,NULL,T_Shoot,&s_goldshoot7};
statetype s_goldshoot7 	= {false,SPR_GOLD_SHOOT3,10,NULL,T_Shade,&s_goldchase1};

statetype s_goldchase1 	= {true,SPR_GOLD_W1_1,10,T_Chase,NULL,&s_goldchase1s};
statetype s_goldchase1s	= {true,SPR_GOLD_W1_1,3,NULL,NULL,&s_goldchase2};
statetype s_goldchase2 	= {true,SPR_GOLD_W2_1,8,T_Chase,NULL,&s_goldchase3};
statetype s_goldchase3 	= {true,SPR_GOLD_W3_1,10,T_Chase,NULL,&s_goldchase3s};
statetype s_goldchase3s	= {true,SPR_GOLD_W3_1,3,NULL,NULL,&s_goldchase4};
statetype s_goldchase4 	= {true,SPR_GOLD_W4_1,8,T_Chase,NULL,&s_goldchase1};

statetype s_goldwarp_it		= {false,SPR_GOLD_S_1,45,NULL,A_Laugh,&s_goldwarp_it1};
statetype s_goldwarp_it1	= {false,SPR_GOLD_WRIST_1,25,NULL,NULL,&s_goldwarp_it2};
statetype s_goldwarp_it2	= {false,SPR_GOLD_WRIST_2,25,NULL,A_Beep,&s_goldwarp_it3};
statetype s_goldwarp_it3	= {false,SPR_GOLD_WRIST_1,15,NULL,NULL,&s_goldwarp_it4};
statetype s_goldwarp_it4	= {false,SPR_GOLD_WRIST_2,25,NULL,A_Beep,&s_goldwarp_it5};
statetype s_goldwarp_it5	= {false,SPR_GOLD_S_1,15,NULL,NULL,&s_goldwarp_out1};

statetype s_goldwarp_out1	= {false,SPR_GOLD_WARP1,30,NULL,A_WarpOut,&s_goldwarp_out2};
statetype s_goldwarp_out2	= {false,SPR_GOLD_WARP2,30,NULL,NULL,&s_goldwarp_out3};
statetype s_goldwarp_out3	= {false,SPR_GOLD_WARP3,30,NULL,NULL,&s_goldwarp_out4};
statetype s_goldwarp_out4	= {false,SPR_GOLD_WARP4,30,NULL,NULL,&s_goldwarp_out5};
statetype s_goldwarp_out5	= {false,SPR_GOLD_WARP5,40,NULL,NULL,NULL};

statetype s_goldwarp_in1	= {false,SPR_GOLD_WARP5,15,NULL,A_WarpIn,&s_goldwarp_in2};
statetype s_goldwarp_in2	= {false,SPR_GOLD_WARP4,15,NULL,NULL,&s_goldwarp_in3};
statetype s_goldwarp_in3	= {false,SPR_GOLD_WARP3,15,NULL,NULL,&s_goldwarp_in4};
statetype s_goldwarp_in4	= {false,SPR_GOLD_WARP2,15,NULL,NULL,&s_goldwarp_in5};
statetype s_goldwarp_in5	= {false,SPR_GOLD_WARP1,15,NULL,NULL,&s_goldpath1};

statetype s_goldmorphwait1	= {false, SPR_GOLD_WRIST_1, 10, NULL, T_GoldMorphWait, &s_goldmorphwait1};

statetype s_goldmorph1		= {false, SPR_GOLD_MORPH1, 10, NULL, NULL, &s_goldmorph2};
statetype s_goldmorph2		= {false, SPR_GOLD_MORPH2, 10, NULL, NULL, &s_goldmorph3};
statetype s_goldmorph3		= {false, SPR_GOLD_MORPH3, 10, NULL, NULL, &s_goldmorph4};
statetype s_goldmorph4		= {false, SPR_GOLD_MORPH4, 10, NULL, NULL, &s_goldmorph5};
statetype s_goldmorph5		= {false, SPR_GOLD_MORPH5, 10, NULL, NULL, &s_goldmorph6};
statetype s_goldmorph6		= {false, SPR_GOLD_MORPH6, 10, NULL, NULL, &s_goldmorph7};
statetype s_goldmorph7		= {false, SPR_GOLD_MORPH7, 10, NULL, NULL, &s_goldmorph8};
statetype s_goldmorph8		= {false, SPR_GOLD_MORPH8, 10, NULL, T_GoldMorph, &s_mgold_chase1};

statetype s_mgold_chase1 	= {false,SPR_MGOLD_WALK1, 10, T_Chase,NULL,&s_mgold_chase2};
statetype s_mgold_chase2 	= {false,SPR_MGOLD_WALK2,  8, NULL,NULL,&s_mgold_chase3};
statetype s_mgold_chase3 	= {false,SPR_MGOLD_WALK3, 10, T_Chase,NULL,&s_mgold_chase4};
statetype s_mgold_chase4 	= {false,SPR_MGOLD_WALK4,  8, NULL,NULL,&s_mgold_chase1};

statetype s_mgold_shoot1 	= {false,SPR_MGOLD_ATTACK1, 10, NULL,NULL,&s_mgold_shoot2};
statetype s_mgold_shoot2 	= {false,SPR_MGOLD_ATTACK2, 20, NULL,NULL,&s_mgold_shoot3};
statetype s_mgold_shoot3 	= {false,SPR_MGOLD_ATTACK3, 14, T_Shoot,NULL,&s_mgold_shoot4};
statetype s_mgold_shoot4 	= {false,SPR_MGOLD_ATTACK4, 12, T_Shade,NULL,&s_mgold_chase1};

statetype s_mgold_pain 		= {false,SPR_MGOLD_OUCH,  25, NULL,NULL,&s_mgold_chase1};


boolean noShots = false;
int morphWaitTime;

//--------------------------------------------------------------------------
// T_GoldMorphWait
//--------------------------------------------------------------------------
void T_GoldMorphWait(objtype *obj)
{
	morphWaitTime -= tics;
	if (morphWaitTime < 0)
		NewState(obj,&s_goldmorph1);
}

//--------------------------------------------------------------------------
// T_GoldMorph
//--------------------------------------------------------------------------
void T_GoldMorph(objtype *obj)
{
	obj->speed = ALIENSPEED<<2;
	obj->ammo = ALIENAMMOINIT;
	obj->flags |= FL_PROJ_TRANSPARENT|FL_NO_SLIDE|FL_SHOOTABLE|FL_SOLID;
	obj->flags2 = FL2_BFGSHOT_SOLID|FL2_BFG_SHOOTABLE;
	obj->hitpoints = starthitpoints[gamestate.difficulty][en_gold_morph];
	obj->obclass = gold_morphobj;

	noShots = false;
}

//--------------------------------------------------------------------------
// A_Laugh() - Plays a Goldstern Laugh Sound
//--------------------------------------------------------------------------
void A_Laugh(objtype *obj)
{
	PlaySoundLocActor(GOLDSTERNLAUGHSND,obj);
}

//--------------------------------------------------------------------------
// A_WarpIn() - Plays a warp Sound
//--------------------------------------------------------------------------
void A_WarpIn(objtype *obj)
{
	PlaySoundLocActor(WARPINSND,obj);
}
//--------------------------------------------------------------------------
// A_WarpOut() - Plays a warp Sound
//--------------------------------------------------------------------------
void A_WarpOut(objtype *obj)
{
	PlaySoundLocActor(WARPOUTSND,obj);
}

//--------------------------------------------------------------------------
// A_Beep() - Plays a Beep Sound
//--------------------------------------------------------------------------
void A_Beep(objtype *obj)
{
	PlaySoundLocActor(ELEV_BUTTONSND,obj);
}


//--------------------------------------------------------------------------
// InitGoldsternInfo()
//--------------------------------------------------------------------------
void InitGoldsternInfo(void)
{
	_fmemset(&GoldsternInfo,0,sizeof(GoldsternInfo));
	GoldsternInfo.LastIndex = GOLDIE_MAX_SPAWNS;
}




//===========================================================================
//
//
//							RED FLASHING SECURITY LAMPS
//
//
//===========================================================================



void T_FlipShape (objtype *obj)
{
	if (obj->flags & FL_ALERTED)
   {
   	if (obj->temp1 ^= 1)
      	obj->lighting = LAMP_ON_SHADING;
      else
      	obj->lighting = 0;
   }
}

statetype s_security_light 	= {false,SPR_SECURITY_NORMAL,20,T_Security,T_FlipShape,&s_security_light};


//---------------------------------------------------------------------------
// T_Security()
//---------------------------------------------------------------------------
void T_Security(objtype *obj)
{

	if (!(obj->flags & FL_ALERTED))
		if(alerted && areabyplayer[obj->areanumber])
			obj->flags |= FL_ALERTED;
}






//==========================================================================
//
//
//             			GROUND & FLOATING SCOUT ROUTINES
//
//
//==========================================================================

void A_Scout_Alert(objtype *obj);
void T_PainThink(objtype *obj);

extern statetype s_scout_path1;
extern statetype s_scout_path1s;
extern statetype s_scout_path2;
extern statetype s_scout_path3;
extern statetype s_scout_path3s;
extern statetype s_scout_path4;

extern statetype s_scout_pain;
extern statetype s_scout_pain2;

extern statetype s_scout_run;
extern statetype s_scout_run1s;
extern statetype s_scout_run2;
extern statetype s_scout_run3;
extern statetype s_scout_run3s;
extern statetype s_scout_run4;

extern statetype s_scout_dead;

statetype s_scout_stand 	= {true,SPR_GSCOUT_W1_1-SPR_GSCOUT_W1_1,20,T_Stand,NULL,&s_scout_stand};

statetype s_scout_path1 	= {true,SPR_GSCOUT_W1_1-SPR_GSCOUT_W1_1,15,T_Path,NULL,&s_scout_path1};
statetype s_scout_path2 	= {true,SPR_GSCOUT_W2_1-SPR_GSCOUT_W1_1,15,T_Path,NULL,&s_scout_path2};
statetype s_scout_path3 	= {true,SPR_GSCOUT_W3_1-SPR_GSCOUT_W1_1,15,T_Path,NULL,&s_scout_path3};
statetype s_scout_path4 	= {true,SPR_GSCOUT_W4_1-SPR_GSCOUT_W1_1,15,T_Path,NULL,&s_scout_path4};

statetype s_scout_run 		= {true,SPR_GSCOUT_W1_1-SPR_GSCOUT_W1_1,10,T_Chase,NULL,&s_scout_run};
statetype s_scout_run2 		= {true,SPR_GSCOUT_W2_1-SPR_GSCOUT_W1_1,10,T_Chase,NULL,&s_scout_run2};
statetype s_scout_run3 		= {true,SPR_GSCOUT_W3_1-SPR_GSCOUT_W1_1,10,T_Chase,NULL,&s_scout_run3};
statetype s_scout_run4 		= {true,SPR_GSCOUT_W4_1-SPR_GSCOUT_W1_1,10,T_Chase,NULL,&s_scout_run4};

statetype s_scout_dead 	= {false,SPR_GSCOUT_W1_1-SPR_GSCOUT_W1_1,20,NULL,NULL,&s_scout_dead};


//---------------------------------------------------------------------------
// T_Scout_Alert()
//---------------------------------------------------------------------------
void A_Scout_Alert(objtype *obj)
{
	PlaySoundLocActor(SCOUT_ALERTSND,obj);
	MakeAlertNoise(obj);
}


//---------------------------------------------------------------------------
// T_ExplodeScout()
//---------------------------------------------------------------------------
void T_ExplodeScout(objtype *obj)
{
	SpawnExplosion(obj->x+0x4000+(US_RndT()<<5),obj->y+0x4000+(US_RndT()<<5));
	SpawnExplosion(obj->x-0x4000-(US_RndT()<<5),obj->y+0x4000+(US_RndT()<<5));
	SpawnExplosion(obj->x-0x4000-(US_RndT()<<5),obj->y-0x4000-(US_RndT()<<5));
	SpawnExplosion(obj->x+0x4000+(US_RndT()<<5),obj->y-0x4000-(US_RndT()<<5));
}

//---------------------------------------------------------------------------
// T_ExplodeDamage()
//---------------------------------------------------------------------------
void T_ExplodeDamage(objtype *obj)
{
  ExplodeRadius(obj,EXPLODE_DAMAGE, true);
}

#if GAME_VERSION != SHAREWARE_VERSION
//---------------------------------------------------------------------------
// T_PainThink()
//---------------------------------------------------------------------------
void T_PainThink(objtype *obj)
{
	int full_hp = starthitpoints[gamestate.difficulty][obj->obclass-rentacopobj];

	if (obj->hitpoints > (full_hp>>1)+(full_hp>>2))
	{
		//	 Orginal HitPoints
		//

		switch (obj->obclass)
		{
			case floatingbombobj:
				NewState(obj,&s_scout_run);
				break;

			case volatiletransportobj:
				NewState(obj,&s_scout_path1);
				break;
		}
	}
	else
	if (obj->hitpoints > (full_hp>>1))
	{
		//	3/4 Orginal HitPoints
		//

		switch (obj->obclass)
		{
			case floatingbombobj:
				NewState(obj,&s_scout_run2);
				break;

			case volatiletransportobj:
				NewState(obj,&s_scout_path2);
				break;
		}
	}
	else
	if (obj->hitpoints > (full_hp>>2))
	{
		//	1/2 Orginal HitPoints
		//

		switch (obj->obclass)
		{
			case floatingbombobj:
				NewState(obj,&s_scout_run3);
				break;

			case volatiletransportobj:
				NewState(obj,&s_scout_path3);
				break;
		}
	}
	else
	{
		//	1/4 Orginal HitPoints
		//

		switch (obj->obclass)
		{
			case floatingbombobj:
				NewState(obj,&s_scout_run4);
				break;

			case volatiletransportobj:
				NewState(obj,&s_scout_path4);
				break;
		}
	}
}
#endif

//==========================================================================
//
//          					EXPLOSION STUFF
//
//==========================================================================

//-------------------------------------------------------------------------
// SpawnCusExplosion() - Spawns an explosion at a given x & y.
//-------------------------------------------------------------------------
void SpawnCusExplosion(fixed x, fixed y, unsigned StartFrame, unsigned NumFrames, unsigned Delay, unsigned Class)
{
	int tilex=x>>TILESHIFT, tiley=y>>TILESHIFT;

	usedummy = nevermark = true;
	SpawnNewObj(tilex,tiley,&s_ofs_smart_anim);
	usedummy = nevermark = false;
	new->x = x;
	new->y = y;
	new->flags = FL_OFFSET_STATES|FL_NONMARK|FL_NEVERMARK;
	new->obclass = Class;
   new->lighting = NO_SHADING;
	InitAnim(new,StartFrame,0,NumFrames,at_ONCE,ad_FWD,(US_RndT()&0x7),Delay);
	A_DeathScream(new);
	MakeAlertNoise(new);
}


//---------------------------------------------------------------------------
// T_SpawnExplosion()
//---------------------------------------------------------------------------
void T_SpawnExplosion(objtype *obj)
{
	SpawnCusExplosion(obj->x,obj->y,SPR_EXPLOSION_1,4,4,explosionobj);
}

//==========================================================================
//
//          					STEAM OBJECT STUFF
//
//==========================================================================
void T_SteamObj(objtype *obj);

extern statetype s_steamrelease1;
extern statetype s_steamrelease2;
extern statetype s_steamrelease3;
extern statetype s_steamrelease4;
extern statetype s_steamrelease5;
extern statetype s_steamrelease6;

statetype s_steamgrate		= {false,0,1,T_SteamObj,NULL,&s_steamgrate};

statetype s_steamrelease1	= {false,1,1,NULL,A_DeathScream,&s_steamrelease2};
statetype s_steamrelease2	= {false,2,14,NULL,NULL,&s_steamrelease3};
statetype s_steamrelease3	= {false,3,14,NULL,NULL,&s_steamrelease4};
statetype s_steamrelease4	= {false,2,14,NULL,NULL,&s_steamrelease5};
statetype s_steamrelease5	= {false,3,14,NULL,NULL,&s_steamrelease6};
statetype s_steamrelease6	= {false,4,16,NULL,NULL,&s_steamgrate};

//-------------------------------------------------------------------------
// T_SteamObj()
//-------------------------------------------------------------------------
void T_SteamObj(objtype *obj)
{
	if (obj->flags & FL_VISABLE)
	{
		if ((obj->temp2-=tics) <= 0)
		{
			NewState(obj,&s_steamrelease1);
			obj->temp2 = US_RndT()<<3;				// Up to 34 Seconds
		}
		else
			obj->temp2 -= tics;
	}
}





//===========================================================================

/*
===============
=
= CheckPosition
=
===============
*/

boolean	CheckPosition (objtype *ob)
{
	int	x,y,xl,yl,xh,yh;
	objtype *check;

	xl = (ob->x-PLAYERSIZE) >>TILESHIFT;
	yl = (ob->y-PLAYERSIZE) >>TILESHIFT;

	xh = (ob->x+PLAYERSIZE) >>TILESHIFT;
	yh = (ob->y+PLAYERSIZE) >>TILESHIFT;

	//
	// check for solid walls
	//
	for (y=yl;y<=yh;y++)
		for (x=xl;x<=xh;x++)
		{
			check = actorat[x][y];
			if (check && check<objlist)
				return false;
		}

	return true;
}



//===========================================================================
//
//
//								HANGING TERROT GUN
//
//
//===========================================================================


extern statetype s_terrot_wait;

extern statetype s_terrot_shoot1;
extern statetype s_terrot_shoot2;
extern statetype s_terrot_shoot3;
extern statetype s_terrot_shoot4;

extern statetype s_terrot_seek1;
extern statetype s_terrot_seek1s;

extern statetype s_terrot_die1;
extern statetype s_terrot_die2;
extern statetype s_terrot_die3;
extern statetype s_terrot_die4;
extern statetype s_terrot_die5;



statetype s_terrot_wait		= {true,SPR_TERROT_1,1,T_Seek,NULL,&s_terrot_wait};
statetype s_terrot_found	= {false,SPR_TERROT_1,0,T_Seek,NULL,&s_terrot_found};

statetype s_terrot_shoot1 	= {false,SPR_TERROT_FIRE_1,10,NULL,T_Shoot,&s_terrot_shoot2};
statetype s_terrot_shoot2 	= {false,SPR_TERROT_FIRE_2,20,NULL,T_Shade,&s_terrot_shoot3};
statetype s_terrot_shoot3 	= {false,SPR_TERROT_FIRE_1,10,NULL,T_Shoot,&s_terrot_shoot4};
statetype s_terrot_shoot4 	= {false,SPR_TERROT_FIRE_2,20,NULL,T_Shade,&s_terrot_seek1};

statetype s_terrot_seek1 	= {true,SPR_TERROT_1,10,T_Seek,NULL,&s_terrot_seek1s};
statetype s_terrot_seek1s 	= {true,SPR_TERROT_1, 3,  NULL,NULL,&s_terrot_seek1};

statetype s_terrot_die1		= {false,SPR_TERROT_DIE_1,15,NULL,A_DeathScream,&s_terrot_die2};
statetype s_terrot_die2		= {false,SPR_TERROT_DIE_2,15,NULL,         NULL,&s_terrot_die3};
statetype s_terrot_die3		= {false,SPR_TERROT_DIE_3,15,NULL,         NULL,&s_terrot_die4};
statetype s_terrot_die4		= {false,SPR_TERROT_DIE_4,15,NULL,         T_Shade,&s_terrot_die5};


statetype s_terrot_die5		= {false,SPR_TERROT_DEAD ,0,NULL,         NULL,&s_terrot_die5};


//============================================================================
//
//											  SEEK
//
//============================================================================



//---------------------------------------------------------------------------
// T_Seek() - Will rotate an object (not moving) until seeing it is able
//				  to see the player in the facing direction.
//
// NOTE : This may change so that it will seek for any object.
//---------------------------------------------------------------------------
void T_Seek(objtype *ob)
{
	#define MAX_VIS_DIST		15

	long move;
	int	dx,dy,dist,chance;
	boolean	target_found;

	target_found = false;


	if (((player->tilex != ob->tilex) || (player->tiley != ob->tiley)) &&		// Can you see
		CheckView(ob,player) && (!PlayerInvisable))
	{
		dx = ob->tilex - player->tilex;
      dx = LABS(dx);
		dy = ob->tiley - player->tiley;
      dy = LABS(dy);

      if (dy < MAX_VIS_DIST && dx < MAX_VIS_DIST)
      {
			dist = dx>dy ? dx : dy;

			if (!dist || (dist==1 && ob->distance<0x4000))
				chance = 300;
			else
				chance = US_RndT()/dist;

			if (US_RndT()<chance)
			{
				NewState(ob,&s_terrot_shoot1);
            return;
			}
			target_found = true;
		}
   }

	if	(!(ob->flags & FL_STATIONARY))
	{
		if (target_found)
		{
			NewState(ob,&s_terrot_found);
		}
		else
		if ((ob->temp2-=tics)<=0)
		{
			NewState(ob,&s_terrot_seek1);

			ob->dir++;
			ob->temp2 = SEEK_TURN_DELAY;
			if (ob->dir == nodir)
				ob->dir = east;
		}
	}
}

//---------------------------------------------------------------------------
// SpawnProjectile()
//---------------------------------------------------------------------------
void SpawnProjectile(objtype *shooter, classtype class)
{
	short angle_adj = 0;
	unsigned temp=0;
	fixed x,y;

	x = shooter->x;
	y = shooter->y;

	usedummy=nevermark = true;
	switch (class)
	{
		case spider_mutantshotobj:
		case acid_dragonshotobj:
		case final_boss4shotobj:
			SpawnNewObj(x>>TILESHIFT,y>>TILESHIFT,&s_ofs_random);
			PlaySoundLocActor(SPITATTACKSND,new);
			new->speed = SPDPROJ;
			angle_adj = 1-(US_RndT()&3);
			new->temp1 = BossShotShapes[class-spider_mutantshotobj];
			new->flags = FL_OFFSET_STATES|FL_PROJ_CHECK_TRANSPARENT|FL_STORED_OBJPTR;
			new->temp3 = (unsigned)shooter;
		break;

		case mut_hum1shotobj:
		case goldmorphshotobj:
		case electroshotobj:
		case final_boss2shotobj:
			SpawnNewObj(x>>TILESHIFT,y>>TILESHIFT,&s_ofs_shot1);
			PlaySoundLocActor(ELECTSHOTSND,new);
			new->speed = SPDPROJ;
			angle_adj = 1-(US_RndT()&3);
			new->temp1 = SPR_ELEC_SHOT1;
			new->flags = FL_OFFSET_STATES|FL_PROJ_CHECK_TRANSPARENT|FL_STORED_OBJPTR;
			new->temp3 = (unsigned)shooter;
			switch (class)
			{
				case final_boss2shotobj:
				case goldmorphshotobj:
					new->temp1 = SPR_MGOLD_SHOT1;

				case electroshotobj:
					new->lighting = NO_SHADING;
			}
		break;

		case lcanshotobj:
		case podshotobj:
			temp = SPR_SPIT3_1-SPR_SPIT1_1;

		case scanshotobj:
		case dogshotobj:
			SpawnNewObj(x>>TILESHIFT,y>>TILESHIFT,&s_liquid_shot);
			PlaySoundLocActor(SPITATTACKSND,new);
			new->temp2 = SPR_SPIT1_1+temp;
			new->flags = FL_OFFSET_STATES|FL_PROJ_CHECK_TRANSPARENT|FL_STORED_OBJPTR;
			new->speed = SPDPROJ+US_RndT();
			angle_adj = 2-(US_RndT() % 5);
			new->temp3 = (unsigned)shooter;
		break;

		case liquidshotobj:
			SpawnNewObj(x>>TILESHIFT,y>>TILESHIFT,&s_liquid_shot);
			new->temp2 = SPR_LIQUID_SHOT_FLY_1;
			new->flags = FL_OFFSET_STATES|FL_PROJ_CHECK_TRANSPARENT|FL_STORED_OBJPTR;
			new->speed = SPDPROJ+US_RndT();
			angle_adj = 2-(US_RndT() % 5);
			new->s_tilex = new->s_tiley = 0;
			new->temp3 = (unsigned)shooter;
		break;

		case grenadeobj:
			SpawnNewObj(x>>TILESHIFT,y>>TILESHIFT,&s_ofs_random);
			new->speed = SPDPROJ+Random(SPDPROJ>>1);
			new->angle = player->angle+1-(US_RndT() & 3);
			new->temp1 = grenade_shapes[0];
			new->flags = FL_OFFSET_STATES; //|FL_PROJ_CHECK_TRANSPARENT;
			new->lighting = NO_SHADING;		// no shading

			// Store off start tile x & y

			new->s_tilex = x>>TILESHIFT;
			new->s_tiley = y>>TILESHIFT;
		break;

		case bfg_shotobj:
			SpawnNewObj(x>>TILESHIFT,y>>TILESHIFT,&s_ofs_random);
			new->speed = SPDPROJ+Random(SPDPROJ);
			new->angle = player->angle+1-(US_RndT() & 3);
			new->temp1 = SPR_BFG_WEAPON_SHOT2;
			new->flags = FL_OFFSET_STATES;
			new->lighting = NO_SHADING;

			// Store off start tile x & y

			new->s_tilex = x>>TILESHIFT;
			new->s_tiley = y>>TILESHIFT;
		break;

	}

	usedummy=nevermark = false;
	if (new==&dummyobj)
		return;


//	new->flags2 = shooter->flags2 & FL2_CLOAKED;
	new->x=x;
	new->y=y;
	new->active = true;
	new->obclass = class;
	if (class != grenadeobj && class != bfg_shotobj)
		new->angle=CalcAngle(new,player)+angle_adj;

	if (shooter->obclass == gold_morphobj)
		new->angle += morph_angle_adj;

	if (new->angle<=0)
		new->angle+=359;
	else
		if (new->angle>359)
			new->angle-=359;

	new->flags |= (FL_NONMARK|FL_NEVERMARK);

// Move grenade slightly in front of player so you can see instant
// explosions (ie: when you're face up against a wall).
//
	if (class==grenadeobj || class == bfg_shotobj)					  
	{
		long deltax,deltay;

		deltax = FixedByFrac(mindist+(mindist>>3),costable[new->angle]);
		deltay = -FixedByFrac(mindist+(mindist>>3),sintable[new->angle]);

		new->x += deltax;
		new->y += deltay;
	}

//   if (actorat[new->tilex][new->tiley]==new);
//		actorat[new->tilex][new->tiley]=NULL;
}

objtype *proj_check;
unsigned char proj_wall;		

//---------------------------------------------------------------------------
// ProjectileTryMove()
//
//  deltax - 'X' distance to travel
//	 deltay - 'Y' distance to travel
//	 distance - vectoral distance of travel
//
//---------------------------------------------------------------------------
boolean ProjectileTryMove(objtype *ob, fixed deltax, fixed deltay)
{
	#define PROJECTILE_MAX_STEP	PROJWALLSIZE

	unsigned xl,yl,xh,yh,x,y,steps;
	fixed dx, dy;
	short ydist,xdist;

   proj_wall = 0;		
	steps = tics;
	//
	// Move that lil' projectile
	//

	while (steps)
	{
		ob->x+=deltax;
		ob->y+=deltay;

		steps--;

		xl = (ob->x-PROJECTILE_MAX_STEP) >>TILESHIFT;
		yl = (ob->y-PROJECTILE_MAX_STEP) >>TILESHIFT;

		xh = (ob->x+PROJECTILE_MAX_STEP) >>TILESHIFT;
		yh = (ob->y+PROJECTILE_MAX_STEP) >>TILESHIFT;


	// Check for solid walls and actors.
	//

		for (y=yl;y<=yh;y++)
			for (x=xl;x<=xh;x++)
			{
#pragma warn -pia
				if (proj_check = actorat[x][y])
#pragma warn +pia
					if (proj_check < objlist)
					{
						if (proj_check == (objtype *)1 && tilemap[x][y] == 0)
						{
							// We have a static!
							//
							// Test for collision radius using CENTER of static
							// NOT tile size boundries

							ydist = (y<<TILESHIFT)+0x7FFF - ob->y;
							ydist = ABS(ydist);

							xdist = (x<<TILESHIFT)+0x7FFF - ob->x;
							xdist = ABS(xdist);

							if ((unsigned)xdist < PROJCHECKSIZE && (unsigned)ydist < PROJCHECKSIZE)
							{
								proj_check=false;
                        proj_wall = NULL;
								ob->tilex = ob->x>>TILESHIFT;
								ob->tiley = ob->y>>TILESHIFT;
								return(false);
                     }

            	   }
               	else
                  {
							// We have a wall!

                     proj_wall = (unsigned char)proj_check;	 
							proj_check=false;
			            ob->tilex = ob->x>>TILESHIFT;
	   		         ob->tiley = ob->y>>TILESHIFT;
							return(false);
                  }
					}
					else
					if (proj_check < &objlist[MAXACTORS])
					{
						if ((ob->flags & FL_PROJ_CHECK_TRANSPARENT) && (proj_check->flags & FL_PROJ_TRANSPARENT))
							break;
						else
							if (proj_check->flags & FL_SOLID)
							{
				            ob->tilex = ob->x>>TILESHIFT;
				            ob->tiley = ob->y>>TILESHIFT;
								return(false);
							}
					}
			}
   }

	return(true);
}

//--------------------------------------------------------------------------
// T_Projectile()
//--------------------------------------------------------------------------
void T_Projectile(objtype *ob)
{
	long	deltax,deltay;
	int	damage;
	long	speed;
	objtype *attacker;

// Move this object.
//
	speed = ob->speed;

	deltax = FixedByFrac(speed,costable[ob->angle]);
	deltay = -FixedByFrac(speed,sintable[ob->angle]);

//	ob->x += deltax;
//	ob->y += deltay;

// Did movement hit anything solid.
//
#pragma warn -rch

	proj_check=false;

	if (!ProjectileTryMove (ob,deltax,deltay))
	{
		switch (ob->obclass)
		{
			case spider_mutantshotobj:
				InitSmartSpeedAnim(ob,SPR_BOSS1_EXP1,0,2,at_ONCE,ad_FWD,5);
				return;
			break;

			case acid_dragonshotobj:
				InitSmartSpeedAnim(ob,SPR_BOSS5_EXP1,0,2,at_ONCE,ad_FWD,5);
				return;
			break;

			case mut_hum1shotobj:
			case electroshotobj:						// Explode on walls
				InitSmartSpeedAnim(ob,SPR_ELEC_SHOT_EXP1,0,1,at_ONCE,ad_FWD,5+(US_RndT()&3));
				return;
			break;

         case final_boss2shotobj:
         case goldmorphshotobj:
				InitSmartSpeedAnim(ob,SPR_MGOLD_SHOT_EXP1,0,1,at_ONCE,ad_FWD,5+(US_RndT()&3));
         	return;
         break;

         case final_boss4shotobj:
				InitSmartSpeedAnim(ob,SPR_BOSS10_SPIT_EXP1,0,1,at_ONCE,ad_FWD,5+(US_RndT()&3));
         	return;
         break;

			case lcanshotobj:						// Explode on walls
			case podshotobj:
				InitSmartSpeedAnim(ob,SPR_SPIT_EXP3_1,0,2,at_ONCE,ad_FWD,5+(US_RndT()&3));
				return;
			break;

			case scanshotobj:						// Explode on walls
			case dogshotobj:
				InitSmartSpeedAnim(ob,SPR_SPIT_EXP1_1,0,2,at_ONCE,ad_FWD,5+(US_RndT()&7));
				return;
			break;


			case liquidshotobj:						// Explode on walls
				InitSmartSpeedAnim(ob,SPR_LIQUID_SHOT_BURST_1,0,2,at_ONCE,ad_FWD,5+(US_RndT()&7));
				return;
			break;

			case grenadeobj:
				// Hit actor - Hurt 'Em!
				if (proj_check)
				{
					if (proj_check->flags & FL_SHOOTABLE)
						DamageActor(proj_check,GR_DAMAGE,ob);
				}

				//
				// Start Anim, Sound, and mark as exploded...
				//

				ob->obclass = gr_explosionobj;
				InitSmartSpeedAnim(ob,SPR_EXPLOSION_1,0,4,at_ONCE,ad_FWD,3+(US_RndT()&7));
				A_DeathScream(ob);
				return;
			break;


			case bfg_shotobj:

#if BFG_SHOT_STOPS
				//
				// Check to see if a collison has already occured at this
				// tilex and tiley
				//
				if (ob->s_tilex == ob->tilex && ob->s_tiley == ob->tiley)
					return;

				ob->s_tilex = ob->tilex;
				ob->s_tilex = ob->tilex;
#endif

				if (proj_wall & 0x80)
					TryBlastDoor(proj_wall & (~0x80));

				if (proj_check)
				{
					// Hit actor - Hurt 'Em!

					if (proj_check->flags2 & FL2_BFG_SHOOTABLE)
					{
						// Damage that actor

						DamageActor(proj_check, BFG_DAMAGE>>1, ob);  // bfg_damage>>3

						// Stop on actors that you don't kill.

					}

#if BFG_SHOT_STOPS
					if (proj_check->flags2 & FL2_BFGSHOT_SOLID)
						goto BlowIt;

					if (proj_check->flags & FL_DEADGUY)
						return;
#endif
				}


BlowIt:
				//
				// Start Anim, Sound, and mark as exploded...
				//
				ob->obclass = bfg_explosionobj;
				InitAnim(ob,SPR_BFG_EXP1,0,7,at_ONCE,ad_FWD,(US_RndT()&7),5);
				A_DeathScream(ob);
				return;
			break;
		}
	}
#pragma warn +rch

// Determine if object hit player.
//
	if (ob->obclass != grenadeobj && ob->obclass != bfg_shotobj)	 
	{
	// Determine distance from player.
	//
		deltax = ob->x - player->x;
		deltax = LABS(deltax);
		deltay = ob->y - player->y;
		deltay = LABS(deltay);

		if (deltax < PROJECTILESIZE && deltay < PROJECTILESIZE)
		{
			deltax =  FixedByFrac(PROJECTILESIZE, costable[ob->angle]);
			deltay = -FixedByFrac(PROJECTILESIZE, sintable[ob->angle]);

			ob->x -= deltax;
			ob->y -= deltay;

   	   if (ob->flags & FL_STORED_OBJPTR)
      		attacker = (objtype *)ob->temp3;
	      else
   	   	attacker = ob;

			switch (ob->obclass)
			{
				case mut_hum1shotobj:
				case electroshotobj:
					damage = (US_RndT() >>5);
					InitSmartSpeedAnim(ob,SPR_ELEC_SHOT_EXP1,0,1,at_ONCE,ad_FWD,3+(US_RndT()&7));
				break;

	         case final_boss4shotobj:
					damage = (US_RndT()>>4);
					InitSmartSpeedAnim(ob,SPR_BOSS10_SPIT_EXP1,0,1,at_ONCE,ad_FWD,3+(US_RndT()&3));
	         break;

	         case goldmorphshotobj:
            case final_boss2shotobj:
					damage = (US_RndT()>>4);
					InitSmartSpeedAnim(ob,SPR_MGOLD_SHOT_EXP1,0,1,at_ONCE,ad_FWD,5+(US_RndT()&7));
         	break;

				case lcanshotobj:
				case podshotobj:
					damage = (US_RndT()>>4);
					InitSmartSpeedAnim(ob,SPR_SPIT_EXP3_1,0,2,at_ONCE,ad_FWD,5+(US_RndT()&7));
				break;

				case scanshotobj:
				case dogshotobj:
					damage = (US_RndT()>>4);
					InitSmartSpeedAnim(ob,SPR_SPIT_EXP1_1,0,2,at_ONCE,ad_FWD,5+(US_RndT()&7));
				break;

				case liquidshotobj:
					damage = (US_RndT()>>4);
					InitSmartSpeedAnim(ob,SPR_LIQUID_SHOT_BURST_1,0,2,at_ONCE,ad_FWD,5+(US_RndT()&7));
				break;

				case spider_mutantshotobj:
					damage = (US_RndT()>>4);
					InitSmartSpeedAnim(ob,SPR_BOSS1_EXP1,0,2,at_ONCE,ad_FWD,5+(US_RndT()&7));
				break;

				case acid_dragonshotobj:
					damage = (US_RndT()>>4);
					InitSmartSpeedAnim(ob,SPR_BOSS5_EXP1,0,2,at_ONCE,ad_FWD,5+(US_RndT()&7));
				break;
			}

			TakeDamage (damage,attacker);
			return;
		}
	}

// Align tile coordinates on boundaries.
//
	ob->tilex = ob->x >> TILESHIFT;
	ob->tiley = ob->y >> TILESHIFT;
}



#define EX_RADIUS				2					// Tiles out from center

char ff_buffer[EX_RADIUS*2+1][EX_RADIUS*2+1];
short ff_damageplayer,ff_damage;
objtype *ff_obj;

void ExplodeFill(char tx, char ty);

//---------------------------------------------------------------------------
// ExplodeRadius()
//---------------------------------------------------------------------------
void ExplodeRadius(objtype *obj, short damage, boolean damageplayer)
{
	int xl,yl,xh,yh,y,x;

//
// Did this object start out in a wall?
//
   if (tilemap[obj->tilex][obj->tiley])
   	return;

// Setup globals to minimize parameter passing while recursing!
//
	ff_obj = obj;
	ff_damage = damage;

// Check to see if play is a Baby and should not be hurt by explosions,
// except from actors that use explosions for attacks (IE. PerScan Drones).
//
   if (gamestate.difficulty > gd_baby || obj->obclass == floatingbombobj)
		ff_damageplayer = damageplayer;
   else
		ff_damageplayer = false;


#if 0

// Back actor out of wall...
//
// This "back actor out" code was my first thought on how to pull it out...
// Might be better to remove "while" loop and just do some tile alignment
// calculations... At any rate, this code is hardly ever executed -- when
// it is, it only runs through the "while" 2-3 times.
//
	obj->angle -= ANGLES/2;
	if (obj->angle < 0)
		obj->angle += ANGLES;

	if (tilemap[obj->tilex][obj->tiley]&63)
	{
		long deltax,deltay;

		deltax = FixedByFrac(obj->speed/2,costable[obj->angle]);
		deltay = -FixedByFrac(obj->speed/2,sintable[obj->angle]);

		while (tilemap[obj->tilex][obj->tiley]&63)
		{
			obj->x += deltax;
			obj->y += deltay;

			obj->x &= 0x3fffff;
			obj->y &= 0x3fffff;

			obj->tilex = obj->x>>TILESHIFT;
			obj->tiley = obj->y>>TILESHIFT;
		}
	}

// Start flood-fill explosion!
//
#endif

	ff_obj = obj;
	memset(ff_buffer,0,sizeof(ff_buffer));
	ExplodeFill(obj->tilex,obj->tiley);
   ExplodeStatics(obj->tilex,obj->tiley);
}

//---------------------------------------------------------------------------
// ExplodeFill()
//---------------------------------------------------------------------------
void ExplodeFill(char tx, char ty)
{
	char bx=tx-ff_obj->tilex+EX_RADIUS,
		  by=ty-ff_obj->tiley+EX_RADIUS,
		  door,no_wall;

	statobj_t *statobj;

// Damage actors on this spot!
//
	if (ff_damageplayer && tx == player->tilex && ty == player->tiley)
		TakeDamage(EXPLODE_DAMAGE,ff_obj);
	else
	{
		proj_check = actorat[tx&63][ty&63];

		if ((proj_check >= objlist) && (proj_check < &objlist[MAXACTORS]))
		{
			if ((proj_check->flags & FL_SHOOTABLE))
				switch (proj_check->obclass)
				{
				// Detinate all floating bombs & VMTs
				//
					case floatingbombobj:
					case volatiletransportobj:
						DamageActor(proj_check,500,ff_obj);
					break;

				// Hanging turrets are not effected by
				// concussion weapons.
				//
					case hang_terrotobj:
               case arc_barrierobj:
               case post_barrierobj:
               case vpost_barrierobj:
               case vspike_barrierobj:
					break;

				//
				// Test for Level completion object
				//
					case rotating_cubeobj:
						if (ff_obj->obclass == pd_explosionobj)
						{
							proj_check->lighting = EXPLOSION_SHADING;
							proj_check->flags &= ~(FL_SOLID|FL_SHOOTABLE);
							InitSmartSpeedAnim(proj_check,SPR_CUBE_EXP1,0,8,at_ONCE,ad_FWD,5);
							PlaySoundLocActor(EXPLODE1SND,proj_check);

							// Unlock Next floor

							gamestuff.level[gamestate.mapon+1].locked=false;
							gamestate.key_floor=gamestate.mapon+1;
						}
					break;

				//
				// Plasma/Fision Detonators (already armed)
				//
					case plasma_detonatorobj:
						if (ff_obj == player ||										// Player shot it with gun
							ff_obj->tilex == tx && ff_obj->tiley == ty)	 	// Direct Hit with grenade
							DamageActor(proj_check,1,ff_obj);
						else
							DamageActor(proj_check,20,ff_obj);					// An explosion has started a chain reaction
					break;


				// Everyone else gets the shit kicked
				// out of them...
				//
					default:
						if (!(proj_check->flags2 & FL2_CLOAKED))
							SpawnFlash(proj_check->x,proj_check->y);
						DamageActor(proj_check,ff_damage,ff_obj);
					break;
				}
		}
	}

// Mark spot as exploded!
//
	ff_buffer[bx][by] = 1;

// Explode to the EAST!
//
	bx += 1;
	tx += 1;

	door = tilemap[tx][ty];
	if (door & 0x80)
		no_wall = doorobjlist[door&0x7f].action != dr_closed;
	else
		no_wall = !tilemap[tx][ty];

	if ((!ff_buffer[bx][by]) && (no_wall) && (bx <= EX_RADIUS*2))
		ExplodeFill(tx,ty);

// Explode to the WEST!
//
	bx -= 2;
	tx -= 2;

	door = tilemap[tx][ty];
	if (door & 0x80)
		no_wall = doorobjlist[door&0x7f].action != dr_closed;
	else
		no_wall = !tilemap[tx][ty];

	if ((!ff_buffer[bx][by]) && (no_wall) && (bx >= 0))
		ExplodeFill(tx,ty);

// Explode to the SOUTH!
//
	bx++;
	tx++;
	by += 1;
	ty += 1;

	door = tilemap[tx][ty];
	if (door & 0x80)
		no_wall = doorobjlist[door&0x7f].action != dr_closed;
	else
		no_wall = !tilemap[tx][ty];

	if ((!ff_buffer[bx][by]) && (no_wall) && (by <= EX_RADIUS*2))
		ExplodeFill(tx,ty);

// Explode to the NORTH!
//
	by -= 2;
	ty -= 2;

	door = tilemap[tx][ty];
	if (door & 0x80)
		no_wall = doorobjlist[door&0x7f].action != dr_closed;
	else
		no_wall = !tilemap[tx][ty];

	if ((!ff_buffer[bx][by]) && (no_wall) && (by >= 0))
		ExplodeFill(tx,ty);
}

//---------------------------------------------------------------------------
// CalcAngle() - Calculates angle from 1st object to 2nd object.
//---------------------------------------------------------------------------
int CalcAngle(objtype *from_obj, objtype *to_obj)
{
	long deltax,deltay,from_x,from_y,to_x,to_y;
	float angle;
	int iangle;

	from_x = from_obj->x;
	from_y = from_obj->y;

	to_x = to_obj->x;
	to_y = to_obj->y;

	// Calculate deltas from "from_obj" to "to_obj".
	//

	deltax = to_x - from_x;
	deltay = from_y - to_y;

   if (!(deltax|deltay))
   	return(1);

   // Calc Arc Tan from Obj1 to Obj2 - Returns radians

	angle = atan2 (deltay,deltax);

	if (angle<0)
		angle = M_PI*2+angle;
//	else
//		if (!angle)
//   		angle = 1;

	// Convert rads to degs

	iangle = angle/(M_PI*2)*ANGLES;

	return(iangle);
}

#if 0

//--------------------------------------------------------------------------
// CalcDistance() - Calculates the distance from coords #1 to coords #2
//--------------------------------------------------------------------------
unsigned CalcDistance(unsigned x1, unsigned y1, unsigned x2, unsigned y2)
{
	int norm_dx,norm_dy;

	norm_dx = x2-x1;
	norm_dy = y1-y2;

	return(IntSqrt((norm_dx * norm_dx) + (norm_dy * norm_dy)));
}


#pragma warn -rvl
//--------------------------------------------------------------------------
// IntSqrt()
//--------------------------------------------------------------------------
int IntSqrt(long va)
{
asm     mov     AX, word ptr va
asm     mov     DX, word ptr va+2
asm     mov     bx,dx           // {bx = integer square root of dx:ax}
asm     or      bx,ax           // {if dx:ax=0 then return}
asm     jz      isq01

asm     mov     bx,dx
asm     shl     bx,1
asm     or      bl,ah
asm     or      bl,al
asm     dec     bx
asm     add     bx,dx           // { initial guess}
asm     jg      isq10
asm     inc     bx              // { don't return zero}
asm     jg      isq10
asm     mov     bx,7fffh
isq01:;
		  goto    exitrout;

isq10:;
asm     push    ax
asm     push    dx

asm     div     bx
asm     sub     ax,bx
asm     cmp     ax,1
asm     jbe     isq90
asm     cmp     ax,-1
asm     jae     isq90
asm     sar     ax,1
asm     add     bx,ax
asm     pop     dx
asm     pop     ax
asm     jmp     isq10
isq90:;

asm     pop     dx
asm     pop     ax
exitrout:;
asm     mov     ax,bx
}
#pragma warn +rvl


#endif

//--------------------------------------------------------------------------
// T_BlowBack()
//--------------------------------------------------------------------------
void T_BlowBack(objtype *obj)
{
	#define SLIDE_SPEED		 0x2000

   unsigned dist_table[] = {0x1000,		//	wp_autocharge,
									 0x2000,		//	wp_pistol,
									 0x3000,		//	wp_burst_rifle,
									 0x4000,		//	wp_ion_cannon,
									 0x5000,		// wp_grenade,
	};

	long	deltax,deltay;
   unsigned angle,dist;
   objtype *killer;

	if (obj->flags & FL_NO_SLIDE)
		return;

	if (!(obj->flags & FL_SLIDE_INIT))
   {
   	// Check for NULL ptr

   	killer = (objtype *)SLIDE_TEMP(obj);
      if (!killer)
      {
	   	obj->flags |= FL_NO_SLIDE;
   		return;
      }

	   obj->angle = CalcAngle(killer,obj);

	   if ((killer = (objtype *)SLIDE_TEMP(obj)) == player)
		   SLIDE_TEMP(obj) = dist_table[gamestate.weapon];
	   else
		   SLIDE_TEMP(obj) = dist_table[wp_grenade];

      obj->flags |= FL_SLIDE_INIT;
   }


   if (SLIDE_TEMP(obj) > SLIDE_SPEED)
   {
   	dist = SLIDE_SPEED;
      SLIDE_TEMP(obj) -= SLIDE_SPEED;
   }
   else
   {
   	dist = SLIDE_TEMP(obj);
      obj->flags |= FL_NO_SLIDE;		// Stop any more sliding
   }

	deltax =  FixedByFrac(dist, costable[obj->angle]);		// Optomize - Store in actor
	deltay = -FixedByFrac(dist, sintable[obj->angle]);    //

	if (ClipMove(obj,deltax,deltay))
   	obj->flags |= FL_NO_SLIDE;

   obj->tilex = obj->x>>TILESHIFT;
   obj->tiley = obj->y>>TILESHIFT;

	if (obj->flags & FL_NO_SLIDE)
	{
		// Set actor WHERE IT SLID in actorat[], IF there's a door!
		//
			if (tilemap[obj->tilex][obj->tiley] & 0x80)
			{
				actorat[obj->tilex][obj->tiley]=obj;
				obj->flags &= ~FL_NEVERMARK;
			}
	}
}