1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
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 {};
};
|
