Yoko

Code: Select all

#==============================================================
#  MakeLockPick() - crafting Lockpick
#
#  Journal has been deleted!!!
#--------------------------------------------------------------
sub makelockpick()
   VAR c,Cont='0x4009B90C';
   while NOT UO.Dead()
      ToHide()

      UO.FindType('0x1bef','0x0000','backpack') ;iron in BP
      if UO.GetQuantity('finditem')<=3 then

         UO.FindType('0x14fb','0x0000','backpack') ;lockpick
         If UO.GetQuantity('finditem')>0 Then
            UO.SetReceivingContainer(Cont)
            wait(1000)
            UO.Grab('all','finditem')
            wait(1000)
            UO.UnSetReceivingContainer()
         Endif

         UO.FindType('0x1BEF','0x0000',Cont) ;iron in cont
         wait(1000)
         UO.Grab('99','finditem')
         wait(1000)
      endif

      CheckLag()
      UO.Exec("waitmenu 'Tinkering' 'Tools' 'Tools' 'lock'")
      UO.UseType('0x1EBC') ; tinker tools
      while NOT UO.InJournal("You put") AND NOT UO.InJournal("Tinkering failed")
         wait(300)
      wend
   wend
end sub