Code: Select all
sub Cartography()
#NMY#
VAR k
UO.Deletejournal()
UO.CancelMenu()
UO.AutoMenu('What sort of map','Detail Map')
while true
While not UO.Hidden()
uo.warmode(0)
UO.UseSkill('Hiding')
Wait(4000)
Wend
find:
UO.DeleteJournal()
uo.findtype('0x14EB')
If UO.FindCount() Then
UO.Click('finditem')
wait(500)
If UO.InJournal('a map') then
UO.Drop('finditem')
wait(250)
goto find
Endif
else
Return
Endif
CheckLag()
UO.UseObject('finditem')
k = 0
while NOT UO.InJournal('You put') AND NOT UO.InJournal('trembling hand results') AND ( k < 30 )
k = k + 1
wait(500)
wend
wend
end sub
Sub checklag()
del('backpack')
uo.click('backpack')
repeat
wait(50)
until uo.injournal('backpack')
del('backpack')
end sub
Sub del(msg)
while uo.injournal(msg)
uo.setJournalLine(uo.injournal(msg)-1,"Is Empty!")
wend
end sub