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