diff options
| author | hybrid <hybrid@hybridlabs.pro> | 2026-06-11 19:38:09 +0300 |
|---|---|---|
| committer | hybrid <hybrid@hybridlabs.pro> | 2026-06-11 19:38:09 +0300 |
| commit | a3a91d4f45b22fd487ecbc954ad979be5d03efdd (patch) | |
| tree | a554ab159a347dcd6c00ca1c7c26c1ec3ac0a6bd /Server/Module/UPSMON/UPSMON | |
| download | a2wf_chernarus-main.tar.gz a2wf_chernarus-main.tar.bz2 a2wf_chernarus-main.zip | |
Diffstat (limited to 'Server/Module/UPSMON/UPSMON')
| -rw-r--r-- | Server/Module/UPSMON/UPSMON/!R/R_functions.sqf | 343 | ||||
| -rw-r--r-- | Server/Module/UPSMON/UPSMON/!R/markerAlpha.sqf | 14 | ||||
| -rw-r--r-- | Server/Module/UPSMON/UPSMON/MON_artillery_add.sqf | 64 | ||||
| -rw-r--r-- | Server/Module/UPSMON/UPSMON/MON_spawn.sqf | 115 | ||||
| -rw-r--r-- | Server/Module/UPSMON/UPSMON/MON_surrended.sqf | 23 | ||||
| -rw-r--r-- | Server/Module/UPSMON/UPSMON/actions/followme.sqf | 93 | ||||
| -rw-r--r-- | Server/Module/UPSMON/UPSMON/common/MON_functions.sqf | 2204 |
7 files changed, 2856 insertions, 0 deletions
diff --git a/Server/Module/UPSMON/UPSMON/!R/R_functions.sqf b/Server/Module/UPSMON/UPSMON/!R/R_functions.sqf new file mode 100644 index 0000000..396892f --- /dev/null +++ b/Server/Module/UPSMON/UPSMON/!R/R_functions.sqf @@ -0,0 +1,343 @@ +/*
+ autor: !R
+
+ 5.1.0
+*/
+
+
+
+// get new position [x,y,x] from pos in distance and angle.
+// [_pos, _distance, _angle] call R_relPos3D;
+// [newX,newY,Z]
+R_relPos3D =
+ {
+ private["_p","_d","_a","_x","_y","_z","_xout","_yout"];
+ _p=_this select 0;
+ _x=_p select 0;
+ _y=_p select 1;
+ _z=_p select 2;
+ _d=_this select 1;
+ _a=_this select 2;
+ _xout=_x + sin(_a) * _d;
+ _yout=_y + cos(_a) * _d;
+ [_xout,_yout,_z]
+ };
+
+
+// [_unit] spawn R_ThrowSmoke;
+R_ThrowSmoke =
+ {
+ private ["_unit","_shell",
+ "_moves","_unitPos","_pos","_flare","_direction"];
+
+ /*
+ _stanThrow = ["AwopPercMstpSgthWrflDnon_Start1", "AwopPercMstpSgthWrflDnon_Throw1","AwopPercMstpSgthWrflDnon_End1"];
+ _kneeThrow = ["AwopPknlMstpSgthWrflDnon_Start", "AwopPknlMstpSgthWrflDnon_Throw" ,"AwopPknlMstpSgthWrflDnon_End"];
+ _proneThrow= ["AwopPpneMstpSgthWrflDnon_Start", "AwopPpneMstpSgthWrflDnon_Throw" ,"AwopPpneMstpSgthWrflDnon_End"];
+ */
+
+ _moves = ["AwopPercMstpSgthWrflDnon_Start1","AwopPknlMstpSgthWrflDnon_Start","AwopPpneMstpSgthWrflDnon_Start"];
+
+ _unit = _this select 0;
+ _shell = "SmokeShell";
+ _unitPos = unitPos _unit;
+
+ //Animation
+ switch (_unitPos) do {
+
+ case "Auto":
+ {
+ _unit playMove (_moves select 1);
+ };
+
+ case "Up":
+ {
+ _unit playMove (_moves select 0);
+ };
+
+ case "Middle":
+ {
+ _unit playMove (_moves select 1);
+ };
+
+ case "Down":
+ {
+ _unit playMove (_moves select 2);
+ };
+ };
+
+ sleep 4;
+ _direction = direction _unit;
+
+ // use such bypass as setvelocity does not work in MP
+ _pos = position _unit;
+ _pos = [(_pos select 0),(_pos select 1),(_pos select 2)+1.5];
+ _pos = [_pos, 18, _direction] call R_relPos3D;
+
+ if (alive _unit && canmove _unit) then {
+ _flare = _shell createVehicle _pos;
+ };
+
+ // setvelocity does not work in MP http://dev-heaven.net/issues/17949
+ /*
+ _vector = [18,direction _unit,0] call C B A_fnc_polar2vect;
+
+ _pos=position _unit;
+ _pos=[(_pos select 0),(_pos select 1),(_pos select 2)+2];
+ _flare = _shell createVehicle _pos;
+ _flare setPos _pos;
+ _flare setvelocity _vector;
+
+ */
+ };
+
+
+
+ // [_unit] call R_FN_deleteObsoleteWaypoints;
+ // leave only the last way point
+ R_FN_deleteObsoleteWaypoints =
+ {
+ private ["_unit","_grp"];
+
+ _unit = _this select 0;
+ _grp = group _unit;
+ while {(count (waypoints _grp)) > 1} do
+ {
+ deleteWaypoint ((waypoints _grp) select 0);
+ };
+ };
+
+
+
+ // array = [_npc] call R_FN_vehiclesUsedByGroup;
+ // return array of vehicles used by group
+ R_FN_vehiclesUsedByGroup =
+ {
+ private ["_npc","_vehicles"];
+
+ _npc = _this select 0;
+ _vehicles = [];
+
+ if (!alive _npc) exitwith {};
+
+ {
+ if (( vehicle _x != _x || !(_x iskindof "Man")) && !((vehicle _x) in _vehicles)) then {
+ _vehicles = _vehicles + [vehicle _x];
+ };
+ } foreach units _npc;
+
+ _vehicles
+ };
+
+
+ // array = [_vehicle] call R_FN_unitsInCargo;
+ // array of units in cargo of the vehicle (in vehicle and assigned as cargo)
+ R_FN_unitsInCargo =
+ {
+ private ["_vehicle","_x","_unitsInCargo"];
+
+ _vehicle = _this select 0;
+ _unitsInCargo = [];
+ {
+ if( (assignedVehicleRole _x) select 0 == "Cargo") then
+ {
+ _unitsInCargo = _unitsInCargo + [_x];
+ };
+ } forEach crew _vehicle;
+
+ _unitsInCargo
+ };
+
+
+
+
+
+ // array = [_npc] call R_FN_allUnitsInCargo;
+ // array of all units in cargo of the group (not driver, commander or gunner)
+ R_FN_allUnitsInCargo =
+ {
+ private ["_npc","_vehicles","_unitsInCargo","_allUnitsInCargo"];
+
+ _npc = _this select 0;
+ if (!alive _npc) exitwith {};
+
+ _allUnitsInCargo =[];
+
+ _vehicles = [_npc] call R_FN_vehiclesUsedByGroup;
+
+ {
+ _unitsInCargo = [_x] call R_FN_unitsInCargo;
+ _allUnitsInCargo = _allUnitsInCargo + _unitsInCargo;
+
+ } foreach _vehicles;
+
+ _allUnitsInCargo
+ };
+
+
+ // old MON_GetOutDist
+ // <- _npc
+ // <- _targetPos: position for exiting(if no waypoint used)
+ // <- _atdist: minimal dist to the _targetpos do getout
+ // -> nothing
+ // nul = [_npc,_targetpos,_atdist] spawn R_SN_GetOutDist;
+ R_SN_GetOutDist = {
+ private["_vehicle","_npc","_target","_atdist","_getout","_dogetout","_driver","_commander","_targetpos","_dist","_vehpos","_vehicles"];
+
+ _npc = _this select 0;
+ _targetpos = _this select 1;
+ _atdist = _this select 2; // minimal dist to the target to do getOut
+
+ _dogetout = []; // units to do getout
+ _vehicles = []; // vehs used by the group
+
+ if (!alive _npc) exitwith{};
+
+ _vehicle = vehicle _npc;
+ _vehpos = getpos _vehicle;
+
+ _dist = round([_vehpos,_targetpos] call KRON_distancePosSqr); // dist to the target
+
+ // if (KRON_UPS_Debug>0) then {player sidechat format["%1: Getoutdist dist=%2 atdist=%3 ",typeof _vehicle,_dist, _atdist]};
+
+ // if _npc is in vehicle
+ if ( _vehicle != _npc || !(_npc iskindof "Man")) then {
+
+ if ( (_dist) <= _atdist ) then {
+ _vehicles = [_npc] call R_FN_vehiclesUsedByGroup; // vehicles use by the group
+ {
+ _dogetout = [_x] call R_FN_unitsInCargo; // units cargo in the vehicle
+ _driver = driver _x;
+
+ if ( count _dogetout > 0 ) then {
+ //Stop the veh for 5.5 sek
+ nul = [_vehicle,5] spawn MON_doStop;
+
+ sleep 0.8; // give time to actualy stop
+
+ {
+ _x spawn MON_GetOut;
+ sleep 0.3;
+ } foreach _dogetout;
+
+ //We removed the id to the vehicle so it can be reused
+ _x setVariable ["UPSMON_grpid", 0, false];
+ _x setVariable ["UPSMON_cargo", [], false];
+
+ [_npc,_x, _driver] spawn MON_checkleaveVehicle; // if every one outside, make sure driver can walk
+ sleep 0.01;
+ };
+ } foreach _vehicles;
+ };
+ };
+ };
+
+ // #define GOTHIT(X) ([X] call R_FN_GOTHIT)
+ // nul = [_grpId] call R_FN_GOTHIT;
+ R_FN_GOTHIT =
+ {
+ _grpId = _this select 0;
+ if ((R_GOTHIT_ARRAY select _grpId) != 0) then
+ {
+ true
+ }
+ else
+ {
+ false
+ }
+ };
+
+ // use in gothit proces
+ // nul = [_unit, _shooter] spawn R_SN_EHHIT;
+ R_SN_EHHIT =
+ {
+ private ["_unit","_shooter","_grpId"];
+ _unit = _this select 0;
+ _shooter = _this select 1;
+ _grpId = _unit getVariable ("UPSMON_grpid");
+
+ if ((side _unit != side _shooter) && (R_GOTHIT_ARRAY select _grpId) == 0) then
+ {
+ R_GOTHIT_ARRAY set [_grpId, 1];
+ // if (KRON_UPS_Debug > 0) then {player globalchat format["UNIT: %1, SHOOTER :%2 %3",_unit,_shooter,side _shooter]};
+ };
+ };
+
+
+ // use in gothit proces
+ // nul = [_unit, _shooter] spawn R_SN_EHKILLED;
+ R_SN_EHKILLED =
+ {
+ private ["_unit","_shooter","_grpId"];
+
+ _unit = _this select 0;
+ _shooter = _this select 1;
+ _grpId = _unit getVariable ("UPSMON_grpid");
+
+ if ((side _unit != side _shooter) && (R_GOTHIT_ARRAY select _grpId) == 0) then
+ {
+ R_GOTHIT_ARRAY set [_grpId, 2];
+ // if (KRON_UPS_Debug > 0) then {player globalchat format["UNIT: %1, SHOOTER :%2 %3",_unit,_shooter,side _shooter]};
+ };
+ };
+
+
+ // logic is needed to display rGlobalChat
+ private ["_center","_group"];
+ _center = createCenter sideLogic; _group = createGroup _center;
+ R_Logic_civkill = _group createUnit ["LOGIC", [2,2,1], [], 0, "NONE"];
+ _group = nil;
+ _center = nil;
+
+
+ // used in gothit proces
+ // nul = [_unit, _shooter] spawn R_SN_EHKILLEDCIV;
+ R_SN_EHKILLEDCIV =
+ {
+ private ["_killer","_side"];
+ _killer = _this select 1;
+
+ //only if player killed a civilian
+ if (isPlayer _killer) then {
+
+ KILLED_CIV_COUNTER set [0,(KILLED_CIV_COUNTER select 0) + 1];
+
+ // if (KRON_UPS_Debug > 0) then {player globalchat format["KILLER: %1, %2", side _killer,KILLED_CIV_COUNTER ]};
+ switch (side _killer) do
+ {
+ case west:
+ {
+ KILLED_CIV_COUNTER set [1,(KILLED_CIV_COUNTER select 1) + 1];
+ };
+
+ case east:
+ {
+ KILLED_CIV_COUNTER set [2,(KILLED_CIV_COUNTER select 2) + 1];
+ };
+
+ case resistance:
+ {
+ KILLED_CIV_COUNTER set [3,(KILLED_CIV_COUNTER select 3) + 1];
+ };
+ };
+ KILLED_CIV_COUNTER set [4,_killer];
+
+ //if (KRON_UPS_Debug > 0) then {player globalchat format["KILLER: %1", side _killer ]};
+ if (KRON_UPS_Debug > 0) then {player globalchat format["KILLED_CIV_COUNTER: %1",KILLED_CIV_COUNTER]};
+ if (R_WHO_IS_CIV_KILLER_INFO > 0) then {
+ [R_Logic_civkill, nil , rglobalChat, format ["A CIVILIAN WAS KILLED BY %1",_killer]] call RE;
+ };
+ };
+ };
+
+
+ //firedNear
+ R_SN_EHFIREDNEAR =
+ {
+ private ["_civ"];
+ _civ = leader (_this select 0);
+ _civ setspeedmode "FULL";
+ };
+
+
+
\ No newline at end of file diff --git a/Server/Module/UPSMON/UPSMON/!R/markerAlpha.sqf b/Server/Module/UPSMON/UPSMON/!R/markerAlpha.sqf new file mode 100644 index 0000000..7b0ea31 --- /dev/null +++ b/Server/Module/UPSMON/UPSMON/!R/markerAlpha.sqf @@ -0,0 +1,14 @@ +/* =============================================
+ !R
+ Hide area markers.
+
+ create Game Logic Object
+ put in initialization field:
+
+ nul = call compile preprocessFile "scripts\UPSMON\!R\markerAlpha.sqf";
+
+ all markers area must be named area0, area1...area13
+
+================================================= */
+
+{ _x setmarkeralpha 0; } foreach ["area0", "area1", "area2","area3","area4","area5","area6","area7","area8","area9","area10","area11","area12","area13"];
\ No newline at end of file diff --git a/Server/Module/UPSMON/UPSMON/MON_artillery_add.sqf b/Server/Module/UPSMON/UPSMON/MON_artillery_add.sqf new file mode 100644 index 0000000..ecaec71 --- /dev/null +++ b/Server/Module/UPSMON/UPSMON/MON_artillery_add.sqf @@ -0,0 +1,64 @@ +/* =====================================================================================================
+ MON_spawn.sqf
+ Author: Monsada (chs.monsada@gmail.com)
+ Comunidad Hispana de Simulación:
+ http://www.simulacion-esp.com
+ =====================================================================================================
+ Parámeters: [_artillery,(_range,_rounds,_area,_cadence,_mincadence)] execvm "scripts\UPSMON\MON_artillery_add.sqf";
+ <- _artillery object to attach artillery script, must be an object with gunner.
+ <- ( _rounds ) rounds to fire each time, default 1
+ <- ( _range ) range of artillery, default 800
+ <- ( _area ) Dispersion area, 150m by default
+ <- ( _maxcadence ) Cadence of fire, is random between min, default 10s
+ <- ( _mincadence ) Minimum cadence, default 5s
+ <- ( _bullet ) Class of bullet to fire, default ARTY_Sh_81_HE
+ =====================================================================================================
+ 1. Place a static weapon on map.
+ 2. Exec module in int of static weapon
+
+ nul=[this] execVM "scripts\UPSMON\MON_artillery_add.sqf";
+
+ 1. Be sure static weapon has a gunner or place a "fortify" squad near, this will make squad to take static weapon.
+ 2. Create a trigger in your mission for setting when to fire. Set side artillery variable to true:
+
+ KRON_UPS_ARTILLERY_EAST_FIRE = true;
+
+ This sample will do east artilleries to fire on known enemies position, when you want to stop fire set to false.
+
+ For more info:
+ http://dev-heaven.net/projects/upsmon/wiki/Artillery_module
+ =====================================================================================================*/
+if (!isserver) exitWith {};
+
+//Waits until UPSMON is init
+waitUntil {!isNil("KRON_UPS_INIT")};
+waitUntil {KRON_UPS_INIT==1};
+
+private ["_artillery","_smoke1","_i","_area","_position","_maxcadence","_mincadence","_sleep","_rounds","_dummypos","_salvobreak"];
+_range = 800;
+_area = 150;
+_maxcadence = 10;
+_mincadence = 5;
+_sleep = 0;
+_rounds = 1;
+_bullet = "ARTY_Sh_81_HE";
+_vector =[];
+_salvobreak = 10;
+
+_artillery = _this select 0;
+//if (KRON_UPS_Debug>0) then {player globalchat format["MON_artillery_add before %1 %2 %3",isnull _artillery,alive _artillery]};
+if (isnull _artillery || !alive _artillery) exitwith{};
+if ((count _this) > 1) then {_rounds = _this select 1;};
+if ((count _this) > 2) then {_range = _this select 2;};
+if ((count _this) > 3) then {_area = _this select 3;};
+if ((count _this) > 4) then {_maxcadence = _this select 4;};
+if ((count _this) > 5) then {_mincadence = _this select 5;};
+if ((count _this) > 6) then {_bullet = _this select 6;};
+if ((count _this) > 7) then {_salvobreak = _this select 7;};
+//Add artillery to array of artilleries
+_vector = [_artillery,_rounds,_range,_area,_maxcadence,_mincadence,_bullet,_salvobreak];
+if (isnil "KRON_UPS_ARTILLERY_UNITS" ) then {KRON_UPS_ARTILLERY_UNITS = []};
+KRON_UPS_ARTILLERY_UNITS = KRON_UPS_ARTILLERY_UNITS + [_vector];
+
+_dummypos = [getpos _artillery, 50, getdir _artillery] call R_relPos3D;
+(gunner _artillery) lookAt [_dummypos select 0, _dummypos select 1,(_dummypos select 2)+100];
diff --git a/Server/Module/UPSMON/UPSMON/MON_spawn.sqf b/Server/Module/UPSMON/UPSMON/MON_spawn.sqf new file mode 100644 index 0000000..e952752 --- /dev/null +++ b/Server/Module/UPSMON/UPSMON/MON_spawn.sqf @@ -0,0 +1,115 @@ +/* =====================================================================================================
+ MON_spawn.sqf
+ Author: Monsada (chs.monsada@gmail.com)
+ Comunidad Hispana de Simulación:
+ http://www.simulacion-esp.com
+ =====================================================================================================
+ Parámeters: [Param1,Param2,Param3,[Param4]] EXECVM "SCRIPTS\UPSMON\MON_SPAWN.SQF";
+ <- Param1 Id of the template to copy.
+ <- Param2 Position to create new squad.
+ <- Param3 Nº of squads to create
+ <- Param4 Array of parameters of UPSMON, first must be name of marc to patrol
+ =====================================================================================================
+ Function that allows to spawn UPSMON squads.
+
+ 1- create a squad in editor. Exec UPSMON and set TEMPLATE id, this will save members of squad, not equipement.
+ nul = [this,"town","TEMPLATE:",1] execVM "scripts\upsmon.sqf";
+ 2- Exec MON_spawn on trigger or where you want telling the copy of the template to create
+ and the position.
+ nul = [1,[0,0,0],3,[mark, upsmon optional params]] EXECVM "SCRIPTS\UPSMON\MON_SPAWN.SQF";
+ =====================================================================================================*/
+if (!isserver) exitWith {};
+
+//Waits until UPSMON is init
+waitUntil {!isNil("KRON_UPS_INIT")};
+waitUntil {KRON_UPS_INIT==1};
+private ["_template","_position","_params","_copies","_membertypes","_unittype","_side","_UCthis","_initstr","_grp","_lead","_newunit","_i","_newpos","_vehicle","_initlstr"];
+
+//Parameter reading
+_template = _this select 0;
+_position = _this select 1;
+_copies = _this select 2;
+_params = _this select 3;
+
+//Initialization
+_membertypes = [];
+_side = "";
+_UCthis = [];
+_initstr = "";
+_initlstr = "";
+_grp = grpnull;
+_lead = objnull;
+_newunit = objnull;
+_newpos=[];
+_vehicle=[];
+
+//Gets parameters of UPSMON
+for [{_i=0},{_i<count _params},{_i=_i+1}] do {_e=_params select _i; if (typeName _e=="STRING") then {_e=toUpper(_e)};_UCthis set [_i,_e]};
+_initstr = ["INIT:","",_UCthis] call KRON_UPSgetArg;
+_initlstr = ["INITL:","",_UCthis] call KRON_UPSgetArg;
+_initlstr = _initlstr + _initstr;
+_spawned= if ("SPAWNED" in _UCthis) then {true} else {false};
+if (!_spawned) then {_UCthis = _UCthis + ["SPAWNED"]};
+
+if (KRON_UPS_Debug>0) then {player globalchat format["Spawning %3 copies of template %1",_template,_position,_copies,count KRON_UPS_TEMPLATES]};
+//if (KRON_UPS_Debug>0) then {diag_log format["Spawning %3 copies of template %1 on %2 templates %4",_template,_position,_copies,count KRON_UPS_TEMPLATES]};
+
+//Search if any template
+{
+ if ((_x select 0) == _template) then {
+ _side = _x select 1;
+ _membertypes = _x select 2;
+ _vehicletypes = _x select 3;
+ //Gets leader type
+ _unittype= _membertypes select 0;
+
+ //if (KRON_UPS_Debug>0) then {player globalchat format["template %1:%2 ",_template,_membertypes]};
+
+ for [{_i=1},{_i<=_copies},{_i=_i+1}] do {
+
+ // make the clones civilians
+ // use random Civilian models for single unit groups
+ if ((_unittype=="Civilian") && (count _members==1)) then {_rnd=1+round(random 20); if (_rnd>1) then {_unittype=format["Civilian%1",_rnd]}};
+
+ _grp=createGroup _side;
+
+ _lead = _grp createUnit [_unittype, _position, [], 0, "form"];
+ _lead setVehicleInit _initlstr;
+ [_lead] join _grp;
+ _grp selectLeader _lead;
+ sleep 1;
+
+ // copy team members (skip the leader)
+ _c=0;
+ {
+ _c=_c+1;
+ if (_c>1) then {
+ _newpos = _position findEmptyPosition [10, 200];
+ sleep .4;
+ if (count _newpos <= 0) then {_newpos = _position};
+ _newunit = _grp createUnit [_x, _newpos, [],0,"form"];
+ _newunit setVehicleInit _initstr;
+ [_newunit] join _grp;
+ };
+ } foreach _membertypes;
+
+
+ {
+ _newpos = _position findEmptyPosition [10, 200];
+ sleep .4;
+ if (count _newpos <= 0) then {_newpos = _position};
+ _newunit = _x createvehicle (_newpos);
+ } foreach _vehicletypes;
+
+ //Set new parameters
+ _params = [_lead] + _UCthis;
+
+ //Exec UPSMON script
+ _params SPAWN UPSMON;
+
+ processInitCommands;
+ };
+ };
+}foreach KRON_UPS_TEMPLATES;
+
+if (true) exitwith{};
diff --git a/Server/Module/UPSMON/UPSMON/MON_surrended.sqf b/Server/Module/UPSMON/UPSMON/MON_surrended.sqf new file mode 100644 index 0000000..15c4ee7 --- /dev/null +++ b/Server/Module/UPSMON/UPSMON/MON_surrended.sqf @@ -0,0 +1,23 @@ +// =========================================================================================================
+// Script for adding the action of follow player.
+// Version: 1.0
+// Author: Monsada (smirall@hotmail.com)
+// ---------------------------------------------------------------------------------------------------------
+private ["_side","_soldiers"];
+_side = _this select 0;
+
+_soldiers = switch (_side) do {
+ case west: {KRON_AllWest};
+ case east: {KRON_AllEast};
+ case resistance: {KRON_AllRes};
+};
+
+{
+ if ( leader _x == _x ) then {
+ _x addaction ["Order your men to follow me", "scripts\UPSMON\actions\followme.sqf", [], 1, false];
+ } else {
+ _x addaction ["Follow me", "scripts\UPSMON\actions\followme.sqf", [], 1, false];
+ };
+}foreach _soldiers;
+
+if (true) exitWith {};
diff --git a/Server/Module/UPSMON/UPSMON/actions/followme.sqf b/Server/Module/UPSMON/UPSMON/actions/followme.sqf new file mode 100644 index 0000000..1d325c5 --- /dev/null +++ b/Server/Module/UPSMON/UPSMON/actions/followme.sqf @@ -0,0 +1,93 @@ +// =========================================================================================================
+// Script for action follow me when surrended, adds the soldier to player squad in a random choice.
+// Version: 1.0
+// Author: Monsada (smirall@hotmail.com)
+// ---------------------------------------------------------------------------------------------------------
+private ["_obj","_caller","_id","_objtype","_rnd","_join","_direction"];
+_npc = _this select 0;
+_caller = _this select 1;
+_id = _this select 2;
+
+_rnd = 0;
+_join=true;
+_npc switchmove "";
+
+_direction = ((getpos _caller select 0) - (getpos _npc select 0)) atan2 ((getpos _caller select 1) - (getpos _npc select 1));
+
+//If positive values are needed then use:
+if(_direction < 0) then {_direction = _direction + 360};
+_npc setdir _direction;
+_npc dowatch _caller;
+_npc setSpeedMode "LIMITED";
+_npc domove position _caller;
+
+
+sleep 0.5;
+
+_rnd = random 100;
+_npc setmimic "Sad";
+
+if (_rnd <= 30 ) then {
+ _npc globalchat "Ok";
+};
+
+if (_rnd > 30 && _rnd <= 50) then {
+ _npc globalchat "Yes";
+};
+
+
+if (_rnd > 50 && _rnd <= 100) then {
+ _join=false;
+ _rnd = random 100;
+
+ if (_rnd < 20) then {
+ _npc setmimic "angry";
+ _npc switchmove "CtsPercMstpSnonWnonDnon_idle31rejpaniVnose";
+ _npc globalchat "Kiss my ass";
+ };
+
+ if (_rnd > 20 && _rnd <= 40) then {
+ _npc setmimic "Agresive";
+ _npc switchmove "CtsPercMstpSnonWnonDnon_idle33rejpaniVzadku";
+ sleep 3;
+ _npc globalchat "Que te den";
+ };
+
+ if (_rnd > 40 && _rnd <= 60) then {
+ _npc setmimic "Agresive";
+ _npc switchmove "CtsPercMstpSnonWnonDnon_idle33rejpaniVzadku";
+ sleep 1;
+ _npc globalchat "Fuck you";
+ };
+
+ if (_rnd > 60 && _rnd <= 80) then {
+ _npc setmimic "Agresive";
+ _npc switchmove "CtsPercMstpSnonWnonDnon_idle32podrbaniNanose";
+ sleep 0.5;
+ _npc globalchat "Follow your mother";
+ };
+
+ if (_rnd > 80 && _rnd <= 100) then {
+ _npc setmimic "angry";
+ sleep 0.1;
+ _npc switchmove "CtsPercMstpSnonWnonDnon_idle32podrbaniNanose";
+ _npc globalchat "Fuck you";
+ };
+};
+
+if (_join) then {
+ // remove the action once it is activated
+ _npc stop false;
+ if (_npc == leader _npc) then {
+ _npc globalchat "All follow that man";
+ {
+ _x switchmove "";
+ [_x] joinSilent _caller;
+ }foreach units _npc;
+ } else {
+ _npc removeAction _id;
+ [_npc] joinSilent _caller;
+ };
+};
+
+if (true) exitWith {};
diff --git a/Server/Module/UPSMON/UPSMON/common/MON_functions.sqf b/Server/Module/UPSMON/UPSMON/common/MON_functions.sqf new file mode 100644 index 0000000..8adf336 --- /dev/null +++ b/Server/Module/UPSMON/UPSMON/common/MON_functions.sqf @@ -0,0 +1,2204 @@ +// =========================================================================================================
+// Biblioteca de funciones comunes
+// Version: 5.1.0
+// Author: Monsada (smirall@hotmail.com)
+// http://www.simulacion-esp.com/
+// Comunidad Hispana de Simulación
+// =========================================================================================================
+
+MON_bugged_vehicles = ["BIS_alice_emptydoor","ACE_Grenade_Geometry"];
+
+// in Vanilia extra bugged vehicle
+if !(AcePresent) then {
+ MON_bugged_vehicles = MON_bugged_vehicles + ["HMMWV_M998A2_SOV_DES_EP1"];
+};
+
+// ---------------------------------------------------------------------------------------------------------
+//Función que permite posicionar objetos a la altura definida
+//param1: objeto
+//param2: altura
+MON_subir = {
+if (!isserver) exitwith{};
+private ["_object","_altura","_pos","_x","_y","_z","_bld","_bldpos"];
+
+_object = _this select 0;
+_altura = _this select 1;
+
+_x = 0;
+_y = 0;
+_z = 0;
+_pos =0;
+_bld = objnull;
+_bldpos =0;
+
+_pos = getposasl _object;
+
+_x = _pos select 0;
+_y = ( _pos select 1 );
+_z = ( _pos select 2 ) + _altura;
+_object setposasl [_x,_y ,_z];
+};
+//Retorna la dirección entre dos posiciones
+MON_getDirPos = {private["_a","_b","_from","_to","_return"]; _from = _this select 0; _to = _this select 1; _return = 0; _a = ((_to select 0) - (_from select 0)); _b = ((_to select 1) - (_from select 1)); if (_a != 0 || _b != 0) then {_return = _a atan2 _b}; if ( _return < 0 ) then { _return = _return + 360 }; _return};
+// ---------------------------------------------------------------------------------------------------------
+//Función de borra unidades que han sido matadas
+//param1: objeto a borrar cuando muera
+//param2: tiempo a esperar antes de borrar el objeto
+MON_deleteDead = {private["_u","_s"];_u=_this select 0; _s= _this select 1; _u removeAllEventHandlers "killed"; sleep _s; deletevehicle _u};
+MON_deleteDeadDist = {private["_u","_s","_dist","_OCercanos","_cicle","_deleted","_isplayer"];
+ _i = 0;
+ _cicle = 10;
+ _deleted = false;
+ _isplayer = false;
+ _u = _this select 0; _s = _this select 1; _dist = _this select 2;
+ _u removeAllEventHandlers "killed";
+ sleep _s;
+
+ while {!_deleted} do {
+ _isplayer = false;
+ //Buscamos objetos cercanos
+ _OCercanos = nearestObjects [_u, ["Man"] , _dist];
+
+ //Validamos si alguno de los soldados cerca es un jugador y está vivo
+ {if (isplayer _x && alive _x) exitwith {_isplayer = true;}}foreach _OCercanos;
+
+ if (!_isplayer) then {
+ deletevehicle _u;
+ _deleted = true;
+ };
+ sleep _cicle;
+ };
+};
+// ---------------------------------------------------------------------------------------------------------
+//Función tomada de UPS, busca el comando en la lista y devuelve el siguiente elemento
+//param1: comando a buscar
+//param2: valor por defecto del comando
+//param3: array con los comandos
+//Retorna valor del comando encontrado o valor por defecto
+MON_getArg = {private["_cmd","_arg","_list","_a","_v"]; _cmd=_this select 0; _arg=_this select 1; _list=_this select 2; _a=-1; {_a=_a+1; _v=format["%1",_list select _a];
+if (_v==_cmd) then {_arg=(_list select _a+1)}} foreach _list; _arg};
+
+// ---------------------------------------------------------------------------------------------------------
+//Función que devuelve una posición en 3D a partir de otra, una dirección y una distancia
+//param1: posición
+//param2: dirección
+//param3: distancia
+//Retorna vector de posicion en 3D [0,0,0]
+MON_GetPos =
+{
+ private ["_pos","_dir","_dist","_cosU","_cosT","_relTX","_sinU","_sinT","_relTY","_newPos","_newPosX","_newPosY", "_targetZ" ];
+ _pos = _this select 0;
+ _dir = _this select 1;
+ _dist = _this select 2;
+
+ _targetX = _pos select 0; _targetY = _pos select 1; _targetZ = _pos select 2;
+
+ //Calculamos posición
+ _cosU = [_dir] call MON_GetCOS; _sinU = [_dir] call MON_GetSIN;
+ _cosT = abs cos(_dir); _sinT = abs sin(_dir);
+ _relTX = _sinT * _dist * _cosU; _relTY = _cosT * _dist * _sinU;
+ _newPosX = _targetX + _relTX; _newPosY = _targetY + _relTY;
+ _newPos = [_newPosX,_newPosY,_targetZ];
+ _newPos;
+};
+
+// ---------------------------------------------------------------------------------------------------------
+//Función que devuelve una posición en 2D a partir de otra, una dirección y una distancia
+//param1: posición
+//param2: dirección
+//param3: distancia
+//Retorna vector de posicion en 2D [0,0]
+MON_GetPos2D =
+{
+ private ["_pos","_dir","_dist","_cosU","_cosT","_relTX","_sinU","_sinT","_relTY","_newPos","_newPosX","_newPosY" ];
+ _pos = _this select 0;
+ _dir = _this select 1;
+ _dist = _this select 2;
+
+ _targetX = _pos select 0; _targetY = _pos select 1;
+
+ //Calculamos posición
+ _cosU = [_dir] call MON_GetCOS; _sinU = [_dir] call MON_GetSIN;
+ _cosT = abs cos(_dir); _sinT = abs sin(_dir);
+ _relTX = _sinT * _dist * _cosU; _relTY = _cosT * _dist * _sinU;
+ _newPosX = _targetX + _relTX; _newPosY = _targetY + _relTY;
+ _newPos = [_newPosX,_newPosY];
+ _newPos;
+};
+
+// ---------------------------------------------------------------------------------------------------------
+//Función que devuelve las posiciones que se pueden ocupar dentro de un edificio
+//param1: objeto location
+//Retorna numero de posiciones que tiene el edificio
+MON_BldPos = {private ["_bld","_bldpos"];
+ _bld=_this; _bldpos = 1;
+ while {format ["%1", _bld buildingPos _bldpos] != "[0,0,0]"} do {_bldpos = _bldpos + 1;};
+ _bldpos = _bldpos - 1; _bldpos;};
+
+// ---------------------------------------------------------------------------------------------------------
+//Función que devuelve la casa que hay más cerca del objeto param1 y las posiciones que se pueden ocupar dentro de ella.
+//param1: objeto
+//Retorna vector con [objeto location, posiciones que tiene]
+MON_PosInfo = {
+ private["_obj","_bld","_bldpos"];
+ _obj=_this;
+ _bld = nearestbuilding _obj;
+ _bldpos= _bld call MON_BldPos;
+ [_bld,_bldpos];
+ };
+
+// ---------------------------------------------------------------------------------------------------------
+//Función que devuelve el valor negativo o positivo del seno en base a un angulo
+MON_GetSIN = {
+ private["_dir","_sin","_cos"];
+ _dir=_this select 0;
+ if (_dir<90) then
+ {
+ _sin=1;
+ } else
+ {
+ if (_dir<180) then
+ {
+ _sin=-1;
+ } else
+ {
+ if (_dir<270) then
+ {
+ _sin=-1;
+ }
+ else
+ {
+ _sin=1;
+ };
+ };
+ };
+ _sin
+};
+
+// ---------------------------------------------------------------------------------------------------------
+//Función que devuelve el valor negativo o positivo del coseno en base a un angulo
+MON_GetCOS = {
+ private["_dir","_cos"];
+ _dir=_this select 0;
+ if (_dir<90) then
+ {
+ _cos=1;
+ } else
+ {
+ if (_dir<180) then
+ {
+ _cos=1;
+ } else
+ {
+ if (_dir<270) then
+ {
+ _cos=-1;
+ }
+ else
+ {
+ _cos=-1;
+ };
+ };
+ };
+ _cos
+};
+
+//Función que busca vehiculos cercanos y hace entrar a las unidades del lider
+//Parámeters: [_grpid,_npc]
+// <- _grpid: id of group to assign to vehicle
+// <- _npc: lider
+// -> _getin: true if any getin
+MON_GetIn_NearestVehicles = {
+ private["_vehicles","_npc","_units","_unitsIn","_grpid","_getin"];
+ _grpid = _this select 0;
+ _npc = _this select 1;
+
+ _vehicles=[[]];
+ _air=[[]];
+ _units = [];
+ _unitsIn = [];
+ _getin=false;
+
+ if (leader _npc == _npc) then {
+ _units = units _npc;
+ } else
+ {
+ _units = _units + [_npc];
+ };
+
+ {
+ if ( (_x!= vehicle _x && !((vehicle _x) iskindof "StaticWeapon" )) || !(_x iskindof "Man") || !alive _x || !canmove _x || !canstand _x) then {_units = _units-[_x];};
+ }foreach _units;
+
+ _unitsIn = _units;
+
+ //First catch combat vehicles
+ if ( (count _units) > 0) then {
+ _air = [_npc,200] call MON_NearestsAirTransports;
+ {if (_npc knowsabout (_x select 0) <= 0.5) then{ _air = _air - [_x]};}foreach _air;
+ _units = [_grpid, _units, _air, false] call MON_selectvehicles;
+ };
+ sleep 0.05;
+ if ( (count _units) > 1) then {
+ _vehicles = [_npc,200,true] call MON_NearestsLandCombat;
+ {if (_npc knowsabout(_x select 0) <= 0.5) then{ _vehicles = _vehicles - [_x]};}foreach _vehicles;
+ _units = [_grpid, _units, _vehicles, false] call MON_selectvehicles;
+ };
+ sleep 0.05;
+ if ( (count _units) > 0) then {
+ _vehicles = [_npc,200] call MON_NearestsLandTransports;
+ {if (_npc knowsabout (_x select 0) <= 0.5) then{ _vehicles = _vehicles - [_x]};}foreach _vehicles;
+ _units = [_grpid, _units, _vehicles, false] call MON_selectvehicles;
+ };
+ sleep 0.05;
+ if ( (count _units) > 0 && (count _vehicles) > 0) then {
+ sleep 1;
+ _vehicles = _vehicles + _air;
+ _units = [_grpid, _units, _vehicles, true] call MON_selectvehicles;
+ };
+ sleep 0.05;
+ _unitsIn = _unitsIn - _units;
+
+ _unitsIn;
+ //sleep 0.05;
+};
+
+//Función que busca vehiculos cercanos y hace entrar a las unidades del lider
+//Parámeters: [_grpid,_npc]
+// <- _grpid: id of group to assign to vehicle
+// <- _npc: lider
+// -> _getin: true if any getin
+MON_GetIn_NearestCombat = {
+ private["_vehicles","_npc","_units","_unitsIn","_grpid","_getin","_dist","_all"];
+ _grpid = _this select 0;
+ _npc = _this select 1;
+ _dist = _this select 2;
+ _all = _this select 3;
+
+ _vehicles=[[]];
+ _units = [];
+ _unitsIn = [];
+ _getin=false;
+
+ if (leader _npc == _npc) then {
+ _units = units _npc;
+ } else
+ {
+ _units = _units + [_npc];
+ };
+
+ {
+ if ( (_x!= vehicle _x && !((vehicle _x) iskindof "StaticWeapon" )) || !(_x iskindof "Man") || !alive _x || !canmove _x || !canstand _x) then {_units = _units-[_x];};
+ }foreach _units;
+
+ //If suficient units leader will not get in
+ if (!all) then {
+ if (count _units > 2 ) then {_units = _units - [leader _npc]};
+ };
+
+ _unitsIn = _units;
+
+ //We need 2 units available if not any leave vehicle to another squad
+ if ( (count _units) > 1) then {
+ _vehicles = [_npc,_dist,_all] call MON_NearestsAirCombat;
+ {if (_npc knowsabout (_x select 0) <= 0.5) then{ _vehicles = _vehicles - [_x]};}foreach _vehicles;
+ _units = [_grpid, _units, _vehicles, false] call MON_selectvehicles;
+ };
+ sleep 0.05;
+
+ if ( (count _units) > 1) then {
+ _vehicles = [_npc,_dist,_all] call MON_NearestsLandCombat;
+ {if (_npc knowsabout(_x select 0) <= 0.5) then{ _vehicles = _vehicles - [_x]};}foreach _vehicles;
+ _units = [_grpid, _units, _vehicles, false] call MON_selectvehicles;
+ };
+
+ _unitsIn = _unitsIn - _units;
+
+ _unitsIn;
+};
+
+//Función que busca vehiculos cercanos y hace entrar a las unidades del lider
+//Parámeters: [_grpid,_npc]
+// <- _grpid: id of group to assign to vehicle
+// <- _npc: lider
+// -> _getin: true if any getin
+MON_GetIn_NearestBoat = {
+ private["_vehicles","_npc","_units","_unitsIn","_grpid","_getin","_dist"];
+ _grpid = _this select 0;
+ _npc = _this select 1;
+ _dist = _this select 2;
+
+ _vehicles=[[]];
+ _units = [];
+ _unitsIn = [];
+ _getin=false;
+
+ if (leader _npc == _npc) then {
+ _units = units _npc;
+ } else
+ {
+ _units = _units + [_npc];
+ };
+
+ {
+ if ( (_x!= vehicle _x && !((vehicle _x) iskindof "StaticWeapon" )) || !(_x iskindof "Man") || !alive _x || !canmove _x || !canstand _x) then {_units = _units-[_x];};
+ }foreach _units;
+
+ _unitsIn = _units;
+
+ //We need 2 units available if not any leave vehicle to another squad
+ if ( (count _units) > 0) then {
+ _vehicles = [_npc,_dist] call MON_Nearestsboats;
+ {if (_npc knowsabout (_x select 0) <= 0.5) then{ _vehicles = _vehicles - [_x]};}foreach _vehicles;
+ _units = [_grpid, _units, _vehicles, false] call MON_selectvehicles;
+ };
+
+ if ( (count _units) > 1 && (count _vehicles) > 0) then {
+ sleep 1;
+ _units = [_grpid, _units, _vehicles, true] call MON_selectvehicles;
+ };
+
+ _unitsIn = _unitsIn - _units;
+ _unitsIn;
+};
+
+//Función que busca staticos cercanos y hace entrar a las unidades del lider
+//Parámeters: [_grpid,_npc]
+// <- _grpid: id of group to assign to vehicle
+// <- _npc: lider
+// -> _getin: true if any getin
+MON_GetIn_NearestStatic = {
+ private["_vehicles","_npc","_units","_unitsIn","_grpid","_getin","_count"];
+ _grpid = _this select 0;
+ _npc = _this select 1;
+ _count = 0;
+ _distance = 100;
+ if ((count _this) > 2) then {_distance = _this select 2;};
+
+ _vehicles=[];
+ _units = [];
+ _unitsIn = [];
+ _getin=false;
+
+ //Buscamos staticos cerca
+ _vehicles = [_npc,_distance] call MON_NearestsStaticWeapons;
+
+ if ( count _vehicles == 0) exitwith {_unitsIn;};
+
+ if (leader _npc == _npc) then {
+ _units = (units _npc) - [_npc];
+ } else
+ {
+ _units = _units + [_npc];
+ };
+
+ //Solo tomamos las unidades vivas y que no estén en vehiculo
+ {
+ if ( (_x iskindof "Man") && _x == vehicle _x && alive _x && canmove _x && canstand _x) then {
+ _unitsIn = _unitsIn + [_x];
+ };
+ }foreach _units;
+
+ //Intentamos tomar solo las que estén disponibles
+ _units = [];
+ {
+ if (unitready _x) then {
+ _units = _units + [_x];
+ };
+ }foreach _unitsin;
+
+ //Si hay unidades disponibles las usamos
+ if (count _units > 0) then {
+ _unitsIn = _units;
+ };
+
+ //if (KRON_UPS_Debug>0 ) then {player sidechat format["%1: Found %2 estatic weapons %3 men available",_grpid,count _vehicles, count _unitsIn]};
+
+ _units = _unitsIn;
+ if ( count _unitsIn > 0) then {
+ _units = [_grpid, _units, _vehicles, true] call MON_selectvehicles;
+ };
+
+ _unitsIn = _unitsIn - _units;
+
+ _unitsIn;
+};
+
+//Function to assign units to vehicles
+//Parámeters: [_grpid,_unitsin,_vehicle]
+// <- _grpid: id of group to assign to vehicle
+// <- _units: array of units to getin
+// <- _vehicles: array of vehicles to use
+// -> _untis: array of units getin
+ MON_selectvehicles = {
+ private["_vehicles","_emptypositions","_units","_unitsIn","_i","_grpid","_vehgrpid","_unit","_wp","_any","_index","_cargo"];
+ _grpid = _this select 0;
+ _units = _this select 1;
+ _vehicles = _this select 2;
+ _any = _this select 3; //meter en cualquier vehiculo
+
+ _wp = [];
+ _vehicle = [];
+ _unitsIn = [];
+ _emptypositions = 0;
+ _i = 0;
+ _vehgrpid = 0;
+ _unit = objnull;
+ _index = 0;
+ _cargo = [];
+
+ {
+ if ((count _units) == 0 ) exitwith {};
+
+ _vehicle = _x select 0 ;
+ _emptypositions = _x select 1;
+ _unitsIn = [];
+ _i = 0;
+ _vehgrpid = _vehicle getvariable ("UPSMON_grpid");
+ _cargo = _vehicle getvariable ("UPSMON_cargo");
+ if ( isNil("_vehgrpid") ) then {_vehgrpid = 0;};
+ if ( isNil("_cargo") ) then {_cargo = [];};
+
+ //Asignamos el vehiculo a a la escuadra si contiene las posiciones justas
+ if (_vehgrpid == 0) then {
+ _vehicle setVariable ["UPSMON_grpid", _grpid, false];
+ _vehicle setVariable ["UPSMON_cargo", _unitsIn, false];
+ _vehgrpid = _grpid;
+ };
+
+ {
+ if (!alive _x || !canmove _x) then {_cargo = _cargo - [_x]; };
+ }foreach _cargo;
+
+ _emptypositions = _emptypositions - (count _cargo - count ( crew _vehicle) );
+
+
+ //if (KRON_UPS_Debug>0) then {player sidechat format["%1 %2 positions=%3 cargo=%4 crew=%5",_grpid, typeof _vehicle, _emptypositions, count _cargo,count (crew _vehicle)]};
+ //ahora buscamos en cualquier vehiculo
+ if ( _vehgrpid == _grpid || (_emptypositions > 0 && _any)) then {
+
+ while {_i < _emptypositions && _i < count _units} do
+ {
+ _unit = _units select _i;
+ _unitsIn = _unitsIn + [_unit];
+ _i = _i + 1;
+ };
+ _units = _units - _unitsIn;
+
+ if ( (count _unitsIn) > 0) then {
+ //Metemos las unidades en el vehiculo
+ [_grpid,_unitsIn,_vehicle] spawn MON_UnitsGetIn;
+ if (KRON_UPS_Debug>0 ) then {player sidechat format["%1: Get in %2 %3 units of %4 available",_grpid,typeof _vehicle,count _unitsIn,_emptypositions]};
+ //if (KRON_UPS_Debug>0 ) then {diag_log format["%1: Moving %3 units into %2 with %4 positions",_grpid,typeof _vehicle,count _unitsIn,_emptypositions]};
+ };
+ };
+ _index = _index + 1;
+ sleep 0.05;
+ } foreach _vehicles;
+
+ _units;
+ };
+
+
+//Funcion que mete la tropa en el vehiculo
+//Parámeters: [_grpid,_unitsin,_vehicle]
+// <- _grpid: id of group to assign to vehicle
+// <- _unitsin: array of units to getin
+// <- _vehicle
+MON_UnitsGetIn = {
+ private["_grpid","_vehicle","_npc","_driver","_gunner", "_unitsin", "_units" , "_Commandercount","_Drivercount","_Gunnercount","_cargo",
+ "_Cargocount","_emptypositions","_commander","_vehgrpid","_cargo"];
+
+ _grpid = _this select 0;
+ _unitsin = _this select 1;
+ _vehicle = _this select 2;
+
+ _units = _unitsin;
+ _driver = objnull;
+ _gunner = objnull;
+ _commander = objnull;
+ _Cargocount = 0;
+ _Gunnercount = 0;
+ _Commandercount = 0;
+ _Drivercount = 0;
+ _cargo = [];
+
+ _Cargocount = (_vehicle) emptyPositions "Cargo";
+ _Gunnercount = (_vehicle) emptyPositions "Gunner";
+ _Commandercount = (_vehicle) emptyPositions "Commander";
+ _Drivercount = (_vehicle) emptyPositions "Driver";
+
+ //Obtenemos el identificador del vehiculo
+ _vehgrpid = _vehicle getvariable ("UPSMON_grpid");
+ _cargo = _vehicle getvariable ("UPSMON_cargo");
+ if ( isNil("_vehgrpid") ) then {_vehgrpid = 0;};
+ if ( isNil("_cargo") ) then {_cargo = [];};
+
+ _cargo = _cargo - _unitsin; //Para evitar duplicados
+ _cargo = _cargo + _unitsin; //Añadimos a la carga
+ _vehicle setVariable ["UPSMON_cargo", _cargo, false];
+
+ //Hablitamos a la IA para entrar en el vehiculo
+ {
+ [_x,0] call MON_dostop;
+
+ if ("StaticWeapon" countType [vehicle (_x)]>0) then
+ {
+ _x spawn MON_doGetOut;
+ };
+
+ unassignVehicle _x;
+ _x spawn MON_Allowgetin;
+ }foreach _units;
+
+ //Assigned to the leader as commander or cargo
+ {
+ if ( _vehgrpid == _grpid && _x == leader _x && _Commandercount > 0 ) exitwith
+ {
+ _Commandercount = 0;
+ _commander = _x;
+ _commander assignAsCommander _vehicle;
+ _units = _units - [_x];
+ [_x] orderGetIn true;
+ };
+
+ if ( _x == leader _x && _Cargocount > 0 ) exitwith
+ {
+ _x assignAsCargo _vehicle;
+ _units = _units - [_x];
+ _Cargocount = _Cargocount - 1;
+ [_x] orderGetIn true;
+ };
+ }foreach _units;
+ //if (KRON_UPS_Debug>0 ) then {player sidechat format["%1: _vehgrpid %2 ,_Gunnercount %3, %4",_grpid,_vehgrpid,_Gunnercount,count _units]};
+
+ //Si el vehiculo pertenece al grupo asignamos posiciones de piloto, sinó solo de carga
+ if ( _vehgrpid == _grpid ) then {
+
+ //Asignamos el conductor
+ if ( _Drivercount > 0 && count (_units) > 0 ) then {
+ _driver = _units select (count _units - 1);
+ [_driver,_vehicle,0] spawn MON_assignasdriver;
+ _units = _units - [_driver];
+ };
+
+ //Asignamos el artillero
+ if ( _Gunnercount > 0 && count (_units) > 0 ) then {
+ _gunner = [_vehicle,_units] call MON_getNearestSoldier;
+ [_gunner,_vehicle] spawn MON_assignasgunner;
+ _units = _units - [_gunner];
+ };
+ };
+
+ //if (KRON_UPS_Debug>0 ) then {player sidechat format["%1: _vehgrpid=%2 units=%4",_grpid,_vehgrpid,_cargocount,count _units]};
+ //Movemos el resto como carga
+ if ( _Cargocount > 0 && count (_units) > 0 ) then {
+ {
+ _x assignAsCargo _vehicle;
+ [_x] orderGetIn true;
+ sleep 0.05;
+ } forEach _units;
+ };
+
+ {
+ [_x] spawn MON_avoidDissembark;
+ } forEach _unitsin - [_driver] - [_gunner] -[_commander];
+
+};
+
+MON_getNearestSoldier = {
+ private["_units","_obj","_near"];
+
+ _obj = _this select 0;
+ _units = _this select 1;
+
+ _near = objnull;
+
+ {
+ if (isnull _near) then {
+ _near = _x;
+ } else {
+ if ( _x distance _obj < _near distance _obj ) then {_near = _x;};
+ };
+ }foreach _units;
+ _near;
+};
+
+MON_avoidDissembark = {
+ private["_npc","_vehicle","_timeout"];
+
+ _npc = _this select 0;
+ _vehicle = vehicle _npc ;
+
+ _timeout = 120;
+ _timeout = time + _timeout;
+
+ while {_npc == vehicle _npc && alive _npc && canmove _npc && time < _timeout} do {
+ sleep 1;
+ };
+
+ if (!alive _npc || !canmove _npc || time >= _timeout || driver vehicle _npc == _npc) exitwith{};
+ _npc stop true;
+
+ while {_npc != vehicle _npc && alive _npc && canmove _npc} do {sleep 1;};
+ _npc stop false;
+ sleep 0.5;
+
+ if (!alive _npc || !canmove _npc) exitwith{};
+};
+
+
+//Función que devuelve un vehiculo de transporte cercano
+//Parámeters: [_npc]
+// <- _npc: object for position search
+// -> _vehicle: vehicle
+MON_NearestLandTransport = {
+ private["_vehicle","_npc","_transportSoldier","_OCercanos","_driver", "_Commandercount","_Drivercount","_Gunnercount","_Cargocount"];
+
+ _npc = _this;
+
+ _OCercanos = [];
+ _transportSoldier = 0;
+ _vehicle = objnull;
+ _Cargocount = 0;
+ _Gunnercount = 0;
+ _Commandercount = 0;
+ _Drivercount = 0;
+
+
+ //Buscamos objetos cercanos
+ _OCercanos = nearestObjects [_npc, ["Car","TANK","Truck","Motorcycle"] , 150];
+
+ {
+ _Cargocount = (_x) emptyPositions "Cargo";
+ _Gunnercount = (_x) emptyPositions "Gunner";
+ _Commandercount = (_x) emptyPositions "Commander";
+ _Drivercount = (_x) emptyPositions "Driver";
+
+ _transportSoldier = _Cargocount + _Gunnercount + _Commandercount + _Drivercount;
+
+ if (!locked _x && canMove _x && _transportSoldier >= count (units _npc) && !(typeof _x in MON_bugged_vehicles)
+ && (_drivercount > 0 || side _npc == side _x )) exitwith {_vehicle = _x;};
+ }foreach _OCercanos;
+
+ _vehicle;
+};
+
+//Función que devuelve un array con los vehiculos terrestres más cercanos
+//Parámeters: [_npc,_distance]
+// <- _npc: object for position search
+// <- _distance: max distance from npc
+// -> _vehicles: array of vehicles
+MON_NearestsLandTransports = {
+ private["_vehicles","_npc","_emptypositions","_OCercanos","_driver", "_Commandercount","_Drivercount","_Gunnercount","_Cargocount","_distance"];
+
+ _npc = _this select 0;
+ _distance = _this select 1;
+
+ _OCercanos = [];
+ _emptypositions = 0;
+ _vehicles = [];
+ _Cargocount = 0;
+ _Gunnercount = 0;
+ _Commandercount = 0;
+ _Drivercount = 0;
+
+ //Buscamos objetos cercanos
+ _OCercanos = nearestObjects [_npc, ["Car","TANK","Truck","Motorcycle"] , _distance];
+
+ {
+ _Cargocount = (_x) emptyPositions "Cargo";
+ _Gunnercount = (_x) emptyPositions "Gunner";
+ _Commandercount = (_x) emptyPositions "Commander";
+ _Drivercount = (_x) emptyPositions "Driver";
+
+ _emptypositions = _Cargocount + _Gunnercount + _Commandercount + _Drivercount;
+
+ if (!locked _x && _emptypositions > 0 && canMove _x && !(typeof _x in MON_bugged_vehicles)
+ && (_drivercount > 0 || side _npc == side _x )) then { _vehicles = _vehicles + [[_x,_emptypositions]];};
+ }foreach _OCercanos;
+
+ _vehicles;
+};
+
+//Función que devuelve un array con los vehiculos terrestres más cercanos
+//Parámeters: [_npc,_distance]
+// <- _npc: object for position search
+// <- _distance: max distance from npc
+// -> _vehicles: array of vehicles
+MON_NearestsLandCombat = {
+ private["_vehicles","_npc","_emptypositions","_OCercanos","_driver", "_Commandercount","_Drivercount","_Gunnercount","_Cargocount","_distance","_all"];
+
+ _npc = _this select 0;
+ _distance = _this select 1;
+ _all = _this select 2;
+
+ _OCercanos = [];
+ _emptypositions = 0;
+ _vehicles = [];
+ _Cargocount = 0;
+ _Gunnercount = 0;
+ _Commandercount = 0;
+ _Drivercount = 0;
+
+ //Buscamos objetos cercanos
+ _OCercanos = nearestObjects [_npc, ["Car","TANK","Truck","Motorcycle"] , _distance];
+
+ {
+ if (_all) then {
+ _Cargocount = (_x) emptyPositions "Cargo";
+ };
+ _Gunnercount = (_x) emptyPositions "Gunner";
+ _Drivercount = (_x) emptyPositions "Driver";
+ _Commandercount = (_x) emptyPositions "Commander";
+
+ _emptypositions = _Cargocount + _Gunnercount + _Commandercount + _Drivercount;
+
+ if (!locked _x && _Gunnercount > 0 && canMove _x && !(typeof _x in MON_bugged_vehicles)
+ && (_drivercount > 0 || side _npc == side _x )) then { _vehicles = _vehicles + [[_x,_emptypositions]];};
+ }foreach _OCercanos;
+
+ _vehicles;
+};
+
+//Función que devuelve un array con los vehiculos aereos más cercanos
+//Parámeters: [_npc,_distance]
+// <- _npc: object for position search
+// <- _distance: max distance from npc
+// -> _vehicles: array of vehicles
+MON_NearestsAirTransports = {
+ private["_vehicles","_npc","_emptypositions","_OCercanos","_driver", "_Commandercount","_Drivercount","_Gunnercount","_Cargocount","_distance"];
+
+ _npc = _this select 0;
+ _distance = _this select 1;
+
+ _OCercanos = [];
+ _emptypositions = 0;
+ _vehicles = [];
+ _Cargocount = 0;
+ _Gunnercount = 0;
+ _Commandercount = 0;
+ _Drivercount = 0;
+
+ //Buscamos objetos cercanos
+ _OCercanos = nearestObjects [_npc, ["Helicopter"] , _distance];
+
+ {
+ _Cargocount = (_x) emptyPositions "Cargo";
+ _Gunnercount = (_x) emptyPositions "Gunner";
+ _Commandercount = (_x) emptyPositions "Commander";
+ _Drivercount = (_x) emptyPositions "Driver";
+
+ _emptypositions = _Cargocount + _Gunnercount + _Commandercount + _Drivercount;
+
+ if (!locked _x && _emptypositions > 0 && canMove _x && !(typeof _x in MON_bugged_vehicles)
+ && (_drivercount > 0 || side _npc == side _x )) then { _vehicles = _vehicles + [[_x,_emptypositions]];};
+ }foreach _OCercanos;
+
+ _vehicles;
+};
+
+//Function that returns an array with the closest air vehicles
+//Parámeters: [_npc,_distance]
+// <- _npc: object for position search
+// <- _distance: max distance from npc
+// -> _vehicles: array of vehicles
+MON_NearestsAirCombat = {
+ private["_vehicles","_npc","_emptypositions","_OCercanos","_driver", "_Commandercount","_Drivercount","_Gunnercount","_Cargocount","_distance","_all"];
+
+ _npc = _this select 0;
+ _distance = _this select 1;
+ _all = _this select 2;
+
+ _OCercanos = [];
+ _emptypositions = 0;
+ _vehicles = [];
+ _Cargocount = 0;
+ _Gunnercount = 0;
+ _Commandercount = 0;
+ _Drivercount = 0;
+
+
+
+ //Buscamos objetos cercanos
+ _OCercanos = nearestObjects [_npc, ["Helicopter"] , _distance];
+
+ {
+ if (_all) then {
+ _Cargocount = (_x) emptyPositions "Cargo";
+ };
+
+ // _Gunnercount = [_x] call RAF_numberOfTurrets;
+ _Gunnercount = (_x) emptyPositions "Gunner";
+ _Drivercount = (_x) emptyPositions "Driver";
+ _Commandercount = (_x) emptyPositions "Commander";
+
+ _emptypositions = _Cargocount + _Gunnercount + _Commandercount + _Drivercount;
+
+ if (!locked _x && _Gunnercount > 0 && canMove _x && !(typeof _x in MON_bugged_vehicles)
+ && (_drivercount > 0 || side _npc == side _x )) then { _vehicles = _vehicles + [[_x,_emptypositions]];};
+ }foreach _OCercanos;
+ _vehicles //return
+};
+
+//Función que devuelve un array con los vehiculos staticos más cercanos
+//Parámeters: [_npc,_distance]
+// <- _npc: object for position search
+// <- _distance: max distance from npc
+// -> _vehicles: array of vehicles
+MON_NearestsStaticWeapons = {
+ private["_vehicles","_npc","_emptypositions","_OCercanos","_driver", "_Commandercount","_Drivercount","_Gunnercount","_Cargocount","_distance"];
+
+ _npc = _this select 0;
+ _distance = _this select 1;
+
+ _OCercanos = [];
+ _emptypositions = 0;
+ _vehicles = [];
+ _Cargocount = 0;
+ _Gunnercount = 0;
+ _Commandercount = 0;
+ _Drivercount = 0;
+
+ //Buscamos objetos cercanos
+ _OCercanos = nearestObjects [_npc, ["StaticWeapon"] , _distance];
+
+ {
+ _Gunnercount = (_x) emptyPositions "Gunner";
+ _emptypositions = _Gunnercount;
+ if (!locked _x && alive _x && _emptypositions > 0 && !(typeof _x in MON_bugged_vehicles) ) then { _vehicles = _vehicles + [[_x,_emptypositions]];};
+ }foreach _OCercanos;
+
+ _vehicles //return
+ };
+
+//Función que devuelve un array con los vehiculos marinos más cercanos
+//Parámeters: [_npc,_distance]
+// <- _npc: object for position search
+// <- _distance: max distance from npc
+// -> _vehicles: array of vehicles
+MON_Nearestsboats = {
+ private["_vehicles","_npc","_emptypositions","_OCercanos","_driver", "_Commandercount","_Drivercount","_Gunnercount","_Cargocount","_distance"];
+
+ _npc = _this select 0;
+ _distance = _this select 1;
+
+ _OCercanos = [];
+ _emptypositions = 0;
+ _vehicles = [];
+ _Cargocount = 0;
+ _Gunnercount = 0;
+ _Commandercount = 0;
+ _Drivercount = 0;
+
+ //Buscamos objetos cercanos
+ _OCercanos = nearestObjects [_npc, ["Ship"] , _distance];
+
+ {
+ _Cargocount = (_x) emptyPositions "Cargo";
+ _Gunnercount = (_x) emptyPositions "Gunner";
+ _Commandercount = (_x) emptyPositions "Commander";
+ _Drivercount = (_x) emptyPositions "Driver";
+
+ _emptypositions = _Cargocount + _Gunnercount + _Commandercount + _Drivercount;
+
+ if (!locked _x && _emptypositions > 0 && canMove _x && (_drivercount > 0 || side _npc == side _x )) then { _vehicles = _vehicles + [[_x,_emptypositions]];};
+ }foreach _OCercanos;
+
+ _vehicles //return
+ };
+
+//Function to delay the taking of the steering wheel and the vehicle will not have time to rise and
+MON_assignasdriver = {
+ private["_vehicle","_driver","_wait"];
+ _driver = _this select 0;
+ _vehicle = _this select 1;
+ _wait = _this select 2;
+
+ [_driver,_wait] spawn MON_dostop;
+ sleep _wait;
+
+ unassignVehicle _driver;
+ _driver assignasdriver _vehicle;
+ [_driver] orderGetIn true;
+
+ //if (KRON_UPS_Debug>0) then {player sidechat format["%1: assigning to driver of %2 ",_driver, typeof _vehicle]};
+};
+
+MON_assignasgunner = {
+ private["_vehicle","_gunner","_dist"];
+ _gunner = _this select 0;
+ _vehicle = _this select 1;
+ _dist=0;
+
+ _gunner assignasgunner _vehicle;
+ [_gunner] orderGetIn true;
+
+ waituntil { _gunner != vehicle _gunner || !alive _gunner || !canmove _gunner ||!alive _vehicle || !canfire _vehicle};
+
+ if ( alive _gunner && alive _vehicle && canmove _gunner && canfire _vehicle) then {
+ _dist = _gunner distance _vehicle;
+ if (_dist < 3) then {
+ _gunner moveInTurret [_vehicle, [0]] ;
+ };
+ };
+};
+
+
+//Allow getin
+MON_Allowgetin = {
+ //Hablitamos a la IA para entrar en el vehiculo
+ [_this] allowGetIn true;
+};
+
+
+//If every on is outside, make sure driver can move
+ MON_checkleaveVehicle={
+ _npc = _this select 0;
+ _vehicle = _this select 1;
+ _driver = _this select 2;
+ _in = false;
+
+ //Take time to go all units
+ sleep 5;
+ {
+ if (_x != vehicle _x) then {_in = true};
+ }foreach units _npc;
+
+
+ // if no one is inside
+ if (!_in) then {
+ _driver enableAI "MOVE";
+ sleep 1;
+ _driver stop false;
+ sleep 1;
+ _driver leaveVehicle _vehicle;
+ sleep 1;
+ };
+ };
+
+
+//Function for order a unit to exit if no gunner
+//Parámeters: [_npc]
+// <- _npc:
+MON_GetOut = {
+ private["_vehicle","_npc","_getout" ,"_gunner"];
+
+ _npc = _this;
+ _vehicle = vehicle (_npc);
+ _gunner = objnull;
+ _gunner = gunner _vehicle;
+
+ sleep 0.05;
+ if (!alive _npc) exitwith{};
+
+ //If no leave the vehicle gunner
+ if ( isnull _gunner || !alive _gunner || !canmove _gunner || (_gunner != _npc && driver _vehicle != _npc && commander _vehicle != _npc) ) then {
+ [_npc] allowGetIn false;
+ _npc spawn MON_doGetOut;
+ unassignVehicle _npc;
+
+ //sleep 0.2;
+ };
+ };
+
+//Function for order a unit to exit
+//Parámeters: [_npc]
+// <- _npc:
+MON_doGetOut = {
+ private["_vehicle","_npc","_getout" ,"_gunner","_groupOne","_timeout","_dir"];
+
+ _npc = _this;
+ _vehicle = vehicle (_npc);
+
+ sleep 0.05;
+ if (_vehicle == _npc) exitwith{};
+
+ //Wait until vehicle is stopped
+ waituntil {!alive _npc || !canmove _npc || !alive _vehicle || ( (abs(velocity _vehicle select 0)) <= 0.1 && (abs(velocity _vehicle select 1)) <= 0.1 )
+ || ( _vehicle iskindof "Air" && ((position _vehicle) select 2) <= 1)};
+
+ if (!alive _npc || !canmove _npc) exitwith{};
+ unassignVehicle _npc;
+ _npc action ["getOut", _vehicle];
+ doGetOut _npc;
+ [_npc] allowGetIn false;
+ nul = [_npc] spawn MON_cancelstop;
+
+ waituntil {!alive _npc || !canmove _npc || vehicle _npc == _npc};
+ if (!alive _npc || !canmove _npc) exitwith{};
+
+ if (leader _npc != _npc) then {
+ //Moves out with dispersion of 45º
+ _dir = getDir _npc;
+ _dir = _dir + 45 - (random 90);
+ nul = [_npc,25,_dir] spawn MON_domove;
+ //if (KRON_UPS_Debug>0 ) then { player globalchat format["%1 Moving away from %2 %2º",_npc, typeof _vehicle,_dir];};
+ };
+};
+
+//Function for exiting of heli
+//Parámeters: [_heli,_targetPos,_atdist]
+// <- _heli:
+// <- _targetPos: position for exiting(if no waypoint used)
+// <- _atdist: distance for doing paradrop or landing
+MON_doParadrop = {
+ if (KRON_UPS_Debug>0 ) then { player globalchat format["Mon_doParadrop started"];};
+ private["_heli","_npc","_getout" ,"_gunner","_targetpos","_helipos","_dist","_index","_grp","_wp","_targetPosWp","_targetP","_units","_crew","_timeout","_jumpers"];
+ _heli = _this select 0;
+ _targetPos = [0,0];
+ _atdist = 250;
+ _flyingheigh = KRON_UPS_flyInHeight;
+ _landonBeh = ["CARELESS","SAFE"];
+ _timeout=0;
+
+ //Gets optional parameters
+ if ((count _this) > 1) then {_targetPos = _this select 1;};
+ if ((count _this) > 2) then {_atdist = _this select 2;};
+ if ((count _this) > 3) then {_flyingheigh = _this select 3;};
+
+ _helipos = [0,0];
+ _targetposWp = [0,0];
+ _gunner = objnull;
+ _gunner = gunner _heli;
+ _dist = 1000000;
+ _index = 0;
+ _grp = GRPNULL;
+ _wp = [];
+ _units =[];
+ _crew =[];
+
+ waituntil {count crew _heli > 0 || !alive _heli || !canmove _heli};
+ _grp = group ((crew _heli) select 0);
+ _npc = leader ((crew _heli) select 0);
+ _units = units _npc;
+
+ while { (_dist >= _atdist || _dist < 10) && alive _heli && canmove _heli && count crew _heli > 0} do {
+ _heli flyInHeight _flyingheigh;
+
+
+ /*
+ //Take last waypoint
+ _index = (count waypoints _grp) - 1;
+ _wp = [_grp,_index];
+ _targetPosWp = waypointPosition _wp;
+ if (format ["%1", _targetPosWp] == "[0,0,0]") then {_targetPosWp = _targetPos};
+ */
+
+ _targetPosWp = _targetPos;
+
+ _helipos = position _heli;
+ _dist = round([_helipos,_targetPosWp] call KRON_distancePosSqr);
+ //if (KRON_UPS_Debug>0 ) then {player globalchat format["Goiing to drop zone _dist=%1, _atdist=%2", _dist, _atdist ];};
+ sleep 1;
+ };
+
+ if (!alive _heli || count crew _heli == 0) exitwith{};
+ _crew = crew _heli;
+
+ //Jump
+ if (((position _heli) select 2) >= 90 && !surfaceIsWater position _heli && (!(toupper (behaviour _npc) IN _landonBeh) || (random 100) < 20)) then {
+ //moving hely for avoiding stuck
+ if (KRON_UPS_Debug>0 ) then {_heli globalchat format["doing paradrop high %1 dist=%2",(position _heli) select 2,_dist,_atdist];};
+
+ _jumpers = [_heli] call R_FN_unitsInCargo;
+
+ //Do paradrop
+ {
+ if( (assignedVehicleRole _x) select 0 == "Cargo")then
+ {
+ unassignVehicle _x;
+ _x action ["EJECT", _heli] ;
+ _x stop false;
+ [_x] allowGetIn false;
+ [_x] spawn MON_ACE_Watersurvival;
+
+ };
+ sleep 0.5;
+ } forEach crew _heli;
+ [_heli,700] spawn MON_domove;
+
+ //Clear Hely vars
+ _heli setVariable ["UPSMON_grpid", 0, false];
+ _heli setVariable ["UPSMON_cargo", [], false];
+
+ // set orginal fly hight
+ // _flyingheigh = KRON_UPS_flyInHeight;
+ // _heli flyInHeight _flyingheigh;
+
+ //Waits until all units are down
+ _timeout = time + 60;
+ {
+ waituntil {(_x == vehicle _x ) || !alive _x || !canmove _x || isnull _x || time > _timeout};
+ //Fix bug of ACE that sometimes AI gets in stand animation
+ //_x switchMove "AmovPercMsprSlowWrflDf_AmovPpneMstpSrasWrflDnon_2";
+ } foreach _jumpers;
+
+
+ if ( _npc == vehicle _npc) then {
+ {
+ if (alive _x && canmove _x) then {
+ [_x] dofollow _npc;
+ };
+ } foreach units _npc;
+ };
+
+
+
+ //if (KRON_UPS_Debug>0) then {player globalchat format["%1 after paradrop",_npc]};
+
+ if (alive _npc && canmove _npc) then {
+ _npc move _targetPosWp;
+ }else{
+ {if (alive _x && canmove _x) exitwith { _x move _targetPosWp;}}foreach _crew;
+ };
+
+ //If only pilot land heli
+ if (count crew _heli <=1) then {
+ [_heli] spawn MON_landHely;
+ };
+ } else {
+ //land
+
+ if ( ((position _heli) select 2) >= 60 && !surfaceIsWater _helipos && ((random 100)<20 || !canmove _heli || (toupper (behaviour _npc) IN _landonBeh))) then {
+ [_heli] spawn MON_landHely;
+
+ }
+ else {
+ If (alive _heli && canmove _heli && count crew _heli > 0) then {
+ if (KRON_UPS_Debug>0 ) then {_heli globalchat format["%1 failed paradrop, trying another time",typeof _heli];};
+ //Try another time
+ _heli flyInHeight _flyingheigh;
+ sleep 3;
+ [_heli, _targetPos, _atdist*1.5,_flyingheigh] spawn MON_doParadrop;
+ };
+ };
+ };
+};
+
+//Lands hely
+MON_landHely = {
+ private["_heli","_npc","_crew","_NearestEnemy","_timeout","_landing","_targetpos","_jumpers"];
+ _heli = _this select 0;
+ _crew =[];
+ _targetpos=[0,0];
+ _timeout = 0;
+ _landing = false;
+
+ sleep 0.05;
+ if (!alive _heli || !canmove _heli ) exitwith{};
+ _crew = crew _heli;
+ _npc = leader (_crew select 0);
+
+ //Checks hely is already landing
+ _landing = _heli getVariable "UPSMON_landing";
+ if (isnil ("_landing")) then {_landing=false; _heli setVariable ["UPSMON_landing", false, false];};
+ if (_landing) exitwith {};
+
+ //Orders to land heli
+ _heli land "LAND";
+ if (KRON_UPS_Debug>0 ) then {player globalchat format["%1 is landing",typeof _heli];};
+
+ //Puts a mark for knowing hely is landing
+ _heli setVariable ["UPSMON_landing", true, false];
+
+ //Waits for land position
+ waituntil {!alive _heli || toUpper(landResult _heli) != "NOTREADY" };
+ if (alive _heli && (toUpper(landResult _heli) == "NOTFOUND")) exitwith {
+ if (KRON_UPS_Debug>0 ) then { player globalchat format["%1 no landing zone, doing paradrop",typeof _heli];};
+ _heli setVariable ["UPSMON_landing", false, false];
+ [_heli] spawn MON_doparadrop;
+ };
+
+ //1rt try-Waits until velocity and heigh are good for getting out
+ _timeout = 60 + time;
+ waituntil {!alive _heli || time > _timeout || ((abs(velocity _heli select 2)) <= 1 && ((position _heli) select 2) <= 0.7)};
+
+ //2nd try-Waits until velocity and heigh are good for getting out
+ if (((position _heli) select 2) > 2 && ((position _heli) select 2) < 30 && !surfaceiswater position _heli) then {
+ _heli land "LAND";
+ _timeout = 30 + time;
+ waituntil {!alive _heli || time > _timeout || ((position _heli) select 2) > 30 || ( (abs(velocity _heli select 2)) <= 1 && ((position _heli) select 2) <= 0.7)};
+
+ //Failed landing doing paradrop
+ if ( ((position _heli) select 2) > 30) exitwith {
+ if (KRON_UPS_Debug>0 ) then { player globalchat format["%1 landing timeout, doing paradrop",typeof _heli];};
+ _heli setVariable ["UPSMON_landing", false, false];
+ sleep 5;
+ [_heli] spawn MON_doparadrop;
+ };
+ };
+
+ //Chechs if alive before continuing
+ if (!alive _heli) exitwith{};
+
+
+ //If there is pilot and gunner, get out only cargo
+ if ((!isnull gunner _heli) && (!isnull driver _heli)) then {
+ _jumpers = [_heli] call R_FN_unitsInCargo;
+ } else {
+ _jumpers = crew _heli;
+ };
+
+
+ //dogetout each of _jumpers
+ {
+ _x spawn MON_doGetOut;
+ sleep 0.5;
+ } forEach _jumpers;
+
+ _timeout = 20 + time;
+
+ //Waits until all getout of heli
+ {
+ waituntil {vehicle _x == _x || !canmove _x || !alive _x || movetofailed _x || time > _timeout };
+ } forEach _jumpers;
+
+ sleep 1;
+ _heli land "NONE";
+ sleep 1;
+ [_heli,700] spawn MON_domove;
+
+
+
+
+ // If leader alive sets combat mode
+ if (alive _npc && canmove _npc) then {
+ //Gets nearest known enemy for putting in combat mode
+ _NearestEnemy = _npc findNearestEnemy _npc;
+ if (!isnull _NearestEnemy ) then {
+ _npc setBehaviour "AWARE";
+ _groupOne = group _npc;
+ _groupOne setFormation "DIAMOND";
+ };
+
+ //Moves to current target Position
+ _grpid = _npc getvariable "UPSMON_grpid";
+ if !(isnil "_grpid") then {
+ _targetpos =(KRON_targetsPos select _grpid);
+ _npc move _targetpos;
+ if (KRON_UPS_Debug>0 ) then { player globalchat format["%1 landed, moving to %2 %3",_grpid,_targetpos,count KRON_targetsPos];};
+ };
+ };
+
+ //Quitamos el id al vehiculo para que pueda ser reutilizado
+ _heli setVariable ["UPSMON_grpid", 0, false];
+ _heli setVariable ["UPSMON_cargo", [], false];
+ _heli setVariable ["UPSMON_landing", false, false];
+};
+
+//Controls that heli not stoped flying
+MON_HeliStuckcontrol = {
+ private["_heli","_landing","_stuckcontrol","_dir1","_targetPos","_lastpos"];
+ _heli = _this select 0;
+
+ _landing = false;
+ _stuckcontrol = false;
+ _targetPos=[0,0,0];
+ _dir1 = 0;
+
+ sleep 0.05;
+ if ( !alive _heli || !canmove _heli ) exitwith{};
+
+ //Checks stuckcontrol not active
+ _stuckcontrol = _heli getVariable "UPSMON_stuckcontrol";
+ if (isnil ("_stuckcontrol")) then {_stuckcontrol=false};
+ if (_stuckcontrol) exitwith {};
+
+ _heli setVariable ["UPSMON_stuckcontrol", true, false];
+ //if (KRON_UPS_Debug>0 ) then {player globalchat format["%1 stuck control begins",typeof _heli];};
+
+ //Stuck loop control
+ while {(alive _heli) && (count crew _heli) > 0 } do {
+ sleep 5;
+ if ((abs(velocity _heli select 0)) <= 5 && (abs(velocity _heli select 1)) <= 5 && (abs(velocity _heli select 2)) <= 5 && ((position _heli) select 2) >= 30) then {
+
+ _landing = _heli getVariable "UPSMON_landing";
+ if (isnil ("_landing")) then {_landing=false;};
+
+ if (!_landing) then {
+ //moving hely for avoiding stuck
+ [_heli,800] spawn MON_domove;
+ if (KRON_UPS_Debug>0 ) then {player GLOBALCHAT format["%1 stucked at %2m height, moving",typeof _heli,(position _heli) select 2];};
+ sleep 25;
+ };
+ };
+ };
+ //if (KRON_UPS_Debug>0 ) then {player globalchat format["%1 exits from stuck control",typeof _heli];};
+ _heli setVariable ["UPSMON_stuckcontrol", false, false];
+};
+
+//Function that checks is gunner is alive, if not moves a cargo
+MON_Gunnercontrol = {
+ private["_vehicle","_gunnercontrol","_hasgunner","_crew","_crew2"];
+ _vehicle = _this select 0;
+
+ _targetPos=[0,0,0];
+ _dir1 = 0;
+ _gunnercontrol = false;
+ _hasgunner = (_vehicle) emptyPositions "Gunner" > 0 || !isnull gunner _vehicle;
+ _crew = [];
+ _crew2 = []; //Without driver and gunner
+
+ sleep 0.05;
+ if ( !alive _vehicle || !canmove _vehicle ) exitwith{};
+
+ //Checks stuckcontrol not active
+ _gunnercontrol = _vehicle getVariable "UPSMON_gunnercontrol";
+ if (isnil ("_gunnercontrol")) then {_gunnercontrol=false};
+ if (_gunnercontrol) exitwith {};
+
+ _vehicle setVariable ["UPSMON_gunnercontrol", true, false];
+
+ _crew = crew _vehicle;
+ //gunner and driver loop control
+ while { alive _vehicle && canmove _vehicle && count _crew > 0} do {
+ _crew = crew _vehicle;
+ {
+ if (!canmove _x || !alive _x) then {_crew = _crew -[_x];};
+ }foreach _crew;
+
+ //Driver control
+ if ((isnull (driver _vehicle) || !alive (driver _vehicle) || !canmove (driver _vehicle)) && count _crew > 0) then {
+ _crew2 = _crew - [gunner _vehicle];
+ if (count _crew2 > 0) then {
+ (_crew2 select (count _crew2 - 1)) spawn MON_movetodriver;
+ };
+ };
+
+ //Gunner control
+ if ( _hasgunner && (isnull (gunner _vehicle) || !alive (gunner _vehicle) || !canmove (gunner _vehicle)) && count _crew > 1) then {
+ _crew2 = _crew - [driver _vehicle];
+ if (count _crew2 > 0) then {
+ (_crew2 select (count _crew2 - 1)) spawn MON_movetogunner;
+ }else{
+ (_crew select 0) spawn MON_movetogunner;
+ };
+ };
+ sleep 20;
+ //if (KRON_UPS_Debug>0 ) then {player globalchat format["%1 crew=%2",typeof _vehicle, count _crew];};
+ };
+ //if (KRON_UPS_Debug>0 ) then {player globalchat format["%1 exits from gunner control",typeof _vehicle];};
+ _vehicle setVariable ["UPSMON_gunnercontrol", false, false];
+};
+
+
+//Mueve a todo el grupo adelante
+MON_move = {
+ private["_npc","_dir1","_targetPos","_dist"];
+ _npc = _this select 0;
+ _dist = _this select 1;
+
+ sleep 0.05;
+ if (!alive _npc || !canmove _npc ) exitwith{};
+
+ _dir1 = getDir _npc;
+ _targetPos = [position _npc,_dir1, _dist] call MON_GetPos2D;
+ _npc move _targetPos;
+};
+
+//Mueve al soldado adelante
+MON_domove = {
+ private["_npc","_dir1","_targetPos","_dist"];
+ _npc = _this select 0;
+ _dist = _this select 1;
+ if ((count _this) > 2) then {_dir1 = _this select 2;} else{_dir1 = getDir _npc;};
+
+ sleep 0.05;
+ if (!alive _npc || !canmove _npc ) exitwith{};
+
+ _targetPos = [position _npc,_dir1, _dist] call MON_GetPos2D;
+ //If position water and not boat not go
+ if (surfaceIsWater _targetPos && !(_npc iskindof "boat" || _npc iskindof "air") ) exitwith {};
+ _npc domove _targetPos;
+};
+
+//Función que detiene al soldado y lo hace esperar x segundos
+MON_doStop = {
+ private["_sleep","_npc"];
+
+ _npc = _this select 0;
+ _sleep = _this select 1;
+
+ sleep 0.05;
+ if (!alive _npc || !canmove _npc ) exitwith{};
+ if ( _sleep == 0 ) then {_sleep = 0.1};
+
+ //Restauramos valores por defecto de movimiento
+ //_npc disableAI "MOVE";
+ dostop _npc ;
+ sleep _sleep;
+ [_npc] spawn MON_cancelstop;
+};
+
+//Función que detiene al soldado y lo hace esperar x segundos
+MON_cancelstop = {
+ private["_npc"];
+ _npc = _this select 0;
+ _npc stop false;
+};
+
+//Make grenade dodge animation
+MON_evadeGrenade = {
+ if (!alive _this || (vehicle _this) != _this || !canmove _this) exitwith{};
+
+ _this playmovenow "AmovPercMstpSlowWrflDnon_ActsPpneMstpSlowWrflDr_GrenadeEscape";
+ sleep 8;
+ if (!alive _this || (vehicle _this) != _this || !canmove _this) exitwith{};
+ _this switchmove "AmovPpneMstpSrasWrflDnon_AmovPpneMevaSlowWrflDr"; //croqueta
+ _this playmovenow "AmovPpneMstpSrasWrflDnon"; //prone
+};
+
+//Realiza la animación de la croqueta
+MON_animCroqueta = {
+ if (!alive _this || (vehicle _this) != _this || !canmove _this || !(_this iskindof "Man")) exitwith{};
+
+ if ((random 1)<=.50) then {
+ _this switchmove "AmovPpneMstpSrasWrflDnon_AmovPpneMevaSlowWrflDl"; //croqueta
+ } else {
+ _this switchmove "AmovPpneMstpSrasWrflDnon_AmovPpneMevaSlowWrflDr"; //croqueta
+ };
+};
+
+//Throw a grenade
+MON_throw_grenade = {
+ private["_target","_npc"];
+ _npc = _this select 0;
+ _target = _this select 1;
+ sleep random 1.5;
+ if (!alive _npc || (vehicle _npc) != _npc || !canmove _npc) exitwith{};
+ [_npc,_target] spawn MON_dowatch;
+ sleep 0.1;
+
+ // R_Functions
+ [_npc] spawn R_ThrowSmoke;
+
+
+ /*
+
+ _npc addMagazine "SmokeShell";
+ _npc selectWeapon "throw";
+ sleep .1;
+ _npc fire ["SmokeShellMuzzle","SmokeShellMuzzle","SmokeShell"];
+ */
+};
+
+//Establece el tipo de posición
+MON_setUnitPos = {
+ private["_pos","_npc"];
+ _npc = _this select 0;
+ _pos = _this select 1;
+
+ sleep 0.5;
+ if (!alive _npc || !canmove _npc || _npc != vehicle _npc || !(_npc iskindof "Man")) exitwith{};
+ _npc setUnitPos _pos;
+ sleep 1;
+};
+//Establece el tipo de posición
+MON_setUnitPosTime = {
+ private["_pos","_npc"];
+ _npc = _this select 0;
+ _pos = _this select 1;
+ _time = _this select 2;
+
+ if (!alive _npc || !canmove _npc) exitwith{};
+ _npc setUnitPos _pos;
+ sleep _time;
+ _npc setUnitPos "AUTO";
+ sleep 1;
+};
+
+// Función para mirar en una dirección
+MON_dowatch = {
+ private["_target","_npc"];
+ _npc = _this select 0;
+ _target = _this select 1;
+
+ if (!alive _npc) exitwith{};
+ _npc dowatch _target;
+ sleep 1;
+};
+
+//Función que mueve al soldado a la posición de conductor
+//Parámeters: [_npc,_vehicle]
+// <- _npc: unit to move to driver pos
+// <- _vehicle
+MON_movetoDriver = {
+ private["_vehicle","_npc"];
+ _npc = _this ;
+ _vehicle = vehicle _npc;
+
+ //Si está muerto
+ if (vehicle _npc == _npc || !alive _npc || !canmove _npc || !(_npc iskindof "Man")) exitwith{};
+
+ if (isnull(driver _vehicle) || !alive(driver _vehicle) || !canmove(driver _vehicle)) then {
+ //if (KRON_UPS_Debug>0) then {player sidechat format["%1: Moving to driver of %2 ",_npc,typeof _vehicle]};
+ _npc action ["getOut", _vehicle];
+ doGetOut _npc;
+ WaitUntil {vehicle _npc==_npc || !alive _npc || !canmove _npc};
+ //Si está muerto
+ if (!alive _npc || !canmove _npc) exitwith{};
+ unassignVehicle _npc;
+ _npc assignasdriver _vehicle;
+ _npc moveindriver _vehicle;
+ };
+};
+
+//Función que mueve al soldado a la posición de conductor
+//Parámeters: [_npc,_vehicle]
+// <- _npc: unit to move to driver pos
+// <- _vehicle
+MON_movetogunner = {
+ private["_vehicle","_npc"];
+ _npc = _this ;
+ _vehicle = vehicle _npc;
+
+ sleep 0.05;
+ //Si está muerto
+ if (vehicle _npc == _npc || !alive _npc || !canmove _npc || !(_npc iskindof "Man")) exitwith{};
+
+ if (isnull(gunner _vehicle) || !alive(gunner _vehicle) || !canmove(gunner _vehicle)) then {
+ if (KRON_UPS_Debug>0) then {player sidechat format["%1: Moving to gunner of %2 ",_npc,typeof _vehicle]};
+ _npc action ["getOut", _vehicle];
+ doGetOut _npc;
+ WaitUntil {vehicle _npc==_npc || !alive _npc || !canmove _npc};
+ //Si está muerto
+ if (!alive _npc || !canmove _npc) exitwith{};
+ unassignVehicle _npc;
+ _npc assignasgunner _vehicle;
+ _npc moveingunner _vehicle;
+ };
+};
+
+//Función que retorna array de arrays con edificios y sus plantas
+//Parámeters: [_object,(_distance,_minfloors)]
+// <- _object: soldier to get near buildings
+// <- _distance: distance to search buildings (optional, 25 by default)
+// <- _minfloors: min floors of building (optional) if not especified min floors is 2
+// -> [_bld,_bldpos]
+MON_GetNearestBuildings = {
+ private ["_object","_altura","_pos","_bld","_bldpos","_posinfo","_minfloors","_OCercanos","_distance","_blds"];
+ _distance = 25;
+ _minfloors = 2;
+ _altura = 0;
+ _blds = [];
+
+ _object = _this select 0;
+ if ((count _this) > 1) then {_distance = _this select 1;};
+ if ((count _this) > 2) then {_minfloors = _this select 2;};
+
+ _pos =0;
+ _bld = objnull;
+ _bldpos =0;
+ _posinfo=[];
+
+ //La altura mínima es 2 porque hay muchos edificios q devuelven 2 de altura pero no se puede entrar en ellos.
+ if ( minfloors == 0 ) then {
+ minfloors = 2;
+ };
+
+ // _posinfo: [0,0]=no house near, [obj,0]=house near, but no roof positions, [obj,pos]=house near, with roof pos
+ //_posinfo= _object call MON_PosInfo;
+ _OCercanos = nearestObjects [_object, ["house","building"] , _distance];
+
+ {
+ _bldpos = _x call MON_BldPos;
+ if ( _bldpos >= _minfloors && damage _x <= 0 ) then { _blds = _blds + [[_x,_bldpos]];};
+ //player sidechat format["%1 cerca de edificio con %2 plantas %5",typeof _object,_bldpos];
+ }foreach _OCercanos;
+
+ _blds;
+};
+
+//Function to move al units of squad to near buildings
+//Parámeters: [_npc,(_patrol,_minfloors)]
+// <- _npc: lider
+// <- _distance: distance to search buildings (optional, 25 by default)
+// <- _patrol: wheter must patrol or not
+MON_moveNearestBuildings = {
+ private ["_npc","_altura","_pos","_bld","_bldpos","_posinfo","_blds","_distance","_cntobjs1","_bldunitin","_blddist","_patrol","_wait","_all"];
+ _distance = 30;
+ _altura = 0;
+ _patrol = false;
+ _wait=60;
+ _all = false;
+
+ _npc = _this select 0;
+ if ((count _this) > 1) then {_distance = _this select 1;};
+ if ((count _this) > 2) then {_patrol = _this select 2;};
+ if ((count _this) > 3) then {_wait = _this select 3;};
+ if ((count _this) > 4) then {_all = _this select 4;};
+
+
+ _pos =0;
+ _bld = objnull;
+ _bldpos =0;
+ _cntobjs1=0;
+ _bldunitsin=[];
+ _units=[];
+ _blds=[];
+
+ //If all soldiers move leader too
+ if (_all) then {
+ _units = (units _npc);
+ }else{
+ _units = (units _npc) - [_npc];
+ };
+
+ sleep 0.05;
+ {
+ if (_x iskindof "Man" && unitReady _x && _x == vehicle _x && canmove _x && alive _x && canstand _x) then {_bldunitsin = _bldunitsin + [_x]}
+ }foreach _units;
+
+ if (count _bldunitsin == 0) exitwith {};
+
+ //Obtenemos los edificios cercanos al lider
+ _blds = [_npc,_distance] call MON_GetNearestBuildings;
+
+ if (count _blds==0) exitwith {};
+
+ //Movemos a la unidades a los edificios cercanos.
+ [_bldunitsin, _blds, _patrol,_wait,_all] spawn MON_moveBuildings;
+
+};
+
+
+//Function to move al units of squad to near buildings
+//Parámeters: [_npc,(_patrol,_minfloors)]
+// <- _units: array of units
+// <- _blds: array of buildingsinfo [_bld,pos]
+// <- _patrol: wheter must patrol or not
+// -> _bldunitsin: array of units moved to builidings
+MON_moveBuildings = {
+ private ["_npc","_altura","_pos","_bld","_bldpos","_posinfo","_blds","_cntobjs1","_bldunitin","_blddist","_i","_patrol","_wait","_all","_minpos","_blds2"];
+ _patrol = false;
+ _wait = 60;
+ _minpos = 2;
+ _all = false;
+
+ _units = _this select 0;
+ _blds = _this select 1;
+ if ((count _this) > 2) then {_patrol = _this select 2;};
+ if ((count _this) > 3) then {_wait = _this select 3;};
+ if ((count _this) > 4) then {_all = _this select 4;};
+ if ((count _this) > 5) then {_minpos = _this select 5;};
+
+ _altura = 0;
+ _pos =0;
+ _bld = objnull;
+ _bldpos =0;
+ _cntobjs1=0;
+ _bldunitsin=[];
+ _movein=[];
+ _blds2 =[];
+
+ //if (KRON_UPS_Debug>0) then {player globalchat format["MON_moveBuildings _units=%1 _blds=%2",count _units, count _blds]; };
+ //if (KRON_UPS_Debug>0) then {diag_log format["MON_moveBuildings _units=%1 _blds=%2",count _units, count _blds];};
+
+ {
+ _bld = _x select 0;
+ _bldpos = _x select 1;
+
+ if ( _bldpos >= _minpos ) then {
+ _cntobjs1 = 1;
+ _movein = [];
+ _i = 0;
+
+ if (_patrol) then {
+ if (_bldpos >= 8) then { _cntobjs1 = 2 };
+ } else {
+ if (_bldpos >= 8) then { _cntobjs1 = round(random 3) + 1;};
+ };
+
+ //Buscamos una unidad cercana para recorrerlo
+ {
+ if (_x iskindof "Man" && unitReady _x && canmove _x && alive _x && vehicle _x == _x && _i < _cntobjs1) then{
+ _movein = _movein + [_x];
+ _i = _i + 1;
+ };
+ } foreach _units;
+
+ //if (KRON_UPS_Debug>0) then {player globalchat format["_units=%3 _bldunitsin %4 _movein=%1",_movein, typeof _bld, count _units, count _bldunitsin];}
+ //if (KRON_UPS_Debug>0) then {diag_log format["_units=%3 _bldunitsin %4 _movein=%1 %2 %5",_movein, typeof _bld, count _units, count _bldunitsin,_x];};
+
+ if (count _movein > 0) then {
+ _bldunitsin = _bldunitsin + _movein;
+ _units = _units - _bldunitsin;
+ if (_patrol) then {
+ {
+ [_x,_bld,_bldpos] spawn MON_patrolBuilding;
+ }foreach _movein;
+ } else {
+ {
+ _altura = floor(random(_bldpos));
+ if (_altura<2) then {_altura = _minpos};
+ [_x,_bld,_altura,_wait] spawn MON_movetoBuilding;
+ }foreach _movein;
+ };
+ };
+ };
+
+ if (count _units == 0) exitwith {};
+ }foreach _blds;
+
+ //If need to enter all units in building and rest try with a superior lvl
+ if ( _all && count _units > 0 ) then {
+ _blds2 = [];
+ _minpos = _minpos + 3;
+ {
+ if ( (_x select 1) >= _minpos) then {
+ _blds2 = _blds2 + [_x];
+ };
+ }foreach _blds;
+
+ //if (KRON_UPS_Debug>0) then {player globalchat format["MON_moveBuildings exit _units=%1 _blds=%2",count _units, count _blds2]; };
+ //if (KRON_UPS_Debug>0) then {diag_log format["MON_moveBuildings exit _units=%1 _blds=%2",count _units, count _blds2];};
+
+ if (count _blds2 > 0 ) then {
+ [_units, _blds2, _patrol,_wait,_all,_minpos] call MON_moveBuildings;
+ };
+ _bldunitsin = _bldunitsin + _units;
+ };
+ _bldunitsin;
+};
+
+//Function to move a unit to a position in a building
+//Parámeters: [_npc,(_patrol,_minfloors)]
+// <- _npc: soldier
+// <- _bld: building
+// <- _altura: building
+// <- _wait: time to wait in position
+MON_movetoBuilding = {
+
+ private ["_npc","_altura","_bld","_wait","_dist","_retry","_soldiers"];
+ _wait = 60;
+ _timeout = 120;
+ _dist = 0;
+ _retry = false;
+
+ _npc = _this select 0;
+ _bld = _this select 1;
+ _altura = _this select 2;
+ if ((count _this) > 3) then {_wait = _this select 3;};
+
+ //Si está en un vehiculo ignoramos la orden
+ if (vehicle _npc != _npc || !alive _npc || !canmove _npc) exitwith{};
+
+ //Si ya está en un edificio ignoramos la orden
+ _inbuilding = _npc getvariable ("UPSMON_inbuilding");
+ if ( isNil("_inbuilding") ) then {_inbuilding = false;};
+ if (_inbuilding) exitwith{};
+
+ _npc domove (_bld buildingPos _altura);
+ _npc setVariable ["UPSMON_inbuilding", _inbuilding, false];
+ _npc setvariable ["UPSMON_buildingpos", nil, false];
+ _timeout = time + _timeout;
+
+ //if (KRON_UPS_Debug>0) then {player globalchat format["%4|_bld=%1 | %2 | %3",typeof _bld, _npc, typeof _npc ,_altura];};
+ //if (KRON_UPS_Debug>0) then {diag_log format["%4|_bld=%1 | %2 | %3",typeof _bld, _npc, typeof _npc ,_altura];};
+
+ waitUntil {moveToCompleted _npc || moveToFailed _npc || !alive _npc || !canmove _npc || _timeout < time};
+
+ if (moveToCompleted _npc && alive _npc && canmove _npc) then {
+ _dist = [position _npc,_bld buildingPos _altura] call KRON_distancePosSqr;
+
+ _soldiers = [_npc,1] call MON_nearestSoldiers;
+
+ //If more soldiers in same floor see to keep or goout.
+ if (count _soldiers > 0) then {
+ {
+ if (!isnil{_x getvariable ("UPSMON_buildingpos")}) exitwith {_retry = true};
+ }foreach _soldiers;
+ };
+
+ if (!_retry && _dist <= 2) then {
+ _npc setvariable ["UPSMON_buildingpos", _altura, false];
+ sleep 0.1;
+ [_npc,_wait] spawn MON_dostop;
+ };
+ };
+
+ if (!alive _npc || !canmove _npc) exitwith{};
+ _npc setVariable ["UPSMON_inbuilding", false, false];
+
+
+ //Down one position.
+ if (_retry ) then {
+ _altura = _altura + 1;
+ _bldpos = _bld call MON_BldPos;
+
+ if (_altura <= _bldpos) then {
+ [_npc,_bld,_altura] spawn MON_movetoBuilding;
+ };
+ };
+};
+
+
+//Función para mover a una unidad al edificio más cercano
+//Parámeters: [_npc,_bld,(_BldPos)]
+// <- _npc: soldier to move
+// <- _bld:building to patrol
+// <- _BldPos: positions of builiding (optional)
+MON_patrolBuilding = {
+ private ["_npc","_bld","_bldpos","_posinfo","_minfloors","_OCercanos","_distance","_timeout","_pos","_inbuilding","_rnd","_NearestEnemy","_patrolto","_time"];
+ _bldpos = 0;
+ _pos = 0;
+ _timeout = 0;
+ _i = 1;
+ _inbuilding = false;
+ _rnd = 0;
+ _patrolto = 0;
+ _NearestEnemy = objnull;
+ _time = 0;
+
+ _npc = _this select 0;
+ _bld = _this select 1;
+ if ((count _this) > 2) then {_bldpos = _this select 2;} else {_bldpos = _x call MON_BldPos;};
+
+ if (_i > _bldpos) then {_i = _bldpos};
+ _patrolto = round ( 10 + random (_bldpos) );
+
+ if (_patrolto > _bldpos) then {_patrolto = _bldpos};
+
+ //Si ya está muerto o no se puede mover se ignora
+ if (!(_npc iskindof "Man") || !alive _npc || !canmove _npc) exitwith{};
+
+ //Si ya está en un edificio ignoramos la orden
+ _inbuilding = _npc getvariable ("UPSMON_inbuilding");
+ if ( isNil("_inbuilding") ) then {_inbuilding = false;};
+
+ //Asignamos el vehiculo a a la escuadra si contiene las posiciones justas
+ if (!_inbuilding) then {
+ _inbuilding = true;
+ _npc setVariable ["UPSMON_inbuilding", _inbuilding, false];
+ [_npc,"Middle"] spawn MON_setUnitPos;
+ _timeout = time + 60;
+
+ //player sidechat format["%1 patrol building %2 from %3 to %4",typeof _npc, typeof _bld,_i, _patrolto];
+
+ while { _i <= _patrolto && alive _npc && canmove _npc} do{
+
+ _npc domove (_bld buildingPos _i);
+
+
+ _time = time + 30;
+ waitUntil {moveToCompleted _npc or moveToFailed _npc or !alive _npc or _time < time};
+
+ if (moveToCompleted _npc) then {
+ _timeout = time + 60;
+ _i = _i + 1;
+ } else {
+ if (moveToFailed _npc || !canmove _npc || !alive _npc || _timeout < time) then {
+ //player sidechat format["%1 Cancelando patrulla en %2",_npc, typeof _bld];
+ _i = _patrolto + 1;
+ };
+ };
+ sleep 0.05;
+ };
+
+ //Si está en un vehiculo ignoramos la orden
+ if (!alive _npc || !canmove _npc) exitwith{};
+
+ //Volvemos con el lider
+ _npc domove (position leader _npc);
+
+ //Marcamos que ya hemos finalizado
+ sleep 60; //Damos tiempo para salir del edificio
+ _npc setVariable ["UPSMON_inbuilding", false, false];
+ };
+};
+
+//Function to put a mine
+//Parámeters: [_npc,(_position)]
+// <- _npc: leader
+// <- _position:location for mine (optional)
+MON_CreateMine = {
+ private ["_npc","_rnd","_soldier","_mine","_dir","_position"];
+ _soldier = _this select 0;
+ if ((count _this) > 1) then {_position = _this select 1;} else {_position = [0,0];};
+
+ _mine = objnull;
+ _rnd = 0;
+ _dir = 0;
+ _npc = leader _soldier;
+
+ if (_soldier == _npc ) then {
+ _rnd = round (random ( count ((units _npc))));
+ _soldier = (units _npc) select _rnd;
+ };
+
+ //leader only control not work
+ //Si está en un vehiculo ignoramos la orden
+ if (!(_soldier iskindof "Man" ) || _soldier == _npc || _soldier!=vehicle _soldier || !alive _soldier || !canmove _soldier) exitwith {false};
+
+ //Animación para montar el arma
+ if ((count _this) > 1) then {
+ [_soldier,_position] spawn MON_doCreateMine;
+ }else{
+ [_soldier] spawn MON_doCreateMine;
+ };
+ true;
+};
+
+MON_doCreateMine = {
+ private ["_npc","_rnd","_soldier","_mine","_dir","_position"];
+ _position = [0,0];
+
+ _soldier = _this select 0;
+ if ((count _this) > 1) then {_position = _this select 1;};
+
+ //If not is Man or dead exit
+ if (!(_x iskindof "Man" ) || _soldier!=vehicle _soldier || !alive _soldier || !canmove _soldier) exitwith {false};
+
+ _soldier stop false;
+ [_soldier,"AUTO"] spawn MON_setUnitPos;
+
+ if ((count _this) > 1) then {
+ _soldier domove _position;
+ waituntil {unitReady _soldier || moveToCompleted _soldier || moveToFailed _soldier || !alive _soldier || !canmove _soldier};
+ };
+
+ if (moveToFailed _soldier || !alive _soldier || _soldier != vehicle _soldier || !canmove _soldier) exitwith {false};
+
+ //Crouche
+ _soldier playMovenow "ainvpknlmstpslaywrfldnon_1";
+ sleep 1;
+
+ if (!alive _soldier || !canmove _soldier) exitwith{};
+ _dir = getdir _soldier;
+ _position = [position _soldier,_dir, 0.5] call MON_GetPos2D;
+ _mine = createMine ["MineMine", _position , [], 0];
+
+ //Prepare mine
+ _soldier playMoveNow "AinvPknlMstpSlayWrflDnon_medic";
+ sleep 5;
+
+ //Return to formation
+ _soldier domove position ( leader _soldier );
+};
+
+//Function to surrender AI soldier
+//Parámeters: [_npc]
+// <- _npc: soldier to surrender
+MON_surrender = {
+ private ["_npc","_vehicle"];
+ _npc = _this select 0;
+
+ if (!alive _npc || !canmove _npc) exitwith {};
+
+ _npc addrating -1000;
+ _npc setcaptive true;
+ sleep 0.5;
+
+ _vehicle = vehicle _npc;
+
+ if ( _npc != _vehicle || !(_npc iskindof "Man" )) then {
+ _vehicle setcaptive true;
+
+ if ( "Air" countType [_vehicle]>0) then {
+
+ //Si acaba de entrar en el heli se define punto de aterrizaje
+ if (_npc == driver _vehicle ) then {
+ [_vehicle] call MON_landHely;
+ };
+ } else {
+ _npc spawn MON_doGetOut;
+ };
+
+ //Esperamos a que esté parado
+ waituntil {_npc == vehicle _npc || !alive _npc};
+ };
+
+ if (!alive _npc || !canmove _npc) exitwith {};
+ _npc setcaptive true;
+ _npc stop true;
+
+ [_npc,"UP"] call MON_setUnitPos;
+ removeAllWeapons _npc;
+ sleep 1;
+ _npc playMoveNow "AmovPercMstpSnonWnonDnon_AmovPercMstpSsurWnonDnon";
+
+};
+
+//Returns leader if was dead
+MON_getleader = {
+ private ["_npc","_members"];
+ _npc = _this select 0;
+ _members = _this select 1;
+
+ sleep 0.05;
+ if (!alive _npc ) then {
+ //takes commder a soldier not in vehicle
+ {
+ if (alive _x && canmove _x && _x == vehicle _x && !isplayer _x) exitwith {
+ _npc = _x;
+ };
+ } foreach _members;
+
+ //if no soldier out of vehicle takes any
+ if (!alive _npc ) then {
+ {
+ if (alive _x && canmove _x) exitwith {_npc = _x;};
+ } foreach _members;
+ };
+
+ //If not alive or already leader or is player exits
+ if (isPlayer _npc || !alive _npc || !canmove _npc ) then
+ {
+ {
+ if (alive _x && !isPlayer _x) exitwith {_npc = [_npc, _members] call MON_getleader;};
+ }foreach _members;
+ };
+
+ if (leader _npc == _npc) exitwith {_npc};
+
+ //Set new _npc as leader
+ group _npc selectLeader _npc;
+ };
+ _npc // return
+};
+
+MON_ACE_Watersurvival = {
+ private ["_lb","_pos","_ejector","_in","_grpid","_rnd"];
+ _in =[];
+ _rnd = 0;
+ _ejector = _this select 0;
+ //if (KRON_UPS_Debug>0) then {player globalchat format["MON_ACE_Watersurvival %1",typeof _ejector]};
+
+ waitUntil { !canmove _ejector || !alive _ejector || isnull (_ejector) || ((getPos vehicle _ejector) select 2 < 1) };
+ if ( !surfaceIsWater (getpos _ejector) || !canmove _ejector || !alive _ejector || isnull (_ejector) ) exitWith {};
+
+ //Miramos de entrar en un barco cercano
+ _grpid = _ejector getvariable "UPSMON_grpid";
+ if (isnil "_grpid") then {_grpid = 0};
+ _in = [_grpid,_ejector,30] call MON_GetIn_NearestBoat;
+
+ //If no boat near creates a zodiac
+ if (count _in <= 0) then {
+ if (!(isNil "ace_main")) then {
+ _lb = "ACE_Lifeboat_US" createVehicle getposASL _ejector;
+ }else{
+ _lb = "Zodiac" createVehicle getposASL _ejector;
+ };
+ _pos = getposASL _ejector;
+ _pos set [0, ((_pos select 0) + 2)];
+ _pos set [1, ((_pos select 1) + 2)];
+ //_pos set [2, 0];
+ _lb setPos _pos;
+
+ //Moves in boat
+ if !(isPlayer _ejector) then {
+ [_ejector,_lb,0] call MON_assignasdriver;
+ };
+ };
+
+ //Wait until reached eart
+ waitUntil { !canmove _ejector || !alive _ejector || isnull (_ejector) || !surfaceIsWater (position _ejector) };
+ if (KRON_UPS_Debug>0) then {player globalchat format["Exit from boat%1",typeof _lb]};
+ _ejector spawn MON_dogetout;
+};
+
+//=============================================================Changed by Shay_gman========================================================================================
+//Function to do artillery
+//Parámeters: [_position,(_rounds,_area,_cadence,_mincadence)]
+// <- _arti:
+// <- _position: center of fire create artillery
+// <- _rounds: rounds of fire
+// <- _area: Dispersion area
+// <- _maxcadence: Cadence of fire, is random between min
+// <- _mincadence: Minimum cadence
+// <- _bullet: class of bullet to fire, default ARTY_Sh_81_HE
+
+MON_artillery_dofire = {
+ if (!isserver) exitWith {};
+ private ["_smoke1","_i","_area","_position","_maxcadence","_mincadence","_sleep","_rounds","_arti","_timeout","_salvo_break"];
+ _area = 150;
+ _maxcadence = 10;
+ _mincadence = 5;
+ _sleep = 0;
+ _rounds = 5;
+ _bullet = "ARTY_Sh_81_HE";
+ _position =[];
+ _salvo_break = 10;
+
+ _arti = _this select 0;
+ _position = _this select 1;
+ if ((count _this) > 2) then {_rounds = _this select 2;};
+ if ((count _this) > 3) then {_area = _this select 3;};
+ if ((count _this) > 4) then {_maxcadence = _this select 4;};
+ if ((count _this) > 5) then {_mincadence = _this select 5;};
+ if ((count _this) > 6) then {_bullet = _this select 6;};
+ if ((count _this) > 7) then {_salvo_break = _this select 7;};
+
+ // set reload time for 1000 make do not fire untill this salvo finish
+ _timeout = time + 1000;
+ _arti setVariable ["timeout", _timeout, false];
+
+ _area2 = _area * 2;
+ if (KRON_UPS_Debug>0) then { player globalchat format["artillery doing fire on %1",_position] };
+ for [{_i=0}, {_i<_rounds}, {_i=_i+1}] do
+ {
+ _arti fire (weapons _arti select 0);
+ _sleep = random _maxcadence;
+ if (_sleep < _mincadence) then {_sleep = _mincadence};
+ sleep _sleep;
+ _smoke1 = _bullet createVehicle [(_position select 0)+ random _area2 - _area, (_position select 1)+ random _area2 - _area, (_position select 2)+ 100];
+ _arti setVehicleAmmo 1;
+ };
+
+ // set reload time for next salvo
+ _timeout = time + _salvo_break;
+ _arti setVariable ["timeout", _timeout, false];
+ };
+
+//Función que devuelve un array con los vehiculos terrestres más cercanos
+//Parámeters: [_npc,_distance]
+// <- _npc: object for position search
+// <- _distance: max distance from npc
+// -> _vehicles: array of vehicles
+MON_deadbodies = {
+ private["_vehicles","_npc","_bodies","_OCercanos","_distance","_side"];
+
+ _npc = _this select 0;
+ _distance = _this select 1;
+ //_side = _this select 2;
+
+ _OCercanos = [];
+ _bodies = [];
+
+ //Buscamos objetos cercanos
+ _OCercanos = nearestObjects [_npc, ["Man"] , _distance];
+
+ {
+ if (_npc knowsabout _x >0.5 && (!canmove _x || !alive _x)) then { _bodies = _bodies + [_x];};
+ }foreach _OCercanos;
+
+ _bodies;
+ };
+
+//Función que devuelve un array con los vehiculos terrestres más cercanos
+//Parámeters: [_npc,_distance]
+// <- _npc: object for position search
+// <- _distance: max distance from npc
+// -> _vehicles: array of vehicles
+MON_nearestSoldiers = {
+ private["_vehicles","_npc","_soldiers","_OCercanos","_distance","_side"];
+
+ _npc = _this select 0;
+ _distance = _this select 1;
+
+ if (isnull _npc) exitwith {};
+
+ _OCercanos = [];
+ _soldiers = [];
+
+ //Buscamos objetos cercanos
+ _OCercanos = nearestObjects [_npc, ["Man"] , _distance];
+ _OCercanos = _OCercanos - [_npc];
+
+ {
+ if ( alive _x && canmove _x ) then { _soldiers = _soldiers + [_x];};
+ }foreach _OCercanos;
+
+ _soldiers;
+};
\ No newline at end of file |