sub a()
  var maxhp = uo.getmaxhp('self')
  var hp =  uo.gethp('self')
  var proc = hp/maxhp*100

  dim a[1]

  a[1]=hp/maxhp*100
 uo.print(str(a[1]))
end sub


SUB banda()
   uo.setglobal('h','0')
   uo.setglobal('s','0')
   var i, j, k, x, y, z, w, HpSelf, MaxHpSelf=uo.getmaxhp('self')

   var n = 2
   var m = 2
   var t = 50

   dim hp[6]
   dim name[6]

while not uo.dead()
 if uo.getglobal('h') == '0' and uo.getglobal('s') == '0' then
   for i = 1 to n
      if uo.getdistance('heal'+str(i)) < 6 then
         if uo.getserial('self') == uo.getserial('heal1') then
            HpSelf=uo.gethp('self')
            hp[i]=HpSelf/MaxHpSelf*100
            name[i]=str(i)
         else
            hp[i]=uo.gethp('heal'+str(i))
            name[i]=str(i)
            uo.print(str(hp[i]))
         end if
      else
         hp[i]=100
         name[i]='0'
      end if
   next

   for j = 1 to m
      for i = 1 to n-1
         x = hp[i]
         z = name[i]
         y = hp[i+1]
         w = name[i+1]
         if x < y then
            hp[i] = x
            name[i] = z
            hp[i+1] = y
            name[i+1] = w
         else
            hp[i] = y
            name[i]= w
            hp[i+1] = x
            name[i+1]= z
         end if
      next
   next
 end if


   for i = 1 to n
      if hp[i] < 100 and hp[i] > 0 and uo.getdistance('heal'+str(i)) < 6 then
         lecim:
         DeleteJournalLine('Nevidis cil.')
         DeleteJournalLine('Pokousis se vylecit')
         DeleteJournalLine('cil je moc daleko')
         DeleteJournalLine('neni zranen.')
         DeleteJournalLine('byl uspesne osetren')
         DeleteJournalLine('Lecis rychleji!')
         uo.msg('.heal'+name[i])
         repeat
            wait(50)
         until uo.injournal('Nevidis cil.|Pokousis se vylecit|cil je moc daleko|neni zranen.')

         if not uo.injournal('Nevidis cil.|cil je moc daleko|neni zranen.') then
            k=0
            repeat
              wait(50)
              k=k+1
            until uo.injournal('Lecis rychleji!') or k == 20
            if not uo.injournal('Lecis rychleji!') then
               goto lecim
            end if
            repeat
              wait(50)
            until uo.injournal('byl uspesne osetren')
         end if
      end if
   next
  wait(t)
 wend
END SUB

SUB DeleteJournalLine(text)
   While UO.InJournal(text)
      UO.SetJournalLine(UO.InJournal(text)-1, " ")
   Wend
END SUB

sub setHeal1()
   UO.exec('addobject heal1')
   while UO.Targeting()
      wait(99)
   wend
   uo.waittargetobject('heal1')
   uo.msg('.setequip1')
END SUB

sub setHeal2()
   UO.exec('addobject heal2')
   while UO.Targeting()
      wait(99)
   wend
   uo.waittargetobject('heal2')
   uo.msg('.setequip2')
END SUB

sub setHeal3()
   UO.exec('addobject heal3')
   while UO.Targeting()
      wait(99)
   wend
   uo.waittargetobject('heal3')
   uo.msg('.setequip3')
END SUB

sub setHeal4()
   UO.exec('addobject heal4')
   while UO.Targeting()
      wait(99)
   wend
   uo.waittargetobject('heal4')
   uo.msg('.setequip4')
END SUB

sub setHeal5()
   UO.exec('addobject heal5')
   while UO.Targeting()
      wait(99)
   wend
   uo.waittargetobject('heal5')
   uo.msg('.setequip5')
END SUB

sub setHeal6()
   UO.exec('addobject heal6')
   while UO.Targeting()
      wait(99)
   wend
   uo.waittargetobject('heal6')
   uo.msg('.setequip6')
END SUB