Player Radar [AP]

-- Obligatory peripherals
local monitor = peripheral.find("monitor")
local detector = peripheral.find("player_detector")

-- Parameters
local centerPlayer = "Paramus200"
local maxX, maxY = 13000, 13000

--Variables
local playersData = {}
local selectedPlayer = ""

function GetPlayersData()
    playersData = {}

    local monitorWidth, monitorHeight = monitor.getSize()
    local playerList = detector.getOnlinePlayers()
    for i,name in ipairs(playerList) do

        local pos = detector.getPlayer(name)
        if (pos ~= nil) then
            local fixedX = math.floor((pos.x * (monitorWidth/maxX)) + (monitorWidth/2))
            local fixedZ = math.floor((pos.z * (monitorHeight/maxY))  + (monitorHeight/2))

            table.insert(playersData, {name = name, x = pos.x, y = pos.y, z = pos.z, fixedX = fixedX, fixedZ = fixedZ})
        end

    end
end

function PaintPlayers()

    local monitorWidth, monitorHeight = monitor.getSize()
    paintutils.drawPixel((monitorWidth/2), (monitorHeight/2), colors.blue)
    for i,player in ipairs(playersData) do

        local dotColor = colors.white
        if (player.name == centerPlayer) then
            dotColor = colors.red
        elseif (player.name == selectedPlayer) then
            dotColor = colors.yellow
        end

        paintutils.drawPixel(player.fixedX, player.fixedZ, dotColor)

        if (selectedPlayer == player.name) then
            -- Name
            term.setCursorPos(player.fixedX, player.fixedZ-1)
            paintutils.drawPixel(player.fixedX, player.fixedZ-1, colors.black)
            print(player.name)

            -- Position
            term.setCursorPos(player.fixedX+1, player.fixedZ)
            paintutils.drawPixel(player.fixedX+1, player.fixedZ, colors.black)
            print("(" .. player.x .. " / " .. player.y .. " / " .. player.z .. ")")
        end

    end
end

function SelectPlayer(x, y)
    for i,player in ipairs(playersData) do
        if (x == player.fixedX and y == player.fixedZ) then
            selectedPlayer = player.name
            return
        end
    end

    selectedPlayer = ""
end


term.redirect(monitor)
while (true) do
    parallel.waitForAny(
        function ()
            local event, side, x, y = os.pullEvent("monitor_touch")
            SelectPlayer(x, y)
        end,
        function ()
            GetPlayersData()
            term.setBackgroundColour(colors.black)
            term.setTextColor(colors.yellow)
            term.clear()
            PaintPlayers()
            sleep(1)
        end
    )
end