not my code but copied from a pk3 file where it works no probs.
Code: Select all
actor myRL : RocketLauncher replaces RocketLauncher
{
Weapon.SlotNumber 5
Weapon.SelectionOrder 350
Weapon.BobStyle Alpha
Weapon.BobRangeX 0.3
Weapon.BobRangeY 0.5
Weapon.BobSpeed 2.0
Weapon.AmmoUse 1
Weapon.AmmoGive 5
Weapon.AmmoType "RocketAmmo"
+AMMO_OPTIONAL
Inventory.PickupMessage "You got the rocket launcher!"
Obituary "%k blew %o up"
states
{
Ready:
MISA A 1 A_WeaponReady
loop
Select:
TNT1 A 0 A_Raise
MISA A 1 A_Raise
loop
Deselect:
TNT1 A 0 A_Lower
MISA A 1 A_Lower
loop
Fire:
TNT1 A 0 A_JumpIfNoAmmo("Ready")
TNT1 A 0 A_PlaySound("weapons/shoot")
TNT1 A 0 A_FireCustomMissile("LGBTRocket",0,1,0,-4)
MISF A 1 Bright A_WeaponReady(WRF_NOFIRE|WRF_NOSWITCH)
TNT1 A 0 A_ZoomFActor(0.990)
TNT1 A 0 A_light1
TNT1 A 0 Radius_Quake(3,2,0,1,0)
TNT1 A 0 A_SetPitch(pitch-0.35)
MISF B 1 Bright A_WeaponReady(WRF_NOFIRE|WRF_NOSWITCH)
TNT1 A 0 A_ZoomFActor(0.980)
TNT1 A 0 A_light2
TNT1 A 0 A_SetPitch(pitch-0.35)
MISF C 1 Bright A_WeaponReady(WRF_NOFIRE|WRF_NOSWITCH)
TNT1 A 0 A_ZoomFActor(0.970)
TNT1 A 0 A_light1
TNT1 A 0 A_SetPitch(pitch-0.35)
MISF D 1 A_WeaponReady(WRF_NOFIRE|WRF_NOSWITCH)
TNT1 A 0 A_ZoomFActor(0.975)
TNT1 A 0 A_light0
TNT1 A 0 A_SetPitch(pitch+0.15)
MISF E 1 A_WeaponReady(WRF_NOFIRE|WRF_NOSWITCH)
TNT1 A 0 A_ZoomFActor(0.980)
TNT1 A 0 A_SetPitch(pitch+0.15)
MISF F 1 A_WeaponReady(WRF_NOFIRE|WRF_NOSWITCH)
TNT1 A 0 A_ZoomFActor(0.985)
TNT1 A 0 A_SetPitch(pitch+0.15)
MISF G 1 A_WeaponReady(WRF_NOFIRE|WRF_NOSWITCH)
TNT1 A 0 A_ZoomFActor(0.990)
TNT1 A 0 A_SetPitch(pitch+0.15)
MISF H 1 A_WeaponReady(WRF_NOFIRE|WRF_NOSWITCH)
TNT1 A 0 A_ZoomFActor(0.995)
TNT1 A 0 A_SetPitch(pitch+0.15)
MISF I 1 A_WeaponReady(WRF_NOFIRE|WRF_NOSWITCH)
TNT1 A 0 A_ZoomFActor(1.0)
TNT1 A 0 A_SetPitch(pitch+0.15)
MISF J 1 A_WeaponReady(WRF_NOFIRE|WRF_NOSWITCH)
TNT1 A 0 A_SetPitch(pitch+0.15)
MISA A 10 A_WeaponReady(WRF_NOFIRE|WRF_NOSWITCH)
goto Ready
Spawn:
MISP A -1
stop
}
}