ACTOR "The Fastest BFG10K Ever" : Weapon
{
  Scale 0.85
  Height 20
  Weapon.PreferredSkin "BFG10K-Marine"
  Weapon.SelectionOrder 2790
  Weapon.AmmoType "NewCell"
  Weapon.AmmoUse 5
  Weapon.AmmoGive 40
  Inventory.PickupMessage "BFG10K"
  Inventory.PickupSound "weapons/pickup15k"
  Obituary "%o was blasted to a crisp by %k's The Fastest BFG10K Ever."
  Tag "The Fastest BFG10K Ever"
  +WEAPON.NOAUTOFIRE
  //+INVENTORY.UNDROPPABLE
  States
  {
  Spawn:
    TFBG A -1
    Stop
  Ready:
    TNT1 A 0 A_JumpIfNoAmmo("Ready2")
    TNT1 A 0 A_PlayWeaponSound("weapons/bfg15kidle")
    PAPA AAA 1 A_WeaponReady
    PAPA BBB 1 A_WeaponReady
    PAPA CCC 1 A_WeaponReady
    PAPA DDD 1 A_WeaponReady
    Loop
  Ready2:
    TNT1 A 0 A_JumpIfInventory("NewCell",5,"Ready")
    PAPA 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_JumpIfNoAmmo("Deselect2")
	TNT1 A 0 A_PlayWeaponSound("weapons/weapondown")
	TNT1 A 0 A_Lower
	PAPA A 1 A_Lower
    Goto Deselect+5	
  Deselect2:
	TNT1 A 0 A_PlayWeaponSound("weapons/weapondown")
	TNT1 A 0 A_Lower
	PAPA A 1 A_Lower
    Goto Deselect2+1		
  Select:
    TNT1 A 0 A_JumpIfNoAmmo("Select2")
    TNT1 A 0 A_Playsound("weapons/pickup15k")
	TNT1 A 0 A_Raise
    PAPA A 1 A_Raise
    Goto Select+2
  Select2:
    TNT1 A 0 A_PlayWeaponSound("weapons/pickup15k")
	TNT1 A 0 A_Raise
    PAPA A 1 A_Raise
    Goto Select2+1	
  Fire:
    PAPA B 1 A_PlayWeaponSound("weapons/charge15k")
    PAPA C 2
    PAPA DEFG 1
    Goto Hold
  Hold:
    PAPA G 0 A_GunFlash
	TNT1 A 0 A_PlaySound("weapons/bfg15kfire")
	PAPA J 1 Radius_Quake(6,3,0,1,0)
	PAPA L 1 Bright A_FireCustomMissile("10KProjectile",Random(100,-100)/100.00,1,0,0,0,Random(100,-100)/100.00)
    PAPA L 1 A_ReFire
    PAPA A 1 A_PlaySound("weapons/bfg15kcooldown")
    Goto Ready
  Flash:
    TNT1 A 2 Bright A_Light1
    TNT1 A 2 Bright A_Light2
	TNT1 A 2 Bright A_Light1
    Goto LightDone
  }
}