initHEADmain

1 files changed, 136 insertions, 0 deletions

diff --git a/Client/Module/UAV/uav.sqf b/Client/Module/UAV/uav.sqf
new file mode 100644
index 0000000..840ffbe
--- /dev/null
+++ b/Client/Module/UAV/uav.sqf
@@ -0,0 +1,136 @@
+Private ['_add','_buildings','_built','_checks','_closest','_cw','_d','_dir','_driver','_group','_gunner','_id','_lastWP','_lastWPpos','_logic','_logicMARTA','_pos','_radius','_sorted','_spawn','_step','_uav','_varname','_waypoints','_wp','_wpcount'];

+_logic = UAVL;

+

+if (!isNull playerUAV) then {if (!alive playerUAV) then {playerUAV = objNull}};

+if (!isNull playerUAV) exitWith {

+	if (WF_A2_Vanilla) then {

+		ExecVM "Client\Module\UAV\uav_interface.sqf";

+	} else {

+		ExecVM "Client\Module\UAV\uav_interface_oa.sqf";

+	};

+};

+

+//--- Logic ID

+if (isnil "BIS_uavlastID") then {BIS_uav_lastID = -1};

+BIS_uav_lastID = BIS_uav_lastID + 1;

+_id = BIS_uav_lastID;

+_varname = "";

+call compile format ["BIS_uav_%1 = _logic; _logic setvehiclevarname 'BIS_uav_%1'; _varname = 'BIS_uav_%1'; publicvariable 'BIS_uav_%1'",BIS_uav_lastID];

+_logic setVariable ["ID",BIS_uav_lastID];

+

+//--- First call

+if (BIS_uav_lastID == 0) then {

+	//--- Execute MARTA

+	if (isnil "bis_marta_mainscope") then {

+		(group _logic) createunit ["MartaManager",position player,[],0,"none"];

+	};

+};

+

+_buildings = (sideJoinedText) Call GetSideStructures;

+_checks = [sideJoined,Format ["WFBE_%1COMMANDCENTERTYPE",sideJoinedText] Call GetNamespace,_buildings] Call GetFactories;

+_closest = objNull;

+if (count _checks > 0) then {

+	_sorted = [player,_checks] Call SortByDistance;

+	_closest = _sorted select 0;

+};

+

+if (isNull _closest) exitWith {};

+

+_uav = createVehicle [Format ["WFBE_%1UAV",sideJoinedText] Call GetNamespace,getPos _closest, [], 0, "FLY"];

+playerUAV = _uav;

+Call Compile Format ["_uav addEventHandler ['Killed',{[_this select 0,_this select 1,%1] Spawn UnitKilled}]",sideJoined];

+_uav SetVehicleInit Format["[this,%1] ExecVM 'Common\Common_InitUnit.sqf';",sideJoined];

+processInitCommands;

+

+//--- Remove weapons if air restriction is enabled.

+if (('WFBE_RESTRICTIONADVAIR' Call GetNamespace) == 2) then {removeAllWeapons _uav};

+

+_group = createGroup sideJoined;

+_driver = [Format ["WFBE_%1SOLDIER",sideJoinedText] Call GetNamespace,_group,getPos _uav,sideJoined] Call CreateMan;

+_driver MoveInDriver _uav;

+

+_built = 1;

+//--- OPFOR Uav has no gunner slot.

+if (sideJoined == west) then {

+	_gunner = [Format ["WFBE_%1SOLDIER",sideJoinedText] Call GetNamespace,_group,getPos _uav,sideJoined] Call CreateMan;

+	_gunner MoveInGunner _uav;

+	_built = _built + 1;

+};

+[sideJoinedText,'UnitsCreated',_built] Call UpdateStatistics;

+[sideJoinedText,'VehiclesCreated',1] Call UpdateStatistics;

+

+-12500 Call ChangePlayerFunds;

+

+WFBE_RequestSpecial = ['SRVFNCREQUESTSPECIAL',["uav",sideJoined,_uav,clientTeam]];

+publicVariable 'WFBE_RequestSpecial';

+if (isHostedServer) then {['SRVFNCREQUESTSPECIAL',["uav",sideJoined,_uav,clientTeam]] Spawn HandleSPVF};

+

+sleep 0.02;

+

+if ((count units _uav) > 1) then {[driver _uav] join grpnull};

+

+_radius = 1000;

+_wpcount = 4;

+_step = 360 / _wpcount;

+_add = 0;

+_cw = true;

+_dir = 0;

+if !(isNil "_lastWP") then {deletewaypoint _lastWP};

+

+//--- No need to preprocess those.

+if (WF_A2_Vanilla) then {

+	ExecVM "Client\Module\UAV\uav_interface.sqf";

+} else {

+	ExecVM "Client\Module\UAV\uav_interface_oa.sqf";

+};

+[_uav] ExecVM 'Client\Module\UAV\uav_spotter.sqf';

+

+_spawn = [] spawn {}; //--- Empty spawn

+while {alive _uav} do {

+	waituntil {waypointdescription [group _uav,currentwaypoint group _uav] != ' ' || !alive _uav};

+	terminate _spawn; //--- Terminate spawn from previous loop

+	if (!(alive _uav)||isNull _uav) exitwith {};

+

+	_waypoints = waypoints _uav;

+	_lastWP = _waypoints select (count _waypoints - 1);

+	_lastWPpos = waypointposition _lastWP;

+	deletewaypoint _lastWP;

+	for "_d" from 0 to (360-_step) step _step do

+	{

+		_add = _d;

+		if !(_cw) then {_add = -_d};

+		_pos = [_lastWPpos, _radius, _dir+_add] call bis_fnc_relPos;

+		_wp = (group _uav) addwaypoint [_pos,0];

+		_wp setWaypointType "MOVE";

+		_wp setwaypointdescription ' ';

+		_wp setwaypointcompletionradius (1000/_wpcount);

+	};

+

+	_spawn = [_uav,_add,_step,_lastWPpos,_radius,_dir] spawn {

+		Private ['_add','_currentWP','_dir','_lastWPpos','_pos','_radius','_step','_uav','_wp'];

+		scriptname "UAV Route planning";

+		_uav = _this select 0;

+		_add = _this select 1;

+		_step = _this select 2;

+		_lastWPpos = _this select 3;

+		_radius = _this select 4;

+		_dir = _this select 5;

+		_currentWP = currentwaypoint group _uav;

+		while {alive _uav} do {

+			waituntil {_currentWP != currentwaypoint group _uav};

+			sleep .01;

+			_add = _add + _step;

+			if !(_cw) then {_add = -_add};

+			_pos = [_lastWPpos, _radius, _dir+_add] call bis_fnc_relPos;

+			_wp = (group _uav) addwaypoint [_pos,0];

+			_wp setWaypointType "MOVE";

+			_wp setwaypointdescription ' ';

+			_wp setwaypointcompletionradius (1000/_wpcount);

+			_currentWP = currentwaypoint group _uav;

+		};

+	};

+

+	_wpcount = count waypoints _uav;

+	waituntil {waypointdescription [group _uav,currentwaypoint group _uav] == ' ' || _wpcount != count waypoints _uav || !alive _uav};

+	if (!(alive _uav)||isNull _uav) exitwith {};

+};