questlog.lua

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