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
|
/* Description: Creates Defenses. */
Private ["_buildings","_defense","_direction","_isAIQuery","_isArtillery","_manned","_position","_side","_type"];
_type = _this select 0;
_side = _this select 1;
_position = _this select 2;
_direction = _this select 3;
_manned = _this select 4;
_isAIQuery = _this select 5;
_manRange = if (count _this > 6) then {_this select 6} else {'WFBE_DEFENSEMANRANGE' Call GetNamespace};
_defense = _type createVehicle _position;
_defense setDir _direction;
_defense setPos _position;
diag_log Format["[WFBE (INFORMATION)][frameno:%3 | ticktime:%4] Construction_StationaryDefense: A %1 %2 was created",str _side,_type,diag_frameno,diag_tickTime];
//--- If it's a minefield, we exit the script while spawning it.
if (_type == 'Sign_Danger') exitWith {
Private ["_c","_h","_mine","_mineType","_toWorld"];
_mineType = if (_side == east) then {'MineMineE'} else {'MineMine'};
_h = -4;
_c = 0;
for [{_z=0}, {_z<9}, {_z=_z+1}] do{
_array = [((_defense worldToModel (getPos _defense)) select 0) - 16 +_c,((_defense worldToModel (getPos _defense)) select 1) + _h];
_toWorld = _defense modelToWorld _array;
_toWorld set[2,0];
_mine = createMine [_mineType, _toWorld,[], 0];
_c = _c + 4;
};
_h = 0;
_c = 2;
for [{_z=0}, {_z<8}, {_z=_z+1}] do{
_array = [((_defense worldToModel (getPos _defense)) select 0) - 16 +_c,((_defense worldToModel (getPos _defense)) select 1) + _h];
_toWorld = _defense modelToWorld _array;
_toWorld set[2,0];
_mine = createMine [_mineType, _toWorld,[], 0];
_c = _c + 4;
};
_h = 4;
_c = 0;
for [{_z=0}, {_z<9}, {_z=_z+1}] do{
_array = [((_defense worldToModel (getPos _defense)) select 0) - 16 +_c,((_defense worldToModel (getPos _defense)) select 1) + _h];
_toWorld = _defense modelToWorld _array;
_toWorld set[2,0];
_mine = createMine [_mineType, _toWorld,[], 0];
_c = _c + 4;
};
deleteVehicle _defense;
};
if (_type == 'Concrete_Wall_EP1') then {
_defense addEventHandler ['handleDamage',{getDammage (_this select 0)+(_this select 2)/160}];
};
Call Compile Format ["_defense addEventHandler ['Killed',{[_this select 0,_this select 1,%1] Spawn UnitKilled}]",_side];
if (_defense EmptyPositions "gunner" > 0 && ((('WFBE_AIDEFENSE' Call GetNamespace) > 0) || _isAIQuery)) then {
Private ["_alives","_check","_closest","_team"];
_team = if (_side == WEST) then {WF_DefenseWestGrp} else {WF_DefenseEastGrp};
emptyQueu = emptyQueu + [_defense];
[_defense, _side] Spawn HandleReloadDefense;
_defense Spawn HandleEmptyVehicle;
if (_manned) then {
_alives = (units _team) Call GetLiveUnits;
if (count _alives < ('WFBE_AIDEFENSE' Call GetNamespace) || _isAIQuery) then {
_buildings = (str _side) Call GetSideStructures;
_closest = ['BARRACKSTYPE',_buildings,_manRange,_side,_defense] Call BuildingInRange;
//--- Manning Defenses.
if !(isNull _closest) then {
[_defense,_side,_team,_closest] Spawn HandleDefense;
};
};
};
};
if (paramArtyUI) then {
Private ["_isAC","_isVeh"];
_isVeh = getNumber(configFile >> "CfgVehicles" >> typeOf(_defense) >> "ARTY_IsArtyVehicle");
_isAC = getNumber(configFile >> "CfgVehicles" >> typeOf(_defense) >> "artilleryScanner");
if (_isVeh == 1 || _isAC == 1) then {
_defense setVehicleInit "[this] ExecVM 'Common\Common_InitArtillery.sqf'";
processInitCommands;
diag_log Format["[WFBE (INFORMATION)][frameno:%3 | ticktime:%4] Construction_StationaryDefense: Artillery UI has been set over the %1 %2",str _side,_type,diag_frameno,diag_tickTime];
};
};
/* Are we dealing with an artillery unit ? */
_isArtillery = [_type,_side] Call IsArtillery;
if (_isArtillery != -1) then {[_defense,_isArtillery,_side] Call EquipArtillery};
_defense
|
