_K = _this select 0;
_Z = _this select 1;
_X = getPos _Z select 0;
_Y = getPos _Z select 1;
_K doWatch [_X,_Y,5000] ;
_A =_K Ammo "M119";
~5
_K fire "M119";
@ _A > _K Ammo "M119";
~2
_N = nearestObject [_K,"HeatM119"];
_X = _X+((random 80)-40) ;
_Y = _Y+((random 80)-40) ;
_H = "HeliHEmpty" createVehicle [_X,_Y] ;
~1
_H say "Ari";
~1
_N setPos [_X,_Y,0];
"SH_125_HE" createVehicle [_X,_Y,0] ;
deleteVehicle _H;
exit