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

sub magery() 
repeat 
If UO.mana>=5 Then 
uo.cast("Agility" , 'self') 
wait(4500) 
Else 
while uo.mana<100 
UO.useskill('Meditation') 
wait(4500) 
wend 
EndIf 
until false 
end sub

sub magery() 
repeat 
If UO.mana>=20 Then 
uo.cast("Teleport", 'self') 
wait(1000) 
Else 
while uo.mana<62 
UO.useskill('Meditation') 
wait(4500) 
wend 
EndIf 
until false 
end sub