sub main() 
Var i
Var catch='0x40023EA6'
var item='0x143E'
start: 

 
i=0
   UO.waittargetobject("0x00002064") 
   UO.usetype('0x13C6') 
        wait(10000) 
 repeat
         UO.FindType(item,'-1','backpack')
        UO.MoveItem('finditem','-1',catch)
        UO.Print("Sbros") 
        
     UO.exec("findtype 0x143E -1 lastcontainer")  
     UO.waittargetobject("finditem") 
     UO.usetype('0x13C6') 
     wait(5000) 
     i=i+1
 until UO.InJournal("You failed to open container") or UO.InJournal("You couldn't open the container") or UO.InJournal("Targeting Cancelled")  or i==4
 goto start
 CheckSave() 
end sub 

sub CheckSave() 
If UO.InJournal("Saving World State") Then 
UO.Print("Saving World State") 
UO.DeleteJournal() 
Wait(25000) 
EndIf 
end sub

sub main() 
var sunduk='0x40023EA6'
var color='0x0386'
var produkt='0x01BE'
start:

UO.FindType('0x143E',-1,'backpack') 
If UO.GetQuantity('finditem')<1 then 
UO.FindType('0x143E', color, sunduk) 
UO.Grab('10','finditem') 
Endif 
Wait(1000)
goto start

end sub