sub Magery() 
var LastTimer 
while not uo.Dead() 
uo.DeleteJournal() 
CheckLag() 
while uo.Mana>=10 
uo.Cast('Poison','self') 
wait(3000) 
wend 
while uo.Mana<uo.INT 
LastTimer=uo.Timer() 
uo.UseSkill('Meditation') 
repeat 
wait(100) 
until uo.InJournal('You are') or uo.InJournal('You lose') or uo.Timer()>LastTimer+200 
uo.DeleteJournal() 
wait(2000) 
wend 
wend 
end sub 

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