Yoko

sub Bottles() 
VAR eda = 0x097B 
repeat 
UO.UseSkill('Spirit') 
wait (600) 
uo.usetype(eda) 
wait (300) 
CheckLag() 
UO.FindType('0x1BEF','0x0000','backpack') 
If UO.GetQuantity('finditem')<10 then 
UO.FindType('0x1BEF','0x0000','0x400B29CD') ;serial sunduka s iron 
UO.Grab('100','finditem') 
wait(300) 
Endif 
if UO.count('0x0F0E','0x0000')>110 then 
CheckLag() 
UO.FindType('0x0F0E','0x0000','backpack') 
UO.setreceivingcontainer('0x400B29CD') ;serial sunduka s iron 
UO.Grab('0','finditem') 
wait(300) 
endif 
CheckLag() 
UO.Usetype('0x1EBC') 
UO.WaitMenu('Tinkering','Tools','Tools','empty bottle') 
wait (1000) 
CheckLag() 
UO.DeleteJournal() 
while not (UO.InJournal("You put") or UO.InJournal("Tinkering failed")) 
wait(300) 
wend 
UO.UnSetReceivingContainer() 
wait(200) 
until UO.Dead() 
end sub 

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