Code: Select all
Actor Shotgun : DoomWeapon
{
Weapon.SelectionOrder 1300
Weapon.AmmoUse 1
Weapon.AmmoGive 8
Weapon.AmmoType "Shell"
Inventory.PickupMessage "Received Auto Shotgun"
Tag "$TAG_SHOTGUN"
States
{
Ready:
SHTG A 1 A_WeaponReady
Loop
Deselect:
SHTG A 1 A_Lower
Loop
Select:
SHTG A 1 A_Raise
Loop
Fire:
SHTG A 0 A_PlaySound("weapons/shotgf")
SHTG A 0 A_GunFlash
SHTG A 7 A_FireBullets (5, 0, 4, 6.25, "BulletPuff")
SHTG A 0 A_ReFire
SHTG BC 5
SHTG D 4
SHTG CB 5
SHTG A 3
Goto Ready
Flash:
SHTF A 4 Bright A_Light1
SHTF B 3 Bright A_Light2
Goto LightDone
Spawn:
SHOT A 1
Stop
}
}
Code: Select all
Setslot 3 "AutoShotgun"
Please help.