Hi!
Lately I have been looking for ways to get an ai helicopter sitting on a helipad to patrol a few waypoints before it comes back and land on the helipad. Not only that but I want it to be in a cycle so it will repeat this after maybe 1 minute on the ground.
Well, I found "Mando_heliroute_arma" and that script had all the things i could wish for. In the mission editor there is a heli, you as a passanger and 3 game logics named "dest1,dest2 and dest3".
init.sqf
titleText["Some soldiers are waiting for us inside Bagango stronghold", "PLAIN DOWN"];
_scr = [heli1,[getPos dest1],50, true]execVM"mando_heliroute_arma.sqf";
Sleep 1;
waitUntil {heli1 getVariable "mando_heliroute" != "busy"};
{_x assignAsCargo heli1} forEach units group soldier1;
units group soldier1 orderGetIn true;
waitUntil {{_x in heli1} count units group soldier1 == count units group soldier1};
titleText["We'll bring them to Vallejos's hotel", "PLAIN DOWN"];
_scr = [heli1,[getPos dest2],50, true]execVM"mando_heliroute_arma.sqf";
Sleep 2;
waitUntil {heli1 getVariable "mando_heliroute" != "busy"};
{_x action ["GETOUT", heli1];unassignVehicle _x} forEach units group soldier1;
Sleep 4;
titleText["And now a long travel to Rahmadi", "PLAIN DOWN"];
_scr = [heli1,[getPos dest3],50, true]execVM"mando_heliroute_arma.sqf";
Sleep 2;
waitUntil {heli1 getVariable "mando_heliroute" != "busy"};
heli1 setVariable ["mando_heliroute", "free"];
player action ["GETOUT", heli1];
titleText["T H E E N D ", "PLAIN"];
mando_heliroute_arma.sqf
/*********************************
mando_heliroute_arma.sqf v1.2
August 2007 Mandoble
Moves a chopper accurately to the desired destination point following the indicated route and land it if so indicated.
Execute it there were the chopper is local.
Sintax:
[chopper, route positions array, flying height, landing true/fasle] execVM "mando_heliroute_arma.sqf"
Route positions array is an array of at least one position that defines the route the chopper will follow.
Once it reaches the final destination it will land if landing parameter is set to true.
When the route is completed, the chopper will set its internal mando_heliroute variable to "waiting".
While the chopper is executing the route that variable is set to "busy" and, if the chopper is damaged or the pilot is killed, the variable is set to "damaged".
If you want to check when the route has been completed, you may do it this way:
Sleep 2;
waitUntil {heli1 getVariable "mando_heliroute" != "busy"};
if (heli1 getVariable "mando_heliroute" == "damaged") then
{
hint "Chopper damaged or pilot dead, not available for more routes.";
}
else
{
if (heli1 getVariable "mando_heliroute" == "waiting") then
{
hint "Chopper waiting for a new route.";
};
};
**********************************/
private["_heli", "_route", "_endpos", "_height", "_landing ", "_pilot", "_i", "_j", "_pos", "_dist", "_distold", "_angh", "_dir", "_accel", "_speed", "_steps", "_inipos", "_offset"];
_heli = _this select 0;
_route = _this select 1;
_height = _this select 2;
_landing = _this select 3;
if (!local _heli) exitWith {hint "mando_heliroute: vehicle must be local";};
// First of all chopper gets its indicated flying height for the route
_pilot = driver _heli;
_heli setVariable ["mando_heliroute", "busy"];
_heli flyinHeight _height;
_pilot doMove [getPos _heli select 0, getPos _heli select 1, _height];
Sleep 2;
while {(!unitReady _pilot)&&(alive _pilot)&&(damage _heli < 0.5)} do
{
Sleep 2;
};
if (!(alive _pilot) || (damage _heli >= 0.5)) exitWith {_heli setVariable ["mando_heliroute", "damaged"];};
// The chopper moves through the route positions
for [{_j = 0},{_j < count _route},{_j = _j + 1}] do
{
_endpos = _route select _j;
_inipos = getPos _heli;
_dist = sqrt(((_endpos select 0) - (_inipos select 0))^2 + ((_endpos select 1) - (_inipos select 1))^2);
_steps = _dist / 3000;
_steps = _steps - (_steps % 1);
_ang = ((_endpos select 0) - (_inipos select 0)) atan2 ((_endpos select 1) - (_inipos select 1));
// Each route position is reached in steps no larger than 3Km
for [{_i = 0},{_i < _steps},{_i = _i + 1}] do
{
_pos = [(_inipos select 0) + sin(_ang)*3000*_i,(_inipos select 1) + cos(_ang)*3000*_i];
_pilot doMove _pos;
Sleep 2;
if (_i < (_steps - 1)) then
{
_offset = 5;
}
else
{
_offset = 1;
};
while {((sqrt(((_pos select 0) - (getPos _heli select 0))^2 + ((_pos select 1) - (getPos _heli select 1))^2))>500)&&(alive _pilot)&&(damage _heli < 0.5)} do
{
Sleep 2;
};
if (!(alive _pilot) || (damage _heli >= 0.5)) exitWith {};
};
if (!(alive _pilot) || (damage _heli >= 0.5)) exitWith {};
_pilot doMove _endpos;
Sleep 2;
while {((!unitReady _pilot) || (abs(speed _heli) > 1))&&(alive _pilot)&&(damage _heli < 0.5)} do
{
Sleep 0.2;
};
if (!(alive _pilot) || (damage _heli >= 0.5)) exitWith {};
};
while {(abs(vectorUp _heli select 2) < 0.996)&&(alive _pilot)&&(damage _heli < 0.5)} do
{
Sleep 0.2;
};
if (!(alive _pilot) || (damage _heli >= 0.5)) exitWith {_heli setVariable ["mando_heliroute", "damaged"];};
_pilot doMove [getPos _heli select 0, getPos _heli select 1];
// If chopper is not closer than 2m to final route point, it aligns with it and moves towards it
_dist = sqrt(((_endpos select 0) - (getPos _heli select 0))^2 + ((_endpos select 1) - (getPos _heli select 1))^2);
_dir = getDir _heli;
if (_dist > 2) then
{
_pos = _heli worldToModel _endpos;
_angh = (_pos select 0) atan2 (_pos select 1);
_dist = sqrt((_pos select 0)^2+(_pos select 1)^2);
for [{_i = 0},{_i < abs(_angh)},{_i = _i + 1}] do
{
if (!(alive _pilot) || (damage _heli >= 0.5)) exitWith {};
_heli setDir ((getDir _heli)+abs(_angh)/_angh);
_heli setVelocity [0,0,0];
Sleep 0.05;
};
};
_heli setDir (_dir + _angh);
_dir = getDir _heli;
_distold = 99999;
_dist = 99998;
_speed = 0;
while {(_distold > _dist) && (alive _pilot) && (damage _heli < 0.5)} do
{
if (_speed < 7) then
{
_speed = _speed + 0.1;
};
_distold = _dist;
_dist = sqrt(((_endpos select 0) - (getPos _heli select 0))^2 + ((_endpos select 1) - (getPos _heli select 1))^2);
_heli setVelocity [sin(_dir)*_speed, cos(_dir)*_speed, 0];
_heli setDir _dir;
Sleep 0.005;
};
if (!(alive _pilot) || (damage _heli >= 0.5)) exitWith {_heli setVariable ["mando_heliroute", "damaged"];};
// Do we need to land?
if (_landing) then
{
while {(isEngineOn _heli) && (alive _pilot) && (damage _heli < 0.5)} do
{
if ((getPos _heli select 2) > 1) then
{
_heli setDir _dir;
if ((getPos _heli select 2) > 5) then
{
_heli setVelocity [0,0,-7];
}
else
{
_heli setVelocity [0,0,7*(getPos _heli select 2)/-5 min -1];
};
}
else
{
_pilot action ["ENGINEOFF", _heli];
_heli setVelocity [0,0,0];
};
Sleep 0.01;
};
for [{_i = 0},{_i < 100},{_i = _i + 1}] do
{
_heli setVelocity [0,0,-0.1];
Sleep 0.05;
};
if (!(alive _pilot) || (damage _heli >= 0.5)) exitWith {};
_heli setVariable ["mando_heliroute", "waiting"];
while {(alive _pilot) && (damage _heli < 0.5) && ((_heli getVariable "mando_heliroute") == "waiting")} do
{
_pilot action ["ENGINEOFF", _heli];
Sleep 0.01;
};
}
else
{
_heli setVariable ["mando_heliroute", "waiting"];
};
if (!(alive _pilot) || (damage _heli >= 0.5)) exitWith {_heli setVariable ["mando_heliroute", "damaged"];};
Thanks,
Edit:
I managed to get the heli to move between those waypoints and land again. But I am not looking at how to get the heli to seek and destroy.
// myinit.sqf
_scr = [heli1,[getPos dest1],75, false]execVM"mando_heliroute_arma.sqf";
_scr = [heli1,[getPos dest2],75, false]execVM"mando_heliroute_arma.sqf";
_scr = [heli1,[getPos dest3],75, true]execVM"mando_heliroute_arma.sqf";
heli1 setVariable ["mando_heliroute", "free"];
Edit: I managed to get it to work by using mandoble's heli attack script. And now the missions seems to run very nice with a randomly patroling heli.
Topic: Heli Patroling - Solved (Read 1264 times)
