local PT = AhUI
PT.config = PT.config or {}

PT.ConcentrationUI = {}
local UI = PT.ConcentrationUI

AhUI_CharConfig = AhUI_CharConfig or {}

if not AhUI_CharConfig.activeDB then
    AhUI_CharConfig.activeDB = "DF"
end

local function GetMode()
    return AhUI_CharConfig.activeDB
end

local function GetConcCustomization()
    local c = PT.config and PT.config.customization
    return c and c.concentration
end

local L = PT.L
local Tooltip = PT.Tooltip

local FONT = "Interface\\AddOns\\AhUI\\fonts\\GothamXNarrow-Medium.ttf"
local ICON_DF = "Interface\\AddOns\\AhUI\\media\\DF.tga"
local ICON_TWW = "Interface\\AddOns\\AhUI\\media\\TWW.tga"
local ICON_MID = "Interface\\AddOns\\AhUI\\media\\MID.tga"
local DEFAULT_SCALE = 1.0
local SCALE_STEP    = 0.05
local SCALE_MIN     = 0.7
local SCALE_MAX     = 1.4
local MAX_CONCENTRATION = 1000
local TIME_TO_MAX = 6000
local FILL_RATE = MAX_CONCENTRATION / TIME_TO_MAX

local NUM_SEGMENTS = 5
local SEGMENT_VALUE = MAX_CONCENTRATION / NUM_SEGMENTS
local DFConcentrationCurrencyId = {
    [755] = 3047, -- ювелирное дело
    [197] = 3048, -- портняжное дело
    [165] = 3049, -- кожевничество
    [164] = 3050, -- кузнечное дело
    [333] = 3051, -- наложение чар
    [202] = 3052, -- инженерное дело
    [773] = 3053, -- начертание
    [171] = 3054, -- алхимия
}
local TWWConcentrationCurrencyId = {
	[755] = 3013, --ювелирное
    [164] = 3040, --кузнечное дело
	[197] = 3041, --портняжное дело
	[165] = 3042, --кожевничество
	[773] = 3043, --начертание
	[202] = 3044, --инженерное дело
    [171] = 3045, --алхимия
    [333] = 3046, --наложение чар
}
local MIDConcentrationCurrencyId = {
    [171] = 3161, -- алхимия
    [164] = 3162, -- кузнечное
    [333] = 3163, -- наложение чар
    [202] = 3164, -- инженерное
    [773] = 3165, -- начертание
    [755] = 3166, -- ювелирное
    [165] = 3167, -- кожевничество
    [197] = 3168, -- портняжное
}
local function FormatTime(minutes)
    if minutes < 60 then
        return string.format(L["TIME_MIN"], minutes)
    elseif minutes < 1440 then
        return string.format(
            L["TIME_HOUR"],
            math.floor(minutes / 60),
            minutes % 60
        )
    else
        return string.format(
            L["TIME_DAY"],
            math.floor(minutes / 1440),
            math.floor((minutes % 1440) / 60)
        )
    end
end

local lastOpenedSkillLine = nil

local function OpenProfessions(profData)
    if not profData or not profData.skillLine then
        return
    end

    if ProfessionsFrame
       and ProfessionsFrame:IsShown()
       and lastOpenedSkillLine == profData.skillLine
    then
        HideUIPanel(ProfessionsFrame)
        lastOpenedSkillLine = nil
        return
    end

    if ProfessionsFrame then
        ShowUIPanel(ProfessionsFrame)
    end

    if C_TradeSkillUI and C_TradeSkillUI.OpenTradeSkill then
        C_TradeSkillUI.OpenTradeSkill(profData.skillLine)
        lastOpenedSkillLine = profData.skillLine
    end
end

local function SavePosition(frame)
    AhUI_DB = AhUI_DB or {}
    AhUI_DB.positions = AhUI_DB.positions or {}

    local point, _, relPoint, x, y = frame:GetPoint()
    AhUI_DB.positions.concentration = {
        point = point,
        relPoint = relPoint,
        x = x,
        y = y,
    }
end

local function LoadPosition(frame)
    frame:ClearAllPoints()

    if AhUI_DB
       and AhUI_DB.positions
       and AhUI_DB.positions.concentration
    then
        local p = AhUI_DB.positions.concentration
        frame:SetPoint(p.point, UIParent, p.relPoint, p.x, p.y)
    else
        frame:SetPoint("CENTER", UIParent, "CENTER", 0, -200)
    end
end

local function CreateIconBorder(icon)
    local parent = icon:GetParent()

    local holder = CreateFrame("Frame", nil, parent, "BackdropTemplate")
    holder:SetFrameLevel(parent:GetFrameLevel() + 10)

    holder:SetPoint("TOPLEFT", icon, "TOPLEFT", -2, 2)
    holder:SetPoint("BOTTOMRIGHT", icon, "BOTTOMRIGHT", 2, -2)

    holder:SetBackdrop({
        edgeFile = "Interface\\Buttons\\WHITE8x8",
        edgeSize = 2,
    })

    holder:SetBackdropBorderColor(0, 0, 0, 1)
	icon.border = holder
end

local function CreateBarBorder(bar)
    local f = CreateFrame("Frame", nil, bar, "BackdropTemplate")
    f:SetFrameLevel(bar:GetFrameLevel() + 5)

    f:SetPoint("TOPLEFT", bar, "TOPLEFT", -2, 2)
    f:SetPoint("BOTTOMRIGHT", bar, "BOTTOMRIGHT", 2, -2)

    f:SetBackdrop({
        edgeFile = "Interface\\Buttons\\WHITE8x8",
        edgeSize = 2,
    })

    f:SetBackdropBorderColor(0, 0, 0, 1)
	bar.border = f
end

function UI:ApplyCustomization()
    if not self.frame then return end

    local cfg = GetConcCustomization()
    if not cfg then return end

    if cfg.barAlpha then
        self.frame:SetAlpha(cfg.barAlpha)
    end

    for _, bar in ipairs(self.frame.bars or {}) do

        local profData = bar.iconHolder and bar.iconHolder.profData
        local hasConcentration = profData and profData.currencyId

        local hasConcentration = (bar.hasConcentration ~= false)

        if not hasConcentration then
            bar:SetValue(0)

            if bar.bg then bar.bg:Hide() end
            if bar.border then bar.border:Hide() end

            if bar.timers then
                for _, fs in ipairs(bar.timers) do
                    fs:SetText("")
                    fs:Hide()
                end
            end

            if bar.dividers then
                for _, d in ipairs(bar.dividers) do
                    d:Hide()
                end
            end
        end

        if bar.iconHolder and bar.iconHolder.border then
            local icfg = cfg.iconBorder
            local iconBorderColor = (cfg.__preview and cfg.__preview.iconBorderColor) or (icfg and icfg.color)

            if icfg and icfg.enabled == false then
                bar.iconHolder.border:Hide()
            else
                bar.iconHolder.border:Show()
                if iconBorderColor then
                    bar.iconHolder.border:SetBackdropBorderColor(
                        iconBorderColor.r or 1,
                        iconBorderColor.g or 1,
                        iconBorderColor.b or 1,
                        iconBorderColor.a or 1
                    )
                end
            end
        end

        if not hasConcentration then
        else
            if cfg.barTexture and bar.SetStatusBarTexture then
                bar:SetStatusBarTexture(cfg.barTexture)
            end

			if bar.bg then
				local bgc =
					(cfg.__preview and cfg.__preview.backgroundColor)
					or cfg.backgroundColor

				if bgc and (bgc.a or 0) > 0 then
					bar.bg:SetColorTexture(
						bgc.r or 0,
						bgc.g or 0,
						bgc.b or 0,
						bgc.a or 0
					)
					bar.bg:Show()
				else
					bar.bg:Hide()
				end
			end

            local barColor = (cfg.__preview and cfg.__preview.barColor) or cfg.barColor
            if barColor and bar.GetStatusBarTexture then
                local t = bar:GetStatusBarTexture()
                if t then
                    t:SetVertexColor(
                        barColor.r or 1,
                        barColor.g or 1,
                        barColor.b or 1,
                        barColor.a or 1
                    )
                end
            end

			local timerColor = (cfg.__preview and cfg.__preview.timerTextColor) or cfg.timerTextColor
			local timerFont     = cfg.timerFont
			local timerFontSize = cfg.timerFontSize

			if bar.timers then
				for _, fs in ipairs(bar.timers) do
					if timerFont then
						local _, _, flags = fs:GetFont()
						fs:SetFont(
							timerFont,
							timerFontSize or 11,
							flags
						)
					end

					if timerColor then
						fs:SetTextColor(
							timerColor.r or 1,
							timerColor.g or 1,
							timerColor.b or 1,
							timerColor.a or 1
						)
					end
				end
			end

			if bar.iconText and timerFont then
				local _, _, flags = bar.iconText:GetFont()
				bar.iconText:SetFont(
					timerFont,
					timerFontSize or 12,
					flags
				)
			end

            local divColor = (cfg.__preview and cfg.__preview.dividerColor) or cfg.dividerColor
            if divColor and bar.dividers then
                for _, fs in ipairs(bar.dividers) do
                    fs:SetTextColor(
                        divColor.r or 1,
                        divColor.g or 1,
                        divColor.b or 1,
                        divColor.a or 1
                    )
                end
            end

            if bar.border then
                local bcfg = cfg.border
                local borderColor = (cfg.__preview and cfg.__preview.borderColor) or (bcfg and bcfg.color)

                if bcfg and bcfg.enabled == false then
                    bar.border:Hide()
                else
                    bar.border:Show()
                    if borderColor then
                        bar.border:SetBackdropBorderColor(
                            borderColor.r or 1,
                            borderColor.g or 1,
                            borderColor.b or 1,
                            borderColor.a or 1
                        )
                    end
                end
            end
        end 
    end 
end 

local function CreateModeToggleButton(parent)
    local b = CreateFrame("Button", nil, parent)
    b:SetSize(50, 32)
    b:SetFrameLevel(parent:GetFrameLevel() + 20)

    b.icon = b:CreateTexture(nil, "ARTWORK")
    b.icon:SetAllPoints()
    b.icon:SetTexCoord(0.08, 0.92, 0.08, 0.92)

    local mask = b:CreateMaskTexture()
    mask:SetTexture(
        "Interface\\CharacterFrame\\TempPortraitAlphaMask",
        "CLAMPTOBLACKADDITIVE",
        "CLAMPTOBLACKADDITIVE"
    )
    mask:SetAllPoints(b.icon)
    b.icon:AddMaskTexture(mask)
function b:UpdateTooltip()
    Tooltip:Clear()

    Tooltip:AddLine(
        L["CONCENTRATION_MODE"] or "Concentration Mode",
        14, 1, 1, 1
    )

    Tooltip:AddLine(" ")

if GetMode() == "DF" then
    Tooltip:AddLine("Dragonflight", 12, 0.4, 0.8, 1)
elseif GetMode() == "MID" then
    Tooltip:AddLine("Midnight", 12, 0.7, 0.6, 1)
else
    Tooltip:AddLine("The War Within", 12, 1, 0.6, 0.2)
end
    Tooltip:ShowAtCursor()
end

function b:Update()
    if GetMode() == "DF" then
        b.icon:SetTexture(ICON_DF)
    elseif GetMode() == "MID" then
        b.icon:SetTexture(ICON_MID)
    else
        b.icon:SetTexture(ICON_TWW)
    end
end

b:SetScript("OnClick", function()
    UI:ToggleConcentrationMode()
    b:Update()

    if b:IsMouseOver() then
        b:UpdateTooltip()
    end
end)

b:SetScript("OnEnter", function()
	b:UpdateTooltip()
end)

b:SetScript("OnLeave", function()
    Tooltip:Clear()
end)

    b:Update()
    return b
end

local function CreateBar(parent, index)
    local bar = CreateFrame("StatusBar", nil, parent)
    bar:SetSize(230, 30)
    bar:SetFrameLevel(parent:GetFrameLevel() + 1)

    bar.bg = bar:CreateTexture(nil, "BACKGROUND")
    bar.bg:SetAllPoints()
    bar.bg:SetColorTexture(0, 0, 0, 0)

bar:SetMinMaxValues(0, MAX_CONCENTRATION)
bar:SetValue(0)

bar:SetStatusBarTexture("Interface\\Buttons\\WHITE8x8")
bar:GetStatusBarTexture():SetVertexColor(64/255, 186/255, 255/255, 1)

bar.iconHolder = CreateFrame("Frame", nil, bar, "BackdropTemplate")
bar.iconHolder:SetSize(30, 30)
bar.iconHolder:SetPoint("LEFT", bar, "LEFT", -32, 0)

local BAR_BORDER_SIZE = 2
local borderSize = BAR_BORDER_SIZE

local cfg = GetConcCustomization()
if cfg and cfg.border and cfg.border.enabled == false then
    borderSize = 0
end

bar.iconHolder:SetPoint("LEFT", bar, "LEFT", -(32 + borderSize), 0)
bar.iconHolder:SetFrameLevel(bar:GetFrameLevel() + 5)

bar.icon = bar.iconHolder:CreateTexture(nil, "ARTWORK", nil, 5)
bar.icon:SetPoint("CENTER")
bar.icon:SetSize(32, 32)
bar.icon:SetTexCoord(0.08, 0.92, 0.08, 0.92)

CreateIconBorder(bar.iconHolder)

    bar.iconHolder:SetScript("OnEnter", function(self)
        if self.profData then
            Tooltip:Clear()

            Tooltip:AddLine(self.profData.name, 14, 1, 1, 1)

            Tooltip:AddLine(" ")

            Tooltip:AddLine(L["CLICK_TO_TOGGLE_PROFESSIONS"], 12, 1, 0.8, 0)

            Tooltip:ShowAtCursor()
        end
    end)

    bar.iconHolder:SetScript("OnLeave", function()
        Tooltip:Clear()
    end)

bar.iconHolder:SetScript("OnMouseDown", function(self, button)
    if button == "LeftButton" then
        bar.icon:SetPoint("CENTER", 1, -1)

        if self.profData then
            OpenProfessions(self.profData)
        end
    end
end)

    bar.iconHolder:SetScript("OnMouseUp", function(self, button)
        if button == "LeftButton" then
            bar.icon:SetPoint("CENTER", 0, 0)
        end
    end)
	
    bar.iconText = bar.iconHolder:CreateFontString(nil, "OVERLAY", nil, 7)
    bar.iconText:SetFont(FONT, 13, "OUTLINE")
    bar.iconText:SetTextColor(1, 1, 1)
    bar.iconText:SetPoint("CENTER")

    bar.timers = {}
    local segmentWidth = bar:GetWidth() / NUM_SEGMENTS

    for s = 1, NUM_SEGMENTS do
        local fs = bar:CreateFontString(nil, "OVERLAY", nil, 8)
        fs:SetFont(FONT, 11)
        fs:SetTextColor(1, 1, 1)
		fs:SetShadowOffset(1, -1)
        fs:SetPoint("CENTER", bar, "LEFT", (s - 0.5) * segmentWidth, 0)
        bar.timers[s] = fs
    end
	
bar.dividers = {}

local barWidth = bar:GetWidth()

for s = 1, NUM_SEGMENTS - 1 do
    local fs = bar:CreateFontString(nil, "OVERLAY")
    fs:SetFont(FONT, 35)  
    fs:SetText("|") 
    fs:SetTextColor(1,1,1,1)

    local x = (barWidth / NUM_SEGMENTS) * s
    fs:SetPoint("CENTER", bar, "LEFT", x, -1)

    bar.dividers[s] = fs
end

    CreateBarBorder(bar)

    if index == 1 then
        bar:SetPoint("TOP", parent, "TOP", 0, -10)
    else
        bar:SetPoint("TOP", parent.bars[1], "BOTTOM", 0, -1)
    end

    return bar
end

local function GetPlayerConcentrationProfessions()
    local list = {}
    local p1, p2 = GetProfessions()

local map = DFConcentrationCurrencyId

if GetMode() == "TWW" then
    map = TWWConcentrationCurrencyId
elseif GetMode() == "MID" and PT.IS_MID_AVAILABLE then
    map = MIDConcentrationCurrencyId
end

    for _, slot in ipairs({ p1, p2 }) do
        if slot then
            local name, icon, _, _, _, _, skillLine = GetProfessionInfo(slot)
            local cid = map[skillLine]
            
                table.insert(list, {
                    name       = name,
                    icon       = icon,
                    skillLine  = skillLine,
                    currencyId = cid,
                })       
        end
    end

    return list
end


local function UpdateBars(self)
	if not C_CurrencyInfo
		or not C_CurrencyInfo.GetCurrencyInfo
		or not GetProfessions
	then
		return
	end

    local profs = GetPlayerConcentrationProfessions()
	if not profs then return end
    if self.modeToggle then
        self.modeToggle:SetShown(#profs > 0)
    end

if #profs == 0 then
    for i = 1, 2 do
        self.bars[i]:Hide()
    end
    return
end

self:Show()

    for i = 1, 2 do
        local bar = self.bars[i]
        local prof = profs[i]

        if not prof then
            bar:Hide()
        else
            bar.icon:SetTexture(prof.icon)
            bar.hasConcentration = (prof.currencyId ~= nil)
            bar.iconHolder.profData = prof

            if not prof.currencyId then
                bar.iconText:SetText("")
                bar:SetValue(0)

                bar.bg:Hide()

                for s = 1, NUM_SEGMENTS do
                    bar.timers[s]:SetText("")
                    bar.timers[s]:Hide()
                end

                if bar.dividers then
                    for _, d in ipairs(bar.dividers) do
                        d:Hide()
                    end
                end

                if bar.border then
                    bar.border:Hide()
                end

                bar:Show()
            else
                local info = C_CurrencyInfo.GetCurrencyInfo(prof.currencyId)
                local value = info.quantity or 0

                bar.iconText:SetText(value)
                bar:SetValue(value)

                if bar.border then
                    bar.border:Show()
                end

                for s = 1, NUM_SEGMENTS do
                    local required = s * SEGMENT_VALUE
                    if value >= required then
                        bar.timers[s]:SetText("")
                    else
                        local minutes = math.floor((required - value) / FILL_RATE)
                        bar.timers[s]:SetText(FormatTime(minutes))
                    end
                    bar.timers[s]:Show()
                end

                if bar.dividers then
                    for _, d in ipairs(bar.dividers) do
                        d:Show()
                    end
                end

                bar:Show()
            end
        end
    end

    if PT.ConcentrationUI and PT.ConcentrationUI.ApplyCustomization then
        PT.ConcentrationUI:ApplyCustomization()
    end
end

function UI:SetScale(delta)
    AhUI_Config = AhUI_Config or {}
    AhUI_Config.concentrationScale =
        AhUI_Config.concentrationScale or DEFAULT_SCALE

    local nextScale = AhUI_Config.concentrationScale + delta
    nextScale = math.max(SCALE_MIN, math.min(SCALE_MAX, nextScale))

    AhUI_Config.concentrationScale = nextScale

    if self.frame then
        self.frame:SetScale(nextScale)
    end
end

function UI:ResetScale()
    AhUI_Config = AhUI_Config or {}
    AhUI_Config.concentrationScale = DEFAULT_SCALE

    if self.frame then
        self.frame:SetScale(DEFAULT_SCALE)
    end
end

function UI:CreateFrame()
    if self.frame then return self.frame end

    local f = CreateFrame("Frame", "AhUIConcentrationFrame", UIParent)
    f:SetSize(300, 100)
	AhUI_Config = AhUI_Config or {}
	local scale = AhUI_Config.concentrationScale or DEFAULT_SCALE
	f:SetScale(scale)
    LoadPosition(f)
    f:SetMovable(true)
    f:EnableMouse(true)
	f:EnableMouseWheel(true)

	f:SetScript("OnMouseUp", function(self, button)
		if button == "MiddleButton" and IsAltKeyDown() then
			UI:ResetScale()
		end
	end)

	f:SetScript("OnMouseWheel", function(self, delta)
		if not IsAltKeyDown() then
			return
		end

		if delta > 0 then
			UI:SetScale(SCALE_STEP)
		else
			UI:SetScale(-SCALE_STEP)
		end
	end)

    f:RegisterForDrag("LeftButton")
    f:SetScript("OnDragStart", f.StartMoving)
    f:SetScript("OnDragStop", function(s)
        s:StopMovingOrSizing()
        SavePosition(s)
    end)

    f.bars = {}
    f.bars[1] = CreateBar(f, 1)
    f.bars[2] = CreateBar(f, 2)

	f.modeToggle = CreateModeToggleButton(f)
	f.modeToggle:SetPoint(
		"RIGHT",
		f.bars[1].iconHolder,
		"LEFT",
		2,
		-15
	)
	
	f.modeToggle:Update()
    f:SetScript("OnUpdate", function(self, dt)
        self.t = (self.t or 0) + dt
        if self.t > 1 then
            UpdateBars(self)
            self.t = 0
        end
    end)

	self.frame = f

	self:ApplyCustomization()

	PT:RegisterHideInCombat(f, "hideConcentrationInCombat")
	return f

end

function UI:Show()
    if PT.config.showConcentration == false then
        return
    end

    local frame = self:CreateFrame()
    self:ApplyCustomization()
    frame:Show()
end

function UI:Hide()
    if self.frame then self.frame:Hide() end
end

function UI:Toggle()
    if self.frame and self.frame:IsShown() then
        self:Hide()
    else
        self:Show()
    end
end

function UI:SetConcentrationMode(mode)
    if mode == "MID" and not PT.IS_MID_AVAILABLE then
    return
end

if mode ~= "DF" and mode ~= "TWW" and mode ~= "MID" then
    return
end

AhUI_CharConfig.activeDB = mode

if self.frame then
    UpdateBars(self.frame)
    if self.frame.modeToggle then
        self.frame.modeToggle:Update()
    end
end

end

function UI:ToggleConcentrationMode()
    local order

    if PT.IS_MID_AVAILABLE then
        order = { "DF", "TWW", "MID" }
    else
        order = { "DF", "TWW" }
    end

    local current = GetMode()

    for i, v in ipairs(order) do
        if v == current then
            AhUI_CharConfig.activeDB = order[i + 1] or order[1]

            if self.frame then
                UpdateBars(self.frame)
                self.frame.modeToggle:Update()
            end
            return
        end
    end
end

local eventFrame = CreateFrame("Frame")
eventFrame:RegisterEvent("PLAYER_ENTERING_WORLD")
eventFrame:RegisterEvent("PLAYER_LOGOUT")

eventFrame:SetScript("OnEvent", function(_, event)
    if event == "PLAYER_ENTERING_WORLD" then
        if PT.config.showConcentration ~= false then
            UI:Show()
        else
            UI:Hide()
        end
    end
end)