Yoko

sub Archery()
while true 
If UO.Mana >= UO.Int then 
UO.usetype('luk') 
UO.exec("waittargetself") 
UO.Exec("attack 0x00464D0C") #ID 2 4ara 
Repeat 
wait (500) 
Until (UO.GetHP("0x00464D0C") < 40) #ID 2 4ara / 130-HP 
UO.Exec("warmode 0") 
UO.DeleteJournal() 
Repeat 
UO.Usetype("0x0E21") #Bandages 
UO.Exec("waittargetobject 0x00464D0C") #ID 2 4ara 
wait(3500) 
Until (UO.InJournal("not need")) 
Endif 

If UO.Mana < UO.Int Then 
While UO.Mana < UO.Int 
UO.DeleteJournal() 
Meditation() 
Repeat 
wait(100) 
until UO.InJournal("You are") OR UO.InJournal("You lose") 
Wend 
Endif 

wend 
end sub 

sub Meditation() 
UO.Exec("useskill 'Meditation'") 
wait(100) 
end sub 

Вроде неплохо работает, но тут одна проблемка - надо часто лечить иначе возникает ситуаця, когда жизней определенное колличество не потрачено и маны на стрельбу нету и чар ждет, когда мана выростет сама собой. Подскажите как это обойти.
Удалил подобный топик из ХЕЛПА. KrafteR
[Даже несмотрел спать хочу но вспомнил Теги I'm]

sub Archery()
   var Min_mana=20 # нижний предел маны
   UO.usetype('luk') 
   UO.exec("waittargetself") 
   UO.Exec("attack 0x00464D0C") #ID 2 4ara
   while not uo.dead()
      If (UO.GetHP("0x00464D0C") < 40) then 
         UO.Exec("warmode 0") 
         UO.DeleteJournal() 
         Repeat 
            UO.Exec("warmode 0") 
            UO.Usetype("0x0E21") #Bandages 
            UO.Exec("waittargetobject 0x00464D0C") #ID 2 4ara 
            CheckLag()
            wait(3500) 
         Until (UO.InJournal("not need"))
         UO.usetype('luk') 
         UO.exec("waittargetself") 
         UO.Exec("attack 0x00464D0C") #ID 2 4ara
      Endif
      If UO.Mana < Min_mana Then
         repeat
            UO.DeleteJournal() 
            CheckLag()
            UO.Exec("warmode 0")
            UO.Exec("useskill 'Meditation'") 
            Repeat 
               wait(100) 
            until UO.InJournal("You are") OR UO.InJournal("You lose")
         until uo.injournal("You are") or uo.mana>=uo.int
         UO.Exec("attack 0x00464D0C") #ID 2 4ara
      Endif
      CheckLag()
   wend 
end sub

Sub CheckLag() 
   UO.DeleteJournal() 
   UO.Click('backpack') 
   repeat 
      wait(50) 
   until UO.InJournal('backpack') 
end sub

Тести и докладовывай о результатах.