Updated [06/07/2016]

--[[
/!\ This version hasn't tested with a lot of mice in a room yet. So there could be bugs.
beta version 1.3
Last update: 06/07/2016
To-do list:
    • Rsrrambler won! WITH 0 POINTS! WTF? (Should be fixed after reorganizing)
    • Profiles (http://i.imgur.com/Zakdatu.png)
ChangeLog:
    Beta version 1.1:
        • arrows aren't speed up [fixed];
    Beta version 1.2
        • Wave 4 error [fixed];
        • Messages bug [fixed].
    Beta version 1.3
        • Code has been reorganized.]]

tfm.exec.disableAutoNewGame(true)
tfm.exec.disableAutoShaman(true)
tfm.exec.disableAutoTimeLeft(true)
tfm.exec.disableAfkDeath(true)

players = {}
timerList = {}
moves = {
        [1] = {direction = -90; key = 39, key_ = 68}, --right
        [2] = {direction = 90; key = 37, key_ = 65}, -- left
        [3] = {direction = -180; key = 38, key_ = 87}, -- up
        [4] = {direction = 0; key = 40, key_ = 83}, -- down
    }
waves = {
        [1] = {seconds = 1800, loops = 38},
        [2] = {seconds = 1500, loops = 50},
        [3] = {seconds = 1000, loops = 55},
    }
default = {
        stats = {
            waves = 0,
            wins = 0,
            deaths = 0,
            right = 0,
            wrong = 0,
        },
}
keys = {
        68,
        65,
        87,
        83,
        39,
        37,
        38,
        40,
        72,
    }
messages = {
        _help = '<p align=\'center\'><font color=\"#009d9d\"><b><font size=\"20\">#dance</font></b></font></p><br>Move in the right directions. If you do movement right, you get <font color=\"#92d64d\">3 points</font>! If you don\'t, you get <font color=\"#d64d4d\">-2 points</font>!<br><br>Every round <span>consists of</span> 3 waves (<i>1 wave per minute!</i>). With every new wave you have to move faster and faster. If you make mistakes too much, you\'re going to be killed.<br><br><div>Use arrows or WASD to move and have fun in our <V>#DANCE<N>-PARTY!</div><br>',
        _start = '<N>You have <V>10 seconds<N> to get ready!',
        _go = '<N>GO!',
        _newWave = '<V>Wave %x<N> starts right now!',
        _died = '<N>Oops, you died :[',
        _win = '<V>%s <N>won!',
        _welcome = '<N>Welcome to our <V>#dance<N>-party! Press <V>[H]<N> to learn more. Report any issues using <V>/c Aviener#0000',
        _right = '<font color="#92D64D">Right! +3</font>',
        _wrong = '<font color="#D64D4D">Wrong! -2</font>',
        _draw = '<N>Nobody has won! :['
    }

module = {
        start = function()
            for name,player in pairs(tfm.get.room.playerList) do
                -- module.players.getData(name)
                players[name] = {lock = true, opennedPopup = false}
                for i, key in ipairs(keys) do
                    system.bindKeyboard(name, key, true, true)
                end
            end
            tfm.exec.setGameTime(10)
            print('<J>## <BL>Game is loaded!')
        end,
        addMove = function()
            if started == true then
                points = points + 1
                for name,player in pairs(tfm.get.room.playerList) do
                    if not player.isDead then
                        players[name].lock = false
                    end
                end
                i = math.random(1, 4)
                tfm.exec.addShamanObject(0, 400, 200, moves[i].direction)
                return moves[i].key, moves[i].key_, points
            end
        end,
        newWave = function()
            if started == true then
                wave = wave + 1
                module.UI.changeStatusBar(wave)
            end
            for name,player in pairs(tfm.get.room.playerList) do
                if player.score < points then
                    tfm.exec.killPlayer(name)
                end
            end
            module.timers.addTimer(module.addMove, waves[wave].seconds, waves[wave].loops, i)
            module.UI.message(string.format(messages._newWave, wave))
        end,
        timers = {
            addTimer = function(callback, time, loops, label, ...)
                local id = #timerList + 1
                timerList[id] = {
                callback = callback,
                time = time,
                loops = loops or 1,
                label = label,
                arguments = {...},
                isComplete = false,
                currentTime = 0,
                currentLoop = 0,
                }
                return id
            end,
            removeTimer = function(id)
                if timer[id] then
                    timerList[id] = 0
                    return true
                end
            return false
            end,
            removeAll = function()
                timerList = {}
            end,
        },
        --User Interface
        UI = {
            changeStatusBar = function(wave)
                if wave <= 3 then
                    local code = tfm.get.room.currentMap
                    local author = tfm.get.room.xmlMapInfo.author
                    tfm.exec.setUIMapName('<J>'..author..'<BL> - '..code..'   <font color="#5a5f6e">|</font>   <N>Wave: <V>'..wave..'/3')
                end
            end,
            message = function(message, name)
                tfm.exec.chatMessage(message, name)
                --print (message)
            end,
            addPopup = function(id, text, n, x, y, width, height)
                players[n].opennedPopup = true
                ui.addTextArea(id, "", n, x +  - 2, y + 18, width + 24, height + 14, 0x2E221B, 0x2E221B, 1, true)
                ui.addTextArea(id + 1, "", n, x + - 1, y + 19, width + 22, height + 12, 0x986742, 0x986742, 1, true)
                ui.addTextArea(id + 2, "", n, x + 2, y + 22, width + 16, height + 6, 0x171311, 0x171311, 1, true)
                ui.addTextArea(id + 3, "", n, x + 3, y + 23, width + 14, height + 4, 0x0C191C, 0x0C191C, 1, true)
                ui.addTextArea(id + 4, "", n, x + 4, y + 24, width + 12, height + 2, 0x24474D, 0x24474D, 1, true)
                ui.addTextArea(id + 5, "", n, x + 5, y + 25, width + 10, height + 0, 0x183337, 0x183337, 1, true)
                ui.addTextArea(id + 6, text, n, x + 6, y + 26, width + 8, height + - 2, 0x324650, 0x324650, 1, true)
                ui.addTextArea(id + 7, "", n, x + 12, y + height - 20 + 25, width - 5, 15, 0x5D7D90, 0x5D7D90, 1, true)
                ui.addTextArea(id + 8, "", n, x + 12, y + height - 20 + 27, width - 5, 15, 0x11171C, 0x11171C, 1, true)
                ui.addTextArea(id + 9, "<p align='center'><a href='event:close'><N>Close</a>", n, x + 12, y + height - 20 + 26, width - 5, 15, 0x3C5064, 0x3C5064, 1, true)
            end,
            removePopup = function(id, n)
                for id = id, (id + 9) do
                    ui.removeTextArea(id, n)
                end
                players[n].opennedPopup = false
            end;
        },
        --Players settings, data and etc
        players = {
            --[[getData = function(name)
                    local data = system.loadPlayerData(name)
                    if data == nil then
                        set default 0/0/0/0
                    end
                    return data end
                end,]]
        },

    }
    eventNewGame = function()
        started = false
        wave = 1
        points = 0
        module.timers.removeAll()
        for name,player in pairs(tfm.get.room.playerList) do
            players[name].lock = true
            tfm.exec.setPlayerScore(name, 0, false)
        end
        tfm.exec.setGameTime(220)
        module.UI.message(messages._start)
        module.UI.changeStatusBar(wave)
        module.timers.addTimer(module.addMove, waves[wave].seconds, waves[wave].loops, i)
        module.timers.addTimer(module.newWave, 60000, 2)
    end
    function eventKeyboard(name, key, down, x, y)
        if key~= 72 and players[name].lock == false and started == true then
            if key == moves[i].key or key == moves[i].key_ then
                module.UI.message(messages._right, name)
                tfm.exec.setPlayerScore(name, 3, true)
                players[name].lock = true
            else
                module.UI.message(messages._wrong, name)
                tfm.exec.setPlayerScore(name, -2, true)
                players[name].lock = true
            end
        end
        if key == 72 and not players[name].opennedPopup then
            module.UI.addPopup(1, messages._help, name, 230, 100, 327, 210)
        elseif key == 72 and players[name].opennedPopup then
            module.UI.removePopup(1, name)
        end
    end
    function eventTextAreaCallback(textAreaID, name, callback)
        if callback == 'close' then
            module.UI.removePopup(1, name)
        end
    end
    eventPlayerDied = function(name)
        local i = 0
        n = name
        for name,player in pairs(tfm.get.room.playerList) do
            if not player.isDead then
                i = i + 1
            end
        end
        if i == 1 then
            n = name
            tfm.exec.playerVictory(name)
            module.UI.message(string.format(messages._win, name))
        end
        if i == 0 then
            tfm.exec.setGameTime(0)
            module.UI.message(messages._draw)
        end
        module.UI.message(messages._died, name)
    end;
    eventLoop = function(time, remain)
        -- timer
        local timersToRemove = {}
        for id = 1, #timerList do
            local timer = timerList[id]
            if type(timer) == 'table' then
                if not timer.isComplete then
                    timer.currentTime = timer.currentTime + 500
                    if timer.currentTime >= timer.time then
                        timer.currentTime = 0
                        timer.currentLoop = timer.currentLoop + 1
                        if timer.loops > 0 then
                            if timer.currentLoop >= timer.loops then
                                timer.isComplete = true
                            end
                        end
                        if type(timer.callback) == 'function' then
                            timer.callback(timer.currentLoop, table.unpack(timer.arguments))
                        end
                    end
                end
                if timer.isComplete then
                    if type(eventTimerComplete) == 'function' then
                        eventTimerComplete(id, timer.label)
                    end
                    timersToRemove[#timersToRemove+1] = id
                end
            end
        end
        if time >= 10000 and started == false then
            started = true
            module.UI.message(messages._go)
        end
        if remain <= 0 then
            tfm.exec.newGame(6680501)
        elseif remain <= 40 then
            started = false
            for name,player in pairs(tfm.get.room.playerList) do
                if player.score < points then
                    tfm.exec.killPlayer(name)
                end
            end
        end
    end


module.start()