Code
sub Tinkering()
var c
while not uo.Dead()
uo.FindType('0x1BEF','0x0000','backpack')
if uo.GetQuantity('finditem')<=10 then
uo.FindType('0x0F0E','0x0000','backpack')
if uo.GetQuantity('finditem')>0 Then
uo.SetReceivingContainer('0x403FC17F') ; Сундук куда бутылки складывать
wait(1000)
uo.Grab('all','finditem')
wait(150)
uo.UnSetReceivingContainer()
end if
uo.FindType('0x1BEF','0x0000','0x403FC17F') ; Сундук где айрон лежит
wait(1000)
uo.Grab('500','finditem')
wait(1000)
end if
CheckLag()
uo.Exec("waitmenu 'Tinkering' 'Tools' 'Tools' 'empty bottle'")
uo.UseType('0x1EBC') ; Тинковские Принадлы
while not uo.InJournal('You put') and not uo.InJournal('Tinkering failed')
wait(300)
wend
wend
end sub
sub CheckLag()
uo.DeleteJournal()
uo.Click('backpack')
repeat
wait(50)
until uo.InJournal('backpack')
end sub