[Game] Cannonup

--Creator: Bolodefchoco
--Made in: 06/02/2017
--Last update: 16/09/2017

--[[ Module ]]--
local module = {
    _VERSION = "1",
    _NAME = "cannonup",
    _STATUS = "semi-official",
    _AUTHOR = "Bolodefchoco",
    _LICENSE = [[
        MIT LICENSE

        Copyright (c) 2017 @Transformice + @Bolodefchoco

        Permission is hereby granted, free of charge, to any person obtaining
        a copy of this software and associated documentation files (the
        "Software"), to deal in the Software without restriction, including
        without limitation the rights to use, copy, modify, merge, and to
        permit persons to whom the Software is furnished to do so, subject to
        the following conditions:

        The above copyright notice and this permission notice shall be included
        in all copies or substantial portions of the Software.

        THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS
        OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF FITNESS FOR
        A PARTICULAR PURPOSE AND NONINFRINGEMENT.
        IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
        CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
        TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
        SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
    ]],
    _FREEACCESS = { -- Verified players
        -- 3 : Commands + Room admin + Debug
        Bolodefchoco = 3,
        Trumpuke = 3,
        -- 2 : Commands
        Bodykudo = 2,
        Error_404 = 2,
        Jordynl = 2,
        Laagaadoo = 2,
        Mescouleur = 2,
        Sebafrancuz = 2,
        Tocutoeltuco = 2,
        -- 1 : Some commands
        Abdeltif = 1,
        Animjarcanin = 1,
        Artinoe = 1,
        Atinesta = 1,
        Auroraclears = 1,
        Bapereira = 1,
        Barberserk = 1,
        Bataatiinha = 1,
        Bellaxo = 1,
        Bibsho = 1,
        Bielbateriax = 1,
        Bjikata = 1,
        Bruniinhoowx = 1,
        Byontr = 1,
        Caiolopelope = 1,
        Chocodivo = 1,
        Claumiau = 1,
        Connow = 1,
        Daelea = 1,
        Distances = 1,
        Drescen = 1,
        Ekull = 1,
        Exsilium = 1,
        Flindix = 1,
        Gemalugeter = 1,
        Grastfetry = 1,
        Grincreep = 1,
        Ikkemon = 1,
        Jotatavo = 1,
        Kimsterjay = 1,
        Kingtenso = 1,
        Lebluemice = 1,
        Lucasrslv = 1,
        Mcqv = 1,
        Miyakogotoku = 1,
        Mousetat = 1,
        Mquk = 1,
        Myelou = 1,
        Nedior = 1,
        Nlff = 1,
        Okpatinhos = 1,
        Pjfsamora = 1,
        Prysmos = 1,
        Reshman = 1,
        Rianmojang1 = 1,
        Rosianna_rabbit = 1,
        Ruamorangos = 1,
        Sammynya = 1,
        Squalleze = 1,
        Tdft = 1,
        Thegbc = 1,
        Tockego = 1,
        Treasuredsoul = 1,
        Victorruanpk = 1,
        Viniciusdara = 1,
        Vinitexeira = 1,
        Xfelrat = 1,
        Xorcist = 1,
        Yuir = 1,
        Zacriker = 1,
        Zippydoodah = 1,
        Zagear = 1,
        Zombiewd = 1,
    },
}

--[[ Optimization ]]--
  --[[ String ]]--
local stringlen,stringfind,stringgmatch,stringbyte,stringdump,stringreverse,stringupper,stringformat,stringrep,stringlower,stringsub,stringgsub,stringmatch,stringchar = string.len,string.find,string.gmatch,string.byte,string.dump,string.reverse,string.upper,string.format,string.rep,string.lower,string.sub,string.gsub,string.match,string.char
  --[[ Math ]]--
local mathdeg,mathfmod,mathrandom,mathasin,mathmax,mathmodf,mathfloor,mathcosh,mathldexp,mathatan2,mathpow,mathrandomseed,mathfrexp,mathabs,mathtanh,mathacos,mathlog,mathtan,mathmin,mathceil,mathsinh,mathsqrt,mathhuge,mathrad,mathsin,mathexp,mathcos,mathatan,mathpi = math.deg,math.fmod,math.random,math.asin,math.max,math.modf,math.floor,math.cosh,math.ldexp,math.atan2,math.pow,math.randomseed,math.frexp,math.abs,math.tanh,math.acos,math.log,math.tan,math.min,math.ceil,math.sinh,math.sqrt,math.huge,math.rad,math.sin,math.exp,math.cos,math.atan,math.pi
  --[[ Table ]]--
local tablepack,tableforeachi,tableforeach,tableremove,tableinsert,tableunpack,tableconcat,tablesort = table.pack,table.foreachi,table.foreach,table.remove,table.insert,table.unpack,table.concat,table.sort

--[[ API ]]--
    --[[ Control ]]--
system.newGameTimer = 0
system.officialMode = {"",""}
system.playerMessage = ""
system.setAdmins = function()
    local out = {}
    for k,v in next,module._FREEACCESS do
        if v > 2 then
            out[k] = true
        end
    end
    return out
end
    --[[ Improvements ]]--
tableconcat = function(list,sep,f,i,j)
    local txt = ""
    sep = sep or ""
    i,j = i or 1,j or #list
    for k,v in next,list do
        if type(k) ~= "number" and true or (k >= i and k <= j) then
            txt = txt .. (f and f(k,v) or v) .. sep
        end
    end
    return stringsub(txt,1,-1-#sep)
end
do
    local newGame = tfm.exec.newGame
    tfm.exec.newGame = function(code)
        if os.time() > system.newGameTimer then
            system.newGameTimer = os.time() + 6000
            newGame(code or "#" .. tablerandom({0,0,0,0,1,1,1,4,5,6,7,8,9,1,4,5,6,7,8,9,0}))
            return true
        end
        return false
    end

    local addImage = tfm.exec.addImage
    local removeImage = tfm.exec.removeImage
    tfm.exec.addImage = function(...)
        local id = addImage(...)
        if id then
            system.objects.image[id] = true
        end
        return id or -1
    end
    tfm.exec.removeImage = function(id)
        removeImage(id)
        if system.objects.image[id] then
            system.objects.image[id] = nil
        end
    end

    local addTextArea = ui.addTextArea
    ui.addTextArea = function(id,...)
        addTextArea(id,...)
        if not system.objects.textarea[id] then
            system.objects.textarea[id] = true
        end
    end

    local chatMessage = tfm.exec.chatMessage
    tfm.exec.chatMessage = function(txt,n)
        txt = tostring(txt)
        if #txt > 1000 then
            local total = 0
            while #txt > total do
                chatMessage(stringsub(txt,total,total + 1000),n)
                total = total + 1001
            end
        else
            chatMessage(txt,n)
        end
    end

    local loadPlayerData = system.loadPlayerData
    system.loadPlayerData = function(n)
        if module._STATUS == "official" then
            return loadPlayerData(n)
        else
            if _G["eventPlayerDataLoaded"] then
                eventPlayerDataLoaded(n,"")
            end
            return true
        end
    end

    local savePlayerData = system.savePlayerData
    system.savePlayerData = function(n,data)
        if module._STATUS == "official" then
            savePlayerData(n,data)
            return true
        else
            return false
        end
    end
end
    --[[ Room ]]--
system.isRoom = stringbyte(tfm.get.room.name,2) ~= 3
system.roomAdmins = system.setAdmins()
system.miscAttrib = 0
system.roomNumber,system.roomAttributes = (function()
    if system.isRoom then
        local number,attribute = stringmatch(tfm.get.room.name,"%*?#"..module._NAME.."(%d+)(.*)")
        return tonumber(number) or 0,attribute or ""
    else
        return 0,""
    end
end)()
system.roomLanguage = ""
    --[[ Player ]]--
system.isPlayer = function(n)
    --[[
        The player must not be a souris;
        The player must have played Transformice for at least 5 days
    ]]
    return tfm.get.room.playerList[n] and stringsub(n,1,1) ~= "*" and tfm.get.room.playerList[n].registrationDate and (os.time() - (tfm.get.room.playerList[n].registrationDate or 0) >= 432e6) or false
end
system.players = function(alivePlayers)
    local alive,total = 0,0
    if alivePlayers then
        alive = {}
    end
    for k,v in next,tfm.get.room.playerList do
        if system.isPlayer(k) then
            if not v.isDead and not v.isVampire then
                if alivePlayers then
                    alive[#alive + 1] = k
                else
                    alive = alive + 1
                end
            end
            total = total + 1
        end
    end
    if alivePlayers then
        return alive
    else
        return alive,total
    end
end
    --[[ System ]]--
events = {}
currentTime,leftTime = 0,0
system.loadTable = function(s)
    -- "a.b.c.1" returns a[b][c][1]
    local list
    for tbl in stringgmatch(s,"[^%.]+") do
        tbl = tonumber(tbl) and tonumber(tbl) or tbl
        list = (list and list[tbl] or _G[tbl])
    end
    return list
end
system.getTranslation = function(index,n)
    local t = stringformat("mode.%s.translations.%s.%s",system.gameMode,(n and mode[system.gameMode].info[n].langue or mode[system.gameMode].langue),index)
    return system.loadTable(t) or system.loadTable(stringgsub(t,"translations%..-%.",function() return "translations.en." end))
end
system.looping = function(f,tick)
    local s = 1000 / tick
    local t = {}

    local fooTimer = function()
        t[#t+1] = system.newTimer(f,1000,true)
    end
    for timer = 0,1000 - s,s do
        system.newTimer(fooTimer,1000 + timer,false)
    end
    return t
end
    --[[ Interface ]]--
ui.banner = function(image,aX,aY,n,time)
    time = time or 5
    axis = axis or {100,100}

    local img = tfm.exec.addImage(image .. ".png","&0",aX,aY,n)
    system.newTimer(function()
        tfm.exec.removeImage(img)
    end,time * 1000,false)
end
    --[[ Math ]]--
mathisNegative = function(x,iN,iP)
    iN = iN == nil and x or iN
    iP = iP == nil and x or iP
    return (x<0 and iN or iP)
end
mathpercent = function(x,y,v)
    v = (v or 100)
    local m = x/y * v
    return mathmin(m,v)
end
mathpythag = function(x1,y1,x2,y2,range)
    return (x1-x2)^2 + (y1-y2)^2 <= (range^2)
end
mathsetLim = function(value,min,max)
    return mathmax(min,mathmin(max,value))
end
    --[[ String ]]--
stringsplit = function(value,pattern,f)
    local out = {}
    for v in stringgmatch(value,pattern) do
        out[#out + 1] = (f and f(v) or v)
    end
    return out
end
stringnick = function(player)
    return stringgsub(stringlower(player),"%a",stringupper,1)
end
stringtrim = function(s)
    return (stringgsub(s,"^%s*(.-)%s*$","%1"))
end
    --[[ Table ]]--
tablefind = function(list,value,index,f)
    for k,v in next,list do
        local i = (type(v) == "table" and index and v[index] or v)
        if (f and f(i) or i) == value then
            return true,k
        end
    end
    return false,0
end
tableturnTable = function(x)
    return (type(x)=="table" and x or {x})
end
tablerandom = function(t)
    return (type(t) == "table" and t[mathrandom(#t)] or mathrandom())
end
tableshuffle = function(t)
    local randomized = {}
    for v = 1,#t do
        tableinsert(randomized,mathrandom(#randomized),t[v])
    end
    return randomized
end
tablemerge = function(this,src)
    for k,v in next,src do
        if this[k] then
            if type(v) == "table" then
                this[k] = tableturnTable(this[k])
                tablemerge(this[k],v)
            else
                this[k] = this[k] or v
            end
        else
            this[k] = v
        end
    end
end
    --[[ Others ]]--
deactivateAccents=function(str)
    local letters = {a = {"á","â","à","å","ã","ä"},e = {"é","ê","è","ë"},i = {"í","î","ì","ï"},o = {"ó","ô","ò","õ","ö"},u = {"ú","û","ù","ü"}}
    for k,v in next,letters do
        for i = 1,#v do
            str = stringgsub(str,v[i],tostring(k))
        end
    end
    return str
end
normalizeTime = function(time)
    return mathfloor(time) + ((time - mathfloor(time)) >= .5 and .5 or 0)
end
disableChatCommand = function(command,...)
    for k,v in next,{command,...} do
        system.disableChatCommandDisplay(v,true)
        system.disableChatCommandDisplay(stringlower(v),true)
        system.disableChatCommandDisplay(stringupper(v),true)
    end
end
normalizeTranslation = function()
    local t = mode[system.gameMode].translations

    if mode[system.gameMode].langue == "" then
        mode[system.gameMode].translations.pt = mode[system.gameMode].translations.br

        -- Sets the main language according to the community
        local p = {system.roomLanguage,tfm.get.room.community}
        for i = 1,#p do
            if mode[system.gameMode].translations[p[i]] then
                mode[system.gameMode].langue = p[i]
            end
        end
    end

    for k,v in next,t do
        if k ~= "en" then
            tablemerge(v,t.en)
        end
    end
end
normalizeNumber = function(number,sep)
    sep = sep or " "
    number = tostring(mathfloor(number))
    number = stringgsub(number,"E(%d+)",function(cn) -- e5 = 00000
        return stringrep("0",tonumber(cn))
    end)
    number = stringgsub(stringreverse(number),"(...)",function(c)
        return c .. sep
    end)
    return stringreverse(number)
end
pairsByIndexes = function(list,f)
    local out = {}
    for index in next,list do
        out[#out + 1] = index
    end
    tablesort(out,f)

    local i = 0
    return function()
        i = i + 1
        if out[i] == nil then
            return nil
        else
            return out[i],list[out[i]]
        end
    end
end
    --[[ XML ]]--
xml = {}
xml.parse = function(currentXml)
    currentXml = stringmatch(currentXml,"<P (.-)/>") or ""
    local out = {}
    for tag,_,value in stringgmatch(currentXml,"([%-%w]+)=([\"'])(.-)%2") do
        out[tag] = value
    end
    return out
end
xml.attribFunc = function(currentXml,funcs)
    local attributes = xml.parse(currentXml)
    for k,v in next,funcs do
        if attributes[v.attribute] then
            v.func(attributes[v.attribute])
        end
    end
end
xml.addAttrib = function(currentXml,out,launch)
    local parameters = stringmatch(currentXml,"<P (.-)/>") or ""
    for k,v in next,out do
        if not stringfind(parameters,v.tag) then
            currentXml = stringgsub(currentXml,"<P (.-)/>",function(attribs)
                return stringformat("<P %s=\"%s\" %s/>",v.tag,v.value,attribs)
            end)
        end
    end
    if launch then
        tfm.exec.newGame(currentXml)
    else
        return currentXml
    end
end
xml.getCoordinates = function(s)
    if stringfind(s,";") then
        local x,y
        local axis,value = stringmatch(s,"(%a);(%d+)")
        value = tonumber(value)
        if value then
            if axis == "x" then x = value else y = value end
        end
        return x or 0,y or 0
    else
        local pos = {}
        for x,y in stringgmatch(s,"(%d+) ?, ?(%d+)") do
            pos[#pos+1] = {x = x,y = y}
        end
        return pos
    end
end
    --[[ Color ]]--
color = {
    hexToRgb = function(hex)
        local h = stringformat("%06x",hex)
        return tonumber("0x"..stringsub(h,1,2)),tonumber("0x"..stringsub(h,3,4)),tonumber("0x"..stringsub(h,5,6))
    end,
    rgbToHsl = function(r,g,b)
        r,g,b = r/255,g/255,b/255

        local max,min = mathmax(r,g,b),mathmin(r,g,b)
        local h,s,l

        h = (max + min) / 2
        s,l = h,h

        if max == min then
            h,s = 0,0
        else
            local d = max - min

            local s = l > .5 and (d/(2 - max - min)) or (d/(max + min))

            if max == r then
                h = (g-b)/d
                if g < b then
                    h = h + 6
                end
            elseif max == g then
                h = (b-r)/d + 2
            elseif max == b then
                h = (r-g)/d + 4
            end
            h = h/6
        end

        return {h=h,s=s,l=l}
    end,
    hslToRgb = function(h,s,l)
        local r,g,b

        if s == 0 then
            r,g,b = l,l,l
        else
            local hueToRgb = function(p,q,t)
                if t < 0 then
                    t = t + 1
                end
                if t > 1 then
                    t = t - 1
                end
                if t < 1/6 then
                    return p + (q - p) * 6 * t
                end
                if t < 1/2 then
                    return q
                end
                if t < 2/3 then
                    return p + (q - p) * (2/3 - t) * 6
                end
                return p
            end

            local q = l < .5 and (l * (1 + s)) or (l + s - l * s)
            local p = 2 * l - q

            r = hueToRgb(p,q,h + 1/3)
            g = hueToRgb(p,q,h)
            b = hueToRgb(p,q,h - 1/3)
        end

        return r * 255,g * 255,b * 255
    end,
    rgbToHex = function(r,g,b)
        return tonumber(stringformat('%02x%02x%02x',r,g,b),16)
    end,
    YELLOW = 0xF9EC27,
    RED = 0xF94226,
    LIGHT_RED = 0xD1605D,
    BLUE = 0x34A4E5,
    DEEP_BLUE = 0x4F7F9A,
    DARK_BLUE = 0x2D80AF,
    GRAY = 0x969696,
    SALMON = 0xAC6C64,
    BROWN = 0x89635A,
    BEIGE = 0x937A53,
    TURQUOISE = 0x59D1C8,
    ROSE = 0x816669,
    MOSS_GREEN = 0x689636,
}

--[[ GameMode ]]--
system.submodes = {}

system.gameMode = module._NAME
system.modeChanged = os.time() + 1000

system.getGameMode = function(value,notFirst)
    local found,submode = tablefind(system.submodes,stringlower(value),nil,stringlower)
    if found then
        system.gameMode = system.submodes[submode]

        if notFirst then
            eventModeChanged()
        end

        system.modeChanged = os.time() + 1000
    end
    return found
end

--[[ Modes ]]--
mode = setmetatable({},{
    __newindex = function(list,key,value)
        rawset(list,key,setmetatable(value,{
            __index = function(nList,nKey)
                if nKey == "langue" then
                    return "en"
                end
            end
        }))
        system.submodes[#system.submodes+1] = key
    end
})

--[[ Cannonup ]]--
mode.cannonup = {
    -- Translations
    translations = {
        en = {
            -- Init
            welcome = "Welcome to #cannonup. Your aim is to be the survivor! <VP>Take care, watermelons are dangerous!\n\t<J>Report any issue to Bolodefchoco.",

            -- Info
            nowinner = "No one won!",

            -- Simple words
            won = "won!",

            -- Profile
            profile = "Rounds : <V>%d</V>\nCheeses : <V>%d</V>\n\nDeaths : <V>%d</V>",
        },
        br = {
            welcome = "Bem-vindo ao #cannonup. Seu objetivo é ser o sobrevivente! <VP>Tome cuidado, melancias são perigosas!\n\t<J>Reporte qualquer problema para Bolodefchoco.",

            nowinner = "Ninguém ganhou!",

            won = "venceu!",

            profile = "Rodadas : <V>%d</V>\nQueijos : <V>%d</V>\n\nMortes : <V>%d</V>",
        },
    },
    langue = "",
    --[[ Data ]]--
    info = {},
    --[[ Maps ]]--
    maps = {3746497,6001536,3666224,4591929,"#10","#10","#10","#10","#10","#10","#10","#10","#10"},
    --[[ Settings ]]--
    -- Status
    isRunning = true,
    totalPlayers = 0,
    soloGame = false,
    -- New Game
    cannon = {
        x = 0,
        y = 0,
        time = 3,
        amount = 1,
        speed = 20,
    },
    canMessage = false,
    currentXml = -1,
    toDespawn = {},
    alivePlayers = {},
    --[[ System ]]--
    -- Cannon
    getCannon = function()
        local currentMonth = tonumber(os.date("%m"))

        if currentMonth == 12 then
            return 1703 -- Christmas [Ornament]
        elseif currentMonth == 10 then
            return tablerandom({17,1701,1702}) -- Halloween [Normal, Glass, Lollipop]
        elseif currentMonth == 5 and tonumber(os.date("%d")) < 11 then
            return 1704 -- Transformice's Birthday [Shaman]
        elseif currentMonth == 7 then
            return tablerandom({17,1705,1706}) -- Vacations [Normal, Apple, Watermellon]
        else
            return tablerandom({17,17,17,1706}) -- Standard
        end
    end,
    -- Shoot
    newCannon = function()
        local alive = system.players(true)
        if #alive > 0 then
            local player
            repeat
                player = tfm.get.room.playerList[tablerandom(alive)]
            until not player.isDead

            local coordinates = {
                {player.x,mathrandom() * 700},
                {player.y,mathrandom() * 300},
                {false,false}
            }

            if mode.cannonup.cannon.x ~= 0 then
                coordinates[1][2] = mode.cannonup.cannon.x
                coordinates[3][1] = true
            end
            if mode.cannonup.cannon.y ~= 0 then
                coordinates[2][2] = mode.cannonup.cannon.y
                coordinates[3][2] = true
            end

            if not coordinates[3][2] and coordinates[2][2] > coordinates[2][1] then
                coordinates[2][2] = coordinates[2][1] - mathrandom(100) - 35
            end
            if not coordinates[3][1] and mathabs(coordinates[1][2] - coordinates[1][1]) > 350 then
                coordinates[1][2] = coordinates[1][1] + mathrandom(-100,100)
            end

            local ang = mathdeg(mathatan2(coordinates[2][2] - coordinates[2][1],coordinates[1][2] - coordinates[1][1]))
            tfm.exec.addShamanObject(0,coordinates[1][2] - (coordinates[3][1] and 0 or 10),coordinates[2][2] - (coordinates[3][2] and 0 or 10),ang + 90)

            --system.newTimer(function()
                mode.cannonup.toDespawn[#mode.cannonup.toDespawn + 1] = {tfm.exec.addShamanObject(mode.cannonup.getCannon(),coordinates[1][2],coordinates[2][2],ang - 90,mode.cannonup.cannon.speed),os.time() + 5000}
            --end,mathisNegative((mode.cannonup.cannon.speed - 1) * 500,0),false)
        end
    end,
    -- Player Update
    updatePlayers = function()
        local alive,total = system.players()
        mode.cannonup.alivePlayers = system.players(true)
        mode.cannonup.totalPlayers = total
    end,
    --[[ UI ]]--
    uiprofile = function(p,n)
        ui.addTextArea(1,"\n\n<font size='13'>\n" .. stringformat(system.getTranslation("profile"),mode.cannonup.info[p].round,mode.cannonup.info[p].victory,mode.cannonup.info[p].death),n,300,100,200,150,0x0B282E,0x1B282E,1,true)
        ui.addTextArea(2,"<p align='center'><font size='20'><VP><B><a href='event:close'>"..p.."</a>",n,305,105,190,30,0x244452,0x1B282E,.4,true)
    end,
    --[[ Init ]]--
    reset = function()
        -- Data
        mode.cannonup.info = {}
    end,
    init = function()
        -- Init
        for _,f in next,{"AutoShaman","AutoScore","AutoNewGame","AutoTimeLeft","PhysicalConsumables"} do
            tfm.exec["disable"..f]()
        end
        tfm.exec.setRoomMaxPlayers(25)
        --tfm.exec.newGame('<C><P /><Z><S><S L="800" o="324650" H="100" X="400" Y="400" T="12" P="0,0,0.3,0.2,0,0,0,0" /></S><D /><O /></Z></C>')

        -- Auto Admin
        system.roomAdmins.Byontr = true
    end,
    --[[ Events ]]--
    -- NewPlayer
    eventNewPlayer = function(n)
        if not mode.cannonup.info[n] then
            mode.cannonup.info[n] = {
                round = 0,
                victory = 0,
                death = 0
            }
        end

        if mode.cannonup.soloGame then
            mode.cannonup.updatePlayers()
            if mode.cannonup.totalPlayers > 1 then
                mode.cannonup.soloGame = false
                mode.cannonup.currentXml = -1
            end
        end

        tfm.exec.chatMessage("<J>" .. system.getTranslation("welcome"),n)

        ui.banner("15d60d944f5",140,135,n)
    end,
    -- NewGame
    eventNewGame = function()
        ui.setMapName("#CannonUp")

        mode.cannonup.cannon = {
            x = 0,
            y = 0,
            time = 3,
            amount = ((mode.cannonup.totalPlayers - (mode.cannonup.totalPlayers % 10)) / 10) + mathsetLim(system.miscAttrib+1,1,5), -- mathmin(5,mathmax(1,system.miscAttrib+1))
            speed = 20,
        }

        mode.cannonup.toDespawn = {}

        if mode.cannonup.currentXml == -1 then
            mode.cannonup.currentXml = 0
        elseif mode.cannonup.currentXml == -2 then
            mode.cannonup.currentXml = -1
        end

        ui.removeTextArea(0,nil)
        if mode.cannonup.isRunning then
            if mode.cannonup.currentXml == 0 then
                tfm.exec.setGameTime(5)

                mode.cannonup.currentXml = xml.addAttrib(tfm.get.room.xmlMapInfo.xml or "",{
                    [1] = {
                        tag = "BH",
                        value = "",
                    }
                },false)
                ui.addTextArea(0,"",nil,-1500,-1500,3e3,3e3,0x6A7495,0x6A7495,1,true)

                mode.cannonup.canMessage = false
            else
                tfm.exec.setGameTime(125)
                mode.cannonup.canMessage = true

                if mode.cannonup.totalPlayers > 3 then
                    for k,v in next,mode.cannonup.info do
                        v.round = v.round + 1
                    end
                end

                xml.attribFunc(mode.cannonup.currentXml or "",{
                    [1] = {
                        attribute = "cn",
                        func = function(value)
                            local coord,axY = xml.getCoordinates(value)
                            if type(coord) == "table" then
                                mode.cannonup.cannon.x = coord[1].x
                                mode.cannonup.cannon.y = coord[1].y
                            else
                                if axY == 0 then
                                    mode.cannonup.cannon.x = coord
                                else
                                    mode.cannonup.cannon.y = coord
                                end
                            end
                        end
                    },
                    [2] = {
                        attribute = "cheese",
                        func = function()
                            tableforeach(tfm.get.room.playerList,tfm.exec.giveCheese)
                        end,
                    },
                    [3] = {
                        attribute = "meep",
                        func = function()
                            tableforeach(tfm.get.room.playerList,tfm.exec.giveMeep)
                        end,
                    },
                })

                mode.cannonup.currentXml = 0
                mode.cannonup.canMessage = true
            end
        else
            tfm.exec.setGameTime(1e7)
            mode.cannonup.currentXml = -1
            mode.cannonup.canMessage = false
        end
    end,
    -- Loop
    eventLoop = function()
        mode.cannonup.updatePlayers()

        if mode.cannonup.totalPlayers < 2 then
            --mode.cannonup.isRunning = false
            --mode.cannonup.canMessage = false
            --mode.cannonup.currentXml = -2
            mode.cannonup.soloGame = true
        end

        if mode.cannonup.isRunning then
            --else
            if mode.cannonup.currentXml == -1 then
                tfm.exec.newGame(tablerandom(mode.cannonup.maps))
            elseif mode.cannonup.currentXml ~= 0 then
                tfm.exec.newGame(mode.cannonup.currentXml)
            else
                if _G.leftTime < 4 or (not mode.cannonup.soloGame and #mode.cannonup.alivePlayers < 2) or #mode.cannonup.alivePlayers == 0 then
                    if mode.cannonup.canMessage and not mode.cannonup.soloGame then -- and mode.cannonup.totalPlayers > 1 then
                        mode.cannonup.canMessage = false
                        if #mode.cannonup.alivePlayers > 0 then
                            for k,v in next,mode.cannonup.alivePlayers do
                                tfm.exec.giveCheese(v)
                                tfm.exec.playerVictory(v)
                                if mode.cannonup.totalPlayers > 3 then
                                    mode.cannonup.info[v].victory = mode.cannonup.info[v].victory + 1
                                end
                                tfm.exec.setPlayerScore(v,5,true)
                            end

                            tfm.exec.chatMessage("<J>" .. tableconcat(mode.cannonup.alivePlayers,"<G>, <J>") .. " <J>" .. system.getTranslation("won"))
                        else
                            tfm.exec.chatMessage("<J>" .. system.getTranslation("nowinner"))
                        end
                    end
                    tfm.exec.newGame(tablerandom(mode.cannonup.maps))
                else
                    if _G.currentTime > 5 and mode.cannonup.currentXml == 0 then
                        if _G.currentTime % mode.cannonup.cannon.time == 0 then
                            for i = 1,mode.cannonup.cannon.amount do
                                mode.cannonup.newCannon()
                            end
                        end

                        if #mode.cannonup.toDespawn > 0 then
                            for i = 1,#mode.cannonup.toDespawn do
                                if os.time() > mode.cannonup.toDespawn[i][2] then
                                    tfm.exec.removeObject(mode.cannonup.toDespawn[i][1])
                                end
                            end
                        end

                        if _G.currentTime % 20 == 0 then
                            mode.cannonup.cannon.amount = ((mode.cannonup.totalPlayers - (mode.cannonup.totalPlayers % 10)) / 10) + mathsetLim(system.miscAttrib+1,1,5) --mathmin(5,mathmax(1,system.miscAttrib+1))
                            mode.cannonup.cannon.speed = mode.cannonup.cannon.speed + 20
                            mode.cannonup.cannon.time = mathmax(.5,mode.cannonup.cannon.time-.5)
                        end
                    end
                end
            end
        else
            if mode.cannonup.currentXml == -2 then
                tfm.exec.newGame('<C><P /><Z><S><S L="800" o="324650" H="100" X="400" Y="400" T="12" P="0,0,0.3,0.2,0,0,0,0" /></S><D /><O /></Z></C>')
            end

            if mode.cannonup.totalPlayers > 1 or mode.cannonup.soloGame then
                mode.cannonup.isRunning = true
            end
        end
    end,
    -- ChatCommand
    eventChatCommand = function(n,c)
        local p = stringsplit(c,"[^%s]+",stringlower)
        if p[1] == "p" or p[1] == "profile" then
            if p[2] then
                p[2] = stringnick(p[2])
                if tfm.get.room.playerList[p[2]] then
                    mode.cannonup.uiprofile(p[2],n)
                end
            else
                mode.cannonup.uiprofile(n,n)
            end
        end
    end,
    -- TextAreaCallback
    eventTextAreaCallback = function(i,n,c)
        if c == "close" then
            for i = 1,2 do
                ui.removeTextArea(i,n)
            end
        end
    end,
    -- PlayerLeft
    eventPlayerLeft = function()
        mode.cannonup.updatePlayers()
    end,
    -- PlayerDied
    eventPlayerDied = function(n)
        mode.cannonup.info[n].death = mode.cannonup.info[n].death + 1
    end,
}

--[[ ModeChanged ]]--
system.objects = {
    image = {},
    textarea = {}
}
eventModeChanged = function()
    -- Remove content
    for k in next,system.objects.image do
        tfm.exec.removeImage(k)
    end

    for k in next,system.objects.textarea do
        ui.removeTextArea(k,nil)
    end

    system.objects = {
        image = {},
        textarea = {}
    }

    ui.addPopup(0,0,"",nil,-1500,-1500)

    -- Unbind keyboard and mouse, also normalize color name and scores
    for k in next,tfm.get.room.playerList do
        for i = 0,255 do
            for v = 0,1 do
                system.bindKeyboard(k,i,v == 0,false)
            end
        end

        system.bindMouse(k,false)

        tfm.exec.setNameColor(k,-1)
        tfm.exec.setPlayerScore(k,0)
    end

    -- Set admin back
    system.roomAdmins = system.setAdmins()

    -- Reset settings
    tfm.exec.snow(0)
    for k,v in next,{"AutoScore","WatchCommand","AutoNewGame","AutoShaman","AllShamanSkills","MortCommand","DebugCommand","MinimalistMode","AfkDeath","PhysicalConsumables","AutoTimeLeft"} do
        tfm.exec["disable" .. v](false)
    end
    tfm.exec.setAutoMapFlipMode()

    tfm.exec.setRoomMaxPlayers(25)
    tfm.exec.setRoomPassword("")
end

--[[ Events ]]--
    --[[ eventLoop ]]--
events.eventLoop = function(currentTime,leftTime)
    _G.currentTime = normalizeTime(currentTime / 1e3)
    _G.leftTime = normalizeTime(leftTime / 1e3)
end
    --[[ eventNewPlayer ]]--
events.eventNewPlayer = function(n)
    tfm.exec.lowerSyncDelay(n)

    if system.officialMode[2] ~= "" then
        tfm.exec.chatMessage(system.officialMode[2],n)
    end

    if system.playerMessage ~= "" then
        tfm.exec.chatMessage("<J>" .. system.playerMessage,n)
    end
end
    --[[ eventChatCommand ]]--
events.eventChatCommand = function(n,c)
    if system.isPlayer(n) then
        system.disableChatCommandDisplay(c,true)

        local p = stringsplit(c,"[^%s]+",stringlower)
        disableChatCommand(p[1])

        if module._FREEACCESS[n] then
            if p[1] == "refresh" and (module._FREEACCESS[n] > 1 or not system.isRoom) then
                eventModeChanged()
                system.init(true)
                return
            end

            if p[1] == "room" and (module._FREEACCESS[n] > 1 or not system.isRoom) then
                local room = tonumber(p[2]) or 0
                if _G["eventChatCommand"] and system.roomNumber ~= room then
                    system.roomNumber = room
                    eventChatCommand(n,"refresh")
                end
                return
            end

            if p[1] == "setmisc" and p[2] and (module._FREEACCESS[n] > 1 or not system.isRoom) then
                system.miscAttrib = tonumber(p[2]) or 0
                system.miscAttrib = mathsetLim(system.miscAttrib,0,99)
                if p[3] == "true" then
                    eventChatCommand(n,"refresh")
                end
                return
            end

            if p[1] == "load" and (module._FREEACCESS[n] > 2 or not system.isRoom) then
                if os.time() > system.modeChanged and os.time() > system.newGameTimer then
                    if system.getGameMode(p[2],true) then
                        system.init(system.isRoom)
                    end
                end
                return
            end
        end

        if p[1] == "module" then
            p[2] = stringupper(p[2] or "")

            if module["_" .. p[2]] then
                if p[2] == "FREEACCESS" then
                    if p[3] then
                        p[3] = stringnick(p[3])
                        tfm.exec.chatMessage(p[3] .. " ~> " .. (module._FREEACCESS[p[3]] or 0),n)
                    else
                        tfm.exec.chatMessage(p[2] .. " : ",n)
                        for k,v in pairsByIndexes(module._FREEACCESS,function(a,b) return module._FREEACCESS[a] > module._FREEACCESS[b] end) do
                            tfm.exec.chatMessage(stringformat("%s ~> %s",k,v),n)
                        end
                    end
                else
                    tfm.exec.chatMessage(p[2] .. " : " .. tableconcat(tableturnTable(module["_" .. p[2]]),"\n",function(k,v)
                        return v
                    end),n)
                end
            else
                tfm.exec.chatMessage(stringformat("VERSION : %s\nNAME : %s\nSTATUS : %s\nAUTHOR : %s\n\nMODE : %s",module._VERSION,module._NAME,module._STATUS,module._AUTHOR,system.gameMode),n)
            end
            return
        end

        if p[1] == "modes" then
            tfm.exec.chatMessage(tableconcat({tableunpack(system.submodes,2)},"\n",function(k,v)
                return stringformat("~> /room #%s%s@%s#%s",module._NAME,mathrandom(0,999),n,v)
            end),n)
            return
        end

        if p[1] == "stop" and system.roomAdmins[n] then
            system.exit()
        end

        if p[1] == "admin" then
            tfm.exec.chatMessage(tableconcat(system.roomAdmins,", ",tostring),n)
            return
        end

        if p[1] == "adm" and p[2] and (system.roomAdmins[n] or (module._FREEACCESS[n] and module._FREEACCESS[n] > 2)) then
            if tablefind({"true","false"},p[3]) then
                local pl = stringnick(p[2])
                system.roomAdmins[pl] = (module._FREEACCESS[pl] and true) or p[3] == "true" or nil
            end
            return
        end

        if p[1] == "setroomlanguage" and p[2] and (system.roomAdmins[n] or (module._FREEACCESS[n] and module._FREEACCESS[n] > 2)) then
            if mode[system.gameMode].translations[p[2]] then
                system.roomLanguage = p[2]
                mode[system.gameMode].langue = system.roomLanguage
            end
            return
        end

        if p[1] == "me" then
            local commands = {
                [0] = {},
                [1] = {"!refresh (tribe house)","!setMisc [number] [refresh] (tribe house)","!room [number] (tribe house)","!load [mode] (tribe house)"},
                [2] = {"!refresh","!setMisc [number] [refresh]","!room [number]","!load [mode] (tribe house)"},
                [3] = {"!refresh","!setMisc [number] [refresh]","!room [number]","!load [mode]"}
            }

            local access = module._FREEACCESS[n] or 0

            if system.roomAdmins[n] then
                for k,v in next,{"!stop","!adm [playerName] [true/false]","!setRoomLanguage [language]"} do
                    commands[access][#commands[access] + 1] = v
                end
            end

            tfm.exec.chatMessage(stringformat("@%s\nACCESS : %s\nROOM ADMIN : %s\n\n~> Commands: %s",n,access,tostring(not not system.roomAdmins[n]),tableconcat(commands[access],"; ")),n)
            return
        end
    end
end

--[[ RoomSettings ]]--
system.roomSettings = {
    -- 0 = Only the first value
    -- 1 = All the text
    ["@"] = {0,function(n)
        if n and #n > 2 then
            system.roomAdmins[stringnick(n)] = true
        end
    end},
    ["*"] = {0,function(id)
        system.miscAttrib = tonumber(id) or 1
        system.miscAttrib = mathsetLim(system.miscAttrib,1,99)
    end},
    ["#"] = {0,function(name)
        if name then
            local game = system.getGameMode(name)
            if not game then
                system.gameMode = module._NAME
            end
        end
    end},
    [":"] = {1,function(text)
        if text and #text > 0 then
            system.playerMessage = stringsub(text,1,40)
        end
    end},
    ["!"] = {0,function(langue)
        if langue and #langue > 0 then
            system.roomLanguage = stringlower(langue)
        end
    end}
}
system.setRoom = function()
    if system.isRoom and system.roomAttributes then
        local chars = ""
        for k in next,system.roomSettings do
            chars = chars .. k
        end

        for char,value in stringgmatch(system.roomAttributes,"(["..chars.."])([^"..chars.."]+)") do
            for k,v in next,system.roomSettings do
                if k == char then
                    v[2](v[1] == 0 and stringmatch(value,"[^%s]+") or value)
                    break
                end
            end
        end

        local officialModes = {
            {"vanilla","<VP>Enjoy your vanilla (: .. okno"},
            {"survivor","<R>Aw, you cannot play survivor on #grounds"},
            {"racing","<CH>Uh, racing? Good luck!"},
            {"music","<BV>Music? Nice choice! Why don't you try a rock'n'roll?"},
            {"bootcamp","<PT>Bootcamp? Ok. This is unfair and your data won't be saved out of the room."},
            {"defilante","<R>Aw, you cannot play defilante on #grounds"},
            {"village","<R>You cannot play village on #grounds. Please, change your room."},
        }
        for k,v in next,officialModes do
            if stringfind(stringlower(system.roomAttributes),v[1]) then
                system.officialMode = {v[1],v[2]}
                break
            end
        end
    end
end

--[[ Initialize ]]--
execute = {}
system.setRoom()

system.init = function(refresh)
    for i,event in next,{"Loop","NewGame","PlayerDied","PlayerGetCheese","PlayerVampire","PlayerWon","PlayerLeft","EmotePlayed","Keyboard","Mouse","PopupAnswer","TextAreaCallback","ChatCommand","ChatMessage","SummoningStart","SummoningEnd","SummoningCancel","NewPlayer","PlayerRespawn","ColorPicked"} do
        local e = "event" .. event

        local found = false
        for k,v in next,mode[system.gameMode] do
            if k == e then
                execute[e] = v
                found = true
                break
            end
        end
        if not found then
            execute[e] = function() end
        end

        _G[e] = function(...)
            if events[e] then
                events[e](...)
            end
            execute[e](...)
        end
    end

    if refresh then
        if mode[system.gameMode].reset then
            mode[system.gameMode].reset()
        end
    end

    normalizeTranslation()
    mode[system.gameMode].init()

    if _G["eventNewPlayer"] then
        tableforeach(tfm.get.room.playerList,eventNewPlayer)
    end
end
system.init()