test

local xml = '<C><P /><Z><S><S L="800" o="6a7495" H="28" X="401" Y="390" T="12" P="0,0,0.3,0.2,0,0,0,0" /></S><D><DS Y="366" X="405" /></D><O /></Z></C>'
local positions = {
    -- X1, X2(detect) X, Y (arrow)
    {34, 172, 86, 280, "Racing"},
    {233, 360, 281, 280, "Bootcamp"},
    {425, 550, 471, 280, "Deathmatch"},
    {614, 735, 661, 280, "Random"},

    {173, 220},
    {361, 420},
    {551, 610},
}
local mice = {}
local score = {0, 0, 0, 0}
local countdown = 7
local choosed = false

function main()
    tfm.exec.disableAutoShaman(true)
    tfm.exec.disableAutoNewGame(true)
    tfm.exec.disableAfkDeath(true)
    tfm.exec.newGame(xml)

    ui.addTextArea(1, "\n\n<font size='30'><p align='center'>Racing</p></font>", nil, 32, 170, 140, 100, 0x324650, 0x000000, 1, true)
    ui.addTextArea(2, "\n\n<font size='27'><p align='center'>Bootcamp</p></font>", nil, 224, 170, 140, 100, 0x324650, 0x000000, 1, true)
    ui.addTextArea(3, "\n<font size='30'><p align='center'>Deathmatch</p></font>", nil, 416, 170, 140, 100, 0x324650, 0x000000, 1, true)
    ui.addTextArea(4, "\n\n<font size='30'><p align='center'>Random</p></font>", nil, 608, 170, 140, 100, 0x324650, 0x000000, 1, true)
    ui.addTextArea(5, "<font size='30' face='Segoe Script'>¡Escoge un modo de juego!</font>", nil, 197, 34, 594, 78, 0x324650, 0x000000, 0, true)
    ui.addTextArea(6, "<font size='30' face='Segoe Script' color='#000000'>" .. countdown .. "</font>", nil, 363, 82, 42, 42, 0x324650, 0x000000, 0, true)
    ui.addTextArea(11, "<font size='30'>0</font>", nil, 75, 119, 57, 43, 0x324650, 0x000000, 0, true)
    ui.addTextArea(12, "<font size='30'>0</font>", nil, 275, 119, 57, 43, 0x324650, 0x000000, 0, true)
    ui.addTextArea(13, "<font size='30'>0</font>", nil, 475, 119, 57, 43, 0x324650, 0x000000, 0, true)
    ui.addTextArea(14, "<font size='30'>0</font>", nil, 675, 119, 57, 43, 0x324650, 0x000000, 0, true)
    table.foreach(tfm.get.room.playerList, eventNewPlayer)
end

function eventNewPlayer(name)
    if not mice[name] then
        mice[name] = {
            vote = 0
        }
    end
end

function eventLoop()
    countdown = countdown - 0.5
    if not choosed then
        for name, player in pairs(tfm.get.room.playerList) do
            for i = 1, #positions do
                if player.x >= positions[i][1] and player.x <= positions[i][2] then
                    if i <= 4 then
                        mice[name].vote = i
                        ui.addTextArea(10, "<font size='30'>↑</font>", name, positions[i][3], positions[i][4], 23, 53, 0x324650, 0x000000, 0, true)
                        ui.updateTextArea(1 .. i, "<font size='30'>".. getVotes(i) .. "</font>", name)
                    else
                        mice[name].vote = 0
                        ui.removeTextArea(10, name)
                        for a = 1, 4 do
                            ui.updateTextArea(1 .. a, "<font size='30'>".. getVotes(a) .. "</font>", name)
                        end
                    end
                end
            end
        end
    end
    if countdown <= 0 then
        ui.removeTextArea(6, nil)
        score = {0, 0, 0, 0}
        for name, mice in pairs(mice) do
            if mice.vote ~= 0 then
                score[mice.vote] = score[mice.vote] + 1
            end
        end
        getModeWinner()
        choosed = true
        countdown = 5000
    end
    ui.updateTextArea(6, "<font size='30' color='#000000'>".. countdown.. "</font>", nil)
end

function getVotes(mode)
    local i = 0
    for name,_ in pairs(tfm.get.room.playerList) do
        if mice[name].vote == mode then
            i = i + 1
        end
    end
    return i;
end

function max(t, fn)
    local i = 0
    for a = 1, #t do
        if t[a] > 0 then
            i = i + 1
        end
    end
    if i > 0 then
        if #t == 0 then return nil, nil end
        local key, value = 1, t[1]
        for i = 2, #t do
            if fn(value, t[i]) then
                key, value = i, t[i]
            end
        end
        return key, value
    end
    return 4
end

function getModeWinner()
    local mode = max(score, function(a,b) return a < b end)
    print(positions[mode][5])
end

main()