//BEGIN vrs_AI.sqf
//Original script by KaRRiLLioN modified by norrin for AI units 7th Feb 2007
//IMPORTANT: ADD A GAMELOGIC NAMED Server
//to the mission to prevent multispawn

private ["_vcl","_respawndelay","_vclemptydelay","_dir","_pos","_type","_unit","_run","_wait","_delay"];

if (!local Server) exitWith {};

_vcl = _this;
//specify the respawn wait times for empty vehicles and destroyed vehicles in the following 2 lines
_vclemptydelay = 10;
_respawndelay = 5;
_dir = Getdir _vcl;
_pos = Getpos _vcl;
_type = typeOf _vcl;
_unit = driver _vcl;

_run = TRUE;
sleep 5;



for [{}, {_run}, {_run}] do
{
while {_vcl distance _pos < 5 && canMove _vcl} do
 {
sleep 1;
 };
while {canMove _vcl && count crew _vcl > 0 && ({damage _x}forEach crew _vcl)!= 1} do  
 {
_wait = Time + _vclemptydelay;
sleep 1;
 };
while {canMove _vcl && count crew _vcl < 1 && Time < _wait} do
 {
sleep 1;
 };
while {canMove _vcl && {damage _x} forEach crew _vcl >= 1 && Time < _wait} do
 {
sleep 1;
 };
_delay = Time + _respawndelay;
while {!canMove _vcl && Time < _delay} do
 {
sleep 1;
 };
if (count crew _vcl < 1) then
 {
 deleteVehicle _vcl;
       _vcl = _type createVehicle _pos;
 _vcl setdir _dir;
       sleep 1;
       _vcl setvelocity [0,0,0];
       _vcl setpos _pos;
       sleep 1;
       _vcl setvelocity [0,0,0];
 sleep 2;
  };
if ({damage _x} forEach crew _vcl >= 1)then
 {
 deleteVehicle _vcl;
       _vcl = _type createVehicle _pos;
 _vcl setdir _dir;
       sleep 1;
       _vcl setvelocity [0,0,0];
       _vcl setpos _pos;
      sleep 1;
       _vcl setvelocity [0,0,0];
 sleep 1;
  };
sleep 2;
};

......
....
       _vcl setvelocity [0,0,0];
       _vcl setVehicleVarName "ah64_1";
...
......

....
_vcl = _type createVehicle _pos;
ah64_1 = _vcl;
publicVariable "ah64_1";
....