
// ------------------------------------------------------------
//   Babuin
// ------------------------------------------------------------

ACTOR Babuin replaces Demon
{
	Health 90
	Radius 16
	Height 29
	DeathHeight 14
	Scale 0.6
	Translation "16:47=27:47"
	Speed 16
	Mass 70
	Damage 3
	MeleeDamage 3
	MeleeRange 40
	PainChance 90
	MONSTER
	+FLOORCLIP
	+SHADOW
	+FASTER
	maxtargetrange 128//512
	SeeSound "demon/sight"
	PainSound "demon/pain"
	DeathSound "demon/death"
	ActiveSound "demon/active"
	Obituary "%o was mauled by a babuin."
	damagefactor "Thermal", 0.76
	damagefactor "SmallArms0", 0.9
	States
	{
	Spawn:
		SARG AABB 4 A_Look
		Loop
	See:
		SARG AABBCCDD 2 A_Chase
		TNT1 A 0 A_Jump (240, 2)
		TNT1 A 0 A_AlertMonsters
		TNT1 A 0 HealThing (random(2,12))
		TNT1 A 0 A_JumpIfTargetInLOS ("See")
		goto Roam
	Roam:
		TNT1 A 0 A_Jump (160, "See")
		TNT1 A 0 A_JumpIfTargetInLOS ("See")
		Goto See
		SARG AABBCCDD 2 A_Wander
		TNT1 AAAA 0 A_Chase("Melee","Missile",16)
		TNT1 A 0 A_Jump (120, 2)
		TNT1 A 0 A_AlertMonsters
		TNT1 A 0 HealThing (random(2,8))
		Loop
	Melee:
		SARG E 0 A_FaceTarget
		SARG E 7 A_PlaySound ("demon/melee")
		SARG F 0 A_FaceTarget
		SARG F 6 A_Recoil (-8)
		SARG G 0 A_MeleeAttack
		SARG G 8 A_MeleeAttack
		goto See
	Missile:
		//TNT1 A 0 A_JumpIfHealthLower(36, "Shoot")
		//TNT1 A 0 A_JumpIfCloser (128, "Pounce")
		//Goto See
	Pounce:
		SARG DE 3 A_FaceTarget
		SARG E 3 A_PlaySound ("demon/sight")
		SARG EEEEEE 0 A_SkullAttack
		SARG F 16 ThrustThingZ (0, random(8,24), 0, 1)
		goto Fly
	Fly:
		SARG F 1 A_CheckFloor (1)
		loop
		SARG F 4
		SARG E 4
		SARG H 4 A_Stop
		SARG A 6
		Goto See
	Shoot:
		SARG H 4
		SARG E 6 A_FaceTarget
		SARG F 6
		SARG F 5 A_CustomMissile ("BaleBall", 17, 0, random(-2,2))
		SARG E 6
		Goto See
	Pain:
		SARG H 2
		SARG H 6 A_Pain
		Goto Missile
	Death:
		TNT1 A 0 A_GivetoTarget("HDKillCount",1)
		TNT1 A 0 ACS_ExecuteAlways(558,0,0,1,13)
		SARG I 5 A_Die
		SARG J 5 A_SpawnItemEx ("tempshield2", 0,0,0, velx,vely,velz, 0,40)
		SARG K 5 A_Scream
		SARG L 5 A_Fall
		SARG M 5
		SARG N -1
		Stop
	Raise:
		SARG NMLKJI 5
		Goto See
	}
}