wow-weakauras/WeakAuras/Projects/Glowing Raid Frames.lua

--ID_UPDATED UPDATE_FRAME_GLOW
function(e, id)
if not aura_env.ticker then aura_env.ticker = C_Timer.NewTicker(0.1, function() WeakAuras.ScanEvents("UPDATE_FRAME_GLOW") end) end
if e ~= "ID_UPDATED" then
    local hptable = {[1] = ["hp"] = 100000000000, ["id"] = 0, ["mhp"] = 0, ["php"] = 100}
    if IsInRaid() then
        for i = 1, GetNumGroupMembers() do
            --if UnitHealthMax("raid" .. i) - UnitHealth("raid" .. i) > hptable.mhp then --Missing HP
            if UnitHealth("raid" .. i) / UnitHealthMax("raid" .. i) < hptable.php then --% HP
                if UnitHealth("raid" .. i) / UnitHealthMax("raid" .. i) < 0.5 and UnitHealth("raid" .. i) / UnitHealthMax("raid" .. i) > 0 then
                    hptable.hp = UnitHealth("raid" .. i)
                    hptable.mhp = UnitHealthMax("raid" .. i) - UnitHealth("raid" .. i)
                    hptable.php = UnitHealth("raid" .. i) / UnitHealthMax("raid" .. i)
                    hptable.id = i
                    hptable.name = UnitName("raid" .. i)
                end
            end
        end
        if hptable.id ~= aura_env.lastID then
            WeakAuras.ScanEvents("ID_UPDATED", hptable.id)
            aura_env.lastID = hptable.id
        end
    end
elseif e == "ID_UPDATED" then
    if id ~= aura_env.glowingPlate and aura_env.glowingPlate > 0 then
        ActionButton_HideOverlayGlow(aura_env.GetFrame("raid" .. aura_env.glowingPlate))
    end
    if aura_env.GetFrame("raid" .. id) then
        ActionButton_ShowOverlayGlow(aura_env.GetFrame("raid" .. id))
        aura_env.glowingPlate = id
    end
end
end

--INIT
if not aura_env.ticker then aura_env.ticker = C_Timer.NewTicker(0.1, function() WeakAuras.ScanEvents("UPDATE_FRAME_GLOW") end) end
aura_env.lastID = 0
aura_env.glowingPlate = 0

local frame_priority = {
    -- raid frames
    [1] = "^Vd1", -- vuhdo
    [2] = "^Healbot", -- healbot
    [3] = "^GridLayout", -- grid
    [4] = "^Grid2Layout", -- grid2
    [5] = "^ElvUF_RaidGroup", -- elv
    [6] = "^oUF_bdGrid", -- bdgrid
    [7] = "^oUF.*raid", -- generic oUF
    [8] = "^LimeGroup", -- lime
    [9] = "^SUFHeaderraid", -- suf
    [10] = "^CompactRaid", -- blizz
    -- party frames
    [11] = "^SUFHeaderparty", --suf
    [12] = "^ElvUF_PartyGroup", -- elv
    [13] = "^oUF.*party", -- generic oUF
    [14] = "^PitBull4_Groups_Party", -- pitbull4
    [15] = "^CompactParty", -- blizz
    -- player frame
    [16] = "^SUFUnitplayer",
    [17] = "^PitBull4_Frames_Player",
    [18] = "^ElvUF_Player",
    [19] = "^oUF.*player",
    [20] = "^PlayerFrame",
}

WA_GetFramesCache = WA_GetFramesCache or {}
if not WA_GetFramesCacheListener then
    WA_GetFramesCacheListener = CreateFrame("Frame")
    local f = WA_GetFramesCacheListener
    f:RegisterEvent("PLAYER_REGEN_DISABLED")
    f:RegisterEvent("PLAYER_REGEN_ENABLED")
    f:RegisterEvent("GROUP_ROSTER_UPDATE")
    f:SetScript("OnEvent", function(self, event, ...)
        WA_GetFramesCache = {}
    end)
end

local function GetFrames(target)
    local function FindButtonsForUnit(frame, target)
        local results = {}
        if type(frame) == "table" and not frame:IsForbidden() then
            local type = frame:GetObjectType()
            if type == "Frame" or type == "Button" then
                for _, child in ipairs({frame:GetChildren()}) do
                    for _, v in pairs(FindButtonsForUnit(child, target)) do
                        tinsert(results, v)
                    end
                end
            end
            if type == "Button" then
                local unit = frame:GetAttribute('unit')
                if unit and frame:IsVisible() and frame:GetName() then
                    WA_GetFramesCache[frame] = unit
                    if UnitIsUnit(unit, target) then
                        -- print("F:", frame:GetName())
                        tinsert(results, frame)
                    end
                end
            end
        end
        return results
    end
    
    if not UnitExists(target) then
        if type(target) == "string" and target:find("Player") then
            target = select(6, GetPlayerInfoByGUID(target))
        else
            return {}
        end
    end
    
    local results = {}
    for frame, unit in pairs(WA_GetFramesCache) do
        --print("from cache:", frame:GetName())
        if UnitIsUnit(unit, target) then
            if frame:GetAttribute('unit') == unit then
                tinsert(results, frame)
            else
                results = {}
                break
            end
        end
    end
    
    return #results > 0 and results or FindButtonsForUnit(UIParent, target)
end

local isElvUI = IsAddOnLoaded("ElvUI")
local function WhyElvWhy(frame)
    if isElvUI and frame and frame:GetName():find("^ElvUF_") and frame.Health then
        return frame.Health
    else
        return frame
    end
end

function aura_env.GetFrame(target)
    local frames = GetFrames(target)
    if not frames then return nil end
    for i = 1, #frame_priority do
        for _, frame in pairs(frames) do
            if (frame:GetName()):find(frame_priority[i]) then
                return WhyElvWhy(frame)
            end
        end
    end
    return WhyElvWhy(frames[1])
end