[WIP] AI Profiles

addons/danger/CfgAIProfile.hpp

@@ -0,0 +1,6 @@
+class LAMBS_CfgAIProfiles {
+    class Default {
+        requestArtillery = 1;
+
+    };
+};

addons/danger/XEH_PREP.hpp

@@ -35,7 +35,6 @@ PREP(tacticsCQB);
 PREP(tacticsFlank);
 PREP(tacticsGarrison);
 PREP(tacticsHide);
-PREP(tacticsProfiles);
 PREP(tacticsSuppress);
 PREP(vehicle);
 PREP(vehicleAssault);

addons/danger/config.cpp

@@ -16,3 +16,4 @@ class CfgPatches {
 #include "CfgFSMs.hpp"
 #include "Cfg3DEN.hpp"
 #include "ZEN_CfgContext.hpp"
+#include "CfgAIProfile.hpp"

addons/danger/functions/fnc_tactics.sqf

@@ -21,15 +21,16 @@ params [["_unit", objNull, [objNull]]];
 //    _unit call FUNC(tacticsCQB);
 //};
 
+private _group = group _unit;
 // check if group AI disabled
-if ((group _unit) getVariable [QGVAR(disableGroupAI), false]) exitWith {false};
+if (_group getVariable [QGVAR(disableGroupAI), false]) exitWith {false};
 
 // Initated contact?
-private _contactState = group _unit getVariable [QGVAR(contact), 0];
+private _contactState = _group getVariable [QGVAR(contact), 0];
 if (_contactState < time) exitWith {_unit call FUNC(tacticsContact)};
 
 // ai profiles ~ here is where AI profiles will be extrapolated - nkenny
-if (_unit call FUNC(tacticsProfiles)) exitWith {true};
+// if ([_unit, "something"] call EFUNC(main,doesProfileAllow)) exitWith {true};
 
 // Leader assessment
 if (!isPlayer (leader _unit)) then {_unit call FUNC(tacticsAssess);};

addons/eventhandlers/CfgAIProfile.hpp

@@ -0,0 +1,5 @@
+class LAMBS_CfgAIProfiles {
+    class Default {
+        reactToExplosions = 1;
+    };
+};

addons/eventhandlers/config.cpp

@@ -12,3 +12,4 @@ class CfgPatches {
 };
 
 #include "CfgEventHandlers.hpp"
+#include "CfgAIProfile.hpp"

addons/eventhandlers/functions/fnc_explosionEH.sqf

@@ -14,6 +14,7 @@ if (
     || {!isNull objectParent _unit}
     || {(stance _unit) isEqualTo "PRONE"}
     || {_unit getVariable [QGVAR(explosionReactionTime), 0] > time}
+    || {[_unit, "reactToExplosions"] call EFUNC(main,doesProfileAllow)}
 ) exitWith {false};
 
 // settings

addons/main/CfgAIProfile.hpp

@@ -0,0 +1,12 @@
+class LAMBS_CfgAIProfiles {
+    class Default {
+        #ifdef ISDEV
+        allowDemoNumberAsBool = 1;
+        allowDemoRandom = 0.5;
+        allowDemoBool = "true";
+        allowDemoBool2 = "False";
+        allowDemoCodeBool = "selectRandom [true, true, false, true, false, false]";
+        allowDemoCodeNumber = "random 1";
+        #endif
+    };
+};

addons/main/XEH_PREP.hpp

@@ -27,3 +27,8 @@ SUBPREP(debug,debugMarkerColor);
 SUBPREP(debug,debugObjectColor);
 SUBPREP(debug,dotMarker);
 SUBPREP(debug,zoneMarker);
+
+SUBPREP(Profiles,parseAIProfiles);
+SUBPREP(Profiles,setProfileAllow);
+SUBPREP(Profiles,setupProfile);
+SUBPREP(Profiles,doesProfileAllow);

addons/main/XEH_postInit.sqf

@@ -11,3 +11,9 @@ GVAR(drawRectInUseEGSpectator) = [];
 GVAR(drawRectCacheCurator) = [];
 GVAR(drawRectInUseCurator) = [];
 addMissionEventHandler ["Draw3D", { call FUNC(debugDraw); }];
+
+if (isServer) then {
+    GVAR(ProfilesNamespace) = true call CBA_fnc_createNamespace;
+    publicVariable QGVAR(ProfilesNamespace);
+    call FUNC(parseAIProfiles);
+};

addons/main/config.cpp

@@ -12,6 +12,7 @@ class CfgPatches {
 };
 #include "CfgFactionClasses.hpp"
 #include "CfgEventHandlers.hpp"
+#include "CfgAIProfile.hpp"
 
 class GVAR(Display) {
     idd = -1;

addons/main/functions/Profiles/fnc_doesProfileAllow.sqf

@@ -0,0 +1,41 @@
+#include "script_component.hpp"
+/*
+ * Author: joko // Jonas
+ * Group profiles handler -- Checks and runs AI profiles -- group actions with the fnc_profileXxx prefix.
+ *
+ * Arguments:
+ * 0: Group/Unit <OBJECT, GROUP>
+ * 1: Profile Tactic <STRING>
+ *
+ * Return Value:
+ * Tactic is allowed to Execute
+ *
+ * Example:
+ * [bob] call lambs_danger_fnc_doesProfileAllow;
+ *
+ * Public: No
+*/
+params [["_target", objNull, [objNull, grpNull]], ["_tactic", "unkown", [""]]];
+
+private _profile = _target getVariable [QGVAR(AIProfile), "default"];
+
+private _profileData = GVAR(ProfilesNamespace) getVariable toLower(_profile);
+if (isNil "_profileData") then {
+    _profileData = GVAR(ProfilesNamespace) getVariable "Default";
+};
+_tactic = toLower(_tactic);
+private _value = [_profileData, _tactic] call CBA_fnc_hashGet;
+if (_value isEqualType {}) then {
+    _value = [_target, _tactic] call _value;
+};
+if (_value isEqualType 0) then {
+    if (_value in [1,0]) then {
+        _value = _value isEqualTo 1;
+    } else {
+        _value = RND(_value);
+    };
+};
+if !(_value isEqualType true) then {
+    _value = true;
+};
+_value;

addons/main/functions/Profiles/fnc_parseAIProfiles.sqf

@@ -0,0 +1,51 @@
+#include "script_component.hpp"
+/*
+ * Author: joko // Jonas
+ *
+ *
+ * Arguments:
+ *
+ *
+ * Return Value:
+ *
+ *
+ * Example:
+ *
+ *
+ * Public: No
+*/
+
+{
+    {
+        private _profileName = toLower(configName _x);
+        private _profile = GVAR(ProfilesNamespace) getVariable _profileName;
+        if (isNil "_profile") then {
+            _profile = [[], true] call CBA_fnc_hashCreate;
+        };
+        {
+            private _value = false;
+            private _tactic = toLower(configName _x);
+            if (isText _x) then {
+                _value = getText _x;
+                if (toLower(_value) in ["true", "false"]) then {
+                    switch (toLower _value) do {
+                        case ("true"): {
+                            _value = true;
+                        };
+                        default {
+                            _value = false;
+                        };
+                    };
+                } else {
+                    _value = compile _value;
+                };
+            } else {
+                if (isNumber _x) then {
+                    _value = getNumber _x;
+                };
+            };
+            _profile = [_profile, _tactic, _value] call CBA_fnc_hashSet;
+        } forEach configProperties [_x, "!isClass _x", true];
+        GVAR(ProfilesNamespace) setVariable [_profileName, _profile, true];
+    } forEach configProperties [_x >> "LAMBS_CfgAIProfiles", "isClass _x", true];
+} forEach [configFile, missionConfigFile];

addons/main/functions/Profiles/fnc_setProfileAllow.sqf

@@ -0,0 +1,28 @@
+#include "script_component.hpp"
+/*
+ * Author: joko // Jonas
+ * Group profiles handler -- Checks and runs AI profiles -- group actions with the fnc_profileXxx prefix.
+ *
+ * Arguments:
+ * 0: Profile <STRING>
+ * 1: Profile Tactic <STRING>
+ * 2: Profile Enabled <BOOL>
+ *
+ * Return Value:
+ * Tactic is allowed to Execute
+ *
+ * Example:
+ * ["default", "tacticHidding", true] call lambs_danger_fnc_setProfileAllow;
+ *
+ * Public: No
+*/
+params [["_profileName", "", [""]], ["_tacticName", "", [""]], ["_enabled", true, [true, 0, {}]]];
+_profileName = toLower(_profileName);
+private _profile = GVAR(ProfilesNamespace) getVariable _profileName;
+if (isNil "_profile") then {
+    _profile = [[], true] call CBA_fnc_hashCreate;
+};
+
+_profile = [_profile, toLower(_tacticName), _enabled] call CBA_fnc_hashSet;
+
+GVAR(ProfilesNamespace) setVariable [_profileName, _profile, true];

addons/main/functions/Profiles/fnc_setupProfile.sqf

@@ -0,0 +1,26 @@
+#include "script_component.hpp"
+/*
+ * Author: joko // Jonas
+ * Group profiles handler -- Checks and runs AI profiles -- group actions with the fnc_profileXxx prefix.
+ *
+ * Arguments:
+ * 0: Group/Unit <OBJECT, GROUP>
+ * 1: Profile Tactic <STRING>
+ *
+ * Return Value:
+ * Tactic is allowed to Execute
+ *
+ * Example:
+ * [bob] call lambs_danger_fnc_setupProfile;
+ *
+ * Public: No
+*/
+params ["_tacticName", "_tactics"];
+
+private _profile = +GVAR(ProfilesNamespace) getVariable "default"; // Create a Copy of the default Profile
+
+{
+    _profile = [_profile, toLower(_x select 0), _x select 1] call CBA_fnc_hashSet;
+} forEach _tactics;
+
+GVAR(ProfilesNamespace) setVariable [toLower(_tacticName), _profile, true];

addons/main/functions/Profiles/script_component.hpp

@@ -0,0 +1 @@
+#include "\z\lambs\addons\danger\script_component.hpp"