Add turret event

addons/events/CfgFunctions.hpp

@@ -21,6 +21,7 @@ class CfgFunctions {
             PATHTO_FNC(serverEvent);
             PATHTO_FNC(remoteEvent);
             PATHTO_FNC(targetEvent);
+            PATHTO_FNC(turretEvent);
             PATHTO_FNC(ownerEvent);
             PATHTO_FNC(addMarkerEventHandler);
             PATHTO_FNC(removeMarkerEventHandler);

addons/events/XEH_preInit.sqf

@@ -21,6 +21,7 @@ if (isServer) then {
 
     if (isServer) then {
         TEVENT_PVAR_STR addPublicVariableEventHandler {(_this select 1) call CBA_fnc_targetEvent};
+        TUEVENT_PVAR_STR addPublicVariableEventHandler {(_this select 1) call CBA_fnc_turretEvent};
     };
 };
 

addons/events/fnc_turretEvent.sqf

@@ -0,0 +1,47 @@
+#include "script_component.hpp"
+/* ----------------------------------------------------------------------------
+Function: CBA_fnc_turretEvent
+
+Description:
+    Raises a CBA event on the machine where the vehicle's turret is local.
+
+Parameters:
+    _eventName  - Type of event to publish. <STRING>
+    _params     - Parameters to pass to the event handlers. <ANY>
+    _vehicle    - Vehicle to which the turret belongs. <OBJECT>
+    _turretPath - The turret to execute on. <ARRAY>
+
+Returns:
+    None
+
+Examples:
+    (begin example)
+        ["test", ["turret"], cursorObject, [-1]] call CBA_fnc_turretEvent;
+    (end)
+
+Author:
+    NeilZar
+---------------------------------------------------------------------------- */
+SCRIPT(turretEvent);
+
+params [["_eventName", "", [""]], ["_params", []], ["_vehicle", objNull, [objNull]], ["_turretPath", [-1], [[]]]];
+
+if (_vehicle turretLocal _turretPath) exitWith {
+    CALL_EVENT(_params,_eventName);
+};
+
+if (isServer) then {
+    // retrieve the turret owner and send the event
+    private _turretOwner = _vehicle turretOwner _turretPath;
+
+    if (_turretOwner == 0) then {
+        private _turretOwner = owner _vehicle;
+    };
+
+    SEND_EVENT_TO_CLIENT(_params,_eventName,_turretOwner);
+} else {
+    // only server knows turret owners. let server handle the event.
+    SEND_TUEVENT_TO_SERVER(_params,_eventName,_vehicle,_turretPath);
+};
+
+nil

addons/events/script_component.hpp

@@ -31,6 +31,12 @@
 
 #define SEND_TEVENT_TO_SERVER(params,name,targets) TEVENT_PVAR = [name, params, targets]; publicVariableServer TEVENT_PVAR_STR
 
+// turret events
+#define TUEVENT_PVAR CBAv
+#define TUEVENT_PVAR_STR QUOTE(TUEVENT_PVAR)
+
+#define SEND_TUEVENT_TO_SERVER(params,name,vehicle,turret) TUEVENT_PVAR = [name, params, vehicle, turret]; publicVariableServer TUEVENT_PVAR_STR
+
 #define CALL_EVENT(args,event) {\
     if !(isNil "_x") then {\
         args call _x;\