local map = [[<C><P /><Z><S><S L="800" P="0,0,0.3,0.2,0,0,0,0" T="0" Y="400" H="30" X="400" /><S L="10" P="0,0,0.3,0.2,0,0,0,0" T="0" Y="185" H="400" X="400" /><S L="308" P="0,0,0.3,0.2,0,0,0,0" T="0" Y="81" H="10" X="156" /><S L="308" P="0,0,0.3,0.2,0,0,0,0" T="0" Y="81" X="646" H="10" /><S L="308" P="0,0,0.3,0.2,0,0,0,0" T="0" Y="5" X="156" H="10" /><S L="10" P="0,0,0.3,0.2,0,0,0,0" T="0" Y="43" H="65" X="5" /><S L="308" P="0,0,0.3,0.2,0,0,0,0" T="0" Y="5" H="10" X="646" /><S L="10" P="0,0,0.3,0.2,0,0,0,0" T="0" Y="43" X="795" H="65" /><S L="800" P="0,0,0.3,0.2,0,0,0,0" T="8" Y="40" H="10" X="395" /><S L="10" P="0,0,0,0,0,0,0,0" o="6a7495" T="12" Y="300" X="5" H="171" /><S L="10" o="6a7495" P="0,0,0,0,0,0,0,0" T="12" Y="300" X="795" H="171" /></S><D><DS X="45" Y="368" /><DS X="755" Y="368" /></D><O /></Z></C>]]
local start = false
local timer = 7
local tick = 0
local amount = 0

local SCORES = {16, 12, 10} --El primero gana +16, el segundo +12 y así
local pos = 0
local yScore = 20

local yGround = 735

local bodyDef = {
type=3, width=800, height=700,
foreground=true, friction=0,
restitution=0, angle=0, color=0,
miceCollision=false, groundCollision=false}

local mice = {}

function main()
	for name in pairs(tfm.get.room.playerList) do
		mice[name] = {x = 50, y = 370, score = 0} --Esto es solo para inicializar, Y DEBE SER LA MISMA Y DEL SPAWN
	end
	tfm.exec.disableAutoShaman()
	tfm.exec.disableAutoNewGame()
	tfm.exec.newGame(map)
	tfm.exec.setGameTime(1)
end

function eventNewGame()
	for name in pairs (tfm.get.room.playerList) do
		amount = amount + 1
		for _, key in ipairs({0,1,2,3}) do
			mice[name].x, mice[name].y = 50, 370
			if mice[name].score == nil then mice[name].score = 0; end
			system.bindKeyboard (name, key, true, true)
		end
	end
end

function eventKeyboard(name, key, down, x, y) --Las coordenadas se actualizan cada vez que se toque una tecla
	if not tfm.get.room.playerList[name].isDead then
		mice[name].x = x
		mice[name].y = y
	end
end

function createLava(t)
	if t == 1 then
		tfm.exec.addPhysicObject (0, 400, yGround, bodyDef)
		yGround = yGround - math.random(30, 50)
		return true
	end
	return false
end

function eventTextAreaCallback(id, name, event)
	if event == "reset" then
		ui.removeTextArea(0)
		for i=1, pos do
			ui.removeTextArea(i)
		end
		yScore = 20
		pos = 0
		tfm.exec.newGame(map)
		tfm.exec.setGameTime(1)
		yGround = 735
		timer = 7
	end
end

function checkPlayers()
	if amount == 0 or yGround-318 <= 85 then
		start = false
		ui.addTextArea(0, "<a href='event:reset'>Reset</a>", nil, 380, 100)
	end
end

function eventPlayerDied()
	amount = amount - 1
	checkPlayers()
end

function eventPlayerWon(name)
	pos = pos + 1
	if pos <= 3 then
		mice[name].score = mice[name].score + SCORES[pos]
	else
		mice[name].score = mice[name].score + 10
	end
	ui.addTextArea(pos, "<font size='10'>"..pos..". "..name..": "..mice[name].score.."\n", nil, 20, yScore)
	yScore = yScore + 35
	amount = amount - 1
	checkPlayers()
end

function checkCoord()
	for name in pairs(tfm.get.room.playerList) do
		if mice[name].y >= yGround-318 then --Como la pos y es el centro del suelo[cita requerida], le restamos 318 para que de aprox el borde superior
			tfm.exec.killPlayer(name)
		end
		if mice[name].y <= 79 then --llegó al final?
			tfm.exec.giveCheese(name)
			tfm.exec.playerVictory(name)
		end
	end
end

function eventLoop()
	if start then
		checkCoord()
		tick = tick + .5
		if createLava(tick) then
			tick = 0
		end
	end
	if timer > 0 then --Textarea timer
		ui.addTextArea (-1, "<font size='50'>"..math.ceil(timer).."</font>", nil, 380, 100, nil, nil, nil, nil, 0)
		timer = timer - .5
	elseif timer == 0 and not start and amount ~= 0 then --Empieza a subir la lava
		ui.removeTextArea(-1)
		start = true
	end
end

main()