sub Cartography()
uo.Exec("automenu 'What sort of map do you want to d' 'Detail Map'")
uo.DeleteJournal()
repeat
uo.Useskill('Cartography')
wait(8000)
until uo.Dead()
end sub