DSG Decorate so far

ACTOR "Double-Barreled Coach Gun" : Weapon
{
	Weapon.AmmoGive 20
	Weapon.AmmoType "ShotShells"
	Weapon.AmmoUse1 1
	Weapon.AmmoUse2 1
	// Weapon.BobRangeX 0.5
	// Weapon.BobRangeY 0.2
	// Weapon.BobSpeed 2
	// Weapon.BobStyle "Default"
	Weapon.Kickback 400
	Weapon.SelectionOrder 400
	Weapon.SlotNumber 3
	Weapon.SlotPriority 0.5
	Weapon.UpSound "weapons/select"
	DamageType "Shotgun.Double"
	Decal Bulletchip
	Obituary "%o \c-was hunted down by %k ."
	Tag "Double-Barreled Coach Gun"
	+WEAPON.NOAUTOAIM
	States
	{
		Ready:
			SHT2 A 1 A_WeaponReady
			Loop
		Select:
			TNT1 A 0 ACS_ExecuteAlways(800,0,321)

			SHT2 AAAA 0 A_Raise
			SHT2 A 1 A_Raise
			Goto Select+1
		Deselect:
			SHT2 A 0 A_TakeInventory("FiredOnce.3-2")

			SHT2 AAAA 0 A_Lower
			SHT2 A 1 A_Lower
			Goto Deselect+1
		Fire:
			SHT2 A 0 A_JumpIfInventory("VersusModeOn",1,"FireVersus")

			SHT2 A 0 A_JumpIfInventory("ShotShells",2,1)
			Goto AltFire
			SHT2 A 0 A_JumpIfInventory("FiredOnce.3-2",1,"ReloadStart")

			SHT2 A 0 A_FireBullets(1200/100.0,720/100.0,7,Random(12,20),"BulletPuff",FBF_USEAMMO|FBF_NORANDOM)
			SHT2 A 0 A_FireBullets(1200/100.0,720/100.0,7,Random(12,20),"BulletPuff",FBF_USEAMMO|FBF_NORANDOM)
			SHT2 A 0 ACS_ExecuteAlways(842,0,2)
			SHT2 A 0 A_PlaySound("weapons/ashotf",CHAN_WEAPON)
			SHT2 A 1 A_GunFlash
			SHT2 A 1 Offset(0,50)
			SHT2 A 1 Offset(0,56)
			SHT2 A 1 Offset(0,54)
			SHT2 A 1 Offset(0,50)
			SHT2 A 1 Offset(0,44)
			SHT2 A 1 Offset(0,38)
			SHT2 A 1 Offset(0,34)
			SHT2 A 1 Offset(0,32)			// 9 Tics
			Goto ReloadStart
		AltFire:
			SHT2 A 0 A_JumpIfInventory("VersusModeOn",1,"AltFireVersus")

			SHT2 A 0 A_FireBullets(1200/100.0,720/100.0,7,Random(12,20),"BulletPuff",FBF_USEAMMO|FBF_NORANDOM)
			SHT2 A 0 ACS_ExecuteAlways(842,0,1)
			SHT2 A 0 A_PlaySound("weapons/ashotf",CHAN_WEAPON)
			SHT2 A 1 A_GunFlash
			SHT2 A 1 Offset(0,41)
			SHT2 A 1 Offset(0,44)
			SHT2 A 1 Offset(0,43)
			SHT2 A 1 Offset(0,41)
			SHT2 A 1 Offset(0,38)
			SHT2 A 1 Offset(0,35)
			SHT2 A 1 Offset(0,33)
			SHT2 A 1 Offset(0,32)

			SHT2 A 0 A_JumpIfInventory("FiredOnce.3-2",1,"ReloadStart")
			SHT2 A 0 A_GiveInventory("FiredOnce.3-2",1)
			SHT2 A 0 A_Refire
			Goto Ready
		ReloadStart:
			SHT2 A 0 A_JumpIfInventory("VersusModeOn",1,"ReloadStartVersus")

			SHT2 BC 5
			SHT2 D 5 A_PlaySound("weapons/sshoto",CHAN_WEAPON)

			SHT2 KE 4
			SHT2 F 4 A_PlaySound("weapons/sshot1",CHAN_WEAPON)
			SHT2 F 0 A_JumpIfInventory("ShotShells",2,2)
			Goto ReloadEnd

			SHT2 F 0 A_JumpIfInventory("FiredOnce.3-2",1,"ReloadEnd")
			SHT2 F 0 A_GiveInventory("FiredOnce.3-2",1)
			Goto ReloadStart+3				// 39 tics

		ReloadEnd:
			SHT2 F 0 A_JumpIfInventory("VersusModeOn",1,"ReloadEndVersus")

			SHT2 G 0 A_TakeInventory("FiredOnce.3-2")
			SHT2 GH 5
			SHT2 A 4 A_GiveInventory("Subtic.3-2",7)
			SHT2 A 0 A_JumpIfInventory("Subtic.3-2",14,2)
			SHT2 A 1
			Goto Ready
			SHT2 A 0 A_TakeInventory("Subtic.3-2",14)
			SHT2 A 0 A_ReFire
			Goto Ready
		Flash:
			SHT2 I 1 Bright A_Light2
			Goto LightDone
		/* Create Script 842, then test single player Decorate before adding versus variants */
	}
}

/* Insert Subtic and FiredOnce Attachments here */