[Doom] - Shotgun code test

ACTOR SShotgun: Shotgun replaces Shotgun
{
	Weapon.AmmoType "Shell"
	Weapon.SlotNumber 7
	Weapon.AmmoGive 8
	inventory.PickupMessage "Picked up a Shotgun!"
	Tag "Recoil Test SOUDI"
	Weapon.BobStyle Smooth
	Weapon.BobSpeed 3.2
	Weapon.BobRangeX 0.6
	Weapon.BobRangeY 0.2
    Weapon.Kickback 400
	States
	{
		Ready:
			NNSG A 1 A_WeaponReady
		loop

		Select:
		    TNT1 A 0 A_PlaySound("WEAPSWAP",0)
			NNGR C 1 Offset(-90,69)
			NNGR B 1 Offset(-15,52)
			NNGR A 1 Offset(-1,35)
		SelectRaise:
			NNGR A 1 A_Raise
		Loop

		Deselect:
			NNGR A 1 Offset(-1,35)
			NNGR B 1 Offset(-70,60)
			NNGR C 1 Offset(-90,69)
			NNGR C 1 Offset(-155,108)
		DeselectLower:
			NNGR C 0 Offset(-1,0)
			NNGR C 1 A_Lower
		loop

		       //SOUQDI - Fake Recoil Method
		// 13 frames
		Fire: // Shoot, Out, Up - Quake, Down, In
				TNT1 AAAAAAA 0 A_FireCustomMissile("Tracer", random(-2,2), 0, 1, 1, 0, 1)
			NNSF A 0 A_PlaySound("SGFIRE",2,4) //SGFIRE
			NNSG A 0 A_FireCustomMissile("GunSmokeSpawner",0,0,-8,0)
			NNSG A 1
			NNSF A 1 BRIGHT
			NNSF B 1 Offset(0,35)
			NNSF B 0 BRIGHT
			// S
				TNT1 A 0 A_Quake(95,2,0,999,0)
				TNT1 A 0 A_JumpIfInventory("WideRecoil",0,2) //A_Jump(256,2)
				TNT1 A 0 A_Jump(256,3)
			NNSF A 1 BRIGHT A_FireBullets(2.8,2.8,20,2.3,"BulletPuff",1)
				TNT1 A 0 A_Jump(256,2)
			NNSF A 1 BRIGHT A_FireBullets(5.6,0,7,5,"BulletPuff",1)
				TNT1 A 0 Offset(0,60)
			// O
			TNT1 A 0 A_ZoomFactor(0.60)
			// U
			NNSF C 1 A_FireCustomMissile("GunSmokeSpawner",0,0,0,0)
				TNT1 A 0 Offset(0,58)
			// D and I
				TNT1 A 0 A_ZoomFactor(0.80)
			NNSG A 1
				TNT1 A 0 Offset(0,50)
				TNT1 A 0 A_ZoomFactor(0.90)
			NNSG A 1 A_FireCustomMissile("GunSmokeSpawner",0,0,0,0)
				TNT1 A 0 Offset(0,46)
				TNT1 A 0 A_ZoomFactor(1.00)
			NNSG A 1
				TNT1 A 0 Offset(0,42)
			NNSG A 1
				TNT1 A 0 Offset(0,38) A_FireCustomMissile("GunSmokeSpawner",0,0,8,0)
			NNSG A 1 A_FireCustomMissile("GunSmokeSpawner",0,0,0,0)
				TNT1 A 0 Offset(-1,35)
		Goto Pump

		Pump: // 25 frames 0 left
			NNGR BCDEFGH 1
			NNGR I 3
			NNGR J 1
			NNGR K 1 A_PlaySound("SGPUMP",1)
			NNGR LM 1
			TNT1 A 0 A_FireCustomMissile("ShotgunCasingSpawner",0,0,-10,-12)
			NNGR MLKJIHGFEDCB 1
       Goto Ready

	}

}