help.lua

   1 QuestHelper_File["help.lua"] = "Development Version"
   2 QuestHelper_Loadtime["help.lua"] = GetTime()
   3
   4 local QuestHelper_Version = QuestHelper_File["help.lua"]
   5
   6 function QuestHelper:scaleString(val)
   7   return self:HighlightText(math.floor(val*100+0.5).."%")
   8 end
   9
  10 function QuestHelper:genericSetScale(varname, name, mn, mx, input, onchange, ...)
  11   if input == "" then
  12     self:TextOut(string.format("Current %s scale is %s.", name, self:scaleString(QuestHelper_Pref[varname])))
  13   else
  14     local scale = tonumber(input)
  15
  16     if not scale then
  17       local x = string.match(input or "", "^%s*([%d%.]+)%s*%%%s*$")
  18       scale = tonumber(x) or 0
  19       if not scale then
  20         self:TextOut("I don't know how to interpret your input.")
  21         return
  22       end
  23       scale = scale * 0.01
  24     end
  25
  26     if scale < mn then
  27       self:TextOut(string.format("I won't accept a scale less than %s.", self:scaleString(mn)))
  28     elseif scale > mx then
  29       self:TextOut(string.format("I won't accept a scale more than %s.", self:scaleString(mx)))
  30     else
  31       QuestHelper_Pref[varname] = scale
  32       self:TextOut(string.format("Set %s scale set to %s.", name, self:scaleString(scale)))
  33       if onchange then
  34         onchange(...)
  35       end
  36     end
  37   end
  38 end
  39
  40 function QuestHelper:TrackerScale(scale)
  41   QuestHelper:genericSetScale("track_scale", "tracker scale", .5, 2, scale,
  42                               function() QuestHelper.tracker:SetScale(QuestHelper_Pref.track_scale) end)
  43 end
  44
  45 function QuestHelper:SetLocale(loc)
  46   if not loc or loc == "" then
  47     self:TextOut(QHText("LOCALE_LIST_BEGIN"))
  48     for loc, tbl in pairs(QuestHelper_Translations) do
  49       self:TextOut(string.format("  %s%s %s", self:HighlightText(loc),
  50                                               loc == QuestHelper_Pref.locale and " *" or "  ",
  51                                               tbl.LOCALE_NAME or "???"))
  52     end
  53   else
  54     for l, tbl in pairs(QuestHelper_Translations) do
  55       if string.find(string.lower(l), "^"..string.lower(loc)) or
  56          string.find(string.lower(tbl.LOCALE_NAME or ""), "^"..string.lower(loc)) then
  57         QuestHelper_Pref.locale = l
  58         QHFormatSetLocale(l)
  59         self:SetLocaleFonts()
  60         self:TextOut(QHFormat("LOCALE_CHANGED", l))
  61         return
  62       end
  63     end
  64
  65     self:TextOut(QHFormat("LOCALE_UNKNOWN", tostring(loc) or "UNKNOWN"))
  66   end
  67 end
  68
  69 function QuestHelper:ToggleMetric()
  70   QuestHelper_Pref.metric = not QuestHelper_Pref.metric
  71
  72   if QuestHelper_Pref.metric then
  73     self:TextOut("Distances are now in metres.")
  74   else
  75     self:TextOut("Distances are now in yards.")
  76   end
  77 end
  78
  79 function QuestHelper:ToggleHide()
  80   QuestHelper_Pref.hide = not QuestHelper_Pref.hide
  81
  82   -- Desaturate the button texture if QuestHelper is disabled.
  83   if self.MapButton then
  84     -- This should always be true, but just in case...
  85     self.MapButton:GetNormalTexture():SetDesaturated(QuestHelper_Pref.hide)
  86   end
  87
  88   if QuestHelper_Pref.hide then
  89     if QuestHelper_Pref.track then
  90       self:HideTracker()
  91     end
  92
  93     self.map_overlay:Hide()
  94     self:TextOut("QuestHelper is now |cffff0000hidden|r.")
  95   else
  96     if QuestHelper_Pref.track then
  97       self:ShowTracker()
  98     end
  99
 100     self.map_overlay:Show()
 101     self.minimap_marker:Show()
 102     self:TextOut("QuestHelper is now |cff00ff00shown|r.")
 103
 104     QH_Timeslice_Bonus(20)        -- Let the corutine do some overtime...
 105   end
 106 end
 107
 108 function QuestHelper:ToggleShare()
 109   QuestHelper_Pref.share = not QuestHelper_Pref.share
 110   if QuestHelper_Pref.share then
 111     if QuestHelper_Pref.solo then
 112       self:TextOut("Objective sharing will been |cff00ff00enabled|r when you disable solo mode.")
 113     else
 114       self:TextOut("Objective sharing has been |cff00ff00enabled|r.")
 115       self:SetShare(true)
 116     end
 117   else
 118     self:TextOut("Objective sharing has been |cffff0000disabled|r.")
 119     if QuestHelper_Pref.solo then
 120       self:TextOut("Objective sharing won't be reenabled when you disable solo mode.")
 121     else
 122       self:SetShare(false)
 123     end
 124   end
 125 end
 126
 127 function QuestHelper:ToggleFlightTimes()
 128   QuestHelper_Pref.flight_time = not QuestHelper_Pref.flight_time
 129   if QuestHelper_Pref.flight_time then
 130     self:TextOut("The flight timer has been |cff00ff00enabled|r.")
 131   else
 132     self:TextOut("The flight timer has been |cffff0000disabled|r.")
 133   end
 134 end
 135
 136 function QuestHelper:ToggleTravelTimes()
 137   QuestHelper_Pref.travel_time = not QuestHelper_Pref.travel_time
 138   if QuestHelper_Pref.travel_time then
 139     self:TextOut("The travel timer has been |cff00ff00enabled|r.")
 140   else
 141     self:TextOut("The travel timer has been |cffff0000disabled|r.")
 142   end
 143 end
 144
 145 function QuestHelper:ToggleTrack()
 146   QuestHelper_Pref.track = not QuestHelper_Pref.track
 147   if QuestHelper_Pref.track then
 148     self:ShowTracker()
 149     self:TextOut("The quest tracker has been |cff00ff00enabled|r.")
 150   else
 151     self:HideTracker()
 152     self:TextOut("The quest tracker has been |cffff0000disabled|r.")
 153   end
 154 end
 155
 156 function QuestHelper:ToggleBlizzMap()
 157   QuestHelper_Pref.blizzmap = not QuestHelper_Pref.blizzmap
 158   if QuestHelper_Pref.blizzmap then
 159     self:TextOut("The Blizzard quest points have been |cff00ff00enabled|r.")
 160   else
 161     self:TextOut("The Blizzard quest points have been |cffff0000disabled|r.")
 162   end
 163
 164   if UpdateQuestMapPOI then UpdateQuestMapPOI() end
 165 end
 166
 167 if UpdateQuestMapPOI then
 168   local uqmp_def = UpdateQuestMapPOI
 169   function UpdateQuestMapPOI(...)
 170     if QuestHelper_Pref.blizzmap then
 171       return uqmp_def(...)
 172     else
 173       for i = 1, #QUEST_MAP_POI do
 174         QUEST_MAP_POI[i]:Hide()
 175       end
 176     end
 177   end
 178 end
 179
 180 function QuestHelper:ToggleTrackLevel()
 181   QuestHelper_Pref.track_level = not QuestHelper_Pref.track_level
 182   if QuestHelper_Pref.track_level then
 183     self:TextOut("Display of levels in the quest tracker has been |cff00ff00enabled|r.")
 184   else
 185     self:TextOut("Display of levels in the quest tracker has been |cffff0000disabled|r.")
 186   end
 187   QH_UpdateQuests(true)
 188   QH_Tracker_Rescan()
 189 end
 190
 191 function QuestHelper:ToggleTrackQColour()
 192   QuestHelper_Pref.track_qcolour = not QuestHelper_Pref.track_qcolour
 193   if QuestHelper_Pref.track_qcolour then
 194     self:TextOut("Colour for quest difficulty in quest tracker has been |cff00ff00enabled|r.")
 195   else
 196     self:TextOut("Colour for quest difficulty in quest tracker has been |cffff0000disabled|r.")
 197   end
 198   QH_UpdateQuests(true)
 199   QH_Tracker_Rescan()
 200 end
 201
 202 function QuestHelper:ToggleTrackOColour()
 203   QuestHelper_Pref.track_ocolour = not QuestHelper_Pref.track_ocolour
 204   if QuestHelper_Pref.track_ocolour then
 205     self:TextOut("Colour for objective progress in quest tracker has been |cff00ff00enabled|r.")
 206   else
 207     self:TextOut("Colour for objective progress in quest tracker has been |cffff0000disabled|r.")
 208   end
 209   QH_UpdateQuests(true)
 210   QH_Tracker_Rescan()
 211 end
 212
 213 function QuestHelper:ToggleTooltip()
 214   QuestHelper_Pref.tooltip = not QuestHelper_Pref.tooltip
 215   if QuestHelper_Pref.tooltip then
 216     self:TextOut("Objective tooltip information has been |cff00ff00enabled|r.")
 217   else
 218     self:TextOut("Objective tooltip information has been |cffff0000disabled|r.")
 219   end
 220 end
 221
 222 function QuestHelper:Purgewarning()
 223   QuestHelper:TextOut("I would consider this a tragic loss, and would appreciate it if you sent me your saved data before going through with it.")
 224   QuestHelper:TextOut("Enter "..self:HighlightText("/qh nag verbose").." to check and see if you're destroying anything important.")
 225   QuestHelper:TextOut("Enter "..self:HighlightText("/qh submit").." for instructions on how to submit your collected data.")
 226   QuestHelper:TextOut("See the "..self:HighlightText("How You Can Help").." section on the project website for instructions.")
 227 end
 228
 229 function QuestHelper:Purge(code, force, noreload)
 230   if code == self.purge_code or force then
 231     QuestHelper_Quests = nil
 232     QuestHelper_Objectives = nil
 233     QuestHelper_FlightInstructors = nil
 234     QuestHelper_FlightRoutes = nil
 235     QuestHelper_Locale = nil
 236     QuestHelper_UID = nil
 237     QuestHelper_Version = nil
 238     QuestHelper_SaveVersion = nil
 239
 240     QuestHelper_SaveDate = nil
 241     QuestHelper_SeenRealms = nil
 242
 243     QuestHelper_Collector = nil
 244     QuestHelper_Collector_Version = nil
 245
 246     QuestHelper_Errors = nil -- sigh
 247
 248     if not noreload then ReloadUI() end
 249   else
 250     if not self.purge_code then self.purge_code = self:CreateUID(8) end
 251     QuestHelper:TextOut("THIS COMMAND WILL DELETE ALL YOUR COLLECTED DATA")
 252     QuestHelper:Purgewarning()
 253     QuestHelper:TextOut("If you're sure you want to go through with this, enter: "..self:HighlightText("/qh purge "..self.purge_code))
 254   end
 255 end
 256
 257 function QuestHelper:HardReset(code)
 258   if code == self.purge_code then
 259     self:ResetTrackerPosition() -- do this before we kill off the prefs, since it touches a pref
 260     QH_Arrow_Reset()
 261     QuestHelper_Pref = nil
 262     QuestHelper_ErrorList = nil -- BIZAM
 263     QuestHelper_KnownFlightRoutes = nil
 264     QuestHelper_Home = nil
 265     QuestHelper_CharVersion = nil
 266     self:Purge(nil, true)
 267   else
 268     if not self.purge_code then self.purge_code = self:CreateUID(8) end
 269     QuestHelper:TextOut("THIS COMMAND WILL DELETE ALL YOUR COLLECTED DATA AND RESET ALL YOUR PREFERENCES")
 270     QuestHelper:Purgewarning()
 271     QuestHelper:TextOut("If you're sure you want to go through with this, enter: "..self:HighlightText("/qh hardreset "..self.purge_code))
 272   end
 273 end
 274
 275 function QuestHelper:ToggleSolo()
 276   QuestHelper_Pref.solo = not QuestHelper_Pref.solo
 277   if QuestHelper_Pref.solo then
 278     if QuestHelper_Pref.share then
 279       self:SetShare(false)
 280       self:TextOut("Objective sharing has been temporarly |cffff0000disabled|r.")
 281     end
 282     self:TextOut("Solo mode has been |cff00ff00enabled|r.")
 283   else
 284     self:TextOut("Solo mode has been |cffff0000disabled|r.")
 285     if QuestHelper_Pref.share then
 286       self:SetShare(true)
 287       self:TextOut("Objective sharing has been re|cff00ff00enabled|r.")
 288     end
 289   end
 290 end
 291
 292 function QuestHelper:ToggleAnts()
 293   if QuestHelper_Pref.show_ants then
 294     QuestHelper_Pref.show_ants = false
 295     self:TextOut("Ant trails have been |cffff0000disabled|r.")
 296   else
 297     QuestHelper_Pref.show_ants = true
 298     self:TextOut("Ant trails have been |cff00ff00enabled|r.")
 299   end
 300 end
 301
 302 function QuestHelper:SetZones()
 303   if QuestHelper_Pref.zones == "next" then
 304     QuestHelper_Pref.zones = "none"
 305     self:TextOut("Next zone display has been |cffff0000disabled|r.")
 306   else
 307     QuestHelper_Pref.zones = "next"
 308     self:TextOut("Next zone display has been |cff00ff00enabled|r.")
 309   end
 310 end
 311
 312 function QuestHelper:LevelOffset(offset)
 313   local level = tonumber(offset)
 314   if level then
 315     if level > 0 then
 316       self:TextOut("Allowing quests up to "..self:HighlightText(level).." level"..(level==1 and " " or "s ")..self:HighlightText("above").." you.")
 317     elseif level < 0 then
 318       self:TextOut("Only allowing quests "..self:HighlightText(-level).." level"..(level==-1 and " " or "s ")..self:HighlightText("below").." you.")
 319     else
 320       self:TextOut("Only allowing quests "..self:HighlightText("at or below").." your current level.")
 321     end
 322
 323     if not QuestHelper_Pref.filter_level then
 324       self:TextOut("Note: This won't have any effect until you turn the level filter on.")
 325     end
 326
 327     if QuestHelper_Pref.level ~= level then
 328       QuestHelper_Pref.level = level
 329       QH_Route_Filter_Rescan("filter_quest_level")
 330     end
 331   elseif offset == "" then
 332     if QuestHelper_Pref.level <= 0 then
 333       self:TextOut("Level offset is currently set to "..self:HighlightText(QuestHelper_Pref.level)..".")
 334     else
 335       self:TextOut("Level offset is currently set to "..self:HighlightText("+"..QuestHelper_Pref.level)..".")
 336     end
 337
 338     if self.party_levels then for n, l in ipairs(self.party_levels) do
 339       self:TextOut("Your effective level in a "..self:HighlightText(n).." player quest is "..self:HighlightText(string.format("%.1f", l))..".")
 340     end end
 341
 342     if QuestHelper_Pref.solo then
 343       self:TextOut("Peers aren't considered in your effective level, because you're playing solo.")
 344     end
 345   else
 346     self:TextOut("Expected a level offset.")
 347   end
 348 end
 349
 350 function QuestHelper:GroupOffset(offset)
 351   local group = tonumber(offset)
 352   if offset == "instance" then group = 5 end
 353   if offset == "raid" then group = 10 end
 354   if group == 0 then group = 1 end
 355   if group then
 356     self:TextOut("Allowing quests requiring at most "..self:HighlightText(group).." player"..(group==1 and " " or "s ")..".")
 357
 358     if not QuestHelper_Pref.filter_group then
 359       self:TextOut("Note: This won't have any effect until you turn the group filter on.")
 360     end
 361
 362     QuestHelper_Pref.filter_group_param = group
 363     QH_Route_Filter_Rescan("filter_quest_level")
 364   elseif offset == "" then
 365     self:TextOut("Group cutoff is currently set to "..self:HighlightText(QuestHelper_Pref.filter_group_param)..".")
 366   else
 367     self:TextOut("Expected a player count.")
 368   end
 369 end
 370
 371 function QuestHelper:Filter(input)
 372   input = string.upper(input)
 373   if input == "ZONE" then
 374     QuestHelper_Pref.filter_zone = not QuestHelper_Pref.filter_zone
 375     self:TextOut("Filter "..self:HighlightText("zone").." set to "..self:HighlightText(QuestHelper_Pref.filter_zone and "active" or "inactive")..".")
 376     QH_Route_Filter_Rescan("filter_zone")
 377   elseif input == "DONE" then
 378     QuestHelper_Pref.filter_done = not QuestHelper_Pref.filter_done
 379     self:TextOut("Filter "..self:HighlightText("done").." set to "..self:HighlightText(QuestHelper_Pref.filter_done and "active" or "inactive")..".")
 380     QH_Route_Filter_Rescan("filter_quest_done")
 381   elseif input == "LEVEL" then
 382     QuestHelper_Pref.filter_level = not QuestHelper_Pref.filter_level
 383     self:TextOut("Filter "..self:HighlightText("level").." set to "..self:HighlightText(QuestHelper_Pref.filter_level and "active" or "inactive")..".")
 384     QH_Route_Filter_Rescan("filter_quest_level")
 385   elseif input == "GROUP" then
 386     QuestHelper_Pref.filter_group = not QuestHelper_Pref.filter_group
 387     self:TextOut("Filter "..self:HighlightText("group").." set to "..self:HighlightText(QuestHelper_Pref.filter_group and "active" or "inactive")..".")
 388     QH_Route_Filter_Rescan("filter_quest_group")
 389   elseif input == "BLOCKED" or input == "BLOCK" then
 390     QuestHelper_Pref.filter_blocked = not QuestHelper_Pref.filter_blocked
 391     self:TextOut("Filter "..self:HighlightText("blocked").." set to "..self:HighlightText(QuestHelper_Pref.filter_blocked and "active" or "inactive")..".")
 392     QH_Route_Filter_Rescan("filter_blocked")
 393   elseif input == "WATCHED" or input == "WATCH" then
 394     QuestHelper_Pref.filter_watched = not QuestHelper_Pref.filter_watched
 395     self:TextOut("Filter "..self:HighlightText("watched").." set to "..self:HighlightText(QuestHelper_Pref.filter_watched and "active" or "inactive")..".")
 396     QH_Route_Filter_Rescan("filter_quest_watched")
 397   elseif input == "WINTERGRASP" or input == "WG" then
 398     QuestHelper_Pref.filter_wintergrasp = not QuestHelper_Pref.filter_wintergrasp
 399     self:TextOut("Filter "..self:HighlightText("wintergrasp").." set to "..self:HighlightText(QuestHelper_Pref.filter_wintergrasp and "active" or "inactive")..".")
 400     QH_Route_Filter_Rescan("filter_quest_wintergrasp")
 401   elseif input == "RAIDACCESSIBLE" or input == "RA" then
 402     QuestHelper_Pref.filter_raid_accessible = not QuestHelper_Pref.filter_raid_accessible
 403     self:TextOut("Filter "..self:HighlightText("raidaccessible").." set to "..self:HighlightText(QuestHelper_Pref.filter_raid_accessible and "active" or "inactive")..".")
 404     QH_Route_Filter_Rescan("filter_quest_raid_accessible")
 405   elseif input == "" then
 406     self:TextOut("Filter "..self:HighlightText("zone")..": "..self:HighlightText(QuestHelper_Pref.filter_zone and "active" or "inactive"))
 407     self:TextOut("Filter "..self:HighlightText("level")..": "..self:HighlightText(QuestHelper_Pref.filter_level and "active" or "inactive"))
 408     self:TextOut("Filter "..self:HighlightText("group")..": "..self:HighlightText(QuestHelper_Pref.filter_group and "active" or "inactive"))
 409     self:TextOut("Filter "..self:HighlightText("done")..": "..self:HighlightText(QuestHelper_Pref.filter_done and "active" or "inactive"))
 410     self:TextOut("Filter "..self:HighlightText("blocked")..": "..self:HighlightText(QuestHelper_Pref.filter_blocked and "active" or "inactive"))
 411     self:TextOut("Filter "..self:HighlightText("watched")..": "..self:HighlightText(QuestHelper_Pref.filter_watched and "active" or "inactive"))
 412     self:TextOut("Filter "..self:HighlightText("wintergrasp")..": "..self:HighlightText(QuestHelper_Pref.filter_wintergrasp and "active" or "inactive"))
 413     self:TextOut("Filter "..self:HighlightText("raidaccessible")..": "..self:HighlightText(QuestHelper_Pref.filter_raid_accessible and "active" or "inactive"))
 414   else
 415     self:TextOut("Don't know what you want filtered, expect "..self:HighlightText("zone")..", "..self:HighlightText("done")..", "..self:HighlightText("level")..", "..self:HighlightText("group")..", "..self:HighlightText("blocked")..", "..self:HighlightText("watched")..", "..self:HighlightText("wintergrasp")..", or "..self:HighlightText("raidaccessible")..".")
 416   end
 417 end
 418
 419 function QuestHelper:ToggleArrow(text)
 420   if text == "reset" then QH_Arrow_Reset() return end
 421
 422   QuestHelper_Pref.arrow = not QuestHelper_Pref.arrow
 423   if QuestHelper_Pref.arrow then
 424     QH_Arrow_Show()
 425     self:TextOut(QHFormat("SETTINGS_ARROWLINK_ON", QHText("SETTINGS_ARROWLINK_ARROW")))
 426   else
 427     self:TextOut(QHFormat("SETTINGS_ARROWLINK_OFF", QHText("SETTINGS_ARROWLINK_ARROW")))
 428   end
 429 end
 430
 431 function QuestHelper:ToggleCartWP()
 432   QuestHelper_Pref.cart_wp_new = not QuestHelper_Pref.cart_wp_new
 433   if QuestHelper_Pref.cart_wp_new then
 434     self:EnableCartographer()
 435     if Cartographer_Waypoints then
 436       if Waypoint and Waypoint.prototype then
 437         self:TextOut("Would use "..self:HighlightText("Cartographer Waypoints").." to show objectives, but another mod is interfering with it.")
 438       else
 439         self:TextOut(QHFormat("SETTINGS_ARROWLINK_ON", QHText("SETTINGS_ARROWLINK_CART")))
 440       end
 441     else
 442       self:TextOut("Would use "..self:HighlightText("Cartographer Waypoints").." to show objectives, except it doesn't seem to be present.")
 443     end
 444   else
 445     self:DisableCartographer()
 446     self:TextOut(QHFormat("SETTINGS_ARROWLINK_OFF", QHText("SETTINGS_ARROWLINK_CART")))
 447   end
 448 end
 449
 450 function QuestHelper:ToggleTomTomWP()
 451   QuestHelper_Pref.tomtom_wp_new = not QuestHelper_Pref.tomtom_wp_new
 452   if QuestHelper_Pref.tomtom_wp_new then
 453     self:EnableTomTom()
 454     if TomTom then
 455       self:TextOut(QHFormat("SETTINGS_ARROWLINK_ON", QHText("SETTINGS_ARROWLINK_TOMTOM")))
 456     else
 457       self:TextOut("Would use "..self:HighlightText("TomTom").." to show objectives, except it doesn't seem to be present.")
 458     end
 459   else
 460     self:DisableTomTom()
 461     self:TextOut(QHFormat("SETTINGS_ARROWLINK_OFF", QHText("SETTINGS_ARROWLINK_TOMTOM")))
 462   end
 463 end
 464
 465 function QuestHelper:PrintVersion()
 466   self:TextOut("Version: "..self:HighlightText(GetAddOnMetadata("QuestHelper", "Version") or "Unknown"))
 467 end
 468
 469 local function RecycleStatusString(fmt, usedcount, freetable, usedtable)
 470   local freetablecount = QuestHelper:TableSize(freetable)
 471   if usedtable then
 472     local usedtablecount = QuestHelper:TableSize(usedtable)
 473     return string.format(fmt, QuestHelper:ProgressString(string.format("%d/%d", usedtablecount, usedtablecount+freetablecount), ((usedtablecount+freetablecount == 0) and 1) or (1-usedtablecount/(usedtablecount+freetablecount)))) .. string.format(" (%d \"leaked\")", usedcount - usedtablecount)
 474   else
 475     return string.format(fmt, QuestHelper:ProgressString(string.format("%d/%d", usedcount, usedcount+freetablecount), ((usedcount+freetablecount == 0) and 1) or (1-usedcount/(usedcount+freetablecount))))
 476   end
 477 end
 478
 479 function QuestHelper:Top(cmd)
 480   if cmd and string.find(cmd, "all") then
 481     cmd = cmd .. " collected recycle clear boot usage"
 482   end
 483
 484   if cmd and string.find(cmd, "boot") then
 485     local bootv = {}
 486     for k, v in pairs(QuestHelper_Loadtime) do
 487       table.insert(bootv, {time = v, file = k})
 488     end
 489     table.sort(bootv, function (a, b) return a.time < b.time end)
 490
 491     if string.find(cmd, "sort") then
 492       local boott = {}
 493       for i = 1, #bootv - 1 do
 494         table.insert(boott, {time = bootv[i + 1].time - bootv[i].time, file = bootv[i].file})
 495       end
 496       table.sort(boott, function(a, b) return a.time < b.time end)
 497
 498       for _, v in pairs(boott) do
 499         QuestHelper:TextOut(string.format("%s: %f", v.file, v.time))
 500       end
 501       QuestHelper:TextOut(string.format("%s: shrug", bootv[#bootv].file))
 502     else
 503       for i = 1, #bootv do
 504         QuestHelper:TextOut(string.format("%f: %s", bootv[i].time - bootv[1].time, bootv[i].file))
 505       end
 506     end
 507   end
 508
 509   local pre_ttf
 510   local pre_db
 511   if cmd and string.find(cmd, "collected") then
 512     pre_ttf = self:DumpTableTypeFrequencies(true)
 513     pre_db = DB_DumpItems()
 514   end
 515
 516   if cmd and string.find(cmd, "recycle") then
 517     self:DumpTableTypeFrequencies()
 518     self:TextOut(RecycleStatusString("Using %s lua tables.", self.used_tables, self.free_tables, self.recycle_tabletyping))
 519     self:TextOut(RecycleStatusString("Using %s texture objects.", self.used_textures, self.free_textures))
 520     self:TextOut(RecycleStatusString("Using %s font objects.", self.used_text, self.free_text))
 521     self:TextOut(RecycleStatusString("Using %s frame objects.", self.used_frames, self.free_frames))
 522   end
 523
 524   if cmd and string.find(cmd, "usage") then
 525     self:DumpTableTypeFrequencies()
 526   end
 527
 528   if cmd and string.find(cmd, "cache") then
 529     self:DumpCacheData()
 530   end
 531
 532   if cmd and string.find(cmd, "perf") then
 533     QH_Timeslice_DumpPerf()
 534   end
 535
 536   local uncd = 0
 537   for k, v in pairs(QuestHelper_Collector) do
 538     if not v.compressed then uncd = uncd + 1 end
 539   end
 540   uncd = uncd - 1
 541   local uncs = ""
 542   if uncd > 0 then
 543     uncs = string.format(" (%d uncompressed IDs)", uncd)
 544   end
 545
 546   UpdateAddOnMemoryUsage()
 547   local pre_gc = GetAddOnMemoryUsage("QuestHelper")
 548
 549   collectgarbage("collect")
 550
 551   UpdateAddOnMemoryUsage()
 552   local post_gc = GetAddOnMemoryUsage("QuestHelper")
 553
 554   if cmd and string.find(cmd, "collected") then
 555     local post_ttf = self:DumpTableTypeFrequencies(true)
 556
 557     local union = {}
 558     for k, v in pairs(pre_ttf) do union[k] = (pre_ttf[k] or 0) - (post_ttf[k] or 0) end
 559     for k, v in pairs(post_ttf) do union[k] = (pre_ttf[k] or 0) - (post_ttf[k] or 0) end
 560
 561     local sorted = {}
 562     for k, v in pairs(union) do
 563       table.insert(sorted, {k = k, d = v})
 564     end
 565
 566     table.sort(sorted, function(a, b) return a.d < b.d end)
 567     for _, v in pairs(sorted) do
 568       if v.d > 0 then
 569         QuestHelper:TextOut(string.format("%d: %s", v.d, v.k))
 570       end
 571     end
 572
 573     local post_db = DB_DumpItems()
 574
 575     local st = {}
 576     for k, v in pairs(pre_db) do
 577       if not post_db[k] then
 578         table.insert(st, k)
 579       end
 580     end
 581     table.sort(st)
 582
 583     for _, v in ipairs(st) do
 584       QuestHelper:TextOut("DB: " .. v)
 585     end
 586   end
 587
 588   self:TextOut(string.format("QuestHelper is using %dkb (pre-collect %dkb) of RAM (%s/%s/%s/%s)%s", post_gc, pre_gc, QuestHelper_local_version, QuestHelper_toc_version, GetBuildInfo(), GetLocale(), uncs))
 589
 590   if cmd and string.find(cmd, "clear") then
 591     local cleared = QH_ClearPathcache()
 592
 593     collectgarbage("collect")
 594     UpdateAddOnMemoryUsage()
 595     local new_post_gc = GetAddOnMemoryUsage("QuestHelper")
 596     self:TextOut(string.format("QuestHelper is using %dkb/%dkb/%dkb (%d pathcache cleared) of RAM (%s/%s/%s/%s)%s", pre_gc, post_gc, new_post_gc, cleared, QuestHelper_local_version, QuestHelper_toc_version, GetBuildInfo(), GetLocale(), uncs))
 597
 598     local cleared = QuestHelper:RecycleClear()
 599
 600     collectgarbage("collect")
 601     UpdateAddOnMemoryUsage()
 602     local new_post_gc_2 = GetAddOnMemoryUsage("QuestHelper")
 603     self:TextOut(string.format("QuestHelper is using %dkb/%dkb/%dkb/%dkb (%d recycle cleared) of RAM (%s/%s/%s/%s)%s", pre_gc, post_gc, new_post_gc, new_post_gc_2, cleared, QuestHelper_local_version, QuestHelper_toc_version, GetBuildInfo(), GetLocale(), uncs))
 604   end
 605 end
 606
 607 function QuestHelper:ToggleMapButton()
 608   QuestHelper_Pref.map_button = not QuestHelper_Pref.map_button
 609
 610   if QuestHelper_Pref.map_button then
 611     QuestHelper:InitMapButton()
 612     self:TextOut("Map button has been |cff00ff00enabled|r.")
 613   else
 614     QuestHelper:HideMapButton()
 615     self:TextOut("Map button has been |cffff0000disabled|r.  Use '/qh button' to restore it.")
 616   end
 617 end
 618
 619 function QuestHelper:ChangeLog()
 620   self:ShowText(QuestHelper_ChangeLog, string.format("QuestHelper %s ChangeLog", QuestHelper_Version))
 621 end
 622
 623 function QuestHelper:Submit()
 624   self:ShowText([[
 625 |TInterface\AddOns\QuestHelper\Art\Upload.tga:100:300|t
 626 Your data can't be submitted automatically, since AddOns can't interact with anything outside of World of Warcraft.
 627
 628 To do this would require me to create some third party software, and I don't want to include such software with QuestHelper, because that's the kind of thing that ill intended people are likely to tamper with.
 629
 630 World of Warcraft stores QuestHelper's data in a file named |cff40bbffQuestHelper.lua|r.
 631
 632 To find this file, first find the the directory you installed World of Warcraft to. In Windows, this defaults to |cff40bbffC:\Program Files\World of Warcraft|r, and on Mac, I believe this is |cff40bbff/Applications/World of Warcraft|r.
 633
 634 If you're using Windows Vista, Windows might protect the Program Files directory from changes, and redirect Warcraft's saved data to |cff40bbffC:\Users\|cffff8000USER|cff40bbff\AppData\Local\VirtualStore\Program Files\World of Warcraft|r, or possibly |cff40bbffC:\Users\Public\Games\World of Warcraft|r.
 635
 636 In that directory, the needed file is in |cff40bbffWTF/Account/|cffff8000ACCOUNT|cff40bbff/SavedVariables|r, replacing ACCOUNT with the name of your account, and in that directory, you should find |cff40bbffQuestHelper.lua|r.
 637
 638 There are other directories with the names of the realms where your characters are stored, |cffffff00but don't enter them|r. They contain information specific to your characters, such as the flight points they know about, and don't contain the quest information I want.
 639
 640 After you find |cff40bbffQuestHelper.lua|r, you can email it to me here: |cff40bbffqhaddon@gmail.com|r
 641 ]], "How To Submit Your Data")
 642 end
 643
 644 function QuestHelper:ShowError(params)
 645   if params and params == "full" then
 646     QuestHelper_ErrorCatcher_GenerateReport()
 647   end
 648   QuestHelper_ErrorCatcher_ReportError()
 649 end
 650
 651 local commands
 652
 653 function QuestHelper:Help(argument)
 654   local text = ""
 655   local argument = argument and argument:upper() or ""
 656
 657   for i1, cat in ipairs(commands) do
 658     text = string.format("%s|cffffff00%s|r\n\n", text, cat[1])
 659     for i, data in ipairs(cat[2]) do
 660       if data[1]:find(argument, 1, true) then
 661         text = string.format("%s    |cffff8000%s|r   %s\n", text, data[1], data[2])
 662
 663         if #data[3] > 0 then
 664           text = string.format("%s\n      %s\n", text, #data[3] == 1 and "Example:" or "Examples:")
 665           for i, pair in ipairs(data[3]) do
 666             text = string.format("%s        |cff40bbff%s|r\n          %s\n", text, pair[1], pair[2])
 667           end
 668         end
 669
 670         text = text .. "\n"
 671       end
 672     end
 673     text = text .. "\n\n"
 674   end
 675
 676   self:ShowText(text == "" and ("No commands containing '"..argument.."'") or text, "QuestHelper Slash Commands")
 677 end
 678
 679 function QuestHelper:Donate(argument)
 680   local text = ""
 681   local argument = argument and argument:upper() or ""
 682
 683   for i1, cat in ipairs(commands) do
 684     text = string.format("%s|cffffff00%s|r\n\n", text, cat[1])
 685     for i, data in ipairs(cat[2]) do
 686       if data[1]:find(argument, 1, true) then
 687         text = string.format("%s    |cffff8000%s|r   %s\n", text, data[1], data[2])
 688
 689         if #data[3] > 0 then
 690           text = string.format("%s\n      %s\n", text, #data[3] == 1 and "Example:" or "Examples:")
 691           for i, pair in ipairs(data[3]) do
 692             text = string.format("%s        |cff40bbff%s|r\n          %s\n", text, pair[1], pair[2])
 693           end
 694         end
 695
 696         text = text .. "\n"
 697       end
 698     end
 699     text = text .. "\n\n"
 700   end
 701
 702   self:ShowText([[
 703 QuestHelper currently survives on |cffff8000your donations|r. I'm trying to make this into a full-time job so I can add more features and fix bugs, and I can't do that without paying the bills.
 704
 705 There's a lot of stuff I plan to add if I can get enough donations to live off. Some of the most-requested features include:
 706
 707   |cff40bbffReduced memory and CPU usage for smoother gameplay|r
 708
 709   |cff40bbffFlying mount support for both Northrend and Outland|r
 710
 711   |cff40bbffBetter support for Northrend "phased" quests|r
 712
 713   |cff40bbffAchievementHelper, built right into QuestHelper|r
 714
 715   |cff40bbffPaths that lead you around obstacles instead of through them|r
 716
 717 I can't guarantee these will show up soon, as there's a lot of work involved in them, but every donation - no matter how small - helps!
 718
 719 To donate, open up your web browser and go to |cffff8000http://www.quest-helper.com/donate|r. Enter however much you feel comfortable donating, then bask in the knowledge that you're supporting QuestHelper.
 720
 721 Thanks!]], "Please Donate!", 500, 20, 10)
 722 end
 723
 724 commands =
 725  {
 726   { "Common commands", {
 727     {"HIDDEN",
 728      "Compiles a list of objectives that QuestHelper is hiding from you. Depending on the reason, you can also unhide the objective.",
 729      {}, QH_Hidden_Menu},
 730
 731     {"INCOMPLETE",
 732      "Show start locations of incomplete quests on the main map. Useful for those pursuing the Loremaster achievement.",
 733      {}, QH_Incomplete},
 734
 735     {"FIND",
 736      "Search for an item, location, or npc.",
 737      {{"/qh find item rune of teleport", "Finds a reagent vendor."},
 738       {"/qh find npc bragok", "Finds the Ratchet flight point."},
 739       {"/qh find loc stormwind 50 60", "Finds the Stormwind auction house."},
 740       {"/qh find loc 50 50", "Finds the center of the zone you're in."},
 741       {"/qh find something", "Searches for something in all categories."},
 742       {"/qh find", "Lists objectives you manually created so that you can remove them."}}, QH_FindName},
 743
 744     {"HIDE",
 745      "Hides QuestHelper's modifications to the minimap and world map, and pauses routing calculations.",
 746       {}, QuestHelper.ToggleHide, QuestHelper},
 747
 748     {"ARROW",
 749      "Toggles Questhelper's built-in directional arrow.",
 750       {{"/qh arrow reset", "Reset location to the center of the screen."}},
 751       QuestHelper.ToggleArrow, QuestHelper},
 752
 753     {"METRIC",
 754      "Toggles distance units between metres and yards.",
 755      {}, QuestHelper.ToggleMetric, QuestHelper},
 756
 757     {"CARTWP",
 758      "Toggles displaying the current objective using Cartographer Waypoints (must be installed separately).",
 759       {}, QuestHelper.ToggleCartWP, QuestHelper},
 760
 761     {"TOMTOM",
 762      "Toggles displaying the current objective using TomTom (must be installed separately).",
 763       {}, QuestHelper.ToggleTomTomWP, QuestHelper},
 764
 765     {"SOLO",
 766      "Toggles solo mode. When enabled, assumes your party members don't exist. Objective sharing with party members will also be disabled.",
 767       {}, QuestHelper.ToggleSolo, QuestHelper},
 768   }},
 769
 770   { "Objective filtering", {
 771     {"FILTER",
 772      "Automatically ignores/unignores objectives based on criteria.",
 773      {
 774       {"/qh filter level", "Toggle showing objectives that are probably too hard, by considering the levels of you and your party members, and the offset set by the level command."},
 775       {"/qh filter group", "Toggle showing objectives that require groups. Automatically disables while grouped."},
 776
 777       {"/qh filter zone", "Toggle showing objectives outside the current zone."},
 778       {"/qh filter done", "Toggle showing objectives for uncompleted quests."},
 779
 780       {"/qh filter blocked", "Toggle showing blocked objectives, such as quest turn-ins for incomplete quests."},
 781       {"/qh filter watched", "Toggle limiting to objectives watched in the Quest Log"},
 782
 783       {"/qh filter wintergrasp", "Toggle ignoring of PvP Wintergrasp quest objectives while not in Wintergrasp"},
 784       {"/qh filter raidaccessible", "Toggle ignoring non-raid quests when in a raid"},
 785       }, QuestHelper.Filter, QuestHelper},
 786
 787     {"LEVEL",
 788      "Adjusts the level offset used by the level filter. Naturally, the level filter must be turned on to have an effect.",
 789      {{"/qh level", "See information related to the level filter."},
 790       {"/qh level 0", "Only allow objectives at or below your current level."},
 791       {"/qh level +2", "Allow objectives up to two levels above your current level."},
 792       {"/qh level -1", "Only allow objectives below your current level."}}, QuestHelper.LevelOffset, QuestHelper},
 793
 794     {"GROUP",
 795      "Adjusts the player cutoff used by the group filter. Naturally, the group filter must be turned on to have an effect.",
 796      {{"/qh group", "See information related to the group filter."},
 797       {"/qh group 0", "Only allow objectives that can be done solo."},
 798       {"/qh group 2", "Allow objectives that require, at most, two groupmembers."},
 799       {"/qh group 5", "Allow objectives that require, at most, five groupmembers."},
 800       {"/qh group instance", "Equivalent to /qh group 5."},
 801       {"/qh group raid", "Equivalent to /qh group 10. All raid quests are currently assumed to be 10-person raids."},
 802     }, QuestHelper.GroupOffset, QuestHelper},
 803
 804     {"SCALE",
 805      "Scales the map icons used by QuestHelper. Will accept values between 50% and 300%.",
 806      {{"/qh scale 1", "Uses the default icon size."},
 807       {"/qh scale 2", "Makes icons twice their default size."},
 808       {"/qh scale 80%", "Makes icons slightly smaller than their default size."}},
 809       QuestHelper.genericSetScale, QuestHelper, "scale", "icon scale", .5, 3},
 810
 811     {"SHARE",
 812      "Toggles objective sharing between QuestHelper users.",
 813       {}, QuestHelper.ToggleShare, QuestHelper},
 814   }},
 815
 816   { "Interface", {
 817     --[[{"BLIZZMAP",
 818      "Toggles the visibility of Blizzard's built-in map points.",
 819      {}, QuestHelper.ToggleBlizzMap, QuestHelper},]]
 820
 821     {"TRACK",
 822      "Toggles the visibility of the QuestHelper's replacement quest tracker.",
 823       {}, QuestHelper.ToggleTrack, QuestHelper},
 824
 825     {"TSCALE",
 826      "Scales the quest tracker provided by QuestHelper. Will accept values between 50% and 300%.",
 827      {},
 828      QuestHelper.TrackerScale, QuestHelper},
 829
 830     {"TRESET",
 831      "Reset's the position of the quest tracker provided by QuestHelper, in cause you move it somewhere inaccessable.",
 832      {{"/qh treset center", "Resets to the center of the screen, instead of a more normal quest tracker location."}}, QuestHelper.ResetTrackerPosition, QuestHelper},
 833
 834     {"TLEVEL",
 835      "Toggles display of levels in the quest tracker provided by QuestHelper.",
 836      {}, QuestHelper.ToggleTrackLevel, QuestHelper},
 837
 838     {"TQCOL",
 839      "Toggles display of colours for the difficulty level of quests in the quest tracker provided by QuestHelper.",
 840      {}, QuestHelper.ToggleTrackQColour, QuestHelper},
 841
 842     {"TOCOL",
 843      "Toggles display of colours for objective progress in the quest tracker provided by QuestHelper.",
 844      {}, QuestHelper.ToggleTrackOColour, QuestHelper},
 845
 846     {"TOOLTIP",
 847      "Toggles appending information about tracked items and NPCs to their tooltips.",
 848       {}, QuestHelper.ToggleTooltip, QuestHelper},
 849
 850     {"FTIME",
 851      "Toggles display of flight time estimates.", {}, QuestHelper.ToggleFlightTimes, QuestHelper},
 852
 853     {"TRAVELTIME",
 854      "Toggles display of travel time estimates.", {}, QuestHelper.ToggleTravelTimes, QuestHelper},
 855
 856     {"ANTS",
 857      "Toggles the display of trails on the world map on and off.",
 858       {}, QuestHelper.ToggleAnts, QuestHelper},
 859
 860     {"ZONES",
 861       "Changes the display of the quest objective zones on the main map.",
 862       {}, QuestHelper.SetZones, QuestHelper},
 863
 864     {"MINIOPACITY",
 865      "Set the opacity of icons on the minimap.",
 866       {}, QuestHelper.genericSetScale, QuestHelper, "mini_opacity", "minimap icon opacity", .1, 1.0},
 867
 868     {"LOCALE",
 869      "Select the locale to use for displayed messages.",
 870       {}, QuestHelper.SetLocale, QuestHelper},
 871
 872     {"BUTTON",
 873      "Toggles the display of QuestHelper's button on the world map.",
 874      {}, QuestHelper.ToggleMapButton, QuestHelper},
 875
 876     {"SETTINGS",
 877      "Opens the Settings menu at the current cursor location. Note that not all settings can be changed through the menu.",
 878      {}, QuestHelper.DoSettingsMenu, QuestHelper},
 879   }},
 880
 881   { "Data collection", {
 882     {"SUBMIT",
 883      "Displays instructions for submitting your collected data.",
 884      {}, QuestHelper.Submit, QuestHelper},
 885
 886      --[[
 887     {"NAG",
 888      "Tells you if you have anything that's missing from the static database. It can only check quests from your own faction, as the quests of your opposing faction are ommitted to save memory.",
 889        {{"/qh nag verbose", "Prints the specific changes that were found."}}, QuestHelper.Nag, QuestHelper},]]
 890
 891     {"PURGE",
 892      "Deletes all QuestHelper's collected data.", {}, QuestHelper.Purge, QuestHelper},
 893
 894     {"HARDRESET",
 895      "Deletes all QuestHelper's collected data and resets QuestHelper preferences.", {}, QuestHelper.HardReset, QuestHelper},
 896   }},
 897
 898   { "Performance and debug", {
 899     {"PERF",
 900      "Sets or shows the route workload. Higher means more agressive route updating, lower means better performance Accepts numbers between 10% and 500%.",
 901      {{"/qh perf", "Show current Performance Factor"},
 902       {"/qh perf 1", "Sets standard performance"},
 903       {"/qh perf 50%", "Does half as much background processing"},
 904       {"/qh perf 3", "Computes routes 3 times more aggressively.  Better have some good horsepower!"}},
 905       QuestHelper.genericSetScale, QuestHelper, "perf_scale_2", "performance factor", .1, 5},
 906
 907     {"PERFLOAD",
 908        "Sets or shows the initialization workload. Higher numbers will make QuestHelper load faster, lower numbers will result in better framerate while it's loading.",
 909        {{"/qh perfload", "Show current Performance Factor"},
 910         {"/qh perfload 1", "Sets standard performance"},
 911         {"/qh perfload 50%", "Does half as much background processing"},
 912         {"/qh perfload 3", "Loads 3 times as quickly."}},
 913         QuestHelper.genericSetScale, QuestHelper, "perfload_scale", "boot performance factor", .2, 5},
 914
 915     {"TOP",
 916      "Displays various performance stats on QuestHelper.",
 917       {
 918         {"/qh top recycle", "Displays detailed information on QuestHelper's recycled item pools"},
 919         {"/qh top usage", "Displays detailed information on which table types are most common"},
 920         {"/qh top cache", "Displays detailed information on the internal distance cache"},
 921         {"/qh top perf", "Displays detailed information on coroutine CPU usage"},
 922       }, QuestHelper.Top, QuestHelper},
 923
 924     {"ERROR",
 925      "Displays the first QuestHelper error that has been generated this session in a form which can be copied out of WoW.",
 926      {}, QuestHelper.ShowError, QuestHelper},
 927
 928     {"POS",
 929       "Prints the player's current position. Exists mainly for my own personal convenience.",
 930       {}, function (qh) qh:TextOut(qh:LocationString(qh.i, qh.x, qh.y) .. "   " .. qh:Location_RawString(qh:Location_RawRetrieve()) .. "  " .. qh:Location_AbsoluteString(qh:Location_AbsoluteRetrieve())) end, QuestHelper},
 931   }},
 932
 933   { "Help", {
 934     {"HELP",
 935      "Displays a list of help commands. Listed commands are filtered by the passed string.",
 936      {}, QuestHelper.Help, QuestHelper},
 937
 938     {"VERSION",
 939      "Displays QuestHelper's version.", {}, QuestHelper.PrintVersion, QuestHelper},
 940
 941     {"CHANGES",
 942      "Displays a summary of changes recently made to QuestHelper.",
 943      {}, QuestHelper.ChangeLog, QuestHelper},
 944
 945     --[[{"DONATE",
 946      "Displays some instructions and a link for donating.",
 947      {}, QuestHelper.Donate, QuestHelper},]]
 948   }},
 949
 950   { "Incredibly Experimental And Unsupported", {
 951     {"BONFIRES",
 952      "Adds waypoints for the Midsummer Bonfires.",
 953      {}, QH_AddFires},
 954     {"BUCKETS",
 955      "Adds waypoints for the Hallow's End Candy Buckets. (Northrend buckets currently not supported)",
 956      {{"/qh buckets kalimdor", "Add waypoints for Kalimdor only"},
 957      {"/qh buckets ek", "Add waypoints for Eastern Kingdoms only"},
 958      {"/qh buckets outland", "Add waypoints for Outland only"},
 959      }, QH_AddBuckets},
 960   }},
 961 }
 962
 963 function QuestHelper_SlashCommand(input)
 964   local _, _, command, argument = string.find(input, "^%s*([^%s]-)%s+(.-)%s*$")
 965   if not command then
 966     command, argument = input, ""
 967   end
 968
 969   command = string.upper(command)
 970
 971   for i1, cat in ipairs(commands) do
 972     for i, data in ipairs(cat[2]) do
 973       if data[1] == command then
 974         local st = {}
 975
 976         for i = 5,#data do table.insert(st, data[i]) end
 977         table.insert(st, argument)
 978
 979         if type(data[4]) == "function" then
 980           data[4](unpack(st))
 981         else
 982           QuestHelper:TextOut(data[1].." is not yet implemented.")
 983         end
 984
 985         return
 986       end
 987     end
 988   end
 989
 990   QuestHelper:Help()
 991 end
 992
 993 SLASH_QuestHelper1 = "/qh"
 994 SLASH_QuestHelper2 = "/questhelper"
 995 SlashCmdList["QuestHelper"] = function (text) QuestHelper_SlashCommand(text) end