Добавлено (18.10.2014, 21:44)
---------------------------------------------
Ага Soldier не добавился. Тогда так:

// Активация: _so = [имя] execVM "soldier.sqf" 

// ЗАЩИТА ОТ ГРАНАТЫ
_protection = 
{
  // боец
  _unit = _this select 0; 
  // граната
  _grenade = _this select 1;
  
   // боец ложится
   _unit setUnitPos "DOWN";
   // ждем, пока граната взорвется
   waitUntil {!(alive _grenade)};
   // боец сам выбирает положение
   _unit setUnitPos "AUTO";  
};

// ЗАЩИТА ОТ АТАКИ БЛИЖАЙШЕГО ВРАГА
_hide = 
{
   // боец
   _unit = _this select 0; 
   // враг
   _enemy = _this select 1;
   
   // цель врага
   _target = assignedTarget _enemy;   
   // если враг целится в бойца,  
   if (_target == _unit) 
   //то:
   then 
   {    
      // боец ложится
      _unit setUnitPos "DOWN";
      sleep 2;
      // боец - на колено 
      _unit setUnitPos "MIDDLE";
   };

};

_maroder =   
{
   // боец
   _unit = _this select 0; 
   // предмет
   _item = _this select 1;
   
   // ОПРЕДЕЛЕНИЕ ПОГИБШИХ СОЛДАТ С НУЖНЫМИ ВЕЩАМИ
   // резервируем массив доноров
   _donors = [];
    {
       // если погибший боец имеет нужные вещи и не состоит в массиве доноров
       if ((_item in (itemsWithMagazines _x)) and !(_x in _donors))
       // то добавить его в список доноров 
       then {_donors set [count _donors, _x]};
    }  forEach allDeadMen; //для всех погибших бойцов

   // если погибшие бойцы с нужными вещами существуют, то
   if (count _donors > 0) then 
   {
      // первый из доноров
      _dead_men = _donors select 0;
      
      // ОПРЕДЕЛЕНИЕ КОЛИЧЕСТВА НУЖНЫХ ВЕЩЕЙ У ПОГИБШЕГО БОЙЦА
      // количество нужных вещей, находящихся у погибшего бойца
      _amt = 0;
      // если неоходимая вещь - аптечка
      if (_item == "FirstAidKit")
      // то необходимое количество = 1 
      then {_amt = 1}
      // иначе: 
      else 
      {            
         // общий список вещей погибшего бойца
         _ITandMAG = itemsWithMagazines _dead_men;
         // резервируем массив для подсчета количества нужных вещей
         _items = [];
         _i = 0;
         _j = count _ITandMAG;
         while {_i < _j} do
         {
            // если вещь нужна, то помещаем ее в список нужных вещей 
            if (_ITandMAG select _i == _item) then {_items set [count _items, _ITandMAG select _i]};
            // следующая вещь
            _i = _i + 1;
         };
         // количество нужных вещей, находящихся у погибшего бойца
         _amt = count _items;
      };

      // ПОПОЛНЕНИЕ
      // отключаем блокировку движения бойца
      _unit enableAI "MOVE";
      // поведение бойца - скрытно
      _unit setBehaviour "STEALTH";
      // положение бойца - пригнуться
      _unit setUnitPos "MIDDLE";
      // боец двигается к погибшему солдату
      _unit doMove (getPos _dead_men);
      // ожидание пока боец подойдет к донору на 3 м.
      waitUntil {_unit distance _dead_men < 3};
      // положение бойца - лежа
      _unit setUnitPos "DOWN";
      // солдат разворачивается к телу
      _unit doWatch (getPos _dead_men);
   
      sleep 2;
      
      _i = 0;
      // пока боец не заберет все нужные вещи, выполнять
      while {_i < _amt} do
      {      
         // боец остается на месте
_unit disableAI "MOVE";
// анимация пополнения
_unit action ["UseMagazine", _unit, _unit, 0, 0];
// добавляем бойцу вещь
_unit addItem _item;
// удаляем вещь у погибшего
_dead_men removeItem _item;
 
sleep 1;
      
         // следующая вещь
         _i = _i + 1;
      };  

      // убираем блокировку движения
      _unit enableAI "MOVE";
      // отменяем направление на тело
      _unit doWatch objNull;
      // поведение бойца - настороже
      _unit setBehaviour "AWARE";       
      // положение бойца - по обстоятельствам
      _unit setUnitPos "AUTO";
      
   };
    
};

//боец
_unit = _this select 0;

//оружие бойца
_weapon = currentWeapon _unit;
// определяем развание обоймы для выбранного оружия
_magazin = getArray (configFile >> "cfgWeapons" >> _weapon >> "magazines") select 0;
// определяем аптечку
_aptechka = "FirstAidKit";

// пока жив боец, выполнять
While {alive _unit} do 
{ 
   // боец сам выбирает положение
   _unit setUnitPos "AUTO";
   // ручная граната в радиусе 50 м от бойца
   _grenade = nearestObject [_unit, "GrenadeHand"];
   // ближайший враг, которого видит боец
   _enemy = _unit findNearestEnemy _unit;
  
   //ДЕЙСТВИЯ, ЕСЛИ ГРАНАТА РЯДОМ
   // если граната в 10 м от бойца, 
   if (((getPos _grenade) distance (getPos _unit))<10) 
   // то:
   then {[_unit,_grenade] call _protection};
  
   //ДЕЙСТВИЯ, ЕСЛИ ЕСТЬ ВРАГ
   // если враг  есть,  
   if !(isNull _enemy) 
   // то: пока враг жив, выполнять
   then { while {alive _enemy} do {[_unit,_enemy] call _hide}};
   
   // ДЕЙСТВИЯ БОЙЦА, ЕСЛИ КОНЧИЛИСЬ ПАТРОНЫ
   // если у бойца кончились обоймы,
   if !(_magazin in (magazines _unit)) 
   // то:
   then {[_unit,_magazin] call _maroder};
  
   // ДЕЙСТВИЯ БОЙЦА, ЕСЛИ НЕТ АПТЕЧКИ
   // если боец ранен и у него нет аптечки,
   if (((damage _unit)>0.5) and !(_aptechka in (items _unit))) 
   // то:
   then {[_unit,_aptechka] call _maroder};

   // период цикла
   sleep 2;
};

Добавлено (19.10.2014, 10:15)
---------------------------------------------
----
это новое обновление мода asr ai, на армахолике, переведи последние несколько строк

Changelog:
• update class inheritances for patch 1.32
  
  
• optimize array operations using pushBack
  
  
• soldiers respond much more aggressively to known targets
  
  
• can now use near building positions when looking for cover
  
  
• reuse already known good near cover spots (performance tweak)