ACE3/addons/zeus/functions/fnc_moduleGarrison.sqf
jonpas 742626ff1a
General - Relative script_component.hpp includes (#9378)
Co-authored-by: PabstMirror <pabstmirror@gmail.com>
2023-09-12 20:58:10 +02:00

62 lines
1.5 KiB
Plaintext

#include "..\script_component.hpp"
/*
* Author: alganthe
* Module calling the garrison function.
*
* Arguments:
* 0: Module logic <OBJECT>
* 1: Position of the module <POSITION>
* 2: Radius of the task <NUMBER>
* 3: Filling mode of the garrison function <NUMBER>
* 4: Enable or not top down filling <BOOL>
*
* Return Value:
* None
*
* Example:
* [LOGIC, [2203.64, 2281.47, 1], 20, 2, true] call ace_zeus_fnc_moduleGarrison
*
* Public: No
*/
params ["_logic", "_pos", "_radius" ,"_mode" , "_topDownMode", "_teleport"];
private _unit = (attachedTo _logic);
private _building = nearestBuilding (getPosASL _unit);
// Handles errors
scopeName "Main";
private _fnc_errorAndClose = {
params ["_msg"];
deleteVehicle _logic;
[_msg] call FUNC(showMessage);
breakOut "Main";
};
switch (false) do {
case !(isNull _unit): {
[LSTRING(NothingSelected)] call _fnc_errorAndClose;
};
case (_unit isKindOf "CAManBase"): {
[LSTRING(OnlyInfantry)] call _fnc_errorAndClose;
};
case (alive _unit): {
[LSTRING(OnlyAlive)] call _fnc_errorAndClose;
};
case (_unit distance _building < 500): {
[LSTRING(BuildingTooFar)] call _fnc_errorAndClose;
};
};
private _units = units _unit;
// Make sure all units are disembarked
{
if (vehicle _x != _x && {!isPlayer _x}) then {
moveOut _x;
};
} forEach _units;
[_pos, ["Building"], _units, _radius, _mode, _topDownMode, _teleport] call EFUNC(ai,garrison);
deleteVehicle _logic;