Immoral Conduct Grenade

ACTOR Player_Thrown_Grenade // 75T fuse
{
  Height 8
  Radius 8
  Speed 16
  Scale 0.6
  ReactionTime 38

  BounceType "Hexen"
  BounceFactor 0.6
  Renderstyle Translucent
  Alpha 1.0

  PROJECTILE
  +THRUACTORS
  +NOEXPLODEFLOOR
  +MOVEWITHSECTOR
  -NOGRAVITY

  SeeSound "weapons/hgren1"
  BounceSound "weapons/hgren3"
  DeathSound "boom"

STATES
  {
  Spawn:
    HGN1 A 2 A_Countdown
    HGN1 A 0 A_JumpIf((z - floorz) > 4, 2)
    HGN1 A 0 A_JumpIf(sqrt((velx*velx) + (vely*vely) + (velz*velz)) < 1, "SpawnAtRest")
    HGN1 B 2 A_Countdown
    HGN1 B 0 A_JumpIf((z - floorz) > 4, 2)
    HGN1 B 0 A_JumpIf(sqrt((velx*velx) + (vely*vely) + (velz*velz)) < 1, "SpawnAtRest")
    HGN1 C 2 A_Countdown
    HGN1 C 0 A_JumpIf((z - floorz) > 4, 2)
    HGN1 C 0 A_JumpIf(sqrt((velx*velx) + (vely*vely) + (velz*velz)) < 1, "SpawnAtRest")
    HGN1 D 2 A_Countdown
    HGN1 D 0 A_JumpIf((z - floorz) > 4, 2)
    HGN1 D 0 A_JumpIf(sqrt((velx*velx) + (vely*vely) + (velz*velz)) < 1, "SpawnAtRest")
    HGN1 E 2 A_Countdown
    HGN1 E 0 A_JumpIf((z - floorz) > 4, 2)
    HGN1 E 0 A_JumpIf(sqrt((velx*velx) + (vely*vely) + (velz*velz)) < 1, "SpawnAtRest")
    HGN1 F 2 A_Countdown
    HGN1 F 0 A_JumpIf((z - floorz) > 4, "Spawn")
    HGN1 F 0 A_JumpIf(sqrt((velx*velx) + (vely*vely) + (velz*velz)) < 1, "SpawnAtRest")
    Loop

  SpawnAtRest:
    HGN1 D 0 A_Stop
    HGN1 D 2 A_Countdown
    Loop

  Death:
    BANG A 0 Bright A_ChangeFlag("NOGRAVITY",1)
	BANG A 0 Bright A_AlertMonsters
    BANG A 0 Bright A_Quake(7,10,0,384)
	NULL A 0 Bright A_SpawnItemEx("GrenadeKaboom",0,0,0,0,0,0,0,SXF_TRANSFERPOINTERS)
    NULL A 0 A_PlaySound("FAREXPL", 3)
    NULL A 2 Bright A_FadeOut(0.064)
    NULL B 0 Bright A_FadeOut(0.064)
    NULL B 2 Bright A_Explode(150)
    NULL C 0 Bright A_FadeOut(0.064)
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment",8,0,frandom(6,26),2,frandom(3,13))
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment2",8,0,frandom(29,49),2,frandom(3,13))
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment",8,0,frandom(51,71),2,frandom(3,13))
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment2",8,0,frandom(73,93),2,frandom(3,13))
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment",8,0,frandom(96,116),2,frandom(3,13))
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment2",8,0,frandom(118,138),2,frandom(3,13))
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment",8,0,frandom(141,161),2,frandom(3,13))
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment2",8,0,frandom(163,183),2,frandom(3,13))
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment",8,0,frandom(186,206),2,frandom(3,13))
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment2",8,0,frandom(208,228),2,frandom(3,13))
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment",8,0,frandom(231,251),2,frandom(3,13))
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment2",8,0,frandom(253,273),2,frandom(3,13))
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment",8,0,frandom(276,296),2,frandom(3,13))
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment2",8,0,frandom(298,318),2,frandom(3,13))
    NULL C 0 Bright A_CustomMissile("Grenade_Fragment",8,0,frandom(321,341),2,frandom(3,13))
    NULL C 1 Bright A_CustomMissile("Grenade_Fragment2",8,0,frandom(343,363),2,frandom(3,13))
    NULL C 1 Bright A_CustomMissile("Explosion_Smoke",0,0,0,2,-85)
    NULL DEFGHIJKLMN 2 Bright A_FadeOut(0.064)
    Stop
  }
}