Meter.lua

-------------------------------------------------------------------------------
--  BlackwellUI for Azeroth Survivors  -  Meter.lua
--  Copyright (c) 2026 Blackwell Code. All rights reserved. See LICENSE.
--  Consolidated Cyberpunk Combat Meter & Multiplayer Party Drilldown:
--  - Single unified window with 5 modes: Damage, Healing, Boss, Taken, Party
--  - Full Multiplayer / Party mode: tracks all party members with class colors,
--    damage share, DPS, and Top Ability badge
--  - Party Drilldown: click any party member to inspect their abilities & spells
--  - Combat Log listener for party spell tracking & biggest critical strikes
--  - 8 Statusbar rows with ability/class icons, smooth mouse-wheel scrolling,
--    and comprehensive telemetry hover tooltips
--  - Session reset [R] (Left-click: session delta, Right-click: restore run totals)
--  Lua 5.0 / WoW 1.12.1: no '#', no '%', no string methods.
-------------------------------------------------------------------------------

local B = BlackwellUI
local L = B.L
local mod = {}
mod.label = "Damage Meter"

local METER_WIDTH = 330
local MAX_METER_ROWS = 12  -- rows built; how many show is a setting (default 8)
local ROW_HEIGHT = 20      -- text line plus the thin bar underneath
local ROW_GAP = 3
local PAD = 12             -- inner padding of the round panel
local CHIP_HEIGHT = 16
local BAR_HEIGHT = 3
-- Header (8 + 18), headline (2 + 26), chips (6 + 16), columns (6 + 12), gap 4
local TOP_HEIGHT = 98
local COLLAPSED_HEIGHT = 62

local function VisibleRows()
    local n = math.floor(B:ModOpt("meter", "rows", 8))
    if n < 1 then n = 1 end
    if n > MAX_METER_ROWS then n = MAX_METER_ROWS end
    return n
end

local CLASS_SHEET = "Interface\\Glues\\CharacterCreate\\UI-CharacterCreate-Classes"
local CLASS_COORDS = {
    ["WARRIOR"] = { 0, 0.25, 0, 0.25 },
    ["MAGE"]    = { 0.25, 0.49609375, 0, 0.25 },
    ["ROGUE"]   = { 0.49609375, 0.7421875, 0, 0.25 },
    ["DRUID"]   = { 0.7421875, 0.98828125, 0, 0.25 },
    ["HUNTER"]  = { 0, 0.25, 0.25, 0.5 },
    ["SHAMAN"]  = { 0.25, 0.49609375, 0.25, 0.5 },
    ["PRIEST"]  = { 0.49609375, 0.7421875, 0.25, 0.5 },
    ["WARLOCK"] = { 0.7421875, 0.98828125, 0.25, 0.5 },
    ["PALADIN"] = { 0, 0.25, 0.5, 0.75 },
}

local TABS = {
    { key = "damage",  label = "Damage",  r = 1.00, g = 0.75, b = 0.20 },
    { key = "healing", label = "Healing", r = 0.25, g = 0.90, b = 0.45 },
    { key = "boss",    label = "Boss",    r = 1.00, g = 0.35, b = 0.15 },
    { key = "taken",   label = "Taken",   r = 0.90, g = 0.25, b = 0.25 },
    { key = "party",   label = "Party",   r = 0.30, g = 0.75, b = 1.00 },
}

-- Spell names that contain ": " themselves; they are not "Item: Spell" procs.
local COLON_SPELL_PREFIXES = {
    ["power word"] = true,
    ["shadow word"] = true,
    ["holy word"] = true,
}

local function SplitProcName(sName)
    local _, _, itemPrefix, spellSuffix = string.find(sName, "^(.-): (.+)$")
    if not itemPrefix or itemPrefix == "" or not spellSuffix or spellSuffix == "" then return nil end
    if COLON_SPELL_PREFIXES[string.lower(itemPrefix)] then return nil end
    return itemPrefix, spellSuffix
end

B.meterOffsets = { done = {}, boss = {}, healing = {}, taken = {}, party = {}, baseTime = 0, active = false }
B.biggestCrits = {}
B.meterPartySpells = {} -- [playerName][spellName] = { dmg = total, hits = count, crits = count }
B.meterDrilldown = nil
B.meterScrollOffset = 0
B.meterCollapsed = false

-------------------------------------------------------------------------------
--  Combat Log Listener for Crits & Party Spells
-------------------------------------------------------------------------------
local logWatcher = CreateFrame("Frame")
logWatcher:RegisterEvent("CHAT_MSG_SPELL_SELF_DAMAGE")
logWatcher:RegisterEvent("CHAT_MSG_COMBAT_SELF_HITS")
logWatcher:RegisterEvent("CHAT_MSG_SPELL_PARTY_DAMAGE")
logWatcher:RegisterEvent("CHAT_MSG_SPELL_PERIODIC_PARTY_DAMAGE")
logWatcher:RegisterEvent("CHAT_MSG_COMBAT_PARTY_HITS")
logWatcher:RegisterEvent("CHAT_MSG_SPELL_FRIENDLYPLAYER_DAMAGE")

local function RecordPartySpell(player, spell, dmg, isCrit)
    if not player or player == "" or not spell or spell == "" then return end
    local pKey = string.lower(player)
    local sKey = spell
    if not B.meterPartySpells[pKey] then
        B.meterPartySpells[pKey] = {}
    end
    if not B.meterPartySpells[pKey][sKey] then
        B.meterPartySpells[pKey][sKey] = { name = spell, dmg = 0, hits = 0, crits = 0 }
    end
    local rec = B.meterPartySpells[pKey][sKey]
    rec.dmg = rec.dmg + (tonumber(dmg) or 0)
    rec.hits = rec.hits + 1
    if isCrit then
        rec.crits = rec.crits + 1
    end
end

logWatcher:SetScript("OnEvent", function()
    local msg = arg1 or ""
    if event == "CHAT_MSG_SPELL_SELF_DAMAGE" then
        local _, _, spell, amount = string.find(msg, "^Your (.-) crits .- for (%d+)")
        if spell and amount then
            local val = tonumber(amount) or 0
            local cur = B.biggestCrits[spell] or 0
            if val > cur then B.biggestCrits[spell] = val end
        end
    elseif event == "CHAT_MSG_COMBAT_SELF_HITS" then
        local _, _, amount = string.find(msg, "crits .- for (%d+)")
        if not amount then _, _, amount = string.find(msg, "crit .- for (%d+)") end
        if amount then
            local val = tonumber(amount) or 0
            local cur = B.biggestCrits["Melee"] or 0
            if val > cur then B.biggestCrits["Melee"] = val end
        end
    elseif event == "CHAT_MSG_SPELL_PARTY_DAMAGE" or event == "CHAT_MSG_SPELL_FRIENDLYPLAYER_DAMAGE" then
        -- "Valandil's Blizzard crits Kobold Vermin for 640 Frost damage."
        local _, _, p, sp, amt = string.find(msg, "^(.-)'s (.-) crits .- for (%d+)")
        if p and sp and amt then
            RecordPartySpell(p, sp, amt, true)
            return
        end
        -- "Valandil's Blizzard hits Kobold Vermin for 320 Frost damage."
        local _, _, p2, sp2, amt2 = string.find(msg, "^(.-)'s (.-) hits .- for (%d+)")
        if p2 and sp2 and amt2 then
            RecordPartySpell(p2, sp2, amt2, false)
            return
        end
    elseif event == "CHAT_MSG_SPELL_PERIODIC_PARTY_DAMAGE" then
        -- "Kobold Vermin suffers 140 Shadow damage from Eluna's Shadow Word: Pain."
        local _, _, amt, p, sp = string.find(msg, "suffers (%d+).-damage from (.-)'s ([^%.]+)")
        if p and sp and amt then
            RecordPartySpell(p, sp, amt, false)
            return
        end
    elseif event == "CHAT_MSG_COMBAT_PARTY_HITS" then
        -- "Thorin crits Kobold Vermin for 420."
        local _, _, p, amt = string.find(msg, "^(.-) crits .- for (%d+)")
        if p and amt then
            RecordPartySpell(p, "Melee", amt, true)
            return
        end
        -- "Thorin hits Kobold Vermin for 210."
        local _, _, p2, amt2 = string.find(msg, "^(.-) hits .- for (%d+)")
        if p2 and amt2 then
            RecordPartySpell(p2, "Melee", amt2, false)
            return
        end
    end
end)

function B:ResetMeter(restoreAll)
    if restoreAll then
        self.meterOffsets.done = {}
        self.meterOffsets.boss = {}
        self.meterOffsets.healing = {}
        self.meterOffsets.taken = {}
        self.meterOffsets.party = {}
        self.meterOffsets.baseTime = 0
        self.meterOffsets.active = false
        self.biggestCrits = {}
        self.meterPartySpells = {}
        self.meterDrilldown = nil
        self.meterScrollOffset = 0
        return
    end

    local s = self:GetState()
    self.meterOffsets.done = {}
    self.meterOffsets.boss = {}
    self.meterOffsets.healing = {}
    self.meterOffsets.taken = {}
    self.meterOffsets.party = {}
    self.meterOffsets.active = true
    self.biggestCrits = {}
    self.meterPartySpells = {}
    self.meterDrilldown = nil
    self.meterScrollOffset = 0

    local curT = 0
    if s and s.run and s.run.t then
        curT = tonumber(s.run.t) or 0
    elseif s and s.time then
        curT = tonumber(s.time) or 0
    else
        curT = GetTime()
    end
    self.meterOffsets.baseTime = curT

    local rawDone = (s and s.meter) or (type(AZS_GetMeter) == "function" and AZS_GetMeter()) or (type(AZS_METER) == "table" and AZS_METER) or {}
    if type(rawDone) == "table" then
        for i = 1, table.getn(rawDone) do
            local item = rawDone[i]
            if type(item) == "table" and item.name then
                self.meterOffsets.done[item.name] = tonumber(item.dmg) or 0
            end
        end
    end

    local rawBoss = (s and s.bossMeter) or (type(AZS_GetBossMeter) == "function" and AZS_GetBossMeter()) or {}
    if type(rawBoss) == "table" then
        for i = 1, table.getn(rawBoss) do
            local item = rawBoss[i]
            if type(item) == "table" and item.name then
                self.meterOffsets.boss[item.name] = tonumber(item.dmg) or 0
            end
        end
    end

    local rawHeal = (s and s.healing) or (type(AZS_GetHealing) == "function" and AZS_GetHealing()) or {}
    if type(rawHeal) == "table" then
        for i = 1, table.getn(rawHeal) do
            local item = rawHeal[i]
            if type(item) == "table" and item.name then
                self.meterOffsets.healing[item.name] = tonumber(item.healing or item.dmg) or 0
            end
        end
    end

    local rawTaken = (s and s.taken) or (type(AZS_TAKEN) == "table" and AZS_TAKEN) or {}
    if type(rawTaken) == "table" then
        for i = 1, table.getn(rawTaken) do
            local item = rawTaken[i]
            if type(item) == "table" and item.source then
                self.meterOffsets.taken[item.source] = tonumber(item.dmg) or 0
            end
        end
    end

    local rawParty = (s and s.party) or (type(AZS_GetPartyMeter) == "function" and AZS_GetPartyMeter()) or (type(AZS_PARTY) == "table" and AZS_PARTY) or {}
    if type(rawParty) == "table" then
        for i = 1, table.getn(rawParty) do
            local item = rawParty[i]
            if type(item) == "table" and item.name then
                self.meterOffsets.party[item.name] = tonumber(item.dmg) or 0
            end
        end
    end
end

-------------------------------------------------------------------------------
--  Consolidated Meter Frame Creation
-------------------------------------------------------------------------------
-- Merge button colour: blue while procs are merged, grey while separated.
local function PaintMergeButton(btn)
    if B.db and B.db.mergeItemProcs then
        btn:SetState(0.30, 0.75, 1.00, true)
    else
        btn:SetState(0.60, 0.60, 0.60, false)
    end
end

local function OnRowClick()
    local d = this.data
    if not d then return end
    local curMode = B.db.meterMode or "damage"
    if curMode == "party" and not B.meterDrilldown then
        if d.name and d.name ~= "" then
            B.meterDrilldown = d.name
            B.meterScrollOffset = 0
            B:Tick()
        end
    end
end

local function OnRowEnter()
    local d = this.data
    if not d then return end
    GameTooltip:SetOwner(this, "ANCHOR_LEFT")
    GameTooltip:ClearLines()
    GameTooltip:AddLine(d.name or L["Ability"], 1, 1, 1)

    if this.valStr then
        GameTooltip:AddLine(this.valStr, 0.85, 0.85, 0.85)
    end

    if d.share then
        GameTooltip:AddLine(string.format(L["Share: %.1f%%"], d.share), 0.95, 0.86, 0.62)
    end

    if d.dps and d.dps > 0 then
        GameTooltip:AddLine(string.format(L["DPS: %s"], B:Short(d.dps)), 0.70, 0.92, 0.68)
    end

    if d.procDmg and d.procDmg > 0 then
        GameTooltip:AddLine(" ")
        GameTooltip:AddLine(L["Proc & Item Breakdown:"], 0.30, 0.75, 1.00)
        if d.baseDmg and d.baseDmg > 0 then
            local basePct = (d.dmg > 0) and (d.baseDmg / d.dmg * 100) or 0
            GameTooltip:AddDoubleLine("  " .. L["Direct Casts:"], string.format("%s (%.1f%%)", B:Short(d.baseDmg), basePct), 0.85, 0.85, 0.85, 1, 1, 1)
        end
        local totalProcPct = (d.dmg > 0) and (d.procDmg / d.dmg * 100) or 0
        GameTooltip:AddDoubleLine("  " .. L["Total Procs:"], string.format("%s (%.1f%%)", B:Short(d.procDmg), totalProcPct), 0.30, 0.75, 1.00, 0.30, 0.75, 1.00)
        if d.procs and table.getn(d.procs) > 0 then
            for pIdx = 1, table.getn(d.procs) do
                local pInfo = d.procs[pIdx]
                if pInfo and pInfo.name and pInfo.dmg then
                    GameTooltip:AddDoubleLine(string.format("    - %s:", pInfo.name), B:Short(pInfo.dmg), 0.70, 0.70, 0.70, 0.90, 0.90, 0.90)
                end
            end
        end
    end

    if d.hits and d.hits > 0 then
        local crits = d.crits or 0
        local critPct = (d.hits > 0) and math.floor(crits / d.hits * 100 + 0.5) or 0
        GameTooltip:AddLine(string.format(L["%d hits, %d crits (%d%% crit)"], d.hits, crits, critPct), 1.0, 0.82, 0.55)
    end

    local crit = B.biggestCrits and B.biggestCrits[d.name]
    if not crit and B.biggestCrits then
        for k, v in pairs(B.biggestCrits) do
            if string.lower(k) == string.lower(d.name) then
                crit = v
                break
            end
        end
    end
    if d.procs and table.getn(d.procs) > 0 and B.biggestCrits then
        for pIdx = 1, table.getn(d.procs) do
            local pInfo = d.procs[pIdx]
            if pInfo and pInfo.name then
                local pFull = pInfo.name .. ": " .. d.name
                local pCrit = B.biggestCrits[pFull]
                if pCrit and (not crit or pCrit > crit) then
                    crit = pCrit
                end
            end
        end
    end
    if crit and crit > 0 then
        GameTooltip:AddLine(string.format(L["Biggest Crit: %s"], B:Short(crit)), 1.0, 0.82, 0.10)
    end

    if d.top and d.top ~= "" then
        GameTooltip:AddLine(string.format(L["Top Ability: %s (%s DPS)"], d.top, B:Short(d.topdps or 0)), 0.75, 0.85, 1.0)
    end

    if (B.db.meterMode or "damage") == "party" and not B.meterDrilldown then
        GameTooltip:AddLine(L["Click to view player's abilities & spells"], 0.30, 0.75, 1.00)
    end

    GameTooltip:Show()
end

function mod:Create()
    local f = CreateFrame("Frame", "BUI_MeterFrame", UIParent)
    BUI_Meter = f
    BUI_BossMeterFrame = f -- Compatibility alias
    self.frame = f

    f:SetWidth(METER_WIDTH)
    f:SetHeight(226)
    B:Panel(f)

    ---------------------------------------------------------------------------
    --  1. Header: mode label (click cycles the mode) and round controls
    ---------------------------------------------------------------------------
    local hdr = CreateFrame("Button", nil, f)
    hdr:SetHeight(18)
    hdr:SetPoint("TOPLEFT", f, "TOPLEFT", PAD, -8)
    hdr:SetPoint("TOPRIGHT", f, "TOPRIGHT", -PAD, -8)
    hdr:EnableMouse(true)
    if hdr.RegisterForClicks then
        hdr:RegisterForClicks("LeftButtonUp")
    end
    hdr:SetScript("OnClick", function()
        local cur = B.db.meterMode or "damage"
        if cur == "damage" or cur == "aoe" then
            B.db.meterMode = "healing"
        elseif cur == "healing" then
            B.db.meterMode = "taken"
        elseif cur == "taken" then
            B.db.meterMode = "boss"
        elseif cur == "boss" then
            B.db.meterMode = "party"
        else
            B.db.meterMode = "damage"
        end
        B.meterDrilldown = nil
        B.meterScrollOffset = 0
        B:Tick()
    end)
    f.header = hdr

    -- Player class icon on the left
    local brandIcon = hdr:CreateTexture(nil, "ARTWORK")
    brandIcon:SetWidth(14)
    brandIcon:SetHeight(14)
    brandIcon:SetPoint("LEFT", hdr, "LEFT", 0, 0)
    local _, pClass = UnitClass("player")
    if pClass and CLASS_COORDS[pClass] then
        local c = CLASS_COORDS[pClass]
        brandIcon:SetTexture(CLASS_SHEET)
        brandIcon:SetTexCoord(c[1], c[2], c[3], c[4])
    else
        brandIcon:SetTexture("Interface\\Icons\\INV_Misc_Book_09")
        brandIcon:SetTexCoord(0.08, 0.92, 0.08, 0.92)
    end
    hdr.brandIcon = brandIcon

    -- Mode title (muted, tinted with the mode colour in Update)
    local titleFs = B:Font(hdr, 10, "LEFT")
    titleFs:SetPoint("LEFT", brandIcon, "RIGHT", 6, 0)
    titleFs:SetPoint("RIGHT", hdr, "RIGHT", -64, 0)
    titleFs:SetHeight(14)
    titleFs:SetText(L["COMBAT METER"])
    hdr.title = titleFs

    -- Round controls on the right: collapse, reset, merge procs
    local collapseBtn = B:RoundButton(hdr, 16, "-")
    collapseBtn:SetPoint("RIGHT", hdr, "RIGHT", 0, 0)
    collapseBtn:SetScript("OnClick", function()
        B.meterCollapsed = not B.meterCollapsed
        if B.meterCollapsed then
            this.fs:SetText("+")
            f:SetHeight(f.collapsedHeight or COLLAPSED_HEIGHT)
            f.tabsBar:Hide()
            if f.colsHeader then f.colsHeader:Hide() end
            if f.rows then
                for i = 1, MAX_METER_ROWS do f.rows[i]:Hide() end
            end
        else
            this.fs:SetText("-")
            mod:ApplyOptions()
            B:Tick()
        end
    end)
    collapseBtn:SetScript("OnEnter", function() this:SetState(1.0, 0.82, 0.10, true) end)
    collapseBtn:SetScript("OnLeave", function() this:SetState(0.75, 0.75, 0.75, false) end)
    hdr.collapseBtn = collapseBtn

    local resetBtn = B:RoundButton(hdr, 16, "R")
    resetBtn:SetPoint("RIGHT", collapseBtn, "LEFT", -4, 0)
    resetBtn:SetScript("OnEnter", function()
        this:SetState(1.0, 0.82, 0.10, true)
        GameTooltip:SetOwner(this, "ANCHOR_RIGHT")
        GameTooltip:ClearLines()
        GameTooltip:AddLine(L["Reset Combat Meter"], 1.0, 0.82, 0.10)
        GameTooltip:AddLine(L["Left-Click: Reset session numbers & crits to 0"], 0.85, 0.85, 0.85)
        GameTooltip:AddLine(L["Right-Click: Restore full run totals"], 0.60, 0.60, 0.60)
        GameTooltip:Show()
    end)
    resetBtn:SetScript("OnLeave", function()
        this:SetState(0.75, 0.75, 0.75, false)
        GameTooltip:Hide()
    end)
    if resetBtn.RegisterForClicks then
        resetBtn:RegisterForClicks("LeftButtonUp", "RightButtonUp")
    end
    resetBtn:SetScript("OnClick", function()
        if arg1 == "RightButton" then
            B:ResetMeter(true)
            if DEFAULT_CHAT_FRAME and DEFAULT_CHAT_FRAME.AddMessage then
                DEFAULT_CHAT_FRAME:AddMessage("|cff00ffff[BlackwellUI]|r " .. L["Combat Meter: Full run totals restored."])
            end
        else
            B:ResetMeter(false)
            if DEFAULT_CHAT_FRAME and DEFAULT_CHAT_FRAME.AddMessage then
                DEFAULT_CHAT_FRAME:AddMessage("|cff00ffff[BlackwellUI]|r " .. L["Combat Meter: Session reset to 0."])
            end
        end
        B:Tick()
    end)
    hdr.resetBtn = resetBtn

    local mergeBtn = B:RoundButton(hdr, 16, "M")
    mergeBtn:SetPoint("RIGHT", resetBtn, "LEFT", -4, 0)
    mergeBtn:SetScript("OnEnter", function()
        this:SetState(1.0, 0.82, 0.10, true)
        GameTooltip:SetOwner(this, "ANCHOR_RIGHT")
        GameTooltip:ClearLines()
        GameTooltip:AddLine(L["Merge Item Procs"], 1.0, 0.82, 0.10)
        GameTooltip:AddLine(L["Left-Click: Toggle merging legendary neck & item procs into base abilities"], 0.85, 0.85, 0.85)
        if B.db.mergeItemProcs then
            GameTooltip:AddLine(L["Status:"] .. " |cff00ff00" .. L["Merged (Compact)"] .. "|r", 1, 1, 1)
        else
            GameTooltip:AddLine(L["Status:"] .. " |cffffaa00" .. L["Separated (Detailed)"] .. "|r", 1, 1, 1)
        end
        GameTooltip:Show()
    end)
    mergeBtn:SetScript("OnLeave", function()
        PaintMergeButton(this)
        GameTooltip:Hide()
    end)
    mergeBtn:SetScript("OnClick", function()
        B.db.mergeItemProcs = not B.db.mergeItemProcs
        PaintMergeButton(this)
        if DEFAULT_CHAT_FRAME and DEFAULT_CHAT_FRAME.AddMessage then
            if B.db.mergeItemProcs then
                DEFAULT_CHAT_FRAME:AddMessage("|cff00ffff[BlackwellUI]|r " .. L["Combat Meter: Item & neck procs merged."])
            else
                DEFAULT_CHAT_FRAME:AddMessage("|cff00ffff[BlackwellUI]|r " .. L["Combat Meter: Item & neck procs separated."])
            end
        end
        B:Tick()
    end)
    hdr.mergeBtn = mergeBtn
    PaintMergeButton(mergeBtn)

    ---------------------------------------------------------------------------
    --  2. Headline: total rate large, its unit, and the total amount
    ---------------------------------------------------------------------------
    local headline = CreateFrame("Frame", nil, f)
    headline:SetHeight(26)
    headline:SetPoint("TOPLEFT", hdr, "BOTTOMLEFT", 0, -2)
    headline:SetPoint("TOPRIGHT", hdr, "BOTTOMRIGHT", 0, -2)
    f.headline = headline

    local rateFs = B:Font(headline, 20, "LEFT")
    rateFs:SetPoint("LEFT", headline, "LEFT", 0, 0)
    rateFs:SetTextColor(0.95, 0.94, 0.90)
    hdr.rate = rateFs

    local unitFs = B:Font(headline, 10, "LEFT")
    unitFs:SetPoint("BOTTOMLEFT", rateFs, "BOTTOMRIGHT", 4, 2)
    hdr.unit = unitFs

    local valFs = B:Font(headline, 10, "RIGHT")
    valFs:SetPoint("RIGHT", headline, "RIGHT", 0, 0)
    valFs:SetTextColor(0.62, 0.61, 0.57)
    hdr.value = valFs

    ---------------------------------------------------------------------------
    --  3. Mode chips (or the drilldown back chip)
    ---------------------------------------------------------------------------
    local tabsBar = CreateFrame("Frame", nil, f)
    tabsBar:SetHeight(CHIP_HEIGHT)
    tabsBar:SetPoint("TOPLEFT", headline, "BOTTOMLEFT", 0, -6)
    tabsBar:SetPoint("TOPRIGHT", headline, "BOTTOMRIGHT", 0, -6)
    f.tabsBar = tabsBar

    local backBtn = CreateFrame("Button", nil, tabsBar)
    backBtn:SetWidth(120)
    backBtn:SetHeight(CHIP_HEIGHT)
    backBtn:SetPoint("LEFT", tabsBar, "LEFT", 0, 0)
    backBtn.pill = B:RoundBar(backBtn, CHIP_HEIGHT)
    backBtn.pill:SetAllPoints(backBtn)
    backBtn.pill:SetTrackColor(0.30, 0.75, 1.00, 0.22)
    local backFs = B:Font(backBtn, 9, "CENTER")
    backFs:SetPoint("CENTER", backBtn, "CENTER", 0, 0)
    backFs:SetText(L["< Back to Party"])
    backFs:SetTextColor(0.30, 0.75, 1.00)
    backBtn.fs = backFs
    backBtn:EnableMouse(true)
    backBtn:SetScript("OnClick", function()
        B.meterDrilldown = nil
        B.meterScrollOffset = 0
        B:Tick()
    end)
    backBtn:Hide()
    tabsBar.backBtn = backBtn

    local drillLabel = B:Font(tabsBar, 9, "LEFT")
    drillLabel:SetPoint("LEFT", backBtn, "RIGHT", 8, 0)
    drillLabel:SetPoint("RIGHT", tabsBar, "RIGHT", 0, 0)
    drillLabel:SetHeight(14)
    drillLabel:SetTextColor(1, 1, 1)
    drillLabel:Hide()
    tabsBar.drillLabel = drillLabel

    local tabButtons = {}
    local tabWidth = math.floor((METER_WIDTH - 2 * PAD - 4 * 4) / 5)
    for i = 1, 5 do
        local tInfo = TABS[i]
        local btn = CreateFrame("Button", nil, tabsBar)
        btn:SetWidth(tabWidth)
        btn:SetHeight(CHIP_HEIGHT)
        btn:SetPoint("LEFT", tabsBar, "LEFT", (i - 1) * (tabWidth + 4), 0)
        btn.pill = B:RoundBar(btn, CHIP_HEIGHT)
        btn.pill:SetAllPoints(btn)

        local fs = B:Font(btn, 9, "CENTER")
        fs:SetPoint("CENTER", btn, "CENTER", 0, 0)
        fs:SetText(L[tInfo.label])
        btn.fs = fs
        btn.info = tInfo

        btn:EnableMouse(true)
        btn:SetScript("OnClick", function()
            B.db.meterMode = this.info.key
            B.meterDrilldown = nil
            B.meterScrollOffset = 0
            B:Tick()
        end)

        tabButtons[i] = btn
    end
    f.tabButtons = tabButtons

    ---------------------------------------------------------------------------
    --  4. Column labels (small and muted)
    ---------------------------------------------------------------------------
    local cols = CreateFrame("Frame", nil, f)
    cols:SetHeight(12)
    cols:SetPoint("TOPLEFT", tabsBar, "BOTTOMLEFT", 0, -6)
    cols:SetPoint("TOPRIGHT", tabsBar, "BOTTOMRIGHT", 0, -6)
    f.colsHeader = cols

    local colName = B:Font(cols, 8, "LEFT")
    colName:SetPoint("LEFT", cols, "LEFT", 0, 0)
    colName:SetTextColor(0.50, 0.50, 0.47)
    colName:SetText("#  " .. L["Ability / Source"])
    cols.colName = colName

    local colDps = B:Font(cols, 8, "RIGHT")
    colDps:SetPoint("RIGHT", cols, "RIGHT", 0, 0)
    colDps:SetWidth(42)
    colDps:SetTextColor(0.50, 0.50, 0.47)
    colDps:SetText(L["DPS"])
    cols.colDps = colDps

    local colShare = B:Font(cols, 8, "RIGHT")
    colShare:SetPoint("RIGHT", colDps, "LEFT", -4, 0)
    colShare:SetWidth(36)
    colShare:SetTextColor(0.50, 0.50, 0.47)
    colShare:SetText("%")
    cols.colShare = colShare

    local colAmount = B:Font(cols, 8, "RIGHT")
    colAmount:SetPoint("RIGHT", colShare, "LEFT", -6, 0)
    colAmount:SetWidth(52)
    colAmount:SetTextColor(0.50, 0.50, 0.47)
    colAmount:SetText(L["Damage"])
    cols.colAmount = colAmount

    ---------------------------------------------------------------------------
    --  5. Rows: rank, icon, name and numbers, thin round bar underneath
    ---------------------------------------------------------------------------
    local rows = {}
    for i = 1, MAX_METER_ROWS do
        local r = CreateFrame("Button", nil, f)
        r:SetHeight(ROW_HEIGHT)
        r:SetPoint("TOPLEFT", cols, "BOTTOMLEFT", 0, -(i - 1) * (ROW_HEIGHT + ROW_GAP) - 4)
        r:SetPoint("TOPRIGHT", cols, "BOTTOMRIGHT", 0, -(i - 1) * (ROW_HEIGHT + ROW_GAP) - 4)

        local rankFs = B:Font(r, 9, "LEFT")
        rankFs:SetPoint("TOPLEFT", r, "TOPLEFT", 0, -1)
        rankFs:SetWidth(14)
        rankFs:SetTextColor(0.50, 0.50, 0.47)
        r.rankFs = rankFs

        local icon = r:CreateTexture(nil, "ARTWORK")
        icon:SetWidth(14)
        icon:SetHeight(14)
        icon:SetPoint("TOPLEFT", r, "TOPLEFT", 15, 0)
        icon:SetTexCoord(0.08, 0.92, 0.08, 0.92)
        r.icon = icon
        r.iconFrame = icon

        local textRate = B:Font(r, 9, "RIGHT")
        textRate:SetPoint("TOPRIGHT", r, "TOPRIGHT", 0, -1)
        textRate:SetWidth(42)
        textRate:SetHeight(14)
        textRate:SetTextColor(0.70, 0.92, 0.68)
        r.textRate = textRate

        local textShare = B:Font(r, 9, "RIGHT")
        textShare:SetPoint("RIGHT", textRate, "LEFT", -4, 0)
        textShare:SetWidth(36)
        textShare:SetHeight(14)
        textShare:SetTextColor(0.95, 0.86, 0.62)
        r.textShare = textShare

        local textAmount = B:Font(r, 9, "RIGHT")
        textAmount:SetPoint("RIGHT", textShare, "LEFT", -6, 0)
        textAmount:SetWidth(52)
        textAmount:SetHeight(14)
        textAmount:SetTextColor(0.92, 0.91, 0.87)
        r.textAmount = textAmount

        local nameFs = B:Font(r, 9, "LEFT")
        nameFs:SetPoint("LEFT", icon, "RIGHT", 5, 0)
        nameFs:SetPoint("RIGHT", textAmount, "LEFT", -22, 0)
        nameFs:SetHeight(14)
        nameFs:SetTextColor(0.92, 0.91, 0.87)
        r.nameFs = nameFs

        -- Top spell badge (party mode)
        local topBtn = CreateFrame("Frame", nil, r)
        topBtn:SetWidth(14)
        topBtn:SetHeight(14)
        topBtn:SetPoint("RIGHT", textAmount, "LEFT", -4, 0)
        local topIcon = topBtn:CreateTexture(nil, "ARTWORK")
        topIcon:SetAllPoints(topBtn)
        topIcon:SetTexCoord(0.08, 0.92, 0.08, 0.92)
        topBtn.icon = topIcon
        topBtn:Hide()
        r.topBtn = topBtn

        local bar = B:RoundBar(r, BAR_HEIGHT)
        bar:SetPoint("BOTTOMLEFT", r, "BOTTOMLEFT", 15, 1)
        bar:SetPoint("BOTTOMRIGHT", r, "BOTTOMRIGHT", 0, 1)
        bar:EnableMouse(false)
        r.bar = bar

        -- Hover tint, shown from OnEnter: this engine draws the HIGHLIGHT
        -- layer all the time, not only under the mouse.
        local hl = r:CreateTexture(nil, "BACKGROUND")
        B:Solid(hl, 1, 1, 1, 0.06)
        hl:SetAllPoints(r)
        hl:Hide()
        r.hl = hl

        r:EnableMouse(true)
        if r.RegisterForClicks then
            r:RegisterForClicks("LeftButtonUp")
        end
        r:SetScript("OnClick", OnRowClick)
        r:SetScript("OnEnter", function()
            this.hl:Show()
            OnRowEnter()
        end)
        r:SetScript("OnLeave", function()
            this.hl:Hide()
            GameTooltip:Hide()
        end)

        r:Hide()
        rows[i] = r
    end
    f.rows = rows

    -- Mouse wheel scrolling for rows
    f:EnableMouseWheel(true)
    f:SetScript("OnMouseWheel", function()
        local delta = arg1
        if delta > 0 then
            if B.meterScrollOffset > 0 then
                B.meterScrollOffset = B.meterScrollOffset - 1
                B:Tick()
            end
        elseif delta < 0 then
            local maxScroll = (f.maxEntries or 0) - VisibleRows()
            if maxScroll > 0 and B.meterScrollOffset < maxScroll then
                B.meterScrollOffset = B.meterScrollOffset + 1
                B:Tick()
            end
        end
    end)

    B:RegisterMover(f, "meter", L["Damage Meter"], "BOTTOMRIGHT", "BOTTOMRIGHT", -12, 34)
end

-------------------------------------------------------------------------------
--  Data Extraction & Update Logic
-------------------------------------------------------------------------------
-- Row pool: the list is rebuilt from the engine data 10 times a second. Row
-- tables, proc entries and lookup maps are reused instead of allocated per
-- tick; the list is filled by index (no table.insert, so Lua 5.0's
-- table.getn keeps counting the live rows) and trailing rows are cleared.
local rowPool = {}
local list = {}
local listN = 0
local mergedMap = {}
local foundMap = {}
local THEME_PARTY = { r = 0.30, g = 0.75, b = 1.00 }
local NONE = {}

local function ClearMap(m)
    for k in pairs(m) do m[k] = nil end
end

local function NewRow(name, dmg, dps)
    listN = listN + 1
    local e = rowPool[listN]
    if not e then
        e = { procs = {}, procPool = {} }
        rowPool[listN] = e
    end
    e.name, e.dmg, e.dps = name, dmg, dps
    e.class, e.top, e.topdps, e.hits, e.crits = nil, nil, nil, nil, nil
    e.baseDmg, e.procDmg, e.share = nil, nil, nil
    local p = e.procs
    local i = 1
    while p[i] ~= nil do
        p[i] = nil
        i = i + 1
    end
    e.nProcs = 0
    list[listN] = e
    return e
end

local function AddProc(e, name, dmg)
    local n = e.nProcs + 1
    e.nProcs = n
    local pe = e.procPool[n]
    if not pe then
        pe = {}
        e.procPool[n] = pe
    end
    pe.name, pe.dmg = name, dmg
    e.procs[n] = pe
end

local function FinishList()
    local j = listN + 1
    while list[j] ~= nil do
        list[j] = nil
        j = j + 1
    end
end

local function ByAmountDesc(a, b)
    return (tonumber(a.dmg) or 0) > (tonumber(b.dmg) or 0)
end

-- Everything the drawn rows depend on. When none of it changed since the last
-- draw, the rows, header and tabs are left as they are (no SetText, no
-- string.format). runSec is compared in whole seconds, so idle rows redraw at
-- most once a second for the rate column.
local drawn = { valid = false }

local function SameAsDrawn(mode, rawMode, demo, n, total, rate, sec, visibleRows)
    local d = drawn
    return d.valid and d.mode == mode and d.rawMode == rawMode and d.drill == B.meterDrilldown
        and d.merge == (B.db.mergeItemProcs and true or false)
        and d.session == ((B.meterOffsets and B.meterOffsets.active) and true or false)
        and d.scroll == B.meterScrollOffset and d.rows == visibleRows and d.demo == demo
        and d.n == n and d.total == total and d.rate == rate and d.sec == sec and d.lang == B.LANG
end

local function RememberDrawn(mode, rawMode, demo, n, total, rate, sec, visibleRows)
    local d = drawn
    d.valid = true
    d.mode, d.rawMode, d.drill = mode, rawMode, B.meterDrilldown
    d.merge = B.db.mergeItemProcs and true or false
    d.session = (B.meterOffsets and B.meterOffsets.active) and true or false
    d.scroll, d.rows, d.demo = B.meterScrollOffset, visibleRows, demo
    d.n, d.total, d.rate, d.sec, d.lang = n, total, rate, sec, B.LANG
end

-- Forces the next update to redraw (options, collapse, run start).
function mod:Invalidate()
    drawn.valid = false
end

function mod:Update(state)
    local f = self.frame
    if not f then return end

    if B.meterCollapsed then
        drawn.valid = false
        return
    end

    -- Time calculation
    local curT = 0
    if state and state.run and state.run.t then
        curT = tonumber(state.run.t) or 0
    elseif state and state.time then
        curT = tonumber(state.time) or 0
    else
        curT = GetTime()
    end
    local runSec = curT
    if B.meterOffsets and B.meterOffsets.active then
        runSec = curT - (B.meterOffsets.baseTime or 0)
    end
    if runSec < 1 then runSec = 1 end

    local rawMode = B.db.meterMode or "damage"
    local mode = rawMode
    if mode == "aoe" then mode = "damage" end
    if mode ~= "damage" and mode ~= "healing" and mode ~= "boss" and mode ~= "taken" and mode ~= "party" then
        mode = "damage"
        B.db.meterMode = "damage"
    end

    ---------------------------------------------------------------------------
    --  Pull Active Data
    ---------------------------------------------------------------------------
    listN = 0
    local totalAmt = 0
    local totalRate = 0
    local rateLabel = "DPS"
    local amtColLabel = "Damage"
    local maxVal = 0
    local hdrTitle = "DAMAGE"
    local themeR, themeG, themeB = 1.0, 0.75, 0.20

    if B.meterDrilldown then
        -- DRILLDOWN VIEW: Spells of selected party member
        local pName = B.meterDrilldown
        local pKey = string.lower(pName)
        hdrTitle = string.upper(pName)
        amtColLabel = "Damage"
        rateLabel = "DPS"
        themeR, themeG, themeB = 0.30, 0.75, 1.00

        local tracked = B.meterPartySpells[pKey]
        ClearMap(foundMap)

        for sName, sData in pairs(tracked or NONE) do
            local d = sData.dmg or 0
            if d > 0 then
                local e = NewRow(sData.name or sName, d, math.floor(d / runSec))
                e.hits = sData.hits
                e.crits = sData.crits
                totalAmt = totalAmt + d
                foundMap[string.lower(sName)] = true
                if d > maxVal then maxVal = d end
            end
        end

        -- Check if server reported a top ability not yet in tracked combat log
        local partyData = state.party or NONE
        for i = 1, table.getn(partyData) do
            local p = partyData[i]
            if p and p.name and string.lower(p.name) == pKey then
                if p.top and p.top ~= "" and not foundMap[string.lower(p.top)] then
                    local topDps = tonumber(p.topdps) or 0
                    local estDmg = topDps * runSec
                    local e = NewRow(p.top, estDmg, topDps)
                    e.hits = 0
                    e.crits = 0
                    totalAmt = totalAmt + estDmg
                    if estDmg > maxVal then maxVal = estDmg end
                end
                break
            end
        end

        totalRate = math.floor(totalAmt / runSec)

    elseif mode == "party" then
        -- MULTIPLAYER PARTY VIEW
        hdrTitle = "PARTY DAMAGE"
        amtColLabel = "Damage"
        rateLabel = "DPS"
        themeR, themeG, themeB = 0.30, 0.75, 1.00

        local rawParty = (state.demo and state.party) or (type(AZS_GetPartyMeter) == "function" and AZS_GetPartyMeter()) or state.party or {}
        if type(rawParty) ~= "table" then rawParty = {} end

        for i = 1, table.getn(rawParty) do
            local item = rawParty[i]
            if type(item) == "table" and item.name then
                local rawD = tonumber(item.dmg) or 0
                local pName = item.name
                local base = (B.meterOffsets and B.meterOffsets.active and B.meterOffsets.party and B.meterOffsets.party[pName]) or 0
                local d = rawD - base
                if d < 0 then d = 0 end
                if d > 0 or not (B.meterOffsets and B.meterOffsets.active) then
                    local e = NewRow(pName, d, tonumber(item.dps) or math.floor(d / runSec))
                    e.class = item.class
                    e.top = item.top
                    e.topdps = tonumber(item.topdps) or 0
                    totalAmt = totalAmt + d
                    if d > maxVal then maxVal = d end
                end
            end
        end
        totalRate = math.floor(totalAmt / runSec)

    elseif mode == "healing" then
        -- HEALING VIEW
        hdrTitle = "HEALING DONE"
        amtColLabel = "Healing"
        rateLabel = "HPS"
        themeR, themeG, themeB = 0.25, 0.90, 0.45

        local rawHeal = (state.demo and state.healing) or (type(AZS_GetHealing) == "function" and AZS_GetHealing()) or state.healing or {}
        if type(rawHeal) ~= "table" then rawHeal = {} end

        for i = 1, table.getn(rawHeal) do
            local item = rawHeal[i]
            if type(item) == "table" then
                local rawH = tonumber(item.healing or item.dmg) or 0
                local sName = item.name or "Unknown"
                local base = (B.meterOffsets and B.meterOffsets.active and B.meterOffsets.healing and B.meterOffsets.healing[sName]) or 0
                local hVal = rawH - base
                if hVal < 0 then hVal = 0 end
                if hVal > 0 or not (B.meterOffsets and B.meterOffsets.active) then
                    NewRow(sName, hVal, math.floor(hVal / runSec))
                    totalAmt = totalAmt + hVal
                    if hVal > maxVal then maxVal = hVal end
                end
            end
        end
        totalRate = math.floor(totalAmt / runSec)

    elseif mode == "boss" then
        -- BOSS DAMAGE VIEW
        hdrTitle = "BOSS DAMAGE"
        amtColLabel = "Damage"
        rateLabel = "DPS"
        themeR, themeG, themeB = 1.00, 0.35, 0.15

        local rawBoss = (state.demo and state.bossMeter) or (type(AZS_GetBossMeter) == "function" and AZS_GetBossMeter()) or state.bossMeter or {}
        if type(rawBoss) ~= "table" then rawBoss = {} end

        ClearMap(mergedMap)
        for i = 1, table.getn(rawBoss) do
            local item = rawBoss[i]
            if type(item) == "table" then
                local rawD = tonumber(item.dmg) or 0
                local sName = item.name or "Unknown"
                local base = (B.meterOffsets and B.meterOffsets.active and B.meterOffsets.boss and B.meterOffsets.boss[sName]) or 0
                local d = rawD - base
                if d < 0 then d = 0 end
                if d > 0 or not (B.meterOffsets and B.meterOffsets.active) then
                    totalAmt = totalAmt + d
                    if B.db.mergeItemProcs then
                        local itemPrefix, spellSuffix = SplitProcName(sName)
                        if itemPrefix then
                            local k = string.lower(spellSuffix)
                            local existing = mergedMap[k]
                            if existing then
                                existing.dmg = existing.dmg + d
                                existing.procDmg = (existing.procDmg or 0) + d
                                AddProc(existing, itemPrefix, d)
                            else
                                local entry = NewRow(spellSuffix, d, nil)
                                entry.baseDmg = 0
                                entry.procDmg = d
                                AddProc(entry, itemPrefix, d)
                                mergedMap[k] = entry
                            end
                        else
                            local k = string.lower(sName)
                            local existing = mergedMap[k]
                            if existing then
                                existing.dmg = existing.dmg + d
                                existing.baseDmg = (existing.baseDmg or 0) + d
                            else
                                local entry = NewRow(sName, d, nil)
                                entry.baseDmg = d
                                entry.procDmg = 0
                                mergedMap[k] = entry
                            end
                        end
                    else
                        NewRow(sName, d, math.floor(d / runSec))
                    end
                end
            end
        end
        if B.db.mergeItemProcs then
            for i = 1, listN do
                list[i].dps = math.floor((list[i].dmg or 0) / runSec)
            end
        end
        totalRate = math.floor(totalAmt / runSec)

    elseif mode == "taken" then
        -- DAMAGE TAKEN VIEW
        hdrTitle = "DAMAGE TAKEN"
        amtColLabel = "Taken"
        rateLabel = "DPS"
        themeR, themeG, themeB = 0.90, 0.25, 0.25

        local rawTaken = state.taken or {}
        if type(rawTaken) ~= "table" then rawTaken = {} end

        for i = 1, table.getn(rawTaken) do
            local item = rawTaken[i]
            if type(item) == "table" then
                local rawD = tonumber(item.dmg) or 0
                local src = item.source or "Unknown"
                local base = (B.meterOffsets and B.meterOffsets.active and B.meterOffsets.taken and B.meterOffsets.taken[src]) or 0
                local d = rawD - base
                if d < 0 then d = 0 end
                if d > 0 or not (B.meterOffsets and B.meterOffsets.active) then
                    NewRow(src, d, math.floor(d / runSec))
                    totalAmt = totalAmt + d
                    if d > maxVal then maxVal = d end
                end
            end
        end
        totalRate = math.floor(totalAmt / runSec)

    else
        -- DAMAGE DONE (Primary)
        if rawMode == "aoe" then
            hdrTitle = "AOE DAMAGE"
        else
            hdrTitle = "DAMAGE DONE"
        end
        amtColLabel = "Damage"
        rateLabel = "DPS"
        themeR, themeG, themeB = 1.00, 0.75, 0.20

        local rawMeter = (state.demo and state.meter) or (type(AZS_GetMeter) == "function" and AZS_GetMeter()) or state.meter or {}
        if type(rawMeter) ~= "table" then rawMeter = {} end

        ClearMap(mergedMap)
        for i = 1, table.getn(rawMeter) do
            local item = rawMeter[i]
            if type(item) == "table" then
                local rawD = tonumber(item.dmg) or 0
                local sName = item.name or "Unknown"
                local base = (B.meterOffsets and B.meterOffsets.active and B.meterOffsets.done and B.meterOffsets.done[sName]) or 0
                local d = rawD - base
                if d < 0 then d = 0 end
                if d > 0 or not (B.meterOffsets and B.meterOffsets.active) then
                    totalAmt = totalAmt + d
                    if B.db.mergeItemProcs then
                        local itemPrefix, spellSuffix = SplitProcName(sName)
                        if itemPrefix then
                            local k = string.lower(spellSuffix)
                            local existing = mergedMap[k]
                            if existing then
                                existing.dmg = existing.dmg + d
                                existing.procDmg = (existing.procDmg or 0) + d
                                AddProc(existing, itemPrefix, d)
                            else
                                local entry = NewRow(spellSuffix, d, nil)
                                entry.baseDmg = 0
                                entry.procDmg = d
                                AddProc(entry, itemPrefix, d)
                                mergedMap[k] = entry
                            end
                        else
                            local k = string.lower(sName)
                            local existing = mergedMap[k]
                            if existing then
                                existing.dmg = existing.dmg + d
                                existing.baseDmg = (existing.baseDmg or 0) + d
                            else
                                local entry = NewRow(sName, d, nil)
                                entry.baseDmg = d
                                entry.procDmg = 0
                                mergedMap[k] = entry
                            end
                        end
                    else
                        NewRow(sName, d, math.floor(d / runSec))
                    end
                end
            end
        end
        if B.db.mergeItemProcs then
            for i = 1, listN do
                list[i].dps = math.floor((list[i].dmg or 0) / runSec)
            end
        end
        totalRate = math.floor(totalAmt / runSec)
    end

    FinishList()
    -- Sort descending by amount
    table.sort(list, ByAmountDesc)

    local maxVal = (list[1] and list[1].dmg) or 0

    local totalEntries = listN
    f.maxEntries = totalEntries
    local visibleRows = VisibleRows()
    if B.meterScrollOffset > totalEntries - visibleRows then
        B.meterScrollOffset = math.max(0, totalEntries - visibleRows)
    end

    local isDemo = (state and state.demo) and true or false
    local sec = math.floor(runSec)
    if SameAsDrawn(mode, rawMode, isDemo, totalEntries, totalAmt, totalRate, sec, visibleRows) then
        return
    end
    RememberDrawn(mode, rawMode, isDemo, totalEntries, totalAmt, totalRate, sec, visibleRows)
    self.draws = (self.draws or 0) + 1

    ---------------------------------------------------------------------------
    --  Update Tab Bar
    ---------------------------------------------------------------------------
    local tb = f.tabsBar
    if B.meterDrilldown then
        tb.backBtn:Show()
        tb.backBtn.pill:SetFill(0)
        tb.drillLabel:SetText(string.format(L["%s's Spells"], B.meterDrilldown))
        tb.drillLabel:Show()
        for i = 1, 5 do f.tabButtons[i]:Hide() end
    else
        tb.backBtn:Hide()
        tb.drillLabel:Hide()
        for i = 1, 5 do
            local btn = f.tabButtons[i]
            btn:Show()
            local isActive = (btn.info.key == mode)
            if isActive then
                btn.fs:SetTextColor(btn.info.r, btn.info.g, btn.info.b)
                btn.pill:SetTrackColor(btn.info.r, btn.info.g, btn.info.b, 0.22)
            else
                btn.fs:SetTextColor(0.58, 0.57, 0.53)
                btn.pill:SetTrackColor(1, 1, 1, 0.05)
            end
            btn.pill:SetFill(0)
        end
    end

    -- Merge Procs button colour
    if f.header and f.header.mergeBtn then
        PaintMergeButton(f.header.mergeBtn)
    end


    ---------------------------------------------------------------------------
    --  Update Header Texts & Column Labels
    ---------------------------------------------------------------------------
    if B.meterOffsets and B.meterOffsets.active then
        f.header.title:SetText(string.format(L["%s (SESSION)"], L[hdrTitle]))
    else
        f.header.title:SetText(L[hdrTitle])
    end
    f.header.title:SetTextColor(themeR * 0.85, themeG * 0.85, themeB * 0.85)

    f.header.value:SetText(B:Short(totalAmt))
    f.header.rate:SetText(B:Short(totalRate))
    f.header.unit:SetText(L[rateLabel])
    f.header.unit:SetTextColor(themeR, themeG, themeB)

    f.colsHeader.colAmount:SetText(L[amtColLabel])
    f.colsHeader.colDps:SetText(L[rateLabel])
    if mode == "party" and not B.meterDrilldown then
        f.colsHeader.colName:SetText("#  " .. L["Player"])
    else
        f.colsHeader.colName:SetText("#  " .. L["Ability / Source"])
    end

    ---------------------------------------------------------------------------
    --  Populate Rows
    ---------------------------------------------------------------------------
    local startIdx = B.meterScrollOffset
    local shownRows = 0

    for i = 1, MAX_METER_ROWS do
        local r = f.rows[i]
        local dataIdx = startIdx + i

        if i <= visibleRows and dataIdx <= totalEntries then
            local item = list[dataIdx]
            local d = item.dmg or 0
            local rate = item.dps or math.floor(d / runSec)
            local share = (totalAmt > 0) and (d / totalAmt) or 0
            local sharePct = share * 100
            item.share = sharePct

            local fill = (maxVal > 0) and (d / maxVal) or 0
            if d > 0 and fill < 0.02 then fill = 0.02 end
            if fill > 1 then fill = 1 end

            r.bar:SetFill(fill)
            r.data = item

            -- Status bar color
            if mode == "party" and not B.meterDrilldown then
                local cCol = B:ResolveClassColor(item.class) or THEME_PARTY
                r.bar:SetFillColor(cCol.r, cCol.g, cCol.b)
            elseif dataIdx == 1 then
                r.bar:SetFillColor(themeR, themeG, themeB)
            else
                r.bar:SetFillColor(themeR * 0.75, themeG * 0.75, themeB * 0.75)
            end

            -- Rank
            r.rankFs:SetText(tostring(dataIdx))

            -- Icon
            if mode == "party" and not B.meterDrilldown then
                local uCls = item.class and string.upper(item.class)
                if uCls and CLASS_COORDS[uCls] then
                    local c = CLASS_COORDS[uCls]
                    r.icon:SetTexture(CLASS_SHEET)
                    r.icon:SetTexCoord(c[1], c[2], c[3], c[4])
                else
                    r.icon:SetTexture(B:GetAbilityIcon(item.name))
                    r.icon:SetTexCoord(0.08, 0.92, 0.08, 0.92)
                end
            else
                r.icon:SetTexture(B:GetAbilityIcon(item.name))
                r.icon:SetTexCoord(0.08, 0.92, 0.08, 0.92)
            end

            -- Name
            if item.name and item.name ~= "Unknown" then
                r.nameFs:SetText(item.name)
            else
                r.nameFs:SetText(L["Unknown"])
            end

            -- Party Top Spell Badge
            if mode == "party" and not B.meterDrilldown and item.top and item.top ~= "" then
                if r.topBtn then
                    local topTex = B:GetAbilityIcon(item.top)
                    r.topBtn.icon:SetTexture(topTex)
                    r.topBtn:Show()
                end
            else
                if r.topBtn then
                    r.topBtn:Hide()
                end
            end

            -- Amount, Share, Rate
            r.textAmount:SetText(B:Short(d))
            if sharePct >= 9.95 then
                r.textShare:SetText(string.format("%d%%", math.floor(sharePct + 0.5)))
            elseif sharePct >= 0.05 then
                r.textShare:SetText(string.format("%.1f%%", sharePct))
            else
                r.textShare:SetText("0%")
            end
            r.textRate:SetText(B:Short(rate))

            r.valStr = string.format("%s: %s (%s %s)", L[amtColLabel], B:Short(d), B:Short(rate), L[rateLabel])

            r:Show()
            shownRows = shownRows + 1
        else
            r.data = nil
            r:Hide()
        end
    end

    local top = f.topHeight or TOP_HEIGHT
    local finalH = top + shownRows * (ROW_HEIGHT + ROW_GAP) + 8
    if finalH < top + 8 then finalH = top + 8 end
    f:SetHeight(finalH)
end

-- Session offsets, drilldown spells and crit records are per run.
function mod:OnRunStart()
    B:ResetMeter(true)
    drawn.valid = false
end


-------------------------------------------------------------------------------
--  Settings
-------------------------------------------------------------------------------
mod.hint = "Damage, healing, boss, taken and party tabs with per-spell breakdown."
mod.options = {
    { type = "section", label = "Layout" },
    { type = "range", key = "width", label = "Width", min = 260, max = 440, step = 10, default = METER_WIDTH, format = "%d px" },
    { type = "range", key = "rows", label = "Rows shown", min = 3, max = MAX_METER_ROWS, step = 1, default = 8, format = "%d" },
    { type = "range", key = "barHeight", label = "Bar thickness", min = 2, max = 8, step = 1, default = BAR_HEIGHT, format = "%d px" },
    { type = "section", label = "Elements" },
    { type = "toggle", key = "showHeadline", label = "Large total", hint = "Total per second in large print under the title.", default = true },
    { type = "toggle", key = "showTabs", label = "Mode tabs", hint = "Without tabs, click the title to switch the mode.", default = true },
    { type = "toggle", key = "showColumns", label = "Column labels", default = true },
    { type = "toggle", key = "showRank", label = "Rank numbers", default = true },
    { type = "toggle", key = "showIcons", label = "Spell icons", default = true },
    { type = "toggle", key = "showAmount", label = "Amount column", default = true },
    { type = "toggle", key = "showShare", label = "Share column", default = true },
    { type = "toggle", key = "showRate", label = "Per second column", default = true },
    { type = "section", label = "Data" },
    { type = "toggle", db = "mergeItemProcs", label = "Merge item procs into their spell", default = false },
}

-- Lays the frame out top-down from the settings; rows and columns that are
-- switched off take no space.
function mod:ApplyOptions()
    local f = self.frame
    if not f then return end
    drawn.valid = false
    local width = B:ModOpt("meter", "width", METER_WIDTH)
    f:SetWidth(width)

    local y = -8 - 18
    local showHeadline = B:ModOpt("meter", "showHeadline", true)
    local showTabs = B:ModOpt("meter", "showTabs", true)
    local showColumns = B:ModOpt("meter", "showColumns", true)

    f.headline:ClearAllPoints()
    if showHeadline then
        f.headline:SetPoint("TOPLEFT", f, "TOPLEFT", PAD, y - 2)
        f.headline:SetPoint("TOPRIGHT", f, "TOPRIGHT", -PAD, y - 2)
        f.headline:Show()
        y = y - 2 - 26
    else
        f.headline:SetPoint("TOPLEFT", f, "TOPLEFT", PAD, y)
        f.headline:SetPoint("TOPRIGHT", f, "TOPRIGHT", -PAD, y)
        f.headline:Hide()
    end
    f.collapsedHeight = -y + 8

    local collapsed = B.meterCollapsed
    f.tabsBar:ClearAllPoints()
    f.tabsBar:SetPoint("TOPLEFT", f, "TOPLEFT", PAD, y - 6)
    f.tabsBar:SetPoint("TOPRIGHT", f, "TOPRIGHT", -PAD, y - 6)
    if showTabs and not collapsed then
        f.tabsBar:Show()
        y = y - 6 - CHIP_HEIGHT
    else
        f.tabsBar:Hide()
    end
    local tabWidth = math.floor((width - 2 * PAD - 4 * 4) / 5)
    for i = 1, 5 do
        local btn = f.tabButtons[i]
        btn:SetWidth(tabWidth)
        btn:ClearAllPoints()
        btn:SetPoint("LEFT", f.tabsBar, "LEFT", (i - 1) * (tabWidth + 4), 0)
    end

    local cols = f.colsHeader
    cols:ClearAllPoints()
    cols:SetPoint("TOPLEFT", f, "TOPLEFT", PAD, y - 6)
    cols:SetPoint("TOPRIGHT", f, "TOPRIGHT", -PAD, y - 6)
    if showColumns and not collapsed then
        cols:Show()
        y = y - 6 - 12
    else
        cols:Hide()
    end
    y = y - 4
    f.topHeight = -y

    -- Number columns chain from the right edge; hidden ones are skipped.
    local showRank = B:ModOpt("meter", "showRank", true)
    local showIcons = B:ModOpt("meter", "showIcons", true)
    local colOn = {
        B:ModOpt("meter", "showRate", true),
        B:ModOpt("meter", "showShare", true),
        B:ModOpt("meter", "showAmount", true),
    }
    local gaps = { 0, 4, 6 }
    local function Chain(parent, items, anchorTop)
        local prev = nil
        local leftmost = nil
        for c = 1, 3 do
            local fs = items[c]
            fs:ClearAllPoints()
            if colOn[c] then
                if prev then
                    fs:SetPoint("RIGHT", prev, "LEFT", -gaps[c], 0)
                elseif anchorTop then
                    fs:SetPoint("TOPRIGHT", parent, "TOPRIGHT", 0, -1)
                else
                    fs:SetPoint("RIGHT", parent, "RIGHT", 0, 0)
                end
                fs:Show()
                prev = fs
                leftmost = fs
            else
                fs:SetPoint("RIGHT", parent, "RIGHT", 0, 0)
                fs:Hide()
            end
        end
        return leftmost
    end
    Chain(cols, { cols.colDps, cols.colShare, cols.colAmount }, false)

    local barHeight = B:ModOpt("meter", "barHeight", BAR_HEIGHT)
    local nameX = (showRank and 15) or 0
    for i = 1, MAX_METER_ROWS do
        local r = f.rows[i]
        r:ClearAllPoints()
        r:SetPoint("TOPLEFT", f, "TOPLEFT", PAD, y - (i - 1) * (ROW_HEIGHT + ROW_GAP))
        r:SetPoint("TOPRIGHT", f, "TOPRIGHT", -PAD, y - (i - 1) * (ROW_HEIGHT + ROW_GAP))
        if showRank then r.rankFs:Show() else r.rankFs:Hide() end
        r.icon:ClearAllPoints()
        r.icon:SetPoint("TOPLEFT", r, "TOPLEFT", nameX, 0)
        local leftmost = Chain(r, { r.textRate, r.textShare, r.textAmount }, true)
        r.nameFs:ClearAllPoints()
        if showIcons then
            r.icon:Show()
            r.nameFs:SetPoint("LEFT", r.icon, "RIGHT", 5, 0)
        else
            r.icon:Hide()
            r.nameFs:SetPoint("TOPLEFT", r, "TOPLEFT", nameX, -1)
        end
        if leftmost then
            r.nameFs:SetPoint("RIGHT", leftmost, "LEFT", -22, 0)
        else
            r.nameFs:SetPoint("RIGHT", r, "RIGHT", -22, 0)
        end
        r.bar:ClearAllPoints()
        r.bar:SetPoint("BOTTOMLEFT", r, "BOTTOMLEFT", nameX, 1)
        r.bar:SetPoint("BOTTOMRIGHT", r, "BOTTOMRIGHT", 0, 1)
        r.bar:SetBarHeight(barHeight)
    end
    if collapsed then
        f:SetHeight(f.collapsedHeight)
    end
end

B:RegisterModule("meter", mod)