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) 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}

mapas={7050616,7223062,7054603,7054531,7054546,7054560,7054552,7052544,7052537,7202743,7052522,7051720,7050627,7051652,7051630,7051619,7051569,7051547,7050402,7050558,7050503,7050581,7050580,7050562 ,70505521,7046681,7047815,7047835,7047897,7048753,7049425,7049270,7049421,7049292,7050189,7049463,7050308,7050400,7050402,7049463}

data={}

vivos = 5
p=0

tfm.exec.disableAutoShaman(true)
tfm.exec.disableAutoTimeLeft(true)
tfm.exec.disableAutoNewGame()

textarea=ui.addTextArea
function ui.addTextArea(id,text,targetPlayer,x,y,width,height,backgroundColor,borderColor,backgroundAlpha,emboss,active)
	--if not backgroundColor then backgroundColor=0x324650 end
	--if not borderColor then borderColor=0x000001 end
	if active then
		textarea(6969+id,"",targetPlayer,x,y+1,width,height,0x000001,0x000001,backgroundAlpha)
		textarea(7979+id,"",targetPlayer,x,y-1,width,height,0x6A8FA2,0x6A8FA2,backgroundAlpha)
	end
	textarea(id,text,targetPlayer,x,y,width,height,backgroundColor,borderColor,backgroundAlpha)
end

function eventPlayerGetCheese(name)
    tfm.exec.killPlayer(name)

    if tfm.get.room.playerList[name] then
		 tfm.exec.addShamanObject(tfm.enum.shamanObject.chicken,tfm.get.room.playerList[name].x,tfm.get.room.playerList[name].y)

		 for i=1,20 do
		 	tfm.exec.displayParticle(13, tfm.get.room.playerList[name].x+math.random(-10,10), tfm.get.room.playerList[name].y+math.random(-10,10),math.random(-math.random(5,10),math.random(5,10)),math.random(-math.random(5,10),math.random(5,10)))
		 end
	 end
end

function eventChatMessage(name,cmd)
	local helpMessage=false

	for _,k in pairs({"ajuda?","!help","!ajuda","ajuda","como joga?","como jogar?","como solta meep?","meep?","jogar?","joga?"}) do
		if cmd:lower():find(k) then
			helpMessage=true
		end
	end

	if helpMessage then
		tfm.exec.chatMessage("<CEP>> [bot] [<CE>Guhzumaki</CE>] Olá "..name.." parece que você precisa de ajuda, pois bem vou te ajudar.",name)
		sys.newTimer(tfm.exec.chatMessage,500,"<CEP>> [bot] [<CE>Guhzumaki</CE>] O seu objetivo no Meep Attack é ser o último vivo para vencer.",name)
		sys.newTimer(tfm.exec.chatMessage,3000,"<CEP>> [bot] [<CE>Guhzumaki</CE>] Mas você tem um inimigo maior, o queijo, tome muito cuidado pois estes queijos estão envenenados e ao pegá-los você vira uma galinha e morre.",name)
		sys.newTimer(tfm.exec.chatMessage,6000,"<CEP>> [bot] [<CE>Guhzumaki</CE>] Mate os outros jogadores usando o Meep para vencer, espere a barrinha do meep encher e ao ficar cheia pressione espaço para soltar um meep.",name)
	end

end

function eventNewGame()
	tfm.exec.setGameTime(120)
	vivos=0
	for i,v in pairs(tfm.get.room.playerList) do -- i = nome, v = info
		vivos=vivos+1;
		tfm.exec.giveMeep(i)
	end
end

function eventLoop(time,remaining)
 sys.eventLoop()
 p=time
 if remaining < 1000 or vivos <= 0 then -- se o tempo do mapa está menor que 1 ou seja 0, ou não tem nenhum vivo
  	tfm.exec.newGame(mapas[math.random(#mapas)])

	if not winner and not (remaining < 1000) then
  		tfm.exec.chatMessage("<B>Ninguém venceu.</B>")
  	elseif not winner and remaining < 1000 then
  		tfm.exec.chatMessage("<N><B>O tempo acabou e ninguém venceu.</B></N>")
	end
 end

   if vivos <= 1 then
   		winner = false
   		eventPlayerDied()
   end
end

getPlayers=function()
	local k=0
	for i,v in pairs(tfm.get.room.playerList) do k=k+1 end
	return k
end

function eventPlayerDied(name)
	vivos=vivos-1;

	if vivos <= 1 and getPlayers() > 1 then
		for i,v in pairs(tfm.get.room.playerList) do
   			if not v.isDead then -- verefica se o jogador não morreu
    			tfm.exec.giveCheese(i)
    			tfm.exec.playerVictory(i)
    			name = i
 				tfm.exec.displayParticle(29, tfm.get.room.playerList[name].x-12, tfm.get.room.playerList[name].y,0,-5)
 				tfm.exec.displayParticle(29, tfm.get.room.playerList[name].x, tfm.get.room.playerList[name].y-7,0,-5)
 				tfm.exec.displayParticle(29, tfm.get.room.playerList[name].x+12, tfm.get.room.playerList[name].y,0,-5)
 				tfm.exec.displayParticle(34, tfm.get.room.playerList[name].x, tfm.get.room.playerList[name].y-7,0,-5)
   			end
  		end
  	else
  		tfm.exec.newGame(mapas[math.random(#mapas)])
	end
end

function eventPlayerWon(name)
	vivos=vivos-1;
	winner = true

	data[name].wins = data[name].wins+1;

	tfm.exec.chatMessage("<B>"..name.."</B> venceu.")
	ui.addTextArea(-5,"<B><font size='75' color='#7F7F7F' face='Berlin Sans FB Demi'>"..name.." venceu</font>",nil,100,250,nil,nil,0,0,0,true)
	ui.addTextArea(-8,"<B><font size='75' color='#F7F7F7' face='Berlin Sans FB Demi'>"..name.." venceu</font>",nil,100-3,250-2,nil,nil,0,0,0,true)
	sys.newTimer(ui.removeTextArea,1000,-5,nil)sys.newTimer(ui.removeTextArea,1000,-8,nil)
end

function eventNewPlayer(name)
	if not data[name] then
		data[name]={
			wins=0
		}
	end

	for _,msg in pairs({"Olá <B>"..name.."</B> bem-vindo ao New Meep Attack.","<VP><B>Para aprender a jogar utilize <B>!help</B>.</B></VP>"}) do
		tfm.exec.chatMessage(msg,name)
	end

	ui.addTextArea(-10,"<B><font size='75' color='#7F7F7F' face='Berlin Sans FB Demi'>Meep Attack</font>",name,200,100,nil,nil,0,0,0,true)
	ui.addTextArea(-15,"<B><font size='75' color='#F7F7F7' face='Berlin Sans FB Demi'>Meep Attack</font>",name,200-3,100-2,nil,nil,0,0,0,true)
	sys.newTimer(ui.removeTextArea,2000,-10,name)sys.newTimer(ui.removeTextArea,2000,-15,name)
end

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