--Creator: Bolodefchoco
--Made in: 06/02/2017
--Last update: 14/07/2017

--[[ Module ]]--
local module = {
	_VERSION = "3.6",
	_NAME = "grounds",
	_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,
		-- 2 : Commands
		Bodykudo = 2,
		Error_404 = 2,
		Jordynl = 2,
		Laagaadoo = 2,
		Sebafrancuz = 2,
		Tocutoeltuco = 2,
		-- 1 : Some commands
		Artinoe = 1,
		Bapereira = 1,
		Barberserk = 1,
		Byontr = 1,
		Claumiau = 1,
		Drescen = 1,
		Ekull = 1,
		Elvismouse = 1,
		Grastfetry = 1,
		Mcqv = 1,
		Mescouleur = 1,
		Mquk = 1,
		Reshman = 1,
		Rikkeshang = 1,
		Ruamorangos = 1,
		Sammynya = 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 ]]--
	-- Timers
system.newGameTimer = 0

	-- Control
system.officialMode = {"",""}
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)
			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
	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)
		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 "",attribute or ""
	else
		return "",""
	end
end)()

	-- 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
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 = {}
	for timer = 0,1000 - s,s do
		system.newTimer(function()
			t[#t+1] = system.newTimer(f,1000,true)
		end,1000 + timer,false)
	end
	return t
end

	-- Math
mathisNegative = function(x,iN,iP)
	return (x<0 and (iN or x) or (iP or x))
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

	-- 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
	end
	return randomized
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)
	system.disableChatCommandDisplay(command,true)
	system.disableChatCommandDisplay(stringlower(command),true)
	system.disableChatCommandDisplay(stringupper(command),true)
end
normalizeTranslation = function()
	local t = mode[system.gameMode].translations

	for k,v in next,t.en do
		for i,j in next,t do
			if i ~= "en" then
				if not j[k] then
					j[k] = v
				end
			end
		end
	end
end

	-- XML Dealer
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

--[[ Game Mode System ]]--
system.normalizedModeName = function(name,back)
	if back then
		name = stringgsub(name,"%+","P") -- Test+ = TestP
	else
		name = stringgsub(name,"P$","+") -- TestP = Test+
	end
	return name
end

system.submodes = {}

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

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

		if notFirst then
			eventModeChanged()
		end

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

--[[ Modes ]]--
mode = setmetatable({},{
	__newindex = function(list,key,value)
		rawset(list,key,value)
		system.submodes[#system.submodes+1] = system.normalizedModeName(key,false)
	end
})

--[[ Grounds ]]--
mode.grounds = {
	-- Translations
	translations = {
		en = {
			-- Data
			grounds = {
				-- Ground, Description
				[0] = {"Wood","?","?"},
				[1] = {"Ice","Increases your speed by pressing spacebar","Increases the speed in <BL>%s%%</BL>"},
				[2] = {"Trampoline","?","?"},
				[3] = {"Lava","Teleports you to the last Z indexed ground","?"},
				[4] = {"Chocolate","?","?"},
				[5] = {"Earth","?","?"},
				[6] = {"Grass","?","?"},
				[7] = {"Sand","Creates a sand storm","Decreases the storm in <BL>%s%%</BL>"},
				[8] = {"Cloud","Enables you to fly by pressing spacebar","Increases the fly in <BL>%s%%</BL>"},
				[9] = {"Water","Drowns you","Drowns you <BL>%s%%</BL> slower"},
				[10] = {"Stone","Creates a block of stone by pressing spacebar","Increases the block size in <BL>%s%%</BL>"},
				[11] = {"Snow","Shoots snowballs by pressing spacebar","Increases the snowball speed in <BL>%s%%</BL>"},
				[12] = {"Rectangle","Each color has its own function","?",{
					["C90909"] = "Kills you",
					["18C92B"] = "Revives all the enemies",
					["555D77"] = "Respawning Checkpoint",
				}},
				[13] = {"Circle","Each color has its own function","?"},
				[14] = {"Invisible","?","?"},
				[15] = {"Spiderweb","Teleports you to the spawn point","?"},
			},
			categories = {
				[1] = "Often long maps that, in most of the cases, the players must pass the same obstacles more than once.",
				[2] = "Usually long maps with dodgeable spiderwebs or lavas, sometimes using invisible waters to simule a fly.",
				[3] = "Harder maps that requires multiple skills to be completed.",
				[4] = "Maps that has as main obstacle the water drowning.",
				[5] = "Maps based mainly on lava teleports.",
				[6] = "Maps that requires a new skill, with mechanisms or something that makes you think before act.",
				[7] = "Maps based on speed and agility, built mostly with ice grounds.",
				[8] = "Maps based on snowball mechanisms/technics.",
				[9] = "Maps with different gameplays that doesn't fit any other category, also locates the <i>vanilla maps</i>.",
				[10] = "Soloable (mostly) maps, but with faster paths when the players work together.",
				[11] = "Maps with vampires.",
				[12] = "Houses without gameplay, only a place for noobs.",
			},

			-- Init
			welcome = "Welcome to #%s! Can you be the fastest mouse using the ground effects? Try it!\n<PS>Press H for more info!",
			developer = "Developed by %s",

			-- Shop
			shop = {
				coin = "Coins",
				power = "Ground power",
				upgrade = "Upgrade",
				price = "Upgrade price",
				close = "Close",
			},
			bought = "You just spent %s coins for the ground %s!",
			cantbuy = "You haven't coins enough in order to buy this upgrade! :(",

			-- Profile
			profile = "Leaderboard : %s\n\n<N>Rounds : %s\n<N>Podiums : %s\n\n<N>Deaths : %s\n\n<N>Shop Coins : %s",

			-- Gameplay
			gotcoin = "You just got %s coins! :D",
			zombie = "Now you are a zombie!",
			countstats = {
				mice = "At least 5 mice are needed to stats count",
				tribe = "Stats do not count in tribe houses"
			},

			-- New map
			powersenabled = "The ground powers were enabled! Good luck!",
			tribehouse = "This is a House place. No stats, no gameplay. Enjoy with your friends",

			-- Language
			language = "Current language : <J>%s",

			-- Settings
			password = {
				on = "New password : %s",
				off = "Password disabled!"
			},

			-- Commands
			commands = {
				shop = "shop",
				profile = "profile",
				help = "help",
				langue = "langue",
				leaderboard = "leaderboard",
				info = "info",
				pw = "password",
				mapinfo = "mapinfo",
			},

			-- Menu
			menu = {
				[1] = {"%s","\tYour aim in this minigame is to collect the cheese the faster you can, using the effects each ground offers."},
				[2] = {"Ground effects","Click in the ground's name to read more.\n\n%s"},
				[3] = {"Commands",{
					[1] = {"\t<J>» User</J>\n",{
						[1] = "<VP>!%s</VP> <PS>playerName</PS> <R>or</R> <VP>Key P</VP> - Opens the profile!",
						[2] = "<VP>!%s</VP> <R>or</R> <VP>Key O</VP> - Opens the shop!",
						[3] = "<VP>!%s</VP> - Changes the language!",
					}},
					[2] = {"\n\t<J>» Others</J>\n",{
						[1] = "<VP>!%s</VP> <R>or</R> <VP>Key H</VP> - Opens the help menu!",
						[2] = "<VP>!%s</VP> - Opens the leaderboard!",
						[3] = "<VP>!%s</VP> - Opens the help according to the ground you are on!",
						[4] = "<VP>!%s</VP> - Displays the map info if it is in the rotation!",
					}},
					[3] = {"\n\t<J>» Room admin</J>\n",{
						[1] = "<VP>!%s</VP> <PS>password</PS> - Adds or removes a password in the room!",
					}},
				}},
				[4] = {"Maps","<J>Maps : %s\n\n\tAccess %s and send your map. Do not forget to read all the rules before!"},
				[5] = {"Thanks for","<R>%s <G>- <N>Developer\n%s <G>- <N>Translators\n%s <G>- <N>Map evaluators"},
			},
			max = "15a2df47d2e",
		},
		br = {
			grounds = {
				[0] = {"Madeira","?","?"},
				[1] = {"Gelo","Aumenta sua velocidade ao pressionar a barra de espaço","Aumenta a velocidade em <BL>%s%%</BL>"},
				[2] = {"Trampolim","?","?"},
				[3] = {"Lava","Teletransporta-o para o piso de Z anterior","?"},
				[4] = {"Chocolate","?","?"},
				[5] = {"Terra","?","?"},
				[6] = {"Grama","?","?"},
				[7] = {"Areia","Cria uma tempestade de areia","Diminui a tempestade em <BL>%s%%</BL>"},
				[8] = {"Nuvem","Permite o voo ao pressionar a barra de espaço","Aumenta o voo em <BL>%s%%</BL>"},
				[9] = {"Água","Afoga-o","Afoga-o <BL>%s%%</BL> mais devagar"},
				[10] = {"Pedra","Cria um bloco de pedra ao pressionar a barra de espaço","Aumenta o tamanho do bloco em <BL>%s%%</BL>"},
				[11] = {"Neve","Atira bolas de neve ao pressionar a barra de espaço","Aumenta a velocidade da bola de neve em <BL>%s%%</BL>"},
				[12] = {"Retângulo","Cada cor tem sua própria função","?",{
					["C90909"] = "Mata-o",
					["18C92B"] = "Revive todos os inimigos",
					["555D77"] = "Checkpoint para reviver",
				}},
				[13] = {"Círculo","Cada cor tem sua própria função","?","?"},
				[14] = {"Invisível","?","?"},
				[15] = {"Teia de aranha","Teletransporta-o para o ponto de spawn","?"},
			},
			categories = {
				[1] = "Geralmente mapas longos que, na maioria dos casos, os jogadores devem passar pelo mesmo obstáculo mais de uma vez.",
				[2] = "Geralmente mapas grandes com teias de aranha ou lavas desviáveis, às vezes usando águas invisíveis para simular voo.",
				[3] = "Mapas mais difíceis que requem múltiplas habilidades para serem completados.",
				[4] = "Mapas que tem como obstáculo principal o afogamento na água.",
				[5] = "Mapas baseados principalmente em teleportes de lava.",
				[6] = "Mapas que requerem novas habilidades, com mecanismos ou algo que o faça pensar antes de agir.",
				[7] = "Mapas baseados em velocidade e agilidade, construídos em sua maioria por pisos de gelo.",
				[8] = "Mapas baseados em mecanismos/técnicas com bolas de neve.",
				[9] = "Mapas com gameplays diferentes que não se encaixam em nenhuma outra categoria, também dá espaço aos <i>mapas vanilla</i>.",
				[10] = "Mapas em que você pode completar sozinho (em maioria), mas com caminhos mais rápidos quando há trabalho em equipe entre os jogadores.",
				[11] = "Mapas com vampiros.",
				[12] = "Casas sem jogabilidade, apenas um lugar para noobs.",
			},

			welcome = "Bem-vindo ao #%s! Você pode ser o rato mais rápido usando os efeitos dos pisos? Prove!\n<PS>Pressione H para mais informações!",
			developer = "Desenvolvido por %s",

			shop = {
				coin = "Moedas",
				power = "Poder do piso",
				upgrade = "Melhorar",
				price = "Preço de aprimoramento",
				close = "Fechar",
			},
			bought = "Você acaba de gastar %s moedas pelo piso %s!",
			cantbuy = "Você não tem moedas suficientes para comprar esta atualização! :(",

			profile = "Rank : %s\n\n<N>Partidas : %s\n<N>Pódios : %s\n\n<N>Mortes : %s\n\n<N>Moedas na loja : %s",

			gotcoin = "Você acaba de conseguir %s moedas! :D",
			zombie = "Agora você é um zumbi!",
			countstats = {
				mice = "Ao menos 5 ratos são necessários para as estatísticas serem contabilizadas",
				tribe = "Estatísticas não são contabilizadas em cafofos de tribo"
			},

			powersenabled = "Os poderes dos pisos foram ativados! Boa sorte!",
			tribehouse = "Este lugar é uma casa. Sem estatísticas, sem gameplay. Divirta-se com seus amigos",

			language = "Idioma atual : <J>%s",

			password = {
				on = "Nova senha : %s",
				off = "Senha desativada!"
			},

			commands = {
				shop = "loja",
				profile = "perfil",
				help = "ajuda",
				langue = "idioma",
				leaderboard = "rank",
				info = "info",
				pw = "senha",
			},

			menu = {
				[1] = {"%s","\tSeu objetivo neste mini-game é coletar o queijo o mais rápido possível, utilizando os efeitos que cada piso oferecer."},
				[2] = {"Efeitos dos pisos","Clique no nome do piso para ler mais.\n\n%s"},
				[3] = {"Comandos",{
					[1] = {"\t<J>» Usuário</J>\n",{
						[1] = "<VP>!%s</VP> <PS>nomeDoJogador</PS> <R>ou</R> <VP>Tecla P</VP> - Abre o perfil!",
						[2] = "<VP>!%s</VP> <R>ou</R> <VP>Tecla O</VP> - Abre a loja!",
						[3] = "<VP>!%s</VP> - Altera o idioma!",
					}},
					[2] = {"\n\t<J>» Outros</J>\n",{
						[1] = "<VP>!%s</VP> <R>ou</R> <VP>Tecla H</VP> - Abre o menu de ajuda!",
						[2] = "<VP>!%s</VP> - Abre o ranking!",
						[3] = "<VP>!%s</VP> - Abre a ajuda de acordo com o piso que você está pisando!",
						[4] = "<VP>!%s</VP> - Mostra as informações do mapa se estiver na rotação!",
					}},
					[3] = {"\n\t<J>» Administrador da sala</J>\n",{
						[1] = "<VP>!%s</VP> <PS>senha</PS> - Adiciona ou remove uma senha na sala!",
					}},
				}},
				[4] = {"Mapas","<J>Mapas : %s\n\n\tAcesse %s e envie seu mapa. Não se esqueça de ler todas as regras antes!"},
				[5] = {"Agradecimentos","<R>%s <G>- <N>Desenvolvedor\n%s <G>- <N>Tradutores\n%s <G>- <N>Avaliadores de mapa"},
			},
			max = "15a2df3e699",
		},
		es = {
			grounds = {
				[0] = {"Madera","?","?"},
				[1] = {"Hielo","Incrementa tu velocidad apretando espacio","Aumenta la velocidad en <BL>%s%%</BL>"},
				[2] = {"Trampolín","?","?"},
				[3] = {"Lava","Te teletransporta al suelo que tenga el último Z index","?"},
				[4] = {"Chocolate","?","?"},
				[5] = {"Tierra","?","?"},
				[6] = {"Hierba","?","?"},
				[7] = {"Arena","Crea una tormenta de arena","Disminuye la tormenta en <BL>%s%%</BL>"},
				[8] = {"Nube","Te permite volar presionando espacio","Aumenta el vuelo en <BL>%s%%</BL>"},
				[9] = {"Agua","Te ahogas","Te ahogas <BL>%s%%</BL> más lento"},
				[10] = {"Piedra","Crea un bloque de piedra presionando espacio","Aumenta el tamaño del bloque en <BL>%s%%</BL>"},
				[11] = {"Nieve","Dispara bolas de nieve presionando espacio","Aumenta la velocidad de la bola de nieve en <BL>%s%%</BL>"},
				[12] = {"Rectángulo","Cada color tiene su propia función","?",{
					["C90909"] = "Te mata",
					["18C92B"] = "Revive todos los enemigos",
					["555D77"] = "Respawning Checkpoint", -- *
				}},
				[13] = {"Círculo","Cada color tiene su propia función","?"},
				[14] = {"Invisible","?","?"},
				[15] = {"Tela de araña","Te teletransporta al punto de aparición","?"},
			},
			categories = {
				[1] = "Mapas que, en la mayoría de los casos, los jugadores deben pasar obstaculos más de una vez.",
				[2] = "Usualmente mapas largos con telas de araña y lavas esquivables, algunas veces usando agua invisible para simular un vuelo.",
				[3] = "Mapas difíciles que necesitan una gran habilidad para completarlos.",
				[4] = "Mapas que tienen un obstáculo principal: el agua. ¡Te puedes ahogar!.",
				[5] = "Mapas basados principalmente en teletransportes de lava.",
				[6] = "Mapas que necesitan una nueva habilidad, con mecanismos o algo que te haga pensar antes de actuar.",
				[7] = "Mapas basados en la velocidad del jugador, construidos mayoritariamente con suelos de hielo.",
				[8] = "Mapas basados en mecanismos/técnicas con nieve.",
				[9] = "Mapas con un gameplay diferente que no entran en otra categoría, también localizados en los <i>mapas vanilla</i>.",
				[10] = "Mapas que (mayoritariamente) pueden ser completados solo, pero con patrones rápidos donde los jugadores necesitan trabajar juntos.",
				[11] = "Mapas con vampiros.",
				[12] = "Houses without gameplay, only a place for noobs",
			},

			welcome = "Bienvenido a #%s! Podrás ser el más rápido usando los efectos de los suelos? Inténtalo!\n<PS>Presiona H para más información!",
			developer = "Programado por %s",

			shop = {
				coin = "Monedas",
				power = "Potencia del suelo",
				upgrade = "Mejorar",
				price = "Precio de la mejora",
				close = "Cerrar",
			},
			bought = "Has gastado %s monedas para el suelo %s!",
			cantbuy = "No tienes las suficientes monedas para comprar esta mejora! :(",

			profile = "Tabla de líderes : %s\n\n<N>Rondas : %s\n<N>Podios : %s\n\n<N>Muertes : %s\n\n<N>Monedas : %s",

			gotcoin = "Has obtenido %s monedas! :D",
			zombie = "Ahora eres un Zombi!",
			countstats = {
				mice = "Por lo menos 5 ratones son necesarios para contar estadísticas",
				tribe = "Las estadísticas no cuentan en casas de tribu"
			},

			powersenabled = "Los poderes de los suelos han sido activados! Buena suerte!",
			-- *

			language = "Idioma actual : <J>%s",

			password = {
				on = "Nueva contraseña : %s",
				off = "Contraseña desactivada!"
			},

			commands = {
				shop = "tienda",
				profile = "perfil",
				help = "ayuda",
				langue = "idioma",
				leaderboard = "ranking",
				info = "info",
				pw = "contraseña",
			},

			menu = {
				[1] = {"%s","\tTu objetivo en este juego es agarrar el queso lo más rápido que puedas, usando los efectos que cada suelo ofrece."},
				[2] = {"Efectos de suelo","Clickea en el nombre del suelo para leer más.\n\n%s"},
				[3] = {"Comandos",{
					[1] = {"\t<J>» Usuario</J>\n",{
						[1] = "<VP>!%s</VP> <PS>nombreDeUsuario</PS> <R>o</R> <VP>Tecla P</VP> - Abre el perfil!",
						[2] = "<VP>!%s</VP> <R>o</R> <VP>Tecla O</VP> - Abre la tienda!",
						[3] = "<VP>!%s</VP> - Cambia el idioma!\n",
					}},
					[2] = {"\t<J>» Otros</J>\n",{
						[1] = "<VP>!%s</VP> <R>o</R> <VP>Tecla H</VP> - Abre el menu de ayuda!",
						[2] = "<VP>!%s</VP> - Abre el ranking!",
						[3] = "<VP>!%s</VP> - Abre la guía del suelo en el que estás!",
						[4] = "<VP>!%s</VP> - Muestra la información del mapa si está en la rotación!",
					}},
					[3] = {"\n\t<J>» Admin de la sala</J>\n",{
						[1] = "<VP>!%s</VP> <PS>contraseña</PS> - Activa o desactiva la contraseña en la sala.",
					}},
				}},
				[4] = {"Mapas","<J>Mapas : %s\n\n\tEntra a %s y envía tu mapa. No olvides leer las reglas antes!"},
				[5] = {"Agradecimientos","<R>%s <G>- <N>Programador\n%s <G>- <N>Traductores\n%s <G>- <N>Evaluadores de mapas"},
			},
			max = "15a2df3e699",
		},
		fr = {
			grounds = {
				[0] = {"Bois","?","?"},
				[1] = {"Glace","Augmente votre vitesse en appuyant sur Espace","Augmente la vitesse de <BL>%s%%</BL>"},
				[2] = {"Trampoline","?","?"},
				[3] = {"Lave","Vous téléporte au sol avec le dernier indice Z","?"},
				[4] = {"Chocolat","?","?"},
				[5] = {"Terre","?","?"},
				[6] = {"Herbe","?","?"},
				[7] = {"Sable","Crée une tempête de sable","Diminue la tempête de <BL>%s%%</BL>"},
				[8] = {"Nuage","Vous donne la possibilité de voler en appuyant sur Espace","Augmente le vol de <BL>%s%%</BL>"},
				[9] = {"Eau","Vous noie","Vous noie <BL>%s%%</BL> plus lentement"},
				[10] = {"Pierre","Crée un bloc de pierre en appuyant sur Espace","Augmente la taille du bloc de <BL>%s%%</BL>"},
				[11] = {"Neige","Tire des boules de neige en appuyant sur Espace","Augmente la vitesse de la boule de neige de <BL>%s%%</BL>"},
				[12] = {"Rectangle","Chaque couleur a sa propre fonction","?",{
					["C90909"] = "Te tue",
					["18C92B"] = "Ressuscite tous les ennemis",
					["555D77"] = "Respawning Checkpoint", -- *
				}},
				[13] = {"Cercle","Chaque couleur a sa propre fonction","?"},
				[14] = {"Invisible","?","?"},
				[15] = {"Toile d'araignée","Vous téléporte au point de spawn","?"},
			},
			-- *

			welcome = "Bienvenue à #%s! Pouvez vous être la souris la plus rapide grâce aux effets des sols? Essayez!\n<PS>Appuyez sur H pour plus d'informations!",
			developer = "Développé par %s",

			shop = {
				coin = "Pièces",
				power = "Force du sol",
				upgrade = "Améliorer",
				price = "Coût d'amélioration",
				close = "Fermer",
			},
			bought = "Vous venez de dépenser %s pièces pour le sol %s!",
			cantbuy = "Vous n'avez pas assez de pièces pour acheter cette amélioration! :(",

			profile = "Leaderboard : %s\n\n<N>Parties : %s\n<N>Podiums : %s\n\n<N>Morts : %s\n\n<N>Shop Pièces : %s",

			gotcoin = "Vous venez de recevoir %s pièces! :D",
			countstats = {
				mice = "Au moins 5 souris sont nécessaires pour que les statistiques comptent",
				tribe = "Les statistiques ne comptent pas en maison de tribu"
			},
			zombie = "Vous êtes maintenant un zombie!",

			powersenabled = "Les pouvoirs des sols ont été activés! Bonne chance!",
			-- *

			language = "Langage actuel : <J>%s",

			password = {
				on = "Nouveau mot de passe : %s",
				off = "Mot de passe désactivé!"
			},

			commands = {
				shop = "magasin",
				profile = "profil",
				help = "aide",
				langue = "langue",
				leaderboard = "leaderboard",
				info = "info",
				pw = "password",
			},

			menu = {
				[1] = {"%s","\tVotre but dans ce minijeu est de collecter le fromage aussi vite que possible, en utilisant les effets des différents sols."},
				[2] = {"Effets du sol","Clique sur le nom du salon pour en lire plus.\n\n%s"},
				[3] = {"Commandes",{
					[1] = {"\t<J>» Joueur</J>\n",{
						[1] = "<VP>!%s</VP> <PS>playerName</PS> <R>ou</R> <VP>Touche P</VP> - Ouvre le profil !",
						[2] = "<VP>!%s</VP> <R>ou</R> <VP>Touche O</VP> - Ouvre le magasin !",
						[3] = "<VP>!%s</VP> - Change la langue !\n",
					}},
					[2] = {"\t<J>» Autres</J>\n",{
						[1] = "<VP>!%s</VP> <R>ou</R> <VP>Touche H</VP> - Ouvre le menu d'aide !",
						[2] = "<VP>!%s</VP> - Ouvre le leaderboard!",
						[3] = "<VP>!%s</VP> - Ouvre l'aide en fonction du sol sur lequel vous vous trouvez!",
						[4] = "<VP>!%s</VP> - Affiche les informations de la carte si elle est dans la rotation!"
					}},
					[3] = {"\n\t<J>» Place admin</J>\n",{
						[1] = "<VP>!%s</VP> <PS>mot de passe</PS> - Ajoute ou supprime un mot de passe dans la chambre.",
					}},
				}},
				[4] = {"Cartes","<J>Cartes : %s\n\n\tAccédez à %s et envoyez votre carte. N'oubliez pas de lire toutes les règles avant!"},
				[5] = {"Merci à","<R>%s <G>- <N>Développeur\n%s <G>- <N>Traducteurs\n%s <G>- <N>Evaluateurs de maps"},
			},
			-- *
		},
		pl = {
			grounds = {
				[0] = {"Drewno","?","?"},
				[1] = {"Lód","Zwiększa twoją szybkość, gdy klikasz spację","Zwiększa prędkość w <BL>%s%%</BL>"},
				[2] = {"Trampolina","?","?"},
				[3] = {"Lawa","Przenosi ciebie do ostatniego indexu Z","?"},
				[4] = {"Czekolada","?","?"},
				[5] = {"Ziemia","?","?"},
				[6] = {"Trawa","?","?"},
				[7] = {"Piasek","Tworzy burzę piaskową","Zmniejsza storm w <BL>%s%%</BL>"},
				[8] = {"Chmura","Pozwala tobie latać, gdy klikasz spację","Zwiększa latanie w <BL>%s%%</BL>"},
				[9] = {"Woda","Topi ciebie","Topi <BL>%s%%</BL> wolniej"},
				[10] = {"Kamień","Powoduje, że możesz stworzyć blok kamienia, wciskając spację","Zwiększa wielkość bloku w <BL>%s%%</BL>"},
				[11] = {"Śnieg","Powoduje, że możesz strzelić śnieżką, wciskając spację","Zwiększa prędkość śnieżki w <BL>%s%%</BL>"},
				[12] = {"Trójkąt","Każdy kolor ma swoją funkcję","?",{
					["C90909"] = "Zabija ciebie",
					["18C92B"] = "Ożywia wszystkich przeciwników",
					["555D77"] = "Ponowne spawnowanie Checkpointów",
				}},
				[13] = {"Koło","Każdy kolor ma swoją funkcję","?"},
				[14] = {"Niewidzialność","?","?"},
				[15] = {"Pajęcza sieć","Przenosi ciebie do miejsca spawnu","?"},
			},
			categories = {
				[1] = "Często długie mapy, w większości przypadków, gracze muszą przejść takie same przeszkody.",
				[2] = "Zwyczajnie długie mapy z lawami i pajęczynami, czasami używana woda aby zasymulować latanie.",
				[3] = "Trudniejsze mapy, które wymagają większej ilości zdolności, aby zostały ukończone.",
				[4] = "Mapy, które jako główną mapę mają wodę, w której myszki się topią.",
				[5] = "Mapy bazowane głównie na teleportacji z lawy.",
				[6] = "Mapy, które wymagają nowej zdolności, z mechanizmem albo czymś co powoduje, że musisz myśleć zanim coś zrobisz.",
				[7] = "Mapy bazowane na szybkości i zwinności, budowane najczęsciej z gruntów lodu.",
				[8] = "Mapy bazowane na technikach/mechanikach śnieżnych kulek.",
				[9] = "Mapy z zupełnie inną rozgrywką niż inne kategorie, również znaduje się w <I>mapach vanilliowych</I>.",
				[10] = "Mapy (w większości) zdolne do przejścia samemu, ale szybciej się ją przechodzi gdy gracze pracują wspólnie.",
				[11] = "Mapy z wampirami.",
				[12] = "Chatki plemienne bez rozgrywki, są miejscem tylko dla noobków.",
			},

			welcome = "Witaj w #%s! Możesz zostać najszybszą myszką, używając moce gruntów? Spróbuj!\n<PS>Wciśnij H, aby otrzymać więcej informacji!",
			developer = "Stworzone przez %s",

			shop = {
				coin = "Kredyty",
				power = "Moc gruntu",
				upgrade = "Ulepsz",
				price = "Cena ulepszenia",
				close = "Zamknij",
			},
			bought = "Wydałeś %s monet na %s!",
			cantbuy = "Nie masz wystarczającej ilości monet, żeby zakupić to ulepszenie! :(",

			profile = "Ranking : %s\n\n<N>Rund : %s\n<N>Podia : %s\n\n<N>Zgony : %s\n\n<N>Monety : %s",

			gotcoin = "Masz %s monet! :D",
			zombie = "Zostałeś/-aś zombie!",
			countstats = {
				mice = "Przynajmniej 5 myszek jest potrzebnych aby statystyki były naliczane",
				tribe = "Statystyki nie są naliczane w chatkach plemiennych"
			},

			powersenabled = "Moce gruntów są włączone! Powodzenia!",
			tribehouse = "To jest miejsce chatki plemiennej. Bez statystyk, bez rozgrywki. Ciesz się ze swoimi znajomymi.",

			language = "Bieżący język : <J>%s",

			password = {
				on = "Nowe hasło : %s",
				off = "Hasło wyłączone!"
			},

			commands = {
				shop = "sklep",
				profile = "profil",
				help = "pomoc",
				langue = "język",
				leaderboard = "ranking",
				info = "informacje",
				pw = "hasło",
			},

			menu = {
				[1] = {"%s","\tTwoim zadaniem w tej minigrze jest zbieranie serka najszybciej jak potrafisz, wykorzystując moce gruntów."},
				[2] = {"Moce gruntu","Kliknij w nazwę gruntu, żeby uzyskać więcej informacji.\n\n%s"},
				[3] = {"Komendy",{
					[1] = {"\t<J>» Użytkowe</J>\n",{
						[1] = "<VP>!%s</VP> <PS>nazwaGracza</PS> <R>albo</R> <VP>Klawisz P</VP> - Otwiera profil!",
						[2] = "<VP>!%s</VP> <R>albo</R> <VP>Klawisz O</VP> - Otwiera Sklep!",
						[3] = "<VP>!%s</VP> - Zmienia język!",
					}},
					[2] = {"\t<J>» Inne</J>\n",{
						[1] = "<VP>!%s</VP> <R>albo</R> <VP>Klawisz H</VP> - Otwiera pomoc!",
						[2] = "<VP>!%s</VP> - Otwiera ranking!",
						[3] = "<VP>!%s</VP> - Otwiera pomoc zależnie, na którym gruncie jesteś!",
						[4] = "<VP>!%s</VP> - Pokazuje informacje o mapie jeżeli jest w rotacji!",
					}},
					[3] = {"\n\t<J>» Pokój z adminem</J>\n",{
						[1] = "<VP>!%s</VP> <PS>hasło</PS> - Dodaje lub usuwa hasło w pokoju.",
					}},
				}},
				[4] = {"Mapy","<J>Mapy : %s\n\n\tStwórz %s i prześlij swoją mapę. Nie zapomnij, aby najpierw przeczytać zasady!"},
				[5] = {"Podziękowania","<R>%s <G>- <N>Twórca\n%s <G>- <N>Tłumacze\n%s <G>- <N>Testerzy map"},
			},
			max = "15a2df4de75",
		},
		hu = {
			grounds = {
				[0] = {"Fa","?","?"},
				[1] = {"Jég","Növeli a sebességedet, ha megnyomod a Szóközt","Növeli a sebességet <BL>%s%%</BL>-kal"},
				[2] = {"Trambulin","?","?"},
				[3] = {"Láva","Elteleportál téged a legutóbbi Z index talajhoz","?"},
				[4] = {"Csoki","?","?"},
				[5] = {"Föld","?","?"},
				[6] = {"Füves talaj","?","?"},
				[7] = {"Homok","Homokvihart hoz létre","Csökkenti a sebességet <BL>%s%%</BL>-kal"},
				[8] = {"Felhő","Lehetővé teszi számodra a repülést, ha megnyomod a Szóközt","Növeli a repülést <BL>%s%%</BL>-kal"},
				[9] = {"Víz","Megfullaszt téged","Megfullaszt <BL>%s%%</BL>-kal lassabban"},
				[10] = {"Kő","Egy kőtömböt hoz létre, ha megnyomod a Szóközt","Növeli a blokk méretét <BL>%s%%</BL>-kal"},
				[11] = {"Hó","Hógolyót lő, ha megnyomod a Szóközt","Növeli a hógolyó sebességét <BL>%s%%</BL>-kal"},
				[12] = {"Téglalap","Mindegyik színnek megvan a saját szerepe","?",{
					["C90909"] = "Megöl téged",
					["18C92B"] = "Újraéleszti az összes ellenséget",
					["555D77"] = "Újraéledő Ellenőrzőpont",
				}},
				[13] = {"Kör","Mindegyik színnek megvan a saját szerepe","?"},
				[14] = {"Láthatatlan","?","?"},
				[15] = {"Pókháló","Elteleportál téged a kezdőpontra","?"},
			},
			-- *

			welcome = "Üdvözöllek a #%s! Sikerül neked a leggyorsabb egérré válni a talajhatások használatával? Próbáld ki!\n<PS>Nyomd meg a H betűt több információért!",
			developer = "Fejlesztve %s által",

			shop = {
				coin = "Pénzérmék",
				power = "Talaj ereje",
				upgrade = "Frissítés",
				price = "Ár frissítése",
				close = "Bezárás",
			},
			bought = "Te most költöttél el %s pénzt a talajra %s!",
			cantbuy = "Nincs elég pénzed ahhoz, hogy megvedd ezt a frissítést! :(",

			profile = "Ranglista : %s\n\n<N>Körök : %s\n<N>Dobogók : %s\n\n<N>Halálozások : %s\n\n<N>Bolti pénz : %s",

			gotcoin = "Te most szereztél %s pénzt! :D",
			zombie = "Most egy zombi vagy!",
			countstats = {
				mice = "Legalább 5 egérnek kell lennie, hogy statisztikát lehessen számolni",
				tribe = "A statisztika nem számít a törzsházakban"
			},

			powersenabled = "A talajhatások engedélyezve lettek! Sok szerencsét!",
			-- *

			language = "Jelenlegi nyelv : <J>%s",

			password = {
				on = "Új jelszó : %s",
				off = "Jelszó letiltva!"
			},

			commands = {
				shop = "bolt",
				profile = "profil",
				help = "súgó",
				langue = "nyelv",
				leaderboard = "ranglistát",
				info = "infó",
				pw = "jelszó",
			},

			menu = {
				[1] = {"%s","\tA te feladatod ebben a minijátékban az, hogy a lehető leggyorsabban összegyűjtsd a sajtot a talajhatások használatával."},
				[2] = {"Talajhatások","Kattints a talaj nevére, hogy több mindent megtudhass.\n\n%s"},
				[3] = {"Parancsok",{
					[1] = {"\t<J>» Felhasználó</J>\n",{
						[1] = "<VP>!%s</VP> <PS>játékosNeve</PS> <R>vagy</R> <VP>P billenytű</VP> - Megnyitja a profilt!",
						[2] = "<VP>!%s</VP> <R>vagy</R> <VP>O billentyű</VP> - Megnyitja a boltot!",
						[3] = "<VP>!%s</VP> - Megváltoztatja a nyelvet!\n",
					}},
					[2] = {"\t<J>» Egyebek</J>\n",{
						[1] = "<VP>!%s</VP> <R>vagy</R> <VP>H billentyű</VP> - Megnyitja a Súgó menüpontot!",
						[2] = "<VP>!%s</VP> - Megnyitja a ranglistát!",
						[3] = "<VP>!%s</VP> - Megnyitja a Súgót aszerint, amelyik talajon állsz!",
						[4] = "<VP>!%s</VP> - Displays the map info if it is in the rotation!",
					}},
					[3] = {"\n\t<J>» Szoba admin</J>\n",{
						[1] = "<VP>!%s</VP> <PS>jelszó</PS> - Bekapcsolja vagy kikapcsolja a jelszót a szobában!",
					}},
				}},
				[4] = {"Pályák","<J>Pályák : %s\n\n\tEngedélyezd a %s és küldd be a pályádat. Előtte ne felejtsd el elolvasni az összes szabály!"},
				[5] = {"Köszönet","<R>%s - Nak <G>- <N>Fejlesztő\n%s <G>- <N>Fordítók\n%s <G>- <N>Pálya értékelők"},
			},
			-- *
		},
		ar = {
			grounds = {
				[0] = {"خشب","?","?"},
				[1] = {"جليد","تزيد من سرعتك عند الضغط على زر المسطرة","يزيد من السرعة ب <BL>%s%%</BL>"},
				[2] = {"الترامبولين","?","?"},
				[3] = {"الحمم","تنقلك إلى الأرضية التي لديها اَخر رقم في الـ Z","?"},
				[4] = {"الشوكولاته","?","?"},
				[5] = {"الأرض","?","?"},
				[6] = {"العشب","?","?"},
				[7] = {"الرمل","تصنع عاصفة رملية","يقلل من العاصفة ب <BL>%s%%</BL>"},
				[8] = {"غيمة","تجعلك تطير عن طريق الضغط على زر المسطرة","يزيد من الطيران ب <BL>%s%%</BL>"},
				[9] = {"المياه","تغرقك","يغرقك <BL>%s%%</BL> ببطئ"},
				[10] = {"الحجارة","تصنع حاجو من الحجارة عن طريق الضغط على زر المسطرة","يزيد من حجم الارضية ب <BL>%s%%</BL>"},
				[11] = {"الثلج","تطلق كرات ثلجية عن طريق الضغط على زر المسطرة","يزيد من سرعة كرة الثلج ب <BL>%s%%</BL>"},
				[12] = {"مستطيل","كل لون له قوته الخاصة","?",{
					["C90909"] = "يقتلك",
					["18C92B"] = "إعادة الحياة إلى جميع أعدائك",
					["555D77"] = "نقطة العودة للحياة",
				}},
				[13] = {"الدائرة","كل لون له قوته الخاصة","?"},
				[14] = {"الإختفاء","?","?"},
				[15] = {"شبكة العنكبوت","تنقلك إلى نقطة البداية","?"},
			},
			-- *

			welcome = "مرحبا إلى #%s! هل يمكنك أن تكون أسرع فأر يستعمل قوى الأرض؟ قم بتجربتها!\n<PS>اضغط على الزر H لمعرفة المزيد!",
			developer = "مبرمجة من قبل %s",

			shop = {
				coin = "النقود",
				power = "طاقة الارضية",
				upgrade = "ترقية",
				price = "ترقبة السعر",
				close = "اغلاق",
			},
			bought = "لقد قمت بإستعمال %s من النقود من أجل الأرضية %s!",
			cantbuy = "لا تملك النقود الكافية لشراء هذا! :(",

			profile = "لائحة المتقدمين : %s\n\n<N>الجولات : %s\n<N>المناصب : %s\n\n<N>الموت : %s\n\n<N>نقود المتجر : %s",

			gotcoin = "لقد حصلت على %s نقود! :D",
			zombie = "أصبحت الأن ميت حي!",
			countstats = {
				mice = "تحتاج الاقل ل 5 فئران لاحصائيات الاعتماد",
				tribe = "الاحصائيات لا تحسب بمنزل القبيلة"
			},

			powersenabled = "تم تفعيل قوى الأرض! حظا موفقا!",
			-- *

			language = "اللغة الحالية : <J>%s",

			password = {
				on = "جديدة سر كلمة : %s",
				off = "السر كلمة تعطيل!"
			},

			commands = {
				shop = "المتجر",
				profile = "لاعب",
				help = "المساعدة",
				langue = "اللغة",
				leaderboard = "مراكز",
				info = "معلومة",
				pw = "password",
			},

			menu = {
				[1] = {"%s","\tما عليك فعله في هذه اللعبة هو جمع الجبن بأسرع ما يمكن يمكنك إستخدام القوى التي  توفرها لك الأرضيات."},
				[2] = {"تأثيرات الأراضي","أنقر على إسم الأرضية لمعرفة المزيد عنها\n\n%s"},
				[3] = {"الأوامر",{
					[1] = {"\t<J>» اللاعب</J>\n",{
						[1] = "<VP>!%s</VP> <PS>إسم اللاعب</PS> <R>أو</R> <VP>زر P</VP> - لفتح الملف الشخصي!",
						[2] = "<VP>!%s</VP> <R>أو</R> <VP>الزر O</VP> - لفتح المتجر!",
						[3] = "<VP>!%s</VP> - لتغيير اللغة!\n",
					}},
					[2] = {"\t<J>» البقية</J>\n",{
						[1] = "<VP>!%s</VP> <R>أو</R> <VP>الزر H</VP> - لقتح لائحة المساعدة!",
						[2] = "<VP>!%s</VP> - فتح قائمة المراكز!",
						[3] = "<VP>!%s</VP> - فتح المساعدة وفقا للمكان الذي انت عليه!",
						[4] = "<VP>!%s</VP> - يعرض معلومات الخريطة إذا كانت في دوران",
					}},
					[3] = {"\n\t<J>» مشرف غرفة</J>\n",{
						[1] = "<VP>!%s</VP> <PS>سر كلمة</PS> - إضافة أو إزالة كلمة مرور في الغرفة!",
					}},
				}},
				[4] = {"الخرائط","<J>الخرائط : %s\n\n\tتفعيل %s وأرسل الخارطة. لا تنسى قراءة القوانين!"},
				[5] = {"شكرا لـ","<R>%s <G>- <N>المبرمج\n%s <G>- <N>مترجمون\n%s <G>- <N>مقيموا الخرائط"},
			},
			-- *
		},
		nl = {
			grounds = {
				[0] = {"Hout","?","?"},
				[1] = {"Ijs","Verhoogt je snelheid door op de spatiebalk te drukken","Verhoogd de snelheid met <BL>%s%%</BL>"},
				[2] = {"Trampoline","?","?"},
				[3] = {"Lava","Teleport jou naar de laatst Z index grond","?"},
				[4] = {"Chocolade","?","?"},
				[5] = {"Aarde","?","?"},
				[6] = {"Gras","?","?"},
				[7] = {"Zand","Maakt een zandstorm","Vemindert de storm met <BL>%s%%</BL>"},
				[8] = {"Wolk","Hiermee kun je vliegen door op de spatiebalk te drukken","Verhoogd de vlucht met <BL>%s%%</BL>"},
				[9] = {"Water","Laat je verdrinken","Maakt je <BL>%s%%</BL> langzamer"},
				[10] = {"Steen","Hiermee maak je een blok steen door op de spatiebalk te drukken","Vergroot de grootte van het blok met <BL>%s%%</BL>"},
				[11] = {"Sneeuw","Schiet sneeuwballen door op de spatiebalk te drukken","Verhoogd de snelheid van de sneeuwbal met <BL>%s%%</BL>"},
				[12] = {"Rechthoek","Elke kleur heeft zijn eigen functie","?",{
					["C90909"] = "Vermoordt jou",
					["18C92B"] = "Brengt alle tegenstanders weer tot leven",
					["555D77"] = "Respawning Checkpoint", -- *
				}},
				[13] = {"Cirkel","Elke kleur heeft zijn eigen functie","?"},
				[14] = {"Onzichtbaar","?","?"},
				[15] = {"Spinnenweb","Teleport je naar het beginpunt","?"},
			},
			-- *


			welcome = "Welkom bij #%s! Ben jij de snelste muis door grond effecten te gebruiken? Probeer het!",
			developer = "Gemaakt door %s",

			shop = {
				coin = "Munten",
				power = "Grondkracht",
				upgrade = "Upgraden",
				price = "Upgrade kosten",
				close = "Sluit",
			},
			bought = "Je gaf net %s munten uit voor de grond %s!",
			cantbuy = "Je hebt niet genoeg munten om deze upgrade uit te voeren! :(",

			profile = "Ranglijst : %s\n\n<N>Rondes : %s\n<N>Podiums : %s\n\n<N>Sterfgevallen : %s\n\n<N>Winkel Munten : %s",

			gotcoin = "Je kreeg zojuist %s munten! :D",
			zombie = "Nu ben je een zombie!",
			countstats = {
				mice = "Er zijn minstens 5 muizen nodig voordat de stats tellen",
				tribe = "Stats tellen niet in stamhuizen"
			},

			powersenabled = "De grondkrachten zijn ingeschakeld! Succes!",
			-- *

			language = "Huidige taal : <J>%s",

			password = {
				on = "Nieuwe wachtwoord : %s",
				off = "Wachtwoord uitgezet!"
			},

			commands = {
				shop = "winkel",
				profile = "profiel",
				help = "help",
				langue = "taal",
				leaderboard = "leaderboard",
				info = "info",
				pw = "wachtwoord",
			},

			menu = {
				[1] = {"%s","\tJouw doel is om zoveel mogelijk kaas te verzamelen, met gebruik van verschillende grond-effecten."},
				[2] = {"Grond effecten","Klik op de grond om meer info te lezen.\n\n%s"},
				[3] = {"Commands",{
					[1] = {"\t<J>» User</J>\n",{
						[1] = "<VP>!%s</VP> <PS>playerName</PS> <R>or</R> <VP>Key P</VP> - Opent het profiel!",
						[2] = "<VP>!%s</VP> <R>or</R> <VP>Key O</VP> - Opent de winkel!",
						[3] = "<VP>!%s</VP> - Wijzigt de taal!\n",
					}},
					[2] = {"\t<J>» Others</J>\n",{
						[1] = "<VP>!%s</VP> <R>or</R> <VP>Key H</VP> - Opent de Help menu!",
						[2] = "<VP>!%s</VP> - Opent de leaderboard!",
						[3] = "<VP>!%s</VP> - Opent help op basis van de grond waarop je staat!",
						[4] = "<VP>!%s</VP> - Displays the map info if it is in the rotation!", -- *
					}},
					[3] = {"\n\t<J>» Kamer admin</J>\n",{
						[1] = "<VP>!%s</VP> <PS>wachtwoord</PS> - Voegt of haalt een wachtwoord weg van een kamer!",
					}},
				}},
				[4] = {"Maps","<J>Maps : %s\n\n\tBereik %s en verzend jouw map. Vergeet niet om alle regels te lezen voordat je begint!"},
				[5] = {"Dank aan","<R>%s <G>- <N>Developer\n%s <G>- <N>Translators\n%s <G>- <N>Mapbeoordelaars"},
			},
			-- *
		},
		de = {
			grounds = {
				[0] = {"Holz","?","?"},
				[1] = {"Eis","Beschleunigt dich indem du die Leertaste drückst","Erhoht die geschwindigkeit in <BL>%s%%</BL>"},
				[2] = {"Trampoline","?","?"},
				[3] = {"Lava","Teleportiert dich zum letzen Z Index Boden","?"},
				[4] = {"Schokolade","?","?"},
				[5] = {"Erde","?","?"},
				[6] = {"Gras","?","?"},
				[7] = {"Sand","Kreiert einen Sandsturm","Verringert die sturm in <BL>%s%%</BL>"},
				[8] = {"Wolke","Du kannst fliegen indem du die Leertaste drückst","Erhoht die fliege in <BL>%s%%</BL>"},
				[9] = {"Wasser","Ertränkt dich","Ertrinkt dich <BL>%s%%</BL> langsamer"},
				[10] = {"Stein","Erschaffe einen Stein indem du die Leertaste drückst","Erhoht die blockgrosse in <BL>%s%%</BL>"},
				[11] = {"Schnee","Wirf Schneebälle indem du die Leertaste drückst","Erhoht die schneeball geschwindigkeit in <BL>%s%%</BL>"},
				[12] = {"Rechteck","Jede Farbe hat seine eigene Funktion","?",{
					["C90909"] = "Tötet du",
					["18C92B"] = "Aufleben alle Feinde",
					["555D77"] = "Respawning Checkpoint", -- *
				}},
				[13] = {"Kreis","Jede Farbe hat seine eigene Funktion","?"},
				[14] = {"Unsichtbar","?","?"},
				[15] = {"Spinnweben","Teleportiert dich zum Startpunkt","?"},
			},
			-- *

			welcome = "Willkommen zu #%s! Kannst du die schnellste Maus mit den Bodeneffekten sein? Versuch es!\n<PS>Drück H für mehr informationen!",
			developer = "Entwickelt von %s",

			shop = {
				coin = "Munzen",
				power = "Bodenleistung",
				upgrade = "Aktualisierung",
				price = "Upgrade Preis",
				close = "Schliessen",
			},
			bought = "Du hast %s Münzen für den Boden %s ausgegeben!",
			cantbuy = "Du hast nicht genügend Münzen um dieses Upgrade zu kaufen! :(",

			profile = "Bestenliste : %s\n\n<N>Runden: %s\n<N>Podiums: %s\n\n<N>Tode : %s\n\n<N>Shop Münzen: %s",

			gotcoin = "Du hast soeben %s Münzen erhalten! :D",
			zombie = "Du bist nun ein Zombie!",
			countstats = {
				mice = "Es müssen mindestens 5 Mäuse im Raum sein damit die Stats zählen",
				tribe = "Stats zählen in Stammeshäusern nicht"
			},

			powersenabled = "Der Effekt des Bodens wurde aktiviert! Viel Glück!",
			-- *

			language = "Aktuelle Sprache : <J>%s",

			password = {
				on = "Neu passwort: : %s",
				off = "Passwort deaktiviert!"
			},

			commands = {
				shop = "shop",
				profile = "profil",
				help = "hilfe",
				langue = "sprache",
				leaderboard = "bestenliste",
				info = "info",
				pw = "passwort",
			},

			menu = {
				[1] = {"%s","\tDein Ziel in diesem Minigame ist es den Käse so schnell wie möglich zu sammeln, indem du die verschiedenen Effekte der Böden ausnutzt."},
				[2] = {"Bodeneffekte","Klicken in den bodens namen um mehr zu lesen.\n\n%s"},
				[3] = {"Kommandos",{
					[1] = {"\t<J>» Benutzer</J>\n",{
						[1] = "<VP>!%s</VP> <PS>Spielername</PS> <R>oder</R> <VP>Taste P</VP> - Öffnet das Profil!",
						[2] = "<VP>!%s</VP> <R>oder</R> <VP>Taste O</VP> - Öffnet den Shop!",
						[3] = "<VP>!%s</VP> - Ändert die Sprache!\n",
					}},
					[2] = {"\t<J>» Anderes</J>\n",{
						[1] = "<VP>!%s</VP> <R>oder</R> <VP>Taste H</VP> - Öffnet das Hilfsmenu!",
						[2] = "<VP>!%s</VP> - Öffnet die Bestenliste!",
						[3] = "<VP>!%s</VP> - Öffnet die hilfe nach dem boden auf dem du bist auf!",
						[4] = "<VP>!%s</VP> - Displays the map info if it is in the rotation!", -- *
					}},
					[3] = {"\n\t<J>» Zimmer admin</J>\n",{
						[1] = "<VP>!%s</VP> <PS>passwort</PS> - Hinzufugen oder entfernen eines passwortes im raum!",
					}},
				}},
				[4] = {"Maps","<J>Maps : %s\n\n\tBesuche das Thema %s und reiche deine Map ein. Vergiss nicht zuvor alle Regeln zu lesen!"},
				[5] = {"Danke an ","<R>%s <G>- <N>Entwickler\n%s <G>- <N>Übersetzer\n%s <G>- <N>Landkarte bewerter"},
			},
			-- *
		},
	},
	langue = "en",
	-- Info
	staff = {
		translators = {
			-- Name, Languages
			{"Bolodefchoco",{"EN","BR"}},
			{"Distances","NL"},
			{"Tocutoeltuco","ES"},
			{"Sebafrancuz","PL"},
			{"Doriiarvai","HU"},
			{"Error_404","AR"},
			{"Cheeselicious","NL"},
			{"Archaeron","DE"},
			{"Aewing","FR"},
			{"Fashionkid","DE"},
			{"Yuir","ES"},
			{"Mquk","FR"}
		},
		mapEvaluators = {
			-- Name, Joined
			{"Bolodefchoco","14/02/2017"},
			{"Error_404","11/03/2017"}
		},
	},
	-- Data
	bindKeys = {0,1,2,3,stringbyte("OPHK",1,4)},
	info = {},
	stormIntensities = {
		--[[ Opaque images
			[1] = "15a6d6fcd18",
			[2] = "15a6d6ff82f",
			[4] = "15a6d7015bc",
			[8] = "15a6d703149"
		]]
		[1] = .75,
		[2] = .65,
		[4] = .5,
		[8] = .25
	},
	-- Maps (G Categories)
	maps = {},
	G = {
		--[[
			name = catName,
			queue{maps},
			id = 1,
			icon = {iconImage,x axis (from 360),y axis (from 123)}
			color = catColor,
			before = function executed before the map,
			after = function executed after the map
		]]--
		[1] = {
			name = "Circuit",
			queue = {3099763,4612510,7078090,4493715,7102175,5921816,7127261,7102187},
			id = 1,
			icon = {"15c60371706",0,-1},
			color = "9A9ACE",
		},
		[2] = {
			name = "Flap Bird",
			queue = {7069835,2265250,6300148,5921754,2874090,2310427},
			id = 1,
			icon = {"15c603730a6",0,0},
			color = "E084D4",
		},
		[3] = {
			name = "Bootcamp",
			queue = {4592612,7079708,5921867,7087840,6391815,7090909,7011800,7069314,6333026,6000012,6990787,7100040},
			id = 1,
			icon = {"15c60382627",-5,-5},
			color = "A4CF9E",
		},
		[4] = {
			name = "Aquatic",
			queue = {6133469,3324284,6578479,7095393,5772226,2310447},
			id = 1,
			icon = {"15c603788c1",0,0},
			color = "2194D9",
		},
		[5] = {
			name = "Teleport",
			queue = {5168440,6987992,7069343,6945850,7090907,3326655,7069816,5921744,7071075,7071400,4509060,7118888},
			id = 1,
			icon = {"15c60376d57",2,-1},
			color = "E29E71",
		},
		[6] = {
			name = "Puzzle",
			queue = {5993927,7057010,5507021,6994066,6332986,7074686,3448597,2887357,6576282,4514386,7079827,7079880},
			id = 1,
			icon = {"15c6037edb7",0,-1},
			color = "CB56D8",
		},
		[7] = {
			name = "Racing",
			queue = {4140491,3324180,6564380,6600268,6987993,6726599,2283901,6568120,4055924,4361785,3851416,7079644,6347093,6620004,7086768,6797243,2030030,5198518,6230212,6340023,7069304,4362362,5981054,4364504,7086737,6623930},
			id = 1,
			icon = {"15c6037ccd7",-5,-5},
			color = "9DBCF2",
		},
		[8] = {
			name = "Snow",
			queue = {4396371,5632126,7079092,4531989,4509584},
			id = 1,
			icon = {"15c6037b089",5,1},
			color = "C4F4F6",
			after = function()
				if os.date("%m") == "12" then
					tfm.exec.chatMessage("<PS>Merry christmas :)")
					tfm.exec.snow(60)
				end
			end,
		},
		[9] = {
			name = "Miscellaneous",
			queue = {6226386,5425815,7047955,6558179,6961916,6968299,6935117,4802574,7087798,6335452,7093647,7145064},
			id = 1,
			icon = {"15c6036fb66",-10,-2},
			color = "DED963",
		},
		[10] = {
			name = "Cooperation",
			queue = {3326675,4184558,5198607,6988672},
			id = 1,
			icon = {"15c60374f1f",-3,-1},
			color = "2EBA7E",
		},
		[11] = {
			name = "Vampire",
			queue = {5043429,4361619,4633670},
			id = 1,
			icon = {"15c60380b12",-10,-5},
			color = "CB546B",
			after = function()
				if os.date("%m") == "10" then
					tfm.exec.chatMessage("<R>Happy Halloween :>")
				end
			end,
		},
		[12] = {
			name = "House",
			queue = {510966},
			id = 1,
			icon = {"15cb6dbea83",-8,-4},
			color = "D1AB83",
			after = function()
				tfm.exec.setGameTime(1800) -- 30 minutes
				tfm.exec.chatMessage("<ROSE>" .. system.getTranslation("tribehouse"))
			end,
		},
	},
	rotation = {1,{9,7,4,1,5,7,10,8,6,11,2,1,3,5}},
	newMap = coroutine.wrap(function()
		while true do
			local map
			if os.time() > system.newGameTimer then
				if mode.grounds.rotation[1] > #mode.grounds.rotation[2] then
					mode.grounds.rotation[1] = 1
				end

				local category = mode.grounds.rotation[2][mode.grounds.rotation[1]]
				mode.grounds.mapInfo[2] = category
				category = mode.grounds.G[category]
				mode.grounds.mapInfo[5] = category.color
				map = category.queue[category.id]
				mode.grounds.mapInfo[1] = map

				category.id = category.id + 1

				mode.grounds.afterFunction = category.after or (function() end)
				if category.before then
					category.before()
				end

				if category.id > #category.queue then
					category.queue = tableshuffle(category.queue)
					category.id = 1
				end

				mode.grounds.rotation[1] = mode.grounds.rotation[1] + 1
			end
			coroutine.yield(map)
		end
	end),
	-- New Map Settings
	review = false,
	afterFunction = (function() end),
	mapInfo = {0,0,0,0,"CAA4CF"}, -- Code, Category, Width, Height, Color
	respawn = 0,
	hasWater = false,
	podium = 0,
	availableRoom = false,
	alivePlayers = 0,
	totalPlayers = 0,
	spawnPoint = {0,0},
	-- Loop Settings
	despawnGrounds = {},
	announceTimer = 0,
	-- Misc Settings
	welcomeMessage = (function()
		if system.roomNumber == 666 then
			return {"<R>","<R>","<R>","<R>"}
		else
			return {"<BV>","<PT>","<BV>","<VP>"}
		end
	end)(),
	isHouse = system.roomNumber == 801 or system.officialMode[1] == "village",
	-- Leaderboard Settings
	leaderboard = {update = 0,data = {}},
	-- Shop
	shop = {
		images = {
			[1] = {'15a2a340dd5','15a2a342b88','15a2a3449a9','15a2a3459e1','15a2a346953','15a2a3479a3','15a2a348ad3','15a2a349a89','15a2a34aa0d'},
			[3] = {'15a2a35fef7','15a2a36114b','15a2a36240d','15a2a36332f','15a2a3645f3'},
			[7] = {'15a2a3721bc','15a2a3731bb','15a2a3742b6','15a2a375439','15a2a376339'},
			[8] = {'15a2a31b8dc','15a2a31d292','15a2a323150','15a2a32815c','15a2a32af10','15a2a32ce03','15a2a32dc09','15a2a32ecde','15a2a32fc20'},
			[9] = {'15a2a3b475f','15a2a3b5996','15a2a3b6ab9','15a2a3b8250','15a2a3b924f'},
			[10] = {'15a2a3a0156','15a2a3a1229','15a2a3a2460','15a2a3a3702','15a2a3a4c70'},
			[11] = {'15a2a381307','15a2a3824c8','15a2a383682','15a2a384dc1','15a2a3865c5','15a2a38820d','15a2a38a3a8','15a2a38bbd6','15a2a38d0ec'},
			[15] = {'15a2a3c4442','15a2a3c54f3','15a2a3c69b7','15a2a3c78e7','15a2a3c873b'},
		},
		unpackImages = function(id,e)
			local t = {}
			for k,v in next,mode.grounds.shop.images[id] do
				if #t < e then
					t[#t+1] = v
				end
			end
			return t
		end,
	},
	-- System functions
	concat = function(k,v)
		if type(v) == "table" then
			return tableconcat(v,"\n",function(i,j) return mode.grounds.concat(i,j) end)
		else
			return v
		end
	end,
	listener = function(t,st,from)
		from = (from and from.."." or "")
		for k,v in next,t do
			if type(v) == "table" then
				mode.grounds.listener(v,st,from .. tostring(k))
			else
				st[#st + 1] = from .. k
			end
		end
		return st
	end,
	-- Bar
	uibar = function(id,player,value,color,size,height)
		size = size or 100
		height = height or 20

		if value > size then
			value = size
		elseif value < 0 then
			value = 0
		end

		ui.addTextArea(id,"",player,5,(height+8) * id,size + 4,height,0xC7CED2,1,1,true)
		if value ~= 0 then
			ui.addTextArea(id+1,"",player,6,(height+8) * id + 2,value + 2,height - 4,color,color,1,true)
		end
		ui.addTextArea(id+2,"<p align='center'><B><font color='#0'>"..value.."%",player,5,(height+8) * id,size + 4,height,1,1,0,true)
	end,
	-- Shop
	uishop = function(n)
		if mode.grounds.info[n].groundsDataLoaded then
			for k,v in next,mode.grounds.info[n].shop.image do
				tfm.exec.removeImage(v)
			end
			if not mode.grounds.info[n].shop.accessing then
				local get,index = tablefind(mode.grounds.shop.grounds,mode.grounds.info[n].powersOP.GTYPE,1)
				if get then
					mode.grounds.info[n].shop.page = index
				else
					mode.grounds.info[n].shop.page = 1
				end
				mode.grounds.info[n].shop.accessing = true
			end
			if mode.grounds.info[n].shop.page < 1 then
				mode.grounds.info[n].shop.page = #mode.grounds.shop.grounds
			elseif mode.grounds.info[n].shop.page > #mode.grounds.shop.grounds then
				mode.grounds.info[n].shop.page = 1
			end

			local shopTxt = system.getTranslation("shop",n)
			local debuggedGround = mode.grounds.shop.grounds[mode.grounds.info[n].shop.page]
			local ground = system.getTranslation("grounds."..debuggedGround[1],n)
			local G = stringlower(mode.grounds.translations.en.grounds[debuggedGround[1]][1])
			local groundLevel = mode.grounds.info[n].stats.powers[G]
			groundLevel = groundLevel[#groundLevel]

			ui.addTextArea(4,"",n,160,50,480,320,0x1a2433,1,1,true)

			ui.addTextArea(5,"",n,171,56,240,15,0x1d5a78,0x1d5a78,1,true)
			ui.addTextArea(6,"<p align='center'><font size='13'>"..stringnick(mode.grounds.cmds.shop),n,170,53,240,25,1,1,0,true)

			ui.addTextArea(7,"<p align='center'><font size='12'><B><a href='event:shop.left'><BV>«</BV></a>  <font size='14'><a href='event:info.grounds."..stringgsub(ground[1],"'","#").."."..ground[2].."'>"..ground[1].."</a></font>  <a href='event:shop.right'><BV>»</BV></a>",n,170,87,240,25,0x073247,0x073247,1,true)

			mode.grounds.info[n].shop.image[1] = tfm.exec.addImage(debuggedGround[2][1]..".png","&0",435,70,n)

			local playerData = stringformat("<font size='12'><N>%s <G>: <J>$%s\n<N>%s\n<N>%s <G>: <BL>%s",shopTxt.coin,mode.grounds.info[n].stats.groundsCoins,"%s",shopTxt.power,mathfloor(mathpercent(groundLevel,#debuggedGround[2])).."%%")
			local groundData = ""
			local upgradeData = "<p align='center'><font size='15'><B>%s" .. shopTxt.upgrade

			if (groundLevel + 1) <= #debuggedGround[2] then
				local price = (groundLevel + 1) * (120 * debuggedGround[3])
				playerData = stringformat(playerData,shopTxt.price .. " <G>: <R>$" .. price)
				local iniPerc = mathfloor(mathpercent(1,#mode.grounds.shop.grounds[mode.grounds.info[n].shop.page][2]))
				groundData = stringformat(ground[3],iniPerc)
				upgradeData = stringformat(upgradeData,"<a href='event:shop.buy."..price.."."..G.."'><PT>")

				local gId = mode.grounds.info[n].stats.powers[G][#mode.grounds.info[n].stats.powers[G]]
				mode.grounds.info[n].shop.image[2] = tfm.exec.addImage(debuggedGround[2][gId]..".png","&1",540,70,n)
				mode.grounds.info[n].shop.image[3] = tfm.exec.addImage("15a2df6ab69.png","&2",440,205,n)
				mode.grounds.info[n].shop.image[4] = tfm.exec.addImage(debuggedGround[2][gId+1]..".png","&3",540,210,n)
			else
				playerData = stringformat(playerData,"<R>-")
				upgradeData = stringformat(upgradeData,"<V>")

				mode.grounds.info[n].shop.image[2] = tfm.exec.addImage(system.getTranslation("max",n)..".png","&2",175,215,n)
			end

			ui.addTextArea(8,playerData,n,170,130,240,52,0x073247,0x073247,1,true)
			ui.addTextArea(9,groundData,n,170,200,240,80,0x073247,0x073247,1,true)

			ui.addTextArea(10,upgradeData,n,170,298,240,24,0x073247,0x073247,1,true)
			ui.addTextArea(11,"<p align='center'><font size='15'><R><B><a href='event:shop.close'>"..shopTxt.close.."</a></B>",n,170,339,240,24,0x073247,0x073247,1,true)

			ui.addTextArea(12,"",n,430,62,200,300,0x073247,0x073247,1,true)
			ui.addTextArea(13,"",n,426,58,90,90,0x1a2433,0x1a2433,1,true)
		end
	end,
	-- Profile
	uiprofile = function(n,p)
		if mode.grounds.info[p].groundsDataLoaded then
			local nickSize = #p > 12 and 10 or 15
			ui.addTextArea(14,"<p align='center'><B><R><a href='event:profile.close'>X",n,513,115,20,20,1,1,1,true)
			ui.addTextArea(15,"<p align='center'><B><PS><a href='event:profile.open'>•",n,513,145,20,20,1,1,1,true)
			ui.addTextArea(16,"<p align='center'><font size='16'><B><V>"..p.."</V></B> "..(mode.grounds.info[p].isOnline and "<VP>" or "<R>").."•</font></p><p align='left'><font size='12'>\n<N>" .. stringformat(system.getTranslation("profile",n),"<V>#"..mode.grounds.info[p].ranking,"<V>"..mode.grounds.info[p].stats.rounds,"<V>"..mode.grounds.info[p].stats.podiums,"<V>"..mode.grounds.info[p].stats.deaths,"<J>$"..mode.grounds.info[p].stats.groundsCoins),n,290,115,220,160,0x073247,1,1,true)
		end
	end,
	-- Menu
	uimenu = function(n)
		if not mode.grounds.info[n].menu.accessing then
			mode.grounds.info[n].menu.page = 1
			mode.grounds.info[n].menu.accessing = true
		end

		local langue = system.getTranslation("menu",n)

		if mode.grounds.info[n].menu.page < 1 then
			mode.grounds.info[n].menu.page = #langue
		elseif mode.grounds.info[n].menu.page > #langue then
			mode.grounds.info[n].menu.page = 1
		end

		local popupFormat = "<%s><a href='event:menu.page.%d'>#%s</a>"
		local popups = {}
		for k,v in next,langue do
			popups[#popups+1] = stringformat(popupFormat,(k == mode.grounds.info[n].menu.page and "VP" or "J"),k,stringformat(v[1],stringnick(module._NAME)))
		end

		local popup = {
			x = {663,546},
			d = "«",
			txt = "<font size='11'><J>"..tableconcat(popups,"\n\n")
		}
		if not mode.grounds.info[n].menu.showPopup then
			popup = {
				x = {552,435},
				d = "»",
				txt = "",
			}
		end

		local displayText = {tableunpack(langue[mode.grounds.info[n].menu.page])}

		if mode.grounds.info[n].menu.page == 1 then
			displayText[1] = stringformat(displayText[1],stringnick(module._NAME))

			local gameModes = "<PT>"
			for k,v in next,{"powers",tableunpack(system.submodes,2)} do
				local room
				if k > 1 then
					room = stringformat("/room #%s%s@%s*%s",module._NAME,mathrandom(0,999),n,system.normalizedModeName(v,false))
				else
					room = stringformat("/room #%s%s%s",v,mathrandom(0,999),n)
				end
				gameModes = gameModes .. stringformat("<a href='event:print.&lt;ROSE>%s'>%s</a>\n",room,room)
			end

			displayText[2] = displayText[2] .. "\n\n" .. gameModes
		else
			local textFormat = nil
			if mode.grounds.info[n].menu.page == 2 then
				textFormat = {{},system.getTranslation("grounds",n)}
				for k,v in next,textFormat[2] do
					if v[2] ~= "?" then
						tableinsert(textFormat[1],stringformat("<a href='event:info.grounds.%s.%s'><B>%s</B></a>",stringgsub(v[1],"'","#"),stringgsub(v[2],"%.","@"),stringupper(v[1])))
					end
				end
				displayText[2] = stringformat(displayText[2],"• "..tableconcat(textFormat[1],"\n• "))
			elseif mode.grounds.info[n].menu.page == 3 then
				displayText[2] = tableconcat(displayText[2],"\n",function(k,v)
					return mode.grounds.concat(k,v)
				end)
				displayText[2] = "<font size='10'>" .. stringformat(displayText[2],mode.grounds.cmds.profile,mode.grounds.cmds.shop,mode.grounds.cmds.langue,mode.grounds.cmds.help,mode.grounds.cmds.leaderboard,mode.grounds.cmds.info,mode.grounds.cmds.mapinfo,mode.grounds.cmds.pw)
			elseif mode.grounds.info[n].menu.page == 4 then
				displayText[2] = stringformat(displayText[2] .. "\n\n%s",#mode.grounds.maps.."<N>","<BV><a href='event:print.atelier801¬com/topic?f=6&t=845005'>#"..stringupper(module._NAME).." MAP SUBMISSIONS</a></BV>",tableconcat(mode.grounds.G,"\n",function(k,v)
					return stringformat("<font color='#%s'><a href='event:info.mapCategory.%s'>G%2d</a> : %3d</font>",v.color,k,k,#v.queue)
				end))
			elseif mode.grounds.info[n].menu.page == 5 then
				local concat = {}
				for i,j in next,{{"translators","<CEP>"},{"mapEvaluators","<BV>"}} do
					concat[#concat+1] = j[2] .. tableconcat(mode.grounds.staff[j[1]],"<G>, " .. j[2],function(k,v)
						return stringformat("<a href='event:info.%s.%s'>%s</a>",j[1],k,v[1])
					end)
				end
				displayText[2] = stringformat(displayText[2],"Bolodefchoco",concat[1],concat[2])
			end
		end

		ui.addTextArea(17,"<font size='1'>\n</font><p align='center'><J><B><a href='event:menu.right'>»</a>",n,543,352,40,20,1,1,1,true)
		ui.addTextArea(18,"<font size='1'>\n</font><p align='center'><J><B><a href='event:menu.left'>«</a>",n,217,352,40,20,1,1,1,true)

		ui.addTextArea(19,"<font size='1'>\n</font><p align='center'><PT><B><a href='event:menu.popup'>"..popup.d.."</a>",n,popup.x[1],137,20,20,1,1,1,true)
		ui.addTextArea(20,popup.txt,n,popup.x[2],137,115,125,0x123e54,1,1,true)

		ui.addTextArea(21,"<p align='center'><B><R><a href='event:menu.close'>X",n,543,42,20,20,1,1,1,true)
		ui.addTextArea(22,"<p align='center'><font size='20'><V><B>"..stringupper(displayText[1]).."</B></V><font size='15'>\n<R>_____________\n\n<font size='11'><N><p align='left'>"..displayText[2],n,260,42,280,330,0x073247,1,1,true)
	end,
	-- Info
	uidisplayInfo = function(n,data)
		local what = data[2]
		local title,text,color = "","",""
		if what == "grounds" then
			color = "<N>"
			title = stringgsub(data[3],"#","'")
			local info = stringgsub(data[4],"@",".")
			local groundTxt = system.getTranslation("grounds.12",n)
			if info == groundTxt[2] then
				local colors = {}
				for k,v in next,groundTxt[4] do
					colors[#colors+1] = stringformat("<PT>[•] <N2><font color='#%s'>(#%s)</a> <BL>- <PS>%s",k,k,v)
				end
				text = tableconcat(colors,"\n")
			else
				text = stringformat("<PT>[•] <PS>%s",info)
			end
		elseif what == "mapCategory" then
			data[3] = tonumber(data[3])
			color = "<S>"
			title = "G"..data[3]
			text = stringformat("%s\n# %s\n@ %s",mode.grounds.G[data[3]].name,#mode.grounds.G[data[3]].queue,system.getTranslation("categories." .. data[3],n))
			if mode.grounds.info[n].infoImage[#mode.grounds.info[n].infoImage] then
				tfm.exec.removeImage(mode.grounds.info[n].infoImage[#mode.grounds.info[n].infoImage])
			end
			mode.grounds.info[n].infoImage[#mode.grounds.info[n].infoImage + 1] = tfm.exec.addImage(mode.grounds.G[data[3]].icon[1] .. ".png","&4",360 + mode.grounds.G[data[3]].icon[2],125 + mode.grounds.G[data[3]].icon[3],n)
		elseif mode.grounds.staff[what] then
			local comp = data[3]
			local info = mode.grounds.staff[what][tonumber(comp)]
			title = info[1]
			if what == "translators" then
				color = "<CEP>"
				text = stringformat("[•] !%s %s",mode.grounds.cmds.langue,tableconcat(tableturnTable(info[2]),", "))
			elseif what == "mapEvaluators" then
				color = "<BV>"
				text = stringformat("[•] %s",info[2])
			end
		end
		ui.addTextArea(37,"<p align='center'><B><R><a href='event:info.close'>X",n,528,115,20,20,1,1,1,true)
		ui.addTextArea(38,"<p align='center'><font size='20'><V><B>" .. title .. "</B>" .. color .. (mode.grounds.staff[what] and " •" or "") .. "\n\n<p align='left'><font size='13'>" .. text,n,275,115,250,160,0x073247,1,1,true)
	end,
	-- Leaderboard
	uileaderboard = function(n)
		if os.time() > mode.grounds.leaderboard.update or not n then
			mode.grounds.leaderboard = {update = os.time() + 180e3,data = {}}

			local players = {}
			for k,v in next,mode.grounds.info do
				if stringsub(k,1,1) ~= "*" then
					players[#players + 1] = {k,mathfloor((v.stats.rounds - v.stats.deaths)/10) * (v.stats.podiums + 1)}
				end
			end
			tablesort(players,function(p1,p2) return p1[2] > p2[2] end)

			for k,v in next,players do
				mode.grounds.info[v[1]].ranking = k
				if k < 11 then
					tableinsert(mode.grounds.leaderboard.data,"<J>"..k..". " .. (({"<BV>","<PS>","<CE>"})[k] or "<V>") .. "<a href='event:profile.open."..v[1].."'>".. v[1] .. "</a> <BL>- <VP>" .. v[2] .. "G")
				end
			end
			if #mode.grounds.leaderboard.data == 0 then
				mode.grounds.leaderboard.update = 0
			end
		end

		if n then
			mode.grounds.info[n].leaderboardAccessing = true
			local id,y = 25,100
			ui.addTextArea(23,"<p align='center'><B><R><a href='event:ranking.close'>X",n,603,35,20,20,1,1,1,true)
			ui.addTextArea(24,"<p align='center'><font size='45'>" .. stringnick(mode.grounds.cmds.leaderboard),n,200,35,400,350,0x073247,1,1,true)

			for i = 1,10 do
				local v = mode.grounds.leaderboard.data[i] or ""
				local color = id % 2 == 0 and 0x123e54 or 0x042636
				if stringfind(v,n) then
					v = stringgsub(v,"'>(.-)</a>",function(name)
						return "'><a:active>"..name.."</a:active></a>"
					end)
				end
				ui.addTextArea(id,v,n,245,y,315,20,color,color,1,true)
				id = id + 1
				y = y + 28
			end

			ui.addTextArea(id,"",n,230,90,10,285,0x073247,0x073247,1,true)
			ui.addTextArea(id + 1,"",n,565,90,10,285,0x073247,0x073247,1,true)
		end
	end,
	-- Grounds system
	gsys = {
		-- Ground system
		grounds = {},
		disabledGrounds = {},
		collisionArea = {34,40,50,50,40,34,34,35,0,0,40,35,35,23,0,0},
		getTpPos = function(g,center)
			if center then
				return {g.X,g.Y}
			else
				local ang = stringsplit(g.P,"[^,]+",tonumber)
				ang = ang[5]
				local hTP = {g.X,g.Y}
				if ang == 90 or ang == -270 then
					hTP[1] = hTP[1] + g.L/2
				elseif ang == -90 or ang == 270 then
					hTP[1] = hTP[1] - g.L/2
				elseif mathabs(ang) == 180 then
					hTP[2] = hTP[2] + g.H/2
				else
					hTP[2] = hTP[2] - g.H/2
				end

				return hTP
			end
		end,
		onGround = function(t,px,py)
			local prop = stringsplit(t.P,"[^,]+",tonumber)

			px,py = px or 0,py or 0
			local offset = {}
			local isOn = false

			local w = tonumber(t.L)
			local h = tonumber(t.H)
			local x = tonumber(t.X)
			local y = tonumber(t.Y)
			local gtype = tonumber(t.T)
			gtype = mathsetLim(gtype,0,15) -- mathmin(15,mathmax(0,gtype))

			if not tablefind({8,9,15},gtype) then
				local area = mode.grounds.gsys.collisionArea[gtype + 1]
				w = w + area
				h = h + area
			end

			if gtype == 13 then
				isOn = mathpythag(x,y,px,py,w)
			else
				local ang = mathrad(prop[5])

				local range = {w = w/2,h = h/2}

				local cosA = mathcos(ang)
				local sinA = mathsin(ang)

				local vxA = {x = ((-range.w * cosA - (-range.h) * sinA) + x),y = ((-range.w * sinA + (-range.h) * cosA) + y)}
				local vxB = {x = ((range.w * cosA - (-range.h) * sinA) + x),y = ((range.w * sinA + (-range.h) * cosA) + y)}
				local vxC = {x = ((range.w * cosA - range.h * sinA) + x),y = ((range.w * sinA + range.h * cosA) + y)}
				local vxD = {x = ((-range.w * cosA - range.h * sinA) + x),y = ((-range.w * sinA + range.h * cosA) + y)}
				offset = {vxA,vxB,vxC,vxD}

				local p = 4
				for i = 1,4 do
					if (offset[i].y < py and offset[p].y >= py) or (offset[p].y < py and offset[i].y >= py) then
						if offset[i].x + (py - offset[i].y) / (offset[p].y - offset[i].y) * (offset[p].x - offset[i].x) < px then
							isOn = not isOn
						end
					end
					p = i
				end
			end

			return isOn
		end,
		getGroundProperties = function(xml)
			mode.grounds.gsys.grounds = {}
			stringgsub(xml,"<S (.-)/>", function(parameters)
				local attributes = {}
				stringgsub(parameters,"([%-%w]+)=([\"'])(.-)%2",function(tag,_,value)
					attributes[tag] = tonumber(value) or value
				end)
				mode.grounds.gsys.grounds[#mode.grounds.gsys.grounds + 1] = attributes
			end)
		end,
		groundEffects = function()
			for n,p in next,tfm.get.room.playerList do
				if not p.isDead then
					local affected = false
					for id = 1,#mode.grounds.gsys.grounds do
						local ground = mode.grounds.gsys.grounds[id]
						local newId = id - 1
						if (ground.disablepower or stringsub(ground.P,1,1) == "1" or (ground.v and (_G.currentTime - 3) == (tonumber(ground.v)/1000))) and not mode.grounds.gsys.disabledGrounds[newId] then
							-- If the ground has the disablepower attribute, or is dynamic, or the v despawner attribute exists (after it disappear)
							mode.grounds.gsys.disabledGrounds[newId] = true
						end
						if not mode.grounds.gsys.disabledGrounds[newId] and _G.currentTime >= 3 then
							if mode.grounds.gsys.onGround(ground,p.x,p.y) then
								affected = true
								local gtype = ground.T
								local color = stringupper(tostring(ground.o or ""))
								mode.grounds.info[n].powersOP.GTYPE = gtype
								if gtype == 1 or color == "89A7F5" then -- ice
									system.bindKeyboard(n,32,true,true)
									if color ~= "" then
										mode.grounds.info[n].powersOP.GTYPE = 1
									end
								elseif gtype == 2 or color == "6D4E94" then -- trampoline
									if color ~= "" then
										mode.grounds.info[n].powersOP.GTYPE = 2
									end
								elseif gtype == 3 or color == "D84801" then -- lava
									if color ~= "" then
										mode.grounds.info[n].powersOP.GTYPE = 3
									end
									id = (id > 1 and id - 1 or #mode.grounds.gsys.grounds)
									local g = mode.grounds.gsys.grounds[id]
									local hTP = mode.grounds.gsys.getTpPos(g)
									tfm.exec.displayParticle(36,p.x,p.y,0,0,0,0,n)
									tfm.get.room.playerList[n].x = 0
									tfm.get.room.playerList[n].y = 0
									tfm.exec.movePlayer(n,hTP[1],hTP[2])
									tfm.exec.displayParticle(36,hTP[1],hTP[2],0,0,0,0,n)
								elseif gtype == 8 or color == "9BAABC" then -- cloud
									system.bindKeyboard(n,32,true,true)
								elseif gtype == 7 then -- sand
									ui.addTextArea(-1,"",n,-1500,-1500,3e3,3e3,0xE5CC5D,0xE5CC5D,mode.grounds.stormIntensities[mode.grounds.info[n].stats.powers.sand[1]],false)
									for i = 1,2 do
										tfm.exec.displayParticle(26,mathrandom(800),mathrandom(350),0,0,0,0,n)
										tfm.exec.displayParticle(27,mathrandom(800),mathrandom(350),0,0,0,0,n)
									end
								elseif gtype == 9 then -- water
									if mode.grounds.hasWater then
										mode.grounds.info[n].drown = mode.grounds.info[n].drown + mathrandom(1,mathfloor(mode.grounds.info[n].stats.powers.water[1]))
										mode.grounds.uibar(1,n,mode.grounds.info[n].drown,0x519DDA,100,20)
										if mode.grounds.info[n].drown > 99 then
											tfm.exec.killPlayer(n)
											mode.grounds.uibar(1,n,mode.grounds.info[n].drown,0xDA516D,100,20)
											mode.grounds.info[n].drown = 0
											for i = 1,8 do
												tfm.exec.displayParticle(14,p.x+mathrandom(-50,50),p.y+mathrandom(-20,20),0,-1,0,0,n)
											end
										end
										for i = 1,mathrandom(2,4) do
											tfm.exec.displayParticle(14,p.x+mathrandom(-50,50),p.y+mathrandom(-20,20),0,-1,0,0,n)
										end
									end
								elseif gtype == 10 then -- stone
									system.bindKeyboard(n,32,true,true)
								elseif gtype == 11 or color == "E7F0F2" then -- snow
									system.bindKeyboard(n,32,true,true)
								elseif gtype == 12 or gtype == 13 then -- retangle or circle
									if color == "C90909" then
										tfm.exec.killPlayer(n)
									elseif color == "18C92B" then
										if os.time() > mode.grounds.respawn then
											mode.grounds.respawn = os.time() + 7e3
											for k,v in next,tfm.get.room.playerList do
												if v.isVampire then
													tfm.exec.killPlayer(k)
												elseif v.isDead and mode.grounds.info[k].canRev then
													tfm.exec.respawnPlayer(k)
												end
											end
										end
									elseif color == "555D77" then
										mode.grounds.info[n].checkpoint = id
									end
								elseif gtype == 15 then -- web
									tfm.exec.movePlayer(n,mode.grounds.spawnPoint[1],mode.grounds.spawnPoint[2])
									tfm.get.room.playerList[n].x = 0
									tfm.get.room.playerList[n].y = 0
								end
							end
						end
					end
					if not affected then
						mode.grounds.info[n].powersOP.GTYPE = -1
					end
				end
			end
		end,
	},
	-- Init
	reset = function()
		-- Settings and modes
		mode.grounds.welcomeMessage = (function()
			if system.roomNumber == 666 then
				return {"<R>","<R>","<R>","<R>"}
			else
				return {"<BV>","<PT>","<BV>","<VP>"}
			end
		end)()

		mode.grounds.isHouse = system.roomNumber == 801 or system.officialMode[1] == "village"

		-- Data
		mode.grounds.info = {}

		-- Maps
		mode.grounds.rotation = {1,{9,7,4,1,5,7,10,8,6,11,2,1,3,5}}
	end,
	init = function()
		mode.grounds.translations.pt = mode.grounds.translations.br

		-- Sets the main language according to the community
		if mode.grounds.translations[tfm.get.room.community] then
			mode.grounds.langue = tfm.get.room.community
		end

		-- Shuffle the map rotation
		for k,v in next,mode.grounds.G do
			v.queue = tableshuffle(v.queue)
		end

		-- Map list
		for k,v in next,mode.grounds.G do
			for i,j in next,v.queue do
				mode.grounds.maps[#mode.grounds.maps + 1] = {j,k}
			end
		end

		-- Organizates the staff table
		for k,v in next,mode.grounds.staff do
			tablesort(v,function(t1,t2) return t2[1] > t1[1] end)
		end

		-- Organizes the languages
		mode.grounds.langues = (function()
			local l = {}
			for id in next,mode.grounds.translations do
				l[#l + 1] = stringupper(id)
			end
			tablesort(l)
			return l
		end)()

		-- Translation indexes
		mode.grounds.translationIndexes = mode.grounds.listener(mode.grounds.translations.en,{})

		-- Sets the shop prices, upgrades, etc
		mode.grounds.shop.grounds = {
			-- Ground ID, #Possible upgrades (Imgs), Price average, Upgrade average
			[1] = {1,mode.grounds.shop.unpackImages(1,3),1.05,1.5},
			[2] = {7,mode.grounds.shop.unpackImages(7,4),.4,2},
			[3] = {8,mode.grounds.shop.unpackImages(8,3),1.15,1.47},
			[4] = {9,mode.grounds.shop.unpackImages(9,3),1.6,.6},
			[5] = {10,mode.grounds.shop.unpackImages(10,3),1.1,1.65},
			[6] = {11,mode.grounds.shop.unpackImages(11,5),.5,1.42},
		}

		-- Sets the commands
		mode.grounds.cmds = system.getTranslation("commands")

		-- Disable commands
		for k,v in next,mode.grounds.cmds do
			disableChatCommand(v)
		end
		for k,v in next,{"o","p","h","k","?","pw","time","np","is","check","review","next","again"} do
			disableChatCommand(v)
		end

		-- Official modes running together
		if system.officialMode[1] == "racing" then
			mode.grounds.rotation = {1,{7}}
		elseif system.officialMode[1] == "bootcamp" then
			mode.grounds.rotation = {1,{3}}
		end

		-- House system
		if mode.grounds.isHouse then
			system.isRoom = false
			mode.grounds.rotation = {1,{12}}
			tfm.exec.disableAfkDeath()
		end

		-- Init
		for _,f in next,{"AutoShaman","AutoScore","AutoNewGame","AutoTimeLeft","MinimalistMode","PhysicalConsumables"} do
		end
		tfm.exec.setAutoMapFlipMode(false)
		tfm.exec.setRoomMaxPlayers(16)

		mode.grounds.alivePlayers,mode.grounds.totalPlayers = system.players()

		mode.grounds.uileaderboard()
		system.newTimer(function()
			tfm.exec.newGame(mode.grounds.newMap())
		end,1000,false)
	end,
	-- Callbacks
	eventTextAreaCallback = function(i,n,c)
		local p = stringsplit(c,"[^%.]+")
		if p[1] == "shop" and os.time() > mode.grounds.info[n].shop.timer then
			mode.grounds.info[n].shop.timer = os.time() + 900
			if p[2] == "left" then
				mode.grounds.info[n].shop.page = mode.grounds.info[n].shop.page - 1
				mode.grounds.uishop(n)
			elseif p[2] == "right" then
				mode.grounds.info[n].shop.page = mode.grounds.info[n].shop.page + 1
				mode.grounds.uishop(n)
			elseif p[2] == "buy" and mode.grounds.info[n].groundsDataLoaded then
				p[3] = tonumber(p[3]) or 0
				if mode.grounds.info[n].stats.groundsCoins >= p[3] then
					mode.grounds.info[n].stats.groundsCoins = mode.grounds.info[n].stats.groundsCoins - p[3]
					local loc = mode.grounds.info[n].stats.powers[p[4]]
					mode.grounds.info[n].stats.powers[p[4]][#loc] = mode.grounds.info[n].stats.powers[p[4]][#loc] + 1
					mode.grounds.info[n].stats.powers[p[4]][1] = mode.grounds.info[n].stats.powers[p[4]][1] * mode.grounds.shop.grounds[mode.grounds.info[n].shop.page][4]
					tfm.exec.chatMessage(stringformat("<PT>[•] <BV>%s",stringformat(system.getTranslation("bought",n),"<J>$"..p[3].."</J>","<ROSE>"..system.getTranslation("grounds."..mode.grounds.shop.grounds[mode.grounds.info[n].shop.page][1],n)[1].."</ROSE>",n)),n)
					mode.grounds.uishop(n)
				else
					tfm.exec.chatMessage(stringformat("<PT>[•] <R>%s",system.getTranslation("cantbuy",n)),n)
				end
			elseif p[2] == "close" then
				for i = 4,13 do
					ui.removeTextArea(i,n)
				end
				mode.grounds.info[n].shop.accessing = false
				for k,v in next,mode.grounds.info[n].shop.image do
					tfm.exec.removeImage(v)
				end
			end
		elseif p[1] == "profile" then
			if p[2] == "close" then
				for i = 14,16 do
					ui.removeTextArea(i,n)
				end
				mode.grounds.info[n].profileAccessing = false
			elseif p[2] == "open" then
				if p[3] then
					mode.grounds.uiprofile(n,p[3])
				else
					mode.grounds.uiprofile(n,n)
				end
			end
		elseif p[1] == "menu" and os.time() > mode.grounds.info[n].menu.timer then
			mode.grounds.info[n].menu.timer = os.time() + 750
			if p[2] == "page" and p[3] then
				mode.grounds.info[n].menu.page = tonumber(p[3])
				mode.grounds.uimenu(n)
			elseif p[2] == "right" then
				mode.grounds.info[n].menu.page = mode.grounds.info[n].menu.page + 1
				mode.grounds.uimenu(n)
			elseif p[2] == "left" then
				mode.grounds.info[n].menu.page = mode.grounds.info[n].menu.page - 1
				mode.grounds.uimenu(n)
			elseif p[2] == "popup" then
				mode.grounds.info[n].menu.showPopup = not mode.grounds.info[n].menu.showPopup
				mode.grounds.uimenu(n)
			elseif p[2] == "close" then
				for i = 22,17,-1 do
					ui.removeTextArea(i,n)
				end
				mode.grounds.info[n].menu.accessing = false
				if mode.grounds.info[n].showHelp then
					mode.grounds.info[n].showHelp = false
					ui.removeTextArea(0,n)
				end
			end
		elseif p[1] == "print" then
			p[2] = stringgsub(p[2],"¬",".")
			tfm.exec.chatMessage(stringformat("<PT>[•] <BV>%s",p[2]),n)
		elseif p[1] == "ranking" then
			if p[2] == "close" then
				mode.grounds.info[n].leaderboardAccessing = false
				for i = 23,36 do
					ui.removeTextArea(i,n)
				end
			end
		elseif p[1] == "info" then
			if p[2] == "close" then
				for i = 37,38 do
					ui.removeTextArea(i,n)
				end
				for k,v in next,mode.grounds.info[n].infoImage do
					tfm.exec.removeImage(v)
				end
				mode.grounds.info[n].infoImage = {}
			else
				mode.grounds.uidisplayInfo(n,p)
			end
		end
	end,
	-- New Player
	eventNewPlayer = function(n)
		tfm.exec.chatMessage(stringformat("%s[•] %s%s\n\n<G>[^_^] %s%s",mode.grounds.welcomeMessage[2],mode.grounds.welcomeMessage[3],stringformat(system.getTranslation("welcome"),"<ROSE>" .. module._NAME .. mode.grounds.welcomeMessage[1]),mode.grounds.welcomeMessage[4],stringformat(system.getTranslation("developer"),"Bolodefchoco")),n)
		if mathrandom(10) < 3 then
			tfm.exec.chatMessage("<ROSE>[•] Play #powers at /room #powers",n)
		end

		if system.isPlayer(n) then
			for _,key in next,mode.grounds.bindKeys do
				if key < 4 then
					system.bindKeyboard(n,key,false,true)
				end
				system.bindKeyboard(n,key,true,true)
			end
		else
			tfm.exec.chatMessage("<R>Souris! :(",n)
		end
		if not mode.grounds.info[n] then
			mode.grounds.info[n] = {
				groundsDataLoaded = true,
				showHelp = true,
				right = true,
				langue = mode.grounds.langue,
				isWalking = false,
				drown = 0,
				ranking = -1,
				canRev = false,
				checkpoint = -1,
				shop = {
					accessing = false,
					page = 0,
					timer = 0,
					image = {},
				},
				menu = {
					accessing = false,
					page = 0,
					timer = 0,
					showPopup = true,
				},
				profileAccessing = false,
				leaderboardAccessing = false,
				profileTimer = 0,
				leaderboardTimer = 0,
				isOnline = true,
				stats = {
					groundsCoins = 1000,
					rounds = 0,
					podiums = 0,
					deaths = 0,
					powers = {
						ice = {25,100,1}, -- power, timer, level
						lava = {0,1}, -- power, level
						sand = {1,1}, -- Txtarea opacity, level
						cloud = {35,100,1}, -- power, timer, level
						water = {5,1}, -- power, level
						stone = {15,2500,700,1}, -- size, despawn timer, timer, level
						snow = {5,100,1}, -- power, timer, level
						spiderweb = {0,1}, -- power, level
					},
				},
				powersOP = {
					TIMER = 0,
					GTYPE = -1,
				},
				infoImage = {},
			}
			if not mode.grounds.isHouse then
				ui.addTextArea(0,"",n,-1500,-1500,3e3,3e3,1,1,.8,true)
				mode.grounds.uimenu(n)
			end
		end

		mode.grounds.info[n].isOnline = true
		mode.grounds.info[n].canRev = false
	end,
	-- New Game
	eventNewGame = function()
		local mapName = {}
		if tablefind(mode.grounds.maps,tfm.get.room.xmlMapInfo.mapCode,1) then
			mapName[#mapName + 1] = "<font color='#".. mode.grounds.mapInfo[5] .."'>G" .. mode.grounds.mapInfo[2] .. "</font>"
		else
			mode.grounds.mapInfo = {0,0,0,0,"CAA4CF"}
			mode.grounds.afterFunction = (function() end)
		end

		tfm.exec.setGameTime(3 * 60)

		mode.grounds.podium = 0
		mode.grounds.availableRoom = system.isRoom and mode.grounds.totalPlayers > 2
		if not mode.grounds.availableRoom then
			if mathrandom(30) < 16 then
				if not system.isRoom then
					tfm.exec.chatMessage(stringformat("<PT>[•] <BV>%s",system.getTranslation("countstats.tribe")))
				else
					tfm.exec.chatMessage(stringformat("<PT>[•] <BV>%s",system.getTranslation("countstats.mice")))
				end
			end
		end

		for k,v in next,mode.grounds.info do
			if not system.isPlayer(k) then
				tfm.exec.killPlayer(k)
			end
			if v.groundsDataLoaded and mode.grounds.availableRoom then
				v.stats.rounds = v.stats.rounds + 1
			end
			v.canRev = true
			v.right = true
			v.checkpoint = -1
		end

		mode.grounds.afterFunction()

		mode.grounds.hasWater = false
		local deactivateWater = mode.grounds.isHouse

		mode.grounds.despawnGrounds = {}
		mode.grounds.gsys.disabledGrounds = {}
		local currentXml = tfm.get.room.xmlMapInfo

		local xmlPowers = {}
			-- Info
		xmlPowers[1] = { -- Soulmate system
			attribute = "A", -- Soulmate not allowed for rooms with odd amount of players
			func = function()
				if mode.grounds.totalPlayers % 2 ~= 0 then
					tableforeach(mode.grounds.info,tfm.exec.killPlayer)
				end
			end
		}
		xmlPowers[2] = { -- Map Width
			attribute = "L",
			func = function(size)
				if size then
					mode.grounds.mapInfo[3] = tonumber(size)
				end
			end
		}
		xmlPowers[3] = { -- Map Height
			attribute = "H",
			func = function(size)
				if size then
					mode.grounds.mapInfo[4] = tonumber(size)
				end
			end
		}

		mode.grounds.mapInfo[3] = mathmax(800,mode.grounds.mapInfo[3])
		mode.grounds.mapInfo[4] = mathmax(400,mode.grounds.mapInfo[4])
			-- Powers
		xmlPowers[4] = { -- mapname
			attribute = "mapname",
			func = function(t)
				if t ~= "" then
					mapName[#mapName + 1] = t
				end
			end
		}
		xmlPowers[5] = { -- disablepower
			attribute = "disablepower",
			func = function(g)
				for ground in stringgmatch(g,"[^,]+") do
					ground = tonumber(ground)
					if ground and not mode.grounds.gsys.disabledGrounds[ground] then
						mode.grounds.gsys.disabledGrounds[ground] = true
					end
				end
			end
		}
		xmlPowers[6] = { -- cheese
			attribute = "cheese",
			func = function()
				tableforeach(mode.grounds.info,tfm.exec.giveCheese)
			end
		}
		xmlPowers[7] = { -- meep
			attribute = "meep",
			func = function()
				tableforeach(mode.grounds.info,tfm.exec.giveMeep)
			end
		}
		xmlPowers[8] = { -- addtime
			attribute = "addtime",
			func = function(minutes)
				tfm.exec.setGameTime((3 + (tonumber(minutes) or 0)) * 60)
			end
		}
		xmlPowers[9] = { -- notwater
			attribute = "notwater",
			func = function()
				deactivateWater = true
			end
		}
		xmlPowers[10] = { -- setvampire
			attribute = "setvampire",
			func = function(coordinates)
				if mode.grounds.totalPlayers > 2 then
					local coord,axY = xml.getCoordinates(coordinates)

					local vampires,p = {},{}
					for k,v in next,mode.grounds.info do
						if v.isOnline then
							p[#p + 1] = k
						end
					end
					local randomVamp = ""
					for i = 1,mathfloor(mode.grounds.totalPlayers/3) do
						repeat
							randomVamp = tablerandom(p)
						until not tablefind(vampires,randomVamp)
						vampires[#vampires + 1] = randomVamp
					end
					for k,v in next,vampires do
						if type(coord) == "table" then
							local c = tablerandom(coord)
							tfm.exec.movePlayer(v,c.x,c.y)
						else
							if axY == 0 then
								tfm.exec.movePlayer(v,coord,mathrandom(10,mode.grounds.mapInfo[4] - 10))
							else
								tfm.exec.movePlayer(v,mathrandom(10,mode.grounds.mapInfo[4] - 10),axY)
							end
						end
						tfm.exec.setVampirePlayer(v)
					end
				else
					tableforeach(mode.grounds.info,tfm.exec.setVampirePlayer)
				end
			end
		}
		xmlPowers[11] = { -- shaman
			attribute = "shaman",
			func = function(t)
				if t ~= "" then
					ui.setShamanName(t)
				end
			end
		}

		xml.attribFunc(currentXml.xml or "",xmlPowers)

		mode.grounds.gsys.getGroundProperties(currentXml.xml)

		if not deactivateWater then
			for k,v in next,mode.grounds.gsys.grounds do
				if v.T == 9 then
					mode.grounds.hasWater = true
					for k,v in next,mode.grounds.info do
						v.drown = 0
						mode.grounds.uibar(1,k,v.drown,0x519DDA,100,20)
					end
					break
				end
			end
		end
		if not mode.grounds.hasWater then
			for i = 1,3 do
				ui.removeTextArea(i)
			end
		end

		local ini = ""
		local D = stringmatch(tfm.get.room.xmlMapInfo.xml,"<D>(.-)</D>") or ""
		for k,v in next,{"DS","T"} do
			ini = stringmatch(D,"<"..v.." (.-)/>")
			if ini then
				break
			end
		end
		ini = ini or ""
		local sX = stringmatch(ini,"X=\"(.-)\"")
		local sY = stringmatch(ini,"Y=\"(.-)\"")
		mode.grounds.spawnPoint = {tonumber(sX) or 0,tonumber(sY) or 0}

		ui.setMapName(tableconcat(mapName,"   <G>|<J>   ") .. (#mapName > 0 and "   <G>|<J>   " or "") .. currentXml.author .. " <BL>- " .. tfm.get.room.currentMap)
	end,
	-- Loop
	eventLoop = function()
		mode.grounds.gsys.groundEffects()

		if _G.currentTime % 5 == 0 then
			mode.grounds.alivePlayers,mode.grounds.totalPlayers = system.players()
		end

		if not mode.grounds.isHouse and _G.currentTime == 3 and mathrandom(50) < 16 and os.time() > mode.grounds.announceTimer then
			mode.grounds.announceTimer = os.time() + 5000
			tfm.exec.chatMessage(stringformat("<PT>[•] <BV>%s",system.getTranslation("powersenabled")))
		end

		if mode.grounds.isHouse then
			if _G.currentTime%5 == 0 then
				if _G.leftTime <= 2 then
					tfm.exec.newGame(mode.grounds.newMap())
				end
			end
		else
			if _G.currentTime%2 == 0 and not mode.grounds.review then
				if mode.grounds.alivePlayers < 1 or _G.leftTime <= 2 then
					tfm.exec.newGame(mode.grounds.newMap())
				elseif mode.grounds.alivePlayers == 1 and _G.leftTime > 50 and mode.grounds.totalPlayers > 1 then
					tfm.exec.setGameTime(30)
				elseif mode.grounds.podium > 5 and mode.grounds.alivePlayers > 3 then
					tfm.exec.setGameTime(20,false)
				end
			end
		end

		--[[
		local grounds = {}
		for k,v in next,mode.grounds.despawnGrounds do
			grounds[k] = v
		end
		for k,v in next,grounds do
			if os.time() > v[2] then
				tfm.exec.removePhysicObject(v[1])
				tableremove(mode.grounds.despawnGrounds,k)
			end
		end
		]]

		for n,v in next,mode.grounds.info do
			v.isWalking = (tfm.get.room.playerList[n] and (tfm.get.room.playerList[n].movingRight or tfm.get.room.playerList[n].movingLeft) or false)
			v.right = (tfm.get.room.playerList[n] and (tfm.get.room.playerList[n].isFacingRight) or false)
			if v.powersOP.GTYPE ~= 7 then -- Sand
				ui.removeTextArea(-1,n)
			end
			if mode.grounds.hasWater then
				if _G.currentTime%2 == 0 then
					if tfm.get.room.playerList[n] then
						if not tfm.get.room.playerList[n].isDead and v.powersOP.GTYPE ~= 9 then -- Water
							if v.drown > 0 then
								v.drown = v.drown - mathrandom(1,mathfloor(v.stats.powers.water[1]))
								mode.grounds.uibar(1,n,v.drown,0x519DDA,100,20)
							end
						end
					end
				end
			end
		end
	end,
	-- Keyboard
	eventKeyboard = function(n,k,d,x,y)
		tfm.get.room.playerList[n].x = x
		tfm.get.room.playerList[n].x = y
		if tablefind(mode.grounds.bindKeys,k) then
			if k < 4 then
				if k == 0 then
					mode.grounds.info[n].right = false
				elseif k == 2 then
					mode.grounds.info[n].right = true
				end
			elseif k == stringbyte("O") then
				mode.grounds.eventChatCommand(n,"o")
			elseif k == stringbyte("P") then
				if mode.grounds.info[n].profileAccessing then
					mode.grounds.eventTextAreaCallback(nil,n,"profile.close")
				else
					if os.time() > mode.grounds.info[n].profileTimer then
						mode.grounds.info[n].profileTimer = os.time() + 1e3
						mode.grounds.eventChatCommand(n,"p")
					end
				end
			elseif k == stringbyte("H") then
				mode.grounds.eventChatCommand(n,"h")
			elseif k == stringbyte("K") then
				mode.grounds.eventChatCommand(n,"k")
			end
		else
			if k == 32 and os.time() > mode.grounds.info[n].powersOP.TIMER then
				local ms = 0
				local power = {0,0}
				if mode.grounds.info[n].powersOP.GTYPE == 8 then -- Cloud
					power = mode.grounds.info[n].stats.powers.cloud
					ms = power[2]
					tfm.exec.movePlayer(n,0,0,true,0,-power[1],true)
				elseif mode.grounds.info[n].powersOP.GTYPE == 1 and mode.grounds.info[n].isWalking then -- Ice
					power = mode.grounds.info[n].stats.powers.ice
					ms = power[2]
					tfm.exec.movePlayer(n,0,0,false,(mode.grounds.info[n].right and power[1] or -power[1]),0,true)
				elseif mode.grounds.info[n].powersOP.GTYPE == 11 and not mode.grounds.info[n].isWalking then -- Snow
					power = mode.grounds.info[n].stats.powers.snow
					ms = power[2]
					tfm.exec.addShamanObject(34,x + (mode.grounds.info[n].right and 20 or -20),y - 5,0,(mode.grounds.info[n].right and power[1] or -power[1]))
					tfm.exec.playEmote(n,26)
				elseif mode.grounds.info[n].powersOP.GTYPE == 10 and not mode.grounds.info[n].isWalking then -- Stone
					power = mode.grounds.info[n].stats.powers.stone
					local id = tfm.get.room.playerList[n].id
					if not mode.grounds.despawnGrounds[id] then--if not tablefind(mode.grounds.despawnGrounds,id,1) then
						ms = power[3]
						local halfSize = (power[1]/2) + 15
						tfm.exec.addPhysicObject(id,x + (mode.grounds.info[n].right and halfSize or -halfSize),y + 32 - halfSize,{
							type = 10,
							miceCollision = true,
							groundCollision = false,
							width = power[1],
							height = power[1],
							friction = .3,
							restitution = 0
						})
						mode.grounds.despawnGrounds[id] = true

						system.newTimer(function()
							tfm.exec.removePhysicObject(id)
							mode.grounds.despawnGrounds[id] = nil
						end,power[2],false)
						--tableinsert(mode.grounds.despawnGrounds,{id,os.time() + power[2]})
					end
				end
				mode.grounds.info[n].powersOP.TIMER = os.time() + ms
				system.bindKeyboard(n,32,true,false)
			end
			mode.grounds.info[n].powersOP.GTYPE = -1
		end
	end,
	-- Commands
	eventChatCommand = function(n,c)
		if system.isPlayer(n) then
			c = deactivateAccents(c)
			system.disableChatCommandDisplay(c,true)
			local p = stringsplit(c,"[^%s]+",stringlower)
			disableChatCommand(p[1])
			if (p[1] == mode.grounds.cmds.shop or p[1] == "o") and not mode.grounds.isHouse then
				if mode.grounds.info[n].shop.accessing then
					mode.grounds.eventTextAreaCallback(nil,n,"shop.close")
				else
					if os.time() > mode.grounds.info[n].shop.timer then
						mode.grounds.info[n].shop.timer = os.time() + 1200
						mode.grounds.uishop(n)
					end
				end
			elseif (p[1] == mode.grounds.cmds.profile or p[1] == "p") and not mode.grounds.isHouse then
				if p[2] then
					p[2] = stringnick(p[2])
					if mode.grounds.info[p[2]] then
						mode.grounds.uiprofile(n,p[2])
					end
				else
					mode.grounds.uiprofile(n,n)
				end
				mode.grounds.info[n].profileAccessing = true
			elseif p[1] == mode.grounds.cmds.help or p[1] == "h" then
				if mode.grounds.info[n].menu.accessing then
					mode.grounds.eventTextAreaCallback(nil,n,"menu.close")
				else
					if os.time() > mode.grounds.info[n].menu.timer then
						mode.grounds.info[n].menu.timer = os.time() + 1e3
						mode.grounds.uimenu(n)
					end
				end
			elseif p[1] == mode.grounds.cmds.langue then
				p[2] = p[2] and stringlower(p[2]) or nil
				if p[2] and (p[2] == "default" or mode.grounds.translations[p[2]]) then
					if p[2] == "default" then
						mode.grounds.info[n].langue = (mode.grounds.translations[tfm.get.room.playerList[n].community] and tfm.get.room.playerList[n].community or mode.grounds.langue)
					else
						mode.grounds.info[n].langue = stringlower(p[2])
					end
					tfm.exec.chatMessage(stringformat("<PT>[•] <BV>%s",stringformat(system.getTranslation("language",n),stringupper(mode.grounds.info[n].langue))),n)
				else
					tfm.exec.chatMessage(stringformat("<PT>[•] <J>!%s <PS>%s",p[1],tableconcat(mode.grounds.langues," <G>-</G> ")),n)
				end
			elseif (p[1] == mode.grounds.cmds.leaderboard or p[1] == "k") and not mode.grounds.isHouse then
				if mode.grounds.info[n].leaderboardAccessing then
					mode.grounds.eventTextAreaCallback(nil,n,"ranking.close")
				else
					if os.time() > mode.grounds.info[n].leaderboardTimer then
						mode.grounds.info[n].leaderboardTimer = os.time() + 1e3
						mode.grounds.uileaderboard(n)
					end
				end
			elseif p[1] == mode.grounds.cmds.info or p[1] == "?" then
				local grounds = system.getTranslation("grounds",n)
				local ground = grounds[mode.grounds.info[n].powersOP.GTYPE]
				if ground then
					mode.grounds.uidisplayInfo(n,{"info","grounds",stringgsub(ground[1],"'","#"),ground[2]})
				end
			elseif p[1] == "mapinfo" and mode.grounds.mapInfo[2] > 0 then
				tfm.exec.chatMessage(stringformat("<PT>[•] <BV>G%s (%s) - %s - @%s",mode.grounds.mapInfo[2],mode.grounds.G[mode.grounds.mapInfo[2]].name,tfm.get.room.xmlMapInfo.author,mode.grounds.mapInfo[1]),n)
			else
				local isAdmin,isMapEv,isTranslator = system.roomAdmins[n],tablefind(mode.grounds.staff.mapEvaluators,n,1),tablefind(mode.grounds.staff.translators,n,1)
				if p[1] == mode.grounds.cmds.pw or p[1] == "pw" then
					if isAdmin then
						local newPassword = p[2] and tableconcat(p," ",nil,2) or ""
						local pwMsg = system.getTranslation("password")
						if newPassword == "" then
							tfm.exec.chatMessage(stringformat("<R>[•] %s",pwMsg.off))
						else
							local xxx = stringrep("*",#newPassword)
							for k in next,mode.grounds.info do
								if system.roomAdmins[k] and system.isPlayer(k) then
									tfm.exec.chatMessage(stringformat("<R>[•] %s",stringformat(pwMsg.on,newPassword)),k)
								else
									tfm.exec.chatMessage(stringformat("<R>[•] %s",stringformat(pwMsg.on,xxx)),k)
								end
							end
						end
						tfm.exec.setRoomPassword(newPassword)
					else
						tfm.exec.chatMessage("<ROSE>[•] /room #" .. module._NAME .. mathrandom(0,999) .. "@" .. n,n)
					end
				end
				if not system.isRoom then
					local permission = (mode.grounds.isHouse and system.roomAdmins[n] or isMapEv)
					if p[1] == "time" and permission then
						tfm.exec.setGameTime(p[2] or 1e7)
					elseif p[1] == "np" and p[2] and permission then
						mode.grounds.mapInfo = {0,0,0,0,"CAA4CF"}
						tfm.exec.newGame(p[2])
					elseif p[1] == "review" and isMapEv then
						mode.grounds.review = not mode.grounds.review
						tfm.exec.chatMessage("<BV>[•] REVIEW MODE : " .. stringupper(tostring(mode.grounds.review)),n)
						tfm.exec.disableAfkDeath(mode.grounds.review)
						if mode.grounds.review then
							tableforeach(mode.grounds.info,tfm.exec.respawnPlayer)
						end
					elseif p[1] == "next" and _G.currentTime > 10 and permission then
						tfm.exec.newGame(mode.grounds.newMap())
					elseif p[1] == "again" and _G.currentTime > 10 and permission then
						if tfm.get.room.currentMap then
							tfm.exec.newGame(tfm.get.room.currentMap)
						end
					end
				end
				if p[1] == "is" and (mode.grounds.isHouse or isMapEv) then
					p[2] = p[2] or tfm.get.room.currentMap
					p[2] = tonumber(stringmatch(p[2],"@?(%d+)")) or 0

					local exist,index = tablefind(mode.grounds.maps,p[2],1)
					local cat = exist and mode.grounds.maps[index][2] or 0
					tfm.exec.chatMessage(stringformat("<BV>[•] @%s : %s",p[2],stringupper(tostring(exist)) .. (exist and " (G"..cat..")" or "")),n)
				end
				if p[1] == "check" and isTranslator then
					p[2] = p[2] and stringlower(p[2]) or nil
					if p[2] and mode.grounds.translations[p[2]] then
						local newP3 = p[3] and system.loadTable("mode.grounds.translations."..p[2].."."..p[3]) or {}
						if newP3 and type(newP3) == "string" then
							tfm.exec.chatMessage("<CEP>[•] [" .. p[3] .. "] : <N><VI>\"</VI>" .. newP3 .. "<VI>\"</VI>",n)
						else
							tfm.exec.chatMessage("<CEP>[•] " .. (p[3] and "Invalid! Try one of these indexes:" or "!" .. p[1] .. " " .. p[2] .. " <VI>id"),n)
							for k,v in next,mode.grounds.translationIndexes do
								tfm.exec.chatMessage("<N>\t\t" .. v,n)
							end
						end
					else
						tfm.exec.chatMessage("<CEP>[•] !" .. p[1] .. " " .. tableconcat(mode.grounds.langues," <G>-</G> "),n)
					end
				end
			end
		end
	end,
	-- Victory
	eventPlayerWon = function(n)
		if mode.grounds.availableRoom and mode.grounds.info[n].groundsDataLoaded and system.isPlayer(n) then
			mode.grounds.podium = mode.grounds.podium + 1

			if mode.grounds.podium < 4 then
				mode.grounds.info[n].stats.podiums = mode.grounds.info[n].stats.podiums + 1

				local addedCoins = 20 - mode.grounds.podium * 5
				mode.grounds.info[n].stats.groundsCoins = mode.grounds.info[n].stats.groundsCoins + addedCoins
				tfm.exec.setPlayerScore(n,4-podium,true)
				tfm.exec.chatMessage(stringformat("<PT>[•] <BV>%s",stringformat(system.getTranslation("gotcoin",n),"<J>+$"..addedCoins.."</J>")),n)

				if mode.grounds.podium == 1 then
					tfm.exec.setGameTime(60,false)
				end
			else
				if mode.grounds.podium == 4 then
					tfm.exec.setGameTime(30,false)
				end

				mode.grounds.info[n].stats.groundsCoins = mode.grounds.info[n].stats.groundsCoins + 1
				tfm.exec.setPlayerScore(n,1,true)
			end

			if mode.grounds.hasWater then
				mode.grounds.uibar(1,n,mode.grounds.info[n].drown,0x6FDA51,100,20)
			end

			if system.miscAttrib ~= 0 then
				if mode.grounds.podium == system.miscAttrib then
					tfm.exec.setGameTime(0)
				end
			end
		end

		if mode.grounds.review or mode.grounds.isHouse then
			tfm.exec.respawnPlayer(n)
		else
			mode.grounds.info[n].canRev = false
		end
	end,
	-- Died
	eventPlayerDied = function(n)
		if mode.grounds.info[n].groundsDataLoaded and mode.grounds.availableRoom then
			mode.grounds.info[n].stats.deaths = mode.grounds.info[n].stats.deaths + 1
		end
		if mode.grounds.hasWater then
			if mode.grounds.info[n].drown > 0 then
				mode.grounds.uibar(1,n,mode.grounds.info[n].drown,0xDA516D,100,20)
			end
		end

		system.bindKeyboard(n,32,true,false)
		ui.removeTextArea(-1,n)

		if mode.grounds.review or mode.grounds.isHouse then
			tfm.exec.respawnPlayer(n)
		end
	end,
	-- Left
	eventPlayerLeft = function(n)
		if mode.grounds.info[n] then
			mode.grounds.info[n].isOnline = false
		end
	end,
	-- Respawn
	eventPlayerRespawn = function(n)
		if mode.grounds.info[n].checkpoint ~= -1 then
			local g = mode.grounds.gsys.grounds[mode.grounds.info[n].checkpoint]
			local hTP = mode.grounds.gsys.getTpPos(g,true)
			tfm.exec.movePlayer(n,hTP[1],hTP[2])
		end
		if mode.grounds.info[n].groundsDataLoaded and mode.grounds.availableRoom then
			mode.grounds.info[n].stats.rounds = mode.grounds.info[n].stats.rounds + 1
		end
		if mode.grounds.hasWater then
			mode.grounds.uibar(1,n,mode.grounds.info[n].drown,0x519DDA,100,20)
		end

		if not mode.grounds.isHouse then
			tfm.exec.chatMessage(stringformat("<R>[•] %s",system.getTranslation("zombie",n)),n)
		end
	end,
}

--[[ Jokenpo ]]--
mode.jokenpo = {
	-- Translations
	translations = {
		en = {
			-- Init
			welcome = "Welcome to <ROSE>#Jokenpo<CE>! Choose a chair, press space and start playing!\n\tReport any issue to Bolodefchoco",

			-- Simple words
			round = "Round",
			players = "Players",
			won = "won the round!",
			tie = "Tie!",
			victory = "won the game!",

			-- Info
			guide = "Press\n\t<PS>»</PS> %s<PT> - Rock</PT>\n\t<PS>»</PS> %s<PT> - Paper</PT>\n\t<PS>»</PS> %s<PT> - Scissor (Pufferfish)</PT>",

			-- Game
			items = {"Rock","Paper","Scissor"},
			selected = "You've selected the item %s!",
		},
		br = {
			welcome = "Bem-vindo ao <ROSE>#Jokenpo<CE>! Escolha uma cadeira, aperte espaço e comece a jogar!\n\tReporte qualquer problema para Bolodefchoco",

			round = "Partida",
			players = "Jogadores",
			won = "venceu a partida!",
			tie = "Empate!",
			victory = "ganhou!",

			guide = "Pressione\n\t<PS>»</PS> %s<PT> - Pedra</PT>\n\t<PS>»</PS> %s<PT> - Papel</PT>\n\t<PS>»</PS> %s<PT> - Tesoura (Baiacu)</PT>",

			items = {"Pedra","Papel","Tesoura"},
			selected = "Você selecionou o item %s!",
		},
	},
	langue = "en",
	-- Maps
	maps = {5198315,4093087},
	buildSquares = function(c)
		tfm.exec.removePhysicObject(1)
		for k,v in next,{{346,224},{454,224},{400,105}} do
			for i = 1,4 do
				local x = i == 1 and v[1] + 28 or i == 2 and v[1] - 28 or v[1]
				local y = i == 3 and v[2] + 28 or i == 4 and v[2] - 28 or v[2]

				local w = x == v[1] and 46 or 10
				local h = w == 10 and 66 or 10

				tfm.exec.addPhysicObject(i..k,x,y,{
					type = 12,
					color = c[k],
					width = w,
					height = h,
				})
			end
		end
	end,
	-- New Round Settings
	playing = false,
	players = {},
	colors = {0xE3454D,0x4577E3,0x45E374},
	timer = 9.5,
	partialTimer = 0,
	tie = 0,
	round = 0,
	roundsPerGame = 5,
	-- Game settings
	objects = {
		85,
		95,
		65,
	},
	-- Emotes
	emote = {
		sit = 8,
		victory = 24,
		fail = 5,
		tie = 4,
		no = 2
	},
	-- Battle
	decision = function()
		for i = 1,2 do
			mode.jokenpo.players[i].obj = mode.jokenpo.players[i].obj ~= 0 and mode.jokenpo.players[i].obj or false
			if mode.jokenpo.players[i].obj then
				mode.jokenpo.players[i].remId = tfm.exec.addShamanObject(mode.jokenpo.objects[mode.jokenpo.players[i].obj],({350,455})[i],200)
			end
		end

		local winner = ((mode.jokenpo.players[1].obj and mode.jokenpo.players[2].obj) and ((3 + mode.jokenpo.players[1].obj - mode.jokenpo.players[2].obj) % 3) or mode.jokenpo.players[1].obj and 1 or mode.jokenpo.players[2].obj and 2 or 0)

		if winner == 0 then
			mode.jokenpo.tie = mode.jokenpo.tie + 1
			tfm.exec.chatMessage("<CE>[•] <J>" .. system.getTranslation("tie"))

			for k,v in next,mode.jokenpo.players do
				tfm.exec.playEmote(v.name,mode.jokenpo.emote.tie)
			end
		else
			mode.jokenpo.players[winner].score = mode.jokenpo.players[winner].score + 1
			tfm.exec.playEmote(mode.jokenpo.players[winner].name,mode.jokenpo.emote.victory)

			local looser = (winner == 1 and 2 or 1)
			local looserEmote = mode.jokenpo.emote.fail
			if not mode.jokenpo.players[looser].obj then
				looserEmote = mode.jokenpo.emote.no
			end
			tfm.exec.playEmote(mode.jokenpo.players[looser].name,looserEmote)

			tfm.exec.chatMessage("<CE>[•] " .. mode.jokenpo.players[winner].color .. mode.jokenpo.players[winner].name .. " " .. system.getTranslation("won"))
		end

		ui.addTextArea(5,stringformat("<font size='50'><p align='center'>%s%d <PT>| <J>%d <PT>| %s%s",mode.jokenpo.players[1].color,mode.jokenpo.players[1].score,mode.jokenpo.tie,mode.jokenpo.players[2].color,mode.jokenpo.players[2].score),nil,5,270,795,nil,1,1,0,true)
	end,
	-- Partial Next Round
	pNextRound = function()
		mode.jokenpo.playing = false
		mode.jokenpo.timer = 9.5
		mode.jokenpo.partialTimer = 3.5
		mode.jokenpo.decision()
		if mode.jokenpo.round == mode.jokenpo.roundsPerGame then
			tablesort(mode.jokenpo.players,function(p1,p2) return p1.score > p2.score end)
			if (mode.jokenpo.players[1].score == mode.jokenpo.players[2].score) or (mode.jokenpo.tie > mode.jokenpo.players[1].score) then
				tfm.exec.chatMessage("<CE>[•] " .. system.getTranslation("tie"))
			else
				tfm.exec.chatMessage("<CE>[•] " .. mode.jokenpo.players[1].color .. mode.jokenpo.players[1].name .. " " .. system.getTranslation("victory"))
			end
		end
	end,
	-- Next Round
	nextRound = function()
		for i = 1,2 do
			if mode.jokenpo.players[i].remId then
				tfm.exec.removeObject(mode.jokenpo.players[i].remId)
			end
			mode.jokenpo.players[i].remId = nil
			mode.jokenpo.players[i].obj = 0
		end
		ui.removeTextArea(5,nil)
		mode.jokenpo.partialTimer = 0
		if mode.jokenpo.roundsPerGame > mode.jokenpo.round then
			mode.jokenpo.playing = true
			mode.jokenpo.round = mode.jokenpo.round + 1
		else
			mode.jokenpo.playing = false
			mode.jokenpo.round = 0
			mode.jokenpo.tie = 0
			mode.jokenpo.timer = 9.5
			mode.jokenpo.partialTimer = 0
			mode.jokenpo.players = {}
			tfm.exec.newGame(tablerandom(mode.jokenpo.maps))
			for i = 2,3 do
				ui.removeTextArea(i,nil)
			end
		end
		mode.jokenpo.uiinfo()
	end,
	-- Display names
	displayNames = function()
		if #mode.jokenpo.players == 0 then
			return ""
		else
			return "   <G>|   <N>" .. system.getTranslation("players") .. " : " .. tableconcat(mode.jokenpo.players," <V>- ",function(k,v)
				tfm.exec.setNameColor(v.name,mode.jokenpo.colors[v.id])
				return v.color .. v.name
			end)
		end
	end,
	-- Info textareas
	uiinfo = function()
		ui.addTextArea(0,"<p align='center'><font size='35'><J>"..mathfloor(mode.jokenpo.timer),nil,380,85,40,40,1,1,0,true)
		ui.addTextArea(1,"<p align='center'><font size='25'><J><B>X</B><font size='13'>\n"..stringformat("%02d",mode.jokenpo.tie),nil,380,207,40,nil,1,1,0,true)

		for k,v in next,mode.jokenpo.players do
			ui.addTextArea(v.id + 1,"<p align='center'>"..v.name.."\n"..stringformat("%02d",v.score),nil,v.x,165,105,nil,1,1,0,true)
		end

		ui.setMapName("<PT>#Jokenpo   <G>|   <N>" .. system.getTranslation("round") .. " : <V>" .. mode.jokenpo.round .. mode.jokenpo.displayNames() .. "<")
	end,
	-- Init
	reset = function()
		-- Scores
		mode.jokenpo.tie = 0
		mode.jokenpo.round = 0
		mode.jokenpo.roundsPerGame = 5

		-- Data
		mode.jokenpo.players = {}
		mode.jokenpo.playing = false

		-- Timers
		mode.jokenpo.timer = 9.5
		mode.jokenpo.partialTimer = 0
	end,
	init = function()
		mode.jokenpo.translations.pt = mode.jokenpo.translations.br

		-- Sets the main language according to the community
		if mode.jokenpo.translations[tfm.get.room.community] then
			mode.jokenpo.langue = tfm.get.room.community
		end

		-- Sets the rounds per game
		mode.jokenpo.roundsPerGame = mathmax(5,system.miscAttrib)

		-- Init
		for _,f in next,{"AutoShaman","AutoNewGame","PhysicalConsumables","AfkDeath"} do
			tfm.exec["disable"..f]()
		end
		tfm.exec.setAutoMapFlipMode(false)
		tfm.exec.setRoomMaxPlayers(20)

		tfm.exec.newGame(tablerandom(mode.jokenpo.maps))
	end,
	-- New Player
	eventNewPlayer = function(n)
		tfm.exec.chatMessage("<CE>[•] " .. system.getTranslation("welcome"),n)

		for k,v in next,{32,stringbyte("BNM",1,3)} do
			system.bindKeyboard(n,v,true,true)
		end

		if mode.jokenpo.playing then
			mode.jokenpo.round = mode.jokenpo.round + 1
		else
			tfm.exec.respawnPlayer(n)
		end

		mode.jokenpo.buildSquares(mode.jokenpo.colors)
		mode.jokenpo.uiinfo()
	end,
	-- New Game
	eventNewGame = function()
		if mode.jokenpo.playing then
			for k,v in next,tfm.get.room.playerList do
				if not tablefind(mode.jokenpo.players,k,"name") then
					tfm.exec.killPlayer(k)
				end
			end
		end

		mode.jokenpo.colors = {0xE3454D,0x4577E3,0x45E374}
		xml.attribFunc(tfm.get.room.xmlMapInfo.xml or "",{
			[1] = {
				attribute = "o",
				func = function(color)
					local c = stringsplit(color,"[^,]+",function(o)
						return stringmatch(o,"#?(.+)")
					end)

					for i = 1,#c do
						mode.jokenpo.colors[i] = tonumber(c[i],16)
					end
				end
			}
		})

		mode.jokenpo.buildSquares(mode.jokenpo.colors)
		mode.jokenpo.uiinfo()
	end,
	-- Keyboard
	eventKeyboard = function(n,k,d,x,y)
		if k == 32 and #mode.jokenpo.players < 2 then
			for k,v in next,{{285,330,270},{515,330,425}} do
				if mathpythag(v[1],v[2],x,y,30) then
					if not tablefind(mode.jokenpo.players,n,"name") then
						if not tablefind(mode.jokenpo.players,k,"id") then
							mode.jokenpo.players[#mode.jokenpo.players + 1] = {
								name = n,
								x = v[3],
								score = 0,
								color = stringformat("<font color='#%s'>",stringformat("%x",mode.jokenpo.colors[k])),
								id = k,
								obj = 0,
								remId = nil,
							}

							tfm.exec.chatMessage("<CE>[•] " .. mode.jokenpo.players[#mode.jokenpo.players].color .. stringformat(system.getTranslation("guide"),"B","N","M"),n)

							mode.jokenpo.uiinfo()
							tfm.exec.playEmote(n,mode.jokenpo.emote.sit)
						end
					end
				end
			end

			if #mode.jokenpo.players == 2 then
				tablesort(mode.jokenpo.players,function(p1,p2) return p1.id < p2.id end)
				mode.jokenpo.playing = true

				mode.jokenpo.round = mode.jokenpo.round + 1
				mode.jokenpo.uiinfo()
			end
		else
			if mode.jokenpo.playing then
				local foundObject,objectIndex = tablefind({stringbyte("BNM",1,3)},k)
				if foundObject then
					local found,i = tablefind(mode.jokenpo.players,n,"name")
					if found then
						i = mode.jokenpo.players[i]
						if i.obj == 0 then
							i.obj = objectIndex

							tfm.exec.chatMessage("<CE>[•] " .. i.color .. stringformat(system.getTranslation("selected"),system.getTranslation("items")[objectIndex]),n)
						end
					end
				end
			end
		end
	end,
	-- Loop
	eventLoop = function()
		if mode.jokenpo.playing then
			if mode.jokenpo.timer > 0 then
				mode.jokenpo.timer = mode.jokenpo.timer - .5
				ui.addTextArea(0,"<p align='center'><font size='35'><J>"..mathfloor(mode.jokenpo.timer),nil,380,85,40,40,1,1,0,true)
				for i = 1,2 do
					tfm.exec.movePlayer(mode.jokenpo.players[i].name,({285,515})[i],330)
					tfm.exec.playEmote(mode.jokenpo.players[i].name,26)
				end
			else
				mode.jokenpo.pNextRound()
			end
		else
			if mode.jokenpo.partialTimer > 0 then
				mode.jokenpo.partialTimer = mode.jokenpo.partialTimer - .5
				ui.addTextArea(0,"<p align='center'><font size='35'><PT>"..mathfloor(mode.jokenpo.partialTimer),nil,380,85,40,40,1,1,0,true)

				if mode.jokenpo.partialTimer <= 0 then
					mode.jokenpo.nextRound()
				end
			end
		end
	end,
	-- Player Left
	eventPlayerLeft = function(n)
		if tablefind(mode.jokenpo.players,n,"name") then
			mode.jokenpo.round = mode.jokenpo.roundsPerGame
			mode.jokenpo.nextRound()
		end
	end,
}

--[[ Click ]]--
mode.click = {
	-- Translations
	translations = {
		en = {
			-- Init
			welcome = "<BV>Welcome to <CH><B>#click</B><BV>!\n\t» Type <B>!p Playername</B> to open the profile of the player\n\t» Report any issue to <B>Bolodefchoco</B>",

			-- Info
			newGame = "New game in %s seconds!",
			clickfast = "Click several times in the circle before %s seconds!",

			-- Simple words
			click = "CLICK!",
			won = "won!",

			-- Profile
			profile = "Total clicks <BL>: <V>%s\n<J>High Score <BL>: <V>%s\n\n<J>Victories <BL>: <V>%s",
		},
		br = {
			welcome = "<BV>Bem-vindo ao <CH><B>#click</B><BV>!\n\t\n\t» Digite <B>!p Jogador</B> para abrir o perfil do jogador\n\t» Reporte qualquer problema para <B>Bolodefchoco</B>",

			newGame = "Novo jogo em %s segundos!",
			clickfast = "Clique várias vezes no círculo antes de %s segundos!",

			click = "CLIQUE!",
			won = "venceu!",

			profile = "Cliques totais <BL>: <V>%s\n<J>Maior pontuação <BL>: <V>%s\n\n<J>Vitórias <BL>: <V>%s",
		},
	},
	langue = "en",
	-- Data
	info = {},
	-- System
	circle = {
		id = 0,
		status = false
	},
	spawnCircle = function(on)
		if mode.click.circle.id > 0 then
			tfm.exec.removeJoint(mode.click.circle)
		end

		mode.click.circle = {id = 1,status = on}

		local color = on and 0x53D08B or 0x555D77

		tfm.exec.addJoint(1,0,0,{
			type = 0,
			alpha = .9,
			color = color,
			foreground = false,
			line = 300,
			point1 = "400,200",
			point2 = "400,201"
		})
	end,
	-- Timers
	partialTimer = 1,
	counter = 0,
	-- Ranking
	uileaderboard = function()
		local data = {}
		for k,v in next,mode.click.info do
			if v.canPlay and v.roundClick > 0 then
				data[#data + 1] = {k,v.roundClick}
			end

			if v.highScore < v.roundClick then
				v.highScore = v.roundClick
			end
			v.totalClick = v.totalClick + v.roundClick
			v.roundClick = 0
		end

		tablesort(data,function(p1,p2) return p1[2] > p2[2] end)

		local str = ""
		for k,v in next,data do
			if k < 51 then
				if k == 1 then
					mode.click.info[v[1]].victories = mode.click.info[v[1]].victories + 1
					tfm.exec.chatMessage("<J>" .. v[1] .. " <G>" .. system.getTranslation("won"))
					tfm.exec.setPlayerScore(v[1],1,true)
				end

				str = str .. stringformat("<J>%s. <V>%s <BL>- <PT>%sP\n",k,v[1],v[2])
			end
		end

		ui.addTextArea(1,str,nil,5,30,250,330,1,1,.9,true)
	end,
	-- Init
	reset = function()
		-- Data
		mode.click.info = {}
	end,
	init = function()
		mode.click.translations.pt = mode.click.translations.br

		-- Sets the main language according to the community
		if mode.click.translations[tfm.get.room.community] then
			mode.click.langue = tfm.get.room.community
		end

		-- Init
		for _,f in next,{"AutoShaman","AutoScore","AutoNewGame","AfkDeath"} do
			tfm.exec["disable"..f]()
		end

		tfm.exec.newGame(5993911)
	end,
	-- New Player
	eventNewPlayer = function(n)
		system.bindMouse(n,true)
		if not mode.click.info[n] then
			mode.click.info[n] = {
				canPlay = false,
				totalClick = 0,
				roundClick = 0,
				highScore = 0,
				victories = 0,
			}
		end
		if not mode.click.circle.status then
			tfm.exec.respawnPlayer(n)
			mode.click.info[n].canPlay = true
		end
		tfm.exec.chatMessage(system.getTranslation("welcome"),n)
	end,
	-- New Game
	eventNewGame = function()
		mode.click.spawnCircle(false)
		mode.click.partialTimer = 10.5
	end,
	-- Loop
	eventLoop = function()
		if mode.click.partialTimer > 0 then
			mode.click.partialTimer = mode.click.partialTimer - .5
			ui.setMapName(stringformat(system.getTranslation("newGame"),"<ROSE>"..mathfloor(mode.click.partialTimer).."<J>") .. "<")
			if mode.click.partialTimer <= 0 then
				mode.click.spawnCircle(true)

				mode.click.counter = mathmax(20,system.miscAttrib)

				for k,v in next,mode.click.info do
					v.canPlay = true
					tfm.exec.respawnPlayer(k)
				end

				ui.removeTextArea(1,nil)
				ui.setMapName(system.getTranslation("click") .. "<")
			end
		else
			if mode.click.counter > 0 then
				mode.click.counter = mode.click.counter - .5
				ui.addTextArea(0,"<p align='center'><font size='28'>" .. stringformat(system.getTranslation("clickfast"),mathfloor(mode.click.counter)),nil,0,30,800,50,1,1,0,true)
				if mode.click.counter <= 0 then
					mode.click.spawnCircle(false)

					mode.click.partialTimer = 10.5

					ui.removeTextArea(0,nil)
					mode.click.uileaderboard()
				end
			end
		end
	end,
	-- Mouse
	eventMouse = function(n,x,y)
		if mode.click.circle.status then
			if mode.click.info[n].canPlay then
				if mathpythag(400,200,x,y,150) then
					mode.click.info[n].roundClick = mode.click.info[n].roundClick + 1
					tfm.exec.displayParticle(15,mathrandom(150,650),mathrandom(100,300),0,0,0,0,n)
				end
			end
		end
	end,
	-- Commands
	eventChatCommand = function(n,c)
		local p = stringsplit(c,"[^%s]+",stringlower)
		if p[1] == "p" then
			p[2] = p[2] and stringnick(p[2]) or n
			if mode.click.info[p[2]] then
				ui.addTextArea(2,"<p align='center'><font size='18'><a:active><a href='event:close'>"..p[2].."</a><p align='left'><font size='13'>\n<J>" .. stringformat(system.getTranslation("profile"),mode.click.info[p[2]].totalClick,mode.click.info[p[2]].highScore,mode.click.info[p[2]].victories),n,620,295,175,100,1,1,1,true)
			end
		end
	end,
	-- Callbacks
	eventTextAreaCallback = function(i,n,c)
		if c == "close" then
			ui.removeTextArea(2,n)
		end
	end,
	-- Respawn
	eventPlayerDied = function(n)
		tfm.exec.respawnPlayer(n)
	end,
	-- Player Left
	eventPlayerLeft = function(n)
		mode.click.info[n].canPlay = false
	end,
}

--[[ Presents ]]--
mode.presents = {
	-- Translations
	translations = {
		en = {
			-- Init
			welcome = "<J>Welcome to <VP><B>#presents</B><J>! Choose a gap according to the gift represented and good luck! You will win if your three-gifts-sequence is correct!\nType !p PlayerName to open the profile of the specified player\n\n<CE>Developed by Bolodefchoco and projected by Ruamorangos",

			-- Info
			choose = "Choose a gift before <PT>%s seconds!",
			kill = "Those who are out of the correct gift will be dead!",
			newGame = "New game in <PT>%s seconds!",
			nowinner = "No one won!",
			appear = "You will appear in the next game!",

			-- Simple words
			rival = "Rivals",
			won = "won!",

			-- Profile
			profile = "Rounds <BL>: <V>%s\n<J>Gifts <BL>: <V>%s\n\n<J>Victories <BL>: <V>%s",
		},
		br = {
			welcome = "<J>Bem-vindo ao <VP><B>#presents</B><J>! Escolha um buraco de acordo com o presente representado e boa sorte! Você ganhará se sua sequência nos três presentes estiver correta!\nDigite !p Jogador para abrir o perfil o jogador especificado\n\n<CE>Desenvolvido por Bolodefchoco, pedido por Ruamorangos",

			choose = "Escolha um presente antes de <PT>%s segundos!",
			kill = "Aqueles que estão fora do presente correto serão mortos!",
			newGame = "Novo jogo em <PT>%s segundos!",
			nowinner = "Ninguém ganhou!",
			appear = "Você irá aparecer no próximo jogo!",

			rival = "Rivais",
			won = "venceu!",

			profile = "Partidas <BL>: <V>%s\n<J>Presents <BL>: <V>%s\n\n<J>Vitórias <BL>: <V>%s",
		},
	},
	langue = "en",
	-- Data
	info = {},
	-- System
	isRunning = false,
	gifts = {},
	-- Timers
	chooseTimer = 15,
	blockTimer = 0,
	newMapTimer = 0,
	currentGift = 1,
	-- Map
	generateMap = function()
		mode.presents.isRunning = true
		mode.presents.gifts = {
			[1] = tablerandom({2104,2102,2100,2101,2103,2100,2104,2102,2103,2101,2104,2102,2100,2101,2103,2100,2104,2102,2103,2101,2104,2102,2100,2101,2103,2100,2104,2102,2103,2101}),
			[2] = tablerandom({2102,2100,2101,2103,2100,2104,2102,2103,2101,2104,2102,2100,2101,2103,2100,2104,2102,2103,2101,2104,2102,2100,2101,2103,2100,2104,2102,2103,2101,2104}),
			[3] = tablerandom({2100,2101,2103,2100,2104,2102,2103,2101,2104,2102,2100,2101,2103,2100,2104,2102,2103,2101,2104,2102,2100,2101,2103,2100,2104,2102,2103,2101,2104,2102})
		}

		tfm.exec.newGame('<C><P DS="m;250,120,400,120,550,120" D="x_transformice/x_inventaire/'..mode.presents.gifts[1]..'.jpg,230,60;x_transformice/x_inventaire/'..mode.presents.gifts[2]..'.jpg,380,60;x_transformice/x_inventaire/'..mode.presents.gifts[3]..'.jpg,530,60;x_transformice/x_inventaire/2100.jpg,140,320;x_transformice/x_inventaire/2101.jpg,260,320;x_transformice/x_inventaire/2102.jpg,380,320;x_transformice/x_inventaire/2103.jpg,500,320;x_transformice/x_inventaire/2104.jpg,620,320" /><Z><S><S P="1,0.0001,20,0.2,90,1,0,0" H="700" L="15" X="400" c="3" Y="161" T="4" /><S X="100" P="0,0,20,0.2,0,0,0,0" L="40" H="135" c="3" Y="335" T="4" /><S H="135" P="0,0,20,0.2,0,0,0,0" L="40" X="220" c="3" Y="335" T="4" /><S X="340" P="0,0,20,0.2,0,0,0,0" L="40" H="135" c="3" Y="335" T="4" /><S H="135" P="0,0,20,0.2,0,0,0,0" L="40" X="460" c="3" Y="335" T="4" /><S X="580" P="0,0,20,0.2,0,0,0,0" L="40" H="135" c="3" Y="335" T="4" /><S H="40" P="0,0,0.3,0.2,0,0,0,0" L="40" X="100" c="3" Y="160" T="0" /><S X="700" P="0,0,0.3,0.2,0,0,0,0" L="40" H="40" c="3" Y="160" T="0" /><S X="550" P="0,0,0.3,0.2,0,0,0,0" L="40" H="40" c="3" Y="160" T="0" /><S X="400" P="0,0,0.3,0.2,0,0,0,0" L="40" H="40" c="3" Y="160" T="0" /><S X="250" P="0,0,0.3,0.2,0,0,0,0" L="40" H="40" c="3" Y="160" T="0" /><S H="20" P="0,0,0.3,0.2,0,0,0,0" L="800" X="400" Y="10" T="0" /><S H="135" P="0,0,20,0.2,0,0,0,0" L="40" X="700" c="3" Y="335" T="4" /><S X="400" P="0,0,0.3,0.2,0,0,0,0" L="800" H="100" c="3" Y="415" T="0" /><S P="0,0,0.3,0.2,0,0,0,0" H="10" L="50" o="324650" X="745" c="3" Y="138" T="13" /><S X="55" P="0,0,0.3,0.2,0,0,0,0" L="50" o="324650" H="10" c="3" Y="138" T="13" /><S P="0,0,0.3,0.2,0,0,0,0" H="140" L="100" o="324650" X="55" c="3" Y="72" T="12" /><S X="745" P="0,0,0.3,0.2,0,0,0,0" L="100" o="324650" H="140" c="3" Y="72" T="12" /><S P="0,0,0,0,0,0,0,0" H="102" L="581" o="6a7495" X="401" c="4" v="3001" Y="78" T="12" /></S><D /><O /><L><JR M2="10" M1="0" /></L></Z></C>')
	end,
	-- Kill wrong gaps
	killOutOfRange = function()
		local gift = mode.presents.gifts[mode.presents.currentGift] - 2099
		for k,v in next,tfm.get.room.playerList do
			if not v.isDead then
				if v.x >= (gift * 120) and v.x <= (gift * 120 + 80) and v.y > 267 then
					mode.presents.info[k].gifts = mode.presents.info[k].gifts + 1
					tfm.exec.setPlayerScore(k,1,true)
				else
					tfm.exec.killPlayer(k)
				end
			end
		end
	end,
	-- Victory
	victory = function(noone)
		if noone then
			tfm.exec.chatMessage("<J>" .. system.getTranslation("nowinner"))
			mode.presents.chooseTimer = 0
			mode.presents.blockTimer = 0
		else
			tfm.exec.chatMessage("<S>" .. tableconcat(system.players(true),"<J>, <S>",function(k,v)
				mode.presents.info[v].victories = mode.presents.info[v].victories + 1
				return v
			end) .. " <J>" .. system.getTranslation("won"))
		end
		mode.presents.newMapTimer = 10.5
	end,
	-- Init
	reset = function()
		-- Data
		mode.presents.info = {}
	end,
	init = function()
		mode.presents.translations.pt = mode.presents.translations.br

		-- Sets the main language according to the community
		if mode.presents.translations[tfm.get.room.community] then
			mode.presents.langue = tfm.get.room.community
		end

		-- Init
		for _,f in next,{"AutoShaman","AutoNewGame","AutoScore","AfkDeath","MortCommand","DebugCommand","PhysicalConsumables"} do
			tfm.exec["disable"..f]()
		end
		tfm.exec.setRoomMaxPlayers(30)

		mode.presents.generateMap()

		-- Auto Admin
		system.roomAdmins.Ruamorangos = true
	end,
	-- New Player
	eventNewPlayer = function(n)
		if not mode.presents.info[n] then
			mode.presents.info[n] = {
				rounds = 0,
				gifts = 0,
				victories = 0,
			}
		end

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

		if mode.presents.isRunning then
			local m = "<PT>" .. system.getTranslation("appear")
			ui.addTextArea(0,"<p align='center'><font size='20'><VP>" .. m,n,216,65,365,35,1,1,1,true)
			tfm.exec.chatMessage(m,n)
		else
			tfm.exec.respawnPlayer(n)
		end
	end,
	-- New Game
	eventNewGame = function()
		if mode.presents.isRunning then
			for i,x in next,{250,400,550} do
				tfm.exec.addPhysicObject(i,x,75,{
					type = 12,
					height = 90,
					width = 90,
					miceCollision = false,
					groundCollision = false,
					color = 0x6A7495
				})
			end
			for i = 0,1 do
				ui.removeTextArea(i)
			end
			mode.presents.chooseTimer = 15
			mode.presents.blockTimer = 0
			mode.presents.newMapTimer = 0
			mode.presents.currentGift = 1
			for k,v in next,mode.presents.info do
				v.rounds = v.rounds + 1
			end
		end
	end,
	-- Loop
	eventLoop = function()
		local mapName = "<N>" .. system.getTranslation("rival") .." : <V>" .. mathisNegative(system.players()-1,0)
		if _G.currentTime > 4 and mode.presents.isRunning then
			if mode.presents.chooseTimer > 0 then
				mode.presents.chooseTimer = mode.presents.chooseTimer - .5

				if mode.presents.chooseTimer <= 0 then
					mode.presents.blockTimer = 5
					tfm.exec.addPhysicObject(4,400,270,{
						type = 4,
						height = 10,
						width = 640,
						miceCollision = true,
						groundCollision = false
					})
					tfm.exec.removePhysicObject(mode.presents.currentGift)
				else
					mapName = mapName .. "   <G>|   <J>" .. stringformat(system.getTranslation("choose"),mathfloor(mode.presents.chooseTimer).."<J>")
				end

				if system.players() == 0 then
					mode.presents.victory(true)
				end
			end

			if mode.presents.blockTimer > 0 then
				mode.presents.blockTimer = mode.presents.blockTimer - .5

				if mode.presents.blockTimer == 2 then
					mode.presents.killOutOfRange()
				end

				if mode.presents.blockTimer <= 0 then
					mode.presents.currentGift = mode.presents.currentGift + 1
					if mode.presents.currentGift > 3 then
						mode.presents.victory()
					else
						tfm.exec.removePhysicObject(4)
						mode.presents.chooseTimer = 15
					end
				else
					mapName = mapName .. "   <G>|   <R>" .. system.getTranslation("kill")
				end
			end

			if mode.presents.newMapTimer > 0 then
				mode.presents.newMapTimer = mode.presents.newMapTimer - .5

				mapName = "<PS>" .. stringformat(system.getTranslation("newGame"),mathfloor(mode.presents.newMapTimer) .. "<PS>")
				if mode.presents.newMapTimer <= 0 then
					mode.presents.generateMap()
				end
			end
		end
		ui.setMapName(mapName .. "<")
	end,
	-- Commands
	eventChatCommand = function(n,c)
		local p = stringsplit(c,"[^%s]+",stringlower)
		if p[1] == "p" then
			p[2] = p[2] and stringnick(p[2]) or n
			if mode.presents.info[p[2]] then
				ui.addTextArea(1,"<p align='center'><font size='18'><a:active><a href='event:close'>"..p[2].."</a><p align='left'><font size='13'>\n<J>" .. stringformat(system.getTranslation("profile"),mode.presents.info[p[2]].rounds,mode.presents.info[p[2]].gifts,mode.presents.info[p[2]].victories),n,5,30,790,100,1,1,.8,true)
			end
		end
	end,
	-- Callbacks
	eventTextAreaCallback = function(i,n,c)
		if c == "close" then
			ui.removeTextArea(1,n)
		end
	end,
}

--[[ Chat ]]--
mode.chat = {
	-- Translations
	translations = {
		en = {
			-- Init
			welcome = "<J>Welcome to #chat. Enjoy while you are muted ?! Report any issue to Bolodefchoco.",

			-- Info
			loadmap = "loaded by",
			enabled = "enabled",
			disabled = "disabled",

			-- Cats
			shaman = "shaman",
			newGame = "Auto New Game",

			-- Misc
			title = "%s has just unlocked the «%s» title.\n<ROSE>Type /title to choose a title",
		},
		br = {
			welcome = "<J>Bem-vindo ao #chat. Aproveite enquanto você está mutado ?! Reporte qualquer problema para Bolodefchoco.",

			loadmap = "carregado por",
			enabled = "ativado",
			disabled = "desativado",

			shaman = "shaman",
			newGame = "Novo Jogo Automático",

			title = "%s Desbloqueou o título «%s»\n<ROSE>Digite /title para escolher um título.",
		},
		ar = {
			welcome = "<J>مرحبًا بك في #chat. استمتع بينما أنت مكتوم ?! بلغ عن أي مشكلة إلى Bolodefchoco.",

			loadmap = "شُغل بواسطة",
			enabled = "فُعل",
			disabled = "أُلغي",

			shaman = "الشامان",
			newGame = "جولة جديدة تلقائية",

			title = "%s has just unlocked the «%s» title.\n<ROSE>Type /title to choose a title",
		},
	},
	langue = "en",
	-- Data
	info = {},
	data = {},
	displayData = {},
	messageId = 0,
	-- New Game Settings
	hasShaman = false,
	autoNeWGame = false,
	-- Chat settings
	chatTitle = "Chat",
	-- Chat
	chat = function(n,message,update)
		if not update then
			ui.addPopup(0,2,"",n,107,325,565,true)
		end
		ui.addTextArea(0,"",n,108,73,564,253,0x212E35,0x212E35,1,true)
		ui.addTextArea(1,message,n,110,75,560,250,0x324650,0x324650,1,true)
		ui.addTextArea(2,"<p align='center'><B><V>" .. mode.chat.chatTitle,n,108,53,564,20,0x212E35,0x212E35,1,true)
		ui.addTextArea(3,"<p align='right'><B><R><a href='event:close'>X",n,110,54,560,20,1,1,0,true)
	end,
	getTextLength = function(line)
		return stringlen(stringgsub(line,"<.*>",""))
	end,
	loadData = function()
		local message = "<font size='7'>\n</font>"
		for i = 18,1,-1 do
			if #message < 1900 then
				local line = mode.chat.displayData[i] or ""
				message = message .. line
			end
		end
		return message
	end,
	updateToRead = function(n)
		ui.addTextArea(4,"<p align='center'><V><a href='event:open'><B>" .. stringsub(stringlower(mode.chat.chatTitle),1,8) .. "</B> <J>" .. mode.chat.info[n].toRead,n,712,378,80,nil,0x324650,0x212E35,1,true)
	end,
	displayChat = function(n,update)
		local loadedM = mode.chat.loadData()
		if not update then
			mode.chat.chat(n,loadedM)
		else
			for k,v in next,mode.chat.info do
				if v.open then
					mode.chat.chat(k,loadedM,k ~= n)
				else
					v.toRead = v.toRead + 1
					mode.chat.updateToRead(k)
				end
			end
		end
	end,
	newMessage = function(message,n)
		mode.chat.messageId = mode.chat.messageId + 1
		tableinsert(mode.chat.data,{mode.chat.messageId,n,stringgsub(stringgsub(message,"@%((.*)%)",function(text) return text end),"{.-:(.-)}",function(text) return text end)})

		if mode.chat.getTextLength(message) > 50 then
			message = stringsub(message,1,47) .. "..."
		end
		message = stringgsub(message,"<","&lt;") -- < to <
		message = stringgsub(message,"https?","") -- https to ""
		message = stringgsub(message,"://","") -- :// to ""
		message = stringgsub(message,"@%((.*)%)",function(text) -- @(link:text)
			return stringformat("<a href='event:display.%s'>%s</a>",mode.chat.messageId,text)
		end)

		if #message > 0 then
			if stringsub(message,1,1) == "/" then
				mode.chat.eventChatCommand(n,stringsub(message,2))
			else
				message = stringgsub(message,"{(.-):(.-)}",function(color,text) -- {colorTag:Text}
					color = stringupper(color)
					if tablefind({"BV","R","BL","J","N","N2","PT","CE","CEP","CS","S","PS","G","V","VP","VI","ROSE","CH","T"},color) then
						return stringformat("<%s>%s</%s>",color,text,color)
					else
						return text
					end
				end)
				tableinsert(mode.chat.displayData,1,stringformat("<V>[%s] <N>%s\n",n,message))
			end
		end
	end,
	-- Init
	init = function()
		mode.chat.translations.pt = mode.chat.translations.br
		mode.chat.langue = mode.chat.translations[tfm.get.room.community] and tfm.get.room.community or "en"
		tfm.exec.setRoomMaxPlayers(30)
		system.disableChatCommandDisplay("title",true)
		mode.chat.displayChat()
	end,
	-- New Player
	eventNewPlayer = function(n)
		mode.chat.info[n] = {
			open = true,
			toRead = 0,
		}
		mode.chat.displayChat(n)
		tfm.exec.chatMessage(system.getTranslation("welcome"),n)
	end,
	-- Answer bar
	eventPopupAnswer = function(i,n,a)
		if #stringgsub(a," ","") > 0 then
			mode.chat.newMessage(a,n)
			mode.chat.displayChat(n,true)
		else
			mode.chat.displayChat(n)
		end
	end,
	-- Callbacks
	eventTextAreaCallback = function(i,n,c)
		local p = stringsplit(c,"[^%.]+")
		if p[1] == "close" then
			ui.addPopup(0,2,"",n,1e7,1e7)
			for i = 0,3 do
				ui.removeTextArea(i,n)
			end
			mode.chat.info[n].open = false
			mode.chat.updateToRead(n)
		elseif p[1] == "open" then
			mode.chat.info[n].open = true
			mode.chat.info[n].toRead = 0
			mode.chat.displayChat(n)
			ui.removeTextArea(4,n)
		elseif p[1] == "display" then
			local msg = mode.chat.data[tonumber(p[2])]
			tfm.exec.chatMessage(stringformat("<N>> <V>[%s] <N>%s",msg[2],msg[3]),n)
		end
	end,
	-- Commands
	eventChatCommand = function(n,c)
		local p = stringsplit(c,"[^%s]+",stringlower)
		if p[1] == "title" and p[2] and system.roomAdmins[n] then
			mode.chat.chatTitle = stringsub(tableconcat(p," ",nil,2),1,40)
			mode.chat.displayChat()
		elseif p[1] == "np" and p[2] then
			tfm.exec.chatMessage(stringformat("<S>%s %s %s",stringsub(p[2],1,1) == "@" and p[2] or "@" .. p[2],system.getTranslation("loadmap"),n))
			tfm.exec.newGame(p[2])
		elseif p[1] == "sha" then
			mode.chat.hasShaman = not mode.chat.hasShaman

			tfm.exec.chatMessage("<S>• " .. system.getTranslation("shaman") .. " " .. system.getTranslation((mode.chat.hasShaman and "disabled" or "enabled")),n)
			tfm.exec.disableAutoShaman(mode.chat.hasShaman)
		elseif p[1] == "new" then
			mode.chat.autoNeWGame = not mode.chat.autoNeWGame

			tfm.exec.chatMessage("<S>• " .. system.getTranslation("newGame") .. " " .. system.getTranslation((mode.chat.autoNeWGame and "disabled" or "enabled")),n)
			tfm.exec.disableAutoNewGame(mode.chat.autoNeWGame)
			tfm.exec.disableAutoTimeLeft(mode.chat.autoNeWGame)
		elseif stringsub(c,1,6) == "unlock" then
			tfm.exec.chatMessage("<J>" .. stringformat(system.getTranslation("title"),n,stringsub(c,8)),n)
		end
	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 = "en",
	-- Data
	info = {},
	-- Maps
	maps = {3746497,6001536,3666224,4591929,"#10","#10","#10","#10","#10","#10","#10","#10","#10"},
	-- Settings
	isRunning = false,
	totalPlayers = 0,
	-- New Map Settings
	cannon = {
		x = 0,
		y = 0,
		time = 3,
		amount = 1,
		speed = 20,
	},
	canMessage = false,
	currentXml = -1,
	toDespawn = {},
	alivePlayers = {},
	-- Cannon ID
	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,
	-- Spawn Cannon
	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,
	-- Profile
	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,
	-- Update data
	updatePlayers = function()
		local alive,total = system.players()
		mode.cannonup.alivePlayers = system.players(true)
		mode.cannonup.totalPlayers = total
	end,
	-- Init
	reset = function()
		-- Data
		mode.cannonup.info = {}
	end,
	init = function()
		mode.cannonup.translations.pt = mode.cannonup.translations.br

		-- Sets the main language according to the community
		if mode.cannonup.translations[tfm.get.room.community] then
			mode.cannonup.langue = tfm.get.room.community
		end

		-- 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,
	-- New Player
	eventNewPlayer = function(n)
		if not mode.cannonup.info[n] then
			mode.cannonup.info[n] = {
				round = 0,
				victory = 0,
				death = 0
			}
		end

		tfm.exec.chatMessage("<J>" .. system.getTranslation("welcome"),n)
	end,
	-- New Game
	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.isRunning then
			if mode.cannonup.totalPlayers < 2 then
				mode.cannonup.isRunning = false
				mode.cannonup.canMessage = false
				mode.cannonup.currentXml = -2
			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 #mode.cannonup.alivePlayers < 2 then
						if mode.cannonup.canMessage 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
			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 then
				mode.cannonup.isRunning = true
			end
		end
	end,
	-- Commands
	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,
	-- Callbacks
	eventTextAreaCallback = function(i,n,c)
		if c == "close" then
			for i = 1,2 do
				ui.removeTextArea(i,n)
			end
		end
	end,
	-- Player Left
	eventPlayerLeft = function()
		mode.cannonup.updatePlayers()
	end,
	-- Player Died
	eventPlayerDied = function(n)
		mode.cannonup.info[n].death = mode.cannonup.info[n].death + 1
	end,
}

--[[ Xmas ]]--
mode.xmas = {
	-- Translations
	translations = {
		en = {"Merry Christmas & Happy New Year!","Christmas is approaching and S4nt4 has a lot to do on his <I>paws</I>. He wants to give all the gifts on time, but he must be fast! Since our dear S4nt4 is clumsy, some gifts will fall and you will have to <CE>collect</CE> them by pressing the <I>space bar</I>! Give the gifts back to S4nt4 when he feels <CE>dizzy</CE> by pressing the <I>space bar</I>!"},
		fr = {"Joyeux Noël et Bonne Année!","Noël approche et S4nt4 en a plein les <I>pattes</I>. Il veut donner tous les cadeaux à temps, mais il doit être rapide ! Puisque notre cher S4nt4 est maladroix, certains cadeaux tombent et vous devrez les, <CE>collecter</CE> en appuyant sur la <I>barre d'espace</I>! Donnez les cadeaux à S4nt4 quand il se sent <CE>étourdi</CE> en appuyant sur la <I>barre d'espace</I>!"},
		br = {"Feliz Natal & Feliz Ano Novo!","O Natal está chegando e S4nt4 tem em suas <I>patas</I> muito o que fazer. Ele quer entregar todos os presentes a tempo, mas ele deve ser rápido! Uma vez que nosso querido S4NT4 é desajeitado, alguns presentes cairão e você terá que <CE>coletá-los</CE> pressionando a <I>barra de espaço</I>! Devolva os presentes ao S4nt4, pressionando a <I>barra de espaço</I>, quando ele se sentir <CE>tonto</CE>!"},
		es = {"¡Feliz Navidad y Próspero Año Nuevo!","La Navidad se está acercando y S4nt4 tiene muchas cosas que hacer con sus <I>patas</I>. Él quiere dar todos los regalos a tiempo, pero debe ser rápido! Puesto que nuestro querido S4nt4 es torpe, algunos regalos caerán y tendrás que <CE>recogerlos</CE> pulsando la <I>barra espaciadora</I>! Regrese los regalos a S4nt4 cuando se sienta <CE>mareado</CE> presionando la <I>barra de espacio</I>!"},
		tr = {"Mutlu Noeller & Mutlu Yıllar!","Noel geliyor ve S4nt4'nın <I>patilerinde</I> yapacağı çok işi var. Bütün hediyeleri zamanında vermek istiyor ama hızlı olması gerek! Sevgili S4nt4'mız sakar olduğu için, bazı hediyeler düşecek ve <I>boşluk tuşuna</I> basarak onları <CE>toplamanız</CE> gerekecek! S4nt4'nın <CE>başı döndüğünde</CE> <I>boşluk tuşuna</I> basarak hediyeleri ona geri verin!"},
		pl = {"Wesołych Świąt i Wesołego Nowego Roku!","Święta nadchodzą, a S4nt4 ma <I>łapki</I> pełne roboty. On chce dać wszystkim prezenty na czas, ale musi się pośpieszyć! Od kiedy nasz S4nt4 jest niezdarny, gubi prezenty, które musicie <CE>pozbierać</CE> wciskając <I>spację</I>! Oddajcie prezenty S4nt4 kiedy jest <CE>oszołomiony</CE> wciskając <I>spację</I>!"},
		ar = {"عيد ميلاد مجيدا و كل عام و أنتم بخير","عيد الميلاد اقترب و<I> يدى </I> سانتا مليئة. يريد سانتا تسليم جميع الهدايا على الوقت, ولكن يجب ان يكون سريعا! ولكن صديقنا العزيز سانتا غير بارع في تسليم الهدايا, بعض الهدايا ستسقط وعليك ان تقوم <CE> بجمع</CE>  الهدايا التي سقطت عن طريق الضغط على المسطرة ! وارجاع الهدايا الى صديقنا العزيز سانتا عندما يشعر <CE> بالدوار</CE> عن طريق الضغط على زر المسطرة!"},
		hu = {"Boldog Karácsonyt & Boldog Új Évet!","A Karácsony közeleg, és a Mikulásra pedig <I>rengeteg munka vár<I>. Oda akarja adni az összes ajándékot időben, de muszáj gyorsnak lennie! Mivel a mi Mikulásunk kétbalkezes, néhány ajándék lepottyan és Neked kell <CE>összegyűjteni</CE> azokat, a <I>Szóköz</I> megnyomásával! Vidd vissza a Mikulásnak az ajándékot a <I>Szóköz</I> megnyomásával, amikor Mikulás <CE>megszédül</CE>!"},
		ru = {"С новым годом и Рождеством!","Рождество приближается и S4nt4 направляется к вам! Он очень спешит, чтобы раздать все подарки вовремя! Но так как наш дорогой S4nt4 неуклюж, то некоторые подарки будут падать. Вы должны <CE>собрать</CE> их, нажимая клавишу <I>пробел</I>! Помогите S4nta. <CE>Верните</CE> ему подарки обратно с помощью <I>пробела</I>!"},
	},
	langue = "en",
	-- Data
	info = {},
	gifts = {
		[1] = {
			[1] = "158bb1db61b",
			[2] = 20000,
		};
		[2] = {
			[1] = "158bb1c95e0",
			[2] = 15000,
		};
		[3] = {
			[1] = "158bb1cc6ec",
			[2] = 10000,
		};
		[4] = {
			[1] = "158bb1ce1aa",
			[2] = 8000,
		};
		[5] = {
			[1] = "1591c9b3123",
			[2] = 6000,
		};
	},
	-- Maps
	xml = '<C><P DS="y;310" /><Z><S><S H="10" L="50" X="275" c="2" Y="165" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S L="200" X="100" H="80" Y="360" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S L="200" X="109" H="80" Y="379" T="12" P="0,0,0.3,0.2,-10,0,0,0" /><S X="391" L="230" H="80" c="3" Y="354" T="12" P="0,0,0.3,0.2,-2,0,0,0" /><S H="100" L="230" X="430" c="3" Y="411" T="12" P="0,0,0.3,0.2,-30,0,0,0" /><S H="80" L="180" X="705" c="3" Y="397" T="12" P="0,0,0.3,0.2,-2,0,0,0" /><S P="0,0,0.3,0.2,0,0,0,0" L="44" H="10" c="3" Y="361" T="13" X="237" /><S X="-5" L="10" H="3000" c="3" Y="100" T="12" P="0,0,0,0,0,0,0,0" /><S H="3000" L="10" X="805" c="3" Y="101" T="12" P="0,0,0,0,0,0,0,0" /><S L="10" X="400" H="3000" Y="-5" T="12" P="0,0,0,0,90,0,0,0" /><S L="80" H="10" X="96" Y="158" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S P="0,0,0.3,.9,0,0,0,0" L="50" X="275" c="3" Y="165" T="12" H="10" /><S L="130" X="527" H="10" Y="128" T="12" P="0,0,0.3,0.2,10,0,0,0" /><S L="90" H="10" X="632" Y="131" T="12" P="0,0,0.3,0.2,-10,0,0,0" /><S H="3000" L="10" o="23E9E9" X="805" c="2" Y="100" T="12" m="" P="0,0,0,2,0,0,0,0" /><S X="-5" L="10" o="23E9E9" H="3000" c="2" Y="100" T="12" m="" P="0,0,0,2,0,0,0,0" /><S P="0,0,0.3,0.2,-35,0,0,0" L="230" X="549" c="3" Y="467" T="12" H="100" /><S P="0,0,0.3,0.2,-55,0,0,0" L="230" H="100" c="3" Y="441" T="12" X="250" /><S L="230" X="125" H="100" Y="422" T="12" P="0,0,0.3,0.2,-30,0,0,0" /><S X="510" L="230" H="100" c="3" Y="477" T="12" P="0,0,0.3,0.2,-65,0,0,0" /><S L="50" X="91" H="50" Y="339" T="12" P="0,0,0.3,0.2,-45,0,0,0" /><S P="0,0,0.3,0.2,0,0,0,0" L="30" X="164" c="2" Y="325" T="12" H="50" /><S P="0,0,0.3,1.1,0,0,0,0" L="30" H="50" c="3" Y="325" T="12" X="164" /><S L="50" X="240" H="10" Y="158" T="12" P="0,0,0.3,0.2,0,0,0,0" /><S L="50" H="10" X="443" Y="125" T="12" P="0,0,0.3,0.2,-20,0,0,0" /><S H="80" L="220" o="23E9E9" X="393" c="1" Y="359" T="12" m="" P="0,0,0.3,0.2,-2,0,0,0" /><S L="230" o="23E9E9" X="427" H="100" Y="416" T="12" m="" P="0,0,0.3,0.2,-30,0,0,0" /><S P="0,0,0.3,0.2,-65,0,0,0" L="230" o="23E9E9" H="100" Y="481" T="12" m="" X="501" /><S P="0,0,0.3,0.2,-35,0,0,0" L="230" o="23E9E9" H="100" Y="474" T="12" m="" X="550" /><S P="0,0,0.3,0.2,-2,0,0,0" L="180" o="23E9E9" X="706" Y="404" T="12" m="" H="80" /><S P="0,0,0.3,0.2,1,0,0,0" L="230" o="23E9E9" X="314" c="2" Y="373" T="12" m="" H="100" /></S><D><P X="241" Y="507" T="51" P="0,1" /><P X="566" Y="449" T="46" P="0,0" /></D><O /></Z></C>',
	initx = 240,
	inity = 140,
	-- New Game Settings
	aim = 8,
	start = true,
	amountPlayers = 20,
	despawnObjects = {},
	currentGifts = {},
	currentTime = 0,
	leftTime = 150,
	-- Player Settings
	setPlayerTools = function(k)
		mode.xmas.info[k] = {
			db = {
				eventNoelGifts = {0,0},
			},
			catch = 0,
			lastColor = 0xB73535,
		}
		if not tfm.get.room.playerList[k].isDead then
			system.bindKeyboard(k,32,true,true)
		end
		mode.xmas.updateBar(k)
	end,
	-- Noel's AI
	noel = {
		x = 240,
		y = 140,
		id = -1,
		isEscaping = false,
		isDizzy = {0,false},
		timers = {
			teleport = 0,
			prize = 0
		},
		img = {
			dizzy = {"158bb1dccb6","158bb1cf9a8","158bb1d6489","158bb1e2518"},
			right = "158bb1d8069",
			left = "158bb1e0daf",
			jumping = "158bb1d470a",
			stop = "158bb1d9b67",
		},
		updateImage = function(img)
			tfm.exec.removeImage(mode.xmas.noel.imgId)
			mode.xmas.noel.imgId = tfm.exec.addImage(img..".png","#"..mode.xmas.noel.id,-23,-32)
		end,
		particles = function(id)
			for i = 1,5 do
				tfm.exec.displayParticle(id,mode.xmas.noel.x + mathrandom(-50,50),mode.xmas.noel.y + mathrandom(-50,50),tablerandom({-.2,.2}),tablerandom({-.2,.2}))
			end
		end,
		move = function(x,y)
			tfm.exec.moveObject(mode.xmas.noel.id,0,0,false,x,y,false)
		end,
		nearMouse = function(range)
			local player = {"",{dist=mathrandom(800),x=0,y=0}}
			for k,v in next,tfm.get.room.playerList do
				if not v.isDead then
					if mathpythag(v.x,v.y,mode.xmas.noel.x,mode.xmas.noel.y,range) then
						local m = v.x-mode.xmas.noel.x
						if mathabs(m) < player[2].dist then
							player = {k,{dist=m,x=v.x,y=v.y}}
						end
					end
				end
			end
			mode.xmas.noel.isEscaping = player[1] ~= ""
			return player
		end,
		escape = function(id)
			local player = mode.xmas.noel.nearMouse(mathrandom(80,100))
			local mul = (player[1] ~= "" and mathisNegative(player[2].dist,1,-1) or tablerandom({-1,1}))
			local img = mathisNegative(mul,"left","right")
			local rand = 9 - mathrandom(0,9)
			if id == 0 or (rand < 6) then
				mode.xmas.noel.move(mul * mathrandom(50,80),-mathrandom(1,10))
				mode.xmas.noel.updateImage(mode.xmas.noel.img[img])
			elseif id == 1 or (rand < 9) then
				mode.xmas.noel.move(mul * mathrandom(60,70),-80)
				mode.xmas.noel.updateImage(tablerandom({mode.xmas.noel.img[img],mode.xmas.noel.img.jumping}))
			elseif id == 2 or rand == 9 then
				mode.xmas.noel.move(mul * mathrandom(10,20),-mathrandom(70,100))
				mode.xmas.noel.updateImage(mode.xmas.noel.img.jumping)
			end
		end,
		meep = function()
			tfm.exec.displayParticle(20,mode.xmas.noel.x,mode.xmas.noel.y)
			tfm.exec.explosion(mode.xmas.noel.x,mode.xmas.noel.y,20,50)
		end,
		cannon = function()
			local player = mode.xmas.noel.nearMouse(100)
			if player[1] ~= "" then
				local x = mode.xmas.noel.x + (mode.xmas.noel.x > player[2].x and -40 or 40)
				local y = mode.xmas.noel.y + (mode.xmas.noel.y > player[2].y and -40 or 40)
				local angle = mathdeg(mathatan2(player[2].y-mode.xmas.noel.y,player[2].x-mode.xmas.noel.x)) + 90
				tableinsert(mode.xmas.despawnObjects,{
					[1] = tfm.exec.addShamanObject(1703,x,y,angle),
					[2] = os.time() + 2500
				})
				local effect = function(id,sx,sy,xs,ys,e)
					for i = 1,2 do
						tfm.exec.displayParticle(id[i] and id[i] or id[1],x + sx * e,y - sy * e,xs/1.5,ys/1.5)
					end
				end
				for i = 1,20 do
					effect({9,11},mathcos(i),mathsin(i),mathcos(i),-mathsin(i),22)
					effect({13},mathcos(i),mathsin(i),mathsin(i),mathcos(i),19)
				end
			end
		end,
		teleport = function()
			if os.time() > mode.xmas.noel.timers.teleport then
				mode.xmas.noel.timers.teleport = os.time() + 8000
				tfm.exec.displayParticle(37,mode.xmas.noel.x,mode.xmas.noel.y)
				local x,y = mathrandom(20,780),mathrandom(50,300)
				tfm.exec.moveObject(mode.xmas.noel.id,x,y)
				tfm.exec.displayParticle(37,x,y)
			else
				mode.xmas.noel.escape(2)
			end
		end,
		gift = function()
			if os.time() > mode.xmas.noel.timers.prize then
				mode.xmas.noel.timers.prize = os.time() + 5000
				mode.xmas.noel.updateImage(mode.xmas.noel.img.stop)
				local giftsAmount = mode.xmas.amountPlayers < 10 and 1 or mathfloor(mode.xmas.amountPlayers/10)
				for i = 1,giftsAmount do
					local gift = tablerandom({2,4,3,1,1,2,3,5,2,4})
					for k,v in next,mode.xmas.gifts do
						if gift == k then
							gift = k
							break
						end
					end
					local gen = {}
					gen[1] = tfm.exec.addShamanObject(6300,mode.xmas.noel.x,mode.xmas.noel.y,0,tablerandom({-13,-10,-5,5,10,13}))
					gen[2] = os.time() + mode.xmas.gifts[gift][2]
					gen[3] = tfm.exec.addImage(mode.xmas.gifts[gift][1]..".png","#"..gen[1],-15,-15)
					gen[4] = gift
					tableinsert(mode.xmas.currentGifts,gen)
				end
			else
				mode.xmas.noel.escape(0)
			end
		end,
		dizzy = function(timer)
			if os.time() > mode.xmas.noel.timers.prize then
				mode.xmas.noel.isDizzy[1] = os.time() + 9500
			else
				mode.xmas.noel.escape(2)
			end
		end,
	},
	resetNoel = function()
		mode.xmas.initx = 240
		mode.xmas.inity = 140
		mode.xmas.noel.x = mode.xmas.initx
		mode.xmas.noel.y = mode.xmas.inity
		mode.xmas.noel.id = -1
		mode.xmas.noel.isEscaping = false
		mode.xmas.noel.isDizzy = {0,false}
		mode.xmas.noel.timers = {
			teleport = 0,
			prize = 0
		}
	end,
	-- Bar
	displayBar = function(id,player,value,nvalue,color,sig,size,height)
		sig = sig or ""
		size = size or 100
		height = height or 20

		ui.addTextArea(id,"",player,5,(height+8) * id,size + 4,height,0xC7CED2,1,1,true)
		if value ~= 0 then
			ui.addTextArea(id.."0","",player,6,(height+8) * id + 2,nvalue + 2,height - 4,color,color,1,true)
		end
		ui.addTextArea(id + 2,"<B><font color='#0'>"..value..sig,player,(size-30)/2,(height+8) * id + 1,50,height,1,1,0,true)
	end,
	updateBar = function(n,giftColor)
		giftColor = giftColor or mode.xmas.info[n].lastColor
		mode.xmas.displayBar(1,n,mathfloor(mode.xmas.info[n].db.eventNoelGifts[2]) .. " / "..mode.xmas.aim,(mode.xmas.info[n].db.eventNoelGifts[2] > mode.xmas.aim and 100 or mathpercent(mode.xmas.info[n].db.eventNoelGifts[2],mode.xmas.aim,100)),0xFF0000)
		mode.xmas.displayBar(2,n,mode.xmas.info[n].db.eventNoelGifts[1],(mode.xmas.info[n].db.eventNoelGifts[1] > 50 and 50 or mathpercent(mode.xmas.info[n].db.eventNoelGifts[1],50,50)),giftColor,"G",50,20)
	end,
	-- Init
	init = function()
		mode.xmas.translations.pt = mode.xmas.translations.br
		mode.xmas.langue = mode.xmas.translations[tfm.get.room.community] and tfm.get.room.community or "en"
		for i,f in next,{"AutoShaman","AfkDeath","MortCommand","AutoTimeLeft","PhysicalConsumables","AutoNewGame","DebugCommand"} do
			tfm.exec["disable"..f]()
		end
		tfm.exec.setRoomMaxPlayers(25)
		tfm.exec.newGame(mode.xmas.xml)
		mode.xmas.aim = system.miscAttrib > 0 and system.miscAttrib or 8
	end,
	-- New Game
	eventNewGame = function()
		mode.xmas.resetNoel()

		mode.xmas.start = true

		local _,aP = system.players()
		mode.xmas.amountPlayers = aP

		tfm.exec.setGameTime(150)
		tfm.exec.snow(150)
		mode.xmas.currentTime = 0
		mode.xmas.leftTime = 150

		tfm.exec.addImage("158c1feaf90.png","?0",0,0)

		ui.setMapName("<J>"..tablerandom({"Nöel","Christmas","Bolodefchoco","Lua event","#xmas","Bogkitty"}).." <G>- @"..tablerandom({666,404,801,os.date("%Y"),0,1}))
		ui.setShamanName("<R>S4NT4 M4U5")

		for k,v in next,tfm.get.room.playerList do
			mode.xmas.setPlayerTools(k)
		end
		tfm.exec.chatMessage(stringformat("<V><B>[^_^]</B></V> <BV>%s</BV>\n<V><B>[S4NT4 M4U5]</B></V> <R>%s</R>",mode.xmas.translations[mode.xmas.langue][2],stringupper(mode.xmas.translations[mode.xmas.langue][1])))
	end,
	-- New Player
	eventNewPlayer = function(n)
		tfm.exec.addImage("158c1feaf90.png","?0",0,0,n)
		mode.xmas.setPlayerTools(n)
		tfm.exec.respawnPlayer(n)
	end,
	-- Loop
	eventLoop = function()
		mode.xmas.currentTime = mode.xmas.currentTime + .5
		mode.xmas.leftTime = mode.xmas.leftTime - .5
		if mode.xmas.start then
			if mode.xmas.currentTime > 4 then
				if mode.xmas.noel.id == -1 then
					mode.xmas.noel.id = tfm.exec.addShamanObject(6300,mode.xmas.noel.x,mode.xmas.noel.y)
					mode.xmas.noel.updateImage(mode.xmas.noel.img.stop)
				end

				local ox,oy
				if tfm.get.room.objectList[mode.xmas.noel.id] then
					ox,oy = tfm.get.room.objectList[mode.xmas.noel.id].x,tfm.get.room.objectList[mode.xmas.noel.id].y
				else
					ox,oy = mode.xmas.noel.x,mode.xmas.noel.y
				end

				if (ox < -10 or ox > 810) or (oy > 400 or oy < -50) then
					tfm.exec.removeObject(mode.xmas.noel.id)
					mode.xmas.noel.x,mode.xmas.noel.y = mode.xmas.initx,mode.xmas.inity
					mode.xmas.noel.id = nil
				end

				if mode.xmas.noel.id then
					mode.xmas.noel.x = ox
					mode.xmas.noel.y = oy
				end

				for k,v in ipairs(mode.xmas.despawnObjects) do
					if os.time() > v[2] then
						tfm.exec.removeObject(v[1])
					end
				end
				for k,v in ipairs(mode.xmas.currentGifts) do
					if os.time() > v[2] then
						tfm.exec.removeObject(v[1])
						tfm.exec.removeImage(v[3])
					end
				end

				if os.time() > mode.xmas.noel.isDizzy[1] and mode.xmas.currentTime > 5 then
					mode.xmas.noel.particles(13)
					if mode.xmas.currentTime % 60 == 0 then
						mode.xmas.noel.dizzy()
					elseif mode.xmas.currentTime % 5 == 0 then
						mode.xmas.noel.gift()
						mode.xmas.noel.escape(1)
					elseif mathfloor(mode.xmas.currentTime) % 2 == 0 then
						local option = mathrandom((mode.xmas.noel.isEscaping and 15 or 12))
						if option > 3 then
							mode.xmas.noel.escape()
						else
							mode.xmas.noel.updateImage(mode.xmas.noel.img.stop)
							if mode.xmas.currentTime > 7 and mathrandom(1,2) == 1 then
								if option == 3 then
									mode.xmas.noel.cannon()
								elseif option == 2 then
									mode.xmas.noel.teleport()
								elseif option == 1 then
									mode.xmas.noel.meep()
								end
							end
						end
					else
						mode.xmas.noel.updateImage(mode.xmas.noel.img.stop)
					end
				else
					mode.xmas.noel.particles(1)
					if not mode.xmas.noel.isDizzy[2] then
						mode.xmas.noel.isDizzy[2] = true
						mode.xmas.noel.timers.prize = os.time() + 5000
						local imgId = #mode.xmas.noel.img.dizzy
						local animation = {}
						local numb = 1
						animation = system.looping(function()
							mode.xmas.noel.updateImage(mode.xmas.noel.img.dizzy[imgId])

							if imgId == #mode.xmas.noel.img.dizzy or imgId == 1 then
								numb = -numb
							end

							imgId = imgId + numb

							if (os.time()+250) > mode.xmas.noel.isDizzy[1] then
								for k,v in next,animation do
									system.removeTimer(v)
								end
								mode.xmas.noel.isDizzy = {0,false}
							end
						end,10)
					end
				end
			end
			if mode.xmas.leftTime < 2 then
				mode.xmas.start = false
				tfm.exec.newGame(mode.xmas.xml)
			end
		end
	end,
	-- Keyboard
	eventKeyboard = function(n,k,d,x,y)
		if mode.xmas.start then
			if os.time() > mode.xmas.info[n].catch and k == 32 then
				if os.time() < mode.xmas.noel.isDizzy[1] then
					if mathpythag(x,y,mode.xmas.noel.x,mode.xmas.noel.y,32) then
						mode.xmas.info[n].db.eventNoelGifts[2] = (mode.xmas.info[n].db.eventNoelGifts[1]/10) + mode.xmas.info[n].db.eventNoelGifts[2]
						mode.xmas.info[n].db.eventNoelGifts[1] = 0

						mode.xmas.updateBar(n)
					end
				else
					for k,v in next,mode.xmas.currentGifts do
						local o = tfm.get.room.objectList[v[1]]
						if o and mathpythag(x,y,o.x,o.y,25) then
							if (mode.xmas.info[n].db.eventNoelGifts[1]+v[4]) <= 50 then
								tfm.exec.removeObject(v[1])
								tfm.exec.removeImage(v[3])

								mode.xmas.currentGifts[k][2] = 0
								mode.xmas.info[n].db.eventNoelGifts[1] = mode.xmas.info[n].db.eventNoelGifts[1] + v[4]

								mode.xmas.updateBar(n,({0xB73535,0x358CB7,0x35B765,0xB7B735,0xB73487})[v[4]])
								break
							end
						end
					end
				end
				mode.xmas.info[n].catch = os.time() + 1000
			end
		end
	end,
	-- Player Died
	eventPlayerDied = function(n)
		if mode.xmas.start then
			system.bindKeyboard(n,32,true,false)
		end
	end,
}

--[[ Signal ]]--
mode.signal = {
	-- Translations
	translations = {
		en = {
			-- Init
			welcome = "<S>Welcome to <PS>#Signal<S>! Follow the signs and join the hole! Use !help to read more informations.\n\tReport any issue to Bolodefchoco",

			-- Info
			info = {
				[1] = {"Run","Run the faster you can. Do not stop!"},
				[2] = {"Attention","Pay attention! You can die in a few seconds!"},
				[3] = {"Stop","Stop or die!"},
			},
			skip = "<PS>[•] <S>Impossible map? Type !skip",
			skipped = "Your vote to skip the map has been recorded.",

			-- Simple words
			close = "Close",
		},
		br = {
			welcome = "<S>Bem-vindo ao <PS>#Signal<S>! Siga os sinais e entre na toca!  Use !help para ler mais informações.\n\tReporte qualquer problema para Bolodefchoco",

			info = {
				[1] = {"Corra","Corra o mais rápido que puder. Não pare!"},
				[2] = {"Atenção","Preste atenção! Você poderá morrer a qualquer momento!"},
				[3] = {"Pare","Pare ou morra!"},
			},
			skip = "<PS>[•] <S>Mapa impossível? Digite !skip",
			skipped = "Seu voto para passar o mapa foi registrado.",

			close = "Fechar",
		},
		pl = {
			welcome = "<S>Witaj w <PS>#Signal<S>! Patrz na tabliczke i wejdź do norki! Użyj komendy !help, aby przeczytać więcej informacji.\n\tZgłoś wszystkie błędy jakie znajdziesz do Bolodefchoco",

			info = {
				[1] = {"Biegnij","Biegnij jak najszybciej do norki. Nie zatrzymuj się!"},
				[2] = {"Uważaj","Uważaj! Możesz zginąć za kilka sekund!"},
				[3] = {"Stój","Stój albo zgiń!"},
			},
			skip = "<PS>[•] <S>Niemożliwa mapa? Wpisz komendę !skip",
			skipped = "Twój głos na ominięcie mapy został policzony.",

			close = "Zamknij",
		},
	},
	langue = "en",
	-- Data
	info = {},
	-- Maps
	generateMap = function()
		local groundProperties = {[0] = {.3,.2},[4] = {20,.2},[5] = {.3,.2},[6] = {.3,.2},[7] = {.1,.2},[10] = {.3,0},[11] = {.05,.1},[3] = {5,20}}
		local groundDecorations = {[0] = {0,4,5},[4] = {1,42,51},[5] = {1,2,4,12,18,20,32,42,46},[6] = {0,1,2,3,4,5,11,42},[7] = {7,8,9,10},[10] = {42,103,118},[11] = {51,106},[3] = {}}
		local newGround = "<S L=\"%s\" H=\"%s\" X=\"%s\" Y=\"%s\" T=\"%s\" P=\"0,0,%s,%s,0,0,0,0\" />"
		local newDecoration = "<P P=\"%s,0\" X=\"%d\" Y=\"%d\" T=\"%d\" />"
		local object = "<%s X=\"%s\" Y=\"%s\"/>"
		local objects = {hole="T",mice="DS",cheese="F"}

		local mapHeight = mathrandom(1500,3000)

		local grounds = {}
		local decorations = {}
		for i = 1,mathceil(mapHeight/180) do
			local T = tablerandom({0,4,5,6,7,10,11,tablerandom({4,5,6,10,3})})

			local H = T==3 and mathrandom(10,20) or mathrandom(40,100)

			local Y = (#grounds > 1 and grounds[#grounds].Y < 320 and mathrandom(230,310) or mathrandom(300,350)) or mathrandom(290,350)

			local X,L
			repeat
				X = (#grounds > 1 and (grounds[#grounds].X + ((mathrandom(-1,1) * 30) + 200)) or mathrandom(50,300))
				X = X < 60 and 100 or X > mapHeight - 100 and mapHeight - 300 or X
				L = T==3 and H or mathrandom(40,mathceil(mapHeight/18))
			until (X - (L/2)) > 50 and (X + (L/2)) < mapHeight - 50

			local properties = groundProperties[T]
			grounds[#grounds + 1] = {X=X,Y=Y,L=L,H=H,stringformat(newGround,L,H,X,Y,T,properties[1],properties[2])}

			if T ~= 3 and mathrandom(20) < 10 then
				local decoList = groundDecorations[T]
				decorations[#decorations + 1] = stringformat(newDecoration,tablerandom({0,0,0,mathrandom(0,1),1}),X - mathrandom(-((L/4)+1),((L/4)+1)),Y - (H/2),tablerandom(decoList))
			end
		end

		local cheeseX
		repeat
			cheeseX = mathrandom(200,mapHeight - 500)
		until (function()
			for k,v in next,grounds do
				if (cheeseX + 10) > (v.X - v.L/2) and (cheeseX - 10) < (v.X + v.L/2) then
					return false
				end
			end
			return true
		end)()

		grounds[#grounds + 1] = {X=0,Y=0,L=0,H=0,stringformat(newGround,200,40,100,380,2,.3,.9)}
		grounds[#grounds + 1] = {X=0,Y=0,L=0,H=0,stringformat(newGround,300,40,mapHeight - 150,380,6,.3,.2)}

		tfm.exec.newGame(stringformat("<C><P G=\"0,%s\" F=\"%s\" L=\"%s\" /><Z><S>%s</S><D>%s%s%s%s</D><O /></Z></C>",tablerandom({mathrandom(7,12),10,11,9}),tablerandom({0,1,2,3,4,5,7,8}),mapHeight,tableconcat(grounds,"",function(k,v) return v[1] end),stringformat(object,objects.hole,mapHeight - 30,360),stringformat(object,objects.mice,10,365),stringformat(object,objects.cheese,cheeseX,mathrandom(280,340)),tableconcat(decorations)))
	end,
	-- Settings
	sys = {0,1},
	discrepancy = 0,
	lights = {"15b52f8717d","15b52f8583a","15b52f88765"},
	lightId = -1,
	skip = 0,
	rounds = 0,
	possible = false,
	-- Settings
	update = function(id)
		tfm.exec.removeImage(mode.signal.lightId)
		mode.signal.lightId = tfm.exec.addImage(mode.signal.lights[mode.signal.sys[2]] .. ".png","&0",375,30)
		local color = ({0x1CB70C,0xF4D400,0xEC0000})[mode.signal.sys[2]]
		for k,v in next,mode.signal.info do
			if id == 1 then
				if not v.afk and v.canRev then
					tfm.exec.respawnPlayer(k)
				end
			end
			tfm.exec.setNameColor(k,color)
		end
	end,
	-- Help
	displayInfo = function(n,id)
		local color = ({"<VP>","<J>","<R>"})[id]
		ui.addTextArea(1,"<p align='center'><font size='25'>" .. color .. mode.signal.translations[mode.signal.langue].info[id][1] .. "\n</font></p><p align='left'><font size='14'>" .. mode.signal.translations[mode.signal.langue].info[id][2],n,250,110,300,181,0x324650,0x27343A,1,true)
		ui.addTextArea(2,"<font size='2'>\n</font><p align='center'><font size='16'><a href='event:close'>" .. mode.signal.translations[mode.signal.langue].close,n,250,300,300,30,0x27343A,0x27343A,1,true)
		ui.addTextArea(3,"<p align='center'><font size='20'><a href='event:info.1'><VP>•</a> <a href='event:info.2'><J>•</a> <a href='event:info.3'><R>•</a>",n,250,145,300,30,1,1,0,true)
		tfm.exec.removeImage(mode.signal.info[n].imageId)
		mode.signal.info[n].imageId = tfm.exec.addImage(mode.signal.lights[id] .. ".png","&1",375,200,n)
	end,
	-- Init
	reset = function()
		-- Data
		mode.signal.info = {}
	end,
	init = function()
		mode.signal.translations.pt = mode.signal.translations.br
		mode.signal.langue = mode.signal.translations[tfm.get.room.community] and tfm.get.room.community or "en"

		for _,f in next,{"AutoShaman","AutoNewGame","AutoTimeLeft","PhysicalConsumables"} do
			tfm.exec["disable"..f]()
		end

		mode.signal.generateMap()
	end,
	-- New Player
	eventNewPlayer = function(n)
		if not mode.signal.info[n] then
			mode.signal.info[n] = {
				isMoving = {false,false,false,false},
				imageId = -1,
				afk = true,
				skipped = false,
				canRev = true,
			}
		end
		for i = 0,3 do
			system.bindKeyboard(n,i,true,true)
			system.bindKeyboard(n,i,false,true)
		end
		tfm.exec.chatMessage(mode.signal.translations[mode.signal.langue].welcome,n)
	end,
	-- New Game
	eventNewGame = function()
		mode.signal.skip = 0
		mode.signal.possible = false
		mode.signal.rounds = mode.signal.rounds + 1

		if mode.signal.rounds % 3 == 0 then
			tfm.exec.chatMessage(mode.signal.translations[mode.signal.langue].skip)
		end

		ui.setMapName("<BL>@" .. mathrandom(999) .. "   <G>|   <N>Round : <V>" .. mode.signal.rounds)

		for k,v in next,mode.signal.info do
			v.isMoving = {false,false,false,false}
			v.afk = true
			v.skipped = false
			v.canRev = true
		end

		mode.signal.sys = {0,1}
		mode.signal.update(mode.signal.sys[2])
	end,
	-- Keyboard
	eventKeyboard = function(n,k,d)
		if mode.signal.sys[2] == 3 and d and os.time() > mode.signal.discrepancy then
			tfm.exec.killPlayer(n)
		else
			mode.signal.info[n].isMoving[k + 1] = d
		end
		mode.signal.info[n].afk = false
	end,
	-- Loop
	eventLoop = function(currentTime,leftTime)
		if _G.currentTime > 8 then
			if os.time() > mode.signal.sys[1] then
				mode.signal.sys[2] = (mode.signal.sys[2] % 3) + 1
				mode.signal.sys[1] = os.time() + ({mathrandom(7,13),mathrandom(2,3),mathrandom(3,5)})[mode.signal.sys[2]] * 1000
				mode.signal.update(mode.signal.sys[2])
				mode.signal.discrepancy = os.time() + 520
			end
		end

		if _G.leftTime > 2 and system.players() > 0 then
			if mode.signal.sys[2] == 3 and os.time() > mode.signal.discrepancy then
				for k,v in next,mode.signal.info do
					for i,j in next,v.isMoving do
						if j then
							tfm.exec.killPlayer(k)
							break
						end
					end
				end
			end
		else
			mode.signal.generateMap()
		end
	end,
	-- Callbacks
	eventTextAreaCallback = function(i,n,c)
		local p = stringsplit(c,"[^%.]+")
		if p[1] == "info" then
			mode.signal.displayInfo(n,tonumber(p[2]))
		elseif p[1] == "close" then
			tfm.exec.removeImage(mode.signal.info[n].imageId)
			for i = 1,3 do
				ui.removeTextArea(i,n)
			end
		end
	end,
	-- Commands
	eventChatCommand = function(n,c)
		if c == "info" or c == "help" or c == "?" then
			eventTextAreaCallback(nil,n,"info." .. mode.signal.sys[2])
		elseif c == "skip" and _G.currentTime > 8 and not mode.signal.possible and not mode.signal.info[n].skipped then
			mode.signal.skip = mode.signal.skip + 1
			tfm.exec.chatMessage(mode.signal.translations[mode.signal.langue].skipped,n)

			local alive,total = system.players()
			if mode.signal.skip == mathceil(.5 * total) then
				tfm.exec.chatMessage("o/")
				mode.signal.generateMap()
			end
		end
	end,
	-- Victory
	eventPlayerWon = function(n)
		mode.signal.possible = true
		mode.signal.info[n].canRev = false
		tfm.exec.setGameTime(40,false)
	end,
}

--[[ Bootcamp+ ]]--
mode.bootcampP = {
	-- Translations
	translations = {
		en = {
			-- Init
			welcome = "Welcome to <B>#Bootcamp+</B>! Type !info to check the commands\n\tReport any issue to Bolodefchoco!",

			-- Info
			info = "Checkpoint:\n\tIf the checkpoint system is enabled, press <B>E</B> to put a checkpoint and <B>Shift+E</B> to remove it.\nAdmin\n\tIf you are a room admin, there are some commands that you can execute:\n\tMaps\n\t\t!next <V>--> Pass the map</V>\n\t\t!again <V>--> Resets the current map</V>\n\t\t!np @Code <VP>or</VP> !map @Code <V>--> Loads a map</V>\n\t\t!queue clear <V>--> Clear the map queue</V>\n\t\t!queue add @Code <V>--> Adds a map in the map queue</V>\n\t\t!queue P3 <VP>or</VP> P13 <VP>or</VP> P23 <V>--> Adds the whole official rotation of P3 or P13 or P23 in the map queue</V>\n\tTime\n\t\t!time TimeInMinutes <V>--> Set the time of the current round in TimeInMinutes</V>\n\t\t!standtime TimeInMinutes <V>--> Set the time of all the rounds in TimeInMinutes</V>\n\tOthers\n\t\t<B>Shift+Click</B> in a ground to read its properties\n\t\t!checkpoint [[not] cheese] <V>--> Enables/Disables the checkpoint system</V>\n\t\tKey Delete <V>--> Kills you</V>",
			skip = "<VP>%s</VP> just skipped the map!",
			restart = "<VP>%s</VP> just restarted the current map!",
			loadmap = "<VP>%s</VP> just loaded the map %s!",
			settime = "The time has been set to %s minutes!",
			setstandtime = "The standard time of all the rounds has been set to %s minutes!",
			enabled = "enabled! Press <B>E</B> to put a checkpoint and <B>Shift+E</B> to remove it.",
			queuecleared = "%s just cleared the map queue",
			queuemapadded = "%s just added the map %s to the map queue",
			queueperm = "%s just added the category %s to the map queue",
			queuereset = "%s just reseted the queue to the main maps",

			-- Simple words
			disabled = "disabled!",
		},
		br = {
			welcome = "Bem-vindo ao <B>#Bootcamp+</B>! Digite !info para checar os comandos\n\tReporte quaisquer problemas para Bolodefchoco!",

			info = "Checkpoint:\n\tSe o sistema de checkpoint está ativado, pressione <B>E</B> para marcar um checkpoint e <B>Shift+E</B> para remove-lo.\nAdmin\n\tSe você é um administrador da sala, há alguns comandos que você pode executar:\n\tMapas\n\t\t!next <V>--> Passa o mapa</V>\n\t\t!again <V>--> Reinicia o mapa atual</V>\n\t\t!np @Código <VP>ou</VP> !map @Código <V>--> Carrega um mapa</V>\n\t\t!queue clear <V>--> Limpa a lista de mapas</V>\n\t\t!queue add @Código <V>--> Adiciona um mapa na lista de mapas</V>\n\t\t!queue P3 <VP>ou</VP> P13 <VP>ou</VP> P23 <V>--> Adiciona a rotação inteira de P3 ou P13 ou P23 na lista de mapas</V>\n\tTempo\n\t\t!time TempoEmMinutos <V>--> Define o tempo do mapa atual em TempoEmMinutos</V>\n\t\t!standtime TempoEmMinutos <V>--> Define o tempo de todas as partidas em TempoEmMinutos</V>\n\tOutros\n\t\t<B>Shift+Click</B> sobre um piso para ler suas propriedades\n\t\t!checkpoint [[not] cheese] <V>--> Ativa/Desativa o sistema de checkpoint</V>\n\t\tTecla Delete <V>--> Mata-o</V>",
			skip = "<VP>%s</VP> acabou de passar o mapa!",
			restart = "<VP>%s</VP> acabou de reiniciar o mapa atual!",
			loadmap = "<VP>%s</VP> acabou de carregar o mapa %s!",
			settime = "O tempo foi definido para %s minutos!",
			setstandtime = "O tempo padrão para todas as partidas foram definidas para %s minutos!",
			enabled = "ativado! Pressione <B>E</B> para marcar um checkpoint e <B>Shift+E</B> para remove-lo.",
			queuecleared = "%s acabou de limpar a rotação de mapas",
			queuemapadded = "%s acabou de adicionar o mapa %s na rotação de mapas",
			queueperm = "%s acabou de adicionar a categoria %s na rotação de mapas",
			queuereset = "%s acabou de resetar a rotação de mapas para os mapas principais",

			disabled = "desativado!",
		},
		pl = {
			welcome = "Witaj w <B>#Bootcamp+</B>! Wpisz !info na czacie aby sprawdzić jakie są komendy\n\tZgłaszaj wszelkie błędy do Bolodefchoco!",

			info = "Checkpoint:\n\tJeżeli system checkpointów jest włączony, kliknij <B>E</B>, aby ustawić checkpoint i <B>Shift+E</B>, aby go usunąć.\nAdmin\n\tJeżeli jesteś administratorem pokoju, jest kilka komend, które możesz użyć:\n\tMapy\n\t\t!next <V>--> Przełącza mapę</V>\n\t\t!again <V>--> Restartuje mapę</V>\n\t\t!np @Code <VP>albo</VP> !map @Code <V>--> Ładuje mapę</V>\n\t\t!queue clear <V>--> Czyści kolejkę map</V>\n\t\t!queue add @Code <V>--> Dodaję mapę do kolejki</V>\n\t\t!queue P3 <VP>albo</VP> P13 <VP>albo</VP> P23 <V>--> Dodaje wszystkie oficjalne rotacje z permów P3 albo P13 albo P23 do kolejki map</V>\n\tCzas\n\t\t!time CzasWMinutach <V>--> Ustawia czas obecnej mapy na CzasWMinutach</V>\n\t\t!standtime CzasWMinutach <V>--> Ustawia czas dla wszystkich rund na CzasWMinutach</V>\n\tInne\n\t\t<B>Shift+Click</B> na gruncie aby przeczytać jego właściwości\n\t\t!checkpoint [[not] cheese] <V>--> Włącza/Wyłącza system checkpointów</V>\n\t\tKey Delete <V>--> Kills you</V>",
			skip = "<VP>%s</VP> pominął/-ęła mapę!",
			restart = "<VP>%s</VP> zrestartował/-a mapę!",
			loadmap = "<VP>%s</VP> załadował/-a mapę %s!",
			settime = "Czas został ustawiony na %s minut!",
			setstandtime = "Standardowy czas dla wszystkich map został ustawiony na %s minut!",
			enabled = "włączony! Kliknij <B>E</B>, aby ustawić checkpoint i <B>Shift+E</B>, aby go usunąć.",
			queuecleared = "%s just cleared the map queue",
			queuemapadded = "%s just added the map %s to the map queue",
			queueperm = "%s just added the category %s to the map queue",
			queuereset = "%s just reseted the queue to the main maps",

			disabled = "wyłączony!",
		},
	},
	langue = "en",
	-- Data
	info = {},
	-- Maps
	maps = {},
	map = function()
		mode.bootcampP.maps = {6501305,6118143,2604997,2836937,6921682,3339586,5776126,5678468,6531399,5847160,5745650,7091808,7000003,6999993,4559999,4784241,3883780,4976520,4854044,6374076,3636206,6793803,4499335,4694197,5485847,6258690,3938895,1719709,4209243,6550335,5994088,3866650,3999455,4095418,4523127,1964971,1554670,4423047,764650,5562230,4883346,2978216,1947288,7025830,7108857,4766627,5888889,6782978,5699275,6422459,2634659,4808290,3620953,2973289,2604643,6591698,7134487,7054821,6900009,7159725,3737744,6933187,6864581,4701337,6631702,6761156,4212122,4160675,4623227,5191670,6377984,1132272,2781845,3460976,7167027,4834444,3734991,7138019,7037760,6521356,6502657,6469688,6092666,2749928,7175796,7142063,7167539,7173296,6995540,7151000,3931358,3374686,6324891,3704015,3937060,2429057,7192029,7192034,7192689}
	end,
	-- New Game Settings
	groundsData = {},
	mapData = {},
	standardTime = 6,
	checkpoint = false,
	-- Settings
	respawnCheese = false,
	-- Leaderboard
	rank = function(players,fromValue,showPos,showPoints,pointsName,lim)
		local p,rank = {},""
		fromValue,lim = fromValue or {tfm.get.room.playerList,"score"},tonumber(lim) or 100
		for n in next,players do
			p[#p+1] = {name=n,v=fromValue[1][n][fromValue[2]]}
		end
		tablesort(p,function(f,s) return f.v>s.v end)
		for o,n in next,p do
			if o <= lim then
				rank = rank .. (showPos and "<J>"..o..". " or "") .. "<V>" .. n.name .. (showPoints and " <BL>- <VP>" .. n.v .. " "..(pointsName or "points") .."\n" or "\n")
			end
		end
		return rank
	end,
	-- Init
	reset = function()
		-- Data
		mode.bootcampP.info = {}
	end,
	init = function()
		-- Translations
		mode.bootcampP.translations.pt = mode.bootcampP.translations.br
		mode.bootcampP.langue = mode.bootcampP.translations[tfm.get.room.community] and tfm.get.room.community or "en"

		-- Settings
		mode.bootcampP.respawnCheese = system.miscAttrib == 1

		-- Init
		for _,f in next,{"AutoShaman","AutoScore","AutoTimeLeft","AutoNewGame","PhysicalConsumables","AfkDeath"} do
			tfm.exec["disable"..f]()
		end
		tfm.exec.setAutoMapFlipMode(false)

		mode.bootcampP.map()
		tfm.exec.newGame(tablerandom(mode.bootcampP.maps))

		-- Auto Admin
		system.roomAdmins.Mquk = true
	end,
	-- New Game
	eventNewGame = function()
		tfm.exec.setGameTime(mode.bootcampP.standardTime * 60)
		mode.bootcampP.groundsData = {}
		mode.bootcampP.mapData = {}
		for k,v in next,mode.bootcampP.info do
			v.cheese = false
			v.checkpoint = {false,0,0,false}
			ui.removeTextArea(1,n)
		end

		local xml = tfm.get.room.xmlMapInfo.xml
		if xml then
			local grounds = stringmatch(xml,"<S>(.-)</S>")
			local properties = stringmatch(xml,"<C><P (.-)/>.*<Z>")
			if properties then
				mode.bootcampP.mapData = {
					width = stringmatch(properties,'L="(%d+)"') or 800,
					heigth = stringmatch(properties,'H="(%d+)"') or 400,
				}
			else
				mode.bootcampP.mapData = {
					width = 800,
					heigth = 400,
				}
			end

			local data = {}
			stringgsub(grounds,"<S (.-)/>",function(attributes)
				data[#data + 1] = attributes
			end)
			for i = 1,#data do
				mode.bootcampP.groundsData[i] = {}

				local type = stringmatch(data[i],'T="(%d+)"')
				mode.bootcampP.groundsData[i].type = type and tonumber(type) or -1

				local x = stringmatch(data[i],'X="(%d+)"')
				mode.bootcampP.groundsData[i].x = x and tonumber(x) or 0

				local y = stringmatch(data[i],'Y="(%d+)"')
				mode.bootcampP.groundsData[i].y = y and tonumber(y) or 0

				local width = stringmatch(data[i],'L="(%d+)"')
				mode.bootcampP.groundsData[i].width = width and tonumber(width) or 0

				local heigth = stringmatch(data[i],'H="(%d+)"')
				mode.bootcampP.groundsData[i].heigth = heigth and tonumber(heigth) or 0

				local info = stringmatch(data[i],'P="(.*)"')
				info = stringsplit(info,"[^,]+")

				mode.bootcampP.groundsData[i].friction = info[3] and tonumber(info[3]) or .3
				mode.bootcampP.groundsData[i].restitution = info[3] and tonumber(info[4]) or .2
				mode.bootcampP.groundsData[i].angle = info[3] and tonumber(info[5]) or 0
			end
		end
	end,
	-- New Player
	eventNewPlayer = function(n)
		if not mode.bootcampP.info[n] then
			mode.bootcampP.info[n] = {
				shift = false,
				checkpoint = {false,0,0,false},
				cheese = false,
			}
		end

		system.bindMouse(n,true)
		for i = 1,2 do
			system.bindKeyboard(n,16,i==1,true)
			system.bindKeyboard(n,stringbyte("K"),i==1,true)
		end

		system.bindKeyboard(n,stringbyte("E"),true,true)
		system.bindKeyboard(n,46,true,true) -- Delete key
		tfm.exec.chatMessage("<T>" .. system.getTranslation("welcome") .. "\n\t<CEP>/w Mquk #bootcamp+ @mapCode",n)

		local id = tfm.exec.addImage("15c6ee6324d.png","&0",120,100,n)
		system.newTimer(function()
			tfm.exec.removeImage(id)
		end,5000,false)
	end,
	-- Mouse
	eventMouse = function(n,x,y)
		if mode.bootcampP.info[n].shift then
			for i = #mode.bootcampP.groundsData,1,-1 do
				local g = mode.bootcampP.groundsData[i]
				local rad = mathrad(g.angle)
				local ax = {mathcos(rad),mathsin(rad)}

				local gX = g.x + ax[1] * (x - g.x) - ax[2] * (y - g.y)
				local gY = g.y + ax[2] * (x - g.x) + ax[1] * (y - g.y)

				if (g.type == 13 and mathpythag(x,y,g.x,g.y,g.width/2) or (mathabs(gX - g.x) < g.width/2 and mathabs(gY - g.y) < g.heigth/2)) then
					local properties = {"Type","ID","X","Y","Heigth","Width","Friction","Restitution","Angle"}
					local info = ""

					for k,v in next,properties do
						info = info .. stringformat("<N>%s : <V>%s\n",v,(v == "ID" and i or v == "Type" and (({[0] = "Unknown","Wood","Ice","Trampoline","Lava","Chocolate","Earth","Grass","Sand","Cloud","Water","Stone","Snow","Rectangle","Circle","Spiderweb"})[g.type + 1]) or tostring(g[stringlower(v)])))
					end

					local mapW = tonumber(mode.bootcampP.mapData.width)
					local mapH = tonumber(mode.bootcampP.mapData.heigth)
					ui.addTextArea(0,info,n,(x + 150 <= mapW and x) or (x < 0 and 0) or (mapW - 150),(y + 180 <= mapH and y > 20 and y) or (y < 20 and 25) or (mapH - 180),nil,nil,nil,nil,.8,false)
				end
			end
		else
			ui.removeTextArea(0,n)
		end
	end,
	-- Keyboard
	eventKeyboard = function(n,k,d,x,y)
		if k == 16 then
			mode.bootcampP.info[n].shift = d
		elseif k == stringbyte("E") and mode.bootcampP.checkpoint then
			if mode.bootcampP.info[n].shift then
				mode.bootcampP.info[n].checkpoint = {false,0,0,mode.bootcampP.info[n].checkpoint[4]}
				ui.removeTextArea(1,n)
			else
				mode.bootcampP.info[n].checkpoint = {true,x,y,true}
				ui.addTextArea(1,"",n,x-5,y-5,10,10,0x56A75A,0x56A75A,.5,true)
			end
		elseif k == stringbyte("K") then
			if d then
				ui.addTextArea(2,mode.bootcampP.rank(tfm.get.room.playerList,{tfm.get.room.playerList,"score"},true,true,"points",20),n,5,30,nil,200,nil,nil,.8,true)
			else
				ui.removeTextArea(2,n)
			end
		elseif k == 46 then
			tfm.exec.killPlayer(n)
		end
	end,
	-- Commands
	eventChatCommand = function(n,c)
		local p = stringsplit(c,"[^%s]+",stringlower)
		if p[1] == "info" then
			tfm.exec.chatMessage("<T>" .. system.getTranslation("info"),n)
		else
			if system.roomAdmins[n] then
				if p[1] == "next" and os.time() > system.newGameTimer then
					tfm.exec.newGame(tablerandom(mode.bootcampP.maps))
					tfm.exec.chatMessage("<T>• " .. stringformat(system.getTranslation("skip"),n))
				elseif p[1] == "again" and os.time() > system.newGameTimer then
					tfm.exec.newGame(tfm.get.room.currentMap)
					tfm.exec.chatMessage("<T>• " .. stringformat(system.getTranslation("restart"),n))
				elseif (p[1] == "np" or p[1] == "map") and os.time() > system.newGameTimer then
					tfm.exec.newGame(p[2])
					tfm.exec.chatMessage("<T>• " .. stringformat(system.getTranslation("loadmap"),n,stringfind(p[2],"@") and p[2] or "@"..p[2]))
				elseif p[1] == "time" then
					tfm.exec.setGameTime(p[2] * 60)
					tfm.exec.chatMessage(stringformat(system.getTranslation("settime"),p[2]))
				elseif p[1] == "standtime" then
					p[2] = p[2] and tonumber(p[2]) or 6
					if p[2] > 0 and p[2] < 10 then
						mode.bootcampP.standardTime = p[2]
						tfm.exec.chatMessage(stringformat(system.getTranslation("setstandtime",p[2])))
					end
				elseif p[1] == "checkpoint" then
					local attribute = false
					if p[2] then
						attribute = true
						if p[2] == "not" and p[3] and p[3] == "cheese" then
							mode.bootcampP.respawnCheese = false
						elseif p[2] == "cheese" then
							mode.bootcampP.respawnCheese = true
						else
							attribute = false
						end
					end

					if not (mode.bootcampP.checkpoint and attribute) then
						mode.bootcampP.checkpoint = not mode.bootcampP.checkpoint
						tfm.exec.chatMessage("<T>Checkpoint " .. system.getTranslation(mode.bootcampP.checkpoint and "enabled" or "disabled"))

						if not mode.bootcampP.checkpoint then
							ui.removeTextArea(1,nil)
							for k,v in next,mode.bootcampP.info do
								v.checkpoint = {false,0,0,v.checkpoint[4]}
							end
							if system.miscAttrib ~= 1 then
								mode.bootcampP.respawnCheese = false
							end
							for k,v in next,mode.bootcampP.info do
								v.cheese = false
							end
						end
					end
				elseif p[1] == "queue" then
					if p[2] == "clear" then
						mode.bootcampP.maps = {}
						tfm.exec.chatMessage("• " .. stringformat(system.getTranslation("queuecleared"),n))
					elseif p[2] == "add" then
						mode.bootcampP.maps[#mode.bootcampP.maps + 1] = p[3]
						tfm.exec.chatMessage("• " .. stringformat(system.getTranslation("queuemapadded"),n,stringfind(p[3],"@") and p[3] or "@"..p[3]))
					elseif p[2] and stringsub(p[2],1,1) == "p" then
						if p[2] == "p3" or p[2] == "p13" or p[2] == "p23" then
							mode.bootcampP.maps[#mode.bootcampP.maps + 1] = "#" .. stringsub(p[2],2)
							tfm.exec.chatMessage("• " .. stringformat(system.getTranslation("queueperm"),n,stringupper(p[2])))
						end
					else
						mode.bootcampP.map()
						tfm.exec.chatMessage("• " .. stringformat(system.getTranslation("queuereset"),n))
					end
				end
			end
		end
	end,
	-- Loop
	eventLoop = function()
		if _G.leftTime < 1 then
			tfm.exec.newGame(tablerandom(mode.bootcampP.maps))
		end
	end,
	-- Player Died
	eventPlayerDied = function(n)
		system.newTimer(function()
			tfm.exec.respawnPlayer(n)

			if mode.bootcampP.checkpoint and mode.bootcampP.info[n].checkpoint[1] then
				tfm.exec.movePlayer(n,mode.bootcampP.info[n].checkpoint[2],mode.bootcampP.info[n].checkpoint[3])
			end
			if mode.bootcampP.checkpoint and mode.bootcampP.info[n].cheese and mode.bootcampP.respawnCheese then
				tfm.exec.giveCheese(n)
			end
		end,1500,false)
	end,
	-- Victory
	eventPlayerWon = function(n,t,time)
		mode.bootcampP.info[n].cheese = false
		mode.bootcampP.info[n].checkpoint = {false,0,0,mode.bootcampP.info[n].checkpoint[4]}
		ui.removeTextArea(1,n)

		mode.bootcampP.eventPlayerDied(n)
		tfm.exec.setPlayerScore(n,1,true)
		tfm.exec.chatMessage(stringformat("<ROSE>%s (%ss <PT>(%scheckpoint)</PT>)",n,time/100,mode.bootcampP.info[n].checkpoint[4] and "" or "no "),n)
	end,
	-- Got Cheese
	eventPlayerGetCheese = function(n)
		if mode.bootcampP.checkpoint and mode.bootcampP.respawnCheese then
			mode.bootcampP.info[n].cheese = true
		end
	end,
}

--[[ Map ]]--
mode.map = {
	-- Translations
	translations = {
		en = {
			-- Init
			welcome = "Welcome to #map! Here you can test your maps in different categories and check its approvation in the community!\n\tAdd a map to the queue with the command <B>!maptest @Code PCategory</B> and check the map info using the command <B>!mapinfo</B>.\n\n\tReport any problem to Bolodefchoco.",

			-- Info
			savenewmap = "Your map %s is in the position %s",
			newmaptime = "Less than %s minutes",
			vote = "Your vote has been recorded.",
			dovote = "Hold P and vote according to your opinion about this map!",

			-- Map Info
			mapby = "Map %s loaded by %s as %s.",

			-- Security
			cantvote = "You cannot vote.",

			-- Simple words
			grounds = "Grounds",
			status = "Status",
			author = "Author",
		},
		br = {
			welcome = "Bem-vindo ao #map! Aqui você pode testar seus mapas em diferentes categorias e checar sua aprovação na comunidade!\n\tAdicione um mapa na lista de espera com o comando <B>!maptest @Código PCategoria</B> e cheque as informações do mapa usando o comando <B>!mapinfo</B>.\n\n\tReporte qualquer problema para Bolodefchoco.",

			savenewmap = "Seu mapa %s está na posição %s",
			newmaptime = "Menos de %s minutos",
			vote = "Seu voto foi registrado.",
			dovote = "Segure P e vote de acordo com sua opinião sobre este mapa!",

			mapby = "Mapa %s carregado por %s como %s.",

			cantvote = "Vote não pode votar.",

			grounds = "Pisos",
			status = "Estado",
			author = "Autor",
		}
	},
	langue = "en",
	-- Data
	info = {},
	-- Maps
	queue = {},
	-- Map Settings
	autoRespawn = false,
	category = -1,
	mapInfo = {},
	canInfo = false,
	totalPlayers = 0,
	skip = false,
	images = {},
	-- Next Map
	nextMap = function()
		if os.time() > system.newGameTimer and #mode.map.queue > 0 then
			local mapData = mode.map.queue[1]

			mode.map.mapInfo = {mapData[1],mapData[2],0,0}
			mode.map.category = mapData[3]

			mode.map.before()
			tfm.exec.newGame(mapData[1])
		end
	end,
	-- Category rules
	before = function()
		if mode.map.category >= 0 then
			if tablefind({0,1,4,5,6,8,9},mode.map.category) then
				tfm.exec.disableAutoShaman(false)
				tfm.exec.disableAfkDeath(false)
				mode.map.autoRespawn = false
			elseif tablefind({3,7,17},mode.map.category) then
				tfm.exec.disableAutoShaman()
				if mode.map.category == 3 then
					mode.map.autoRespawn = true
					tfm.exec.disableAfkDeath()
				end
			end
		end
	end,
	after = function()
		if mode.map.category >= 0 then
			if tablefind({0,1,4,5,6,8,9},mode.map.category) then
				tfm.exec.setGameTime(135)
				if mode.map.category == 8 and mode.map.totalPlayers > 1 then
					local newShaman
					repeat
						newShaman = tablerandom(system.players(true))
					until not tfm.get.room.playerList[newShaman].isShaman

					ui.setShamanName((function()
						for k,v in next,tfm.get.room.playerList do
							if v.isShaman then
								return k
							end
						end
						return "?"
					end)() .. " - <PS>" .. newShaman)
					tfm.exec.setShaman(newShaman)

					local xml = tfm.get.room.xmlMapInfo.xml
					local attribute = stringmatch(xml,"<DC2 (.-)/>")
					if attribute then
						local x = stringmatch(attribute,"X=\"(%d+)\"")
						local y = stringmatch(attribute,"Y=\"(%d+)\"")
						if x and y then
							tfm.exec.movePlayer(newShaman,x,y)
						end
					end

					tfm.exec.setNameColor(newShaman,0xF1C4F6)
				end
			elseif mode.map.category == 3 then
				tfm.exec.setGameTime(360)
			elseif mode.map.category == 7 then
				tfm.exec.setGameTime(120)
			elseif mode.map.category == 17 then
				tfm.exec.setGameTime(63)
			end
		end
	end,
	-- Init
	init = function()
		mode.map.translations.pt = mode.map.translations.br
		mode.map.langue = mode.map.translations[tfm.get.room.community] and tfm.get.room.community or "en"

		tfm.exec.disableAutoNewGame()
		tfm.exec.setGameTime(10,false)

		local alive
		alive,mode.map.totalPlayers = system.players()
	end,
	-- New Player
	eventNewPlayer = function(n)
		if not mode.map.info[n] then
			mode.map.info[n] = {
				hasVoted = false
			}
		end

		for i = 1,2 do
			system.bindKeyboard(n,stringbyte("P"),i == 1,true)
		end

		tfm.exec.chatMessage("<J>" .. system.getTranslation("welcome"),n)
	end,
	-- New Game
	eventNewGame = function()
		ui.removeTextArea(2,nil)
		mode.map.skip = false
		if mode.map.mapInfo[1] then
			mode.map.canInfo = true

			mode.map.after()
			mode.map.after = function() end
			tableremove(mode.map.queue,1)

			for k,v in next,mode.map.info do
				v.hasVoted = false
			end

			for k,v in next,mode.map.images do
				tfm.exec.removeImage(v)
			end

			xml.attribFunc(tfm.get.room.xmlMapInfo.xml,{
				[1] = {
					attribute = "img",
					func = function(value)
						local images = stringsplit(value,"[^;]+")
						for k,v in next,images do
							local info = stringsplit(v,"[^,]+")

							-- "img.png,x or 0,y or 0,0/1 (foreground)"
							info[4] = tonumber(info[4]) or 0
							if tablefind({0,1},info[4]) then
								mode.map.images[#mode.map.images + 1] = tfm.exec.addImage(info[1],(info[4] == 0 and "?" or info[4] == 1 and "&") .. k,tonumber(info[2]) or 5,tonumber(info[3]) or 30)
							end
						end
					end
				}
			})

			tfm.exec.chatMessage("<J>" .. stringformat(system.getTranslation("mapby"),"@" .. mode.map.mapInfo[1],mode.map.mapInfo[2],"P" .. mode.map.category))
			tfm.exec.chatMessage("<J>" .. system.getTranslation("dovote"))
		end
	end,
	-- Commands
	eventChatCommand = function(n,c)
		local p = stringsplit(c,"[^%s]+",stringlower)
		if system.isPlayer(n) and p[1] == "maptest" and p[2] then
			p[2] = tonumber(stringsub(p[2],(stringfind(p[2],"@") and 2 or 1),8))
			if p[2] and #tostring(p[2]) > 3 then
				if #mode.map.mapInfo == 0 then
					tfm.exec.setGameTime(10,false)
				end

				local pos = #mode.map.queue + 1
				local category = (p[3] and tonumber(stringsub(p[3],(stringfind(p[3],"p") and 2 or 1))) or 0)
				if tablefind({0,1,3,4,5,6,7,8,9,17,18},category) then
					if category == 18 then
						category = 1
					end
				else
					category = 0
				end

				mode.map.queue[pos] = {p[2],n,category}
				tfm.exec.chatMessage("<J><B>" .. stringformat(system.getTranslation("savenewmap"),stringformat("@%s (P%s)",p[2],category),"#" .. pos) .. "</B>. <ROSE>" .. stringformat("(%s)",stringformat(system.getTranslation("newmaptime"),pos * 2.5)),n)
			end
		elseif mode.map.mapInfo[1] and p[1] == "mapinfo" then
			local xml = tfm.get.room.xmlMapInfo
			xml = xml and xml.xml or "?"

			local attributes = stringmatch(xml,"<P (.-)/>") or "?"

			local totalGrounds = (function()
				local g = stringmatch(xml,"<S>(.-)</S>") or "?"

				local total = 0
				stringgsub(g,"<S ",function()
					total = total + 1
				end)

				return total
			end)()

			local info = {attributes,system.getTranslation("grounds") .. ": " .. totalGrounds,system.getTranslation("author") .. ": " .. (tfm.get.room.xmlMapInfo.author or "?"),system.getTranslation("status") .. ": " .. ("P" .. tfm.get.room.xmlMapInfo.permCode or "?")}
			ui.addTextArea(2,"\t<J>" .. tableconcat(info,"   <G>|<J>   "),n,5,380,790,20,1,1,.7,true)
		elseif n == mode.map.mapInfo[2] and p[1] == "time" then
			tfm.exec.setGameTime(tonumber(stringsub(p[2],1,3)) or 60,false)
		elseif n == mode.map.mapInfo[2] and p[1] == "skip" then
			if os.time() > system.newGameTimer then
				mode.map.skip = true
				mode.map.mapInfo = {}
			end
		end
	end,
	eventKeyboard = function(n,k,d)
		if k == stringbyte("P") and _G.currentTime > 5 and #mode.map.mapInfo > 0 then
			if d and not mode.map.info[n].hasVoted then
				if n == mode.map.mapInfo[2] or not system.isPlayer(n) then
					tfm.exec.chatMessage("<R>" .. system.getTranslation("cantvote"),n)
				else
					local ic = {{"+","VP"},{"-","R"}}
					for i = 0,1 do
						ui.addTextArea(i,"<p align='center'><font size='6'>\n<font size='17'><" .. ic[i+1][2] .. "><a href='event:" .. ic[i+1][1] .. "'><B>" .. ic[i+1][1] .. "1",n,5 + i * 50,30,40,40,1,1,.7,true)
					end
				end
			else
				for i = 0,1 do
					ui.removeTextArea(i,n)
				end
			end
		end
	end,
	-- Callbacks
	eventTextAreaCallback = function(i,n,c)
		mode.map.info[n].hasVoted = true
		if c == "+" then
			mode.map.mapInfo[3] = mode.map.mapInfo[3] + 1
		elseif c == "-" then
			mode.map.mapInfo[4] = mode.map.mapInfo[4] + 1
		end
		mode.map.eventKeyboard(n,stringbyte("P"),false)

		tfm.exec.chatMessage("• " .. system.getTranslation("vote"),n)
	end,
	-- Loop
	eventLoop = function()
		local alive = 100
		if _G.currentTime % 5 == 0 then
			alive,mode.map.totalPlayers = system.players()
		end
		if _G.leftTime < 1 or alive < 1 or mode.map.skip then
			if mode.map.mapInfo[1] and mode.map.canInfo then
				mode.map.canInfo = false

				local totalVotes = mode.map.mapInfo[3] + mode.map.mapInfo[4]
				if totalVotes > 0 then
					tfm.exec.chatMessage(stringformat("• [@%s] %s%% (%s)",mode.map.mapInfo[1],mathpercent(mode.map.mapInfo[3],totalVotes),totalVotes),mode.map.mapInfo[2])
				end
			end

			if #mode.map.queue > 0 then
				mode.map.nextMap()
			else
				tfm.exec.newGame()
			end
		end
	end,
	-- Player Died
	eventPlayerDied = function(n)
		if mode.map.autoRespawn then
			tfm.exec.respawnPlayer(n)
		end
	end,
	-- Player Won
	eventPlayerWon = function(n)
		mode.map.eventPlayerDied(n)
	end,
}

--[[ Godmode ]]--
mode.godmode = {
	-- Translations
	translations = {
		en = {
			-- Init
			welcome = "Welcome to <B>#godmode</B>. Type !info to read the help message.\n\tReport any issue to Bolodefchoco.",

			-- Guide
			shaman = "Hello shaman! Try to build without nails! Good luck.",

			-- Info
			info = "Use your creativity and build WITHOUT nails in shaman maps! The more mice you save, the higher your score will be. Do not let the mice die.\nPress P or type !p [playername] to open a profile.",
			xp = "You've saved %s mice and %s died.",

			-- Warning
			nail = "You can use %s more nails. After that, you will die.",
			kill = "Try not to use nails in your buildings.",
			fail = "You failed!",

			-- Profile
			profile = "Title : <V>«%s»<N>\n\nRounds : %s\n<N>Shaman : %s <G>/ %s\n\n<N>Deaths : %s",

			-- Titles
			titles = {
				"Shammy",
				"Experienced Shaman",
				"Evil Shaman",
				"Angry Shaman",
				"Spirit",
				"Haunted Shaman",
				"Troll Shaman",
				"Scientist",
				"Physics Master",
				"Black Magic",
			},
			unlock = "%s just unlocked «%s»",
		},
		br = {
			welcome = "Bem-vindo ao <B>#godmode</B>. Digite !info para ler a mensagem de ajuda.\n\tReporte qualquer problema para Bolodefchoco.",

			shaman = "Olá shaman! Tente construir sem pregos! Boa sorte.",

			info = "Utilize sua criatividade e construa em mapas shaman SEM pregos! Quanto mais ratos você salvar, maior será sua pontuação. Não deixe nenhum rato morrer.\nPressione P ou digite !p [nome] para abrir um perfil.",
			xp = "Você salvou %s ratos e %s morreram.",

			nail = "Você pode usar mais %s pregos. Depois disso, você morrerá.",
			kill = "Tente não usar pregos em suas construções.",
			fail = "Você falhou!",

			profile = "Título : <V>«%s»<N>\n\nPartidas : %s\n<N>Shaman : %s <G>/ %s\n\n<N>Mortes : %s",

			titles = {
				"Pequeno Shaman",
				"Shaman Profissional",
				"Shaman Mau",
				"Shaman Bravo",
				"Espírito",
				"Shaman Assombado",
				"Shaman Troll",
				"Cientista",
				"Mestre da Física",
				"Magia Negra",
			},
			unlock = "%s acabou de desbloquear «%s»",
		},
	},
	langue = "en",
	-- Data
	info = {},
	-- Shaman
	getShaman = function()
		local s = {}
		for k,v in next,tfm.get.room.playerList do
			if v.isShaman then
				s[#s + 1] = k
			end
		end

		return s
	end,
	-- New Game Settings
	savedMice = 0,
	deadMice = 0,
	lastShaman = {},
	-- Other Settings
	title = nil,
	titles = {0,10,20,30,40,50,60,70,80,90},
	-- Profile
	profile = function(n,p)
		ui.addTextArea(0,"<p align='center'><B><R><a href='event:profile.close'>X",n,513,115,20,20,1,1,1,true)
		ui.addTextArea(1,"<p align='center'><font size='16'><B><V>"..p.."</V></B></font></p><p align='left'><font size='12'>\n<N>" .. stringformat(system.getTranslation("profile"),mode.godmode.info[p].title,"<V>"..mode.godmode.info[p].roundSha,"<J>"..mode.godmode.info[p].cheeseMice,"<R>"..mode.godmode.info[p].deathMice,"<V>"..mode.godmode.info[p].deathSha),n,290,115,220,160,1,1,1,true)
	end,
	-- Update Menu Bar
	updateMenu = function()
		ui.setShamanName(tableconcat(mode.godmode.getShaman()," - <PS>") .. "   <G>|   <N>Status : <J>" .. mode.godmode.savedMice .. " <BL>/ <R>" ..  mode.godmode.deadMice)
	end,
	-- Init
	reset = function()
		-- Data
		mode.godmode.info = {}
	end,
	init = function()
		-- Translations
		mode.godmode.translations.pt = mode.godmode.translations.br
		mode.godmode.langue = mode.godmode.translations[tfm.get.room.community] and tfm.get.room.community or "en"

		-- Titles
		mode.godmode.title = system.getTranslation("titles")

		-- Init
		tfm.exec.disableAutoNewGame()
		tfm.exec.disableAllShamanSkills()
		tfm.exec.newGame("#4")

		-- Auto Admin
		system.roomAdmins.Mcqv = true
	end,
	-- New Player
	eventNewPlayer = function(n)
		if not mode.godmode.info[n] then
			mode.godmode.info[n] = {
				usedNails = 0,
				roundSha = 0,
				deathSha = 0,
				deathMice = 0,
				cheeseMice = 0,
				title = "Shammy",
			}
		end

		for k,v in next,{66,67,74,78,80,86} do
			system.bindKeyboard(n,v,true,true)
		end

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

		local id = tfm.exec.addImage("15ca3f4a200.png","&0",5,150,n)
		system.newTimer(function()
			tfm.exec.removeImage(id)
		end,10000,false)
	end,
	-- New Game
	eventNewGame = function()
		if #mode.godmode.lastShaman > 0 then
			for k,v in next,mode.godmode.lastShaman do
				mode.godmode.info[v].cheeseMice = mode.godmode.info[v].cheeseMice + mode.godmode.savedMice
				mode.godmode.info[v].deathMice = mode.godmode.info[v].deathMice + mode.godmode.deadMice
				tfm.exec.chatMessage("<CH>" .. stringformat(system.getTranslation("xp"),mode.godmode.savedMice,mode.godmode.deadMice),v)


				for i = #mode.godmode.titles,1,-1 do
					if mode.godmode.info[v].cheeseMice >= mode.godmode.titles[i] then
						if mode.godmode.info[v].title ~= mode.godmode.title[i] then
							mode.godmode.info[v].title = mode.godmode.title[i]
							tfm.exec.chatMessage("<J>" .. stringformat(system.getTranslation("unlock"),v,mode.godmode.title[i]))
						end
						break
					end
				end
			end
		end

		mode.godmode.savedMice = 0
		mode.godmode.deadMice = 0

		mode.godmode.updateMenu()

		for k,v in next,mode.godmode.info do
			v.usedNails = 0
		end
		for k,v in next,mode.godmode.getShaman() do
			mode.godmode.info[v].roundSha = mode.godmode.info[v].roundSha + 1
			tfm.exec.chatMessage("<CH>" .. system.getTranslation("shaman"),v)
		end

		tfm.exec.setGameTime(183)
	end,
	-- Keyboard
	eventKeyboard = function(n,k)
		if k == 80 then
			mode.godmode.profile(n,n)
		elseif not tfm.get.room.playerList[n].isDead and tfm.get.room.playerList[n].isShaman then
			if tablefind({66,67,74,78,86},k) then -- B;C;V;N;J
				mode.godmode.info[n].usedNails = mode.godmode.info[n].usedNails + 1
				if mode.godmode.info[n].usedNails > 4 then
					tfm.exec.killPlayer(n)
					tfm.exec.chatMessage("<R>" .. system.getTranslation("fail") .. " " .. system.getTranslation("kill"),n)
				else
					tfm.exec.chatMessage("<R>" .. stringformat(system.getTranslation("nail"),5 - mode.godmode.info[n].usedNails),n)
				end
			end
		end
	end,
	-- Summoned
	eventSummoningEnd = function(n,o,x,y,a,i)
		tfm.exec.removeObject(i.id)

		tfm.exec.addShamanObject(o,x,y,a,i.vx,i.vy,i.ghost)
	end,
	-- Loop
	eventLoop = function()
		local alive,total = system.players()
		if _G.leftTime < 2 or (total > 1 and alive < 2) or alive == 0 then
			mode.godmode.lastShaman = mode.godmode.getShaman()
			tfm.exec.newGame("#4")
		end
	end,
	-- Player Died
	eventPlayerDied = function(n)
		if tfm.get.room.playerList[n].isShaman then
			tfm.exec.setGameTime(10,false)
			mode.godmode.info[n].deathSha = mode.godmode.info[n].deathSha + 1
			tfm.exec.chatMessage("<R>" .. system.getTranslation("fail"),n)
		else
			mode.godmode.deadMice = mode.godmode.deadMice + 1
			mode.godmode.updateMenu()
		end
	end,
	-- Player Won
	eventPlayerWon = function(n)
		if not tfm.get.room.playerList[n].isShaman then
			mode.godmode.savedMice = mode.godmode.savedMice + 1
			mode.godmode.updateMenu()
		end
	end,
	-- Commands
	eventChatCommand = function(n,c)
		local p = stringsplit(c,"[^%s]+",stringlower)
		if p[1] == "info" then
			tfm.exec.chatMessage("<J>" .. system.getTranslation("info"),n)
		elseif p[1] == "p" then
			if p[2] then
				p[2] = stringnick(p[2])
				if mode.godmode.info[p[2]] then
					mode.godmode.profile(n,p[2])
				end
			else
				mode.godmode.profile(n,n)
			end
		end
	end,
	-- Callback
	eventTextAreaCallback = function(i,n,c)
		local p = stringsplit(c,"[^%.]+")
		if p[1] == "profile" then
			if p[2] == "close" then
				for i = 0,1 do
					ui.removeTextArea(i,n)
				end
			end
		end
	end,
}

--[[ Sharpie ]]--
mode.sharpie = {
	-- Translations
	translations = {
		en = {
			-- Init
			welcome = "Welcome to #sharpie! Fly pressing space.",

			-- Warning
			nothacker = "The mice flying are NOT hackers!",

			-- Sample words
			won = "won",

			-- Messages
			first = {
				"yay 2 in a row",
				"super pro",
				"oml are you playing alone or what",
				"wooow 4 in a row!",
				"getting hard? good luck pro!",
				"you noob just unlocked the title lightning",
				"woah speedmaster",
				"formula 1",
				"time traveler you sir",
				"queen of the win",
				"as pro as the developer",
				"ILLUMINATI!",
				"are you a real hacker?",
				"I hope you dont loose the chance of seeing the last message",
				"THIS IS A SHIT MESSAGE BECAUSE YOU DIDNT DESERVE IT",
			},
			hardMode = "The hard mode is activated this round!",
		},
		br = {
			welcome = "Bem-vindo ao #sharpie! Voe apertando espaço.",

			nothacker = "Os ratos voando NÃO são hackers!",

			won = "venceu",

			first = {
				"yay 2 seguidas",
				"super pro",
				"omg você tá jogando sozinho ou o que",
				"etaaa 4 seguidas!",
				"ficando difícil? boa sorte mito!",
				"vc noob acaba de desbloquear o título relâmpago",
				"vuash mestre da corrida",
				"relâmpago marquinhos",
				"viajante do tempo vc senhor",
				"rainha da vitória",
				"tão pro quanto o criador do jogo",
				"ILLUMINATI!",
				"éres um hacker de verdade?",
				"Espero que você não perca a chance de ler a última mensagem",
				"ESSA É UMA MENSAGEM DE MERDA PQ VC N MERECEU ISSO",
			},
			hardMode = "O modo difícil está ativado nessa partida!",
		},
	},
	langue = "en",
	-- New Game Settings
	flyPower = -50,
	firstRow = {"",0}, -- Player, amount
	podium = 0,
	totalPlayers = 0,
	hardmode = false,
	modeImages = {"15cbdb3c427","15cbdb479ca","15cbdb4a1ca","15cbdb4cae5"},
	mapInfo = {800,400},
	-- Not Hacker Message
	uiborder = function(t,x,y)
		local colors = {
			{"#F7F918","#EC4848"},
			{"#4CE7F7","#2C9F5B"},
			{"#4BD9CD","#2A64E9"},
			{"#D4F31A","#8C8fA4"},
		}
		local color = tablerandom(colors)

		ui.addTextArea(0,"<font color='" .. color[2] .. "'><B>"..t,nil,x,y-1,900,25,1,1,0,true)
		ui.addTextArea(1,"<font color='" .. color[2] .. "'><B>"..t,nil,x,y+1,900,25,1,1,0,true)
		ui.addTextArea(2,"<font color='" .. color[2] .. "'><B>"..t,nil,x+1,y,900,25,1,1,0,true)
		ui.addTextArea(3,"<font color='" .. color[2] .. "'><B>"..t,nil,x-1,y,900,25,1,1,0,true)
		ui.addTextArea(4,"<font color='" .. color[1] .. "'><B>"..t,nil,x,y,900,25,1,1,0,true)
	end,
	-- Init
	init = function()
		-- Init
		tfm.exec.disableAutoShaman()
		tfm.exec.disableAutoScore()

		tfm.exec.newGame()
	end,
	-- New Game
	eventNewGame = function()
		mode.sharpie.podium = 0

		local currentXml = tfm.get.room.xmlMapInfo
		currentXml = currentXml and currentXml.xml or ""

		mode.sharpie.mapInfo = {800,400}
		mode.sharpie.flyPower = -50

		xml.attribFunc(currentXml or "",{
			[1] = {
				attribute = "G",
				func = function(value)
					value = stringsplit(value,"[^,]+")
					value = tonumber(value[2]) or value
					mode.sharpie.flyPower = value < 0 and 50 or -50
				end
			},
			[2] = {
				attribute = "L",
				func = function(value)
					value = tonumber(value)
					if value then
						mode.sharpie.mapInfo[1] = value
					end
				end
			},
			[3] = {
				attribute = "H",
				func = function(value)
					value = tonumber(value)
					if value then
						mode.sharpie.mapInfo[2] = value
					end
				end
			},

		})

		mode.sharpie.hardmode = mathrandom(10) == 6
		if mode.sharpie.hardmode then
			tfm.exec.chatMessage("<CH>" .. system.getTranslation("hardMode"))
		end
	end,
	-- New Player
	eventNewPlayer = function(n)
		tfm.exec.chatMessage("<CE>" .. system.getTranslation("welcome"),n)

		system.bindKeyboard(n,32,true,true)
	end,
	-- Keyboard
	eventKeyboard = function(n,k,d,x,y)
		if k == 32 then

			tfm.exec.movePlayer(n,0,0,true,0,mode.sharpie.flyPower,true)
		end
	end,
	-- Victory
	eventPlayerWon = function(n)
		mode.sharpie.podium = mode.sharpie.podium + 1
		if mode.sharpie.podium == 1 then
			if mode.sharpie.firstRow[1] == n then
				mode.sharpie.firstRow[2] = mode.sharpie.firstRow[2] + 1

				if mode.sharpie.totalPlayers > 3 then
					local msg = system.getTranslation("first")
					tfm.exec.chatMessage("<G># <ROSE>" .. (msg[mode.sharpie.firstRow[2] - 1] or tablerandom({msg[2],msg[3],msg[6],msg[13],msg[15]})),n)
				end
			else
				mode.sharpie.firstRow = {n,1}
			end

			tfm.exec.setPlayerScore(n,(mode.sharpie.firstRow[2]+1) * 5,true)

			tfm.exec.chatMessage(stringformat("<J>%s %s! %s",n,system.getTranslation("won"),mode.sharpie.firstRow[2] > 1 and "("..mode.sharpie.firstRow[2]..")" or ""))
		else
			tfm.exec.setPlayerScore(n,5,true)
		end
	end,
	-- Loop
	eventLoop = function()
		if _G.currentTime % 5 == 0 then
			local alive,total = system.players()
			mode.sharpie.totalPlayers = total

			-- Warning
			mode.sharpie.uiborder(system.getTranslation("nothacker"),10,382)
		end

		if mode.sharpie.hardmode and _G.currentTime % 14 == 0 then
			system.newTimer(function()
				local x,y = mathrandom(0,mode.sharpie.mapInfo[1]),mathrandom(0,mode.sharpie.mapInfo[2])
				local id = tfm.exec.addImage(tablerandom(mode.sharpie.modeImages) .. ".png","&0",x - 56,y - 51) -- 112x103 img
				system.newTimer(function()
					tfm.exec.removeImage(id)

					tfm.exec.displayParticle(24,x,y)
					tfm.exec.explosion(x,y,50,100)
				end,1250,false)
			end,1000,false)
		end
	end,
}

--[[ Non-official Events ]]--
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
	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

--[[ Event Functions ]]--
events = {}

events.eventLoop = function(currentTime,leftTime)
	_G.currentTime = normalizeTime(currentTime / 1e3)
	_G.leftTime = normalizeTime(leftTime / 1e3)
end

events.eventChatCommand = function(n,c)
	disableChatCommand(c)
	if module._FREEACCESS[n] then
		if c == "refresh" and (not system.isRoom or module._FREEACCESS[n] > 1) then
			eventModeChanged()
			system.init(true)
		elseif stringsub(c,1,4) == "room" and (not system.isRoom or module._FREEACCESS[n] > 1) then
			system.roomNumber = tonumber(stringsub(c,6)) or 0
			if _G["eventChatCommand"] then
				eventChatCommand(n,"refresh")
			end
		elseif stringsub(c,1,4) == "load" and (not system.isRoom or module._FREEACCESS[n] > 2) then
			if os.time() > system.modeChanged and os.time() > system.newGameTimer then
				local newMode = system.getGameMode(stringsub(c,6),true)
				if newMode then
					system.init(system.isRoom)
				end
			end
		end
	end
	if stringsub(c,1,6) == "module" then
		c = stringupper(stringsub(c,8))
		if module["_" .. c] then
			tfm.exec.chatMessage(c .. " : " .. tableconcat(tableturnTable(module["_" .. c]),"\n",function(k,v)
				return (c == "FREEACCESS" and stringformat("%s(%s)",k,v) or v)
			end),n)
		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
	elseif c == "modes" then
		tfm.exec.chatMessage(tableconcat(system.submodes,"\n",function(k,v)
			return "#" .. system.normalizedModeName(v)
		end),n)
	elseif c == "admin" then
		tfm.exec.chatMessage(tableconcat(system.roomAdmins,", ",tostring),n)
	elseif c == "stop" and system.roomAdmins[n] then
		system.exit()
	elseif stringsub(c,1,3) == "adm" and (system.roomAdmins[n] or module._FREEACCESS[n] > 2) then
		system.roomAdmins[stringnick(stringsub(c,5))] = true
	end
end

events.eventNewPlayer = function(n)

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

--[[ Room Settings ]]--
system.roomSettings = {
	["@"] = function(n)
		system.roomAdmins[stringnick(n)] = true
	end,
	["#"] = function(id)
		system.miscAttrib = tonumber(id) or 1
		system.miscAttrib = mathsetLim(system.miscAttrib,1,99) -- mathmax(1,mathmin(system.miscAttrib,99))
	end,
	["*"] = function(name)
		local game = system.getGameMode(name)
		if not game then
			system.gameMode = "grounds"
		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
			value = stringmatch(value,"[^%s]+")
			for k,v in next,system.roomSettings do
				if k == char then
					v(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(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

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

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