Yoko

Code: Select all

sub clean_bandage()
   if not uo.count("0x0E21") then
      if uo.count("0x0E20") then
         uo.waittargettype("0x1008")
         uo.usetype("0x0E20")
         wait(1000)
      else
         uo.print("Net bintov!")
      end if
   end if
end sub

Code: Select all

var msgReady = 'I am Ready' 
var msgBladeDied = 'Blade Died' 
var msgHelp = 'Help me' 
var msgNoMana = 'No mana... Meditation...' 
var key = 0 
sub main() 

   clean_bandage()        <----------- РАЗ
   while NOT uo.Dead() 
      uo.DeleteJournal()  
   Wait(2000)
      if Uo.GetHP('self') < Uo.Str then 
         uo.SetArm('MyArm') 
         wait(100) 
         uo.DisArm() 
         while Uo.GetHP('self') < Uo.Str 
            uo.bandageself()  
            uo.DeleteJournal() 
            while NOT uo.Injournal('You') 
               wait(1000) 
               clean_bandage()     <-------- ДВАЗ
            wend 
            clean_bandage()      <------- ТРИЗ
         wend  
      endif
      uo.Arm('MyArm') 
      Uo.DeleteJournal() 
      CheckLag() 
      while Uo.GetHP('self') == Uo.Str 
         uo.say(msgReady) 
         wait(3000) 
      wend 
      uo.deletejournal() 
      while NOT Uo.Injournal(msgBladeDied) 
         If Uo.GetHP('self') < 20 then 
            uo.say(msgHelp) 
         endif 
         checkhp()
         wait(2000) 
      wend 
      Uo.DeleteJournal() 
   wend 
end sub 
sub CheckLag() 
   uo.DeleteJournal() 
   uo.Click('backpack') 
   repeat 
      wait(150) 
   until uo.InJournal('backpack') 
end sub
Sub checkhp()
   if uo.life<17 then
      uo.usetype(0x0F0E,0x09BB)
   endif
endsub 
sub clean_bandage() 
if UO.Count('0x0E21')<1 then 
UO.FindType('0x0E20','0x0000','backpack') 
UO.WaitTargetType('0x1008') 
UO.UseObject('finditem') 
wait(1000) 
endif 
end sub 

Code: Select all

UO.Exec("set finddistance 15") 
repeat 
UO.FindType('0x023E','0000x0',1) 
If UO.FindCount('finditem')>0 then 
UO.Attack('finditem')