Common/Functions/Common_SetTurretsMags.sqf


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

private ["_content","_cpt","_data","_dataRow","_tConstruct","_turretPath","_vehicle"];
_vehicle = _this select 0;
_data = _this select 1;
_turretPath = if (count _this > 2) then {_this select 2} else {[]};
_cpt = count _turretPath;

for "_i" from 0 to ((count _data) - 1) do {
	_dataRow = _data select _i;
	
	if (count _dataRow > 0) then {
		if (typeName _dataRow == 'ARRAY') then {
			_content = _dataRow select 0;
			//--- root.
			if (typeName _content == 'SCALAR') then {
				_turretPath set [_cpt,[_content]];
				_tConstruct = [];
				{_tConstruct = _tConstruct + _x} forEach _turretPath;
				{
					_vehicle addMagazineTurret [_x, _tConstruct];
				} forEach (_data select (_i+1));
			};
			//--- go deeper.
			if (typeName _content == 'ARRAY') then {
				[_vehicle,_dataRow,_turretPath] Call SetTurretsMags;
				_turretPath = [];
				_cpt = 0;
			};
		};
	};
};