Yoko

sub Train_Heal()
; Attacking bees until hp=20, and then heal yourself.
; Get clean bandages from Sunduk, and move bloody
; bandage to Sunduk

var Bee=0x40948461
var Sunduk=0x40E1EB33
var Bandage=0x0E21
var BBandage=0x0E20
var life, k
while not uo.Dead()
  while uo.life > 20
    uo.UseObject(Bee)
    wait(450)
    repeat
      wait(100)
    until uo.InJournal('backpack')
  wend
  if uo.Count(Bandage) then
    while uo.life < uo.str && uo.Count(Bandage)>0
      k=0
      uo.Bandageself()
      uo.DeleteJournal()
      life=uo.life
      repeat
        wait(100)
        k=k+1
      until uo.life <> life || uo.InJournal('помогли|кладете') || k>100
    wend
    uo.FindType(BBandage,'-1','backpack')
    if uo.FindCount() then
      uo.moveitem('finditem','all',Sunduk)
      wait(750)
    end if
  else
    uo.FindType(Bandage,'-1',Sunduk)
    if uo.FindCount() then
      uo.moveitem('finditem','250')
      wait(750)
    end if
  end if
wend
end sub 

sub Train_Heal() 
; Attacking bees until hp=20, and then heal yourself. 
; Get clean bandages from Sunduk, and move bloody 
; bandage to Sunduk 

var Bee=0x40948461 
var Sunduk=0x40E1EB33 
var Bandage=0x0E21 
var BBandage=0x0E20 
var life, k 
while not uo.Dead() 
  while uo.life > 20 
    uo.UseObject(Bee) 
    wait(450) 
    uo.Click('backpack')
    repeat 
      wait(100) 
    until uo.InJournal('backpack') 
  wend 
  if uo.Count(Bandage)>0 then 
    while uo.life < uo.str && uo.Count(Bandage)>0 
      k=0 
      uo.Bandageself() 
      uo.DeleteJournal() 
      life=uo.life 
      repeat 
        wait(100) 
        k=k+1 
      until uo.life <> life || uo.InJournal('помогли|кладете') || k>100 
    wend 
    uo.FindType(BBandage,'-1','backpack') 
    if uo.FindCount() then 
      uo.moveitem('finditem','all',Sunduk) 
      wait(750) 
    end if 
  else 
    uo.FindType(Bandage,'-1',Sunduk) 
    if uo.FindCount() then 
      uo.moveitem('finditem','250') 
      wait(750) 
    end if 
  end if 
wend 
end sub