Paste code

sub bolt_meditace()
VAR afk = "C:alarm.wav" ;do uvozovek doplnit cestu k wav souboru
Uo.print("klikni na bednu z regama")
Uo.Exec&#40;"addobject bedna"&#41;
 While Uo.Targeting()
  Wait(100)
 Wend
UO.Exec&#40;"setarm 'zbrane'"&#41;
while NOT UO.Dead()
        Wait(500)
UO.Exec&#40;"arm 'zbrane'"&#41;
   while UO.Life>=20 and UO.Mana>=10
       if uo.injournal("Kontrola") or uo.injournal("AFK") or uo.injournal("GM") or uo.injournal("Seer") or uo.injournal("Counselor") or uo.injournal("You see magery") or Uo.Injournal("zdravim") or Uo.Injournal("Zdravim") or Uo.Injournal("makra") or Uo.Injournal("Jsi") or Uo.Injournal("Ahoj") or Uo.Injournal("You see") or Uo.Injournal("You see:") then
           uo.playwav(afk)
           Uo.Deletejournal()
       endif
            UO.Cast('Energy bolt','self')
            wait(1800)
    If Uo.Count("0x0F7A") <= 10 then 
    uo.findtype("0x0F7A","-1","bedna")
     if uo.findcount()>0 then
      uo.moveitem("finditem","50","backpack")
     endif
   endif
   If Uo.Count("0x0F88") <= 10 then 
    uo.findtype("0x0F88","-1","bedna")
     if uo.findcount()>0 then
      uo.moveitem("finditem","50","backpack")
     endif
   endif
   wend
   If Uo.Count("0x0F7A") <= 10 then 
    uo.findtype("0x0F7A","-1","bedna")
     if uo.findcount()>0 then
      uo.moveitem("finditem","50","backpack")
     endif
   endif
   If Uo.Count("0x0F7A") <= 10 then 
    uo.findtype("0x0F7A","-1","bedna")
     if uo.findcount()>0 then
      uo.moveitem("finditem","50","backpack")
     endif
   endif
    If uo.life<uo.str then 
            uo.exec&#40;"bandageself"&#41;
            Wait(3000)
    endif
    while UO.Mana<UO.Int    
     if uo.injournal("Kontrola") or uo.injournal("AFK") or uo.injournal("GM") or uo.injournal("Seer") or uo.injournal("Counselor") or uo.injournal("You see meditation") or Uo.Injournal("zdravim") or Uo.Injournal("Zdravim") or Uo.Injournal("makra") or Uo.Injournal("Jsi") or Uo.Injournal("Ahoj") or Uo.Injournal("You see") or Uo.Injournal("You see:") then
           uo.playwav(afk)
           Uo.Deletejournal()
     endif
         UO.UseSkill('Meditation')
            wait(2000)
    wend
wend
end sub