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