########################
## Crafted by BigMouse##
########################

sub vamp_autoheal()
var hp, life
  while true
    repeat
      life = uo.str
      while life == uo.life
        wait(500)
      wend
      while uo.life <= 90 and not UO.dead()
        healmax()
      wend
      wait(1200)
    until uo.dead()
    uo.print('Упал =(')
    while uo.dead()
      wait(3000)
    wend
    uo.print('А вот и ожил!')
    wait(1200)
  wend
endsub

sub healmax()
While not uo.life >= (uo.str-25)
  UO.Findtype('0x0F06', '0x0020', 'my')
  If UO.Findcount()and not UO.Dead() then
    UO.Setarm('1')
    UO.Useobject('finditem')
    wait(500)
    UO.Arm('1')
    wait(500)
    If UO.InJournal('so fast') then
      wait(1000)
    endif
  endif
wend
end sub