Create (sup_)Artillery class with CBA statemachine

addons/sup_artillery/ArtilleryStateMachine.hpp

@@ -0,0 +1,105 @@
+class ArtilleryStateMachine {
+    list = "";
+
+    class Idle {
+        onState = "";
+        onStateEntered = "";
+        onStateLeaving = "";
+
+        class HasFireMission {
+            targetState = "Active";
+            condition = "[_this, 'hasFireMission'] call ALIVE_fnc_Artillery";
+            onTransition = "";
+        };
+    };
+
+    class Active {
+        onState = "[_this, 'onActive'] call ALIVE_fnc_Artillery";
+        onStateEntered = "";
+        onStateLeaving = "";
+
+        class InRange {
+            targetState = "Execute";
+            condition = "[_this, 'inRange'] call ALIVE_fnc_Artillery";
+            onTransition = "";
+        };
+
+        class NotInRange {
+            targetState = "Move";
+            condition = "!([_this, 'inRange'] call ALIVE_fnc_Artillery)";
+            onTransition = "";
+        };
+    };
+
+    class Move {
+        onState = "[_this, 'onMove'] call ALIVE_fnc_Artillery";
+        onStateEntered = "";
+        onStateLeaving = "";
+
+        class InPosition {
+            targetState = "Execute";
+            condition = "[_this, 'inPosition'] call ALIVE_fnc_Artillery";
+            onTransition = "";
+        };
+
+        class Abort {
+            targetState = "ReturnToBase";
+            condition = "!([_this, 'hasFireMission'] call ALIVE_fnc_Artillery)";
+            onTransition = "";
+        };
+    };
+
+    class Execute {
+        onState = "[_this, 'onExecute'] call ALIVE_fnc_Artillery";
+        onStateEntered = "";
+        onStateLeaving = "";
+
+        class Abort {
+            targetState = "ReturnToBase";
+            condition = "!([_this, 'hasFireMission'] call ALIVE_fnc_Artillery)";
+            onTransition = "";
+        };
+    };
+
+    class Fire {
+        onState = "[_this, 'onFire'] call ALIVE_fnc_Artillery";
+        onStateEntered = "";
+        onStateLeaving = "";
+
+        class FireMissionComplete {
+            targetState = "ReturnToBase";
+            condition = "[_this, 'isFireMissionComplete'] call ALIVE_fnc_Artillery";
+            onTransition = "";
+        };
+
+        class Fired {
+            targetState = "FireDelay";
+            condition = "true";
+            onTransition = "";
+        };
+    };
+
+    class FireDelay {
+        onState = "";
+        onStateEntered = "";
+        onStateLeaving = "";
+
+        class Continue {
+            targetState = "Fire";
+            condition = "[_this, 'fireNextRound'] call ALIVE_fnc_Artillery";
+            onTransition = "";
+        };
+    };
+
+    class ReturnToBase {
+        onState = "[_this, 'onReturnToBase'] call ALIVE_fnc_Artillery";
+        onStateEntered = "";
+        onStateLeaving = "";
+
+        class AtBase {
+            targetState = "Idle";
+            condition = "[_this, 'inPosition'] call ALIVE_fnc_Artillery";
+            onTransition = "";
+        };
+    };
+};

addons/sup_artillery/config.cpp

@@ -3,3 +3,5 @@
 #include <CfgPatches.hpp>
 #include <CfgVehicles.hpp>
 #include <CfgFunctions.hpp>
+
+#include <ArtilleryStateMachine.hpp>

addons/sup_artillery/fnc_ARTILLERY.sqf

@@ -1,10 +1,10 @@
 #include <\x\alive\addons\sup_artillery\script_component.hpp>
-SCRIPT(CAS);
+SCRIPT(Artillery);
 
 /* ----------------------------------------------------------------------------
-Function: ALIVE_fnc_CQB
+Function: ALIVE_fnc_Artillery
 Description:
-XXXXXXXXXX
+Artillery module.
 
 Parameters:
 Nil or Object - If Nil, return a new instance. If Object, reference an existing instance.
@@ -21,37 +21,182 @@ Boolean - enabled - Enabled or disable module
 Parameters:
 none
 
-Description:
-CQB Module! Detailed description to follow
-
 Examples:
-[_logic, "factions", ["OPF_F"] call ALiVE_fnc_CQB;
-[_logic, "houses", _nonStrategicHouses] call ALiVE_fnc_CQB;
-[_logic, "spawnDistance", 500] call ALiVE_fnc_CQB;
-[_logic, "active", true] call ALiVE_fnc_CQB;
 
 See Also:
-- <ALIVE_fnc_CQBInit>
 
 Author:
-Wolffy, Highhead
+marceldev89
 ---------------------------------------------------------------------------- */
 
-#define SUPERCLASS nil
-
-private ["_logic","_operation","_args"];
-
-PARAMS_1(_logic);
-DEFAULT_PARAM(1,_operation,"");
-DEFAULT_PARAM(2,_args,nil);
+#define SUPERCLASS ALIVE_fnc_baseClass
+#define MAINCLASS ALIVE_fnc_artillery
+
+private _logic = param [0, objNull, [objNull, []]];
+private _operation = param [1, "", [""]];
+private _args = param [2, objNull, [objNull, [], "", 0, true, false]];
+
+private _result = true;
+
+switch (_operation) do {
+    case "init": {
+        [] call ALIVE_fnc_artillery_init;
+    };
+
+    /****************
+     ** PROPERTIES **
+     ****************/
+    case "fireMission": {
+        if (isNull _args) then {
+            _result = [_logic, "fireMission"] call ALIVE_fnc_hashGet;
+        } else {
+            private _position = _args param [0, [0,0,0], [[]], 3];
+            private _roundType = _args param [1, "", [""]];
+            private _roundCount = _args param [2, 1, [1]];
+            private _delay = _args param [3, 5, [1]];
+            private _dispersion = _args param [4, 50, [1]];
+
+            private _fireMission = [] call ALIVE_fnc_hashCreate;
+            [_fireMission, "position", _position] call ALIVE_fnc_hashSet;
+            [_fireMission, "roundType", _roundType] call ALIVE_fnc_hashSet;
+            [_fireMission, "roundCount", _roundCount] call ALIVE_fnc_hashSet;
+            [_fireMission, "delay", _delay] call ALIVE_fnc_hashSet;
+            [_fireMission, "dispersion", _dispersion] call ALIVE_fnc_hashSet;
+            // Defaults
+            [_fireMission, "units", []] call ALIVE_fnc_hashSet;
+            [_fireMission, "unitIndex", -1] call ALIVE_fnc_hashSet;
+            [_fireMission, "roundsShot", -1] call ALIVE_fnc_hashSet;
+            [_fireMission, "nextRoundTime", -1] call ALIVE_fnc_hashSet;
+
+            [_logic, "fireMission", _fireMission] call ALIVE_fnc_hashSet;
+        };
+    };
+    case "position": {
+        private _group = [_logic, "group"] call ALIVE_fnc_hashGet;
+        _result = position (leader _group);
+    };
+
+    /*************
+     ** METHODS **
+     *************/
+    case "execute": {
+        private _group = [_logic, "group"] call ALIVE_fnc_hashGet;
+        private _units = (units _group) select {vehicle _x != _x && {gunner _x == _x}};
+        private _fireMission = [_logic, "fireMission"] call ALIVE_fnc_hashGet;
+        [_fireMission, "units", _units] call ALIVE_fnc_hashSet;
+        [_fireMission, "unitIndex", 0] call ALIVE_fnc_hashSet;
+        [_fireMission, "roundsShot", 0] call ALIVE_fnc_hashSet;
+        [_logic, "fireMission", _fireMission] call ALIVE_fnc_hashSet; // TODO: Is this needed?
+    };
+    case "fire": {
+        private _fireMission = [_logic, "fireMission"] call ALIVE_fnc_hashGet;
+        private _roundsShot = [_fireMission, "roundsShot"] call ALIVE_fnc_hashGet;
+        private _units = [_fireMission, "units"] call ALIVE_fnc_hashGet;
+        private _unitIndex = [_fireMission, "unitIndex"] call ALIVE_fnc_hashGet;
+        private _unit = _units select _unitIndex;
+        private _position = [_fireMission, "position"] call ALIVE_fnc_hashGet;
+        private _roundType = [_fireMission, "roundType"] call ALIVE_fnc_hashGet;
+        private _delay = [_fireMission, "delay"] call ALIVE_fnc_hashGet;
+
+        _unit doArtilleryFire [
+            _position,
+            _roundType,
+            1
+        ];
+
+        if ((_unitIndex + 1) > ((count _units) - 1)) then {
+            _unitIndex = 0;
+        } else {
+            _unitIndex = _unitIndex + 1;
+        };
+
+        [_fireMission, "nextRoundTime", time + _delay] call ALIVE_fnc_hashSet;
+        [_fireMission, "unitIndex", _unitIndex] call ALIVE_fnc_hashSet;
+        [_fireMission, "roundsShot", _roundsShot + 1] call ALIVE_fnc_hashSet;
+        [_logic, "fireMission", _fireMission] call ALIVE_fnc_hashSet; // TODO: Is this needed?
+    };
+    case "fireNextRound": {
+        private _fireMission = [_logic, "fireMission"] call ALIVE_fnc_hashGet;
+        private _nextRoundTime = [_fireMission, "nextRoundTime"] call ALIVE_fnc_hashGet;
+        _result = (time >= _nextRoundTime);
+    };
+    case "hasFireMission": {
+        private _fireMission = [_logic, "fireMission"] call ALIVE_fnc_hashGet;
+        _result = (count _fireMission == 3);
+    };
+    case "isFireMissionComplete": {
+        private _fireMission = [_logic, "fireMission"] call ALIVE_fnc_hashGet;
+        private _roundCount = [_fireMission, "roundCount"] call ALIVE_fnc_hashGet;
+        private _roundsShot = [_fireMission, "roundsShot"] call ALIVE_fnc_hashGet;
+        _result = (_roundsShot >= _roundCount);
+    };
+    case "inPosition": {
+        private _group = [_logic, "group"] call ALIVE_fnc_hashGet;
+        _result = _group getVariable ["sup_artillery_inPosition", false];
+    };
+    case "inRange": {
+        private _fireMission = [_logic, "fireMission"] call ALIVE_fnc_hashGet;
+        private _group = [_logic, "group"] call ALIVE_fnc_hashGet;
+        private _units = (units _group) select {vehicle _x != _x && {gunner _x == _x}};
+        _result = _position inRangeOfArtillery [_units, _fireMission select 1];
+    };
+    case "move": {
+        private _group = [_logic, "group"] call ALIVE_fnc_hashGet;
+        private _position = [];
+
+        if (!isNull _args && {count _args == 3}) then {
+            [_logic, "moveToPos", _args] call ALIVE_fnc_hashSet;
+            _position = _args;
+        } else {
+            _position = [_logic, "moveToPos"] call ALIVE_fnc_hashGet;
+        };
+
+        private _waypoint = _group addWaypoint [_position, 0];
+        _waypoint setWaypointType "MOVE";
+        _waypoint setWaypointBehaviour "SAFE";
+        _waypoint setWaypointSpeed "NORMAL";
+        _waypoint setWaypointStatements [
+            "true",
+            "(group _this) setVariable ['sup_artillery_inPosition', true]"
+        ];
+
+        _group setVariable ["sup_artillery_inPosition", false];
+    };
+
+    /******************
+     ** STATEMACHINE **
+     ******************/
+    case "onIdle": {
+        private _group = [_logic, "group"] call ALIVE_fnc_hashGet;
+        _group setVariable ["sup_artillery_inPosition", true];
+        [_logic, "moveToPos", objNull] call ALIVE_fnc_hashSet;
+
+    };
+    case "onActive": {
+        if (!([_logic, "inRange"] call MAINCLASS)) then {
+            [_logic, "moveToPos", [0,0,0]] call ALIVE_fnc_hashSet; // TODO: Figure out best firing position
+        };
+    };
+    case "onFire": {
+        [_logic, "fire"] call MAINCLASS;
+    };
+    case "onMove": {
+        [_logic, "move"] call MAINCLASS;
+    };
+    case "onExecute": {
+        [_logic, "execute"] call MAINCLASS;
+    };
+    case "onReturnToBase": {
+        [_logic, "move", [0,0,0]] call MAINCLASS; // TODO: Find (best) RTB position
+    };
+};
+
+// TODO: Give this legacy stuff a place
 ALIVE_coreLogic = _logic;
 _position = getposATL ALIVE_coreLogic;
 _callsign = _logic getvariable ["artillery_callsign","EAGLE ONE"];
 _type = _logic getvariable ["artillery_type","B_Heli_Attack_01_F"];
 _ordnace = _logic getvariable ["artillery_ordnace",["HE", 30]];
  ARTYPOS = _position; PublicVariable "ARTYPOS";
 
-
-
-
-
+ _result;