[TFM][Lua][Contistente] Explosion 2.1

--Variaveis--

mapas = {6940835,6940872,6939230,6939743,6932947,6931137,6933370,6933386,6939573,6939693,6939230,6939558,6939573,6939583,6939322,6947704}
shaman = ""

data = {}

p={}

time_click = 0;
vivos = 0;
message=false
g_time = 0;

--Funções--

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

textarea=ui.addTextArea
function ui.addTextArea(id,text,targetPlayer,x,y,width,height,backgroundColor,borderColor,backgroundAlpha,emboss)
--if not backgroundColor then backgroundColor=0x324650 end
--if not borderColor then borderColor=0x000001 end
if emboss 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 split(t,s)
	local a={}
	for i,v in string.gmatch(t,string.format("[^%s]+",s or "%s")) do
		table.insert(a,i)
	end
	return a
end


function eventNewPlayer(name)
	system.bindMouse(name,true)

	p[name]={
		rounds=0,
		Mwins=0,
		Swins=0,
		kills=0,
		killer=0,
	}

	for i,v in pairs(data) do
		if v[1] == name then
			p[name] = v[2]
		end
	end

	table.insert(data,{name, p[name]})

	eventChatCommand(name,'help')

	tfm.exec.chatMessage("<VP>→</VP> <V>[Message]</V> <N><CE>Bem-vindo ao explosion v2.5</CE></N>",name)
	tfm.exec.chatMessage("<VP>→</VP> <V>[Message]</V> <N><VP>Este minigame foi reconstruido.</VP></N>",name)
	tfm.exec.chatMessage("<VP>→</VP> <V>[Message]</V> <N><J>Caso você não esteja vendo a explosão <br>vá em opções e ative os efeitos especiais.</J></N>",name)
	tfm.exec.chatMessage("<VP>→</VP> <V>[Message]</V> <N>Este minigame foi desenvolvido por <V>Contistente</V> & <V>Rianmojang</V>.</N>",name)

	tfm.exec.chatMessage("<VP>→</VP> <V>[Help]</V> <B><J>Comandos:</J></B><br><BL>→</BL> <VP>!help</VP> - abre a janela de ajuda<br><BL>→</BL> <VP>!ajuda</VP> - abre a janela de ajuda<br><BL>→</BL> <VP>!p</VP> <J>[Nome]</J> - abre o perfil de um jogador, sem o nome abre o seu.",name)
	if not game then
		tfm.exec.newGame(mapas[math.random(#mapas)])
	end


end

function eventChatCommand(name, cmd)
	local arg = split(cmd, " ")

	if arg[1] == "help" or arg[1] == "ajuda" then
		tfm.exec.chatMessage("<VP>→</VP> <V>[Help]</V> <J>Olhe a janela que abriu na sua tela.</J>",name)
		ui.addTextArea(0,"",name,300,45,200,300,nil,0x324650,nil,true)
		ui.addTextArea(1,'<B><J><font size="13">Como jogar',name,310,48,175,20,nil,0x324650,nil,true)
		ui.addTextArea(2,'<p align="center"><R><a href="event:close">X</a>',name,466,50,16,16,0x324650,0x324650,nil,true)
		ui.addTextArea(3,"<B><font size='12'>O jogo consiste em um shaman que é o <CE>Matador</CE> ele mata os ratos soltando <VP>explosões</VP> pelo mapa ao <VP>clickar na tela</VP>, e os <CE>Ratos</CE> precisam <R>sobreviver até o tempo acabar</R> para vencer.",name,305,85,190,250,0x0e232b,0x0e232b,nil,true)
	end

	if arg[1] == "p" then
		if arg[2] then
		        nome = arg[2]:lower():gsub('%a', string.upper, 1) -- guarda na variavel
		else
			nome = name
		end

		if tfm.get.room.playerList[nome] then
			ui.addTextArea(0,"",name,300,45,200,300,nil,0x324650,nil,true)
			ui.addTextArea(1,'<B><J><font size="13">'..nome,name,310,48,175,20,nil,0x324650,nil,true)
			ui.addTextArea(2,'<p align="center"><R><a href="event:close">X</a>',name,466,50,16,16,0x324650,0x324650,nil,true)
			ui.addTextArea(3,"<B><font size='12'>Vezes Jogadas: "..p[nome].rounds.."<br>Vitórias como rato: "..p[nome].Mwins.."<br>Vitórias como matador: "..p[nome].Swins.."<br>Mortes: "..p[nome].kills.."<br>Vezes Matador: "..p[nome].killer.."",name,305,85,190,250,0x0e232b,0x0e232b,nil,true)
		else
			tfm.exec.chatMessage("<VP>→</VP> <V>[Message]</V> <R>"..nome.." não se encontra em sala ou não existe.</R>",name)
		end
	end

end

function eventPlayerLeft(name)
	if name == shaman and game then
		newMap()
	end
end

function newMap()
	tfm.exec.newGame(mapas[math.random(#mapas)])
end

function eventNewGame()
	newShaman()
	time_click = 2;
	tfm.exec.setGameTime(100)
	tfm.exec.snow(100)
end

function eventPlayerDied(name)
	vivos=vivos-1;

	p[name].kills = p[name].kills+1;

	if vivos == 1 and g_time > 30000 then
		tfm.exec.setGameTime(31)
	end

	if vivos == 0 then
		jogadores={}

		for i in pairs(tfm.get.room.playerList) do
			table.insert(jogadores,i)
		end

		tfm.exec.setPlayerScore(jogadores[math.random(#jogadores)],16,false)
		tfm.exec.chatMessage("<VP>→</VP> <V>[Message]</V> O matador <VP>"..shaman.."</VP> é o vencedor.")
		p[shaman].Swins = p[shaman].Swins+1;
		newMap()
	end
end

function newShaman()
	vivos=0
	for i,v in pairs(tfm.get.room.playerList) do
		if v.isShaman then
			shaman = i
		end
		vivos=vivos+1;

		tfm.exec.giveMeep(i)
	end

	if vivos > 2 then
		game = true
		for i in pairs(tfm.get.room.playerList) do
			p[i].rounds = p[i].rounds+1;
		end
		p[shaman].killer = p[shaman].killer+1;
		p[shaman].kills = p[shaman].kills-1;
		tfm.exec.killPlayer(shaman)
		tfm.exec.setPlayerScore(shaman,0,false)
		tfm.exec.chatMessage("<VP>→</VP> <V>[Message]</V> <N><CE>"..shaman.."</CE> é o matador.</N>")
	else
		game = false
		tfm.exec.chatMessage("<VP>→</VP> <V>[Message]</V> <N><R>É necessário 3 jogadores.</N>")
	end
end

function eventMouse(name,x,y)
	if time_click == 0 and name == shaman and game then
		tfm.exec.explosion (x, y, math.random(20,30), 100, true)
		tfm.exec.displayParticle(12,x,y)
		for i=1,25 do
			tfm.exec.displayParticle(0,x,y,math.random(-5,5),math.random(-5,5))
		end
		time_click = 4
	end
end

function eventTextAreaCallback(id,name,link)
	if link=="close" then
		for id=0,30 do
			ui.removeTextArea(id,name)
			ui.removeTextArea(6969+id,name)
			ui.removeTextArea(7979+id,name)
		end
	end
end

function eventLoop(t,r)
	g_time = r
	if t >= 3000 then
		if time_click > 0 and game then
			time_click = time_click-1;
			message = false
		elseif not message and time_click == 0 and game then
			tfm.exec.chatMessage("<VP>→</VP> <V>[Message]</V> <J>Você pode explodir novamente.</J>",shaman)
			message = true
		end

		if vivos == 0 then
			newMap()
			vivos=1
		end
	end

	if r < 1000 then
		for i,v in pairs(tfm.get.room.playerList) do
			if not v.isDead and game then
				tfm.exec.giveCheese(i)
				tfm.exec.playerVictory(i)
				tfm.exec.chatMessage("<VP>→</VP> <V>[Message]</V> <VP>"..i.."</VP> é o vencedor.")
				p[i].Mwins = p[i].Mwins+1;
			end
		end

		vivos=vivos-1;

	end

end

for all in pairs(tfm.get.room.playerList) do
	eventNewPlayer(all)
end

tfm.exec.setRoomMaxPlayers(25)
newMap()