Actor BFGBALL2
{
Projectile
Radius 12
Height 8
Speed 40
Damage 150
Renderstyle Add
Alpha 0.90
+FORCERADIUSDMG
+FORCEXYBILLBOARD
DeathSound "DSBALL"
Obituary "%o was disintergrated by %k's DFG20K."
States
	{
	Spawn:
		BF64 AB 2 BRIGHT A_SPAWNITEMEX("TRAILBALL")
		LOOP
	Death:
		TNT1 A 0 a_Quake(3,10,0,5000,0)
		TNT1 A 0 A_BFGSPRAY
		BF64 CDEFGH 2 BRIGHT
		stop
	}
}
Actor TRAILBALL
{
Projectile
Radius 12
Height 8
Speed 0
Damage 0
Renderstyle Add
States
	{
	Spawn:
		BF64 ABABABABABABABABABABABABABABABABAB 1 BRIGHT A_FadeOut(0.02)
		STOP
	}
}

ACTOR UACMarineDFG20k : Weapon
{
  Height 20
  Weapon.SelectionOrder 2800
  Weapon.AmmoUse 40
  Weapon.AmmoGive 40
  Weapon.AmmoType "Cell"
  +WEAPON.NOAUTOFIRE
  Inventory.PickupMessage "You got the DFG 20k! The Ultimate messiah!"
  Tag "DFG 20k"
   Inventory.RestrictedTo "UACMarineClass"
  States
  {
 Ready:
  TNT1 A 0 A_PLAYWEAPONSOUND("BFGUP")
    UHBO A 1 OFFSET(9,128)
	UHBO A 1 OFFSET(7,96)
	UHBO A 1 OFFSET(5,72)
	UHBO A 1 OFFSET(3,48)
	UHBO A 1 OFFSET(1,36)
    GOTO READY2
	Ready2:
    UHBO A 1 A_WeaponReady
    Loop
  Deselect:
    UHBO AA 0 A_Lower
	UHBO A 1 A_Lower
    Loop
  Select:
    UHBO AA 0 A_Raise
	UHBO A 0 A_Raise
    Loop
  Fire:
   UHBO A 2
   TNT1 A 0 A_PLAYWEAPONSOUND("BFGCHRG")
   UHBO A 2 OFFSET(-1,32)
   UHBO A 2 OFFSET(1,31)
   UHBO A 2 OFFSET(-2,33)
   UHBO A 2 OFFSET(0,30)
   UHBO A 2 OFFSET(0,32)
   UHBO A 2 OFFSET(0,33)
   UHBO A 2 OFFSET(0,34)
   UHBO A 2 OFFSET(0,35)
   UHBO A 2 OFFSET(0,36)
   UHBO A 2 OFFSET(0,37)
   TNT1 A 0 A_PLAYWEAPONSOUND("BFGFIRE")
   UHBF B 0 A_GUNFLASH
   UHBF B 2 OFFSET(0,37) BRIGHT A_FIRECUSTOMMISSILE("BFGBALL2")
   UHBF B 2 OFFSET(0,39) BRIGHT
   UHBF A 2 OFFSET(0,40) BRIGHT
   UHBO A 2 OFFSET(0,39)
   UHBO A 2 OFFSET(0,37)
   UHBO A 2 OFFSET(0,35)
   UHBO A 2 OFFSET(0,33)
    Goto Ready2

  Spawn:
    UHBO C -1
    Stop
  }
}