From b8a4349c10142a6c04bab723758817b4640093db Mon Sep 17 00:00:00 2001
From: BaerMitUmlaut <florian.foss@gmail.com>
Date: Sat, 5 Mar 2016 20:25:35 +0100
Subject: [PATCH] Added deployment API and waypoint

---
 addons/fastroping/CfgWaypoints.hpp            |  11 ++
 addons/fastroping/UI/Icon_Waypoint.paa        | Bin 0 -> 5625 bytes
 addons/fastroping/XEH_preInit.sqf             |   1 +
 addons/fastroping/config.cpp                  |   1 +
 addons/fastroping/functions/fnc_deployAI.sqf  |  95 ++++++++++++++++++
 .../functions/fnc_deployAIWaypoint.sqf        |  42 ++++++++
 addons/fastroping/stringtable.xml             |   4 +
 7 files changed, 154 insertions(+)
 create mode 100644 addons/fastroping/CfgWaypoints.hpp
 create mode 100644 addons/fastroping/UI/Icon_Waypoint.paa
 create mode 100644 addons/fastroping/functions/fnc_deployAI.sqf
 create mode 100644 addons/fastroping/functions/fnc_deployAIWaypoint.sqf

diff --git a/addons/fastroping/CfgWaypoints.hpp b/addons/fastroping/CfgWaypoints.hpp
new file mode 100644
index 0000000000..4c4da2a7cb
--- /dev/null
+++ b/addons/fastroping/CfgWaypoints.hpp
@@ -0,0 +1,11 @@
+class CfgWaypoints {
+    class ACE {
+        displayName = "ACE";
+        class Fastrope {
+            displayName = CSTRING(Waypoint_Fastrope);
+            displayNameDebug = "Fastrope";
+            file = QUOTE(PATHTOF(functions\fnc_deployAIWaypoint.sqf));
+            icon = QUOTE(PATHTOF(UI\Icon_Waypoint.paa));
+        };
+    };
+};
diff --git a/addons/fastroping/UI/Icon_Waypoint.paa b/addons/fastroping/UI/Icon_Waypoint.paa
new file mode 100644
index 0000000000000000000000000000000000000000..4f7d9086aea0e9e86ad854091a1257e9b6c50653
GIT binary patch
literal 5625
zcmeHL4Nz3q6+Um-2dIM}vckq}L4_hl3Q6i#$7Fbfh`dY*i|(UN`UguBMfr<qolezR
zAx4Kz8-A1~K}bR|&9sw7e(Gx*n*^~jU~rgGrXq_bgC>opiKwtdvbsIz-o5;+^(Qm6
z%}je|7x>;e_x#>-&V9(<l`B*2X)AM5jR0`|{Q0E}uSv}$?8QZRW$L%n2}}4TygEHS
zOToXl;df^kz_SqmwI+Z8{C>HmfC7LL{=fdWBQS&9Pquo!0Gg)3Op{*Z(nIbO_^yQv
z-z)Gv4-o$45`oiJPo+Qh)KvPG-3<Hoo8ZMa8UJFwAAGn$5}5N_W^!x?F0a9dHQ@Rz
z(}jL+&jg*@J3;6ESi%KAFn_By3heAyZ;;R=!W4nWj;iw~<J4YtK1`xRzdBz<PQf2}
zOf^iVPdhjj*X%o&>k|7FO$&AxKK<L=%8#hPN#nyKSzkQlys}f^(0xS)S96HZ9=qLN
zp1(eSd(d8kBJ^>83>lNKvqP1GCt<STPOjNq)(_%3D?Q|`j9u*Uk9Tyq$yr>acipFz
zLx1FuVUrgIHmP-ciK-Ao6n^C}7H>_n+v(ArTqaO!V$~X-K20{oV6gNCfx$GFa7YZ<
zNA+Uq(~IW*;1KghlL3}q(?bf>RgW?{8XA4+;~ozlDdDfzj1Oz7wg?>MC4F^xo_Rcw
zZbbT7fxp(=+_2I6Hmf&sKH8-x_GLZCxHSc!f$YsPaID#Z+Zz%q?Bo6z1h%1wn=bP}
zdj7C={XMi_l4N-lYK$4V^W(X7He2LzwdO217H|x5{t4&sdnq0a0E$%<B`CfO<HPI8
zMgj6$RlD@O&3eId;y2+6_)Vy%9Y2I|yW+<VfuL4lKA8O`ls5+Zsv;_?qnJKfmLpGO
zU5c+9>SP#2M4nP>JW#^yM_ICYAi>k|jO8SkZ@absz3$@6=_PT*FUyhyZL@4(OlJAF
z+41~6-9B?j3B~*nU6!>UIz7j|-2Z=NzrR00wR-+?Jzyd2H<@HG{*L({%<WSkn4Q0J
zk+18{`zWCEKL1I7dR>aAC*|t9Vn4KPGrSDJxy(L{uetZ7t^G;$EIu~d_3`z$PjRPj
z_(RURXK25K%dE6mL_b3J?e*_ii!W>{`MaP$a)sH?;zQ{R|C3&nzve}L9<d(geZJ!`
zYj*4j!0V$?m+?=wNcYjPo}tM&?({1|DZU3ppVO|NI_RX10bo}EtQW101=fe=G5=&E
z%<6MqjdTtL(H7!2D-_?nxrFF^DelC9j$d>$|8FNhYnu+AX*gZ*0PSb~Lk89-&xaiw
zP`Ece|C{&`bZ?6-nDh$$+=@GgU%QqxhQUu6*Js&gSco5i&AeWW%zsTYt!-M?-Q%fe
z^?5t~E3Ut7h)s8}^T+ewY;oZcAbFI3<*iM{qweA}+<#eq>R4HhYd@!h&1U=c8*B1K
z{Zoewy-+lB$XbFqrzlA>|9#{5yf)%=^M1lPgWi}rPoHd>G*81!rq!ccj~@4Qw{vbq
z!Tjef$0I<P<=^#YefzX}M!y~Z&AsU*mvsm4e^_6Gkl7l$(GXAa>~@=N+Fq+;v#-C&
z*pL<-Ewl8WFDxWF)|X^Vp!s0wBaH3JmbG&tUR1C2oR-L!KVH{3(N6#k4&d{M<rC$Z
zqJOXF?Qxf9(?04S;r$8qC);?xRcv-`5Y)OKRn)Tnh;-T9o3y3B+SmUuKV18bf12B@
zjy?M0-zE7n^^d`qu69)T`Ul$MzcbpeKTl6?oVf4EnsyqNReOB>n<5hT;naM_eKZxH
zq0mg?kA@`|;{{eUEjH=q^Tj;qE*{Qt@cvExtF0{4)tbo8FYDj_4)|eT{jl?o>DAnj
zmX`cZaTmqodhh)<e+8f$66TaguV?n+^a3;MUwnRI|GI7--^yf{B8A7`N1WGN@&C8!
z|89HDO<UT7ww^k{>-4LC0?bXF74@He@)oz3PQcAq48#E5IK@IR-kRvye+maT=tZD9
zSefD()v7_g<lVNLl_B8;Khr}p)D7eGjD32D(&6}o+(f#pbm@uGtHZqQVx=N~qEzH3
zFT8489_kBepQLYwUz?o~#@e{T<YU#mPxP)#AC}<Bo*m`hFH#ysS>&916|XJ33Iv|f
zt%tZ~53p+l-pXOdlBx2zzKLsIAGXo$>h8NqAGTe&51@H_ru$)*Mq@+-Y^)rTqKDXP
zvVv_q@H_g31NsJb4aY7mhxX!(ZsB7G$qIDSHE{aNv|mDoMZ*QNpWpctGm{5lVSSL%
z5&K9v8*A7WZAYMM%C$1^gVulr$p$9hhzrg}{`lS=?j8Np=!ucsDc87KZ$dS{rgIIc
zN1Cr}BX-nJ{DIDWBT<zX*;oq0bp(EDh%e=1745afoWyILp1+6qaY~xz^fd<@XkEeb
zjqclDfJJ|f%~<tyCLM1fYd`F~aP6~_Yh0ToEo<~%c6vvmxki9OIQD$3TF><1oRlI5
zUYKRxFEjb5J|gC1nWe8KlgUT*_P}gCf3u#)FosKW0S2e^KBkZCi-3eW@fspw8{GlX
z<F6$&=a+6*C&nJ)Ak&&caSg($h4L`D71gCa|Kz~zmIqzUd~D;bYP>CrdP_UBH?zNX
zJfGuZThKA2Y{lSD;WItB5l%Z~E!d^6XZfUS2=UU2!7uF(qbx~~$&Ptw2AN5-Vh`cB
zzdu*t*~{@5*OyuaX8cZiyXE`=l~~444E~&9oW9Tt_giJVLRf~dh^+S;8y;<qWAYR*
zhUr-5v9_lB89&}G%HW{Mc<{Lq!gTvgJp8?DUPBU=IXwYb{Q0@zl%&$T1l|vw<%`E0
z-y$k*R}2+7MStB?_%7kp)D<g&(hfUB8YoS2+Po=gGE}_&kM?IjWo;uhH9I>P-@g=q
zHf%))D)R8HgLM}O?A9MtXDw!zE=pC@Usio1;a7R=r4nKG-6t+YWHcAP$Bl#)M(n5<
S&sT!H-eZAdXN9%MitC?n9qNey

literal 0
HcmV?d00001

diff --git a/addons/fastroping/XEH_preInit.sqf b/addons/fastroping/XEH_preInit.sqf
index 83bb997eac..33f7b7b44e 100644
--- a/addons/fastroping/XEH_preInit.sqf
+++ b/addons/fastroping/XEH_preInit.sqf
@@ -8,6 +8,7 @@ PREP(canFastRope);
 PREP(canPrepareFRIES);
 PREP(checkVehicleThread);
 PREP(cutRopes);
+PREP(deployAI);
 PREP(deployRopes);
 PREP(equipFRIES);
 PREP(fastRope);
diff --git a/addons/fastroping/config.cpp b/addons/fastroping/config.cpp
index 25ec1876fa..a74abeb3b8 100644
--- a/addons/fastroping/config.cpp
+++ b/addons/fastroping/config.cpp
@@ -15,3 +15,4 @@ class CfgPatches {
 #include "CfgEventHandlers.hpp"
 #include "CfgMoves.hpp"
 #include "CfgVehicles.hpp"
+#include "CfgWaypoints.hpp"
diff --git a/addons/fastroping/functions/fnc_deployAI.sqf b/addons/fastroping/functions/fnc_deployAI.sqf
new file mode 100644
index 0000000000..6d77259fa6
--- /dev/null
+++ b/addons/fastroping/functions/fnc_deployAI.sqf
@@ -0,0 +1,95 @@
+/*
+ * Author: BaerMitUmlaut
+ * Auomatically deploy a helicopter filled with AI units.
+ *
+ * Arguments:
+ * 0: The helicopter <OBJECT>
+ * 1: Deploy special roles (gunners, copilot) (default: false) <BOOL>
+ * 2: Create deployment group (default: true) <BOOL>
+ *
+ * Return Value:
+ * None
+ *
+ * Example:
+ * [_vehicle] call ace_fastroping_fnc_deployAI
+ *
+ * Public: Yes
+ */
+
+#include "script_component.hpp"
+params [["_vehicle", objNull, [objNull]], ["_deploySpecial", false, [true]], ["_createDeploymentGroup", true, [true]]];
+private ["_config", "_configEnabled", "_deployTime", "_unitsToDeploy", "_deployGroup"];
+
+if (isNull _vehicle || {!(_vehicle isKindOf "Helicopter")}) exitWith {
+    if (hasInterface) then {
+        ["deployAI was called with an invalid or non-existant vehicle.", QFUNC(deployAI)] spawn BIS_fnc_guiMessage;
+    };
+    ACE_LOGERROR('FUNC(deployAI): deployAI was called with an invalid or non-existant vehicle.');
+};
+
+_config = configFile >> "CfgVehicles" >> typeOf _vehicle;
+_configEnabled = getNumber (_config >> QGVAR(enabled));
+if (_configEnabled == 0) exitWith {
+    if (hasInterface) then {
+        [format ["You cannot fast rope from a ""%1"" helicopter.", getText (_config >> "DisplayName")], QFUNC(deployAI)] spawn BIS_fnc_guiMessage;
+    };
+    ACE_LOGERROR_1('FUNC(deployAI): You cannot fast rope from a "%1" helicopter.',getText (_config >> "DisplayName"));
+};
+
+if (_configEnabled == 2 && {isNull (_vehicle getVariable [QGVAR(FRIES), objNull])}) exitWith {
+    if (hasInterface) then {
+        [format ["""%1"" requires a FRIES for fastroping, but has not been equipped with one.", getText (_config >> "DisplayName")], QFUNC(deployAI)] spawn BIS_fnc_guiMessage;
+    };
+    ACE_LOGERROR_1('FUNC(deployAI): "%1" requires a FRIES for fastroping but has not been equipped with one.',getText (_config >> "DisplayName"));
+};
+
+_unitsToDeploy = crew _vehicle;
+if (_deploySpecial) then {
+    _unitsToDeploy deleteAt (_unitsToDeploy find driver _vehicle);
+} else {
+    _unitsToDeploy = _unitsToDeploy select {(assignedVehicleRole _x) select 0 == "cargo"};
+};
+
+if (_unitsToDeploy isEqualTo []) exitWith {
+    ACE_LOGWARNING_1('FUNC(deployAI): Found no units to deploy in "%1".',getText (_config >> "DisplayName"));
+};
+
+if (_createDeploymentGroup) then {
+    _deployGroup = createGroup side (_unitsToDeploy select 0);
+    _unitsToDeploy joinSilent _deployGroup;
+};
+
+_deployTime = 0;
+if (getText (_config >> QGVAR(onPrepare)) != "") then {
+    _deployTime = [_vehicle] call (missionNamespace getVariable (getText (_config >> QGVAR(onPrepare))));
+};
+[{[_this] call FUNC(deployRopes)}, _vehicle, _deployTime] call EFUNC(common,waitAndExecute);
+driver _vehicle disableAI "MOVE";
+
+DFUNC(deployAIRecursive) = {
+    params ["_vehicle", "_unitsToDeploy"];
+
+    private _unit = _unitsToDeploy deleteAt 0;
+    unassignVehicle _unit;
+    [_unit, _vehicle] call FUNC(fastRope);
+
+    if !(_unitsToDeploy isEqualTo []) then {
+        [{
+            [{
+                params ["_vehicle"];
+                private _deployedRopes = _vehicle getVariable [QGVAR(deployedRopes), []];
+                ({!(_x select 5)} count (_deployedRopes)) > 0
+            }, FUNC(deployAIRecursive), _this] call EFUNC(common,waitUntilAndExecute);
+        }, [_vehicle, _unitsToDeploy], 1] call EFUNC(common,waitAndExecute);
+    } else {
+        [{
+            private _deployedRopes = _this getVariable [QGVAR(deployedRopes), []];
+            ({_x select 5} count (_deployedRopes)) == 0
+        }, {
+            [_this] call FUNC(cutRopes);
+            driver _this enableAI "MOVE";
+        }, _vehicle] call EFUNC(common,waitUntilAndExecute);
+    };
+};
+
+[FUNC(deployAIRecursive), [_vehicle, _unitsToDeploy], _deployTime + 4] call EFUNC(common,waitAndExecute);
diff --git a/addons/fastroping/functions/fnc_deployAIWaypoint.sqf b/addons/fastroping/functions/fnc_deployAIWaypoint.sqf
new file mode 100644
index 0000000000..9d8f4a03e2
--- /dev/null
+++ b/addons/fastroping/functions/fnc_deployAIWaypoint.sqf
@@ -0,0 +1,42 @@
+/*
+ * Author: BaerMitUmlaut
+ * Waypoint function for the fast rope waypoint.
+ *
+ * Arguments:
+ * 0: Group <GROUP>
+ * 1: Waypoint position <ARRAY>
+ *
+ * Return Value:
+ * true
+ *
+ * Example:
+ * [_group, [6560, 12390, 0]] call ace_fastroping_fnc_deployAIWayoint
+ *
+ * Public: No
+ */
+
+#include "script_component.hpp"
+params [["_group", grpNull, [grpNull]], ["_position", [0, 0, 0], [[]], 3]];
+private ["_vehicle", "_commander", "_speedMode"];
+
+_vehicle = vehicle leader _group;
+_commander = effectiveCommander _vehicle;
+_speedMode = speedMode _group;
+
+// - Approach -----------------------------------------------------------------
+if (_vehicle distance2D _position > 50) then {
+    _group setSpeedMode "LIMITED";
+    _vehicle flyInHeight 20;
+    _commander doMove _position;
+    waitUntil {_vehicle distance2D _position < 50};
+    waitUntil {vectorMagnitude (velocity _vehicle) < 3};
+    //doStop _commander;
+};
+
+// - Deployment ---------------------------------------------------------------
+[_vehicle] call FUNC(deployAI);
+waitUntil {!((_vehicle getVariable [QGVAR(deployedRopes), []]) isEqualTo [])};
+waitUntil {(_vehicle getVariable [QGVAR(deployedRopes), []]) isEqualTo []};
+_group setSpeedMode _speedMode;
+
+true
diff --git a/addons/fastroping/stringtable.xml b/addons/fastroping/stringtable.xml
index 5394cf9b63..f6c0f34826 100644
--- a/addons/fastroping/stringtable.xml
+++ b/addons/fastroping/stringtable.xml
@@ -57,5 +57,9 @@
             <French>Equipe l'hélicoptère sélectionné avec un Fast Rope Insertion Extraction System</French>
             <Spanish>Equipa el helicoptero seleccionado con un Sistema de Inserción Extracción Fast Rope</Spanish>
         </Key>
+        <Key ID="STR_ACE_Fastroping_Waypoint_Fastrope">
+            <English>LET UNITS FAST ROPE</English>
+            <German>EINHEITEN ABSEILEN LASSEN</German>
+        </Key>
     </Package>
 </Project>