Code: Select all
OnFireWeapon [Mayfly-class Capitalist-ForTrans]: Item is not an installed device on object [(-517431296 -16777215 74 60 0 "\0\0\0\0\xff\xff\xff\xff\0\0\0\0\xff\xff\xff\xff" "\0\0\0\0\0\0\0\0" 0)] ### (objSetDeviceActivationDelay gSource (itmCreate (ObjGetData gPlayership "OmniWep") 1) 0) ###
Code: Select all
(block (Target Mount shot)
(if (ObjGetTarget gPlayership)
(setq Target (ObjGetTarget gPlayership))
(setq Target (SysFindObject gSource "*NAEs"))
)
(if
(and
(ObjGetData gPlayership "OmniWep")
(ls (ObjGetDistance gPlayership Target) 80)
)
(block Nil
(setq Mount (ObjGetData gPlayership "OmniWep"))
(setq shot (sysCreateWeaponFire
Mount
gSource
(ObjGetPos gSource)
(sysCalcFireSolution (sysVectorSubtract (objGetpos Target) aFirePos) (objGetVel Target) (typGetDataField Mount 'speed))
(typGetDataField (ObjGetData gPlayership "OmniWep") 'speed)
Target
))
(objIncVel shot (objGetVel gSource))
(sysPlaySound (typGetDataField (ObjGetData gPlayership "OmniWep") "sound") gSource)
(objSetDeviceActivationDelay gSource (itmCreate (ObjGetData gPlayership "OmniWep") 1) 0)
)
(block Nil
(if
(not (ObjGetData gPlayership "OmniWep"))
(Plymessage gPlayer "No weapon is currently mounted.")
)
)
)
)