
ACTOR FreePumpShotgun : Weapon
{
  Weapon.UpSound "doomguy/doomswitch"
  Weapon.SelectionOrder 231
  Weapon.AmmoUse 1
  Weapon.AmmoGive 8
  Weapon.AmmoType "Shell"
  Inventory.PickupMessage "You got the Laser Pump Slug Shotgun! God that's a mouthful."
  Obituary "%o got pumped, this time full of laser."
  Tag "Slug Pump Laser"
  Inventory.RestrictedTo "FreedoomGuyClass"
  States
  {
   Ready:
    PSGS A 1 A_WeaponReady
    Loop
   Deselect:
		PSGS A 1 A_Lower
		TNT1 A 0 A_Lower 
		TNT1 A 0 A_Lower 
		Loop
	Select:
		PSGS A 1 A_Raise
		TNT1 A 0 A_Raise 
		TNT1 A 0 A_Raise 
		Loop
    Fire:
		PSGS A 0 A_FireBullets (0, 0, 1, 100, "FreeLasPuff",FBF_NORANDOM|FBF_USEAMMO)
		PSGS A 0 Bright A_RailAttack(50,0,False,"Red","White",RGF_FULLBRIGHT|RGF_SILENT,1,none,0,0.5,4096,8,2,0.5,"none",random(0,1))		
		PSGS A 0 A_PlaySound ("PumpSG/Fire", CHAN_WEAPON)
		PSGS A 0 A_PlaySound ("PumpSG/Fire", 20,0.3)
		PSGS A 0 A_GunFlash("Modern")
		TNT1 A 0 A_Quake(2, 4, 0, 128, "NOSOUND")
		PSGS A 1 Bright A_GunFlash
		PSGS A 2 Bright A_GunFlash
		PSGS A 2
		PSGS A 0 A_PlaySound ("PumpSG/Cock", 20,0.3)
		PSGS A 3
		PSGS BBCDEF 2 
		PSGS A 0 
		PSGS GG 2
		PSGS FEDCB 2
		PSGS A 1
		PSGS A 5 A_ReFire("StartLag")
		Goto Ready
   Flash:
    PSGF AB 2 Bright A_Light1
    Goto LightDone
    PSGF AB 2 Bright A_Light1
    Goto LightDone
  StartLag:
		PSGS A 3
		Goto Fire
  Modern:
		tnt1 B 1 Bright A_Light1 //Just so I can somehow read this
	TNT1 A 0 A_SetPitch(pitch-1)
		tnt1 B 1 Bright A_Light1
	TNT1 A 0 A_SetPitch(pitch-1)
		tnt1 C 1 Bright A_Light1
	TNT1 A 0 A_SetPitch(pitch+0.5)
		tnt1 C 1 Bright A_Light1
	TNT1 A 0 A_SetPitch(pitch+0.5)
		TNT1 A 1 A_Light1
	TNT1 A 0 A_SetPitch(pitch+0.25)
		TNT1 A 1 A_Light1
	TNT1 A 0 A_SetPitch(pitch+0.25)
		TNT1 A 1 A_Light1
	TNT1 A 0 A_SetPitch(pitch+0.25)
	TNT1 A 1 A_SetPitch(pitch+0.25)
	Goto Lightdone
  }
}

ACTOR FreeLasPuff : bulletpuff
{

  States
  {
  Xdeath:
	TNT1 A 0 Bright A_Explode(56,96,0)
	TNT1 A 0 Bright A_Explode(20,96,XF_HURTSOURCE,1,5)
	PSGI ABCDEF 2 Bright
	Stop
  Death:
    PSGI ABC 2 Bright
    PSGI D 2
    PSGI EF 2
    Stop

  }
}