ZDoom

Code: Select all

ACTOR RazorJack : Weapon replaces chainsaw
{ 
	Weapon.AmmoType2 "Bladeammo" 
	Weapon.AmmoGive2 5
	Weapon.AmmoUse2 1
	+MELEEWEAPON
                    Weapon.SelectionOrder 30
	Inventory.PickupSound "misc/w_pkup" 
	Scale 0.5
	Inventory.PickupMessage "You got a Razor Jack!"
	Obituary "%o was cut down to size by %k's razor jack."
	States 
	{ 
	Spawn: 
	NULL A 0 A_SpawnItem("Bladeammo")
		RR01 A -1 
		Goto Spawn+1
	Ready: 
		RR01 B 1 A_WeaponReady 
		Loop 
	Deselect: 
		RR01 B 1 A_Lower 
		NULL AA 0 A_LOWER
		Loop 
	Select: 
		RR01 B 1 A_Raise
		NULL AA 0 A_RAISE
		Loop
	Fire:
		RR01 IJKLX 1
		Hold:
		RR01 A 0 A_PlaySound("weapons/sawrevup") 
		RR01 YMNOPQRSTUVWZ 1 A_CustomPunch(2, 0, 0, "SawPuff", 100)
		SAW3 G 0 A_PlaySound("weapons/sawrevdown")
		RR01 XLKJI 1
		NULL A 0 A_ReFire
		Goto Ready
		Hold:
		RR01 A 0 A_PlaySound("weapons/sawful2")
		RR02 ABC 1 A_CustomPunch(2, 0, 0, "SawPuff", 100)
		SAW3 G 0 A_PlaySound("weapons/sawrevdown")
		NULL A 0 A_ReFire
		Goto ready
	AltFire: 
		RR01 B 3 A_PlayWeaponSound("gun/razor")
		RR01 B 0 A_FireCustomMissile("Blade", 0, 1, 0, 5)
		RR01 CDEF 1 ACS_Execute(851,0,7,random(-4,4),0)
		RR01 EDC 1 ACS_Execute(851,0,-7,random(-4,4),0)
		RR01 JH 3
		RR01 D 0 A_ReFire 
		goto Ready 
	} 
}