Var Sunduk='0x40226380' 

sub main() 
While uo.count('0x0F88','0x0000')>0 

if uo.skillval('Magery',1)==1000 Then 
return 
end if 

UO.FindType('0x0F88',-1,'backpack') 
While UO.GetQuantity('finditem')<5 
UO.FindType('0x0F88','0x0000',Sunduk) 
wait(1000) 
UO.Grab('100','finditem') 
wait(700) 
Wend 

##while uo.mana>20 
cheklag() 
uo.cast('Poison','self') 
wait(3000) 
##wend 


Repeat 
uo.deletejournal() 
uo.useskill('Meditation') 
Wait(3000) 
Until UO.InJournal("You must wait to perform another action") or uo.mana >= uo.int 

While uo.mana < uo.int 
Wait(100) 
Wend 
Wait(100) 

Wend 
end sub 

sub cheklag() 
uo.deletejournal() 
uo.click('backpack') 
Repeat 
wait(100) 
Until UO.InJournal("backpack") 
end sub