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
|
Private ['_area','_coin','_coinCategories','_coinItemArray','_curId','_d','_defenseCategories','_defenseCosts','_defenseDescriptions','_defenses','_emptyStructures','_extra','_fix','_i','_indexCategory','_isHQdeployed','_structureCosts','_structureDescriptions','_structures','_updateDefenses','_updateStructures'];
_area = _this select 0;
_isHQdeployed = _this select 1;
_coin = _this select 2;
_extra = "";
if (count _this > 3) then {_extra = _this select 3};
_coin setVariable ["BIS_COIN_areasize", _area];
_coin setVariable ["BIS_COIN_fundsDescription",["$"]];
if (_extra == "") then {
_coin setVariable ["BIS_COIN_funds",if !(paramMoneyOnly) then {[(sideJoined) Call GetSideSupply, Call GetPlayerFunds]} else {Call GetPlayerFunds}];
_coin setVariable ["BIS_COIN_fundsDescription",if !(paramMoneyOnly) then {["S ","$ "]} else {["$ "]}];
};
_defenses = [];
_defenseCosts = [];
_defenseDescriptions = [];
_defenseCategories = [];
_structures = [(Format["WFBE_%1STRUCTURENAMES",sideJoinedText] Call GetNamespace) select 0];
_structureCosts = [(Format["WFBE_%1STRUCTURECOSTS",sideJoinedText] Call GetNamespace) select 0];
_structureDescriptions = [(Format["WFBE_%1STRUCTUREDESCRIPTIONS",sideJoinedText] Call GetNamespace) select 0];
_i = 0;
_updateStructures = false;
_updateDefenses = false;
_emptyStructures = false;
if (_isHQdeployed && _extra == "") then {_i = 1;_updateStructures = true; _updateDefenses = true};
if (_extra == "REPAIR") then {_updateDefenses = true; _emptyStructures = true;_coin setVariable ["BIS_COIN_funds",Call GetPlayerFunds]};
if (_updateStructures) then {
_structures = Format["WFBE_%1STRUCTURENAMES",sideJoinedText] Call GetNamespace;
_structureCosts = Format["WFBE_%1STRUCTURECOSTS",sideJoinedText] Call GetNamespace;
_structureDescriptions = Format["WFBE_%1STRUCTUREDESCRIPTIONS",sideJoinedText] Call GetNamespace;
};
if (_updateDefenses) then {
_defenses = Format["WFBE_%1DEFENSENAMES",sideJoinedText] Call GetNamespace;
{
_d = _x Call GetNamespace;
if !(isNil '_d') then {
_defenseCosts = _defenseCosts + [(_d select QUERYUNITPRICE)];
_defenseDescriptions = _defenseDescriptions + [(_d select QUERYUNITLABEL)];
_defenseCategories = _defenseCategories + [(_d select QUERYUNITFACTORY)];
};
} forEach _defenses;
};
if (_emptyStructures) then {
_structures = [];
_structureCosts = [];
_structureDescriptions = [];
};
_indexCategory=0;
_coinCategories = [];
_coinItemArray = [];
if (count _structures > 0) then {_coinCategories = _coinCategories + [localize "strwfbase"];_indexCategory =_indexCategory +1;};
if (count _defenses > 0) then {if (_extra == "REPAIR") then {_coinCategories = []};_coinCategories = _coinCategories + [localize "str_m04t37_0"] + [localize "STR_WF_Fortification"] + [localize "STR_WF_Strategic"] + [localize "STR_WF_Ammo"]};
if (_isHQdeployed && _i == 1 && _extra == "") then {_coinItemArray = _coinItemArray + [[_structures select 0,0,[0, _structureCosts select 0], (_structureDescriptions select 0) + " " + localize "strwfhqmobilizeme"]]};
for [{_i=_i}, {_i<count _structures}, {_i = _i+1}] do {
_coinItemArray = _coinItemArray + [[_structures select _i,0,[0, _structureCosts select _i], (_structureDescriptions select _i)]];
};
_fix = if !(paramMoneyOnly) then {1} else {0};
if (_extra == "REPAIR") then {_coinItemArray = [];_indexCategory=0;_fix = 0};
for '_i' from 0 to count(_defenses)-1 do {
_curId = _indexCategory;
switch (_defenseCategories select _i) do {
case "Fortification": {_curId = _indexCategory + 1};
case "Strategic": {_curId = _indexCategory + 2};
case "Ammo": {_curId = _indexCategory + 3};
};
_coinItemArray = _coinItemArray + [[_defenses select _i,_curId,[_fix, _defenseCosts select _i], _defenseDescriptions select _i]];
} forEach _defenses;
_coin setVariable ["BIS_COIN_categories",_coinCategories];
_coin setVariable ["BIS_COIN_items",_coinItemArray];
//--- Logic ID
if (isnil "BIS_coin_lastID") then {BIS_coin_lastID = -1};
BIS_coin_lastID = BIS_coin_lastID + 1;
call compile format ["BIS_coin_%1 = _coin; _coin setvehiclevarname 'BIS_coin_%1';",BIS_coin_lastID];
_coin setVariable ["BIS_COIN_ID",BIS_coin_lastID];
//--- Temporary variables
_coin setVariable ["BIS_COIN_params",[]];
|
