questhelperredux/QuestHelper/main.lua

QuestHelper_File["main.lua"] = "1.4.0"
QuestHelper_Loadtime["main.lua"] = GetTime()

local version_string = QuestHelper_File["main.lua"] -- we pretty much save this only so we can inform the user that they're using a beta version

-- Just to make sure it's always 'seen' (there's nothing that can be seen, but still...), and therefore always updating.
QuestHelper:SetFrameStrata("TOOLTIP")

QuestHelper_CharVersion = 1
QuestHelper_Locale = GetLocale() -- This variable is used only for the collected data, and has nothing to do with displayed text.
QuestHelper_Quests = {}
QuestHelper_Objectives = {}

QuestHelper_Pref =
 {}

local QuestHelper_DefaultPref =
 {
  filter_level=true,
  filter_zone=false,
  filter_done=false,
  filter_blocked=false, -- Hides blocked objectives, such as quest turn-ins for incomplete quests
  filter_watched=false, -- Limits to Watched objectives
  filter_group=true,
  filter_group_param=2,
  filter_wintergrasp=true,
  filter_raid_accessible=true,
  zones="next",
  track=true,
  track_minimized=false,
  track_scale=1,
  track_level=true,
  track_qcolour=true,
  track_ocolour=true,
  track_size=10,
  blizzmap = false,
  tooltip=true,
  share = true,
  scale = 1,
  solo = false,
  comm = false,
  show_ants = true,
  level = 3,
  hide = false,
  cart_wp_new = false,
  tomtom_wp_new = false,
  arrow = true,
  arrow_locked = false,
  arrow_arrowsize = 1,
  arrow_textsize = 1,
  metric = (QuestHelper_Locale ~= "enUS" and QuestHelper_Locale ~= "esMX"),
  flight_time = true,
  locale = GetLocale(), -- This variable is used for display purposes, and has nothing to do with the collected data.
  perf_scale_2 = 1,       -- How much background processing can the current machine handle?  Higher means more load, lower means better performance.
  perfload_scale = 1,    -- Performance scale to use on startup
  map_button = true,
  travel_time = false,
  mini_opacity = 1,
 }

-- We do it here also in case things decide they care about preferences before the init function is called. Shouldn't happen, but maybe does.
setmetatable(QuestHelper_Pref, {__index=QuestHelper_DefaultPref})

QuestHelper_FlightInstructors = {}
QuestHelper_FlightLinks = {}
QuestHelper_FlightRoutes = {}
QuestHelper_KnownFlightRoutes = {}
QuestHelper_SeenRealms = {}

QuestHelper.tooltip = CreateFrame("GameTooltip", "QuestHelperTooltip", nil, "GameTooltipTemplate")
QuestHelper.objective_objects = {}
QuestHelper.user_objectives = {}
QuestHelper.quest_objects = {}
QuestHelper.player_level = 1
QuestHelper.locale = QuestHelper_Locale

QuestHelper.faction = (UnitFactionGroup("player") == "Alliance" and 1) or
                      (UnitFactionGroup("player") == "Horde" and 2)

--[[ assert(QuestHelper.faction) ]]

QuestHelper.font = {serif=GameFontNormal:GetFont(), sans=ChatFontNormal:GetFont(), fancy=QuestTitleFont:GetFont()}

function QuestHelper:GetFontPath(list_string, font)
  if list_string then
    for name in string.gmatch(list_string, "[^;]+") do
      if font:SetFont(name, 10) then
        return name
      elseif font:SetFont("Interface\\AddOns\\QuestHelper\\Fonts\\"..name, 10) then
        return "Interface\\AddOns\\QuestHelper\\Fonts\\"..name
      end
    end
  end
end

function QuestHelper:SetLocaleFonts()
  self.font.sans = nil
  self.font.serif = nil
  self.font.fancy = nil

  local font = self:CreateText(self)

  if QuestHelper_Locale ~= QuestHelper_Pref.locale then
    -- Only use alternate fonts if using a language the client wasn't intended for.
    local replacements = QuestHelper_SubstituteFonts[QuestHelper_Pref.locale]
    if replacements then
      self.font.sans = self:GetFontPath(replacements.sans, font)
      self.font.serif = self:GetFontPath(replacements.serif, font)
      self.font.fancy = self:GetFontPath(replacements.fancy, font)
    end
  end

  self.font.sans = self.font.sans or self:GetFontPath(QuestHelper_Pref.locale.."_sans.ttf", font)
  self.font.serif = self.font.serif or self:GetFontPath(QuestHelper_Pref.locale.."_serif.ttf", font) or self.font.sans
  self.font.fancy = self.font.fancy or self:GetFontPath(QuestHelper_Pref.locale.."_fancy.ttf", font) or self.font.serif

  self:ReleaseText(font)

  self.font.sans = self.font.sans or ChatFontNormal:GetFont()
  self.font.serif = self.font.serif or GameFontNormal:GetFont()
  self.font.fancy = self.font.fancy or QuestTitleFont:GetFont()

  -- Need to change the font of the chat frame, for any messages that QuestHelper displays.
  -- This should do nothing if not using an alternate font.
  --DEFAULT_CHAT_FRAME:SetFont(self.font.sans, select(2, DEFAULT_CHAT_FRAME:GetFont()))
  -- what why did we ever do this
end

QuestHelper.route = {}
QuestHelper.to_add = {}
QuestHelper.to_remove = {}
QuestHelper.quest_log = {}
QuestHelper.pos = {nil, {}, 0, 0, 1, "You are here.", 0}
QuestHelper.sharing = false -- Will be set to true when sharing with at least one user.

function QuestHelper.tooltip:GetPrevLines() -- Just a helper to make life easier.
  local last = self:NumLines()
  local name = self:GetName()
  return _G[name.."TextLeft"..last], _G[name.."TextRight"..last]
end

function QuestHelper:SetTargetLocation(i, x, y, toffset)
  -- Informs QuestHelper that you're going to be at some location in toffset seconds.
  local c, z = unpack(QuestHelper_ZoneLookup[i])

  self.target = self:CreateTable()
  self.target[2] = self:CreateTable()

  self.target_time = time()+(toffset or 0)

  x, y = self.Astrolabe:TranslateWorldMapPosition(c, z, x, y, c, 0)
  self.target[1] = self.zone_nodes[i]
  self.target[3] = x * self.continent_scales_x[c]
  self.target[4] = y * self.continent_scales_y[c]

  self:SetTargetLocationRecalculate()
end

function QuestHelper:SetTargetLocationRecalculate()
  if self.target then
    for i, n in ipairs(self.target[1]) do
      local a, b = n.x-self.target[3], n.y-self.target[4]
      self.target[2][i] = math.sqrt(a*a+b*b)
    end
  end
end

function QuestHelper:UnsetTargetLocation()
  -- Unsets the target set above.
  if self.target then
    self:ReleaseTable(self.target[2])
    self:ReleaseTable(self.target)
    self.target = nil
    self.target_time = nil
  end
end

local interruptcount = 0   -- counts how many "played gained control" messages we recieve, used for flight paths
local init_cartographer_later = false


local startup_time
local please_submit_enabled = true
local please_submit_initted = false

local spawned = false
QH_Event("ADDON_LOADED", function (addonid)
  if addonid ~= "QuestHelper" then return end
  
  -- ONLY FAST STUFF ALLOWED IN HERE
  
  -- Use DefaultPref as fallback for unset preference keys.
  setmetatable(QuestHelper_Pref, {__index=QuestHelper_DefaultPref})
  QuestHelper: Assert(QuestHelper_Pref.perfload_scale) -- if this fails, something is very botched
  
  if not QuestHelper_Pref.track or QuestHelper_Pref.hide then
    QuestHelper:HideTracker()
  else
    QuestHelper:ShowTracker()  -- to respect the minimized setting
  end
  
  local self = QuestHelper -- whee hack hack hack
  
  QuestHelper_Loadtime["init2_start"] = GetTime()
  
  local file_problem_version = false
  
  local expected_version = GetAddOnMetadata("QuestHelper", "Version")

  -- Why are we checking to make sure these files load?
  -- Most if not all are named in the toc file.
  local expected_files =
    {
      ["bst_pre.lua"] = true,
      ["bst_post.lua"] = true,
      ["bst_astrolabe.lua"] = true,
      ["bst_ctl.lua"] = true,
      ["bst_libaboutpanel.lua"] = true,
      ["bst_range.lua"] = true,
      
      ["manager_event.lua"] = true,
      ["manager_achievement.lua"] = true,
      ["manager_completed.lua"] = true,
      
      ["upgrade.lua"] = true,
      ["main.lua"] = true,
      ["recycle.lua"] = true,
      ["objective.lua"] = true,
      ["quest.lua"] = true,
      ["utility.lua"] = true,
      ["dodads.lua"] = true,
      ["dodads_triangles.lua"] = true,
      ["teleport.lua"] = true,
      ["pathfinding.lua"] = true,
      ["routing.lua"] = true,
      ["custom.lua"] = true,
      ["menu.lua"] = true,
      ["nag.lua"] = true,
      ["comm.lua"] = true,
      ["mapbutton.lua"] = true,
      ["help.lua"] = true,
      ["pattern.lua"] = true,
      ["flightpath.lua"] = true,
      ["tracker.lua"] = true,
      ["objtips.lua"] = true,
      ["cartographer.lua"] = true,
      ["cartographer_is_terrible.lua"] = true,
      ["tomtom.lua"] = true,
      ["textviewer.lua"] = true,
      ["error.lua"] = true,
      ["timeslice.lua"] = true,
      ["lang.lua"] = true,
      ["core.lua"] = true,
      ["tooltip.lua"] = true,
      ["arrow.lua"] = true,
      ["radar.lua"] = true,
      
      ["config.lua"] = true,

      ["static.lua"] = true,
      ["static_1.lua"] = true,
      ["static_2.lua"] = true,
      ["static_deDE.lua"] = true,
      ["static_deDE_1.lua"] = true,
      ["static_deDE_2.lua"] = true,
      ["static_enUS.lua"] = true,
      ["static_enUS_1.lua"] = true,
      ["static_enUS_2.lua"] = true,
      ["static_esES.lua"] = true,
      ["static_esES_1.lua"] = true,
      ["static_esES_2.lua"] = true,
      ["static_esMX.lua"] = true,
      ["static_esMX_1.lua"] = true,
      ["static_esMX_2.lua"] = true,
      ["static_frFR.lua"] = true,
      ["static_frFR_1.lua"] = true,
      ["static_frFR_2.lua"] = true,
      ["static_koKR.lua"] = true,
      ["static_koKR_1.lua"] = true,
      ["static_koKR_2.lua"] = true,
      ["static_ruRU.lua"] = true,
      ["static_ruRU_1.lua"] = true,
      ["static_ruRU_2.lua"] = true,
      ["static_zhTW.lua"] = true,
      ["static_zhTW_1.lua"] = true,
      ["static_zhTW_2.lua"] = true,

      ["collect.lua"] = true,
      ["collect_achievement.lua"] = true,
      ["collect_lzw.lua"] = true,
      ["collect_traveled.lua"] = true,
      ["collect_zone.lua"] = true,
      ["collect_location.lua"] = true,
      ["collect_merger.lua"] = true,
      ["collect_monster.lua"] = true,
      ["collect_item.lua"] = true,
      ["collect_object.lua"] = true,
      ["collect_loot.lua"] = true,
      ["collect_patterns.lua"] = true,
      ["collect_flight.lua"] = true,
      ["collect_util.lua"] = true,
      ["collect_quest.lua"] = true,
      ["collect_equip.lua"] = true,
      ["collect_notifier.lua"] = true,
      ["collect_bitstream.lua"] = true,
      ["collect_spec.lua"] = true,
      ["collect_upgrade.lua"] = true,
      ["collect_merchant.lua"] = true,
      ["collect_warp.lua"] = true,
      
      ["filter_core.lua"] = true,
      ["filter_base.lua"] = true,
      
      ["routing_debug.lua"] = true,
      ["routing_loc.lua"] = true,
      ["routing_route.lua"] = true,
      ["routing_core.lua"] = true,
      ["routing_controller.lua"] = true,
      ["routing_hidden.lua"] = true,
      
      ["director_quest.lua"] = true,
      ["director_achievement.lua"] = true,
      ["director_find.lua"] = true,
      
      ["db_get.lua"] = true,
      
      ["graph_core.lua"] = true,
      ["graph_flightpath.lua"] = true,
      
      ["AstrolabeQH/Astrolabe.lua"] = true,
      ["AstrolabeQH/AstrolabeMapMonitor.lua"] = true,
    }
    
  local uninstallederr = ""

  -- Why do we make the checks?
  -- QH shouldn't care if an unexpected file is loaded. It is highly unlikely that an unexpected file or version is going to cause an issue.
  --[[ Commenting out for now.
  for file, version in pairs(QuestHelper_File) do
    if not expected_files[file] then
      local errmsg = "Unexpected QuestHelper file: "..file
      DEFAULT_CHAT_FRAME:AddMessage(errmsg)
      uninstallederr = uninstallederr .. "    " .. errmsg .. "\n"
      file_problem_version = true
    elseif version ~= expected_version then
      local errmsg = "Wrong version of QuestHelper file: "..file.." (found '"..version.."', should be '"..expected_version.."')"
      DEFAULT_CHAT_FRAME:AddMessage(errmsg)
      uninstallederr = uninstallederr .. "    " .. errmsg .. "\n"
      if version ~= "Development Version" and expected_version ~= "Development Version" then
        -- Developers are allowed to mix dev versions with release versions
        file_problem_version = true
      end
    end
  end
  --]]

  -- Again, what's the point? If a file doesn't load, WoW will bitch, piss and moan about something bein nil. If it doesn't load, there's probably an error in it.
  --[[ Commenting for now.
  for file in pairs(expected_files) do
    if not QuestHelper_File[file] then
      local errmsg = "Missing QuestHelper file: "..file
      DEFAULT_CHAT_FRAME:AddMessage(errmsg)
      uninstallederr = uninstallederr .. "    " .. errmsg .. "\n"
      if not (expected_version == "Development Version" and file:match("static.*")) then file_problem_version = true end
    end
  end
  --]]
  
  -- Don't need this table anymore.
  QuestHelper_File = nil

  if QuestHelper_StaticData and not QuestHelper_StaticData[GetLocale()] then
    local errmsg = "Static data does not seem to exist"
    DEFAULT_CHAT_FRAME:AddMessage(errmsg)
    
    uninstallederr = uninstallederr .. "    " .. errmsg .. "\n"
    file_problem_version = true
  end

  if file_problem_version then
    QH_fixedmessage(QHText("PLEASE_RESTART"))
    QuestHelper_ErrorCatcher_ExplicitError(false, "not-installed-properly" .. "\n" .. uninstallederr)
    QuestHelper = nil     -- Just in case anybody else is checking for us, we're not home
    return
  end
  
  if not GetCategoryList or not GetQuestLogSpecialItemInfo or not WatchFrame_RemoveObjectiveHandler then
    QH_fixedmessage(QHText("PRIVATE_SERVER"))
    QuestHelper_ErrorCatcher_ExplicitError(false, "error id cakbep ten T")
    QuestHelper = nil
    return
  end
  
  if not DongleStub or not QH_Astrolabe_Ready then
    QH_fixedmessage(QHText("NOT_UNZIPPED_CORRECTLY"))
    QuestHelper_ErrorCatcher_ExplicitError(false, "not-unzipped-properly")
    QuestHelper = nil     -- Just in case anybody else is checking for us, we're not home
    return
  end

  QuestHelper_ErrorCatcher_CompletelyStarted()
  
  if not QuestHelper_StaticData then
    -- If there is no static data for some mysterious reason, create an empty table so that
    -- other parts of the code can carry on as usual, using locally collected data if it exists.
    QuestHelper_StaticData = {}
  end

  QHFormatSetLocale(QuestHelper_Pref.locale or GetLocale())

  if not QuestHelper_UID then
    QuestHelper_UID = self:CreateUID()
  end
  QuestHelper_SaveDate = time()
  
  
  QH_Timeslice_Add(function ()
    QuestHelper_Loadtime["init3_start"] = GetTime()
    
    QuestHelper.loading_main = QuestHelper.CreateLoadingCounter()
    
    QuestHelper.loading_init3 = QuestHelper.loading_main:MakeSubcategory(0.3)
    QuestHelper.loading_flightpath = QuestHelper.loading_main:MakeSubcategory(1)
    QuestHelper.loading_preroll = QuestHelper.loading_main:MakeSubcategory(1)
    
    local stt = 0
    
    -- This is where the slow stuff goes
    QuestHelper_BuildZoneLookup()
    QH_Graph_Init()
    load_graph_links()
    
    if QuestHelper_Locale ~= GetLocale() then
      self:TextOut(QHText("LOCALE_ERROR"))
      return
    end

    if not self:ZoneSanity() then
      self:TextOut(QHFormat("ZONE_LAYOUT_ERROR", expected_version))
      QH_fixedmessage(QHFormat("ZONE_LAYOUT_ERROR", expected_version))
      QuestHelper = nil
      return
    end
    
    QuestHelper_UpgradeDatabase(_G)
    QuestHelper_UpgradeComplete()
    
    if QuestHelper_IsPolluted(_G) then
      self:TextOut(QHFormat("NAG_POLLUTED"))
      self:Purge(nil, true, true)
    end

    local signature = expected_version .. " on " .. GetBuildInfo()
    QuestHelper_Quests[signature] = QuestHelper_Quests[signature] or {}
    QuestHelper_Objectives[signature] = QuestHelper_Objectives[signature] or {}
    QuestHelper_FlightInstructors[signature] = QuestHelper_FlightInstructors[signature] or {}
    QuestHelper_FlightRoutes[signature] = QuestHelper_FlightRoutes[signature] or {}
    
    QuestHelper_Quests_Local = QuestHelper_Quests[signature]
    QuestHelper_Objectives_Local = QuestHelper_Objectives[signature]
    QuestHelper_FlightInstructors_Local = QuestHelper_FlightInstructors[signature]
    QuestHelper_FlightRoutes_Local = QuestHelper_FlightRoutes[signature]
    
    QuestHelper_SeenRealms[GetRealmName()] = true -- some attempt at tracking private servers
    
    QuestHelper.loading_init3:SetPercentage(0.1)
    QH_Collector_Init()
    QuestHelper.loading_init3:SetPercentage(0.5)
    DB_Init()
    QuestHelper.loading_init3:SetPercentage(0.9)
    
    self.player_level = UnitLevel("player")

    self:SetLocaleFonts()

    if QuestHelper_Pref.share and not QuestHelper_Pref.solo then
      self:EnableSharing()
    end
  
    if QuestHelper_Pref.hide then
      self.map_overlay:Hide()
    end
  
    self:HandlePartyChange()

    self:Nag("all")

    for locale in pairs(QuestHelper_StaticData) do
      if locale ~= self.locale then
        -- Will delete references to locales you don't use.
        QuestHelper_StaticData[locale] = nil
        _G["QuestHelper_StaticData_" .. locale] = nil
      end
    end

    local static = QuestHelper_StaticData[self.locale]
  
    if static then
      if static.flight_instructors then for faction in pairs(static.flight_instructors) do
        if faction ~= self.faction then
          -- Will delete references to flight instructors that don't belong to your faction.
          static.flight_instructors[faction] = nil
        end
      end end

      if static.quest then for faction in pairs(static.quest) do
        if faction ~= self.faction then
          -- Will delete references to quests that don't belong to your faction.
          static.quest[faction] = nil
        end
      end end
    end
    
    -- Adding QuestHelper_CharVersion, so I know if I've already converted this characters saved data.
    if not QuestHelper_CharVersion then
      -- Changing per-character flight routes, now only storing the flight points they have,
      -- will attempt to guess the routes from this.
      local routes = {}

      for i, l in pairs(QuestHelper_KnownFlightRoutes) do
        for key in pairs(l) do
          routes[key] = true
        end
      end

      QuestHelper_KnownFlightRoutes = routes

      -- Deleting the player's home again.
      -- But using the new CharVersion variable I'm adding is cleaner that what I was doing, so I'll go with it.
      QuestHelper_Home = nil
      QuestHelper_CharVersion = 1
    end

    if not QuestHelper_Home then
      -- Not going to bother complaining about the player's home not being set, uncomment this when the home is used in routing.
      -- self:TextOut(QHText("HOME_NOT_KNOWN"))
    end

    if QuestHelper_Pref.map_button then
        QuestHelper:InitMapButton()
    end
    
    if QuestHelper_Pref.cart_wp_new then
      init_cartographer_later = true
    end

    if QuestHelper_Pref.tomtom_wp_new then
      self:EnableTomTom()
    end

    self.tracker:SetScale(QuestHelper_Pref.track_scale)

    local version = GetAddOnMetadata("QuestHelper", "Version") or "Unknown"

    local major, minor = (version_string or ""):match("^(%d+)%.(%d+)")
    major, minor = tonumber(major), tonumber(minor)

    -- For versions before 0.82, we're changing the default level offset to 3.
    if major == 0 and minor and minor < 82 and QuestHelper_Pref.level == 2 then
      QuestHelper_Pref.level = nil
    end
    
    -- For versions before 0.84...
    if major == 0 and minor and minor < 84 then
      -- remove all keys that match their default setting.
      for key, val in pairs(QuestHelper_DefaultPref) do
        if QuestHelper_Pref[key] == val then
          QuestHelper_Pref[key] = nil
        end
      end
    end

    QH_Hook(self, "OnUpdate", self.OnUpdate)

    -- Seems to do its own garbage collection pass before fully loading, so I'll just rely on that
    --collectgarbage("collect") -- Free everything we aren't using.

    --[[
    if self.debug_objectives then
      for name, data in pairs(self.debug_objectives) do
        self:LoadDebugObjective(name, data)
      end
    end]]
    
    -- wellllp
    QH_Arrow_SetScale()
    QH_Arrow_SetTextScale()
    
    --[[
    QH_Timeslice_Add(function ()
      self:ResetPathing()
      self.Routing:Initialize()       -- Set up the routing task
    end, "init")]] -- FUCK YOU BOXBOT
    
    --[[ -- This is just an example of how the WoW profiler biases its profiles heavily.  
    function C()
    end
    
    function A()
      q = 0
      for x = 0, 130000000, 1 do
      end
    end

    function B()
      q = 0
      for x = 0, 12000000, 1 do
        C()
      end
    end

    function B2()
      q = 0
      for x = 0, 1200000, 1 do
        --q = q + x
        C()
      end
    end
    
    debugprofilestart()
    
    local ta = debugprofilestop()
    A()
    local tb = debugprofilestop()
    B()
    local tc = debugprofilestop()
    
    QuestHelper:TextOut(string.format("%d %d %d", ta, tb - ta, tc - tb))
    QuestHelper:TextOut(string.format("%d %d", GetFunctionCPUUsage(A), GetFunctionCPUUsage(B)))
    
    --/script SetCVar("scriptProfile", value)]]
    
    
    QH_Event("CHAT_MSG_ADDON", function (...)
      if arg1 == "QHpr" and arg4 ~= UnitName("player") then
        QH_Questcomm_Msg(arg2, arg4)
      end
    end)

    QH_Event({"PARTY_MEMBERS_CHANGED", "UNIT_LEVEL", "RAID_ROSTER_UPDATE"}, function ()
      QH_Filter_Group_Sync()
      QH_Route_Filter_Rescan("filter_quest_level")
      --QH_Route_Filter_Rescan("filter_quest_group")
      --QH_Route_Filter_Rescan("filter_quest_raid_accessible")  -- These should be in right now, but for simplicity's sake we're actually scanning everything when we get a rescan request. So they're unnecessary. PUT THEM BACK should they become necessary.
    end)
    
    QH_Event({"PARTY_MEMBERS_CHANGED", "RAID_ROSTER_UPDATE"}, function ()
      QH_Questcomm_Sync()
    end)
    
    QH_Event("PLAYER_LEVEL_UP", function ()
      self.player_level = arg1
      QH_Route_Filter_Rescan("filter_quest_level")
    end)
    
    QH_Event("TAXIMAP_OPENED", function ()
      self:taxiMapOpened()
    end)
    
    QH_Event({"ZONE_CHANGED", "ZONE_CHANGED_INDOORS", "ZONE_CHANGED_NEW_AREA"}, function()
      QH_Route_Filter_Rescan(nil, true)
    end)
    
    QH_Event("CHAT_MSG_CHANNEL_NOTICE", function()
      if please_submit_enabled and not please_submit_initted then
        please_submit_enabled = QHNagInit()
        startup_time = GetTime()
        please_submit_initted = true
      end
    end)
    
    QuestHelper.loading_init3:SetPercentage(1.0)  -- victory
    
    QuestHelper_Loadtime["init3_end"] = GetTime()
  end, "preinit")
  
  QuestHelper_Loadtime["init2_end"] = GetTime()
end)


--[==[
function QuestHelper:OnEvent(event)
  local tstart = GetTime()
  
  --[[
  if event == "GOSSIP_SHOW" then
    local name, id = UnitName("npc"), self:GetUnitID("npc")
    if name and id then
      self:GetObjective("monster", name).o.id = id
      --self:TextOut("NPC: "..name.." = "..id)
    end
  end]]

  --[[if event == "PLAYER_TARGET_CHANGED" then
    local name, id = UnitName("target"), self:GetUnitID("target")
    if name and id then
      self:GetObjective("monster", name).o.id = id
      --self:TextOut("Target: "..name.." = "..id)
    end

    if UnitExists("target") and UnitIsVisible("target") and UnitCreatureType("target") ~= "Critter" and not UnitIsPlayer("target") and not UnitPlayerControlled("target") then
      local index, x, y = self:UnitPosition("target")

      if index then -- Might not have a position if inside an instance.
        local w = 0.1

        -- Modify the weight based on how far they are from us.
        -- We don't know the exact location (using our own location), so the farther, the less sure we are that it's correct.
        if CheckInteractDistance("target", 3) then w = 1
        elseif CheckInteractDistance("target", 2) then w = 0.89
        elseif CheckInteractDistance("target", 1) or CheckInteractDistance("target", 4) then w = 0.33 end

        local monster_objective = self:GetObjective("monster", UnitName("target"))
        self:AppendObjectivePosition(monster_objective, index, x, y, w)

        monster_objective.o.faction = (UnitFactionGroup("target") == "Alliance" and 1) or
                                      (UnitFactionGroup("target") == "Horde" and 2) or nil

        local level = UnitLevel("target")
        if level and level >= 1 then
          local w = monster_objective.o.levelw or 0
          monster_objective.o.level = ((monster_objective.o.level or 0)*w+level)/(w+1)
          monster_objective.o.levelw = w+1
        end
      end
    end
  end]]

  --[[if event == "LOOT_OPENED" then
    local target = UnitName("target")
    if target and UnitIsDead("target") and UnitCreatureType("target") ~= "Critter" and not UnitIsPlayer("target") and not UnitPlayerControlled("target") then
      local index, x, y = self:UnitPosition("target")

      local monster_objective = self:GetObjective("monster", target)
      monster_objective.o.looted = (monster_objective.o.looted or 0) + 1

      if index then -- Might not have a position if inside an instance.
        self:AppendObjectivePosition(monster_objective, index, x, y)
      end

      for i = 1, GetNumLootItems() do
        local icon, name, number, rarity = GetLootSlotInfo(i)
        if name then
          if number and number >= 1 then
            self:AppendItemObjectiveDrop(self:GetObjective("item", name), name, target, number)
          else
            local total = (name:match(COPPER_AMOUNT:gsub("%%d", "%(%%d+%)")) or 0) +
                          (name:match(SILVER_AMOUNT:gsub("%%d", "%(%%d+%)")) or 0) * 100 +
                          (name:match(GOLD_AMOUNT:gsub("%%d", "%(%%d+%)")) or 0) * 10000

            if total > 0 then
              self:AppendObjectiveDrop(self:GetObjective("item", "money"), target, total)
            end
          end
        end
      end
    else
      local container = nil

      -- Go through the players inventory and look for a locked item, we're probably looting it.
      for bag = 0,NUM_BAG_SLOTS do
        for slot = 1,GetContainerNumSlots(bag) do
          local link = GetContainerItemLink(bag, slot)
          if link and select(3, GetContainerItemInfo(bag, slot)) then
            if container == nil then
              -- Found a locked item and haven't previously assigned to container, assign its name, or false if we fail to parse it.
              container = select(3, string.find(link, "|h%[(.+)%]|h|r")) or false
            else
              -- Already tried to assign to a container. If there are multiple locked items, we give up.
              container = false
            end
          end
        end
      end

      if container then
        local container_objective = self:GetObjective("item", container)
        container_objective.o.opened = (container_objective.o.opened or 0) + 1

        for i = 1, GetNumLootItems() do
          local icon, name, number, rarity = GetLootSlotInfo(i)
          if name and number >= 1 then
            self:AppendItemObjectiveContainer(self:GetObjective("item", name), container, number)
          end
        end
      else
        -- No idea where the items came from.
        local index, x, y = self:PlayerPosition()

        if index then
          for i = 1, GetNumLootItems() do
            local icon, name, number, rarity = GetLootSlotInfo(i)
            if name and number >= 1 then
              self:AppendItemObjectivePosition(self:GetObjective("item", name), name, index, x, y)
            end
          end
        end
      end
    end
  end]]

  --[[if event == "CHAT_MSG_SYSTEM" then
    local home_name = self:convertPattern(ERR_DEATHBIND_SUCCESS_S)(arg1)
    if home_name then
      if self.i then
        self:TextOut(QHText("HOME_CHANGED"))
        self:TextOut(QHText("WILL_RESET_PATH"))

        local home = QuestHelper_Home
        if not home then
          home = {}
          QuestHelper_Home = home
        end

        home[1], home[2], home[3], home[4] = self.i, self.x, self.y, home_name
        self.defered_graph_reset = true
      end
    end
  end]]


  

  --[[if event == "QUEST_DETAIL" then
    if not self.quest_giver then self.quest_giver = {} end
    local npc = UnitName("npc")
    if npc then
      -- Some NPCs aren't actually creatures, and so their positions might not be marked by PLAYER_TARGET_CHANGED.
      local index, x, y = self:UnitPosition("npc")

      if index then -- Might not have a position if inside an instance.
        local npc_objective = self:GetObjective("monster", npc)
        self:AppendObjectivePosition(npc_objective, index, x, y)
        self.quest_giver[GetTitleText()] = npc
      end
    end
  end]]

  --[[if event == "QUEST_COMPLETE" or event == "QUEST_PROGRESS" then
    local quest = GetTitleText()
    if quest then
      local level, hash = self:GetQuestLevel(quest)
      if not level or level < 1 then
        --self:TextOut("Don't know quest level for ".. quest.."!")
        return
      end
      local q = self:GetQuest(quest, level, hash)

      if q.need_hash then
        q.o.hash = hash
      end

      local unit = UnitName("npc")
      if unit then
        q.o.finish = unit
        q.o.pos = nil

        -- Some NPCs aren't actually creatures, and so their positions might not be marked by PLAYER_TARGET_CHANGED.
        local index, x, y = self:UnitPosition("npc")
        if index then -- Might not have a position if inside an instance.
          local npc_objective = self:GetObjective("monster", unit)
          self:AppendObjectivePosition(npc_objective, index, x, y)
        end
      elseif not q.o.finish then
        local index, x, y = self:PlayerPosition()
        if index then -- Might not have a position if inside an instance.
          self:AppendObjectivePosition(q, index, x, y)
        end
      end
    end
  end]]

  --[[if event == "MERCHANT_SHOW" then
    local npc_name = UnitName("npc")
    if npc_name then
      local npc_objective = self:GetObjective("monster", npc_name)
      local index = 1
      while true do
        local item_name = GetMerchantItemInfo(index)
        if item_name then
          index = index + 1
          local item_objective = self:GetObjective("item", item_name)
          if not item_objective.o.vendor then
            item_objective.o.vendor = {npc_name}
          else
            local known = false
            for i, vendor in ipairs(item_objective.o.vendor) do
              if npc_name == vendor then
                known = true
                break
              end
            end
            if not known then
              table.insert(item_objective.o.vendor, npc_name)
            end
          end
        else
          break
        end
      end
    end
  end]]

  if event == "TAXIMAP_OPENED" then
    self:taxiMapOpened()
  end
  
  --[[if event == "PLAYER_CONTROL_GAINED" then
    interruptcount = interruptcount + 1
  end]]

  --[[if event == "BAG_UPDATE" then
    for slot = 1,GetContainerNumSlots(arg1) do
      local link = GetContainerItemLink(arg1, slot)
      if link then
        local id, name = select(3, string.find(link, "|Hitem:(%d+):.-|h%[(.-)%]|h"))
        if name then
          self:GetObjective("item", name).o.id = tonumber(id)
        end
      end
    end
  end]]
  

  
  if event == "ZONE_CHANGED" or event == "ZONE_CHANGED_INDOORS" or event == "ZONE_CHANGED_NEW_AREA" then
    QH_Route_Filter_Rescan()
  end
  
  QH_Timeslice_Increment(GetTime() - tstart, "event")
end]==]

local map_shown_decay = 0
local delayed_action = 100
--local update_count = 0
local ontaxi = false
local frams = 0

QH_OnUpdate_High(function ()
  local self = QuestHelper -- hoorj
  local tstart = GetTime()
  frams = frams + 1
  
  if not QuestHelper_Loadtime["onupdate"] then QuestHelper_Loadtime["onupdate"] = GetTime() end
  
  if false and frams == 60 then
    self:ShowText([[
This is a |cffff8000beta of QuestHelper|r. Be warned: It may crash. It may lock up. It may give bad advice. It may spew errors. It shouldn't spam people, delete your hard-won epics, or make your computer catch on fire, but technically I'm giving no guarantees. |cffff8000If you want a polished, functioning product, close WoW, download the official QH release from curse.com, and use that.|r

Known bugs and issues include:

  |cff40bbffNo support for "/qh find"|r
    
  |cff40bbffNo support for in-party quest synchronization|r

These may not be fixed before the official 1.0 release - I'm hoping to get them all finished up in time for 1.1.

If you encounter any issue besides the ones listed here, please please please report it, if you're reading this you know how to get in contact with me anyway.

Thanks for testing!]], "QuestHelper " .. version_string, 500, 20, 10)
  end
  
  --if frams == 5000 then please_submit_enabled = false end -- TOOK TOO LONG >:(
  if please_submit_enabled and startup_time and startup_time + 10 < GetTime() then
    QuestHelper:TextOut(QHText("PLEASE_SUBMIT"))
    startup_time = nil
    please_submit_enabled = false
  end
  QHUpdateNagTick() -- These probably shouldn't be in OnUpdate. Eventually I'll move them somewhere cleaner.
  
  if init_cartographer_later and Cartographer_Waypoints then    -- there has to be a better way to do this
    init_cartographer_later = false
    if QuestHelper_Pref.cart_wp_new then
      self:EnableCartographer()
    end
  end
  
  if not ontaxi and UnitOnTaxi("player") then
    self:flightBegan()
    interruptcount = 0
  elseif ontaxi and not UnitOnTaxi("player") then
    self:flightEnded(interruptcount > 1)
  end
  ontaxi = UnitOnTaxi("player")
  
  -- For now I'm ripping out the update_count code
  --update_count = update_count - 1
  --if update_count <= 0 then

    -- Reset the update count for next time around; this will make sure the body executes every time
    -- when perf_scale_2 >= 1, and down to 1 in 10 iterations when perf_scale_2 < 1, or when hidden.
    --update_count = update_count + (QuestHelper_Pref.hide and 10 or 1/QuestHelper_Pref.perf_scale_2)

    --if update_count < 0 then
      -- Make sure the count doesn't go perpetually negative; don't know what will happen if it underflows.
      --update_count = 0
    --end

    if self.Astrolabe.WorldMapVisible then
      -- We won't trust that the zone returned by Astrolabe is correct until map_shown_decay is 0.
      map_shown_decay = 2
    elseif map_shown_decay > 0 then
      map_shown_decay = map_shown_decay - 1
    else
      --SetMapToCurrentZone() -- not sure why this existed
    end

    --[[delayed_action = delayed_action - 1
    if delayed_action <= 0 then
      delayed_action = 100
      self:HandlePartyChange()
    end]]

    local nc, nz, nx, ny = self.Astrolabe:GetCurrentPlayerPosition()
    local tc, tx, ty
    
    if nc and nc ~= -1 then -- We just want the raw data here, before we've done anything clever.
      tc, tx, ty = self.Astrolabe:GetAbsoluteContinentPosition(nc, nz, nx, ny)
      QuestHelper: Assert(tc and tx and ty)  -- is it true? nobody knows! :D
    end
    
    if nc and nc == self.c and map_shown_decay > 0 and self.z > 0 and self.z ~= nz then
      -- There's a chance Astrolable will return the wrong zone if you're messing with the world map, if you can
      -- be seen in that zone but aren't in it.
      local nnx, nny = self.Astrolabe:TranslateWorldMapPosition(nc, nz, nx, ny, nc, self.z)
      if nnx > 0 and nny > 0 and nnx < 1 and nny < 1 then
        nz, nx, ny = self.z, nnx, nny
      end
    end
    
    if nc and nc > 0 and nz == 0 and nc == self.c and self.z > 0 then
      nx, ny = self.Astrolabe:TranslateWorldMapPosition(nc, nz, nx, ny, nc, self.z)
      if nx and ny --[[and nx > -0.1 and ny > -0.1 and nx < 1.1 and ny < 1.1]] then -- removing the conditional because I think I can use the data even when it's a little wonky
        nz = self.z
      else
        nc, nz, nx, ny = nil, nil, nil, nil
      end
    end

    if nc and nz > 0 and QuestHelper_IndexLookup[nc] then -- QuestHelper_IndexLookup is only initialized after we've finished the preinit step
      self.c, self.z, self.x, self.y = nc, nz, nx, ny
      local upd_zone = false
      if self.i ~= QuestHelper_IndexLookup[nc][nz] then upd_zone = true end
      self.i = QuestHelper_IndexLookup[nc][nz]
      if upd_zone then QH_Route_Filter_Rescan("filter_zone") end
    end
    
    if nc and nz and nx and ny and tc and tx and ty then
      self.collect_rc, self.collect_rz, self.collect_rx, self.collect_ry = nc, nz, nx, ny
      self.collect_ac, self.collect_ax, self.collect_ay = tc, tx, ty
      self.collect_delayed = false
      
      local ibi = self.InBrokenInstance
      if nc < -77 then self.InBrokenInstance = true else self.InBrokenInstance = false end
      
      if ibi and not self.InBrokenInstance then self.minimap_marker:OnUpdate(0) end -- poke
    else
      self.collect_delayed = true
      self.InBrokenInstance = true
    end
    
    if not UnitOnTaxi("player") and not UnitIsDeadOrGhost("player") then
      QuestHelper.routing_ac, QuestHelper.routing_ax, QuestHelper.routing_ay, QuestHelper.routing_c, QuestHelper.routing_z = QuestHelper.collect_ac, QuestHelper.collect_ax, QuestHelper.collect_ay, QuestHelper.c, QuestHelper.z
    end

    QH_Timeslice_Toggle("routing", not not self.c)
    
    self:PumpCommMessages()
  --end
end)

-- Some or all of these may be nil. c,x,y should be enough for a location - c is the pure continent (currently either 0 or 3 for Azeroth or Outland, or -77 for the DK starting zone) and x,y are the coordinates within that continent.
-- rc and rz are the continent and zone that Questhelper thinks it's within. For various reasons, this isn't perfect. TODO: Base it off the map zone name identifiers instead of the map itself?
function QuestHelper:Location_RawRetrieve()
  return self.collect_delayed, self.collect_rc, self.collect_rz, self.collect_rx, self.collect_ry
end
function QuestHelper:Location_AbsoluteRetrieve()
  return self.collect_delayed, self.collect_ac, self.collect_ax, self.collect_ay
end

--QH_Hook(QuestHelper, "OnEvent", QuestHelper.OnEvent)