-- Synergie v1.0 (by Axiome#3619)

-- Settings

timePerGame = 200 -- (seconds)
canSkip = {}
canSkip["Axiome#3619"] = true

teamsList = {}
teamsList["Test"] = {"Axiome#3619", "Souris778#3456", "Souris779#3456"}
teamsList["Ennemis"] = {"Souris780#3456", "Souris781#3456"}

-- Teams init

playerToTeam = {}

for teamName, team in pairs(teamsList) do 
    team.points = 0
    team.curPlayer = 1
    for pid, player in ipairs(team) do 
        playerToTeam[player] = {name=teamName, pid=pid}
    end
end


-- User Interface

areaID = {}
areaID.infoBox = 1
areaID.ranking = 2

function updateInfoBox(playerName)
    local text = ""
    local playerTeam = playerToTeam[playerName]

    local color = 0xEDE91B -- yellow

    if playerToTeam[playerName] == nil then
        text = "<font face='Calibri' size='20' color='#000001'><p align='center'>Vous êtes spectateur</p></span>"
    elseif teamsList[playerTeam.name].curPlayer ~= playerTeam.pid then
        text = "<font face='Calibri' size='20' color='#000001'><p align='center'>Vous êtes en attente dans l'équipe " .. playerToTeam[playerName].name .. "</p></span>"
    else
        color = 0x1BED3B -- green
        text = "<font face='Calibri' size='20' color='#000001'><p align='center'>Vous jouez dans l'équipe " .. playerToTeam[playerName].name .. "</p></span>"
    end

    ui.addTextArea(areaID.infoBox, text, playerName, 30, 30, 700, 30, color, nil, 0.35, nil)
end

function cmpPoints(a, b)
    return teamsList[a].points > teamsList[b].points
end

function updateRanking()
    local teamsScores = {}
    for teamName, team in pairs(teamsList) do
        table.insert(teamsScores, teamName)
    end
    table.sort(teamsScores, cmpPoints)

    for playerName, infos in pairs(tfm.get.room.playerList) do
        if playerToTeam[playerName] == nil then
            tfm.exec.setPlayerScore(playerName, 0)
        end
    end

    local text = "<p>"
    local lineBreak = false
    for rank, teamName in ipairs(teamsScores) do

        if lineBreak then
            text = text .. "<br>"
        end
        lineBreak = true

        text = text..rank.." - "..teamName.." ("..teamsList[teamName].points..")"
        for _, playerName in ipairs(teamsList[teamName]) do
            tfm.exec.setPlayerScore(playerName, rank)
        end
    end
    text = text.."</p>"

    ui.addTextArea(areaID.ranking, text, playerName, -150, 10, 130)
end

-- Timers

timersIds = {}
timersIds.mapRotation = 1

timersList = {}

function addTimer(id, delay, callback, ...)
    timersList[id] = {triggerDate=os.time() + math.floor(delay*1000) - 50, callback=callback, args={...}}
end

function removeTimer(tid)
    if timersList[tid] then
        table.remove(timersList, tid)
    end
end

function eventLoop(currentTime, timeRemaining)
    local curTime = os.time()
    local toProcess = {}

    for tid, timer in pairs(timersList) do
        if timer and curTime >= timer.triggerDate then
            table.insert(toProcess, tid)
        end
    end

    for _, tid in pairs(toProcess) do
        local timer = timersList[tid]
        if timer then
            removeTimer(tid)
            timer.callback(table.unpack(timer.args))
        end
    end
end

-- Event handler

function eventPlayerDied(playerName)
    local info = playerToTeam[playerName]
    if info and info.pid == teamsList[info.name].curPlayer then
        teamNextPlayer(playerToTeam[playerName].name, false)
    end
end

function eventPlayerWon(playerName)
    local info = playerToTeam[playerName]
    if info and info.pid == teamsList[info.name].curPlayer then
        teamNextPlayer(playerToTeam[playerName].name, true)
    end
end

function eventNewPlayer(playerName)
    updateInfoBox(playerName)
    updateRanking()
    local info = playerToTeam[playerName]
    if info and info.pid == teamsList[info.name].curPlayer then
        tfm.exec.respawnPlayer(playerName)
    end
end

function eventChatCommand(playerName, message)
    if canSkip[playerName] and message == "skip" then
        mapRotation()
    end
end

-- Core

function teamNextPlayer(teamName, hasWon)
    local team = teamsList[teamName]

    if hasWon then
        team.points = team.points + 1
        updateRanking()
    end

    local oldPlayer = team[team.curPlayer]
    updateInfoBox(team[team.curPlayer])
    team.curPlayer = team.curPlayer + 1
    if team.curPlayer > #team then
        team.curPlayer = 1
    end

    updateInfoBox(oldPlayer)
    updateInfoBox(team[team.curPlayer])
    tfm.exec.killPlayer(oldPlayer)
    tfm.exec.respawnPlayer(team[team.curPlayer])
end

function mapRotation()
    removeTimer(timersIds.mapRotation)
    tfm.exec.newGame("#17")
    addTimer(timersIds.mapRotation, timePerGame, mapRotation)
    tfm.exec.setGameTime(timePerGame)

    for playerName, _ in pairs(tfm.get.room.playerList) do
        local info = playerToTeam[playerName]
        if info == nil or info.pid ~= teamsList[info.name].curPlayer then
            tfm.exec.killPlayer(playerName)
        end
    end
end

tfm.exec.disableAfkDeath()
tfm.exec.disableAutoNewGame()
tfm.exec.disableAutoTimeLeft()
tfm.exec.disableAutoScore()

addTimer(timersIds.mapRotation, 1, mapRotation)
for playerName, _ in pairs(tfm.get.room.playerList) do
    updateInfoBox(playerName)
end
updateRanking()