Yoko

sub Tinker()
var k = 0
while not uo.dead()and not uo.injournal("You can't make") 
uo.deletejournal()
uo.waitmenu('Tinkerin','Tools','Tools','lockpick')
UO.usetype(0x1EBC)
Checklag()
repeat
wait(100)
k=0
until UO.InJournal("You put the lockpicks") or UO.InJournal("Tinkering failed") or UO.InJournal("You can't make") or k>69
k=k+1
if uo.injournal("You can't make") then
return
UO.usetype(0x1EBC)
end if
wait(100)
wend
endsub 

UO.usetype('0x1EBC')

sub Lockpick()
   var Ingots='0x1BEF' ; Инги
   var Tools='0x1EBC'; Инструмент
   while uo.count(Ingots) > 0
      #Hide()
      Checklag()
      uo.waitmenu ('Tinkering', 'Tools', 'Tools', 'lockpick' )
      uo.usetype(Tools)
      repeat
         wait(500)
      until uo.injournal('You put') or uo.injournal('Tinkering failed')
   wend
   uo.closeuo()
end sub