local L = setmetatable(GetLocale() == "deDE" and {
  ["(.*) won: (.+)"] = "(.*) gewinnt: (.+)",
  ["%s|Hgreedbeacon:%d|h[%s roll]|h|r %s won %s "] = "%s|Hgreedbeacon:%d|h[%s roll]|h|r %s gewinnt: %s",
  ["(.*) has?v?e? selected (.+) for: (.+)"] = "(.+) hab?t f\195\188r (.+) '(.+)' ausgew\195\164hlt",
  ["(.+) Roll . (%d+) for (.+) by (.+)"] = "Wurf f\195\188r (.*): (%d+) f\195\188r (.*) von (.*)",
  [" passed on: "] = " w\195\188rfelt nicht f\195\188r: ",
  [" automatically passed on: "] = " passt automatisch bei ",
  ["You passed on: "] = "Ihr habt gepasst bei: ",
  ["Everyone passed on: "] = "Alle haben gepasst bei: ",
  ["Greed"] = GREED,
  ["Need"] = NEED,
} or {}, {__index = function(t,i) return i end})
 
local colorneed, colorgreed = "|cffff0000", "|cffffff00"
local coloredwords = {[L.Greed] = colorgreed..L.Greed, [L.Need] = colorneed..L.Need}
local rolls = {}
 
local function Print(...) ChatFrame1:AddMessage(string.join(" ", "|cFF33FF99GreedBeacon|r:", ...)) end
 
local debugf = tekDebug and tekDebug:GetFrame("GreedBeacon")
local function Debug(...) if debugf then debugf:AddMessage(string.join(", ", ...)) end end
 
 
local chatframes = {[ChatFrame1] = false, [ChatFrame2] = false, [ChatFrame3] = false, [ChatFrame4] = false, [ChatFrame5] = false, [ChatFrame6] = false, [ChatFrame7] = false}
for frame in pairs(chatframes) do
  for i,v in pairs(frame.messageTypeList) do
    if v == "LOOT" then
      chatframes[frame] = true
      Debug("Initializing", frame:GetName())
    end
  end
end
 
local origadd, origrem = ChatFrame_AddMessageGroup, ChatFrame_RemoveMessageGroup
ChatFrame_AddMessageGroup = function(frame, channel, ...)
  if channel == "LOOT" then
    chatframes[frame] = true
    Debug("ChatFrame_AddMessageGroup", frame:GetName())
  end
  return origadd(frame, channel, ...)
end
ChatFrame_RemoveMessageGroup = function(frame, channel, ...)
  if channel == "LOOT" then
    chatframes[frame] = false
    Debug("ChatFrame_RemoveMessageGroup", frame:GetName())
  end
  return origrem(frame, channel, ...)
end
 
 
local function FindRoll(link, player, hasselected)
  for i,roll in ipairs(rolls) do
    if roll._link == link and not roll._winner and (not roll[player] or hasselected) then return roll end
  end
  Debug("New roll started", link)
  local newroll = {_link = link}
  table.insert(rolls, newroll)
  return newroll
end
 
 
local f = CreateFrame("Frame")
f:RegisterEvent("CHAT_MSG_LOOT")
f:SetScript("OnEvent", function(self, event, msg)
  local rolltype, rollval, link, player = msg:match(L["(.+) Roll . (%d+) for (.+) by (.+)"])
  if player then
    local roll = FindRoll(link, player, true)
    Debug("Roll detected", player, rolltype, rollval, link)
    roll[player] = (rolltype == "Need" and colorneed or colorgreed)..rollval
    roll._type = rolltype
    return
  end
 
  local player, selection, link = msg:match(L["(.*) has?v?e? selected (.+) for: (.+)"])
  if player and player ~= "" then
    player = player == YOU and UnitName("player") or player
    Debug("Selection detected", player, selection, link)
    FindRoll(link, player)[player] = coloredwords[selection]
    return
  end
 
  local player, link = msg:match(L["(.*) won: (.+)"])
  if player then
    player = player == YOU and UnitName("player") or player
    for i,roll in ipairs(rolls) do
      if roll._link == link and roll[player] and not roll._printed then
        roll._printed = true
        roll._winner = player
        Debug("Roll completed", roll._type or "nil", i, player, link)
        local msg = string.format(L["%s|Hgreedbeacon:%d|h[%s roll]|h|r %s won %s "], roll._type == L.Need and colorneed or colorgreed, i, roll._type or "???", player, link)
        for frame,val in pairs(chatframes) do if val then frame:AddMessage(msg) end end
        return
      end
    end
    Print("No match found for", msg)
    return
  end
end)
 
 
local function filter(msg)
  if msg:match(L["(.*) won: (.+)"]) or msg:match(L["(.*) has?v?e? selected (.+) for: (.+)"]) or msg:match(L["(.+) Roll . (%d+) for (.+) by (.+)"])
    or msg:match(L["You passed on: "]) or msg:match(L[" automatically passed on: "]) or (msg:match(L[" passed on: "]) and not msg:match(L["Everyone passed on: "])) then
    Debug("Supressing chat message", msg)
    return true
  end
end
ChatFrame_AddMessageEventFilter("CHAT_MSG_LOOT", filter)
 
 
local orig2 = SetItemRef
function SetItemRef(link, text, button)
  local id = link:match("greedbeacon:(%d+)")
  if id then
    ShowUIPanel(ItemRefTooltip)
    if not ItemRefTooltip:IsShown() then ItemRefTooltip:SetOwner(UIParent, "ANCHOR_PRESERVE") end
 
    local i = tonumber(id)
    local val = rolls[i]
    ItemRefTooltip:ClearLines()
    ItemRefTooltip:AddLine(coloredwords[val._type].." roll|r - "..val._link)
    ItemRefTooltip:AddDoubleLine("Winner:", "|cffffffff"..val._winner)
    for i,v in pairs(val) do if string.sub(i, 1, 1) ~= "_" then ItemRefTooltip:AddDoubleLine(i, v) end end
    ItemRefTooltip:Show()
  else return orig2(link, text, button) end
end