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
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
|
Private ["_building","_cpt","_commander","_created","_crew","_currentUnit","_description","_direction","_distance","_driver","_extracrew","_factory","_factoryPosition","_factoryType","_group","_gunner","_index","_init","_isArtillery","_isMan","_locked","_longest","_position","_queu","_queu2","_ret","_show","_soldier","_waitTime","_txt","_type","_upgrades","_unique","_unit","_vehi","_vehicle","_vehicles"];
_building = _this select 0;
_unit = _this select 1;
_vehi = _this select 2;
_factory = _this select 3;
_cpt = _this select 4;
_isMan = if (_unit isKindOf "Man") then {true} else {false};
unitQueu = unitQueu + _cpt;
_distance = 0;
_direction = 0;
_longest = 0;
_position = 0;
_waitTime = 0;
_factoryType = "";
_description = "";
_currentUnit = _unit Call GetNamespace;
_waitTime = _currentUnit select QUERYUNITTIME;
_description = _currentUnit select QUERYUNITLABEL;
_type = typeOf _building;
_index = (Format ["WFBE_%1STRUCTURENAMES",sideJoinedText] Call GetNamespace) find _type;
if (_index != -1) then {
_distance = (Format ["WFBE_%1STRUCTUREDISTANCES",sideJoinedText] Call GetNamespace) select _index;
_direction = (Format ["WFBE_%1STRUCTUREDIRECTIONS",sideJoinedText] Call GetNamespace) select _index;
_factoryType = (Format ["WFBE_%1STRUCTURES",sideJoinedText] Call GetNamespace) select _index;
_position = [getPos _building,_distance,getDir _building + _direction] Call GetPositionFrom;
_longest = Format ["WFBE_LONGEST%1BUILDTIME",_factoryType] Call GetNamespace;
} else {
if (_type in WFDEPOT) then {
_distance = depotDistance;
_direction = depotDirection;
_factoryType = "Depot";
};
if (_type in WFHANGAR) then {
_distance = airportDistance;
_direction = airportDirection;
_factoryType = "Airport";
};
_position = [getPos _building,_distance,getDir _building + _direction] Call GetPositionFrom;
_longest = Format ["WFBE_LONGEST%1BUILDTIME",_factoryType] Call GetNamespace;
};
_unique = varQueu;
varQueu = (random 10)+(random 100)+(random 1000);
_queu = _building getVariable "queu";
if (isNil "_queu") then {_queu = []};
_queu = _queu + [_unique];
_building setVariable ["queu",_queu,true];
_ret = 0;
_queu2 = [0];
if (count _queu > 0) then {_queu2 = _building getVariable "queu"};
_show = false;
while {_unique != _queu select 0 && alive _building && !isNull _building} do {
sleep 4;
_show = true;
_ret = _ret + 4;
_queu = _building getVariable "queu";
if (_queu select 0 == _queu2 select 0) then {
if (_ret > _longest) then {
if (count _queu > 0) then {
_queu = _building getVariable "queu";
_queu = _queu - [_queu select 0];
_building setVariable ["queu",_queu,true];
};
};
};
if (count _queu != count _queu2) then {
_ret = 0;
_queu2 = _building getVariable "queu";
};
};
if (_show) then {hint(parseText(Format [localize "STR_WF_INFO_BuyEffective",_description]))};
sleep _waitTime;
_queu = _building getVariable "queu";
_queu = _queu - [_unique];
_building setVariable ["queu",_queu,true];
_group = group player;
if !(alive _building) exitWith {
unitQueu = unitQueu - _cpt;
[Format["WFBE_C_QUEUE_%1",_factory],(Format["WFBE_C_QUEUE_%1",_factory] Call GetNamespace)-1,true] Call SetNamespace;
};
_created = objNull;
if (_isMan) then {
_soldier = [_unit,_group,_position,sideJoined] Call CreateMan;
_created = _soldier;
[sideJoinedText,'UnitsCreated',1] Call UpdateStatistics;
} else {
_driver = _vehi select 0;
_gunner = _vehi select 1;
_commander = _vehi select 2;
_extracrew = _vehi select 3;
_locked = _vehi select 4;
_vehicle = [_unit,_position,sideJoined,_locked] Call CreateVehi;
_created = _vehicle;
clientTeam reveal _vehicle;
_factoryPosition = getPos _building;
_vehicle setDir -((((_position select 1) - (_factoryPosition select 1)) atan2 ((_position select 0) - (_factoryPosition select 0))) - 90);
_vehicle setVelocity [0,0,-1];
_vehicles = (WF_Logic getVariable "emptyVehicles") + [_vehicle];
WF_Logic setVariable ["emptyVehicles",_vehicles,true];
if (isHostedServer) then {_vehicle setVariable ["WFBE_Taxi_Prohib", true]};
//--- Clear the vehicle.
clearWeaponCargo _vehicle;
clearMagazineCargo _vehicle;
/* Section: Init */
//--- Units that can lift vehicles.
if (_unit in Zeta_Lifter) then {
_upgrades = (sideJoinedText) Call GetSideUpgrades;
if (_upgrades select 8 > 0) then {_vehicle addAction [localize "STR_WF_Lift","Client\Module\ZetaCargo\Zeta_Hook.sqf"]};
};
//--- Lock / Unlock.
_vehicle addAction [localize "STR_WF_Unlock","Client\Action\Action_ToggleLock.sqf", [], 95, false, true, '', 'alive _target && locked _target'];
_vehicle addAction [localize "STR_WF_Lock","Client\Action\Action_ToggleLock.sqf", [], 94, false, true, '', 'alive _target && !(locked _target)'];
//--- Repair Truck.
if (_unit in (Format['WFBE_%1REPAIRTRUCKS',sideJoinedText] Call GetNamespace)) then {
if (('WFBE_VICTORYCONDITION' Call GetNamespace) != 1) then {
_vehicle setVehicleInit Format ["this addAction [localize 'STR_WF_BuildMenu_Repair','Client\Action\Action_BuildRepair.sqf', [], 99, false, true, '', 'side player == side _target && alive _target && player distance _target <= %1'];this addAction [localize 'STR_WF_Repair_MHQ','Client\Action\Action_RepairMHQ.sqf', [], 98, false, true, '', 'alive _target']",'WFBE_REPAIRTRUCKRANGE' Call GetNamespace];
} else {
_vehicle setVehicleInit Format ["this addAction [localize 'STR_WF_BuildMenu_Repair','Client\Action\Action_BuildRepair.sqf', [], 99, false, true, '', 'side player == side _target && alive _target && player distance _target <= %1']",'WFBE_REPAIRTRUCKRANGE' Call GetNamespace];
};
processInitCommands;
};
//--- Supply Truck.
if (_unit in (Format['WFBE_%1SUPPLYTRUCKS',sideJoinedText] Call GetNamespace)) then {[_vehicle,sideJoined] ExecFSM 'Client\FSM\updatesupply.fsm'};
//--- Salvage Truck.
if (_unit in (Format['WFBE_%1SALVAGETRUCK',sideJoinedText] Call GetNamespace)) then {[_vehicle] ExecFSM 'Client\FSM\updatesalvage.fsm'};
//--- Deal with ship units.
if (_unit isKindOf "Ship") then {_vehicle addAction [localize "STR_WF_Push","Client\Action\Action_Push.sqf", [], 93, false, true, "", "driver _target == _this && alive _target && speed _target < 30"]};
//--- Deal with Air units.
if (_unit isKindOf "Air") then {
_init = "";
//--- Add HALO + Cargo Eject to the vehicle if it can transport soldiers.
if !(_isMan) then {
if ((getNumber (configFile >> 'CfgVehicles' >> _unit >> 'transportSoldier')) > 0) then {
_init = _init + Format["this AddAction ['HALO','Client\Action\Action_HALO.sqf', [], 97, false, true, '', 'getPos _target select 2 >= %1 && alive _target'];this addAction [localize 'STR_WF_Cargo_Eject','Client\Action\Action_EjectCargo.sqf', [], 99, false, true, '', 'driver _target == _this && alive _target'];",('WFBE_HALOJUMPHEIGHT' Call GetNamespace)];
};
};
//--- Countermeasures parameter (Vanilla).
if (paramCounterMeasures) then {
_upgrades = (sideJoinedText) Call GetSideUpgrades;
if (_upgrades select 9 > 0) then {_init = _init + "nullReturn = [this] ExecVM 'Client\Module\CM\CM_Init.sqf';this addEventHandler ['incomingMissile',{_this Spawn CM_Countermeasures}];"};
};
//--- AAR Tracking.
if (paramAARadar) then {_init = _init + Format["nullReturn = [this,%1] ExecVM 'Common\Common_AARadarMarkerUpdate.sqf';",sideJoined]};
//--- Planes have a Taxi Reverse feature.
if (_unit isKindOf "Plane") then {_vehicle addAction [localize "STR_WF_TaxiReverse","Client\Action\Action_TaxiReverse.sqf", [], 92, false, true, "", "driver _target == _this && alive _target && speed _target < 4 && speed _target > -4 && getPos _target select 2 < 4"]};
//--- Process the init.
if (_init != "") then {_vehicle setVehicleInit _init; processInitCommands};
};
//--- Units Balancing.
if (_unit in ('WFBE_BALANCEDUNITS' Call GetNamespace) && paramBalancing) then {[_vehicle] Spawn BalanceInit};
//--- Are we dealing with an artillery unit.
_isArtillery = [_unit,sideJoinedText] Call IsArtillery;
if (_isArtillery != -1) then {[_vehicle,_isArtillery,sideJoinedText] Call EquipArtillery};
/* Section: Creation */
[sideJoinedText,'VehiclesCreated',1] Call UpdateStatistics;
_built = 0;
_group addVehicle _vehicle;
//--- Empty Vehicle.
if (!_driver && !_gunner && !_commander) exitWith {};
//--- Crew Management.
_crew = Format ["WFBE_%1SOLDIER",sideJoinedText] Call GetNamespace;
if (_unit isKindOf "Tank") then {_crew = Format ["WFBE_%1CREW",sideJoinedText] Call GetNamespace};
if (_unit isKindOf "Air") then {_crew = Format ["WFBE_%1PILOT",sideJoinedText] Call GetNamespace};
//--- Driver.
if (_driver) then {
_soldier = [_crew,_group,_position,sideJoined] Call CreateMan;
[_soldier] allowGetIn true;
_soldier moveInDriver _vehicle;
};
//--- Gunner.
if (_gunner) then {
_soldier = [_crew,_group,_position,sideJoined] Call CreateMan;
[_soldier] allowGetIn true;
_soldier moveInGunner _vehicle;
};
//--- Commander.
if (_commander) then {
_soldier = [_crew,_group,_position,sideJoined] Call CreateMan;
[_soldier] allowGetIn true;
_soldier moveInCommander _vehicle;
};
//--- Extra vehicle turrets.
if (_extracrew) then {
Private ["_turrets"];
_turrets = _currentUnit select QUERYUNITTURRETS;
{
if (isNull (_vehicle turretUnit _x)) then {
_soldier = [_crew,_group,_position,sideJoined] Call CreateMan;
[_soldier] allowGetIn true;
_soldier moveInTurret [_vehicle, _x];
};
} forEach _turrets;
};
[sideJoinedText,'UnitsCreated',_cpt] Call UpdateStatistics;
};
unitQueu = unitQueu - _cpt;
[Format["WFBE_C_QUEUE_%1",_factory],(Format["WFBE_C_QUEUE_%1",_factory] Call GetNamespace)-1,true] Call SetNamespace;
hint parseText(Format [localize "STR_WF_INFO_Build_Complete",_description]);
|
