herp

actor PyroSuccubus 30014
{
  //$Category Monsters
  //$Title "Pyro Succubus"
  spawnid 165
  Obituary "A pyrosuccubus was too hot for %o."
  health 1000
  radius 16
  height 50
  mass 200
  speed 65
  Scale 0.95
  MissileType FireBall1
    DamageFactor ice,2
  DamageFactor Fire,0
  painchance 65
    seesound "pyr/sight"
    painsound "pyr/pain"
    deathsound "pyr/death"
    activesound "pyr/active"
	RENDERSTYLE TRANSLUCENT
  MONSTER
  +NOTARGET
  +FLOORCLIP
  +DONTHURTSPECIES
  Species "Succubus"
   States
   {
   Spawn:
      SUC1 AB 10 Bright A_Look
      Loop
   See:
       TNT1 A 0 A_ChangeFlag("FLOAT",0)
       TNT1 A 0 A_ChangeFlag("NOGRAVITY",0)
       TNT1 A 0 A_ChangeFlag("DROPOFF",0)
       SUC1 AA 3 Bright A_Chase
       SUC1 A 0 Bright A_SpawnItemEx("WalkFire1",0,0,0,1,0,0,0,128)
       SUC1 BB 3 Bright A_Chase
       SUC1 B 0 Bright A_SpawnItemEx("WalkFire1",0,0,0,1,0,0,0,128)
       SUC1 CC 3 Bright A_Chase
       SUC1 C 0 Bright A_SpawnItemEx("WalkFire1",0,0,0,1,0,0,0,128)
       SUC1 DD 3 Bright A_Chase
       SUC1 D 0 Bright A_SpawnItemEx("WalkFire1",0,0,0,1,0,0,0,128)
       SUC1 A 0 A_Jump(32,"Grav")
       Loop
    Grav:
	   TNT1 A 0 A_JumpIf( Z + 300 + 100 >= CeilingZ, "See")
       TNT1 A 0 A_ChangeFlag("NOGRAVITY",1)
       TNT1 A 0 A_ChangeFlag("DROPOFF",1)
       TNT1 A 0 A_ChangeFlag("FLOAT",1)
       Goto Fly
    Fly:
       SUFY AA 4 BRIGHT ThrustThingZ(0,15,0,0)
       SUFY AABBCCDD 2 BRIGHT
       Goto Hover
    Land:
       SUFY AA 4 BRIGHT ThrustThingZ(0,-20,0,0)
       SUFY A 1 BRIGHT A_CheckFloor("See")
       SUFY AABBCCDD 2 BRIGHT
       SUFY A 1 BRIGHT A_CheckFloor("See")
       Goto Hover
    Hover:
       SUFY AABBCCDD 2 BRIGHT A_Chase (0, "MissileF")
       SUFY A 0 BRIGHT A_Jump(64,"Fly")
       SUFY A 0 BRIGHT A_Jump(32,"Land")
       Loop
	Missile:
		TNT1 A 0 A_Jump(85, "TripleShot")
		Goto QuadrupleShot
	QuadrupleShot:
	   SUC1 E 8 Bright A_FaceTarget
       SUC1 F 8 Bright A_FaceTarget
       SUC1 G 8 Bright A_ComboAttack
       SUC1 E 8 Bright A_FaceTarget
       SUC1 F 8 Bright A_FaceTarget
	   SUC1 G 0 Bright A_PlaySound("pyr/laugh",CHAN_VOICE)
       SUC1 G 0 Bright A_Custommissile ("FireBall1", 27, 0, 8)
       SUC1 G 0 Bright A_ComboAttack
       SUC1 G 8 Bright A_Custommissile ("FireBall1", 27, 0, -8)
	   SUC1 E 8 Bright
       Goto See
	TripleShot:
       SUC1 E 8 Bright A_FaceTarget
       SUC1 F 8 Bright A_FaceTarget
	   SUC1 G 0 Bright A_PlaySound("pyr/laugh",CHAN_VOICE)
       SUC1 G 0 Bright A_Custommissile ("FireBall1", 27, 0, 8)
       SUC1 G 0 Bright A_ComboAttack
       SUC1 G 8 Bright A_Custommissile ("FireBall1", 27, 0, -8)
	   SUC1 E 8 Bright
       Goto See
	MissileF:
		TNT1 A 0 A_Jump(85, "TripleShotF")
		Goto QuadrupleShotF
	QuadrupleShotF:
	   SUFY E 8 Bright A_FaceTarget
       SUFY F 8 Bright A_FaceTarget
       SUFY G 8 Bright A_ComboAttack
       SUFY E 8 Bright A_FaceTarget
       SUFY F 8 Bright A_FaceTarget
	   SUFY G 0 Bright A_PlaySound("pyr/laugh",CHAN_VOICE)
       SUFY G 0 Bright A_Custommissile ("FireBall1", 27, 0, 8)
       SUFY G 0 Bright A_ComboAttack
       SUFY G 8 Bright A_Custommissile ("FireBall1", 27, 0, -8)
	   SUFY E 8 Bright
       Goto Hover
	TripleShotF:
       SUFY E 8 Bright A_FaceTarget
       SUFY F 8 Bright A_FaceTarget
	   SUFY G 0 Bright A_PlaySound("pyr/laugh",CHAN_VOICE)
       SUFY G 0 Bright A_Custommissile ("FireBall1", 27, 0, 8)
       SUFY G 0 Bright A_ComboAttack
       SUFY G 8 Bright A_Custommissile ("FireBall1", 27, 0, -8)
	   SUFY E 8 Bright
       Goto Hover
   Pain:
       SUC1 L 2 Bright
       SUC1 L 2 Bright A_Pain
       Goto See
   Death:
       SUC1 M 7 Bright
       SUC1 N 7 Bright A_Scream
       SUC1 O 7 Bright
       SUC1 P 7  A_NoBlocking
       SUC1 QRST 7
       SUC1 U -1
       Stop
	Raise:
		SUC1 UTSRQ 8 Bright
		SUC1 P 0 A_PlaySoundEx("pyr/resurrected", 3)
		SUC1 PONM 8 Bright
		Goto See
 	}
}