Yoko

Code: Select all

sub Cartography()
  uo.Print("Cartography: Train On")
  var Map.Type='0x14eb',Map.Count=0
  var Pause.Wait=100,Pause.Wrld=5000
  var Map.Time=50,Map.TimeEnd
  var UoMsg.Map1="You put the map"
  var UoMsg.Map2="Thy trembling hand results in"
  var UoMsg.Map3="You fail to coplete the map"
  var UoMsg.Wrld="World save has been initiated"
  repeat
    uo.DeleteJournal()
    uo.FindType(Map.Type,'-1','backpack')
    uo.Print("Map: "+str(uo.FindCount())+"/"+str(Map.Count))
    if uo.FindCount()<>0 then
      if MapInfo()==1 then
        repeat
          uo.DeleteJournal()
          uo.UseObject('finditem')
          wait(Pause.Wait*5)
          CheckLag()
          uo.waitmenu("What sort of map do you want to d","Detail Map")
          Map.TimeEnd=uo.Timer()+Map.Time
          repeat
            if uo.InJournal(UoMsg.Wrld) then
              wait(Pause.Wrld)
              DeleteJournal(UoMsg.Wrld)
            end if
            wait(Pause.Wait*5)
          until uo.InJournal(UoMsg.Map1) or uo.InJournal(UoMsg.Map2) or uo.InJournal(UoMsg.Map3) or uo.Timer()>Map.TimeEnd
          wait(Pause.Wait*5)
        until uo.InJournal(UoMsg.Map1)
        Map.Count=Map.Count+1
      else
        uo.Ignore('finditem')
      end if
    end if
  until uo.FindCount()==0 or uo.FindCount()==Map.Count
  uo.IgnoreReset()
  SellItem(Map.Type)
  uo.Print("Cartography: Train Off")
end sub

Code: Select all

uo.Print("Map: "+str(uo.FindCount())+"/"+str(Map.Count))

Code: Select all

wait(Pause.Wait*5)