ACTOR "Hell Storm BFG" : DoomWeapon Replaces hellstormBFG
{
  Scale 0.85
  Height 20
  Weapon.PreferredSkin "BFG10K-Marine"
  Weapon.SelectionOrder 2880
  Weapon.AmmoType "NewCell"
  Weapon.AmmoUse 30
  Weapon.AmmoGive 120
  Inventory.PickupMessage "You got the Hellstorm BFG!!"
  Inventory.PickupSound "weapons/pickup15k"
  Obituary "%o was trashed and scattered in a Hellstorm by %k's HellStorm BFG."
  Tag "HellStorm BFG"
  +WEAPON.NOAUTOFIRE
  +INVENTORY.UNDROPPABLE
  States
  {
  Spawn:
    HFG2 A -1
    Stop
  Ready:
    TNT1 A 0 A_JumpIfNoAmmo("Ready2")
    TNT1 A 0 A_PlayWeaponSound("weapons/Hbfg10kidle")
    HG2G AAA 1 A_WeaponReady
    HG2G BBB 1 A_WeaponReady
    HG2G CCC 1 A_WeaponReady
    HG2G DDD 1 A_WeaponReady
    Loop
  Ready2:
    TNT1 A 0 A_JumpIfInventory("NewCell",30,"Ready")
    HG2G A 1 A_WeaponReady
	Loop
  Deselect:
  	TNT1 A 0 A_TakeInventory("HandGrenadeAction",1)
	TNT1 A 0 A_TakeInventory("MineAction",1)
	TNT1 A 0 A_TakeInventory("RailgunAction",1)
	TNT1 A 0 A_PlayWeaponSound("weapons/weapondown")
	HG2G A 1 A_Lower
    Goto Deselect+4
  Select:
    TNT1 A 0 A_Playsound("weapons/pickup15k")
    HG2G A 1 A_Raise
    Goto Select+1
  Fire:
    HG2G E 25 A_PlayWeaponSound("weapons/Hcharge10k")
    HG2G F 4
    HG2G GHIJ 1
    Goto Hold
  Hold:
    HG2G J 1 A_GunFlash
    HG2G K 1 
	TNT1 A 0 A_PlaySound("weapons/Hbfg10kfire",6)
	TNT1 A 0 Radius_Quake(12,3,0,1,0)
	HG2G K 1 A_FireCustomMissile ("HSBFG10kShot",0,1)
    HG2G LMNA 1
	TNT1 A 0 A_Refire
    HG2G A 35 A_PlaySound("weapons/Hbfg10kcooldown") 
    Goto Ready
    AltFire:
    HG2G E 25 A_PlayWeaponSound("weapons/Hcharge10k")
    HG2G F 4
    HG2G GHIJ 1
    HG2G J 4 A_GunFlash
    HG2G K 4 
	TNT1 A 0 A_PlaySound("weapons/Hbfg10kfire")
	TNT1 A 0 Radius_Quake(48,3,0,1,0)
	HG2G K 4 A_FireCustomMissile ("HSBFG10kShot",random(2,4),0)
	TNT1 A 0 A_TakeInventory("NewCell",90,TIF_NOTAKEINFINITE)
    TNT1 A 0 A_FireCustomMissile ("HSBFG10kShot",random(-2,-4),0)
    TNT1 A 0 A_FireCustomMissile ("HSBFG10kShot",0,0,0,0,0,random(2,4))
    HG2G L 4
    HG2G M 4 A_PlaySound("weapons/Hbfg10kcooldown") 
    HG2G N 4
    HG2G E 4
    HG2G C 35 A_ReFire
    Goto Ready
  Flash:
    TNT1 A 2 Bright A_Light1
    TNT1 A 2 Bright A_Light2
	TNT1 A 2 Bright A_Light1
    Goto LightDone
  }
}
