pump-action shotgun decorate

//SHOTGUN

ACTOR NewShotgun : Weapon
{
  Game Doom
  Weapon.SelectionOrder 1300
  Decal BulletChip
  scale 0.6
  Weapon.AmmoUse 1
  Weapon.AmmoGive2 8
  Weapon.AmmoType "ShotgunLoaded"
  Weapon.AmmoType2 "AliensShell"
  Inventory.PickupMessage "$GOTSHOTGUN"
  Obituary "$OB_MPSHOTGUN"
  +Weapon.noautofire
  +NOALERT
  +Weapon.Ammo_Optional
  States
  {
  Ready:
    SHTG A 1
	PUMP A 1 A_PlaySound("SHTGREL")
	PUMP BCDEFEDCBA 1
	SHTG A 2
    goto RealReady
	RealReady:
	SHTG A 1 A_WeaponReady(WRF_ALLOWRELOAD)
	TNT1 A 0
	Loop
  Deselect:
    SHTG A 1 A_Lower
    Loop
  Select:
    SHTG A 1 A_Raise
    Loop
	Dryfire:
	SHTG A 2 A_PlayWeaponSound("DEAGLE")
	Goto Reload
  Fire:
    TNT1 A 0 A_JumpIfNoAmmo("Dryfire")
	TNT1 A 0 A_PlayWeaponSound("PULSLOOP")
    TNT1 A 0 A_AlertMonsters
	TNT1 A 0 A_TakeInventory("ShotgunLoaded", 1)
	TNT1 A 0 Radius_Quake (1, 2, 0, 1, 0)
	SHTF A 1
    TNT1 A 0 BRIGHT A_FireBullets(4, 4, 10, 16, "CustomPuff1", FBF_NORANDOM)
	SHTF B 1 Bright A_Light(5)
	TNT1 A 0 A_GunFlash
	SHTG BCDEA 2
	SHTG A 6
    Goto Ready
		Reload:
  SHTG A 0 A_JumpIfInventory("ShotgunLoaded", 8, 1)
  SHTG A 0 A_JumpIfInventory("AliensShell", 1, "ReloadWork")
  SHTG A 0
  Goto RealReady
  ReloadWork:
  SHTR ABCDE 1
  ReloadLoop:
    SHTR F 1
	TNT1 A 0 A_TakeInventory("AliensShell", 1)
    SHTR F 1 Offset(0,35)
    SHTR F 1 Offset(0,38)
    SHTR F 1 Offset(0,40) A_PlaySound("SHELLIN")
    SHTR F 1 Offset(0,44) A_GiveInventory("ShotgunLoaded", 1)
	SHTR F 1 Offset(0,44) A_WeaponReady
	SHTR F 1 Offset(0,40) A_WeaponReady
    SHTR F 1 Offset(0,38) A_WeaponReady
    SHTR F 1 Offset(0,35) A_WeaponReady
    SHTR F 1 Offset(0,32) A_WeaponReady
	TNT1 A 0 A_JumpIfInventory("ShotgunLoaded", 8, "ReloadFinish")
    TNT1 A 0 A_JumpIfInventory("AliensShell", 1, "ReloadLoop")
    Goto ReloadFinish
	ReloadFinish:
	SHTG BCDEA 2 A_WeaponReady
	Goto Ready
  Flash:
    TNT1 A 0 Bright A_Light1
    TNT1 B 0 Bright A_Light2
    Goto LightDone
  Spawn:
    SHOT A -1
    Stop
  }
}

ACTOR ShotgunLoaded : Ammo
{
   Inventory.Icon SHELA0
   Inventory.MaxAmount 8
   Ammo.BackpackMaxAmount 8
}