/* Исполнять только на клиенте */

_type = _this select 0; //"R_230mm_HE", "I_Plane_Fighter_03_AA_F", "I_Truck_02_covered_F"
_count = _this select 1;
_distance = _this select 2;
_height = _this select 3;

_playerPos = getPosATL player;

_mine = ObjNull;
_mines = [];

if (_count == 0) exitWith {};

for [{_i = 0}, {_i < _count}, {_i = _i + 1}] do  
{
  _pos = [_playerPos, _distance, [0, 360]] call SHK_Pos;

  _posX = _pos select 0;
  _posY = _pos select 1;
  _posZ = _pos select 2;
   
  _mine = _type createVehicle [_posX,_posY,_posZ+_height];
  _mine setPosATL [_posX,_posY,_posZ+_height];
  _mines = _mines + [_mine];
};

_mine = _mines select 0;

_dist = _mine distance laserTarget player;
_mod = 200; // speed of the missles
_trg = ObjNull;
_time = round(_dist / _mod);

if (canMove _mine) then  
{
  { _x engineOn TRUE } forEach _mines;
};

if (!isNull laserTarget player) then {

  _time spawn  
  {
  for [{_i = _this}, {_i > 0}, {_i = _i - 1}] do
  {
  if (!isNull laserTarget player) then {
  [[player, format ["Splash in %1...", _i]], "FS_GlobalSideChat"] spawn BIS_fnc_MP;
  sleep 1;
  };
  };
  };
  while {alive _mine} do  
  {
  if (!isNull (laserTarget player)) then {
  _trg = getPosATL (laserTarget player);
  };
  {
  if (alive _x) then {
  _pos = getPosATL _x;
  _dir = _pos vectorFromTo _trg;
   
  if (_count > 1) then
  {
  _spray = _count / 150;
  _dir set [0, (_dir select 0) + random(_spray) - _spray / 2];
  _dir set [1, (_dir select 1) + random(_spray) - _spray / 2];
  _dir set [2, (_dir select 2) + random(_spray) - _spray / 2];
  };
   
  _x setVelocity [(_dir select 0) * _mod, (_dir select 1) * _mod, (_dir select 2) * _mod];
  };
  }
  forEach _mines;
  sleep 0.1;
  };
}  
else {
  { deleteVehicle _x } forEach _mines;
};