-------------------------------------
--      Namespace Declaration      --
-------------------------------------
 
Quecho = {}
 
 
Quecho.quests = setmetatable({}, {__index = function (t,i)
  local v = {}
  rawset(t, i, v)
  return v
end})
 
 
local f = CreateFrame("Frame")
f:SetScript("OnEvent", function(frame, event, ...) if Quecho[event] then return Quecho[event](Quecho, event, ...) end end)
f:RegisterEvent("ADDON_LOADED")
 
 
function Quecho:ADDON_LOADED(event, addon)
  if addon ~= "Quecho" then return end
 
  self:QUEST_LOG_UPDATE()
 
  f:RegisterEvent("UI_INFO_MESSAGE")
  f:RegisterEvent("CHAT_MSG_ADDON")
  f:RegisterEvent("QUEST_LOG_UPDATE")
 
  f:UnregisterEvent("ADDON_LOADED")
  self.ADDON_LOADED = nil
end
 
 
function Quecho:PrintF(...) ChatFrame1:AddMessage(string.format(...)) end
 
 
---------------------------
--      Reset timer      --
---------------------------
 
local DELAY = 60 * 5
local sendtimes, nextpurge = {}
local function OnUpdate(f)
  if not nextpurge then f:SetScript("OnUpdate", nil) end
 
  local now = GetTime()
  if now >= (nextpurge + DELAY) then
    local next2
    for sender,objectives in pairs(Quecho.quests) do
      for objective in pairs(objectives) do
        local t = sendtimes[sender..objective]
        if (t + DELAY) <= now then
          sendtimes[sender..objective] = nil
          Quecho.quests[sender][objective] = nil
        elseif not next2 or t < next2 then next2 = t end
      end
    end
 
    Quecho:UpdateTracker()
    if not next2 then f:SetScript("OnUpdate", nil) end
    nextpurge = next2
  end
end
 
 
------------------------------
--      Event Handlers      --
------------------------------
 
function Quecho:UI_INFO_MESSAGE(event, msg)
  if not msg or not msg:find("(.+): (%d+/%d+)") then return end
  SendAddonMessage("Quecho", msg, "PARTY")
end
 
 
local myname = UnitName("player")
function Quecho:CHAT_MSG_ADDON(event, prefix, msg, channel, sender)
  if sender == myname then return end
 
  if prefix == "Quecho" then
    local _, _, objective, progress = msg:find("(.+): (%d+/%d+)")
 
    sendtimes[sender..objective] = GetTime()
    if not nextpurge then
      nextpurge = GetTime()
      f:SetScript("OnUpdate", OnUpdate)
    end
    self.quests[sender][objective] = progress
 
    self:UpdateTracker()
 
  elseif prefix == "Quecho2" then self:PrintF("%s turned in %s ", sender, msg)
  elseif prefix == "Quecho3" then self:PrintF("%s accepted %s ", sender, msg)
  elseif prefix == "Quecho4" then self:PrintF("%s abandoned %s ", sender, msg) end
end
 
 
local currentquests, oldquests, firstscan, abandoning = {}, {}, true
function Quecho:QUEST_LOG_UPDATE()
  currentquests, oldquests = oldquests, currentquests
  for i in pairs(currentquests) do currentquests[i] = nil end
 
  for i=1,GetNumQuestLogEntries() do
    local link = GetQuestLink(i)
    if link then currentquests[link] = true end
  end
 
  if firstscan then
    firstscan = nil
    return
  end
 
  for link in pairs(oldquests) do if not currentquests[link] then SendAddonMessage(abandoning and "Quecho4" or "Quecho2", link, "PARTY") end end
  for link in pairs(currentquests) do if not oldquests[link] then SendAddonMessage("Quecho3", link, "PARTY") end end
 
  abandoning = nil
end
 
 
local orig = AbandonQuest
function AbandonQuest(...)
  abandoning = true
  return orig(...)
end