--
-- dxscoreboard_rt.lua
--
-- Scoreboard render target support stuff
--

local rt
local lastUpdateTime = 0
local savedRowsNext = {}
local savedRows = {}
local cursorCache = {}

-- Adjust cursor position if using rt

local function getCursorScoreboardPosition(rtPass)
	if #cursorCache == 0 then
		local cX, cY = getCursorPosition()
		local sX, sY = SCREEN_X, SCREEN_Y

		cX, cY = cX * sX, cY * sY

		if rtPass then
			local x, y = scoreboardGetTopCornerPosition()

			cX, cY = cX - x, cY - y
		end

		cursorCache = {cX, cY}
	end

	return cursorCache[1], cursorCache[2]
end

-- drawScoreboard
-- Do things depending on things

function drawScoreboard()
	cursorCache = {}

	if #savedRowsNext > 0 then
		savedRows = savedRowsNext
		savedRowsNext = {}
	end

	if not scoreboardDrawn then
		doDrawScoreboard ( false--[[rtPass]], true--[[onlyAnim]], SCREEN_X, SCREEN_Y )
		bForceUpdate = true
		return
	end

	-- Update once every 1000ms

	local bUpdate = false
	if getTickCount() - lastUpdateTime > 1000 or bForceUpdate then
		bUpdate = true
		bForceUpdate = false
		lastUpdateTime = getTickCount()
	end

	-- Determine if new rt is needed

	local sX, sY = getRequiredRtSize()
	if rt then
		local rX, rY = dxGetMaterialSize( rt )
		if sX ~= rX or sY ~= rY then
			destroyElement( rt )
			rt = nil
		end
	end

	-- Try to create rt if needed

	if not rt then
		rt = dxCreateRenderTarget( sX, sY, true )
		bUpdate = true
	end

	-- No rt then use standard drawing (hold num_9 to test)

	if not rt or getKeyState("num_9") then
		doDrawScoreboard ( false --[[rtPass]], false --[[onlyAnim]], SCREEN_X, SCREEN_Y )
		return
	end

	-- See if highlighted row will change

	local newRowIdx = getCursorOverRow(true)
	if newRowIdx ~= lastRowIdx then
		lastRowIdx = newRowIdx
		bUpdate = true -- -- Force rt update if highlighted row will change
	end

	-- Draw background to screen

	doDrawScoreboard ( true --[[rtPass]], true --[[onlyAnim]], SCREEN_X, SCREEN_Y )

	-- Update to rt

	if bUpdate then
		dxSetRenderTarget ( rt, true )

		-- Save drawOverGUI settings

		local drawOverGUISaved = drawOverGUI
		drawOverGUI = false

		-- Draw all text to rt

		dxSetBlendMode( "modulate_add" )
		doDrawScoreboard ( true --[[rtPass]], false --[[onlyAnim]], sX, sY )
		dxSetBlendMode( "blend" )

		-- Restore drawOverGUI settings

		drawOverGUI = drawOverGUISaved

		dxSetRenderTarget ()
	end

	-- If no text drawn then we are done

	if not scoreboardDrawn then
		return
	end

	-- Draw rt to the screen

	local x, y = scoreboardGetTopCornerPosition()
	dxSetBlendMode( "add" )
	dxDrawImage( x, y, sX, sY, rt, 0, 0, 0, cWhite, drawOverGUI )
	dxSetBlendMode( "blend" )
end

-- Calc required render target size
-- Includes extra 15 pixels top and bottom for the scroll buttons

function getRequiredRtSize()
	local sX, sY = calculateWidth(), calculateHeight()

	if not sX then
		sX, sY = SCREEN_X, SCREEN_Y
	else
		sY = sY + 30
	end

	return math.floor(sX), math.floor(sY)
end

-- Return true is cursor is inside bounds
-- Also saves row data to check if highlighted row is changing between rt updates

function checkCursorOverRow(rtPass, xl,xh,yl,yh)
	if not isCursorShowing() then
		return false
	end

	local cX, cY = getCursorScoreboardPosition(rtPass)
	local cursorOverRow = cX >= xl and cX <= xh and cY >= yl and cY <= yh

	savedRowsNext[#savedRowsNext + 1] = {xl, xh, yl, yh}

	return cursorOverRow
end

-- Return index of the row the cursor is hovering over

function getCursorOverRow(rtPass)
	if not isCursorShowing() then
		return false
	end

	local cX, cY = getCursorScoreboardPosition(rtPass)
	
	for idx = 1, #savedRows do
		local row = savedRows[idx]

		if cX >= row[1] and cX <= row[2] and cY >= row[3] and cY <= row[4] then
			return idx
		end
	end

	return false
end

--------------------------------------------------------------------
--
-- Fake player data for debugging scoreboard
-- Set bAddFakePlayers to true to create some test data
--
--------------------------------------------------------------------

local bAddFakePlayers = false

if not bAddFakePlayers then
	return false
end

local numberOfTeams = 4
local numberOfPlayersPerTeam = 6

_getElementsByType = getElementsByType
function getElementsByType(type)
	local results = _getElementsByType( type )
	if ( type == "player" ) then
		results = {}
		for t=1,numberOfTeams do
			for p=1,numberOfPlayersPerTeam do
				results[#results + 1] = string.format( "player %d %d", t, p )
			end
		end
	elseif ( type == "team" ) then
		results = {}
		for t=1,numberOfTeams do
			results[#results + 1] = string.format( "team %d", t )
		end
	end
	return results
end

_getLocalPlayer = getLocalPlayer
function getLocalPlayer(type)
	return nil
end

_getPlayerTeam = getPlayerTeam
function getPlayerTeam(player)
	return nil
end

_getPlayerName = getPlayerName
function getPlayerName(player)
	return tostring(player)
end

_getPlayerPing = getPlayerPing
function getPlayerPing(player)
	return math.random(10,100)
end

_getElementData = getElementData
function getElementData(player, name)
	return _getElementData(localPlayer, name)
end

_isElement = isElement
function isElement(elem)
	return _isElement(elem) or type(elem) == "string"
end

_getElementType = getElementType
function getElementType(elem)
	if ( type(elem) == "string" ) then
		local parts = split( elem, string.byte(' ') )
		if parts[1] == "player" then
			return "player"
		elseif parts[1] == "team" then
			return "team"
		end
	end
	return _getElementType(elem)
end

_getPlayerNametagColor = getPlayerNametagColor
function getPlayerNametagColor(plr)
	if ( type(plr) == "string" ) then
		local parts = split( plr, string.byte(' ') )
		if parts[2] == "1" then
			return 255,0,0,255
		elseif parts[2] == "2" then
			return 0,255,0,255
		elseif parts[2] == "3" then
			return 0,0,255,255
		else
			return 255,0,255,255
		end
	end
	return _getPlayerNametagColor(plr)
end

_getTeamColor = getTeamColor
function getTeamColor(team)
	if ( type(team) == "string" ) then
		local parts = split( team, string.byte(' ') )
		if parts[2] == "1" then
			return 255,90,90,255
		elseif parts[2] == "2" then
			return 90,255,90,255
		elseif parts[2] == "3" then
			return 90,90,255,255
		else
			return 255,90,255,255
		end
	end
	return _getTeamColor(team)
end

_getTeamName = getTeamName
function getTeamName(team)
	return tostring(team)
end

_getPlayersInTeam = getPlayersInTeam
function getPlayersInTeam(team)
	if ( type(team) == "string" ) then
		local parts = split( team, string.byte(' ') )
		results = {}
		local t=tonumber(parts[2])
			for p=1,numberOfPlayersPerTeam do
				results[#results + 1] = string.format( "player %d %d", t, p )
			end
		return results
	end
	return _getPlayersInTeam(team)
end