local L = TourGuide.Locale
 
local zonei, zonec, zonenames = {}, {}, {}
for ci,c in pairs{GetMapContinents()} do
  zonenames[ci] = {GetMapZones(ci)}
  for zi,z in pairs(zonenames[ci]) do
    zonei[z], zonec[z] = zi, ci
  end
end
 
 
local cache = {}
local function MapPoint(zone, x, y, desc, c, z)
  TourGuide:DebugF(1, "Mapping %q - %s (%.2f, %.2f)", desc, zone or z, x, y)
  local zi, zc = z or zone and zonei[zone], c or zone and zonec[zone]
  if not zi then
    if zone then TourGuide:PrintF("Cannot find zone %q, using current zone.", zone)
    else TourGuide:Print("No zone provided, using current zone.") end
 
    zi, zc = GetCurrentMapZone(), GetCurrentMapContinent()
    zone = zonenames[zc][zi]
  end
 
  if TomTom then table.insert(cache, TomTom:AddZWaypoint(zc, zi, x, y, desc, false))
  elseif Cartographer_Waypoints then
    local pt = NotePoint:new(zone, x/100, y/100, desc)
    Cartographer_Waypoints:AddWaypoint(pt)
    table.insert(cache, pt.WaypointID)
  end
end
 
 
local temp = {}
function TourGuide:ParseAndMapCoords(action, quest, zone, note, qid)
  if TomTom and TomTom.RemoveWaypoint then
    while cache[1] do TomTom:RemoveWaypoint(table.remove(cache)) end
  elseif Cartographer_Waypoints then
    while cache[1] do Cartographer_Waypoints:CancelWaypoint(table.remove(cache)) end
  end
 
 
  if (action == "ACCEPT" or action == "TURNIN") and LightHeaded and self:MapLightHeadedNPC(qid, action, quest) and not self.db.alwaysmapnotecoords
    or not (note and self.db.char.mapnotecoords) then return end
 
  for x,y in note:gmatch(L.COORD_MATCH) do table.insert(temp, tonumber(y)); table.insert(temp, tonumber(x)) end
  while temp[1] do MapPoint(zone, table.remove(temp), table.remove(temp), "[TG] "..quest) end
end
 
 
function TourGuide:MapLightHeadedNPC(qid, action, quest)
  if not self.db.char.mapquestgivers then return end
 
  local npcid, npcname, stype
  if action == "ACCEPT" then _, _, _, _, stype, npcname, npcid = LightHeaded:GetQuestInfo(qid)
  else _, _, _, _, _, _, _, stype, npcname, npcid = LightHeaded:GetQuestInfo(qid) end
  self:Debug(1, "LightHeaded lookup", action, qid, stype, npcname, npcid)
  if stype ~= "npc" then return end
 
  local data = LightHeaded:LoadNPCData(tonumber(npcid))
  if not data then return end
  for zid,x,y in data:gmatch("([^,]+),([^,]+),([^:]+):") do MapPoint(nil, tonumber(x), tonumber(y), "[TG] "..quest.." ("..npcname..")", LightHeaded:WZIDToCZ(tonumber(zid))) end
  return true
end