View difference between Paste ID: 08hu13vC and e3xurPug

-/*
+/* ----------------------------------------------------------------------------
-* Pos_fnc.sqf
+Function: CBA_fnc_inArea
-* POS_FNC = compile preprocessFile "Pos_fnc.sqf";
+
-* Dimon UA Find position SCRIPT.
+Description:
-*FFA_ENEMYFORTFN=["WarfareBCamp","WarfareBDepot","Land_Fort_Watchtower","Land_fortified_nest_big","Land_fortified_nest_small"];
+	A function used to determine if a position is within a zone.
-* пример:
+
-	[[FFA_ENEMYFORTFN, 1000], [getpos player, [500,600]], 0, [200, 300], [10, 10], 0.3, false, [0, 15], [FFA_ENEMYFORTFN, 20], false] call POS_FNC;
+	The "position" can be given as a marker name, an object,
 	location, group or a position array.
-*	_minDistance = _this select 2;     			// минимально допустимая дистанция до ближайшего объекта.
+
-	если значение 0 то:
+	The zone is specificed either as a marker name or a trigger.
-	_minDistance = sizeOf typeOf vehicle;
+
-	_gradientRadius = sizeOf typeOf vehicle * _gradientRadius;
+Parameters:
-	_xdistance = sizeOf typeOf vehicle * 1.1;
+	A two-element array, [ position, zone], where
-*/
+
 	- position: Marker|Object|Location|Group|Position
-#define cn !(isOnRoad _isFlat)
+	- zone:     Marker|Trigger
-#define ucn (isOnRoad _isFlat)
+
-#define tn (count (_isFlat nearRoads _xroads) == 0)
+Example:
-#define mn (count (nearestObjects [ _isFlat , _neartype, _xdistance]) == 0)
+	(begin example)
-#define sn sizeOf typeOf _veh
+	// Is the marker "playermarker" inside the "safezone" marker area?
 	_safe = [ "playermarker", "safezone"] call CBA_fnc_inArea;
 
-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"];
+	// is the player within the safe zone marker area?
 	_pos = getPos player;
-	_type = ((_this select 0) select 0);        // массив обьектов
+	_safe = [ _pos, "safezone" ] call CBA_fnc_inArea;
-	_count = ((_this select 0) select 1);       // кол-во обьектов
+
-	_marker = ((_this select 1) select 0);      // центр радиуса размещения обьекта
+	// Deny artillery if target is inside the trigger area
-	_radius1 = (((_this select 1) select 1) select 0);	// минимальный максимальный радиус размещения обьекта
+	if ([_target, cityTrigger] call CBA_fnc_inArea) then
-	_radius2 = (((_this select 1) select 1) select 1); // максимальный радиус размещения обьекта
+	{
-	_minDistance = _this select 2;     			// минимально допустимая дистанция до ближайшего объекта.
+		// deny fire mission
-	_minradius = ((_this select 3) select 0);  	// минимальный радиус поиска площадки вокруг обьекта
+	}
-	_maxradius = ((_this select 3) select 1); 	// максимальный радиус поиска площадки вокруг обьекта
+	else
-	_minGradient=((_this select 4) select 0); // минимальное значение максимального допустимого наклона (разница высот) площадки
+	{
-	_maxGradient=((_this select 4) select 1); // максимальное значение максимального допустимого наклона (разница высот) площадки
+		// fire away!
-	_gradientRadius = _this select 5;  			// радиус окружности, в пределах которой учитывается _minGradient
+	};
-	_onShore=_this select 6;          			// true если необходима вода в радиусе 25 метров
+	(end)
-	_onroad=((_this select 7) select 0);  		// 0 если дороги не должно быть, 1 если все равно, 2 если дорога требуется.
+
-	_xroads=((_this select 7) select 1); 		// значение в метрах радиуса в котором ищется наличие дороги.
+Returns:
-	_neartype=((_this select 8) select 0);     // массив обьектов возле которых при заданной дистанции  нельзя ставить обьект.
+	Boolean
-	_xdistance=((_this select 8) select 1);     // дистанция до обьектов возле которых нельзя ставить нужный нам обьект(ы).
+
-	_damage = _this select 9;		// true если обьект разрушаем, false если обьект неразрушаем.
+Author:
 	Rommel
-	_xradius = (_maxradius - _minradius) / 100;
+
-	_xGradient = (_maxGradient - _minGradient) / 100;
+---------------------------------------------------------------------------- */
-	_xradius1 = (_radius2 - _radius1) / 100;
+#include "script_component.hpp"
-	for "_cnt" from 0 to (_count-1) step 1 do
+
- 	{
+PARAMS_2(_position,_zRef);
-		_typecount=(count _type)-1;
+
-		_unittype=_type select (round random _typecount);
+_position = (_position call CBA_fnc_getpos);
-		_xcountx = 0;
+
-		_isFlat = [];
+private ["_zSize","_zDir","_zShape","_zPos"];
-		while {_xcountx < 100} do
+switch (typename _zRef) do {
-		{
+	case "STRING" : {
-			_veh=createVehicle [_unittype, _marker, [], _radius1, "CAN_COLLIDE"];
+		_zSize = markerSize _zRef;
-			if (_minDistance == 0) then
+		_zDir = markerDir _zRef;
-			{
+		_zShape = tolower (markerShape _zRef);
-				_minDistance = sn;
+		_zPos = (_zRef call CBA_fnc_getpos);
-				_gradientRadius = sn * _gradientRadius;
+	};
-				_xdistance = sn * 1.1;
+	case "OBJECT" : {
-			};
+		_zSize = triggerArea _zRef;
-			_isFlat = (position _veh) isFlatEmpty [_minDistance , _minradius, _minGradient, _gradientRadius, 0, _onShore, _veh];
+		_zDir = _zSize select 2;
-			if (count _isFlat > 0) then
+		_zShape = if (_zSize select 3) then {"rectangle"} else {"ellipse"};
-			{
+		_zPos = getpos _zRef;
-				_isFlat set [2, 0];
+	};
-				if ( _onroad == 1) then
+};
-				{
+
-					if (mn) then
+if (isnil "_zSize") exitwith {false};
-					{
+
-						_poss = _isFlat;
+_position = [_zPos,_position,_zDir] call CBA_fnc_vectRotate2D;
-						_poss set [2, 0];
+
-						_veh setPos _poss;
+private ["_x1","_y1"];
-						_veh setVectorUp (surfaceNormal (position _veh));
+_x1 = _zpos select 0;
-						_veh allowDamage _damage;
+_y1 = _zpos select 1;
-						_xcountx = _xcountx + 100;
+
-					} else {
+private ["_x2","_y2"];
-						deletevehicle _veh;
+_x2 = _position select 0;
-						_isFlat = [];
+_y2 = _position select 1;
-					};
+
-				} else {
+private ["_dx","_dy"];
-					if ( _onroad == 0) then
+_dx = _x2 - _x1;
-					{
+_dy = _y2 - _y1;
-						if ( cn && tn && mn) then
+
-						{
+private ["_zx","_zy"];
-							_poss = _isFlat;
+_zx = _zsize select 0;
-							_poss set [2, 0];
+_zy = _zsize select 1;
-							_veh setPos _poss;
+
-							_veh setVectorUp (surfaceNormal (position _veh));
+switch (_zShape) do {
-							_veh allowDamage _damage;
+	case "ellipse" : {
-							_xcountx = _xcountx + 100;
+		((_dx^2)/(_zx^2) + (_dy^2)/(_zy^2)) < 1
-						} else {
+	};
-							deletevehicle _veh;
+	case "rectangle" : {
-							_isFlat = [];
+		(abs _dx < _zx) and (abs _dy < _zy)
-						};
+	};
-					} else {
+};