questlog.lua

   1 QuestHelper_File["questlog.lua"] = "Development Version"
   2
   3 --[[QuestHelper.debug_objectives =
   4  {
   5   ["Harbinger of Doom"] =
   6    {
   7     cat="quest", what="Harbinger of Doom", sub=
   8      {
   9       ["Slay Harbinger Skyriss"] =
  10        {
  11         cat="monster", what="Harbinger Skyriss"
  12        }
  13      }
  14    }
  15  }]]
  16
  17 function QuestHelper:LoadDebugObjective(name, data)
  18   local obj = self:GetObjective(data.cat, data.what)
  19
  20   self:SetObjectivePriority(obj, 3)
  21   self:AddObjectiveWatch(obj, name)
  22
  23   if data.sub then
  24     for name, sdata in pairs(data.sub) do
  25       self:ObjectiveObjectDependsOn(obj, QuestHelper:LoadDebugObjective(name, sdata))
  26     end
  27   end
  28
  29   return obj
  30 end
  31
  32 local ITEM_PATTERN, REPUTATION_PATTERN, MONSTER_PATTERN, OBJECT_PATTERN = false, false, false, false
  33
  34 local function buildPatterns()
  35   if not ITEM_PATTERN then
  36     ITEM_PATTERN = QuestHelper:convertPattern(QUEST_OBJECTS_FOUND)
  37     REPUTATION_PATTERN = QuestHelper:convertPattern(QUEST_FACTION_NEEDED)
  38     MONSTER_PATTERN = QuestHelper:convertPattern(QUEST_MONSTERS_KILLED)
  39     OBJECT_PATTERN = QuestHelper:convertPattern(QUEST_OBJECTS_FOUND)
  40     replacePattern = nil
  41   end
  42 end
  43
  44 function QuestHelper:GetQuestLogObjective(quest_index, objective_index)
  45   local text, category, done = GetQuestLogLeaderBoard(objective_index, quest_index)
  46
  47   buildPatterns()
  48
  49   local wanted, verb, have, need
  50
  51   if category == "monster" then
  52     wanted, have, need = MONSTER_PATTERN(text)
  53     verb = QHText("SLAY_VERB")
  54   elseif category == "item" then
  55     wanted, have, need = ITEM_PATTERN(text)
  56     verb = QHText("ACQUIRE_VERB")
  57   elseif category == "reputation" then
  58     wanted, have, need = REPUTATION_PATTERN(text)
  59   elseif category == "object" then
  60     wanted, have, need = OBJECT_PATTERN(text)
  61   elseif category == "event" then
  62     wanted, have, need = text, 0, 1
  63   else
  64     QuestHelper:TextOut("Unhandled event type: "..category)
  65   end
  66
  67   if not wanted then
  68     verb = nil
  69
  70     _, _, wanted, have, need = string.find(text, "^%s*(.-)%s*:%s*(.-)%s*/%s*(.-)%s*$")
  71     if not wanted then
  72       _, _, wanted = string.find("^%s*(.-)%s*$")
  73       have, need = 0, 1
  74     end
  75   end
  76
  77   if not need then need = 1 end
  78   if done then have = need end
  79
  80   return category, verb, wanted or text, tonumber(have) or have, tonumber(need) or need
  81 end
  82
  83 function QuestHelper:FixedGetQuestLogTitle(index)
  84   local title, level, qtype, players, header, collapsed, status, daily = GetQuestLogTitle(index)
  85
  86   if title and level then
  87     local _, _, real_title = string.find(title, "^%["..level.."[^%s]-%]%s?(.+)$")
  88     title = real_title or title
  89   end
  90
  91   return title, level, qtype, players, header, collapsed, status, daily
  92 end
  93
  94 function QuestHelper:GetQuestLevel(quest_name)
  95   local index = 1
  96   while true do
  97     local title, level = self:FixedGetQuestLogTitle(index)
  98     if not title then return 0 end
  99     if title == quest_name then
 100       local original_entry = GetQuestLogSelection()
 101       SelectQuestLogEntry(index)
 102       local hash = self:HashString(select(2, GetQuestLogQuestText()))
 103       SelectQuestLogEntry(original_entry)
 104       return level, hash
 105     end
 106     index = index + 1
 107   end
 108 end
 109
 110 function QuestHelper:ItemIsForQuest(item_object, item_name)
 111   if not item_object.o.quest then
 112     return nil
 113   else
 114     for quest, lq in pairs(self.quest_log) do
 115       if lq.goal then
 116         for i, lo in ipairs(lq.goal) do
 117           if lo.category == "item" and lo.wanted == item_name then
 118             return quest
 119           end
 120         end
 121       end
 122     end
 123   end
 124   return nil
 125 end
 126
 127 local first_time = true
 128
 129 function QuestHelper:ScanQuestLog()
 130   local original_entry = GetQuestLogSelection()
 131   local quests = self.quest_log
 132
 133   local party_levels = self.party_levels
 134   if not party_levels then
 135     party_levels = {}
 136     self.party_levels = party_levels
 137   end
 138
 139   local level_average = UnitLevel("player")
 140   local users = 1
 141
 142   if not QuestHelper_Pref.solo then
 143     for n=1,4 do
 144       local level = UnitLevel("party"..n)
 145
 146       if level and level > 0 then
 147         level_average = level_average + level
 148         users = users + 1
 149       end
 150     end
 151   end
 152
 153   level_average = level_average / users
 154
 155   for n = 1,5 do
 156     party_levels[n] = level_average+15-15*math.pow(n/users, 0.4)
 157   end
 158
 159   for i, quest in pairs(quests) do
 160     -- Will set this to false if the player still has it.
 161     quest.removed = true
 162   end
 163
 164   local index = 1
 165   while true do
 166     local title, level, qtype, players, header, collapsed, status, daily = self:FixedGetQuestLogTitle(index)
 167
 168     if not title then break end
 169
 170     if players and players <= 0 then
 171       players = nil
 172     end
 173
 174     if not players then
 175       players = qtype == nil and 1 or 5
 176     else
 177       players = math.min(5, math.max(1, players))
 178     end
 179
 180     -- Quest was failed if status is -1.
 181     if not header and status ~= -1 then
 182       SelectQuestLogEntry(index)
 183       local hash = self:HashString(select(2, GetQuestLogQuestText()))
 184       local quest = self:GetQuest(title, level, hash)
 185       local lq = quests[quest]
 186       local is_new = false
 187
 188       local ignored = party_levels[players]+QuestHelper_Pref.level < level
 189
 190       if self.quest_giver and self.quest_giver[title] then
 191         quest.o.start = self.quest_giver[title]
 192         self.quest_giver[title] = nil
 193       end
 194
 195       if not lq then
 196         lq = {}
 197
 198         quests[quest] = lq
 199
 200         if GetQuestLogTimeLeft() then
 201           -- Quest has a timer, so give it a higher than normal priority.
 202           self:SetObjectivePriority(quest, 2)
 203         else
 204           -- Use a normal priority.
 205           self:SetObjectivePriority(quest, 3)
 206         end
 207
 208
 209         quest.o.id = self:GetQuestID(index)
 210
 211         -- Can't add the objective here, if we don't have it depend on the objectives
 212         -- first it'll get added and possibly not be doable.
 213         -- We'll add it after the objectives are determined.
 214         is_new = true
 215       end
 216
 217       lq.index = index
 218       lq.removed = false
 219
 220       if GetNumQuestLeaderBoards(index) > 0 then
 221         if not lq.goal then lq.goal = {} end
 222         for objective = 1, GetNumQuestLeaderBoards(index) do
 223           local lo = lq.goal[objective]
 224           if not lo then lo = {} lq.goal[objective] = lo end
 225
 226           local category, verb, wanted, have, need = self:GetQuestLogObjective(index, objective)
 227
 228           if not wanted or not string.find(wanted, "[^%s]") then
 229             self.defered_quest_scan = true
 230           elseif not lo.objective then
 231             -- objective is new.
 232             lo.objective = self:GetObjective(category, wanted)
 233             lo.objective.o.quest = true -- If I ever decide to prune the DB, I'll have the stuff actually used in quests marked.
 234             self:ObjectiveObjectDependsOn(quest, lo.objective)
 235
 236             lo.objective.quest = quest
 237
 238             if verb then
 239               lo.reason = QHFormat("OBJECTIVE_REASON", verb, wanted, title)
 240             else
 241               lo.reason = QHFormat("OBJECTIVE_REASON_FALLBACK", wanted, title)
 242             end
 243
 244             lo.category = category
 245             lo.wanted = wanted
 246             lo.have = have
 247             lo.need = need
 248
 249             if have ~= need then -- If the objective isn't complete, watch it.
 250               lo.objective:Share()
 251               self:AddObjectiveWatch(lo.objective, lo.reason)
 252             end
 253           elseif lo.have ~= have then
 254             if lo.objective.peer then
 255               for u, l in pairs(lo.objective.peer) do
 256                 -- Peers don't know about our progress.
 257                 lo.objective.peer[u] = math.min(l, 2)
 258               end
 259             end
 260
 261             if have == need or (type(have) == "number" and have > lo.have) then
 262               if category == "item" then
 263                 self:AppendItemObjectivePosition(lo.objective, wanted, self:PlayerPosition())
 264               else
 265                 self:AppendObjectivePosition(lo.objective, self:PlayerPosition())
 266               end
 267             end
 268
 269             if lo.have == need then -- The objective was done, but now its not.
 270               lo.objective:Share()
 271               self:AddObjectiveWatch(lo.objective, lo.reason)
 272             elseif have == need then -- The objective is now finished.
 273               lo.objective:Unshare()
 274               self:RemoveObjectiveWatch(lo.objective, lo.reason)
 275             end
 276
 277             lo.have = have
 278           end
 279
 280           if lo.objective then -- Might not have loaded the objective yet, if it wasn't in the local cache and we defered loading it.
 281             lo.objective.filter_level = ignored
 282             lo.objective.filter_done = true
 283             self:SetObjectiveProgress(lo.objective, UnitName("player"), have, need)
 284           end
 285         end
 286       else
 287         quest.goal = nil
 288       end
 289
 290       if is_new then
 291         lq.reason = QHFormat("OBJECTIVE_REASON_TURNIN", title)
 292         quest:Share()
 293         self:AddObjectiveWatch(quest, lq.reason)
 294       end
 295     end
 296     index = index + 1
 297   end
 298
 299   for quest, lq in pairs(quests) do
 300     if lq.removed then
 301       if lq.goal then
 302         for i, lo in ipairs(lq.goal) do
 303           if lo.objective and lo.have ~= lo.need then
 304             lo.objective:Unshare()
 305             self:RemoveObjectiveWatch(lo.objective, lo.reason)
 306           end
 307
 308           self:SetObjectiveProgress(lo.objective, UnitName("player"), nil, nil)
 309         end
 310       end
 311
 312       quest:Unshare()
 313       self:RemoveObjectiveWatch(quest, lq.reason)
 314       quests[quest] = nil
 315     end
 316   end
 317
 318   if first_time then
 319     first_time = false
 320     self:ForceRouteUpdate(3)
 321   end
 322
 323   SelectQuestLogEntry(original_entry)
 324
 325   if QuestHelper_Pref.track then
 326     self.tracker:update()
 327   end
 328 end