Welcome to the ZDoom Forums!

Code: Select all

ACTOR Firearm : Weapon 2415
{
  Weapon.Slotnumber 7
  Weapon.AmmoUse1 1
  Weapon.AmmoGive1 8
  Weapon.AmmoType1 "BulletsInMag"
  Weapon.AmmoUse2 1
  Weapon.AmmoGive2 1
  Weapon.AmmoType2 "Magazine"
  Obituary "$OB_MPPISTOL"
  +WEAPON.NOAUTOFIRE
  +Weapon.NoAlert
  Inventory.Pickupmessage "Picked up a handgun."
  Weapon.BobSpeed 1.5
  Weapon.BobRangeX 0.5
  Weapon.BobRangeY 0.5
  Weapon.BobStyle "alpha"
  Weapon.UpSound "select"
  Decal BulletChip
  States
  {
  Ready:
	1911 A 2
	SHET B 2
	1911 BCDE 2
  Ready2:
    TIRD A 1 A_WeaponReady
    Loop
  Deselect:
	1911 DCB 2
	SHET B 2
	Deselect2:
    1911 A 1 A_Lower
	1911 A 0 A_Lower
    Loop
  Select:
    1911 A 1 A_Raise
	1911 A 0 A_Raise
    Loop
  Fire:
    1911 A 0 A_JumpIfNoAmmo("Click")
	1911 A 0 A_AlertMonsters
    1911 A 0 A_TakeInventory ("BulletsInMag",1)
	1911 F 2 bright A_PlaySound("Gunshot",4,2)
	1911 B 0 A_SetPitch(pitch-3)
    1911 B 0 A_FireBullets(3,3,-1,20,"BulletPuff",0,0)
	1911 G 1 A_SetPitch(pitch+1)
	1911 HH 1 A_SetPitch(pitch+.5)
	1911 II 1 A_SetPitch(pitch+.25)
	TIRD AA 1 A_SetPitch(pitch+.25)
    Goto Ready2
    Click:
	TIRD A 0 A_PlaySound("Empty", 5)
	Goto Ready2
  AltFire:
    1911 ED 2
    1911 CJ 2
	1911 K 2 A_PlaySound("Reload",5)
	1911 A 0 A_TakeInventory("Magazine",1)
	1911 LMN 2
    1911 O 36
    1911 PQR 2
	1911 S 10
	1911 KJCDE 2
    TIRD A 0 A_GiveInventory ("BulletsInMag",8)
    Goto Ready2
  Spawn:
    PIST A -1
    Stop
  }
}

ACTOR BulletsInMag : Ammo 5228
{
  +IGNORESKILL
  Inventory.MaxAmount 8
  Inventory.Icon "CLIPA0"
}

ACTOR Magazine : Ammo 5227
{
  Inventory.PickupMessage "Picked up a spare magazine."
  Inventory.Amount 1
  Inventory.MaxAmount 5
  Inventory.Icon "CLIPA0"
  States
  {
  Spawn:
    CLIP A -1
    Stop
  }
}