Sorry for the bad English ability.
Code: Select all
CTOR KellyPistol : DoomWeapon replaces pistol
{
Weapon.SelectionOrder 1900
Weapon.AmmoUse 1
Weapon.AmmoGive 20
Weapon.AmmoType "Clip"
Weapon.SlotNumber 2
Obituary "You've been killed with Kelly's Pistols"
+WEAPON.WIMPY_WEAPON
Inventory.Pickupmessage "You picked up Kelly's Pistols"
Tag "Kellys_Pistols"
+NOAUTOFIRE
States
{
Ready:
PPPR A 0 A_Overlay(2, "RightReady")
PPPL A 1 A_WeaponReady
Loop
RightReady:
PPPR A 1
Loop
RightSelect:
PPPR A 1 A_Raise
Stop
Deselect:
PPPL A 1 A_Lower
Loop
Select:
PPPR A 0 A_Overlay(2, "RightSelect")
PPPL A 1 A_Raise
Loop
Fire:
PPPL A 2
PPPL B 1
{
A_FireBullets (1, 0, 5, 50, "BulletPuff");
A_PlaySound("weapons/pap", CHAN_WEAPON);
A_GunFlash;
}
PPPL CD 1
PPPL DB 2 A_WeaponReady
PPPL A 2
Goto Ready
Altfire:
PPPL A 11 A_Overlay(2, "RightFire")
Goto Ready
RightFire:
PPPR A 2
PPPR B 1
{
A_FireBullets (1, 0, 5, 50, "BulletPuff");
A_PlaySound("weapons/pap", CHAN_WEAPON);
A_GunFlash("Flash2");
}
PPPR CD 1
PPPR DB 2 A_WeaponReady
PPPR A 2
Goto RightReady
Flash:
PPFL A 1 Bright A_Light1
Goto LightDone
PPFL A 1 Bright A_Light1
Goto LightDone
Flash2:
PPFR A 1 Bright A_Light1
Goto LightDone
PPFR A 1 Bright A_Light1
Goto LightDone
}
}
The code isn't actually finished yet.