Ultima Online Antares

; В паке: бинты, SA, рефреш банки
; На персе: фул мана, щит в руке, что-либо на реген стамины (тролль серьги и проч.)

sub mmph()
   UO.SetArm('def')
   repeat    
      Arrow()
      Med()
      StCheck()
      Heal()
   until uo.dead()
end sub

sub Arrow()      
    UO.Cast('Magic Arrow', 'self')
    UO.DeleteJournal()
    repeat
          wait(100)
    until UO.Mana < UO.INT
    wait(100)    
end sub

sub Med()    
    UO.UseSkill('Meditation')    
    UO.DeleteJournal()                  
    repeat
           if UO.InJournal('You lose') then
              UO.UseSkill('Meditation')  
              UO.DeleteJournal()
              wait(100)
           else
              wait(100)
           endif
    until UO.InJournal('You are at peace')
end sub

sub StCheck()
    if UO.Stamina<50 then
       UO.FindType(0x0E24, 0x064F, 2); тип банок, цвет банок на рефреш стамины
       UO.UseObject('finditem')
    endif
    while UO.Stamina < 20; если со стаминой совсем все плохо
          wait(100)
    wend
end sub

sub Heal()
   wait(100)
   while UO.Life<UO.STR
      UO.BandageSelf()
      wait(100)      
      uo.deletejournal()
      repeat
         wait(100)
      until UO.InJournal('Вы восстановили|Попытка лечения|Targeting Cancelled|Unexpected target info|Не пытайтесь')
   wend
   UO.Arm('def')
   wait(300)
end sub