init

4 files changed, 960 insertions, 0 deletions

diff --git a/Server/Missions/M_BASE_Attack/m_init.sqf b/Server/Missions/M_BASE_Attack/m_init.sqf
new file mode 100644
index 0000000..d16b977
--- /dev/null
+++ b/Server/Missions/M_BASE_Attack/m_init.sqf
@@ -0,0 +1,169 @@
+/* Base Attack Script (Hybrid) */

+Private ['_attackAfter','_attempts','_boundariesxy','_cpt','_group','_groups','_grps','_hq','_i','_inRange','_isHQDeployed','_jipHandler','_marker','_markerSize','_near','_pos','_position','_retVal','_runFor','_size','_spawnLocations','_structures','_target','_teamType','_uniqueIndex','_uniqueLabel','_vehicles'];

+

+_uniqueLabel = _this select 0;

+_uniqueIndex = _this select 1;

+_runFor = _this select 2;

+

+//--- Make sure that at least one building is available.

+_structures = (_runFor) Call GetSideStructures;

+if (count _structures == 0) exitWith{

+	[Format['_WFBE_M_RUNNINGMISSIONS_%1',_runFor],((Format['_WFBE_M_RUNNINGMISSIONS_%1',_runFor]) Call GetNamespace) - 1, true] Call SetNamespace;

+};

+

+/* Radio the designated team that a new mission is available */

+['NewMissionAvailable','',_runFor] Spawn SideMessage;

+

+//--- Grab the HQ.

+_isHQDeployed = (_runFor) Call GetSideHQDeployed;

+if (_isHQDeployed) then {

+	_hq = (_runFor) Call GetSideHQ;

+	if (alive _hq) then {_structures = _structures + [_hq]};

+};

+

+//--- Pick a target.

+_target = _structures select floor(random (count _structures));

+

+//--- Progressive difficulty.

+_grps = 2 + ('WFBE_TOWNRESISTANCEDIFFICULTY' Call GetNamespace);

+

+//--- Create the groups.

+_groups = [];

+for [{_i = 0},{_i < _grps},{_i = _i + 1}] do {

+	_groups = _groups + [createGroup resistance];

+};

+

+_markerSize = 700;

+_size = _markerSize;

+

+//--- Plan the attack delay.

+_attackAfter = (300)+(random 100)-(random 100);

+

+//--- Warn the client.

+WFBE_M_BASE_Attack = [_runFor,'CLTFNCM_BASE_ATTACK',[_size/2,_uniqueLabel,_uniqueIndex,_target,_groups]];

+publicVariable 'WFBE_M_BASE_Attack';

+if (isHostedServer || local player) then {[_runFor,'CLTFNCM_BASE_ATTACK',[_size/2,_uniqueLabel,_uniqueIndex,_target,_groups]] Spawn HandlePVF};

+_jipHandler = [_runFor,_size,_uniqueLabel,_uniqueIndex,_target,_groups] Spawn {

+	Private ['_groups','_oldPlayerList','_runFor','_size','_target','_uniqueLabel','_uniqueIndex','_update'];

+	_runFor = _this select 0;

+	_size = (_this select 1)/2;

+	_uniqueLabel = _this select 2;

+	_uniqueIndex = _this select 3;

+	_target = _this select 4;

+	_groups = _this select 5;

+	

+	while {true} do {

+		_oldPlayerList = playableUnits;

+		sleep 15;

+		_update = false;

+		{

+			if !(_x in _oldPlayerList) then {_update = true};

+		} forEach playableUnits;

+		

+		if (_update) then {

+			WFBE_M_BASE_Attack = [_runFor,'CLTFNCM_BASE_ATTACK',[_size,_uniqueLabel,_uniqueIndex,_target,_groups]];

+			publicVariable 'WFBE_M_BASE_Attack';

+			if (isHostedServer || local player) then {[_runFor,'CLTFNCM_BASE_ATTACK',[_size,_uniqueLabel,_uniqueIndex,_target,_groups]] Spawn HandlePVF};

+		};

+	};

+};

+

+sleep _attackAfter;

+

+//--- Targert died?

+if !(alive _target) then {

+	//--- Pick another target if possible, else send them to the HQ (DoA).

+	_structures = (_runFor) Call GetSideStructures;

+	if (count _structures == 0) then {

+		_hq = (_runFor) Call GetSideHQ;

+		_target = _hq;

+	} else {

+		_target = _structures select floor(random (count _structures));

+	};

+};

+

+//--- UPSMON Area Definition.

+_marker = "";

+if (paramUPSMON) then {

+	_marker = Format['UPSMON_%1%2',_uniqueLabel,_uniqueIndex];

+	createMarkerLocal [_marker, getPos _target];

+	_marker setMarkerColorLocal "ColorBlue";

+	_marker setMarkerShapeLocal "RECTANGLE";

+	_marker setMarkerBrushLocal "BORDER";

+	_marker setMarkerSizeLocal [300,300];

+	_marker setMarkerAlphaLocal 0;

+};

+

+_spawnLocations = [];

+_attempts = 0;

+while {count _spawnLocations < 8} do {

+	sleep 0.05;

+	_position = ([getPos _target,(_markerSize * 0.75),(_markerSize)] Call GetRandomPosition);

+	_pos = [_position, 50] Call GetSafePlace;

+	

+	_inRange = true;

+	if (paramBoundaries) then {

+		_boundariesxy = 'WFBE_BOUNDARIESXY' Call GetNamespace;

+		if (((_pos select 0) < (_markerSize / 2) || (_pos select 0) > (_boundariesxy - (_markerSize / 2))) || ((_pos select 1) < (_markerSize / 2) || (_pos select 1) > (_boundariesxy - (_markerSize / 2)))) then {

+			_inRange = false;

+		};

+	};

+

+	_near = _pos nearEntities [['Man','Car','Motorcycle','Ship','Air','Tank','StaticCannon'],_markerSize/8];

+	

+	if (east countSide _near == 0 && west countSide _near == 0 && _inRange) then {_spawnLocations = _spawnLocations + [_pos];_size = 650};

+	_attempts = _attempts + 1;

+	

+	if (_attempts > 50) then {

+		_attempts = 0;

+		_size = _size + (_markerSize/5);

+	};

+};

+

+_i = 0;

+_vehicles = [];

+while {_i < _grps} do {

+	_teamType = Format ["WFBE_RESPATROLTYPE%1%2",1 + round(random 2),round(random 2)] Call GetNamespace;

+	_group = _groups select _i;

+	_pos = _spawnLocations select floor(random(count _spawnLocations));

+	

+	_retVal = [_teamType,_pos,resistance,paramResVehLock,_group] Call CreateTeamTemplate;

+	_vehicles = _vehicles + (_retVal select 1);

+	

+	_group setFormation (['COLUMN','ECH RIGHT','LINE','FILE','DIAMOND'] select floor(random 5));

+	

+	_group setBehaviour 'COMBAT';

+	_group setCombatMode 'RED';

+	_group move (getPos _target);

+	

+	//--- If UPS is enabled, the ai will do a bit more than sitting in base.

+	if (paramUPSMON) then {[(leader _group),_marker,"move","nofollow","reinforcement"] Spawn UPSMON};

+	

+	_i = _i + 1;

+};

+

+//--- Wait until everyone's dead.

+waitUntil {

+	sleep 1;

+

+	_cpt = 0;

+	{

+		if !(isNil '_x') then {

+			_cpt = _cpt + (count ((units _x) Call GetLiveUnits));

+		};

+	} forEach _groups;

+	

+	_cpt == 0

+};

+

+//--- Kill the spawned thread if it still runs.

+if !(scriptDone _jipHandler) then {terminate _jipHandler};

+

+//--- Wait for the client to end up his sync.

+sleep 35;

+

+//--- Free the mission.

+[Format['_WFBE_M_RUNNINGMISSIONS_%1',_runFor],((Format['_WFBE_M_RUNNINGMISSIONS_%1',_runFor]) Call GetNamespace) - 1, true] Call SetNamespace;

+

+//--- Delete UPSMON Marker if necessary.

+if (paramUPSMON) then {deleteMarkerLocal _marker};
\ No newline at end of file
diff --git a/Server/Missions/M_PLAYERS_Attack_Air/m_init.sqf b/Server/Missions/M_PLAYERS_Attack_Air/m_init.sqf
new file mode 100644
index 0000000..d874c2e
--- /dev/null
+++ b/Server/Missions/M_PLAYERS_Attack_Air/m_init.sqf
@@ -0,0 +1,128 @@
+/* Players Attack Script (Hybrid) */

+Private ["_boundaries","_chopper","_group","_jipHandler","_list","_pilot","_players","_ran","_ranDir","_runFor","_ranPos","_target","_targets","_turrets","_uniqueIndex","_uniqueLabel","_vehicle"];

+

+_uniqueLabel = _this select 0;

+_uniqueIndex = _this select 1;

+_runFor = _this select 2;

+

+//--- Retrieve the players on a side.

+_players = [];

+_list = Format ["WFBE_%1TEAMS",_runFor] Call GetNamespace;

+{

+	if !(isNil '_x') then {

+		if (side _x == _runFor) then {

+			if (isPlayer(leader _x) && alive(leader _x)) then {_players = _players + [leader _x]};

+		};

+	};

+} forEach _list;

+

+//--- Ensure that the team already has a town.

+if (count _players == 0) exitWith {

+	[Format['_WFBE_M_RUNNINGMISSIONS_%1',_runFor],((Format['_WFBE_M_RUNNINGMISSIONS_%1',_runFor]) Call GetNamespace) - 1, true] Call SetNamespace;

+};

+

+//--- Radio the designated team that a new mission is available.

+['NewMissionAvailable','',_runFor] Spawn SideMessage;

+

+//--- Define the chopper spawn position.

+_boundaries = "WFBE_BOUNDARIESXY" Call GetNamespace;

+

+_ranPos = [];

+_ranDir = [];

+

+_bd = 'WFBE_BOUNDARIESXY' Call GetNamespace;

+if !(isNil '_bd') then {

+	_ranPos = [

+		[0+random(200),0+random(200),400+random(200)],

+		[0+random(200),_bd-random(200),400+random(200)],

+		[_bd-random(200),_bd-random(200),400+random(200)],

+		[_bd-random(200),0+random(200),400+random(200)]

+	];

+	_ranDir = [45,145,225,315];

+} else {

+	_ranPos = [[0+random(200),0+random(200),400+random(200)],[10000+random(200),0+random(200),400+random(200)]];

+	_ranDir = [45,315];

+};

+

+_ran = round(random((count _ranPos)-1));

+

+//--- This script use PMC units.

+_chopper = "Ka60_PMC";

+_group = createGroup resistance;

+_vehicle = createVehicle [_chopper,(_ranPos select _ran), [], (_ranDir select _ran), "FLY"];

+_vehicle addEventHandler ['Killed',{[_this select 0,_this select 1,resistance] Spawn UnitKilled}];

+

+//--- Man the chopper.

+_pilot = ["Soldier_Pilot_PMC",_group,[0,0,0],resistance] Call CreateMan;

+_pilot moveInDriver _vehicle;

+_pilot = ["Soldier_Pilot_PMC",_group,[0,0,0],resistance] Call CreateMan;

+_pilot moveInGunner _vehicle;

+

+//--- Man the extra turrets.

+_config = configFile >> "CfgVehicles" >> _chopper >> "Turrets";

+_turrets = [_config] call BIS_fnc_returnVehicleTurrets;

+if (count _turrets > 0) then {[_turrets, [], _vehicle, "Soldier_Pilot_PMC", _group] call SpawnTurrets};

+

+//--- Warn the client.

+WFBE_M_PLAYERS_Attack_Air = [_runFor,'CLTFNCM_PLAYERS_ATTACK_AIR',[_vehicle,_uniqueLabel,_uniqueIndex]];

+publicVariable 'WFBE_M_PLAYERS_Attack_Air';

+if (isHostedServer || local player) then {[_runFor,'CLTFNCM_PLAYERS_ATTACK_AIR',[_vehicle,_uniqueLabel,_uniqueIndex]] Spawn HandlePVF};

+_jipHandler = [_vehicle,_uniqueLabel,_uniqueIndex] Spawn {

+	Private ['_chopper','_oldPlayerList','_runFor','_uniqueLabel','_uniqueIndex','_update'];

+	_chopper = _this select 0;

+	_uniqueLabel = _this select 1;

+	_uniqueIndex = _this select 1;

+	

+	while {true} do {

+		_oldPlayerList = playableUnits;

+		sleep 15;

+		_update = false;

+		{

+			if !(_x in _oldPlayerList) then {_update = true};

+		} forEach playableUnits;

+		

+		if (_update) then {

+			WFBE_M_PLAYERS_Attack_Air = [_runFor,'CLTFNCM_PLAYERS_ATTACK_AIR',[_chopper,_uniqueLabel,_uniqueIndex]];

+			publicVariable 'WFBE_M_PLAYERS_Attack_Air';

+			if (isHostedServer || local player) then {[_runFor,'CLTFNCM_PLAYERS_ATTACK_AIR',[_chopper,_uniqueLabel,_uniqueIndex]] Spawn HandlePVF};

+		};

+	};

+};

+

+//--- Move the chopper toward the target.

+while {true} do {

+	sleep 20;

+	

+	_players = [];

+	{

+		if !(isNil '_x') then {

+			if (side _x == _runFor) then {

+				if (isPlayer(leader _x) && alive(leader _x)) then {_players = _players + [leader _x]};

+			};

+		};

+	} forEach _list;

+	

+	if (count _players == 0 || !alive _vehicle || !alive(driver _vehicle) || !canMove _vehicle) exitWith {};

+	

+	_targets = [_vehicle, _players] Call SortByDistance;

+	_target = _targets select 0;

+	{

+		if (vehicle _x == _x && !((vehicle _x) isKindOf "Air")) exitWith {_target = _x};

+	} forEach _targets;

+	

+	if !(someAmmo _vehicle) then {[_vehicle,resistance] Call RearmVehicle};

+	

+	_vehicle doMove (getPos _target);

+	{_group reveal _x} forEach (vehicle _target nearEntities 200);

+};

+

+if (alive _vehicle || count _players == 0) then {_vehicle setDammage 1};

+{if (alive _x || count _players == 0) then {_x setDammage 1}} forEach (units _group);

+

+//--- Kill the spawned thread if it still runs.

+if !(scriptDone _jipHandler) then {terminate _jipHandler};

+

+//--- Wait for the client to end up his sync.

+sleep 35;

+

+[Format['_WFBE_M_RUNNINGMISSIONS_%1',_runFor],((Format['_WFBE_M_RUNNINGMISSIONS_%1',_runFor]) Call GetNamespace) - 1, true] Call SetNamespace;
\ No newline at end of file
diff --git a/Server/Missions/M_TOWN_Attack/m_init.sqf b/Server/Missions/M_TOWN_Attack/m_init.sqf
new file mode 100644
index 0000000..b687535
--- /dev/null
+++ b/Server/Missions/M_TOWN_Attack/m_init.sqf
@@ -0,0 +1,160 @@
+/* Town Attack Script (Hybrid) */

+Private ['_attackAfter','_attempts','_boundariesxy','_cpt','_group','_groups','_grps','_i','_inRange','_jipHandler','_markerSize','_near','_pos','_position','_resTypes','_retVal','_runFor','_sideID','_size','_spawnLocations','_sup','_teamType','_town','_towns','_uniqueIndex','_uniqueLabel','_vehicles'];

+

+_uniqueLabel = _this select 0;

+_uniqueIndex = _this select 1;

+_runFor = _this select 2;

+

+//--- Retrieve towns.

+_towns = [];

+_sideID = (_runFor) Call GetSideID;

+{

+	if (_x getVariable 'sideID' == _sideID) then {_towns = _towns + [_x]};

+} forEach towns;

+

+//--- Ensure that the team already has a town.

+if (count _towns == 0) exitWith {

+	[Format['_WFBE_M_RUNNINGMISSIONS_%1',_runFor],((Format['_WFBE_M_RUNNINGMISSIONS_%1',_runFor]) Call GetNamespace) - 1, true] Call SetNamespace;

+};

+

+/* Radio the designated team that a new mission is available */

+['NewMissionAvailable','',_runFor] Spawn SideMessage;

+

+//--- Pick a town.

+_town = _towns select round(random((count _towns)-1));

+

+_markerSize = 500;

+_size = _markerSize;

+

+//--- Get the groups depending on the SV.

+_sup = _town getVariable 'supplyValue';

+_grps = 1;

+if (_sup < 30) then {_grps = 2};

+if (_sup >= 30 && _sup < 50) then {_grps = 3};

+if (_sup >= 50 && _sup < 80) then {_grps = 4};

+if (_sup >= 80 && _sup < 100) then {_grps = 5};

+if (_sup >= 100 && _sup < 120) then {_grps = 6};

+if (_sup >= 120) then {_grps = 7};

+

+//--- Create the groups.

+_groups = [];

+for [{_i = 0},{_i < _grps},{_i = _i + 1}] do {

+	_groups = _groups + [createGroup resistance];

+};

+

+//--- Plan the attack delay.

+_attackAfter = (200)+(random 100)-(random 100);

+

+//--- Warn the client.

+WFBE_M_TOWN_Attack = [_runFor,'CLTFNCM_TOWN_ATTACK',[_size/2,_uniqueLabel,_uniqueIndex,_town,_groups]];

+publicVariable 'WFBE_M_TOWN_Attack';

+if (isHostedServer || local player) then {[_runFor,'CLTFNCM_TOWN_ATTACK',[_size/2,_uniqueLabel,_uniqueIndex,_town,_groups]] Spawn HandlePVF};

+_jipHandler = [_runFor,_size,_uniqueLabel,_uniqueIndex,_town,_groups] Spawn {

+	Private ['_groups','_oldPlayerList','_runFor','_size','_town','_uniqueLabel','_uniqueIndex','_update'];

+	_runFor = _this select 0;

+	_size = (_this select 1)/2;

+	_uniqueLabel = _this select 2;

+	_uniqueIndex = _this select 3;

+	_town = _this select 4;

+	_groups = _this select 5;

+	

+	while {true} do {

+		_oldPlayerList = playableUnits;

+		sleep 15;

+		_update = false;

+		{

+			if !(_x in _oldPlayerList) then {_update = true};

+		} forEach playableUnits;

+		

+		if (_update) then {

+			WFBE_M_TOWN_Attack = [_runFor,'CLTFNCM_TOWN_ATTACK',[_size,_uniqueLabel,_uniqueIndex,_town,_groups]];

+			publicVariable 'WFBE_M_TOWN_Attack';

+			if (isHostedServer || local player) then {[_runFor,'CLTFNCM_TOWN_ATTACK',[_size,_uniqueLabel,_uniqueIndex,_town,_groups]] Spawn HandlePVF};

+		};

+	};

+};

+

+//--- Wait...

+sleep _attackAfter;

+

+_spawnLocations = [];

+_attempts = 0;

+while {count _spawnLocations < 8} do {

+	sleep 0.05;

+	_position = ([getPos _town,(_markerSize * 0.75),(_markerSize)] Call GetRandomPosition);

+	_pos = [_position, 50] Call GetSafePlace;

+	

+	_inRange = true;

+	if (paramBoundaries) then {

+		_boundariesxy = 'WFBE_BOUNDARIESXY' Call GetNamespace;

+		if (((_pos select 0) < (_markerSize / 2) || (_pos select 0) > (_boundariesxy - (_markerSize / 2))) || ((_pos select 1) < (_markerSize / 2) || (_pos select 1) > (_boundariesxy - (_markerSize / 2)))) then {

+			_inRange = false;

+		};

+	};

+

+	_near = _pos nearEntities [['Man','Car','Motorcycle','Ship','Air','Tank','StaticCannon'],_markerSize/8];

+	

+	if (east countSide _near == 0 && west countSide _near == 0 && _inRange) then {_spawnLocations = _spawnLocations + [_pos];_size = 650};

+	_attempts = _attempts + 1;

+	

+	if (_attempts > 50) then {

+		_attempts = 0;

+		_size = _size + (_markerSize/5);

+	};

+};

+

+_resTypes = _town getVariable 'resistanceTypes';

+_sideID = _town getVariable 'sideID';

+

+_i = 0;

+_vehicles = [];

+while {_i < _grps} do {

+	_teamType = Format ["WFBE_RES%1UNITS",_resTypes select floor(random(count _resTypes))] Call GetNamespace;

+	_group = _groups select _i;

+	_pos = _spawnLocations select floor(random(count _spawnLocations));

+	

+	_retVal = [_teamType,_pos,resistance,paramResVehLock,_group] Call CreateTeamTemplate;

+	_vehicles = _vehicles + [_retVal select 1];

+	

+	_group setFormation (['COLUMN','ECH RIGHT','LINE','FILE','DIAMOND'] select floor(random 5));

+	

+	if (_sideID == RESISTANCEID) then {

+		//--- Town is held by the resistance.

+		_group setBehaviour 'AWARE';

+		_group setCombatMode 'YELLOW';

+		[_group,_town,150] Spawn AITownPatrol;

+	} else {

+		_group setBehaviour 'COMBAT';

+		_group setCombatMode 'RED';

+		_group move (getPos _town);

+		//--- Town is held by the occupation.

+	};

+	

+	//--- Enhance the experience with UPSMON.

+	if (paramUPSMON) then {[(leader _group),Format ['UPSMON_TOWN_%1',str _town],"move","nofollow","reinforcement"] Spawn UPSMON};

+	

+	_i = _i + 1;

+};

+

+//--- Wait until everyone's dead.

+waitUntil {

+	sleep 1;

+

+	_cpt = 0;

+	{

+		if !(isNil '_x') then {

+			_cpt = _cpt + (count ((units _x) Call GetLiveUnits));

+		};

+	} forEach _groups;

+	

+	_cpt == 0

+};

+

+//--- Kill the spawned thread if it still runs.

+if !(scriptDone _jipHandler) then {terminate _jipHandler};

+

+//--- Wait for the client to end up his sync.

+sleep 35;

+

+//--- Free the mission.

+[Format['_WFBE_M_RUNNINGMISSIONS_%1',_runFor],((Format['_WFBE_M_RUNNINGMISSIONS_%1',_runFor]) Call GetNamespace) - 1, true] Call SetNamespace;
\ No newline at end of file
diff --git a/Server/Missions/M_UAV_RetrieveModule/m_init.sqf b/Server/Missions/M_UAV_RetrieveModule/m_init.sqf
new file mode 100644
index 0000000..b9d8388
--- /dev/null
+++ b/Server/Missions/M_UAV_RetrieveModule/m_init.sqf
@@ -0,0 +1,503 @@
+/* UAV  Retrieve Module Script */

+Private ['_attempts','_boundariesxy','_completeList','_completeListTr','_crashed','_craters','_defensePos','_east','_eastUAV','_ecomplete','_end','_espos','_eteam','_eteamname','_eteamrunning','_jipHandler','_list','_markerSize','_near','_nearUav','_pos','_ran','_randomPos','_resistance','_returned','_safeRadius','_size','_spawnUnits','_team','_uav','_uavModel','_uniqueIndex','_uniqueLabel','_unit','_units','_vehicles','_waitFor','_wcomplete','_west','_westUAV','_winner','_wspos','_wteam','_wteamname','_wteamrunning'];

+

+_uniqueLabel = _this select 0;

+_uniqueIndex = _this select 1;

+

+_randomPos = [];

+

+//--- Marker size.

+_markerSize = 750;

+

+//--- Is boundaries enabled?

+_boundariesxy = 'WFBE_BOUNDARIESXY' Call GetNamespace;

+if !(isNil '_boundariesxy') then {

+	//--- Use the boundaries to get a position, limit it to a possible location (not outside of the map).

+	_boundariesxy = _boundariesxy - (_markerSize*2);

+	if (_boundariesxy <= 0) then {_boundariesxy = ('WFBE_BOUNDARIESXY' Call GetNamespace)};

+	

+	_safeRadius = 750;

+	_attempts = 0;

+	

+	//--- Get a safe 'clear' position for a crash site.

+	while {_attempts != -1} do {

+		sleep 0.005;

+		

+		_attempts = _attempts + 1;

+		

+		_randomPos = [_markerSize + (random _boundariesxy),_markerSize + (random _boundariesxy),0];

+		

+		//--- Water-free & building free

+		if (count (_randomPos isFlatEmpty [20/8,0,0.6,20,0,false,objNull]) > 0) then {

+			//--- We don't want any 'living' units around.

+			if (count(_randomPos nearEntities [['Man','Car','Motorcycle','Ship','Air','Tank','StaticWeapon'],_safeRadius/2]) == 0) exitWith {_attempts = -1};

+			

+			//--- Result may vary.

+			if (_attempts > 250 && _safeRadius > 10) then {

+				_attempts = 0;

+				_safeRadius = _safeRadius - 100;

+				if (_safeRadius < 10) then {_safeRadius = 10};

+			};

+		};

+	};

+} else {

+	//--- Get a random location around a town.

+	_pos = getPos (towns select round(random((count towns) -1)));

+	

+	_safeRadius = 500;

+	_attempts = 0;

+	

+	//--- Get a safe 'clear' position for a crash site.

+	while {_attempts != -1} do {

+		sleep 0.01;

+		

+		_attempts = _attempts + 1;

+		

+		_randomPos = [(_pos select 0) + random(_safeRadius)-random(_safeRadius),(_pos select 1) + random(_safeRadius)-random(_safeRadius),0];

+		

+		//--- Water-free & building free

+		if (count (_randomPos isFlatEmpty [20/8,0,0.6,20,0,false,objNull]) > 0) then {

+			//--- We don't want any 'living' units around.

+			if (count(_randomPos nearEntities [['Man','Car','Motorcycle','Ship','Air','Tank','StaticWeapon'],_safeRadius/2]) == 0) exitWith {_attempts = -1};

+			

+			//--- Result may vary.

+			if (_attempts > 50) then {

+				_attempts = 0;

+				_safeRadius = _safeRadius + 200;

+				if (_safeRadius > 1500) then {attempts = -1;_randomPos = []};

+			};

+		};

+	};

+};

+

+//--- No suitable position found? exit.

+if (count _randomPos == 0) exitWith {

+	diag_log Format["[WFBE (INFORMATION)][frameno:%1 | ticktime:%2] M_UAV_RetrieveModule: Unable to determine a spawn location.",diag_frameno,diag_tickTime];

+	['_WFBE_M_RUNNINGMISSIONS_WEST',('_WFBE_M_RUNNINGMISSIONS_WEST' Call GetNamespace) - 1, true] Call SetNamespace;

+	['_WFBE_M_RUNNINGMISSIONS_EAST',('_WFBE_M_RUNNINGMISSIONS_EAST' Call GetNamespace) - 1, true] Call SetNamespace;

+};

+

+//--- Define the context.

+_eastUAV = 'WFBE_EASTUAV' Call GetNamespace;

+_westUAV = 'WFBE_WESTUAV' Call GetNamespace;

+

+//--- No suitable UAV models? exit.

+if (_eastUAV == '' && _westUAV == '') exitWith {

+	diag_log Format["[WFBE (INFORMATION)][frameno:%1 | ticktime:%2] M_UAV_RetrieveModule: No suitable UAV Models defined for WFBE_EASTUAV & WFBE_WESTUAV.",diag_frameno,diag_tickTime];

+	['_WFBE_M_RUNNINGMISSIONS_WEST',('_WFBE_M_RUNNINGMISSIONS_WEST' Call GetNamespace) - 1, true] Call SetNamespace;

+	['_WFBE_M_RUNNINGMISSIONS_EAST',('_WFBE_M_RUNNINGMISSIONS_EAST' Call GetNamespace) - 1, true] Call SetNamespace;

+};

+

+/* Radio both side for a new mission available */

+['NewMissionAvailable','',West] Spawn SideMessage;

+['NewMissionAvailable','',East] Spawn SideMessage;

+

+//--- Determine which one to use.

+_crashed = civilian;

+if (_eastUAV != '') then {

+	//--- West UAV tend to fall more often ;)

+	_crashed = if (random 100 > 25) then {west} else {east};

+} else {

+	_crashed = west;

+};

+

+//--- Place and destroy the uav.

+_uavModel = if (_crashed == west) then {_westUAV} else {_eastUAV};

+_uav = _uavModel createVehicle (_randomPos);

+_uav setDammage 1;

+

+//--- Garbage protection.

+if !(WF_A2_Vanilla) then {ignoreQueu = ignoreQueu + [_uav]};

+_uav setVariable ['keepAlive',true,true]; //--- Salvager protection.

+

+//--- Determine if the uav is held by resistance forces or not.

+_spawnUnits = 0 Spawn {};

+_team = objNull;

+_units = [];

+_vehicles = [];

+if (random 100 > 35) then {

+	//--- Pick a resistance patrol template (Only the light & medium one).

+	_list = Format["WFBE_RESPATROLTYPE%1%2",ceil(random 3),round(random 2)] Call GetNamespace;

+	

+	//--- Get the team spawn position.

+	_defensePos = [[(_randomPos select 0)+random(150)-random(150),(_randomPos select 1)+random(150)-random(150)], 250] Call GetSafePlace;

+	

+	//--- Create the team.

+	_returned = [_list,_defensePos,resistance,paramResVehLock,objNull] Call CreateTeamTemplate;

+	_units = _returned select 0;

+	_vehicles = _returned select 1;

+	_team = _returned select 2;

+	

+	//--- Start the hunt/guard script.

+	_spawnUnits = [_units,_vehicles,_randomPos,_markerSize] Spawn {

+		Private ['_area','_guard','_objects','_target','_targets','_units','_vehicles'];

+		_units = _this select 0;

+		_vehicles = _this select 1;

+		_guard = _this select 2;

+		_area = _this select 3;

+		

+		while {({alive _x} count _units) > 0} do {

+			sleep 20;

+		

+			_targets = _guard nearEntities [['Man','Car','Motorcycle','Ship','Air','Tank','StaticWeapon'],_area];

+			_objects = _targets;

+			{

+				if !(_x isKindOf 'Man') then {if (count (crew _x) == 0) then {_objects = _objects - [_x]}};

+				if (side _x == resistance || side _x == civilian) then {_objects = _objects - [_x]};

+			} forEach _targets;

+			

+			_targets = [_guard,_objects] Call SortByDistance;

+			

+			if (count _targets > 0) then {

+				_target = _targets select 0;

+				(_units) commandMove [(getPos _target select 0)-random(60)+random(60), (getPos _target select 1)-random(60)+random(60), 0];

+			};			

+		};

+	};

+};

+

+//--- Send to client, task, size, etc.

+WFBE_M_UAV_RetrieveModule = [nil,'CLTFNCM_UAV_RETRIEVEMODULE',[_markerSize,_uniqueLabel,_uniqueIndex,_uav]];

+publicVariable 'WFBE_M_UAV_RetrieveModule';

+if (isHostedServer || local player) then {[nil,'CLTFNCM_UAV_RETRIEVEMODULE',[_markerSize,_uniqueLabel,_uniqueIndex,_uav]] Spawn HandlePVF};

+_jipHandler = [_markerSize,_uniqueLabel,_uniqueIndex,_uav] Spawn {

+	Private ['_oldPlayerList','_update'];

+	while {true} do {

+		_oldPlayerList = playableUnits;

+		sleep 15;

+		_update = false;

+		{

+			if !(_x in _oldPlayerList) exitWith {_update = true};

+		} forEach playableUnits;

+		

+		if (_update) then {

+			WFBE_M_UAV_RetrieveModule = [nil,'CLTFNCM_UAV_RETRIEVEMODULE',_this];

+			publicVariable 'WFBE_M_UAV_RetrieveModule';

+			if (isHostedServer || local player) then {[nil,'CLTFNCM_UAV_RETRIEVEMODULE',_this] Spawn HandlePVF};

+		};

+	};

+};

+

+//--- Choose the module extraction team.

+_wteam = [];

+_eteam = [];

+//--- Vanilla.

+if (WF_A2_Vanilla) then {

+	_wteam = ['FR_Miles','FR_OHara','FR_Rodriguez','FR_Sykes'];

+	_eteam = ['RUS_Soldier_TL','RUS_Soldier_GL','RUS_Soldier2','RUS_Soldier2'];

+} else {

+	//--- Combined Ops.

+	if (WF_A2_CombinedOps) then {

+		if (WF_Camo) then {

+			if (random 100 > 50) then {

+				_wteam = ['FR_Miles','FR_OHara','FR_Rodriguez','FR_Sykes'];

+			} else {

+				if (paramDLCBAF) then {

+					_wteam = ['BAF_Soldier_SL_W','BAF_Soldier_W','BAF_Soldier_W','BAF_Soldier_Medic_W'];

+				} else {

+					_wteam = ['CZ_Special_Forces_TL_DES_EP1','CZ_Special_Forces_DES_EP1','CZ_Special_Forces_DES_EP1','CZ_Special_Forces_GL_DES_EP1'];

+				};

+			};

+			_eteam = ['RUS_Soldier_TL','RUS_Soldier_GL','RUS_Soldier2','RUS_Soldier2'];

+		} else {

+			if (random 100 > 50) then {

+				if (paramDLCBAF && random 100 > 50) then {

+					_wteam = ['BAF_Soldier_SL_DDPM','BAF_Soldier_DDPM','BAF_Soldier_DDPM','BAF_Soldier_Medic_DDPM'];

+				} else {

+					_wteam = ['CZ_Special_Forces_TL_DES_EP1','CZ_Special_Forces_DES_EP1','CZ_Special_Forces_DES_EP1','CZ_Special_Forces_GL_DES_EP1'];

+				};

+				_eteam = ['RUS_Soldier_TL','RUS_Soldier_GL','RUS_Soldier2','RUS_Soldier2'];

+			} else {

+				if (random 100 > 50) then {

+					_wteam = ['GER_Soldier_TL_EP1','GER_Soldier_EP1','GER_Soldier_EP1','GER_Soldier_Medic_EP1'];

+				} else {

+					_wteam = ['US_Delta_Force_TL_EP1','US_Delta_Force_EP1','US_Delta_Force_EP1','US_Delta_Force_Medic_EP1'];

+				};

+				_eteam = ['TK_Special_Forces_TL_EP1','TK_Special_Forces_EP1','TK_Special_Forces_EP1','TK_Special_Forces_MG_EP1'];

+			};

+		};

+	} else {

+		//--- Arowwhead.

+		if (random 100 > 50) then {

+			if (paramDLCBAF && random 100 > 50) then {

+				_wteam = ['BAF_Soldier_SL_DDPM','BAF_Soldier_DDPM','BAF_Soldier_DDPM','BAF_Soldier_Medic_DDPM'];

+			} else {

+				_wteam = ['GER_Soldier_TL_EP1','GER_Soldier_EP1','GER_Soldier_EP1','GER_Soldier_Medic_EP1'];

+			};

+			_eteam = ['RUS_Soldier_TL','RUS_Soldier_GL','RUS_Soldier2','RUS_Soldier2'];

+		} else {

+			if (random 100 > 50) then {

+				_wteam = ['CZ_Special_Forces_TL_DES_EP1','CZ_Special_Forces_DES_EP1','CZ_Special_Forces_DES_EP1','CZ_Special_Forces_GL_DES_EP1'];

+			} else {

+				_wteam = ['US_Delta_Force_TL_EP1','US_Delta_Force_EP1','US_Delta_Force_EP1','US_Delta_Force_Medic_EP1'];

+			};

+			_eteam = ['TK_Special_Forces_TL_EP1','TK_Special_Forces_EP1','TK_Special_Forces_EP1','TK_Special_Forces_MG_EP1'];

+		};

+	};

+};

+

+//--- Handle the 'Middle part'.

+_end = false;

+_wteamrunning = objNull;

+_eteamrunning = objNull;

+_wteamname = "";

+_eteamname = "";

+_waitFor = 0;

+_wspos = [];

+_espos = [];

+_wcomplete = false;

+_ecomplete = false;

+_completeList = ['WellDoneOut','GoodJobOut'];

+_completeListTr = ['Well done, out.','Good job, out.'];

+while {!_end} do {

+	sleep 5;

+	

+	if (isNull _uav) exitWith {};

+	

+	//--- Todo, player radio HQ for extraction team.

+	_nearUav = _uav nearEntities 50;

+	

+	_west = west countSide _nearUav;

+	_east = east countSide _nearUav;

+	_resistance = resistance countSide _nearUav;

+	

+	//--- Team checkups (west).

+	if !(isNull _wteamrunning) then {

+		if (count ((units _wteamrunning) Call GetLiveUnits) == 0) then {

+			if (_waitFor <= 0) then {

+				['ExtractionTeamCancel',_wteamname,West] Spawn SideMessage;

+				_wteamrunning = objNull;

+				_waitFor = 60;

+			};

+		} else {

+			if (_waitFor < -200) then {

+				_waitFor = -1;

+				(units _wteamrunning) commandMove (getPos _uav);

+			};

+			if (((leader _wteamrunning) distance _uav) < 50 && !_ecomplete && !_wcomplete) then {

+				_waitFor = 70;

+				_wcomplete = true;

+				

+				_uav setVariable ['side', West, true];

+				

+				_wteamrunning setCombatMode "RED";

+				_wteamrunning setBehaviour "COMBAT";

+			};

+		};

+	};

+	

+	//--- Team checkups (east).

+	if !(isNull _eteamrunning) then {

+		if (count ((units _eteamrunning) Call GetLiveUnits) == 0) then {

+			if (_waitFor <= 0) then {

+				['ExtractionTeamCancel',_wteamname,East] Spawn SideMessage;

+				_eteamrunning = objNull;

+				_waitFor = 60;

+			};

+		} else {

+			if (_waitFor < -200) then {

+				_waitFor = -1;

+				(units _eteamrunning) commandMove (getPos _uav);

+			};

+			if (((leader _eteamrunning) distance _uav) < 50 && !_wcomplete && !_ecomplete) then {

+				_waitFor = 70;

+				_ecomplete = true;

+				

+				_uav setVariable ['side', East, true];

+				

+				_eteamrunning setCombatMode "RED";

+				_eteamrunning setBehaviour "COMBAT";

+			};

+		};

+

+	};

+	

+	if (_resistance == 0 && _waitFor <= 0) then {

+		if (_west > 0 && isNull(_wteamrunning)) then {

+			//--- Warn the side that the extraction team is coming.

+			_wteamname = ['Reaper','Fatman','Anvil'] select (round(random 2));

+			['ExtractionTeam',_wteamname,West] Spawn SideMessage;

+			

+			//--- Get a spawn position for the team.

+			_pos = [];

+			_attempts = 0;

+			_size = _markerSize;

+			while {true} do {

+				sleep 0.05;

+				_pos = [_randomPos, _size] Call GetSafePlace;

+				

+				_near = _pos nearEntities [['Man','Car','Motorcycle','Ship','Air','Tank','StaticWeapon'],_markerSize/5];

+				

+				if (east countSide _near == 0 && resistance countSide _near == 0) exitWith {};

+				_attempts = _attempts + 1;

+				

+				if (_attempts > 20) then {

+					_attempts = 0;

+					_size = _size + (_markerSize/5);

+				};

+			};

+			_wspos = _pos;

+			_wteamrunning = createGroup west;

+			

+			{

+				_unit = [_x,_wteamrunning,_pos,west] Call CreateMan;

+			} forEach _wteam;

+			

+			(units _wteamrunning) commandMove (getPos _uav);

+		};

+		if (_east > 0 && isNull(_eteamrunning)) then {

+			//--- Warn the side that the extraction team is coming.

+			_eteamname = ['Frostbite','Sabre','Hammer'] select (round(random 2));

+			['ExtractionTeam',_eteamname,East] Spawn SideMessage;

+			

+			//--- Get a spawn position for the team.

+			_pos = [];

+			_size = _markerSize;

+			while {true} do {

+				sleep 0.05;

+				_pos = [_randomPos, _size] Call GetSafePlace;

+				

+				_near = _pos nearEntities [['Man','Car','Motorcycle','Ship','Air','Tank','StaticWeapon'],_markerSize/5];

+				

+				if (west countSide _near == 0 && resistance countSide _near == 0) exitWith {};

+				_attempts = _attempts + 1;

+				

+				if (_attempts > 20) then {

+					_attempts = 0;

+					_size = _size + (_markerSize/5);

+				};

+			};

+			_espos = _pos;

+			_eteamrunning = createGroup east;

+			

+			{

+				_unit = [_x,_eteamrunning,_pos,east] Call CreateMan;

+			} forEach _eteam;

+			

+			(units _eteamrunning) commandMove (getPos _uav);

+		};

+	};

+	

+	//--- Mission ends (west).

+	if (_wcomplete && _waitFor <= 0) then {

+		//--- if the team is dead, then we're not done yet.

+		if (count ((units _wteamrunning) Call GetLiveUnits) > 0) then {

+			_end = true;

+			_ran = round(random (count(_completeList)-1));

+			['MMissionComplete',_completeListTr select _ran,West,_completeList select _ran] Spawn SideMessage;

+			['MMissionFailed','',East] Spawn SideMessage;

+			

+			_wteamrunning setCombatMode "YELLOW";

+			_wteamrunning setBehaviour "AWARE";

+			(units _wteamrunning) commandMove _wspos;

+		} else {

+			_wcomplete = false;

+		};

+	};

+	//--- Missions ends (east)

+	if (_ecomplete && _waitFor <= 0) then {

+		//--- if the team is dead, then we're not done yet.

+		if (count ((units _eteamrunning) Call GetLiveUnits) > 0) then {

+			_end = true;

+			_ran = round(random (count(_completeList)-1));

+			['MMissionComplete',_completeListTr select _ran,East,_completeList select _ran] Spawn SideMessage;

+			['MMissionFailed','',West] Spawn SideMessage;

+			

+			_eteamrunning setCombatMode "YELLOW";

+			_eteamrunning setBehaviour "AWARE";

+			(units _eteamrunning) commandMove _espos;

+		} else {

+			_ecomplete = false;

+		};

+	};

+	

+	_waitFor = _waitFor - 5;

+};

+

+//--- Extraction teams removal (West).

+if ({alive _x} count (units _wteamrunning) > 0) then {

+	//--- West.

+	[_wteamrunning,_wspos] Spawn {

+		Private ['_startPos','_team'];

+		_team = _this select 0;

+		_startPos = _this select 1;

+		

+		//--- Relative Infantry wait time.

+		sleep (((((leader _team) distance _startPos)/(14*1000))*3600));

+		

+		//--- Remove vehicles.

+		{if !(_x in trashQueu) then {deleteVehicle _x}} forEach (units _team);

+		

+		//--- Group hasn't been removed yet.

+		if !(isNull _team) then {deleteGroup _team};

+	};

+};

+

+//--- Extraction teams removal (East).

+if ({alive _x} count (units _eteamrunning) > 0) then {

+	//--- East.

+	[_eteamrunning,_espos] Spawn {

+		Private ['_startPos','_team'];

+		_team = _this select 0;

+		_startPos = _this select 1;

+		

+		//--- Relative Infantry wait time.

+		sleep (((((leader _team) distance _startPos)/(14*1000))*3600));

+		

+		//--- Remove vehicles.

+		{if !(_x in trashQueu) then {deleteVehicle _x}} forEach (units _team);

+		

+		//--- Group hasn't been removed yet.

+		if !(isNull _team) then {deleteGroup _team};

+	};

+};

+

+//--- Kill the spawned thread if it still runs.

+if !(scriptDone _jipHandler) then {terminate _jipHandler};

+if !(scriptDone _spawnUnits) then {terminate _spawnUnits};

+

+//--- Tell the patrolling units (if there's any, to go away and dissapear).

+if (({alive _x} count _units) > 0) then {

+	//--- Clean up.

+	[_units, _vehicles, _team, [[(_randomPos select 0)+random(_markerSize)-random(_markerSize),(_randomPos select 1)+random(_markerSize)-random(_markerSize)], 250] Call GetSafePlace] Spawn {

+		Private ['_pos','_team','_units','_vehicles'];

+		_units = _this select 0;

+		_vehicles = _this select 1;

+		_team = _this select 2;

+		_pos = _this select 3;

+		

+		//--- Move.

+		(_units) commandMove _pos;

+		

+		//--- Relative Infantry wait time.

+		sleep (((((leader _team) distance _pos)/(14*1000))*3600));

+		

+		//--- Remove vehicles.

+		{if !(_x in trashQueu) then {if (isPlayer (driver _x)) then {emptyQueu = emptyQueu + [_x]} else {deleteVehicle _x}}} forEach _vehicles;

+		{if !(_x in trashQueu) then {deleteVehicle _x}} forEach _units;

+		

+		//--- Group hasn't been removed yet.

+		if !(isNull _grp) then {deleteGroup _grp};

+	};

+};

+

+//--- Lift the ignore rule on the uav (garbage protection).

+if !(WF_A2_Vanilla) then {ignoreQueu = ignoreQueu - [_uav]};

+

+//--- Remove crates if we've generated any.

+_craters = nearestObjects [_randomPos, ['CraterLong'], 250];

+{deleteVehicle _x} forEach _craters;

+if !(isNull _uav) then {deleteVehicle _uav};

+

+//--- Give the 'winning' side an award.

+_winner = if (_ecomplete) then {east} else {west};

+WFBE_LocalizeMessage = [_winner,'CLTFNCLOCALIZEMESSAGE',['SecondaryAward','$',1000]];

+publicVariable 'WFBE_LocalizeMessage';

+if (isHostedServer) then {[_winner,'CLTFNCLOCALIZEMESSAGE',['SecondaryAward','$',1000]] Spawn HandlePVF};

+

+//--- Wait for the client to end up his sync.

+sleep 35;

+

+//--- Free the mission.

+['_WFBE_M_RUNNINGMISSIONS_WEST',('_WFBE_M_RUNNINGMISSIONS_WEST' Call GetNamespace) - 1, true] Call SetNamespace;

+['_WFBE_M_RUNNINGMISSIONS_EAST',('_WFBE_M_RUNNINGMISSIONS_EAST' Call GetNamespace) - 1, true] Call SetNamespace;
\ No newline at end of file