local E, L, V, P, G = unpack(ElvUI)
local M = E:GetModule('Misc')
local LSM = E.Libs.LSM

local _G = _G
local rad = rad
local gsub = gsub
local wipe = wipe
local next = next
local pairs = pairs
local unpack = unpack

local UnitGUID = UnitGUID
local UnitExists = UnitExists
local CreateFrame = CreateFrame

local InspectItems = {
	'HeadSlot',
	'NeckSlot',
	'ShoulderSlot',
	'',
	'ChestSlot',
	'WaistSlot',
	'LegsSlot',
	'FeetSlot',
	'WristSlot',
	'HandsSlot',
	'Finger0Slot',
	'Finger1Slot',
	'Trinket0Slot',
	'Trinket1Slot',
	'BackSlot',
	'MainHandSlot', -- 16
	'SecondaryHandSlot', -- 17
	(E.Wrath or E.Mists) and 'RangedSlot' or nil -- 18
}

local numInspectItems = #InspectItems

function M:CreateInspectTexture(slot, x, y)
	local texture = slot:CreateTexture()
	texture:Point('BOTTOM', x, y)
	texture:SetTexCoords()
	texture:Size(14)

	local backdrop = CreateFrame('Frame', nil, slot)
	backdrop:SetTemplate(nil, nil, true)
	backdrop:SetBackdropColor(0,0,0,0)
	backdrop:SetOutside(texture)
	backdrop:Hide()

	return texture, backdrop
end

function M:GetInspectPoints(id)
	if not id then return end

	if id <= 5 or (id == 9 or id == 15) then
		return 40, 3, 18, 'BOTTOMLEFT' -- Left side
	elseif (id >= 6 and id <= 8) or (id >= 10 and id <= 14) then
		return -40, 3, 18, 'BOTTOMRIGHT' -- Right side
	else
		return 0, 46, 60, 'BOTTOM'
	end
end

function M:UpdateInspectInfo(event, arg1)
	local frame = _G.InspectFrame
	if not frame then return end

	if event == 'UNIT_MODEL_CHANGED' or event == 'FAKE_INSPECT_UPDATE' then
		if arg1 == 'target' and frame:IsShown() then
			arg1 = UnitGUID(arg1)
		else
			return
		end
	end

	if M.InspectTimer then -- event can spam when it has to load items
		E:CancelTimer(M.InspectTimer)
		M.InspectTimer = nil
	end

	if E:NotSecretValue(arg1) and arg1 then -- model changed but no guid???
		M.InspectTimer = E:ScheduleTimer(M.UpdatePageInfo, 0.2, M, frame, 'Inspect', arg1)
	end
end

function M:UpdateCharacterInfo(event)
	if not (E.db.general.itemLevel.displayCharacterInfo and _G.CharacterFrame:IsShown()) then return end

	M:UpdatePageInfo(_G.CharacterFrame, 'Character', nil, event)
end

function M:UpdateSocketDisplay(item, hide)
	local slots = item.SocketDisplay and item.SocketDisplay.Slots
	if slots then
		for _, slot in next, slots do
			slot:SetAlpha(hide and 0 or 1)
		end
	end
end

function M:ClearPageInfo(frame, which)
	if not (frame and frame.ItemLevelText) then return end
	frame.ItemLevelText:SetText('')

	for i = 1, numInspectItems do
		local slot = i ~= 4 and _G[which..InspectItems[i]]
		if slot then
			slot.enchantText:SetText('')
			slot.iLvlText:SetText('')

			M:UpdateSocketDisplay(slot)

			for y = 1, 10 do
				slot['textureSlot'..y]:SetTexture()
				slot['textureSlotBackdrop'..y]:Hide()
			end
		end
	end
end

function M:CheckStatsItemLevel()
	return E.Retail and not E.OtherAddons.DejaCharacterStats
end

function M:ToggleItemLevelInfo(setupCharacterPage, config)
	if E.Classic or E.TBC then return end

	if setupCharacterPage then
		M:CreateSlotStrings(_G.CharacterFrame, 'Character')
	end

	local db = E.db.general.itemLevel
	if db.displayCharacterInfo then
		M:RegisterEvent('AZERITE_ESSENCE_UPDATE', 'UpdateCharacterInfo')
		M:RegisterEvent('PLAYER_EQUIPMENT_CHANGED', 'UpdateCharacterInfo')
		M:RegisterEvent('PLAYER_AVG_ITEM_LEVEL_UPDATE', 'UpdateCharacterInfo')
		M:RegisterEvent('UPDATE_INVENTORY_DURABILITY', 'UpdateCharacterInfo')

		if M:CheckStatsItemLevel() then
			_G.CharacterStatsPane.ItemLevelFrame.Value:Hide()
		end

		if not _G.CharacterFrame.CharacterInfoHooked then
			_G.CharacterFrame:HookScript('OnShow', M.UpdateCharacterInfo)
			_G.CharacterFrame.CharacterInfoHooked = true
		end

		if not setupCharacterPage then
			if config then
				M:UpdateSlotPoints('Character')
			end

			M:UpdateCharacterInfo()
		end
	else
		M:UnregisterEvent('AZERITE_ESSENCE_UPDATE')
		M:UnregisterEvent('PLAYER_EQUIPMENT_CHANGED')
		M:UnregisterEvent('PLAYER_AVG_ITEM_LEVEL_UPDATE')
		M:UnregisterEvent('UPDATE_INVENTORY_DURABILITY')

		if M:CheckStatsItemLevel() then
			_G.CharacterStatsPane.ItemLevelFrame.Value:Show()
		end

		M:ClearPageInfo(_G.CharacterFrame, 'Character')
	end

	if db.displayInspectInfo then
		M:RegisterEvent('INSPECT_READY', 'UpdateInspectInfo')
		M:RegisterEvent('UNIT_MODEL_CHANGED', 'UpdateInspectInfo')

		if config then
			M:UpdateSlotPoints('Inspect', true)
		end
	else
		M:UnregisterEvent('INSPECT_READY')
		M:UnregisterEvent('UNIT_MODEL_CHANGED')
		M:ClearPageInfo(_G.InspectFrame, 'Inspect')
	end
end

function M:UpdatePageStrings(i, iLevelDB, slot, slotInfo, which) -- `which` is used by plugins
	iLevelDB[i] = slotInfo.iLvl

	local db = E.db.general.itemLevel
	if db.showEnchants then -- currently limited to retail only by InspectGearSlot in ItemLevel.lua
		slot.enchantText:SetText(slotInfo.enchantTextShort)

		if slotInfo.enchantColors and next(slotInfo.enchantColors) then
			slot.enchantText:SetTextColor(unpack(slotInfo.enchantColors))
		end
	end

	if db.showItemLevel then
		slot.iLvlText:SetText(slotInfo.iLvl)

		if db.itemLevelRarity and slotInfo.itemLevelColors and next(slotInfo.itemLevelColors) then
			slot.iLvlText:SetTextColor(unpack(slotInfo.itemLevelColors))
		end
	end

	M:UpdateSocketDisplay(slot, true)

	local gemStep, essenceStep, showGems = 1, 1, db.showGems
	for x = 1, 10 do
		local texture = slot['textureSlot'..x]
		local backdrop = slot['textureSlotBackdrop'..x]
		local essenceType = slot['textureSlotEssenceType'..x]
		if essenceType then essenceType:Hide() end

		local gem = showGems and slotInfo.gems and slotInfo.gems[gemStep]
		local essence = showGems and not gem and (slotInfo.essences and slotInfo.essences[essenceStep])
		if gem then
			texture:SetTexture(gem)
			backdrop:SetBackdropBorderColor(unpack(E.media.bordercolor))
			backdrop:Show()

			gemStep = gemStep + 1
		elseif essence and next(essence) then
			local hexColor = essence[4]
			if hexColor then
				local r, g, b = E:HexToRGB(hexColor)
				backdrop:SetBackdropBorderColor(r/255, g/255, b/255)
			else
				backdrop:SetBackdropBorderColor(unpack(E.media.bordercolor))
			end

			if not essenceType then
				essenceType = slot:CreateTexture()
				essenceType:SetTexture(2907423)
				essenceType:SetRotation(rad(90))
				essenceType:SetParent(backdrop)
				slot['textureSlotEssenceType'..x] = essenceType
			end

			essenceType:Point('BOTTOM', texture, 'TOP', 0, -9)
			essenceType:SetAtlas(gsub(essence[2], '^tooltip%-(heartofazeroth)essence', '%1-list-selected'))
			essenceType:Size(13, 17)
			essenceType:Show()

			local selected = essence[1]
			texture:SetTexture(selected)
			backdrop:Show()

			if selected then
				backdrop:SetBackdropColor(0,0,0,0)
			else
				local r, g, b = unpack(E.media.backdropcolor)
				backdrop:SetBackdropColor(r, g, b, 1)
			end

			essenceStep = essenceStep + 1
		else
			texture:SetTexture()
			backdrop:Hide()
		end
	end
end

function M:UpdateAverageString(frame, which, iLevelDB)
	local charPage, avgItemLevel, avgTotal = which == 'Character'
	local db = E.db.general.itemLevel

	if charPage then
		avgTotal, avgItemLevel = E:GetPlayerItemLevel() -- rounded average, rounded equipped
	elseif frame.unit then
		avgItemLevel = E:CalculateAverageItemLevel(iLevelDB, frame.unit)
	end

	if avgItemLevel and (not charPage or not E.OtherAddons.DejaCharacterStats) then
		if charPage then
			frame.ItemLevelText:SetText(avgItemLevel)

			if M:CheckStatsItemLevel() then
				frame.ItemLevelText:SetTextColor(_G.CharacterStatsPane.ItemLevelFrame.Value:GetTextColor())
			end
		else
			frame.ItemLevelText:SetText(avgItemLevel)
		end
	else
		frame.ItemLevelText:SetText('')
	end

	-- we have to wait to do this on inspect so handle it in here
	if not db.itemLevelRarity then
		for i = 1, numInspectItems do
			local ilvl = i ~= 4 and iLevelDB[i]
			local inspectItem = ilvl and _G[which..InspectItems[i]]
			if inspectItem then
				local r, g, b = E:ColorizeItemLevel(ilvl - (avgTotal or avgItemLevel or 0))
				inspectItem.iLvlText:SetTextColor(r, g, b)
			end
		end
	end
end

function M:TryGearAgain(frame, which, i, deepScan, iLevelDB, inspectItem)
	E:Delay(0.05, function()
		if which == 'Inspect' and (not frame or not frame.unit) then return end

		local unit = (which == 'Character' and 'player') or frame.unit
		local slotInfo = E:GetGearSlotInfo(unit, i, deepScan)
		if slotInfo == 'tooSoon' then return end

		M:UpdatePageStrings(i, iLevelDB, inspectItem, slotInfo, which)
	end)
end

do
	local iLevelDB = {}
	function M:UpdatePageInfo(frame, which, arg1, event)
		if not (which and frame and frame.ItemLevelText) then return end

		if which == 'Inspect' then
			M.InspectTimer = nil -- clear inspect timer

			if (E:IsSecretValue(arg1) or not arg1) or (not frame.unit or not frame:IsShown()) then return end

			local guid = UnitGUID(frame.unit)
			if (E:IsSecretValue(guid) or not guid) or (arg1 ~= guid) then return end
		end

		wipe(iLevelDB)

		local waitForItems
		for i = 1, numInspectItems do
			local inspectItem = i ~= 4 and _G[which..InspectItems[i]]
			if inspectItem then
				inspectItem.enchantText:SetText('')
				inspectItem.iLvlText:SetText('')

				local unit = (which == 'Character' and 'player') or frame.unit
				local slotInfo = E:GetGearSlotInfo(unit, i, true)
				if slotInfo == 'tooSoon' then
					if not waitForItems then waitForItems = true end
					M:TryGearAgain(frame, which, i, true, iLevelDB, inspectItem)
				else
					M:UpdatePageStrings(i, iLevelDB, inspectItem, slotInfo, which)
				end
			end
		end

		if event and event == 'PLAYER_EQUIPMENT_CHANGED' then
			return
		end

		if waitForItems then
			E:Delay(0.1, M.UpdateAverageString, M, frame, which, iLevelDB)
		else
			M:UpdateAverageString(frame, which, iLevelDB)
		end
	end
end

function M:CreateSlotStrings(frame, which)
	if not (frame and which) then return end

	if which == 'Inspect' then
		frame.ItemLevelText = _G.InspectPaperDollItemsFrame:CreateFontString(nil, 'ARTWORK')
		frame.ItemLevelText:Point('TOPLEFT', 6, -4)
	elseif E.Mists or E.Wrath then
		frame.ItemLevelText = _G.PaperDollItemsFrame:CreateFontString(nil, 'ARTWORK')
		frame.ItemLevelText:Point('BOTTOMLEFT', 6, 6)
	elseif E.TBC then
		frame.ItemLevelText = _G.PaperDollItemsFrame:CreateFontString(nil, 'ARTWORK')
		frame.ItemLevelText:Point('BOTTOMLEFT', 20, 80)
	else
		frame.ItemLevelText = _G.CharacterStatsPane.ItemLevelFrame:CreateFontString(nil, 'ARTWORK')
		frame.ItemLevelText:Point('CENTER', _G.CharacterStatsPane.ItemLevelFrame.Value, 'CENTER', 0, -1)
	end

	local db = E.db.general.itemLevel
	local totalLevelFont = LSM:Fetch('font', db.totalLevelFont)
	local totalLevelFontSize = db.totalLevelFontSize or 12
	local totalLevelFontOutline = db.totalLevelFontOutline or 'OUTLINE'
	frame.ItemLevelText:FontTemplate(totalLevelFont, totalLevelFontSize, totalLevelFontOutline)

	M:UpdateSlotPoints(which)
end

function M:UpdateSlotPoints(which, config)
	local db = E.db.general.itemLevel
	local itemLevelFont = LSM:Fetch('font', db.itemLevelFont)
	local itemLevelFontSize = db.itemLevelFontSize or 12
	local itemLevelFontOutline = db.itemLevelFontOutline or 'OUTLINE'
	local showItemLevel = db.showItemLevel
	local showOnItem = db.showOnItem
	local shouldOffset = not showOnItem and showItemLevel

	if config and which == 'Inspect' and UnitExists('target') then
		M:UpdateInspectInfo('FAKE_INSPECT_UPDATE', 'target') -- fake update when inspect is already shown
	end

	for i, s in pairs(InspectItems) do
		local slot = i ~= 4 and _G[which..s]
		if slot then
			local x, y, z, justify = M:GetInspectPoints(i)
			if not slot.iLvlText then
				slot.iLvlText = slot:CreateFontString(nil, 'OVERLAY')
			end

			slot.iLvlText:FontTemplate(itemLevelFont, itemLevelFontSize, itemLevelFontOutline)
			slot.iLvlText:ClearAllPoints()

			if showOnItem then
				slot.iLvlText:Point(db.textPosition, slot, db.textOffsetX, db.textOffsetY)
			else
				slot.iLvlText:Point('BOTTOM', slot, x, y)
			end

			if not slot.enchantText then
				slot.enchantText = slot:CreateFontString(nil, 'OVERLAY')
			end

			slot.enchantText:FontTemplate(itemLevelFont, itemLevelFontSize, itemLevelFontOutline)
			slot.enchantText:ClearAllPoints()

			local itemLeft, itemRight = i == 16, (E.Retail and i == 17) or ((E.Wrath or E.Mists) and i == 18)
			if itemLeft or itemRight then
				slot.enchantText:Point(itemLeft and 'BOTTOMRIGHT' or 'BOTTOMLEFT', slot, itemLeft and -40 or 40, 3)
			elseif (E.Wrath or E.Mists) and i == 17 then -- cata secondary (not ranged)
				slot.enchantText:Point('TOP', slot, 'BOTTOM', 0, 3)
			else
				slot.enchantText:Point(justify, slot, x + (justify == 'BOTTOMLEFT' and 5 or -5), z)
			end

			local weapon = i == 16 or i == 17 or i == 18
			local shownOffset = shouldOffset and 8 or 0
			local shownSpaced = shouldOffset and 0 or 1
			for u = 1, 10 do
				local offset = shownOffset + ((u - shownSpaced) * 16)
				local newX = (weapon and 0) or ((justify == 'BOTTOMLEFT' or itemRight) and x+offset) or x-offset
				local newY = (weapon and offset+40) or y

				local texSlot = slot['textureSlot'..u]
				if texSlot then
					texSlot:ClearAllPoints()
					texSlot:Point('BOTTOM', newX, newY)
				else
					slot['textureSlot'..u], slot['textureSlotBackdrop'..u] = M:CreateInspectTexture(slot, newX, newY)
				end
			end
		end
	end
end

function M:SetupInspectPageInfo()
	local frame = _G.InspectFrame
	if frame and not frame.ItemLevelText then
		M:CreateSlotStrings(frame, 'Inspect')
	end
end

function M:UpdateInspectPageFonts(which)
	local db = E.db.general.itemLevel

	local totalLevelFont = LSM:Fetch('font', db.totalLevelFont)
	local totalLevelFontSize = db.totalLevelFontSize or 12
	local totalLevelFontOutline = db.totalLevelFontOutline or 'OUTLINE'
	local frame = (which == 'Character' and _G.CharacterFrame) or _G.InspectFrame
	if frame and frame.ItemLevelText then
		frame.ItemLevelText:FontTemplate(totalLevelFont, totalLevelFontSize, totalLevelFontOutline)
	end

	local itemLevelFont = LSM:Fetch('font', db.itemLevelFont)
	local itemLevelFontSize = db.itemLevelFontSize or 12
	local itemLevelFontOutline = db.itemLevelFontOutline or 'OUTLINE'
	for i, s in pairs(InspectItems) do
		local slot = i ~= 4 and _G[which..s]
		if slot then
			slot.iLvlText:FontTemplate(itemLevelFont, itemLevelFontSize, itemLevelFontOutline)
			slot.enchantText:FontTemplate(itemLevelFont, itemLevelFontSize, itemLevelFontOutline)
		end
	end
end
