Yoko

Code: Select all

sub AutoRess()
car i
var char_len = 2 ; сколько у нас друзей?..
var distance = 3 ; дальность поиска неживых друзей
var death_type = "0x0000" ; тип приведения
var bandage = "0x0000" ; тип бинта
var heal = "чар пропал из поля зрения|воскрешение не удалось|чар воскрес|чар вылечился" ; нужно предусмотреть ВСЕ варианты сообщений, иначе скрипт зациклиться.
DIM chars[val(str(char_len))]
chars[0] = "0x0000000" ; друг Вася
chars[1] = "0x0000001" ; друг Петя
repeat
for i=0 to char_len-1
while uo.getX(chars[i]) && uo.getDistance(chars[i]) < distance && uo.getGraphic(chars[i]) == death_type
uo.waittargetobject(chars[i])
uo.usetype(bandage)
deljournal(heal)
repeat
wait(75)
until uo.injournal(heal)
wend
next
wait(300)
until false
endsub

Code: Select all

repeat

Code: Select all

а вот другой более мение мне понятный но тоже не работающий

sub resurct() 
var tBandage = '0x0E21' 
   if UO.Count(tBandage) < 20 then 
   UO.Print("HE4EM PECATb") 
         return 
   end if 
VAR i,k,CharX,CharY,MyX,MyY,Char 
DIM Player[8] 

Player[0]='0x000541E9' ;Unicorn 
Player[1]='0x0000675A' ;Joker Storm 
Player[2]='0x0010023D' ;BEPMYT(p) 
Player[3]='0x000FF1CB' ;MaTpOc(p) 
Player[4]='0x000F5BAF' ;Kulibin(p) 
Player[5]='0x001FF6A2' ;Hipirion (A) 
Player[6]='0x000B0F2A' ;GooD(p) 
Player[7]='0x001681C0' ;Marinka(p) 
#Player[8]='0x0009F5A8' ; 
#Player[9]='0x0005AC39' ;?ey (Aiaaeun) 
#Player[10]='0x00040AAC' ;Nea (Aiaaeun) 
#Player[11]='0x001F79B8' ; 
#Player[12]='0x0004F642' ; 
#Player[13]='0x000C91FF' ; 

   UO.FindType('0x0192',-1,'ground') 
   Char=0 
   If UO.FindCount()>0 Then 
      For k=1 to UO.FindCount() 
         UO.FindType('0x0192',-3,'ground') 
         For i=0 to 7 
            MyX=UO.GetX() 
            MyY=UO.GetY() 
            CharX=UO.GetX(Player[i]) 
            CharY=UO.GetY(Player[i]) 
            If Player[i]==UO.GetSerial('finditem')AND Uo.GetDistance("finditem")<=1 Then 
               Char=Player[i] 
            Else 
               UO.Ignore('finditem','on') 
            EndIf 
         Next 
      Next 
   EndIf 
   If Char<>0 Then 
      UO.SetArm('CWeapon') 
      UO.WaitTargetObject(Char) 
      UO.UseType('0x0E21') 
      UO.Print("?anno?aeo!!!") 
      wait(500) 
         UO.Exec("bandageself") 
      wait(500) 
      UO.Arm('CWeapon') 
   Else 
      UO.Print("A?iaa ana ?eau!!!") 
   EndIf 
   UO.IgnoreReset() 
end sub