main.lua

   1 QuestHelper_File["main.lua"] = "Development Version"
   2
   3 QuestHelper = CreateFrame("Frame", "QuestHelper", nil)
   4
   5 -- Just to make sure it's always 'seen' (there's nothing that can be seen, but still...), and therefore always updating.
   6 QuestHelper:SetFrameStrata("TOOLTIP")
   7
   8 QuestHelper_SaveVersion = 10
   9 QuestHelper_CharVersion = 1
  10 QuestHelper_Locale = GetLocale() -- This variable is used only for the collected data, and has nothing to do with displayed text.
  11 QuestHelper_Quests = {}
  12 QuestHelper_Objectives = {}
  13
  14 QuestHelper_Pref =
  15  {}
  16
  17 QuestHelper_DefaultPref =
  18  {
  19   filter_level=true,
  20   filter_zone=false,
  21   filter_done=false,
  22   filter_blocked=false, -- Hides blocked objectives, such as quest turn-ins for incomplete quests
  23   filter_watched=false, -- Limits to Watched objectives
  24   track=true,
  25   track_minimized=false,
  26   track_scale=1,
  27   track_level=true,
  28   track_qcolour=true,
  29   track_ocolour=true,
  30   track_size=8,
  31   tooltip=true,
  32   share = true,
  33   scale = 1,
  34   solo = false,
  35   comm = false,
  36   show_ants = true,
  37   level = 2,
  38   hide = false,
  39   cart_wp = true,
  40   tomtom_wp = true,
  41   flight_time = true,
  42   locale = GetLocale(), -- This variable is used for display purposes, and has nothing to do with the collected data.
  43   perf_scale = 1,       -- How much background processing can the current machine handle?  Higher means more load, lower means better performance.
  44   map_button = true
  45  }
  46
  47 QuestHelper_FlightInstructors = {}
  48 QuestHelper_FlightLinks = {}
  49 QuestHelper_FlightRoutes = {}
  50 QuestHelper_KnownFlightRoutes = {}
  51 QuestHelper_SeenRealms = {}
  52
  53 QuestHelper.tooltip = CreateFrame("GameTooltip", "QuestHelperTooltip", nil, "GameTooltipTemplate")
  54 QuestHelper.objective_objects = {}
  55 QuestHelper.user_objectives = {}
  56 QuestHelper.quest_objects = {}
  57 QuestHelper.player_level = 1
  58 QuestHelper.locale = QuestHelper_Locale
  59
  60 QuestHelper.faction = (UnitFactionGroup("player") == "Alliance" and 1) or
  61                       (UnitFactionGroup("player") == "Horde" and 2)
  62
  63 assert(QuestHelper.faction)
  64
  65 QuestHelper.font = {serif=GameFontNormal:GetFont(), sans=ChatFontNormal:GetFont(), fancy=QuestTitleFont:GetFont()}
  66
  67 function QuestHelper:GetFontPath(list_string, font)
  68   if list_string then
  69     for name in string.gmatch(list_string, "[^;]+") do
  70       if font:SetFont(name, 10) then
  71         return name
  72       elseif font:SetFont("Interface\\AddOns\\QuestHelper\\Fonts\\"..name, 10) then
  73         return "Interface\\AddOns\\QuestHelper\\Fonts\\"..name
  74       end
  75     end
  76   end
  77 end
  78
  79 function QuestHelper:SetLocaleFonts()
  80   self.font.sans = nil
  81   self.font.serif = nil
  82   self.font.fancy = nil
  83
  84   local font = self:CreateText(self)
  85
  86   if QuestHelper_Locale ~= QuestHelper_Pref.locale then
  87     -- Only use alternate fonts if using a language the client wasn't intended for.
  88     local replacements = QuestHelper_SubstituteFonts[QuestHelper_Pref.locale]
  89     if replacements then
  90       self.font.sans = self:GetFontPath(replacements.sans, font)
  91       self.font.serif = self:GetFontPath(replacements.serif, font)
  92       self.font.fancy = self:GetFontPath(replacements.fancy, font)
  93     end
  94   end
  95
  96   self.font.sans = self.font.sans or self:GetFontPath(QuestHelper_Pref.locale.."_sans.ttf", font)
  97   self.font.serif = self.font.serif or self:GetFontPath(QuestHelper_Pref.locale.."_serif.ttf", font) or self.font.sans
  98   self.font.fancy = self.font.fancy or self:GetFontPath(QuestHelper_Pref.locale.."_fancy.ttf", font) or self.font.serif
  99
 100   self:ReleaseText(font)
 101
 102   self.font.sans = self.font.sans or ChatFontNormal:GetFont()
 103   self.font.serif = self.font.serif or GameFontNormal:GetFont()
 104   self.font.fancy = self.font.fancy or QuestTitleFont:GetFont()
 105
 106   -- Need to change the font of the chat frame, for any messages that QuestHelper displays.
 107   -- This should do nothing if not using an alternate font.
 108   DEFAULT_CHAT_FRAME:SetFont(self.font.sans, select(2, DEFAULT_CHAT_FRAME:GetFont()))
 109 end
 110
 111 QuestHelper.route = {}
 112 QuestHelper.to_add = {}
 113 QuestHelper.to_remove = {}
 114 QuestHelper.quest_log = {}
 115 QuestHelper.pos = {nil, {}, 0, 0, 1, "You are here.", 0}
 116 QuestHelper.sharing = false -- Will be set to true when sharing with at least one user.
 117
 118 function QuestHelper.tooltip:GetPrevLines() -- Just a helper to make life easier.
 119   local last = self:NumLines()
 120   local name = self:GetName()
 121   return _G[name.."TextLeft"..last], _G[name.."TextRight"..last]
 122 end
 123
 124 function QuestHelper:SetTargetLocation(i, x, y, toffset)
 125   -- Informs QuestHelper that you're going to be at some location in toffset seconds.
 126   local c, z = unpack(QuestHelper_ZoneLookup[i])
 127
 128   self.target = self:CreateTable()
 129   self.target[2] = self:CreateTable()
 130
 131   self.target_time = time()+(toffset or 0)
 132
 133   x, y = self.Astrolabe:TranslateWorldMapPosition(c, z, x, y, c, 0)
 134   self.target[1] = self.zone_nodes[i]
 135   self.target[3] = x * self.continent_scales_x[c]
 136   self.target[4] = y * self.continent_scales_y[c]
 137
 138   self:SetTargetLocationRecalculate()
 139 end
 140
 141 function QuestHelper:SetTargetLocationRecalculate()
 142   if self.target then
 143     for i, n in ipairs(self.target[1]) do
 144       local a, b = n.x-self.target[3], n.y-self.target[4]
 145       self.target[2][i] = math.sqrt(a*a+b*b)
 146     end
 147   end
 148 end
 149
 150 function QuestHelper:UnsetTargetLocation()
 151   -- Unsets the target set above.
 152   if self.target then
 153     self:ReleaseTable(self.target[2])
 154     self:ReleaseTable(self.target)
 155     self.target = nil
 156     self.target_time = nil
 157   end
 158 end
 159
 160 local interruptcount = 0   -- counts how many "played gained control" messages we recieve, used for flight paths
 161 local init_cartographer_later = false
 162
 163 function QuestHelper:Initialize()
 164   local file_problem = false
 165   local expected_version = GetAddOnMetadata("QuestHelper", "Version")
 166
 167   local expected_files =
 168     {
 169      ["upgrade.lua"] = true,
 170      ["main.lua"] = true,
 171      ["recycle.lua"] = true,
 172      ["objective.lua"] = true,
 173      ["quest.lua"] = true,
 174      ["questlog.lua"] = true,
 175      ["utility.lua"] = true,
 176      ["dodads.lua"] = true,
 177      ["graph.lua"] = true,
 178      ["teleport.lua"] = true,
 179      ["pathfinding.lua"] = true,
 180      ["routing.lua"] = true,
 181      ["custom.lua"] = true,
 182      ["menu.lua"] = true,
 183      ["hidden.lua"] = true,
 184      ["nag.lua"] = true,
 185      ["comm.lua"] = true,
 186      ["mapbutton.lua"] = true,
 187      ["help.lua"] = true,
 188      ["pattern.lua"] = true,
 189      ["flightpath.lua"] = true,
 190      ["tracker.lua"] = true,
 191      ["objtips.lua"] = true,
 192      ["cartographer.lua"] = true,
 193      ["tomtom.lua"] = true,
 194      ["textviewer.lua"] = true,
 195      ["error.lua"] = true,
 196      ["timeslice.lua"] = true,
 197
 198      ["static.lua"] = true,
 199      ["static_deDE.lua"] = true,
 200      ["static_enUS.lua"] = true,
 201      ["static_esES.lua"] = true,
 202      ["static_esMX.lua"] = true,
 203      ["static_frFR.lua"] = true,
 204      ["static_koKR.lua"] = true,
 205      ["static_ruRU.lua"] = true,
 206      ["static_zhCN.lua"] = true,
 207      ["static_zhTW.lua"] = true,
 208
 209      ["collect.lua"] = true,
 210      ["collect_achievement.lua"] = true,
 211      ["collect_lzw.lua"] = true,
 212      ["collect_traveled.lua"] = true,
 213      ["collect_zone.lua"] = true,
 214      ["collect_location.lua"] = true,
 215      ["collect_merger.lua"] = true,
 216      ["collect_monster.lua"] = true,
 217      ["collect_item.lua"] = true,
 218      ["collect_object.lua"] = true,
 219      ["collect_loot.lua"] = true,
 220      ["collect_patterns.lua"] = true,
 221      ["collect_flight.lua"] = true,
 222     }
 223
 224   for file, version in pairs(QuestHelper_File) do
 225     if not expected_files[file] then
 226       DEFAULT_CHAT_FRAME:AddMessage("Unexpected QuestHelper file: "..file)
 227       file_problem = true
 228     elseif version ~= expected_version then
 229       DEFAULT_CHAT_FRAME:AddMessage("Wrong version of QuestHelper file: "..file.." (found '"..version.."', should be '"..expected_version.."')")
 230       if version ~= "Development Version" and expected_version ~= "Development Version" then
 231         -- Developers are allowed to mix dev versions with release versions
 232         file_problem = true
 233       end
 234     end
 235   end
 236
 237   for file in pairs(expected_files) do
 238     if not QuestHelper_File[file] then
 239       DEFAULT_CHAT_FRAME:AddMessage("Missing QuestHelper file: "..file)
 240       file_problem = true
 241     end
 242   end
 243
 244   -- Don't need this table anymore.
 245   QuestHelper_File = nil
 246
 247   if QuestHelper_StaticData and not QuestHelper_StaticData[GetLocale()] then
 248     file_problem = true
 249     DEFAULT_CHAT_FRAME:AddMessage("Static data does not seem to exist")
 250   end
 251
 252   if file_problem then
 253     message(QHText("PLEASE_RESTART"))
 254     QuestHelper_ErrorCatcher_ExplicitError("not-installed-properly")
 255     QuestHelper = nil     -- Just in case anybody else is checking for us, we're not home
 256     return
 257   end
 258
 259   if not GetCategoryList then
 260     message(QHText("PRIVATE_SERVER"))
 261     QuestHelper_ErrorCatcher_ExplicitError("error id cakbep ten T")
 262     QuestHelper = nil
 263     return
 264   end
 265
 266   if not DongleStub then
 267     message(QHText("NOT_UNZIPPED_CORRECTLY"))
 268     QuestHelper_ErrorCatcher_ExplicitError("not-unzipped-properly")
 269     QuestHelper = nil     -- Just in case anybody else is checking for us, we're not home
 270     return
 271   end
 272
 273   QuestHelper_ErrorCatcher_CompletelyStarted()
 274
 275   if not QuestHelper_StaticData then
 276     -- If there is no static data for some mysterious reason, create an empty table so that
 277     -- other parts of the code can carry on as usual, using locally collected data if it exists.
 278     QuestHelper_StaticData = {}
 279   end
 280
 281   QHFormatSetLocale(QuestHelper_Pref.locale or GetLocale())
 282
 283   if not QuestHelper_UID then
 284     QuestHelper_UID = self:CreateUID()
 285   end
 286   QuestHelper_SaveDate = time()
 287
 288   self.Astrolabe = DongleStub("Astrolabe-0.4-QuestHelper")
 289   QuestHelper_BuildZoneLookup()
 290
 291   if QuestHelper_Locale ~= GetLocale() then
 292     self:TextOut(QHText("LOCALE_ERROR"))
 293     return
 294   end
 295
 296   if not self:ZoneSanity() then
 297     self:TextOut(QHText("ZONE_LAYOUT_ERROR"))
 298     message("QuestHelper: "..QHText("ZONE_LAYOUT_ERROR"))
 299     return
 300   end
 301
 302   QuestHelper_UpgradeDatabase(_G)
 303   QuestHelper_UpgradeComplete()
 304
 305   if QuestHelper_SaveVersion ~= 10 then
 306     self:TextOut(QHText("DOWNGRADE_ERROR"))
 307     return
 308   end
 309
 310   if QuestHelper_IsPolluted(_G) then
 311     self:TextOut(QHFormat("NAG_POLLUTED"))
 312     self:Purge(nil, true, true)
 313   end
 314
 315   local signature = expected_version .. " on " .. GetBuildInfo()
 316   QuestHelper_Quests[signature] = QuestHelper_Quests[signature] or {}
 317   QuestHelper_Objectives[signature] = QuestHelper_Objectives[signature] or {}
 318   QuestHelper_FlightInstructors[signature] = QuestHelper_FlightInstructors[signature] or {}
 319   QuestHelper_FlightRoutes[signature] = QuestHelper_FlightRoutes[signature] or {}
 320
 321   QuestHelper_Quests_Local = QuestHelper_Quests[signature]
 322   QuestHelper_Objectives_Local = QuestHelper_Objectives[signature]
 323   QuestHelper_FlightInstructors_Local = QuestHelper_FlightInstructors[signature]
 324   QuestHelper_FlightRoutes_Local = QuestHelper_FlightRoutes[signature]
 325
 326   QuestHelper_SeenRealms[GetRealmName()] = true -- some attempt at tracking private servers
 327
 328   QH_Collector_Init()
 329
 330   self.player_level = UnitLevel("player")
 331
 332   self:UnregisterEvent("VARIABLES_LOADED")
 333   self:RegisterEvent("PLAYER_TARGET_CHANGED")
 334   self:RegisterEvent("LOOT_OPENED")
 335   self:RegisterEvent("QUEST_COMPLETE")
 336   self:RegisterEvent("QUEST_LOG_UPDATE")
 337   self:RegisterEvent("QUEST_PROGRESS")
 338   self:RegisterEvent("MERCHANT_SHOW")
 339   self:RegisterEvent("QUEST_DETAIL")
 340   self:RegisterEvent("TAXIMAP_OPENED")
 341   self:RegisterEvent("PLAYER_CONTROL_GAINED")
 342   self:RegisterEvent("PLAYER_LEVEL_UP")
 343   self:RegisterEvent("PARTY_MEMBERS_CHANGED")
 344   self:RegisterEvent("CHAT_MSG_ADDON")
 345   self:RegisterEvent("CHAT_MSG_SYSTEM")
 346   self:RegisterEvent("BAG_UPDATE")
 347   self:RegisterEvent("GOSSIP_SHOW")
 348   self:RegisterEvent("PLAYER_ENTERING_WORLD")
 349
 350   for key, def in pairs(QuestHelper_DefaultPref) do
 351     if QuestHelper_Pref[key] == nil then
 352       QuestHelper_Pref[key] = def
 353     end
 354   end
 355
 356   self:SetLocaleFonts()
 357
 358   if QuestHelper_Pref.share and not QuestHelper_Pref.solo then
 359     self:EnableSharing()
 360   end
 361
 362   if QuestHelper_Pref.hide then
 363     self.map_overlay:Hide()
 364   end
 365
 366   self:HandlePartyChange()
 367
 368   self:Nag("all")
 369
 370   for locale in pairs(QuestHelper_StaticData) do
 371     if locale ~= self.locale then
 372       -- Will delete references to locales you don't use.
 373       QuestHelper_StaticData[locale] = nil
 374       _G["QuestHelper_StaticData_" .. locale] = nil
 375     end
 376   end
 377
 378   local static = QuestHelper_StaticData[self.locale]
 379
 380   if static then
 381     if static.flight_instructors then for faction in pairs(static.flight_instructors) do
 382       if faction ~= self.faction then
 383         -- Will delete references to flight instructors that don't belong to your faction.
 384         static.flight_instructors[faction] = nil
 385       end
 386     end end
 387
 388     if static.quest then for faction in pairs(static.quest) do
 389       if faction ~= self.faction then
 390         -- Will delete references to quests that don't belong to your faction.
 391         static.quest[faction] = nil
 392       end
 393     end end
 394   end
 395
 396   self:ResetPathing()
 397
 398   -- Adding QuestHelper_CharVersion, so I know if I've already converted this characters saved data.
 399   if not QuestHelper_CharVersion then
 400     -- Changing per-character flight routes, now only storing the flight points they have,
 401     -- will attempt to guess the routes from this.
 402     local routes = {}
 403
 404     for i, l in pairs(QuestHelper_KnownFlightRoutes) do
 405       for key in pairs(l) do
 406         routes[key] = true
 407       end
 408     end
 409
 410     QuestHelper_KnownFlightRoutes = routes
 411
 412     -- Deleting the player's home again.
 413     -- But using the new CharVersion variable I'm adding is cleaner that what I was doing, so I'll go with it.
 414     QuestHelper_Home = nil
 415     QuestHelper_CharVersion = 1
 416   end
 417
 418   if not QuestHelper_Home then
 419     -- Not going to bother complaining about the player's home not being set, uncomment this when the home is used in routing.
 420     -- self:TextOut(QHText("HOME_NOT_KNOWN"))
 421   end
 422
 423   self.minimap_dodad = self:CreateMipmapDodad()
 424
 425   if QuestHelper_Pref.map_button then
 426       QuestHelper:InitMapButton()
 427   end
 428
 429   if QuestHelper_Pref.cart_wp then
 430     init_cartographer_later = true
 431   end
 432
 433   if QuestHelper_Pref.tomtom_wp then
 434     self:EnableTomTom()
 435   end
 436
 437   self.tracker:SetScale(QuestHelper_Pref.track_scale)
 438
 439   if QuestHelper_Pref.track and not QuestHelper_Pref.hide then
 440     self:ShowTracker()
 441   end
 442
 443   local version = GetAddOnMetadata("QuestHelper", "Version") or "Unknown"
 444   if QuestHelper_Version ~= version then
 445     QuestHelper_Version = version
 446     self:ChangeLog()
 447   end
 448
 449   self:SetScript("OnUpdate", self.OnUpdate)
 450
 451   -- Seems to do its own garbage collection pass before fully loading, so I'll just rely on that
 452   --collectgarbage("collect") -- Free everything we aren't using.
 453
 454   if self.debug_objectives then
 455     for name, data in pairs(self.debug_objectives) do
 456       self:LoadDebugObjective(name, data)
 457     end
 458   end
 459
 460   self.Routing:Initialize()       -- Set up the routing task
 461
 462   --[[ -- This is just an example of how the WoW profiler biases its profiles heavily.
 463   function C()
 464   end
 465
 466   function A()
 467     q = 0
 468     for x = 0, 130000000, 1 do
 469     end
 470   end
 471
 472   function B()
 473     q = 0
 474     for x = 0, 12000000, 1 do
 475       C()
 476     end
 477   end
 478
 479   function B2()
 480     q = 0
 481     for x = 0, 1200000, 1 do
 482       --q = q + x
 483       C()
 484     end
 485   end
 486
 487   debugprofilestart()
 488
 489   local ta = debugprofilestop()
 490   A()
 491   local tb = debugprofilestop()
 492   B()
 493   local tc = debugprofilestop()
 494
 495   QuestHelper:TextOut(string.format("%d %d %d", ta, tb - ta, tc - tb))
 496   QuestHelper:TextOut(string.format("%d %d", GetFunctionCPUUsage(A), GetFunctionCPUUsage(B)))
 497
 498   --/script SetCVar("scriptProfile", value)]]
 499 end
 500
 501 local startup_time
 502 local please_donate_enabled = true
 503
 504 function QuestHelper:OnEvent(event)
 505   if event == "VARIABLES_LOADED" then
 506     local tstart = GetTime()
 507     self:Initialize()
 508     QH_Timeslice_Increment(GetTime() - tstart, "init")
 509   end
 510
 511   local tstart = GetTime()
 512
 513   if event == "GOSSIP_SHOW" then
 514     local name, id = UnitName("npc"), self:GetUnitID("npc")
 515     if name and id then
 516       self:GetObjective("monster", name).o.id = id
 517       --self:TextOut("NPC: "..name.." = "..id)
 518     end
 519   end
 520
 521   if event == "PLAYER_TARGET_CHANGED" then
 522     local name, id = UnitName("target"), self:GetUnitID("target")
 523     if name and id then
 524       self:GetObjective("monster", name).o.id = id
 525       --self:TextOut("Target: "..name.." = "..id)
 526     end
 527
 528     if UnitExists("target") and UnitIsVisible("target") and UnitCreatureType("target") ~= "Critter" and not UnitIsPlayer("target") and not UnitPlayerControlled("target") then
 529       local index, x, y = self:UnitPosition("target")
 530
 531       if index then -- Might not have a position if inside an instance.
 532         local w = 0.1
 533
 534         -- Modify the weight based on how far they are from us.
 535         -- We don't know the exact location (using our own location), so the farther, the less sure we are that it's correct.
 536         if CheckInteractDistance("target", 3) then w = 1
 537         elseif CheckInteractDistance("target", 2) then w = 0.89
 538         elseif CheckInteractDistance("target", 1) or CheckInteractDistance("target", 4) then w = 0.33 end
 539
 540         local monster_objective = self:GetObjective("monster", UnitName("target"))
 541         self:AppendObjectivePosition(monster_objective, index, x, y, w)
 542
 543         monster_objective.o.faction = (UnitFactionGroup("target") == "Alliance" and 1) or
 544                                       (UnitFactionGroup("target") == "Horde" and 2) or nil
 545
 546         local level = UnitLevel("target")
 547         if level and level >= 1 then
 548           local w = monster_objective.o.levelw or 0
 549           monster_objective.o.level = ((monster_objective.o.level or 0)*w+level)/(w+1)
 550           monster_objective.o.levelw = w+1
 551         end
 552       end
 553     end
 554   end
 555
 556   if event == "LOOT_OPENED" then
 557     local target = UnitName("target")
 558     if target and UnitIsDead("target") and UnitCreatureType("target") ~= "Critter" and not UnitIsPlayer("target") and not UnitPlayerControlled("target") then
 559       local index, x, y = self:UnitPosition("target")
 560
 561       local monster_objective = self:GetObjective("monster", target)
 562       monster_objective.o.looted = (monster_objective.o.looted or 0) + 1
 563
 564       if index then -- Might not have a position if inside an instance.
 565         self:AppendObjectivePosition(monster_objective, index, x, y)
 566       end
 567
 568       for i = 1, GetNumLootItems() do
 569         local icon, name, number, rarity = GetLootSlotInfo(i)
 570         if name then
 571           if number and number >= 1 then
 572             self:AppendItemObjectiveDrop(self:GetObjective("item", name), name, target, number)
 573           else
 574             local total = (name:match(COPPER_AMOUNT:gsub("%%d", "%(%%d+%)")) or 0) +
 575                           (name:match(SILVER_AMOUNT:gsub("%%d", "%(%%d+%)")) or 0) * 100 +
 576                           (name:match(GOLD_AMOUNT:gsub("%%d", "%(%%d+%)")) or 0) * 10000
 577
 578             if total > 0 then
 579               self:AppendObjectiveDrop(self:GetObjective("item", "money"), target, total)
 580             end
 581           end
 582         end
 583       end
 584     else
 585       local container = nil
 586
 587       -- Go through the players inventory and look for a locked item, we're probably looting it.
 588       for bag = 0,NUM_BAG_SLOTS do
 589         for slot = 1,GetContainerNumSlots(bag) do
 590           local link = GetContainerItemLink(bag, slot)
 591           if link and select(3, GetContainerItemInfo(bag, slot)) then
 592             if container == nil then
 593               -- Found a locked item and haven't previously assigned to container, assign its name, or false if we fail to parse it.
 594               container = select(3, string.find(link, "|h%[(.+)%]|h|r")) or false
 595             else
 596               -- Already tried to assign to a container. If there are multiple locked items, we give up.
 597               container = false
 598             end
 599           end
 600         end
 601       end
 602
 603       if container then
 604         local container_objective = self:GetObjective("item", container)
 605         container_objective.o.opened = (container_objective.o.opened or 0) + 1
 606
 607         for i = 1, GetNumLootItems() do
 608           local icon, name, number, rarity = GetLootSlotInfo(i)
 609           if name and number >= 1 then
 610             self:AppendItemObjectiveContainer(self:GetObjective("item", name), container, number)
 611           end
 612         end
 613       else
 614         -- No idea where the items came from.
 615         local index, x, y = self:PlayerPosition()
 616
 617         if index then
 618           for i = 1, GetNumLootItems() do
 619             local icon, name, number, rarity = GetLootSlotInfo(i)
 620             if name and number >= 1 then
 621               self:AppendItemObjectivePosition(self:GetObjective("item", name), name, index, x, y)
 622             end
 623           end
 624         end
 625       end
 626     end
 627   end
 628
 629   if event == "CHAT_MSG_SYSTEM" then
 630     local home_name = self:convertPattern(ERR_DEATHBIND_SUCCESS_S)(arg1)
 631     if home_name then
 632       if self.i then
 633         self:TextOut(QHText("HOME_CHANGED"))
 634         self:TextOut(QHText("WILL_RESET_PATH"))
 635
 636         local home = QuestHelper_Home
 637         if not home then
 638           home = {}
 639           QuestHelper_Home = home
 640         end
 641
 642         home[1], home[2], home[3], home[4] = self.i, self.x, self.y, home_name
 643         self.defered_graph_reset = true
 644       end
 645     end
 646   end
 647
 648   if event == "CHAT_MSG_ADDON" then
 649     if arg1 == "QHpr" and (arg3 == "PARTY" or arg3 == "WHISPER") and arg4 ~= UnitName("player") then
 650       self:HandleRemoteData(arg2, arg4)
 651     end
 652   end
 653
 654   if event == "PARTY_MEMBERS_CHANGED" then
 655     self:HandlePartyChange()
 656   end
 657
 658   if event == "QUEST_LOG_UPDATE" or
 659      event == "PLAYER_LEVEL_UP" or
 660      event == "PARTY_MEMBERS_CHANGED" then
 661     self.defered_quest_scan = true
 662   end
 663
 664   if event == "QUEST_DETAIL" then
 665     if not self.quest_giver then self.quest_giver = {} end
 666     local npc = UnitName("npc")
 667     if npc then
 668       -- Some NPCs aren't actually creatures, and so their positions might not be marked by PLAYER_TARGET_CHANGED.
 669       local index, x, y = self:UnitPosition("npc")
 670
 671       if index then -- Might not have a position if inside an instance.
 672         local npc_objective = self:GetObjective("monster", npc)
 673         self:AppendObjectivePosition(npc_objective, index, x, y)
 674         self.quest_giver[GetTitleText()] = npc
 675       end
 676     end
 677   end
 678
 679   if event == "QUEST_COMPLETE" or event == "QUEST_PROGRESS" then
 680     local quest = GetTitleText()
 681     if quest then
 682       local level, hash = self:GetQuestLevel(quest)
 683       if not level or level < 1 then
 684         --self:TextOut("Don't know quest level for ".. quest.."!")
 685         return
 686       end
 687       local q = self:GetQuest(quest, level, hash)
 688
 689       if q.need_hash then
 690         q.o.hash = hash
 691       end
 692
 693       local unit = UnitName("npc")
 694       if unit then
 695         q.o.finish = unit
 696         q.o.pos = nil
 697
 698         -- Some NPCs aren't actually creatures, and so their positions might not be marked by PLAYER_TARGET_CHANGED.
 699         local index, x, y = self:UnitPosition("npc")
 700         if index then -- Might not have a position if inside an instance.
 701           local npc_objective = self:GetObjective("monster", unit)
 702           self:AppendObjectivePosition(npc_objective, index, x, y)
 703         end
 704       elseif not q.o.finish then
 705         local index, x, y = self:PlayerPosition()
 706         if index then -- Might not have a position if inside an instance.
 707           self:AppendObjectivePosition(q, index, x, y)
 708         end
 709       end
 710     end
 711   end
 712
 713   if event == "MERCHANT_SHOW" then
 714     local npc_name = UnitName("npc")
 715     if npc_name then
 716       local npc_objective = self:GetObjective("monster", npc_name)
 717       local index = 1
 718       while true do
 719         local item_name = GetMerchantItemInfo(index)
 720         if item_name then
 721           index = index + 1
 722           local item_objective = self:GetObjective("item", item_name)
 723           if not item_objective.o.vendor then
 724             item_objective.o.vendor = {npc_name}
 725           else
 726             local known = false
 727             for i, vendor in ipairs(item_objective.o.vendor) do
 728               if npc_name == vendor then
 729                 known = true
 730                 break
 731               end
 732             end
 733             if not known then
 734               table.insert(item_objective.o.vendor, npc_name)
 735             end
 736           end
 737         else
 738           break
 739         end
 740       end
 741     end
 742   end
 743
 744   if event == "TAXIMAP_OPENED" then
 745     self:taxiMapOpened()
 746   end
 747
 748   if event == "PLAYER_CONTROL_GAINED" then
 749     interruptcount = interruptcount + 1
 750   end
 751
 752   if event == "BAG_UPDATE" then
 753     for slot = 1,GetContainerNumSlots(arg1) do
 754       local link = GetContainerItemLink(arg1, slot)
 755       if link then
 756         local id, name = select(3, string.find(link, "|Hitem:(%d+):.-|h%[(.-)%]|h"))
 757         if name then
 758           self:GetObjective("item", name).o.id = tonumber(id)
 759         end
 760       end
 761     end
 762   end
 763
 764   if event == "PLAYER_ENTERING_WORLD" and please_donate_enabled then
 765     startup_time = GetTime()
 766     _, month, day, year = CalendarGetDate();
 767     if year > 2008 or year == 2008 and month > 11 or year == 2008 and month == 11 and day > 24 or year == 2008 and month == 11 and day < 21 then -- don't feel right about pestering people during thanksgiving
 768       startup_time = nil
 769       please_donate_enabled = false
 770     end
 771   end
 772
 773   QH_Timeslice_Increment(GetTime() - tstart, "event")
 774 end
 775
 776 local map_shown_decay = 0
 777 local delayed_action = 100
 778 --local update_count = 0
 779 local ontaxi = false
 780
 781 function QuestHelper:OnUpdate()
 782   local tstart = GetTime()
 783
 784   if please_donate_enabled and startup_time and startup_time + 1 < GetTime() then
 785     QuestHelper:TextOut(QHText("PLEASE_DONATE"))
 786     startup_time = nil
 787     please_donate_enabled = false
 788   end
 789
 790   if init_cartographer_later and Cartographer_Waypoints then    -- there has to be a better way to do this
 791     init_cartographer_later = false
 792     if QuestHelper_Pref.cart_wp then
 793       self:EnableCartographer()
 794     end
 795   end
 796
 797   if not ontaxi and UnitOnTaxi("player") then
 798     self:flightBegan()
 799     interruptcount = 0
 800   elseif ontaxi and not UnitOnTaxi("player") then
 801     self:flightEnded(interruptcount > 1)
 802   end
 803   ontaxi = UnitOnTaxi("player")
 804
 805   -- For now I'm ripping out the update_count code
 806   --update_count = update_count - 1
 807   --if update_count <= 0 then
 808
 809     -- Reset the update count for next time around; this will make sure the body executes every time
 810     -- when perf_scale >= 1, and down to 1 in 10 iterations when perf_scale < 1, or when hidden.
 811     --update_count = update_count + (QuestHelper_Pref.hide and 10 or 1/QuestHelper_Pref.perf_scale)
 812
 813     --if update_count < 0 then
 814       -- Make sure the count doesn't go perpetually negative; don't know what will happen if it underflows.
 815       --update_count = 0
 816     --end
 817
 818     if self.Astrolabe.WorldMapVisible then
 819       -- We won't trust that the zone returned by Astrolabe is correct until map_shown_decay is 0.
 820       map_shown_decay = 2
 821     elseif map_shown_decay > 0 then
 822       map_shown_decay = map_shown_decay - 1
 823     else
 824       --SetMapToCurrentZone() -- not sure why this existed
 825     end
 826
 827     delayed_action = delayed_action - 1
 828     if delayed_action <= 0 then
 829       delayed_action = 100
 830       self:HandlePartyChange()
 831     end
 832
 833     local nc, nz, nx, ny = self.Astrolabe:GetCurrentPlayerPosition()
 834     local tc, tx, ty
 835
 836     if nc and nc ~= -1 then -- We just want the raw data here, before we've done anything clever.
 837       tc, tx, ty = self.Astrolabe:GetAbsoluteContinentPosition(nc, nz, nx, ny)
 838       QuestHelper: Assert(tc and tx and ty)  -- is it true? nobody knows! :D
 839     end
 840
 841     if nc and nc == self.c and map_shown_decay > 0 and self.z > 0 and self.z ~= nz then
 842       -- There's a chance Astrolable will return the wrong zone if you're messing with the world map, if you can
 843       -- be seen in that zone but aren't in it.
 844       local nnx, nny = self.Astrolabe:TranslateWorldMapPosition(nc, nz, nx, ny, nc, self.z)
 845       if nnx > 0 and nny > 0 and nnx < 1 and nny < 1 then
 846         nz, nx, ny = self.z, nnx, nny
 847       end
 848     end
 849
 850     if nc and nc > 0 and nz == 0 and nc == self.c and self.z > 0 then
 851       nx, ny = self.Astrolabe:TranslateWorldMapPosition(nc, nz, nx, ny, nc, self.z)
 852       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
 853         nz = self.z
 854       else
 855         nc, nz, nx, ny = nil, nil, nil, nil
 856       end
 857     end
 858
 859     if nc and nz > 0 then
 860       self.c, self.z, self.x, self.y = nc, nz, nx, ny
 861       self.i = QuestHelper_IndexLookup[nc][nz]
 862     end
 863
 864     self.collect_c, self.collect_x, self.collect_y, self.collect_rc, self.collect_rz = tc, tx, ty, nc, nz
 865
 866     if self.defered_quest_scan and not self.graph_in_limbo then
 867       self.defered_quest_scan = false
 868       self:ScanQuestLog()
 869     end
 870
 871     QH_Timeslice_Toggle("routing", not not self.c)
 872
 873     local level = UnitLevel("player")
 874     if level >= 58 and self.player_level < 58 then
 875       self.defered_graph_reset = true
 876     end
 877     self.player_level = level
 878
 879     self:PumpCommMessages()
 880   --end
 881
 882   QH_Collector_OnUpdate()
 883
 884   QH_Timeslice_Increment(GetTime() - tstart, "onupdate")
 885
 886   QH_Timeslice_Work()
 887 end
 888
 889 -- 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) and x,y are the coordinates within that continent.
 890 -- 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?
 891 function QuestHelper:RetrieveRawLocation()
 892   return self.collect_c, self.collect_x, self.collect_y, self.collect_rc, self.collect_rz
 893 end
 894
 895 QuestHelper:RegisterEvent("VARIABLES_LOADED")
 896 QuestHelper:SetScript("OnEvent", QuestHelper.OnEvent)