local Style = mUI:NewModule("mUI.Tooltips.Style", "AceHook-3.0")

function Style:OnInitialize()
    -- Load Database
    Style.db = mUI.db.profile.tooltips

    -- Tables
    Style.cfg = {
        textColor = {0.4, 0.4, 0.4},
        bossColor = {1, 0, 0},
        eliteColor = {1, 0, 0.5},
        rareeliteColor = {1, 0.5, 0},
        rareColor = {1, 0.5, 0},
        levelColor = {0.8, 0.8, 0.5},
        deadColor = {0.5, 0.5, 0.5},
        targetColor = {1, 0.5, 0.5},
        guildColor = {0.8, 0.0, 0.6},
        afkColor = {0, 1, 1}
    }

    Style.classColors = {}
    Style.factionColors = {}

    -- Get Hex Colors
    Style.cfg.targetColorHex = CreateColor(unpack(Style.cfg.targetColor)):GenerateHexColor()
    Style.cfg.afkColorHex = CreateColor(unpack(Style.cfg.afkColor)):GenerateHexColor()

    for class, color in next, RAID_CLASS_COLORS do
        Style.classColors[class] = CreateColor(color.r, color.g, color.b):GenerateHexColor()
    end

    for i, color in pairs(FACTION_BAR_COLORS) do
        Style.factionColors[i] = CreateColor(color.r, color.g, color.b):GenerateHexColor()
    end

    -- Create GameTooltip Healthbar Background
    GameTooltipStatusBar.mUIbg = GameTooltipStatusBar:CreateTexture(nil, "BACKGROUND", nil, -8)
    GameTooltipStatusBar.mUIbg:SetAllPoints()
    GameTooltipStatusBar.mUIbg:SetColorTexture(1, 1, 1)
    GameTooltipStatusBar.mUIbg:SetVertexColor(0, 0, 0, 0.5)
    GameTooltipStatusBar.mUIbg:SetAlpha(0)

    function Style:SetStatusBarColor(frame, r, g, b)
        if not Style.cfg.barColor then
            return
        end
        if r == Style.cfg.barColor.r and g == Style.cfg.barColor.g and b == Style.cfg.barColor.b then
            return
        end
        local texture = frame:GetStatusBarTexture()
        if texture then
            texture:SetVertexColor(Style.cfg.barColor.r, Style.cfg.barColor.g, Style.cfg.barColor.b)
        end
    end

    function Style:GetTarget(guid)
        if not Style.db.style == "mUI" then
            return
        end

        if issecretvalue(guid) then
            return
        end

        local unit = UnitTokenFromGUID(guid) .. "target"

        if UnitIsUnit(unit, "player") then
            return ("|cffff0000%s|r"):format("<YOU>")
        elseif UnitIsPlayer(unit) then
            local _, class = UnitClass(unit)
            return ("|c%s%s|r"):format(Style.classColors[class], UnitName(unit))
        elseif UnitReaction(unit, "player") then
            return ("|c%s%s|r"):format(Style.factionColors[UnitReaction(unit, "player")], UnitName(unit))
        end

        return ("|cffffffff%s|r"):format(UnitName(unit))
    end

    function Style:OnTooltipSetPlayer(frame, guid)
        if not Style.db.style == "mUI" then
            return
        end
        if not frame or frame ~= _G.GameTooltip then
            return
        end
        local unit = UnitTokenFromGUID(guid)

        for i = 2, GameTooltip:NumLines() do
            local line = _G["GameTooltipTextLeft" .. i]
            if line then
                if not line == 4 then
                    line:SetTextColor(unpack(Style.cfg.textColor))
                end
            end
        end

        -- Get Class Color
        local _, unitClass = UnitClass(unit)
        local color = RAID_CLASS_COLORS[unitClass]
        Style.cfg.barColor = color or {
            r = 0,
            g = 0.8,
            b = 0
        }

        local barTexture = GameTooltipStatusBar:GetStatusBarTexture()
        if barTexture then
            barTexture:SetVertexColor(color.r, color.g, color.b)
        end
        GameTooltipTextLeft1:SetTextColor(color.r, color.g, color.b)

        local guildName, guildRank = GetGuildInfo(unit)
        if guildName then
            GameTooltipTextLeft2:SetText("<" .. guildName .. "> [" .. guildRank .. "]")
            GameTooltipTextLeft2:SetTextColor(unpack(Style.cfg.guildColor))
        end

        local levelLine = guildName and GameTooltipTextLeft3 or GameTooltipTextLeft2
        local level = UnitLevel(unit)
        local color = GetCreatureDifficultyColor((level > 0) and level or 999)
        levelLine:SetTextColor(color.r, color.g, color.b)

        -- Unit is AFK
        if UnitIsAFK(unit) then
            frame:AppendText((" |c%s<AFK>|r"):format(Style.cfg.afkColorHex))
        end

        -- Unit is dead
        if UnitIsDeadOrGhost(unit) then
            GameTooltipTextLeft1:SetTextColor(unpack(Style.cfg.deadColor))
        end

        -- Current Target
        if UnitExists(unit .. "target") then
            GameTooltip:AddDoubleLine(("|c%s%s|r"):format(Style.cfg.targetColorHex, "Target"), Style:GetTarget(guid))
        end
    end

    function Style:OnTooltipSetUnit(frame, guid)
        if not Style.db.style == "mUI" then
            return
        end
        if not frame or frame ~= _G.GameTooltip then
            return
        end
        for i = 2, GameTooltip:NumLines() do
            local line = _G["GameTooltipTextLeft" .. i]
            if line then
                if not line == 4 then
                    line:SetTextColor(unpack(Style.cfg.textColor))
                end
            end
        end

        -- Get Unit
        local unit = UnitTokenFromGUID(guid)

        -- Get Level Line of GameTooltip
        if not issecretvalue(guid) then
            local reaction = UnitReaction(unit, "player")
            if reaction then
                local color = FACTION_BAR_COLORS[reaction]
                if color then
                    Style.cfg.barColor = color
                    GameTooltipStatusBar:SetStatusBarColor(color.r, color.g, color.b)
                    GameTooltipTextLeft1:SetTextColor(color.r, color.g, color.b)
                end
            end

            local levelLine

            if string.find(GameTooltipTextLeft2:GetText() or "empty", "%a%s%d") then
                levelLine = GameTooltipTextLeft2
            elseif GameTooltipTextLeft3 ~= nil and string.find(GameTooltipTextLeft3:GetText() or "empty", "%a%s%d") then
                GameTooltipTextLeft2:SetTextColor(unpack(Style.cfg.guildColor))
                levelLine = GameTooltipTextLeft3
            end

            if levelLine then
                local l = UnitLevel(unit)
                local color = GetCreatureDifficultyColor((l > 0) and l or 999)
                levelLine:SetTextColor(color.r, color.g, color.b)
            end

            -- Get Unit Classification
            local unitClassification = UnitClassification(unit)
            if unitClassification == "worldboss" or UnitLevel(unit) == -1 then
                frame:AppendText(" |cffff0000[B]|r")
                GameTooltipTextLeft2:SetTextColor(unpack(Style.cfg.bossColor))
            elseif unitClassification == "rare" then
                frame:AppendText(" |cffff9900[R]|r")
            elseif unitClassification == "rareelite" then
                frame:AppendText(" |cffff0000[R+]|r")
            elseif unitClassification == "elite" then
                frame:AppendText(" |cffff6666[E]|r")
            end

            -- Get NPC ID
            local _, _, _, _, _, id = strsplit("-", guid or "")
            if id then
                frame:AddDoubleLine("|cff0099ffID|r", id)
            end

            -- Unit is dead
            if UnitIsDeadOrGhost(unit) then
                GameTooltipTextLeft1:SetTextColor(unpack(Style.cfg.deadColor))
            end

            -- Current Target
            if UnitExists(unit .. "target") then
                GameTooltip:AddDoubleLine(("|c%s%s|r"):format(Style.cfg.targetColorHex, "Target"), Style:GetTarget(guid))
            end
        else
            -- Get Reaction Color
            local r, g, b = GameTooltipTextLeft1:GetTextColor()
            Style.cfg.barColor = {
                r = r,
                g = g,
                b = b
            }
            GameTooltipStatusBar:SetStatusBarColor(r, g, b)
        end
    end

    function Style:OnTooltipSetSpell(tooltip, spellid)
        if not Style.db.style == "mUI" then
            return
        end

        if not spellid then
            return
        end

        if type(spellid) == "table" and #spellid == 1 then
            spellid = spellid[1]
        end

        local frame, text
        for i = 1, 15 do
            frame = _G[tooltip:GetName() .. "TextLeft" .. i]
            if frame then
                text = frame:GetText()
            end
            if text then
                local ok, found = xpcall(string.find, nop, text, "|cff0099ffID|r")
                if ok and found then
                    return
                end
            end
        end

        tooltip:AddDoubleLine("|cff0099ffID|r", spellid)
        tooltip:Show()
    end

    function Style:OnMacroTooltipSetSpell(tooltip)
        if not Style.db.style == "mUI" then
            return
        end

        if tooltip:GetTooltipData() and tooltip:GetTooltipData().lines and tooltip:GetTooltipData().lines[2] and
            tooltip:GetTooltipData().lines[2].leftText then
            local tooltipData = tooltip:GetTooltipData()
            local tooltipName = tooltipData.lines[2].leftText
            local spellInfo = C_Spell.GetSpellInfo(tooltipName)

            if (spellInfo and spellInfo.spellID) then
                Style:OnTooltipSetSpell(tooltip, spellInfo.spellID)
            end
        end
    end

    function Style:OnItemTooltipSetColor(tooltip)
        if not Style.db.style == "mUI" then
            return
        end

        if mUI.db.profile.general.theme == "Disabled" then
            return
        end

        if tooltip.NineSlice then
            local itemGUID
            local itemLink
            if tooltip:GetTooltipData() then
                if tooltip:GetTooltipData().guid then
                    itemGUID = tooltip:GetTooltipData().guid
                    itemLink = C_Item.GetItemLinkByGUID(itemGUID)
                end

                if tooltip:GetTooltipData().hyperlink then
                    itemLink = tooltip:GetTooltipData().hyperlink
                end
            end

            if itemLink then
                local azerite = C_AzeriteEmpoweredItem.IsAzeriteEmpoweredItemByID(itemLink) or C_AzeriteItem.IsAzeriteItemByID(itemLink) or false
                local _, _, itemRarity = C_Item.GetItemInfo(itemLink)

                if itemRarity and itemRarity >= 2 then
                    local r, g, b = C_Item.GetItemQualityColor(itemRarity)
                    tooltip.NineSlice:SetBorderColor(r, g, b, 0.9)
                else
                    tooltip.NineSlice:SetBorderColor(unpack(mUI:Color(0.15)))
                end
            end
        end
    end

    function Style:OnTooltipSetItem(tooltip)
        if not Style.db.style == "mUI" then
            return
        end

        local tooltipData = tooltip:GetTooltipData()
        if not tooltipData then
            return
        end

        local itemID
        if tooltipData.id then
            itemID = tooltipData.id
        elseif tooltipData.hyperlink then
            itemID = C_Item.GetItemInfoInstant(tooltipData.hyperlink)
        end

        if not itemID then
            return
        end

        -- Check if ID is already shown
        local frame, text
        for i = 1, 15 do
            frame = _G[tooltip:GetName() .. "TextLeft" .. i]
            if frame then
                text = frame:GetText()
            end
            if text then
                local ok, found = xpcall(string.find, nop, text, "|cff0099ffID|r")
                if ok and found then
                    return
                end
            end
        end

        tooltip:AddDoubleLine("|cff0099ffID|r", itemID)
        tooltip:Show()
    end

    function Style:OnMacroTooltipSetColor(tooltip)
        if not Style.db.style == "mUI" then
            return
        end

        if mUI.db.profile.general.theme == "Disabled" then
            return
        end

        if tooltip:GetTooltipData() and tooltip:GetTooltipData().lines and tooltip:GetTooltipData().lines[2] and
            tooltip:GetTooltipData().lines[2].leftText and tooltip:GetTooltipData().lines[2].leftColor then
            local tooltipData = tooltip:GetTooltipData()
            local tooltipName = tooltipData.lines[2].leftText
            local tooltipColor = tooltipData.lines[2].leftColor
            local _, itemLink = C_Item.GetItemInfo(tooltipName)
            if itemLink then
                tooltip.NineSlice:SetBorderColor(tooltipColor.r, tooltipColor.g, tooltipColor.b)
            end
        end
    end

    --[[function Style:FixTooltipTextures()
        for i = 1, 30 do
            local frame = _G["GameTooltipTexture" .. i]
            if frame and frame:IsShown() then
                frame:SetDrawLayer("BACKGROUND", 1)
            end
        end
    end]]
end

function Style:OnEnable()
    -- Hook Tooltips
    if not Style.hooked then
        -- Macros
        TooltipDataProcessor.AddTooltipPostCall(Enum.TooltipDataType.Macro, function(tooltip)
            if InCombatLockdown() then
                return
            end

            xpcall(Style.OnMacroTooltipSetSpell, nop, Style, tooltip)
            xpcall(Style.OnMacroTooltipSetColor, nop, Style, tooltip)
        end)

        -- Spells
        TooltipDataProcessor.AddTooltipPostCall(Enum.TooltipDataType.Spell, function(tooltip, data)
            if InCombatLockdown() then
                return
            end

            xpcall(Style.OnTooltipSetSpell, nop, Style, tooltip, data.id)
        end)

        -- Auras
        TooltipDataProcessor.AddTooltipPostCall(Enum.TooltipDataType.UnitAura, function(tooltip, data)
            if InCombatLockdown() then
                return
            end

            xpcall(Style.OnTooltipSetSpell, nop, Style, tooltip, data.id)
        end)

        -- Units
        TooltipDataProcessor.AddTooltipPostCall(Enum.TooltipDataType.Unit, function(frame, data)
            -- xpcall(Style.OnTooltipSetUnit, nop, Style, frame)

            local _, isPlayer = GetPlayerInfoByGUID(data.guid)
            if isPlayer then
                xpcall(Style.OnTooltipSetPlayer, nop, Style, frame, data.guid)
            else
                xpcall(Style.OnTooltipSetUnit, nop, Style, frame, data.guid)
            end
        end)

        -- Items
        TooltipDataProcessor.AddTooltipPostCall(Enum.TooltipDataType.Item, function(tooltip)
            xpcall(Style.OnTooltipSetItem, nop, Style, tooltip)
            xpcall(Style.OnItemTooltipSetColor, nop, Style, tooltip)
        end)

        Style.hooked = true
    end

    Style:SecureHook(GameTooltipStatusBar, "SetStatusBarColor", function(frame, r, g, b)
        Style:SetStatusBarColor(frame, r, g, b)
    end)

    -- Set Healthbar Texture
    GameTooltipStatusBar:SetStatusBarTexture([[Interface\Addons\mUI\Media\Textures\Tooltip\UI-TargetingFrame-BarFill]])

    -- Show Gametooltip Healthbar Background
    GameTooltipStatusBar.mUIbg:SetAlpha(1)

    -- Set Statusbar Position
    GameTooltipStatusBar:ClearAllPoints()
    GameTooltipStatusBar:SetPoint("LEFT", 4.5, 0)
    GameTooltipStatusBar:SetPoint("RIGHT", -4.5, 0)
    GameTooltipStatusBar:SetPoint("TOP", 0, -3)
    GameTooltipStatusBar:SetHeight(4)
end

function Style:OnDisable()
    -- Unhook
    Style:UnhookAll()

    -- Reset Healthbar Texture
    GameTooltipStatusBar:SetStatusBarTexture([[Interface\TargetingFrame\UI-TargetingFrame-BarFill]])

    -- Hide Gametooltip Healthbar Background
    GameTooltipStatusBar.mUIbg:SetAlpha(0)

    -- Reset Statusbar Position and Height
    GameTooltipStatusBar:ClearAllPoints()
    GameTooltipStatusBar:SetPoint("LEFT", 4.5, 0)
    GameTooltipStatusBar:SetPoint("RIGHT", -4.5, 0)
    GameTooltipStatusBar:SetPoint("BOTTOM", 0, -9)
    GameTooltipStatusBar:SetHeight(8)
end
