Incredible Shrinking Zombieman

//ShrinkRay
ACTOR ZombieManx Replaces Zombieman
{
  Health 20
  Radius 20
  Height 56
  Speed 8
  PainChance 200
  PainChance "Shrink", 255
  PainChance "Boot", 255
  Monster
  +FLOORCLIP
  SeeSound "grunt/sight"
  AttackSound "grunt/attack"
  PainSound "grunt/pain"
  DeathSound "grunt/death"
  ActiveSound "grunt/active"
  Obituary "$OB_ZOMBIE" // "%o was killed by a zombieman."
  DropItem "Clip"
  States
  {
  Spawn:
    POSS AB 10 A_Look
    Loop
  See:
    POSS AABBCCDD 4 A_Chase
    Loop
  Missile:
    TNT1 A 0 A_Jumpifinventory("ShrunkInv", 1, "Pain")
    POSS E 10 A_FaceTarget
    POSS F 8 A_PosAttack
    POSS E 8
    Goto See
  Pain:
    POSS G 3
    POSS G 3 A_Pain
    Goto See
  Pain.Shrink:
    POSS G 1 A_SetScale(0.5)
	POSS G 0 A_GiveInventory ("ShrunkInv", 1)
	POSS G 0 A_ChangeFlag ("FRIGHTENED", TRUE)
	POSS G 0 A_ChangeFlag ("THRUACTORS", TRUE)
    POSS G 3 A_Pain
	Goto See
  Pain.Boot:
    TNT1 A 0 A_Jumpifinventory("ShrunkInv", 0, "Pain")
	Goto XDeath
  Death:
    TNT1 A 0 A_Jumpifinventory("ShrunkInv", 1, "XDeath")
    POSS H 5
    POSS I 5 A_Scream
    POSS J 5 A_NoBlocking
    POSS K 5
    POSS L -1
    Stop
  XDeath:
    POSS M 5
    POSS N 5 A_XScream
    POSS O 5 A_NoBlocking
    POSS PQRST 5
    POSS U -1
    Stop
  Raise:
    POSS K 5
    POSS JIH 5
    Goto See
  }
}