i will try the code....
private["_ship", "_trigger", "_planes", "_msg", "_dist", "_target", "_atarget", "_wvdir", "_aweapon", "_diff"];
_ship = _this select 0;
_maxrange = 5000;
_trigger = createTrigger ["EmptyDetector", getPos _ship];
_trigger setTriggerActivation ["ANY", "PRESENT", false];
_trigger setTriggerArea [_maxrange, _maxrange, 0, false];
_trigger setTriggerType "NONE";
_trigger setTriggerStatements ["this", "", ""];
_trigger setTriggerTimeout [0, 0, 0, false ];
Sleep 1;
while {true} do
{
_trigger setPos getPos _ship;
_planes = [];
_target = [];
{
if (_x isKindOf "Air") then
{
if ((isEngineOn _x) && (side _x == east)) then
{
_planes = _planes + [_x];
_target = _target + [_x];
};
};
} forEach list _trigger;
if (count _planes > 0) then
{
// Angle to target (between ship and target), between -180 and 180 degrees.
_atarget = ((getPos _target select 0)-(getPos _ship select 0)) atan2 ((getPos _target select 1)-(getPos _ship select 1));
_wvdir = _ship weaponDirection "5inch"; // If 5inch is any weapon ...
// Angle of the weapon, between -180 and 180 degrees.
_aweapon = (_wvdir select 0) atan2 (_wvdir select 1);
_diff = (_atarget select 0)-(_aweapon select 0) atan2 (_atarget select 1) - (_aweapon select 1);
_msg = "";
{
_dist = _x distance _ship;
_times = _dist / 790;
_msg = _msg + format["Target:%1 - Range: %2\n", _x, _times];
} forEach _planes;
hint format ["%1",_msg]; // show the distances and targets values
};
Sleep 0.5;
};
[\code]