View difference between Paste ID: QHjMwQcG and e3xurPug

 /*
-* Pos_fnc.sqf
+* Pos_fnc3.sqf
-* POS_FNC = compile preprocessFile "Pos_fnc.sqf";
+* POS_FNC3 = compile preprocessFile "Pos_fnc3.sqf";
-* Dimon UA Find position SCRIPT.
+* Dimon UA Find position SCRIPT 3.
-*FFA_ENEMYFORTFN=["WarfareBCamp","WarfareBDepot","Land_Fort_Watchtower","Land_fortified_nest_big","Land_fortified_nest_small"];
+*
 * пример:
-	[[FFA_ENEMYFORTFN, 1000], [getpos player, [500,600]], 0, [200, 300], [10, 10], 0.3, false, [0, 15], [FFA_ENEMYFORTFN, 20], false] call POS_FNC;
+	_newPos=[getpos player, [0,400], 1, [100, 100], [10, 10], 0.1, [0,true], [1, 20, 60], [[],0],1500] call POS_FNC3;
 * _onroad:
-*	_minDistance = _this select 2;     			// минимально допустимая дистанция до ближайшего объекта.
+  0 - дороги не должно быть
-	если значение 0 то:
+  1 - все равно
-	_minDistance = sizeOf typeOf vehicle;
+  2 - только на дороге
-	_gradientRadius = sizeOf typeOf vehicle * _gradientRadius;
+  3 - дороги не должно быть, но в пределах радиус от дороги
-	_xdistance = sizeOf typeOf vehicle * 1.1;
+  4 - дорога должна быть или допустимый радиус от дороги.
   5 - дороги не должно быть и мин радиус от дороги где не должно быть, + радиус от дороги где можно разместить
   6 - дороги не должно быть и радиус от дороги где не должно быть
-#define cn !(isOnRoad _isFlat)
+
-#define ucn (isOnRoad _isFlat)
+
-#define tn (count (_isFlat nearRoads _xroads) == 0)
+#define cn !(isOnRoad _testPos)
-#define mn (count (nearestObjects [ _isFlat , _neartype, _xdistance]) == 0)
+#define ucn (isOnRoad _testPos)
-#define sn sizeOf typeOf _veh
+#define tn (count (_testPos nearRoads _xr) == 0)
 #define utn (count (_testPos nearRoads _xr) > 0)
 #define uctn (count (_testPos nearRoads _xrm) > 0)
-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"];
+#define mn (count (nearestObjects [ _testPos , _neartype, _xdistance]) == 0)
 #define sw (surfaceIsWater _testPos)
-	_type = ((_this select 0) select 0);        // массив обьектов
+
-	_count = ((_this select 0) select 1);       // кол-во обьектов
+scopeName "main";
-	_marker = ((_this select 1) select 0);      // центр радиуса размещения обьекта
+
-	_radius1 = (((_this select 1) select 1) select 0);	// минимальный максимальный радиус размещения обьекта
+private["_type","_count","_marker","_radius","_minDistance","_minradius","_maxradius","_minGradient","_maxGradient","_gradientRadius","_onShore","_onroad",
-	_radius2 = (((_this select 1) select 1) select 1); // максимальный радиус размещения обьекта
+        "_xr","_xc","_xrm","_posfind","_neartype","_xdistance","_damage","_typecount","_unittype","_xradius","_xGradient", "_xcountx","_cnt","_isFlat","_poss","_veh"];
-	_minDistance = _this select 2;     			// минимально допустимая дистанция до ближайшего объекта.
+
-	_minradius = ((_this select 3) select 0);  	// минимальный радиус поиска площадки вокруг обьекта
+_pos = _this select 0;      // центр радиуса размещения обьекта
-	_maxradius = ((_this select 3) select 1); 	// максимальный радиус поиска площадки вокруг обьекта
+_minDist = ((_this select 1) select 0);
-	_minGradient=((_this select 4) select 0); // минимальное значение максимального допустимого наклона (разница высот) площадки
+_maxDist = ((_this select 1) select 1);
-	_maxGradient=((_this select 4) select 1); // максимальное значение максимального допустимого наклона (разница высот) площадки
+_minDistance = _this select 2;     			// минимально допустимая дистанция до ближайшего объекта. 0 - по дефолту
-	_gradientRadius = _this select 5;  			// радиус окружности, в пределах которой учитывается _minGradient
+_minradius = ((_this select 3) select 0);  	// минимальный радиус поиска площадки вокруг обьекта
-	_onShore=_this select 6;          			// true если необходима вода в радиусе 25 метров
+_maxradius = ((_this select 3) select 1); 	// максимальный радиус поиска площадки вокруг обьекта
-	_onroad=((_this select 7) select 0);  		// 0 если дороги не должно быть, 1 если все равно, 2 если дорога требуется.
+_minGradient=((_this select 4) select 0);   // минимальное значение максимального допустимого наклона (разница высот) площадки
-	_xroads=((_this select 7) select 1); 		// значение в метрах радиуса в котором ищется наличие дороги.
+_maxGradient=((_this select 4) select 1);   // максимальное значение максимального допустимого наклона (разница высот) площадки
-	_neartype=((_this select 8) select 0);     // массив обьектов возле которых при заданной дистанции  нельзя ставить обьект.
+_gradientRadius = _this select 5;  			// радиус окружности, в пределах которой учитывается _minGradient
-	_xdistance=((_this select 8) select 1);     // дистанция до обьектов возле которых нельзя ставить нужный нам обьект(ы).
+_waterMode=((_this select 6) select 0);
-	_damage = _this select 9;		// true если обьект разрушаем, false если обьект неразрушаем.
+_onShore=((_this select 6) select 1);          			// true если необходима вода в радиусе 25 метров
 _onroad=((_this select 7) select 0);
-	_xradius = (_maxradius - _minradius) / 100;
+_xr=((_this select 7) select 1); 		// 1 радиус в котором ищется наличие дороги.
-	_xGradient = (_maxGradient - _minGradient) / 100;
+_xrm=((_this select 7) select 2); 		// 2 радиус в котором ищется наличие дороги.
-	_xradius1 = (_radius2 - _radius1) / 100;
+_neartype=((_this select 8) select 0);      // массив обьектов возле которых при заданной дистанции от обьекта нельзя ставить обьект.
-	for "_cnt" from 0 to (_count-1) step 1 do
+_xdistance=((_this select 8) select 1);     // дистанция до обьектов возле которых нельзя ставить нужный нам обьект(ы).
- 	{
+_xc	= _this select 9; // кол-во проверок позиций
-		_typecount=(count _type)-1;
+_blacklist = [];
-		_unittype=_type select (round random _typecount);
+if ((count _this) > 10) then { _blacklist = _this select 10;};
-		_xcountx = 0;
+_defaultPos = [];
-		_isFlat = [];
+if ((count _this) > 11) then { _defaultPos = _this select 11;};
-		while {_xcountx < 100} do
+
 if (_waterMode == 2) then { _onroad = 7;};
-			_veh=createVehicle [_unittype, _marker, [], _radius1, "CAN_COLLIDE"];
+
-			if (_minDistance == 0) then
+private ["_newPos", "_posX", "_posY"];
-			{
+_newPos = [];
-				_minDistance = sn;
+_posX = _pos select 0;
-				_gradientRadius = sn * _gradientRadius;
+_posY = _pos select 1;
-				_xdistance = sn * 1.1;
+
-			};
+private ["_xcountx"];
-			_isFlat = (position _veh) isFlatEmpty [_minDistance , _minradius, _minGradient, _gradientRadius, 0, _onShore, _veh];
+
-			if (count _isFlat > 0) then
+_xradius = (_maxradius - _minradius) / _xc;
-			{
+_xGradient = (_maxGradient - _minGradient) / _xc;
-				_isFlat set [2, 0];
+_xcountx = 0;
-				if ( _onroad == 1) then
+_isFlat = [];
 while {_xcountx < _xc} do
-					if (mn) then
+{
-					{
+	sleep 0.01;
-						_poss = _isFlat;
+	private ["_newX", "_newY", "_testPos"];
-						_poss set [2, 0];
+	_newX = _posX + (_maxDist - (random (_maxDist * 2)));
-						_veh setPos _poss;
+	_newY = _posY + (_maxDist - (random (_maxDist * 2)));
-						_veh setVectorUp (surfaceNormal (position _veh));
+	_testPos = [_newX, _newY];
-						_veh allowDamage _damage;
+
-						_xcountx = _xcountx + 100;
+	if (!([_testPos, _blacklist] call BIS_fnc_isPosBlacklisted)) then
-					} else {
+	{
-						deletevehicle _veh;
+		if ((_pos distance _testPos) >= _minDist) then
-						_isFlat = [];
+
-					};
+			if (!((count (_testPos isFlatEmpty [_minDistance, _minradius, _minGradient, _gradientRadius, 0, _onShore, objNull])) == 0)) then
-				} else {
+			{
-					if ( _onroad == 0) then
+				if ((_onroad == 1) && mn) then
-					{
+
-						if ( cn && tn && mn) then
+					_newPos = _testPos;
-						{
+					breakTo "main";
-							_poss = _isFlat;
+
-							_poss set [2, 0];
+				if ( (_onroad == 0) && cn && tn && mn) then
-							_veh setPos _poss;
+
-							_veh setVectorUp (surfaceNormal (position _veh));
+					_newPos = _testPos;
-							_veh allowDamage _damage;
+					breakTo "main";
-							_xcountx = _xcountx + 100;
+
-						} else {
+				if ( (_onroad == 2) && ucn && mn) then
-							deletevehicle _veh;
+
-							_isFlat = [];
+					_newPos = _testPos;
-						};
+					breakTo "main";
-					} else {
+
-						if ( ucn && mn) then
+				if ( (_onroad == 3) && cn && utn && mn) then
-						{
+
-							_poss = _isFlat;
+					_newPos = _testPos;
-							_poss set [2, 0];
+					breakTo "main";
-							_veh setPos _poss;
+
-							_veh setVectorUp (surfaceNormal (position _veh));
+				if ( (_onroad == 4) && (ucn || utn) && mn) then
-							_veh allowDamage _damage;
+
-							_xcountx = _xcountx + 100;
+					_newPos = _testPos;
-						} else {
+					breakTo "main";
-							deletevehicle _veh;
+
-							_isFlat = [];
+				if ( (_onroad == 5) && cn && tn && uctn && mn) then
-						};
+
-					};
+					_newPos = _testPos;
 					breakTo "main";
-			} else {
+
-				if (count _isFlat == 0) then { deletevehicle _veh };
+				if ( (_onroad == 6) && cn && tn && mn) then
-				_isFlat = [];
+
 					_newPos = _testPos;
-			_xcountx = _xcountx + 1;
+					breakTo "main";
-			_minradius = _minradius + _xradius;
+				};
-			_minGradient = _minGradient + _xGradient;
+
-			_radius1 = _radius1 + _xradius1;
+
 	};
-	};
+	_xcountx = _xcountx + 1;
 	_minradius = _minradius + _xradius;
 	_minGradient = _minGradient + _xGradient;
 };
 
 if ((count _newPos) == 0) then
 {
 	if (_waterMode == 0) then
 	{
 		if ((count _defaultPos) > 0) then
 		{
 			_newPos = _defaultPos select 0;
 		}
 		else
 		{
 			//Use world Armory default position:
 			_newPos = getArray(configFile >> "CfgWorlds" >> worldName >> "Armory" >> "positionStart");
 		};
 	}
 	else
 	{
 		if ((count _defaultPos) > 1) then
 		{
 			_newPos = _defaultPos select 1;
 		}
 		else
 		{
 			//Use world Armory default water position:
 			_newPos = getArray(configFile >> "CfgWorlds" >> worldName >> "Armory" >> "positionStartWater");
 		};
 	};
 };
 
 if ((count _newPos) == 0) then
 {
 	//Still nothing was found, use world center positions.
 	_newPos = getArray(configFile >> "CfgWorlds" >> worldName >> "centerPosition");
 };
 
 _newPos