-- App locals
local appName, app = ...;

-- Global locals
local pairs, ipairs, math_floor, tonumber, pi, MODELFRAME_DEFAULT_ROTATION
	= pairs, ipairs, math.floor, tonumber, math.pi, MODELFRAME_DEFAULT_ROTATION;
---@class ATTGameTooltip: GameTooltip
local GameTooltip = GameTooltip;

-- Support for Artifact Appearances
local C_TransmogCollection_GetSourceInfo;
if C_TransmogCollection then
	C_TransmogCollection_GetSourceInfo = C_TransmogCollection.GetSourceInfo;
else
	C_TransmogCollection_GetSourceInfo = app.EmptyFunction;
end

-- Game Tooltip Icon
---@class ATTGameTooltipIcon: Frame
local GameTooltipIcon = CreateFrame("Frame", nil, GameTooltip);
GameTooltipIcon:SetPoint("TOPRIGHT", GameTooltip, "TOPLEFT", 0, 0);
GameTooltipIcon:SetSize(72, 72);
---@class ATTGameTooltipIconTexture: Texture
GameTooltipIcon.icon = GameTooltipIcon:CreateTexture(nil, "ARTWORK");
GameTooltipIcon.icon:SetAllPoints(GameTooltipIcon);
GameTooltipIcon.icon:Show();
GameTooltipIcon.icon.Background = GameTooltipIcon:CreateTexture(nil, "BACKGROUND");
GameTooltipIcon.icon.Background:SetAllPoints(GameTooltipIcon);
GameTooltipIcon.icon.Background:Show();
GameTooltipIcon.icon.Border = GameTooltipIcon:CreateTexture(nil, "BORDER");
GameTooltipIcon.icon.Border:SetAllPoints(GameTooltipIcon);
GameTooltipIcon.icon.Border:Show();
GameTooltipIcon:Hide();

-- Model is used to display the model of an NPC/Encounter.
---@class ATTGameTooltipModelFrame: BackdropTemplate, Frame
local GameTooltipModel, model, fi = CreateFrame("Frame", nil, GameTooltip, BackdropTemplateMixin and "BackdropTemplate");
GameTooltipModel:SetPoint("TOPRIGHT", GameTooltip, "TOPLEFT", 0, 0);
GameTooltipModel:SetSize(128, 128);
GameTooltipModel:SetBackdrop({
	bgFile = 137056,
	edgeFile = 137057,
	tile = true, tileSize = 16, edgeSize = 16,
	insets = { left = 4, right = 4, top = 4, bottom = 4 }
});
GameTooltipModel:SetBackdropBorderColor(1, 1, 1, 1);
GameTooltipModel:SetBackdropColor(0, 0, 0, 1);
local GameTooltipModelModel = CreateFrame("PlayerModel", nil, GameTooltipModel);
GameTooltipModel.Model = GameTooltipModelModel
GameTooltipModelModel:SetPoint("TOPLEFT", GameTooltipModel, "TOPLEFT", 4, -4)
GameTooltipModelModel:SetPoint("BOTTOMRIGHT", GameTooltipModel, "BOTTOMRIGHT", -4, 4)
GameTooltipModelModel:SetFacing(MODELFRAME_DEFAULT_ROTATION);
GameTooltipModelModel:SetScript("OnUpdate", function(self, elapsed)
	self:SetFacing(self:GetFacing() + elapsed);
end);
GameTooltipModelModel:Hide();

local MAX_CREATURES_PER_ENCOUNTER, Models = 9, {};
for i=1,MAX_CREATURES_PER_ENCOUNTER do
	---@class ATTGameTooltipModel: PlayerModel
	model = CreateFrame("PlayerModel", "ATTGameTooltipModel" .. i, GameTooltipModel);
	model:SetPoint("TOPLEFT", GameTooltipModel, "TOPLEFT", 4, -4);
	model:SetPoint("BOTTOMRIGHT", GameTooltipModel, "BOTTOMRIGHT", -4, 4);
	model:SetCamDistanceScale(1.7);
	model:SetDisplayInfo(987);
	model:SetFacing(MODELFRAME_DEFAULT_ROTATION);
	fi = math_floor(i / 2);
	model:SetPosition(fi * -0.1, (fi * (i % 2 == 0 and -1 or 1)) * ((MAX_CREATURES_PER_ENCOUNTER - i) * 0.1), fi * 0.2 - 0.3);
	---@diagnostic disable-next-line: undefined-field
	if model.SetDepth then
		---@diagnostic disable-next-line: undefined-field
		model:SetDepth(i);
	end
	model:Hide();
	Models[#Models + 1] = model
end
local function CalculateModelRotation(number)
	return number and ((number * pi) / 180) or MODELFRAME_DEFAULT_ROTATION;
end
local function GetCreatureID(reference)
	local creatureID = reference.npcID or (reference.qgs and reference.qgs[1]);
	if creatureID then return creatureID; end

	if reference.providers then
		for k,v in pairs(reference.providers) do
			-- if one of the providers is an NPC, we should show its texture regardless of other providers
			if v[1] == "n" then
				return v[2];
			end
		end
	end
end
local function SetReferenceTexture(reference)
	local texture = reference.preview or reference.icon;
	if not texture then return end

	GameTooltipIcon:SetSize(72,72);
	GameTooltipIcon.icon:SetTexture(texture);
	local texcoord = reference.texcoord;
	if texcoord then
		GameTooltipIcon.icon:SetTexCoord(texcoord[1], texcoord[2], texcoord[3], texcoord[4]);
	else
		GameTooltipIcon.icon:SetTexCoord(0, 1, 0, 1);
	end
	GameTooltipIcon:Show();
	return true;
end
local function TrySetDisplayInfos(reference)
	local displayInfos = reference.displayInfo
	if not displayInfos then return end

	local count = #displayInfos;
	if count < 1 then return end

	-- we will consider displayInfos as always correctly populated
	local rotation = CalculateModelRotation(reference.modelRotation);
	local scale = reference.modelScale or 1;
	if count > 1 then
		count = math.min(count, MAX_CREATURES_PER_ENCOUNTER);
		if count < 3 then
			for i=1,count do
				model = Models[i];
				model:SetDisplayInfo(displayInfos[i]);
				model:SetCamDistanceScale(scale);
				model:SetFacing(rotation);
				model:SetPosition(0, (i % 2 == 0 and 0.5 or -0.5), 0);
				model:Show();
			end
		else
			local ratio = count / MAX_CREATURES_PER_ENCOUNTER;
			scale = (1 + (ratio * 0.5)) * scale;
			for i=1,count do
				model = Models[i];
				model:SetDisplayInfo(displayInfos[i]);
				model:SetCamDistanceScale(scale);
				model:SetFacing(rotation);
				fi = math_floor(i / 2);
				model:SetPosition(fi * -0.1, (fi * (i % 2 == 0 and -1 or 1)) * ((MAX_CREATURES_PER_ENCOUNTER - i) * 0.1), fi * 0.2 - (ratio * 0.15));
				model:Show();
			end
		end
	else
		GameTooltipModelModel:SetFacing(rotation);
		GameTooltipModelModel:SetCamDistanceScale(scale);
		GameTooltipModelModel:SetDisplayInfo(displayInfos[1]);
		GameTooltipModelModel:Show();
	end
	GameTooltipModel:Show();
	return true;
end
local function TrySetSourceID(reference)
	if reference.sourceID then
		local sourceInfo = C_TransmogCollection_GetSourceInfo(reference.sourceID);
		-- can show rotating models for weapons (categoryID > 11)
		if sourceInfo and sourceInfo.visualID and (sourceInfo.categoryID or 0) > 11 then
			GameTooltipModelModel:SetCamDistanceScale(0.8);
			GameTooltipModelModel:SetItemAppearance(sourceInfo.visualID);
			GameTooltipModelModel:Show();
			GameTooltipModel:Show();
			return true;
		end
	end
end
local function TrySetRawModel(reference)
	local modelID = reference.model and tonumber(reference.model);
	if modelID and modelID > 0 then
		GameTooltipModelModel:SetFacing(CalculateModelRotation(reference.modelRotation));
		GameTooltipModelModel:SetCamDistanceScale(reference.modelScale or 1);
		GameTooltipModelModel:SetUnit("none");
		GameTooltipModelModel:SetModel(modelID);
		GameTooltipModelModel:Show();
		GameTooltipModel:Show();
		return true;
	end
end
local function TrySetCreature(reference)
	local creatureID = GetCreatureID(reference);
	if creatureID and creatureID > 0 then
		GameTooltipModelModel:SetFacing(CalculateModelRotation(reference.modelRotation));
		GameTooltipModelModel:SetCamDistanceScale(reference.modelScale or 1);
		GameTooltipModelModel:SetUnit("none");
		GameTooltipModelModel:SetCreature(creatureID);
		local displayID = GameTooltipModelModel:GetDisplayInfo();
		if displayID then
			GameTooltipModelModel:Show();
			GameTooltipModel:Show();
			return true;
		end
	end
end
local function TrySetDisplayID(reference)
	local displayID = app.GetDisplayID(reference)
	if displayID then
		GameTooltipModelModel:SetFacing(CalculateModelRotation(reference.modelRotation));
		GameTooltipModelModel:SetCamDistanceScale(reference.modelScale or 1);
		GameTooltipModelModel:SetUnit("none");
		GameTooltipModelModel:SetDisplayInfo(displayID);
		GameTooltipModelModel:Show();
		GameTooltipModel:Show();
		return true;
	end
end
local function TrySetUnit(reference)
	if reference.unit and not reference.icon then
		GameTooltipModelModel:SetFacing(CalculateModelRotation(reference.modelRotation));
		GameTooltipModelModel:SetCamDistanceScale(reference.modelScale or 1);
		GameTooltipModelModel:SetUnit(reference.unit);
		GameTooltipModelModel:Show();
		GameTooltipModel:Show();
		return true
	end
end
local function TrySetAtlas(reference)
	if reference.atlas then
		GameTooltipIcon:SetSize(64,64);
		GameTooltipIcon.icon:SetAtlas(reference.atlas);
		GameTooltipIcon:Show();
		if reference["atlas-background"] then
			GameTooltipIcon.icon.Background:SetAtlas(reference["atlas-background"]);
			GameTooltipIcon.icon.Background:Show();
		end
		if reference["atlas-border"] then
			GameTooltipIcon.icon.Border:SetAtlas(reference["atlas-border"]);
			GameTooltipIcon.icon.Border:Show();
			if reference["atlas-color"] then
				local swatches = reference["atlas-color"];
				GameTooltipIcon.icon.Border:SetVertexColor(swatches[1], swatches[2], swatches[3], swatches[4] or 1.0);
			else
				GameTooltipIcon.icon.Border:SetVertexColor(1, 1, 1, 1.0);
			end
		end
		return true;
	end
end

-- Represents a sequence of prioritized functions for attempting to define a GameTooltipModelModel based on a given 'reference'
local ModelAssignmentFunctions
ModelAssignmentFunctions = {
	Add = function(func)
		ModelAssignmentFunctions[#ModelAssignmentFunctions + 1] = func
	end
}

ModelAssignmentFunctions.Add(TrySetDisplayInfos)
ModelAssignmentFunctions.Add(TrySetRawModel)
-- Using DisplayID directly seems completely broken pre-MOP, so instead we have to set the creature itself
if app.GameBuildVersion >= 50000 then
	ModelAssignmentFunctions.Add(TrySetDisplayID)
else
	ModelAssignmentFunctions.Add(TrySetCreature)
end
ModelAssignmentFunctions.Add(TrySetSourceID)
ModelAssignmentFunctions.Add(TrySetUnit)
ModelAssignmentFunctions.Add(TrySetAtlas)

local function HideAllModels()
	for i=1,#Models do
		Models[i]:Hide();
	end
	GameTooltipModelModel:Hide();
end
local function TrySetModel(reference)
	HideAllModels();
	if not app.Settings:GetTooltipSetting("Models") then return end

	for i=1,#ModelAssignmentFunctions do
		if ModelAssignmentFunctions[i](reference) then return true end
	end
end
GameTooltipModel:Hide();

GameTooltip.ClearATTReferenceTexture = function()
	GameTooltipIcon.icon.Background:Hide();
	GameTooltipIcon.icon.Border:Hide();
	GameTooltipIcon:Hide();
	GameTooltipModel:Hide();
end

GameTooltip.SetATTReferenceForTexture = function(self, reference)
	if TrySetModel(reference) or SetReferenceTexture(reference) then
		GameTooltipIcon:ClearAllPoints();
		GameTooltipModel:ClearAllPoints();
		if GameTooltip:GetAnchorType() == "ANCHOR_LEFT" then
			GameTooltipIcon:SetPoint("TOPRIGHT", GameTooltip, "TOPLEFT", 0, 0);
			GameTooltipModel:SetPoint("TOPRIGHT", GameTooltip, "TOPLEFT", 0, 0);
		else
			GameTooltipIcon:SetPoint("TOPLEFT", GameTooltip, "TOPRIGHT", 0, 0);
			GameTooltipModel:SetPoint("TOPLEFT", GameTooltip, "TOPRIGHT", 0, 0);
		end
	end
end
