View difference between Paste ID: Vs9vr9An and e3xurPug

-/*
+_root = configFile >> "cfgVehicles";
-* Pos_fnc.sqf
+_configs = [];
-* POS_FNC = compile preprocessFile "Pos_fnc.sqf";
+_parents = [];
-* Dimon UA Find position SCRIPT.
+_output = "";
-*FFA_ENEMYFORTFN=["WarfareBCamp","WarfareBDepot","Land_Fort_Watchtower","Land_fortified_nest_big","Land_fortified_nest_small"];
+for "_i" from 0 to (count _root - 1) do {
-* пример:
+	_configs set [_i, configName(_root select _i)];
-	[[FFA_ENEMYFORTFN, 1000], [getpos player, [500,600]], 0, [200, 300], [10, 10], 0.3, false, [0, 15], [FFA_ENEMYFORTFN, 20], false] call POS_FNC;
+	_parents set [_i, configName inheritsFrom(_root select _i)];
 };
-*	_minDistance = _this select 2;     			// минимально допустимая дистанция до ближайшего объекта.
+_getChildren =
-	если значение 0 то:
+{
-	_minDistance = sizeOf typeOf vehicle;
+	private["_class", "_tab", "_i","_temp","_DisplayName","_side","_cargospace","_crew","_magazines","_weapons"];
-	_gradientRadius = sizeOf typeOf vehicle * _gradientRadius;
+	_class = _this select 0;
-	_xdistance = sizeOf typeOf vehicle * 1.1;
+	_tab = _this select 1;
-*/
+	for "_i" from 0 to (count _configs - 1) do
 	{
-#define cn !(isOnRoad _isFlat)
+
-#define ucn (isOnRoad _isFlat)
+		if ((_parents select _i) == _class) then
-#define tn (count (_isFlat nearRoads _xroads) == 0)
+
-#define mn (count (nearestObjects [ _isFlat , _neartype, _xdistance]) == 0)
+			_abstract = if(getText((_root select _i) >> "model") != "")then{""}else{"*"};
-#define sn sizeOf typeOf _veh
+			// if (_abstract != "*") then {
 
 
-private["_type","_count","_marker","_radius","_minDistance","_minradius","_maxradius","_minGradient","_maxGradient","_gradientRadius","_onShore","_onroad", "_xroads","_neartype","_xdistance","_damage","_typecount","_unittype","_xradius","_xGradient", "_xcountx","_cnt","_isFlat","_poss","_veh"];
+			if (((_configs select _i) isKindOf "Man") || ((_configs select _i) isKindOf "landvehicle") || ((_configs select _i) isKindOf "air") ) then {
 			_DisplayName = getText (_root>>(_configs select _i)>> "displayname");
-	_type = ((_this select 0) select 0);        // массив обьектов
+
-	_count = ((_this select 0) select 1);       // кол-во обьектов
+			_side="unknown";
-	_marker = ((_this select 1) select 0);      // центр радиуса размещения обьекта
+			_crew="";
-	_radius1 = (((_this select 1) select 1) select 0);	// минимальный максимальный радиус размещения обьекта
+			_magazines="";
-	_radius2 = (((_this select 1) select 1) select 1); // максимальный радиус размещения обьекта
+			_weapons="";
-	_minDistance = _this select 2;     			// минимально допустимая дистанция до ближайшего объекта.
+			_cargospace="";
-	_minradius = ((_this select 3) select 0);  	// минимальный радиус поиска площадки вокруг обьекта
+
-	_maxradius = ((_this select 3) select 1); 	// максимальный радиус поиска площадки вокруг обьекта
+			if ((getNumber (_root>>(_configs select _i)>> "side")) == 0) then {_side="east"};
-	_minGradient=((_this select 4) select 0); // минимальное значение максимального допустимого наклона (разница высот) площадки
+			if ((getNumber (_root>>(_configs select _i)>> "side")) == 1) then {_side="west"};
-	_maxGradient=((_this select 4) select 1); // максимальное значение максимального допустимого наклона (разница высот) площадки
+			if ((getNumber (_root>>(_configs select _i)>> "side")) == 2) then {_side="guerilla"};
-	_gradientRadius = _this select 5;  			// радиус окружности, в пределах которой учитывается _minGradient
+			if ((getNumber (_root>>(_configs select _i)>> "side")) == 3) then {_side="civilian"};
-	_onShore=_this select 6;          			// true если необходима вода в радиусе 25 метров
+
-	_onroad=((_this select 7) select 0);  		// 0 если дороги не должно быть, 1 если все равно, 2 если дорога требуется.
+			if ((_configs select _i) isKindOf "Man") then
-	_xroads=((_this select 7) select 1); 		// значение в метрах радиуса в котором ищется наличие дороги.
+
-	_neartype=((_this select 8) select 0);     // массив обьектов возле которых при заданной дистанции  нельзя ставить обьект.
+				_cargospace="";
-	_xdistance=((_this select 8) select 1);     // дистанция до обьектов возле которых нельзя ставить нужный нам обьект(ы).
+				_crew="";
-	_damage = _this select 9;		// true если обьект разрушаем, false если обьект неразрушаем.
+				{_magazines=_magazines+", "+_x} forEach getArray (_root>>(_configs select _i)>> "magazines");
 				{_weapons=_weapons+", "+_x} forEach getArray (_root>>(_configs select _i)>> "weapons");
-	_xradius = (_maxradius - _minradius) / 100;
+			};
-	_xGradient = (_maxGradient - _minGradient) / 100;
+
-	_xradius1 = (_radius2 - _radius1) / 100;
+			if ((_configs select _i) isKindOf "landvehicle") then
-	for "_cnt" from 0 to (_count-1) step 1 do
+
- 	{
+				_magazines="";
-		_typecount=(count _type)-1;
+				_weapons="";
-		_unittype=_type select (round random _typecount);
+				_cargospace=format["%1",(getNumber (_root>>(_configs select _i)>> "transportsoldier"))];
-		_xcountx = 0;
+				{_crew=_crew+", "+_x} forEach getArray (_root>>(_configs select _i)>> "typicalcargo");
-		_isFlat = [];
+
-		while {_xcountx < 100} do
+
 			if ((_configs select _i) isKindOf "air") then
-			_veh=createVehicle [_unittype, _marker, [], _radius1, "CAN_COLLIDE"];
+
-			if (_minDistance == 0) then
+				_magazines="";
 				_weapons="";
-				_minDistance = sn;
+				_cargospace=format["%1",(getNumber (_root>>(_configs select _i)>> "transportsoldier"))];
-				_gradientRadius = sn * _gradientRadius;
+				{_crew=_crew+", "+_x} forEach getArray (_root>>(_configs select _i)>> "typicalcargo");
-				_xdistance = sn * 1.1;
+
-			};
+
-			_isFlat = (position _veh) isFlatEmpty [_minDistance , _minradius, _minGradient, _gradientRadius, 0, _onShore, _veh];
+			diag_log format ["%1;%2;%3;%4;%5;%6;%7", (_configs select _i), _DisplayName,_side,_cargospace,_crew,_magazines,_weapons];
-			if (count _isFlat > 0) then
+			// _output = _output+_abstract+(_configs select _i)+";"+_DisplayName+";"+_side+";"+_magazines+";"+_weapons+";"+_cargospace+";"+_crew+toString[10];
 			};
-				_isFlat set [2, 0];
+
-				if ( _onroad == 1) then
+
-				{
+			hint (_configs select _i);
-					if (mn) then
+			[_configs select _i, _tab + " "] call _getChildren;
-					{
+
-						_poss = _isFlat;
+
-						_poss set [2, 0];
+	};
-						_veh setPos _poss;
+};
-						_veh setVectorUp (surfaceNormal (position _veh));
+["", ""] call _getChildren;
-						_veh allowDamage _damage;
+//copyToClipboard _output;
-						_xcountx = _xcountx + 100;
+hint "done";