main.lua

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