data={}
maps={7162824,7233571,6888882,3874909,5742159}

freezers={}

isFreezer=function(name)
	for _,n in pairs(freezers) do
		if n == name then
			return true
		end
	end

	return false
end

tfm.exec.disableAutoShaman()
tfm.exec.disableAutoNewGame()

sys={times={},newTimer=function(callback, tempo, arg1, arg2, arg3, arg4)if arg1 == nil and arg2 == nil and arg3 == nil and arg4 == nil then table.insert(sys.times,{call=callback, tempo=tempo, timer=os.time(), args={}}) end if arg1 ~= nil and arg2 == nil then table.insert(sys.times,{call=callback, tempo=tempo, timer=os.time(), args={arg1}}) end if arg1 ~= nil  and arg2 ~= nil and arg3 == nil then table.insert(sys.times,{call=callback, tempo=tempo, timer=os.time(), args={arg1,arg2}}) end if arg1 ~= nil and arg2 ~= nil and arg3 ~= nil and arg4 == nil then table.insert(sys.times,{call=callback, tempo=tempo, timer=os.time(), args={arg1,arg2,arg3}}) end if arg1 ~= nil and arg2 ~= nil and arg3 ~= nil and arg4 ~= nil then table.insert(sys.times,{call=callback, tempo=tempo, timer=os.time(), args={arg1,arg2,arg3,arg4}}) end return #sys.times end, removeTimer=function(id) table.remove(sys.times,id) end, eventLoop=function() for i,v in ipairs(sys.times) do if v.timer < os.time()-(v.tempo*1000) then if v.args[1] == nil then v.call() end if v.args[1] ~= nil and v.args[2] == nil then v.call(v.args[1])	end if v.args[1] ~= nil and v.args[2] ~= nil and v.args[3] == nil then v.call(v.args[1],v.args[2]) end if v.args[1] ~= nil and v.args[2] ~= nil and v.args[3] ~= nil and v.args[4] == nil then v.call(v.args[1],v.args[2],v.args[3]) end if v.args[4] ~= nil then v.call(v.args[1],v.args[2],v.args[3],v.args[4]) end table.remove(sys.times,i) end end end}

getAlives=function()
	local a = 0 table.foreach(tfm.get.room.playerList, function(k,v) if not v.isDead and not isFreezer(k) then a=a+1 end end) return a
end

function eventKeyboard(name,key,down,x,y)
	if key == 32 and isFreezer(name) and data[name].cooldown < os.time()-2000 then
		for k,player in pairs(tfm.get.room.playerList) do
			if name ~= k and not isFreezer(k) and data[k].count < 2 and not player.isDead and not data[k].freezed and x >= player.x - 15 and x <= player.x + 15 and y >= player.y - 15 and y <= player.y + 15 then
				tfm.exec.killPlayer(k)
				data[k].coords = {player.x,player.y}
				data[k].id=tfm.exec.addImage("15eda796ea2.png","?"..player.id,data[k].coords[1]-25,data[k].coords[2]-25)
				data[k].freezed=true
				data[k].cooldown_dead = 20
				data[k].count = data[k].count+1
				data[name].cooldown=os.time()
				break
			elseif data[k].count == 2 and not data[k].isFreezer then
				if math.random(1,8) == 4 then
					table.insert(freezers,k)
					tfm.exec.setNameColor(k,0xFFCC00)
					data[k].cooldown=os.time();
					tfm.exec.chatMessage(k.." virou um novo freezer.")
				else
					tfm.exec.killPlayer(k)
					data[k].freezed=true
					data[k].id=tfm.exec.addImage("15eda796ea2.png","!"..player.id,data[k].coords[1]-20,data[k].coords[2]-20)
				end
			end
		end
	end

	if key == 32 and not isFreezer(name) and not tfm.get.room.playerList[name].isDead and data[name].cooldown < os.time()-2500 then
		table.foreach(tfm.get.room.playerList,function(k,player)
			if data[k].cooldown_dead > 0 and name ~= k and data[k].freezed and not data[name].freezed and x >= player.x - 20 and x <= player.x + 20 and y >= player.y - 20 and y <= player.y + 20 then
				tfm.exec.respawnPlayer(k)
				tfm.exec.movePlayer(k,data[k].coords[1],data[k].coords[2])
				if data[k].id ~= nil then tfm.exec.removeImage(data[k].id) end
				data[k].freezed=false
				ui.removeTextArea(player.id)
				data[name].cooldown=os.time()
			end
		end)
	elseif data[name].cooldown > os.time()-2500 and not isFreezer(name) then
		tfm.exec.chatMessage("<G>Aguarde alguns segundos para poder descolar alguém.</G>",name)
	end
end

function eventNewGame()
	freezers={}

	table.foreach(tfm.get.room.playerList,function(k,v)
		data[k].freezed=false
		ui.removeTextArea(v.id,nil)
		if data[k].id ~= nil then tfm.exec.removeImage(data[k].id) end
		data[k].cooldown_dead=0
		data[k].count=0
	end)

	tfm.exec.setGameTime(210)
end

function check()
	table.foreach(tfm.get.room.playerList,function(k,v)
		if v.isDead then
			if data[k].cooldown_dead > 0 then
				ui.addTextArea(v.id,'<B><font color="#2F7FCC" size="13">'..math.floor(data[k].cooldown_dead/2),nil,data[k].coords[1],data[k].coords[2],30,30,0,0,0,true)
				data[k].cooldown_dead=data[k].cooldown_dead-1
			else
				ui.removeTextArea(v.id)
				tfm.exec.removeImage(data[k].id)
				v.isDead=false
			end
		end
	end)
end

function eventLoop(t,r)
	sys.eventLoop()
	if t > 6000 then
		if #freezers == 0 then
			local p = {} table.foreach(tfm.get.room.playerList,function(k,v) tfm.exec.setNameColor(k,0) table.insert(p,k) end)
			if getAlives() >= 15 then
				for i=1,2 do f = p[math.random(#p)] table.insert(freezers,f) tfm.exec.setNameColor(f,0xFFCC00) data[f].cooldown=os.time(); end
			else
				for i=1,1 do f = p[math.random(#p)] table.insert(freezers,f) tfm.exec.setNameColor(f,0xFFCC00) data[f].cooldown=os.time(); end
			end

			local fs,m = "", "<VP><V>%s</V> é o novo freezer, cuidado.</VP>"

			for _,n in pairs(freezers) do
				if fs == "" then
					fs=n
				else
					fs=fs.."<VP>,</VP>"..n
					m="<VP><V>%s</V> são os novos freezers, cuidado.</VP>"
				end
			end

			tfm.exec.chatMessage(string.format(m,fs))
		end

		if #freezers == 0 and t > 5000 then
			for name,v in pairs(tfm.get.room.playerList) do if not v.isDead then tfm.exec.giveCheese(name)tfm.exec.playerVictory(name) end end
			tfm.exec.chatMessage("<FC>Os freezers morreram, os ratos vivos ganharam.</FC>")
			tfm.exec.newGame(maps[math.random(#maps)])
		end

		if r <= 1000 then
			tfm.exec.chatMessage("<FC>O tempo acabou.</FC>")
			tfm.exec.newGame(maps[math.random(#maps)])
		end

		if getAlives() == 0 then
			for name,v in pairs(tfm.get.room.playerList) do if not v.isDead then tfm.exec.giveCheese(name)tfm.exec.playerVictory(name) end end
			tfm.exec.chatMessage("<FC>Os freezers vivos ganharam.</FC>")
			tfm.exec.newGame(maps[math.random(#maps)])
		end

		check()
	end
end

function eventPlayerDied(name)
	if isFreezer(name) then
		tfm.exec.chatMessage("<FC>O freezer "..name.." morreu.</FC>")

		for _,n in ipairs(freezers) do
			if n == name then
				table.remove(freezers,_)
				break
			end
		end
	end
end

function isHelpMessages(message)
	local msgs = {"como joga?","como joga","como jogar","help?","não sei como jogar","n sei joga","n sei jogar","não sei jogar","nao sei como jogar","como joga","alguém diz como joga"}
	for _,msg in pairs(msgs) do
		if message:lower() == msg then
			return true
		end
	end

	return false
end

function eventChatMessage(name,cmd)
	if cmd == "!help" or isHelpMessages(cmd) then
		tfm.exec.chatMessage("<CEP>> [<CE>Contistente</CE>] Olá, vou te ensinar a jogar.",name)
		tfm.exec.chatMessage("<CEP>> [<CE>Contistente</CE>] Vamos começar o tutorial, primeiramente",name)
		tfm.exec.chatMessage("<CEP>> [<CE>Contistente</CE>] toda vez que um novo mapa inicia após 4 segundos é escolhido 1/2 congeladores",name)
		tfm.exec.chatMessage("<CEP>> [<CE>Contistente</CE>] cuja a função deles é congelar os ratos apertando espaço, após ter um colega congelado",name)
		tfm.exec.chatMessage("<CEP>> [<CE>Contistente</CE>] você tem apenas 10 segundos para descongelar ele se não ele morre de vez.",name)
		tfm.exec.chatMessage("<CEP>> [<CE>Contistente</CE>] Basta apertar espaço perto do contador que ele é descongelado.",name)
		tfm.exec.chatMessage("<CEP>> [<CE>Contistente</CE>] Para mais dúvidas /c Contistente.",name)
	end
end

function eventNewPlayer(name)
	data[name]={
		id=nil,
		freezed=false,
		cooldown=0,
		cooldown_dead=0,
		count=0
	}

	tfm.exec.chatMessage("<V>[<VP>•</VP>]</V> O comando <B>!help</B> já está disponível no freezed.",name)
	tfm.exec.chatMessage("<V>[<VP>•</VP>]</V> Este minigame foi criado por <B>Contistente</B> baseado em idéias de <B>Fofinhoppp</B>.",name)
	tfm.exec.chatMessage("<V>[<VP>•</VP>]</V> Reporte bugs/Envia mapas a <B>Contistente</B>.",name)

	system.bindKeyboard(name,32,true)
end

table.foreach(tfm.get.room.playerList,eventNewPlayer)
tfm.exec.newGame(maps[math.random(#maps)])