sub Meditation() 
var Exit, LastTimer, CharMana 
uo.Print('Выбери Курсу: ') 
uo.Exec('addobject Curse') 
while uo.Targeting() 
wait(100) 
wend 
wait(300) 
uo.DisArm() 
wait(2000) 
exit=0 
while Exit <> 1 
CharMana=uo.INT 
CheckLag() 
uo.WaitTargetType('0x0190') 
uo.UseObject('Curse') 
wait(500) 
uo.Canceltarget() 

if uo.InJournal('no target to cansel') then 
uo.DeleteJornal() 
end if 

repeat 
wait(500) 
until uo.Mana<CharMana 
CheckLag() 
LastTimer=uo.Timer() 

repeat 
uo.DisArm() 
uo.Print('Медитируем...') 
uo.Useskill('Meditation') 
wait(4000) 
until uo.Mana==uo.INT or LastTimer+300<uo.Timer() 
wend 
end sub 

sub CheckLag() 
uo.DeleteJournal() 
uo.Click('backpack') 
repeat 
wait(50) 
until uo.InJournal('backpack') 
end sub