EID = RegisterMod("External Item Descriptions", 1)
local itemConfig = Isaac.GetItemConfig()

local lineHeight = 11
local isDisplayingText = false
local lastDescriptionEntity = nil
local hideDescToggle = false
EID.sacrificeCounter = 1

local IconSprite = Sprite()
IconSprite:Load("gfx/icons.anm2", true)

local ArrowSprite = Sprite()
ArrowSprite:Load("gfx/icons.anm2", true)
ArrowSprite:Play("Arrow", false)

local CardSprite = Sprite()
CardSprite:Load("gfx/cardfronts.anm2", true)

require("eid_config")
require("mod_config_menu")
require("descriptions.ab+." .. EIDConfig["Language"])
require("eid_api")

--use some very hacky trickery to get the path to this mod
local _, err = pcall(require, "")
local _, basePathStart = string.find(err, "no file '", 1)
local _, modPathStart = string.find(err, "no file '", basePathStart)
local modPathEnd, _ = string.find(err, ".lua'", modPathStart)
local modPath = string.sub(err, modPathStart + 1, modPathEnd - 1)
modPath = string.gsub(modPath, "\\", "/")
modPath = string.gsub(modPath, ":/", ":\\")

EID.font = Font() -- init font object
EID.font:Load(modPath .. "resources/font/default.fnt") -- load a font into the font object
EID.font:SetMissingCharacter(2)
if not EID.font:IsLoaded() then
	Isaac.DebugString("EID - ERROR: Could not load font from '" .. modPath .. "resources/font/default.fnt" .. "'")
end

--Makes textscale smaller, when using detailed english descriptions
if EIDConfig["Language"] == "en_us_detailed" and EIDConfig["Scale"] > 0.5 then
	EIDConfig["Scale"] = 0.5
end

---------------------------------------------------------------------------
-------------------------Handle Sacrifice Room-----------------------------
if EIDConfig["DisplaySacrificeInfo"] then
	function onNewFloor()
		EID.sacrificeCounter = 1
	end
	EID:AddCallback(ModCallbacks.MC_POST_NEW_LEVEL, onNewFloor)

	function onDamage(_, entity, _, flag, source)
		if Game():GetRoom():GetType() == RoomType.ROOM_SACRIFICE and source.Type == 0 and flag == DamageFlag.DAMAGE_SPIKES then
			if EID.sacrificeCounter < 12 then
				EID.sacrificeCounter = EID.sacrificeCounter + 1
			end
		end
	end
	EID:AddCallback(ModCallbacks.MC_ENTITY_TAKE_DMG, onDamage, EntityType.ENTITY_PLAYER)
end

---------------------------------------------------------------------------
---------------------------Printing Functions------------------------------
local itemTypes = {"null", "passive", "active", "familiar", "trinket"}
local modifiedPosY = false -- When the player has the schoolbag it changes
local function posY()
	return modifiedPosY ~= false and modifiedPosY or EIDConfig["YPosition"]
end

function printDescription(desc)
	local Description = desc[3]
	local padding = posY()
	local itemType = itemConfig:GetCollectible(desc[1]).Type

	--Display ItemType / Charge
	if EIDConfig["ShowItemType"] and (itemType == 3 or itemType == 4) then
		local offsetY = 2 * EIDConfig["Scale"]
		if EIDConfig["Scale"] < 1 then
			offsetY = -1
		end
		IconSprite:Play(itemTypes[itemType])
		IconSprite.Scale = Vector(EIDConfig["Scale"], EIDConfig["Scale"])
		IconSprite:Update()
		IconSprite:Render(
			Vector(EIDConfig["XPosition"] - 3 * EIDConfig["Scale"], padding + offsetY),
			Vector(0, 0),
			Vector(0, 0)
		)
		if itemType == 3 then -- Display Charge
			IconSprite:Play(itemConfig:GetCollectible(desc[1]).MaxCharges)
			IconSprite:Update()
			IconSprite:Render(
				Vector(EIDConfig["XPosition"] - 3 * EIDConfig["Scale"], padding + offsetY),
				Vector(0, 0),
				Vector(0, 0)
			)
		end
		if not EIDConfig["ShowItemName"] then
			padding = padding + lineHeight * EIDConfig["Scale"]
		end
	end
	--Display Itemname
	if EIDConfig["ShowItemName"] then
		local offset = 0
		if EIDConfig["ShowItemType"] then
			if itemType == 3 then
				offset = 9
			else
				offset = 6
			end
		end
		EID:renderString(
			itemConfig:GetCollectible(desc[1]).Name,
			Vector(EIDConfig["XPosition"] + offset * EIDConfig["Scale"], padding - 4),
			Vector(EIDConfig["Scale"], EIDConfig["Scale"]),
			EID:getNameColor(),
			false
		)

		padding = padding + lineHeight * EIDConfig["Scale"]
	end

	--Display Transformation
	if not (desc[2] == "0" or desc[2] == "" or desc[2] == nil) then
		if EIDConfig["TransformationText"] then
			local transformationText = ""
			if not (EID:getTransformation(desc[2]) == "Custom") then
				transformationText = EID:getTransformation(desc[2])
			elseif not (transformations[desc[2]]) then --Custom transformationname
				transformationText = desc[2]
			else
				transformationText = EID:getTransformation(desc[2])
			end
			EID:renderString(
				transformationText,
				Vector(EIDConfig["XPosition"] + 16 * EIDConfig["Scale"], padding - 1),
				Vector(EIDConfig["Scale"], EIDConfig["Scale"]),
				EID:getTransformationColor(),
				false
			)
		end
		if EIDConfig["TransformationIcons"] and not (EID:getTransformation(desc[2]) == "Custom") then
			IconSprite:Play("Transformation" .. desc[2])
			IconSprite.Scale = Vector(EIDConfig["Scale"], EIDConfig["Scale"])
			IconSprite:Update()
			IconSprite:Render(
				Vector(EIDConfig["XPosition"] + 5 * EIDConfig["Scale"], padding + 5 * EIDConfig["Scale"]),
				Vector(0, 0),
				Vector(0, 0)
			)
		end
		if (EIDConfig["TransformationIcons"] or EIDConfig["TransformationText"]) then
			padding = padding + lineHeight * EIDConfig["Scale"]
		end
	end
	printBulletPoints(Description, padding)
end

function printTrinketDescription(desc, typ)
	local Description = desc[2]
	local padding = posY()
	--Display Itemname
	if EIDConfig["ShowItemName"] then
		local name = ""
		if typ == "trinket" then
			name = itemConfig:GetTrinket(desc[1]).Name
		elseif typ == "card" then
			name = itemConfig:GetCard(desc[1]).Name
		elseif typ == "pill" then
			name = itemConfig:GetPillEffect(desc[1]).Name
		elseif typ == "sacrifice" then
			name = sacrificeDescriptionHeader
		elseif typ == "dice" then
			name = diceDescriptionHeader
		elseif typ == "custom" then
			name = desc[2][1]
			Description = desc[2][2]
		end
		EID:renderString(
			name,
			Vector(EIDConfig["XPosition"], padding),
			Vector(EIDConfig["Scale"], EIDConfig["Scale"]),
			EID:getNameColor(),
			false
		)

		padding = padding + lineHeight * EIDConfig["Scale"]
	end
	printBulletPoints(Description, padding)
end

function printBulletPoints(description, padding)
	local textboxWidth = tonumber(EIDConfig["TextboxWidth"])
	for line in string.gmatch(description, "([^#]+)") do
		local array = {}
		local text = ""
		for word in string.gmatch(line, "([^ ]+)") do
			if string.len(text) + string.len(word) <= textboxWidth then
				text = text .. " " .. word
			else
				table.insert(array, text)
				text = word
			end
		end
		table.insert(array, text)
		local textColor = EID:getTextColor()
		for i, v in ipairs(array) do
			local posX = EIDConfig["XPosition"]
			local bpIcon = "  " -- no bulletpoint
			if i == 1 then
				bpIcon = EID:getBulletpointIcon(v)
				if string.find(bpIcon, "\007") == nil then
					v = string.sub(v, 3 + #bpIcon)
					posX = posX - 2 -- Move a bit to the left, to center icons
				end
			end
			EID:renderString(
				bpIcon .. EID:replaceMarkupStrings(v),
				Vector(posX, padding),
				Vector(EIDConfig["Scale"], EIDConfig["Scale"]),
				textColor,
				false
			)
			padding = padding + lineHeight * EIDConfig["Scale"]
		end
	end
end

---------------------------------------------------------------------------
---------------------------Handle Rendering--------------------------------
function HasCurseBlind()
	local num = Game():GetLevel():GetCurses()
	local t = {}
	while num > 0 do
		rest = num % 2
		t[#t + 1] = rest
		num = (num - rest) / 2
	end

	return #t > 6 and t[7] == 1
end

function renderQuestionMark()
	IconSprite:Play("CurseOfBlind")
	IconSprite.Scale = Vector(EIDConfig["Scale"], EIDConfig["Scale"])
	IconSprite:Update()
	IconSprite:Render(
		Vector(EIDConfig["XPosition"] + 5 * EIDConfig["Scale"], posY() + 5 * EIDConfig["Scale"]),
		Vector(0, 0),
		Vector(0, 0)
	)
	if Isaac.GetPlayer(0):HasCollectible(CollectibleType.COLLECTIBLE_SCHOOLBAG) then
		modifiedPosY = EIDConfig["YPosition"] - 30
	end
end

function renderIndicator(entity)
	if EIDConfig["Indicator"] == "blink" then
		local c = 255 - math.floor(255 * ((entity.FrameCount % 40) / 40))
		entity:SetColor(Color(1, 1, 1, 1, c, c, c), 1, 1, false, false)
		entity:Render(Vector(0, 0))
		entity:SetColor(Color(1, 1, 1, 1, 0, 0, 0), 2, 1, false, false)
	elseif EIDConfig["Indicator"] == "border" then
		local c = 255 - math.floor(255 * ((entity.FrameCount % 40) / 40))
		entity:SetColor(Color(1, 1, 1, 1, c, c, c), 1, 1, false, false)
		entity:Render(Vector(0, 1))
		entity:Render(Vector(0, -1))
		entity:Render(Vector(1, 0))
		entity:Render(Vector(-1, 0))
		entity:SetColor(Color(1, 1, 1, 1, 0, 0, 0), 2, 1, false, false)
		entity:Render(Vector(0, 0))
	elseif EIDConfig["Indicator"] == "highlight" then
		entity:SetColor(Color(1, 1, 1, 1, 255, 255, 255), 1, 1, false, false)
		entity:Render(Vector(0, 1))
		entity:Render(Vector(0, -1))
		entity:Render(Vector(1, 0))
		entity:Render(Vector(-1, 0))
		entity:SetColor(Color(1, 1, 1, 1, 0, 0, 0), 2, 1, false, false)
		entity:Render(Vector(0, 0))
	elseif EIDConfig["Indicator"] == "arrow" then
		ArrowSprite:Update()
		local ArrowOffset = Vector(0, -35)
		if entity.Variant == 100 and not entity:ToPickup():IsShopItem() then
			ArrowOffset = Vector(0, -62)
		end
		ArrowSprite:Render(Game():GetRoom():WorldToScreenPosition(entity.Position + ArrowOffset), Vector(0, 0), Vector(0, 0))
	end
end

---------------------------------------------------------------------------
---------------------------On Render Function------------------------------

local function onRender(t)
	isDisplayingText = false
	local player = Isaac.GetPlayer(0)
	local closest = nil
	local closestDice = nil
	local dist = 10000
	if Input.IsButtonTriggered(EIDConfig["HideKey"], 0) then
		hideDescToggle = not hideDescToggle
	end
	if hideDescToggle then
		return
	end

	for i, entity in ipairs(Isaac.GetRoomEntities()) do
		if Game():GetRoom():GetType() == RoomType.ROOM_DICE and entity.Type == 1000 and entity.Variant == 76 then
			closestDice = entity
		end

		if EID:hasDescription(entity) then
			local diff = entity.Position:__sub(player.Position)
			if diff:Length() < dist then
				closest = entity
				dist = diff:Length()
			end
		end
	end

	if dist / 40 > tonumber(EIDConfig["MaxDistance"]) or not closest.Type == EntityType.ENTITY_PICKUP then
		if Game():GetRoom():GetType() == RoomType.ROOM_SACRIFICE and EIDConfig["DisplaySacrificeInfo"] then
			printTrinketDescription(sacrificeDescriptions[EID.sacrificeCounter], "sacrifice")
		end
		if
			Game():GetRoom():GetType() == RoomType.ROOM_DICE and EIDConfig["DisplayDiceInfo"] and type(closestDice) ~= type(nil)
		 then
			printTrinketDescription(diceDescriptions[closestDice.SubType + 1], "dice")
			renderIndicator(closestDice)
		end
		return
	end

	if closest == nil then
		return
	end
	lastDescriptionEntity = closest
	isDisplayingText = true

	--Handle Indicators
	renderIndicator(closest)

	--Handle Entities (specific)
	if EIDConfig["EnableEntityDescriptions"] and type(closest:GetData()["EID_Description"]) ~= type(nil) then
		printTrinketDescription({closest.Type, closest:GetData()["EID_Description"]}, "custom")
		return
	end

	--Handle Entities (omni)
	if
		EIDConfig["EnableEntityDescriptions"] and
			__eidEntityDescriptions[closest.Type .. "." .. closest.Variant .. "." .. closest.SubType] ~= nil
	 then
		printTrinketDescription(
			{
				closest.Type,
				EID:getModDescription(__eidEntityDescriptions, closest.Type .. "." .. closest.Variant .. "." .. closest.SubType)
			},
			"custom"
		)
		return
	end

	--Handle Trinkets
	if closest.Variant == PickupVariant.PICKUP_TRINKET then
		--Handle Collectibles
		if closest.SubType <= 128 then
			printTrinketDescription(trinketdescriptions[closest.SubType], "trinket")
		elseif EID:getModDescription(__eidTrinketDescriptions, closest.SubType) then
			printTrinketDescription(
				{closest.SubType, EID:getModDescription(__eidTrinketDescriptions, closest.SubType)},
				"trinket"
			)
		else
			printTrinketDescription({closest.SubType, itemConfig:GetTrinket(closest.SubType).Description})
		end
	elseif closest.Variant == PickupVariant.PICKUP_COLLECTIBLE then
		--Handle Cards & Runes
		if HasCurseBlind() and EIDConfig["DisableOnCurse"] then
			renderQuestionMark()
			return
		end
		if EID:getModDescription(__eidItemDescriptions, closest.SubType) then
			local tranformation = "0"
			if EID:getModDescription(__eidItemTransformations, closest.SubType) then
				tranformation = EID:getModDescription(__eidItemTransformations, closest.SubType)
			end
			printDescription({closest.SubType, tranformation, EID:getModDescription(__eidItemDescriptions, closest.SubType)})
		elseif closest.SubType <= 552 then
			if EID:getModDescription(__eidItemTransformations, closest.SubType) then
				printDescription(
					{
						closest.SubType,
						EID:getModDescription(__eidItemTransformations, closest.SubType),
						descriptarray[closest.SubType][3]
					}
				)
			else
				printDescription(descriptarray[closest.SubType])
			end
		else
			printDescription({closest.SubType, "", itemConfig:GetCollectible(closest.SubType).Description})
		end
	elseif closest.Variant == PickupVariant.PICKUP_TAROTCARD then
		--Handle Pills
		if closest:ToPickup():IsShopItem() and not EIDConfig["DisplayCardInfoShop"] then
			renderQuestionMark()
			return
		end
		if EID:getModDescription(__eidCardDescriptions, closest.SubType) then
			printTrinketDescription({closest.SubType, EID:getModDescription(__eidCardDescriptions, closest.SubType)}, "card")
		elseif closest.SubType <= 54 then
			printTrinketDescription(cardDescriptions[closest.SubType], "card")
			CardSprite:Play(tostring(closest.SubType))
			CardSprite.Scale = Vector(EIDConfig["Scale"], EIDConfig["Scale"])
			CardSprite:Update()
			local offsetX = 0
			if EIDConfig["ShowItemName"] then
				offsetX = 10
			end
			CardSprite:Render(
				Vector(EIDConfig["XPosition"] - 9 * EIDConfig["Scale"], posY() + (12 + offsetX) * EIDConfig["Scale"]),
				Vector(0, 0),
				Vector(0, 0)
			)
		else
			printTrinketDescription({closest.SubType, itemConfig:GetCard(closest.SubType).Description})
		end
	elseif closest.Variant == PickupVariant.PICKUP_PILL then
		if closest:ToPickup():IsShopItem() and not EIDConfig["DisplayPillInfoShop"] then
			renderQuestionMark()
			return
		end

		local pillColor = closest.SubType
		local pool = Game():GetItemPool()
		local pillEffect = pool:GetPillEffect(pillColor)
		local identified = pool:IsPillIdentified(pillColor)
		if (identified or EIDConfig["ShowUnidentifiedPillDescriptions"]) then
			if EID:getModDescription(__eidPillDescriptions, pillEffect) then
				printTrinketDescription({pillEffect, EID:getModDescription(__eidPillDescriptions, pillEffect)}, "pill")
			elseif pillEffect < 47 then
				printTrinketDescription(pillDescriptions[pillEffect + 1], "pill")
			else
				EID:renderString(
					EIDConfig["ErrorMessage"],
					Vector(EIDConfig["XPosition"], posY()),
					Vector(EIDConfig["Scale"], EIDConfig["Scale"]),
					EID:getErrorColor(),
					false
				)
			end
		else
			EID:renderString(
				unidentifiedPillMessage,
				Vector(EIDConfig["XPosition"], posY()),
				Vector(EIDConfig["Scale"], EIDConfig["Scale"]),
				EID:getErrorColor(),
				false
			)
		end
		local pillsprite = closest:GetSprite()
		pillsprite.Scale = Vector(EIDConfig["Scale"] * 0.75, EIDConfig["Scale"] * 0.75)
		pillsprite:Update()
		local offsetX = 0
		if EIDConfig["ShowItemName"] and (identified or EIDConfig["ShowUnidentifiedPillDescriptions"]) then
			offsetX = 10
		end
		pillsprite:Render(
			Vector(EIDConfig["XPosition"] + 2 * EIDConfig["Scale"], posY() + (11 + offsetX) * EIDConfig["Scale"]),
			Vector(0, 0),
			Vector(0, 0)
		)
		pillsprite.Scale = Vector(1, 1)
	end
	if player:HasCollectible(CollectibleType.COLLECTIBLE_SCHOOLBAG) then
		modifiedPosY = EIDConfig["YPosition"] + 30
	end
end

EID:AddCallback(ModCallbacks.MC_POST_RENDER, onRender)

if ModConfigMenu then
	local json = require("json")
	--------------------------------
	--------Handle Savadata---------
	--------------------------------
	function OnGameStart(isSave)
		--Loading Moddata--
		if EID:HasData() then
			savedEIDConfig = json.decode(Isaac.LoadModData(EID))
			-- hardcode Language usage
			savedEIDConfig["Language"] = EIDConfig["Language"]
			-- Only copy Saved config entries that exist in the save
			for key, value in pairs(EIDConfig) do
				if savedEIDConfig[key] ~= nil then
					EIDConfig[key] = savedEIDConfig[key]
				end
			end
		end
	end
	EID:AddCallback(ModCallbacks.MC_POST_GAME_STARTED, OnGameStart)

	--Saving Moddata--
	function SaveGame()
		EID.SaveData(EID, json.encode(EIDConfig))
	end
	EID:AddCallback(ModCallbacks.MC_PRE_GAME_EXIT, SaveGame)
end

--require("eid_debugging")