############################################################################################ #File info################################################################################## ############################################################################################ ;Copiraten: by ICe aka ICeCREAm # ; Mail: Hoob@narod.ru писать с пометкой UO # ; Icq: 222228147 писать с пометкой UO # ; WWW: http://hoob.narod.ru > # ;[; plz not sale outside for russia,for all questions call #911 or (Hoob@narod.ru) ask me;]# #############################################################(с) 2005 made in russia :) ####
sub Tinkering() var c while not uo.Dead()
uo.FindType('0x1BEF','0x0000','backpack') if uo.GetQuantity('finditem')<=10 then
uo.FindType('0x14FB','0x0000','backpack') if uo.GetQuantity('finditem')>0 Then uo.SetReceivingContainer('0x4033BF94') ; Сундук куда бутылки складывать wait(1000) uo.Grab('all','finditem') wait(1000) uo.UnSetReceivingContainer() end if
uo.FindType('0x1BEF','0x0000','0x4033BF94') ; Сундук где айрон лежит wait(1000) uo.Grab('200','finditem') wait(1000) end if
CheckLag() uo.Exec("waitmenu 'Tinkering' 'Tools' 'Tools' 'lockpick'") 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
