maps = {5519723, 3189221, 1837313, 1238132} -- Put the map codes between the { }, without the "@"

alive = function()
	local out = 0
	for k,v in next,tfm.get.room.playerList do
		if not v.isDead then
			out = out + 1
		end
	end
	return out
end

newMap = false
eventNewGame = function()
	newMap = true
end

map_id = 1
eventLoop = function(current, elapsed)
	-- time < 1s or alive < 1
	if current <= 1000 or (current >= 3500 and alive() < 1) then
		if newMap then
			map_id = map_id + 1
			-- Resets the rotation when all the maps were loaded
			if map_id > #maps then
				map_id = 1
			end
			newMap = false
		end

		tfm.exec.newGame(maps[map_id])
	end
end

tfm.exec.disableAutoNewGame() 
tfm.exec.disableAutoShaman() 
tfm.exec.newGame(maps[map_id])

countMice = function(alive)
	local total = 0
	for k, v in next, tfm.get.room.playerList do
		if not alive or not v.isDead then
			total = total + 1
		end
	end
	return total
end

maps = {7366621, 7366621 , 7366621, 7366621} -- Put the map codes between the { }, without the "@"
tfm.exec.disableAutoShaman()
tfm.exec.disableAfkDeath()
tfm.exec.disableAutoScore()
tfm.exec.disableAutoNewGame() 

map_id = 1
first_round = true
isWaiting = false

-- Triggered twice per second
eventLoop = function(current, elapsed)
	local totalMice = countMice()
	if totalMice > 4 then
		if isWaiting then
			isWaiting = false
			print("Now it has more than 4 mice!")
		end

		-- time < 1s or alive < 1
		if first_round or elapsed <= 1000 or (current >= 3500 and countMice(true) < 1) then
			first_round = false
			if newMap then
				map_id = map_id + 1
				-- Resets the rotation when all the maps were loaded
				if map_id > #maps then
					map_id = 1
				end
				newMap = false
			end

			tfm.exec.newGame(maps[map_id])
		end
	else -- <= 4
		-- This if is needed, otherwise there'll be a newGame every single time
		if not isWaiting then	
			isWaiting = true
			tfm.exec.newGame("@7366519")
			tfm.exec.setNameColor("Borntolol", 0xFE0000)
			ui.setShamanName("5 mice for start!")
			ui.setMapName ("Lobby")
		end

	end	
end

newMap = false
eventNewGame = function()
	newMap = true
end

-- respawn
eventPlayerDied = function(n)
	if isWaiting then
		tfm.exec.respawnPlayer(n)
	end
end
eventNewPlayer = function(n)
	eventPlayerDied(n)
end

info = {}
eventNewPlayer = function(n)
	info[n] = {
		checkpointCoordinates = {},
		holdingShift = false
	}
	-- Press E to add a checkpoint and Shift + E to remove
	system.bindKeyboard(n, string.byte("E"), true, true)
	for i = 0, 1 do system.bindKeyboard(n, 16, i==0, true) end
end
table.foreach(tfm.get.room.playerList, eventNewPlayer)

eventKeyboard = function(n, k, d, x, y)
	if k == string.byte("E") then
		if info[n].holdingShift then
			info[n].checkpointCoordinates = {}
			ui.removeTextArea(0, n)
		else
			info[n].checkpointCoordinates = {x, y}
			ui.addTextArea(0, "" , n, x-5, y-5, 10, 10, 0x56A75A, 0x56A75A, .5, true)
		end
	elseif k == 16 then
		info[n].holdingShift = d
	end
end

eventNewGame = function()
	for k, v in next, info do
		v.checkpointCoordinates = {nil, nil}
		ui.removeTextArea(0, k)
	end
end

eventPlayerDied = function(n)
	tfm.exec.respawnPlayer(n)
	if #info[n].checkpointCoordinates > 0 then
		tfm.exec.movePlayer(n, info[n].checkpointCoordinates[1], info[n].checkpointCoordinates[2])
	end
end

eventPlayerWon = function(n)
	tfm.exec.respawnPlayer(n)
end

start = false
eventNewGame = function()
	start = true
	for i = 0, 100 do
		tfm.exec.addPhysicObject(i, i * 8, i * 4, { type = 0, miceCollision = true, groundCollision = true, width = 10, height = 10 })
	end
end

eventLoop = function(elapsed)
	if start then
		if elapsed > 5000 then
			for i = 0, 100 do tfm.exec.removePhysicObject(i) end
		end
	end
end
tfm.exec.newGame(0)

local a = 0
local b = 0
local c = 0
function eventLoop(ct,rt)
a = a + 1
b = b + 1
tfm.exec.addPhysicObject(b,a*10-5,c+50,{})
if a == 80 then
a = 0
c = c + 10
end
end

local a = 0
local b = 0
local c = 0
local t = 0
function eventLoop(ct,rt)
	for i = 1,10 do
		t = t + 1
		if t < 489 or b < 0 then
			if b<0 then t = 1 end
			a = a + 1
			b = b + 1
			tfm.exec.addPhysicObject(b,a*10-5,c+50,{})
			if a == 80 then
				a = 0
				c = c + 10
			end
		else
			tfm.exec.removePhysicObject(b)
			b = b - 1
		end
	end
end

string.split = function(str, pattern, f)
	local out = {}
	for value in string.gmatch(str, pattern) do
		out[#out + 1] = not f and value or f(value)
	end
	return out
end
local map = {}
eventNewGame = function()
	map = {}

	local xml = (tfm.get.room.xmlMapInfo or {}).xml or ""
	
	local property = {}

	local setValue = function(name, _, value)
		property[name] = (value:find(",") and string.split(value, "[^,]+") or tonumber(value) or value)
	end

	string.gsub(xml, "<S (.-)/>", function(attributes)
		property = {}

		string.gsub(attributes, "([%-%w]+)=([\"'])(.-)%2", setValue)
		map[#map + 1] = property
	end)

	for i = 1, #map do
		-- Prints the type of each ground in the map
		print(map[i].T)
	end
end

system.bindMouse("Overjoy06", true)
eventMouse = function(n)
	tfm.exec.newGame("#1") --> Change #1 with a @Code if you want
end