Вот, заносим в массив айдишники ваших боевых товарищей, и если кто-то из них упал во время защиты родины, подбегаем к нему, запускаем макр и он его реснет.
З.Ы.
Строку UO.MSG( '.heal' ) переписать под себя. У нас на шарде это команда на юзание бинтов.
Sub Res_Partner() VAR num = 3 ; ко-во друзей var ghost = '0x0192' VAR i Dim friend[3] friend[1] = '0x005C8367' ; Вася friend[2] = '0x0039CD15' ; Петя friend[3] = '0x004A2181' ; Маша
uo.set( 'finddistance', '2' )
for i = 1 to num uo.findtype( ghost, '-1', 'ground' ) if uo.findcount() then if uo.getserial( 'finditem' ) == friend[i] then uo.setarm( 'CWeapon' ) uo.waittargetobject( 'finditem' ) uo.msg( '.heal' ) wait(600) uo.arm( 'CWeapon' ) uo.print( 'Реснули' ) goto scriptend endif endif next scriptend: endsub