/*
// ********************************************
// Script File for ArmA2
// Made by: Cyborg11
// Version: 1.0  -  12.08.2009
// Used Elements from the Missile spoof script by Franze
// Scriptversion for Flares
// To use write in the Init from your planes or helicopters:
// this addeventhandler ["IncomingMissile",{_this execVM "flares.sqf"}];
// ********************************************
*/

private ["_plane","_missile","_planetype","_planepos","_missilepos","_oclock","_distance","_rand","_chance1","_chance2","_count"];
// Variables
_plane = _this select 0;
_planetype = typeOf _plane;
_missile = _this select 1;
_rand = 20;
_chance1 = 3;
_chance2 = 2;
_count = 0;
flarecount = 0;
If (!(alive _plane)) exitWith{};

// Flarecount
switch (_planetype) do {
    default {flarecount = 12};
    };

// Coordinates
_planepos = getpos _plane;
_missilepos = getpos _missile;
_xplane = _planepos select 0;
_yplane = _planepos select 1;
_zplane = _planepos select 2;
_xmissile = _missilepos select 0;
_ymissile = _missilepos select 1;
_zmissile = _missilepos select 2;
_dirplane = direction _plane;

_x = (_xplane - _xmissile);
_y = (_yplane - _ymissile);
_distance = _missile distance _plane;

If ((_x>0) and (_y>0)) then {_theta = atan (abs _x / abs _y) +180};
If ((_x>0) and (_y<0)) then {_theta = atan (abs _y / abs _x) +270};
If ((_x<0) and (_y<0)) then {_theta = atan (abs _x / abs _y) +0};
If ((_x<0) and (_y>0)) then {_theta = atan (abs _y / abs _x) +90};
_theta = (360 + (_dirhelo1 - _theta))Mod 360

If (_theta > 15 and _theta < 45) then {_oclock = 11};
If (_theta > 45 and _theta < 75) then {_oclock = 10};
If (_theta > 75 and _theta < 105) then {_oclock = 9};
If (_theta > 105 and _theta < 135) then {_oclock = 8};
If (_theta > 135 and _theta < 165) then {_oclock = 7};
If (_theta > 165 and _theta < 195) then {_oclock = 6};
If (_theta > 195 and _theta < 225) then {_oclock = 5};
If (_theta > 225 and _theta < 255) then {_oclock = 4};
If (_theta > 255 and _theta < 285) then {_oclock = 3};
If (_theta > 285 and _theta < 315) then {_oclock = 2};
If (_theta > 315 and _theta < 345) then {_oclock = 1};
If (_theta > 345 and _theta < 360) then {_oclock = 12};
If (_theta > 0 and _theta < 15) then {_oclock = 12};

If (_z2 > 50) then {
    _plane vehiclechat format ["%1 Missile %2 OClock High %3 Meters",_missile,_oclock,_distance];
    _plane vehicleradio "fz_plane_bp_miswarn";
    } else {
    _plane vehiclechat format ["%1 Missile %2 OClock Low %3 Meters",_weaponname,_oclock,_distance];
    _plane vehicleradio "fz_plane_bp_miswarn";
};

If (!(local _plane) AND flarecount >= 0) then {
    drop["\Ca\Data\kouleSvetlo","","Billboard",0.05,10,[-1.5,1,-1],[2-random 8,0,-10],0,2.8,1,0.1,[3],[[1,1,0.3,1]],[0,1],0.1,0,"\Flares\smokes.sqs","",_plane];
    _plane say "fzf18flarelaunch";
    sleep 0.1;
    drop["\Ca\Data\kouleSvetlo","","Billboard",0.05,10,[1.5,1,-1],[2+random 8,0,-10],0,2.8,1,0.1,[3],[[1,1,0.3,1]],[0,1],0.1,0,"\Flares\smokes.sqs","",_plane];
    _plane say "fzf18flarelaunch";
    sleep 1;
    drop["\Ca\Data\kouleSvetlo","","Billboard",0.05,10,[-1.5,1,-1],[2-random 8,0,-10],0,2.8,1,0.1,[3],[[1,1,0.3,1]],[0,1],0.1,0,"\Flares\smokes.sqs","",_plane];
    _plane say "fzf18flarelaunch";
    sleep 0.1;
    drop["\Ca\Data\kouleSvetlo","","Billboard",0.05,10,[1.5,1,-1],[2+random 8,0,-10],0,2.8,1,0.1,[3],[[1,1,0.3,1]],[0,1],0.1,0,"\Flares\smokes.sqs","",_plane];
    _plane say "fzf18flarelaunch";
    flarecount = flarecount - 4;
} else {
    _plane sidechat ["No more flares!"];
    };

WaitUntil {(_missile distance _plane) < 100};
for [{_count=0},{_count<=7},{_count=_count+1}] do {
_missile setdir (direction _missile - _chance1 - random _chance2);
};