keys={69,32,27}

players={}

data={}
ids={}

mapas={6879570,6879586,2173893,4392183,4569940,1870360,6880640,6882237,6882094}

shop={
{"Bolinha Rosa",10,97,80,41},
{"Bola de Papel",35,95,70,27},
{"Galinha",75,33,50,27},
{"Abóbora",100,89,60,40},
{"Baiacu",250,65,40,1},
{"Flecha",1000,35,40,13},
}

maxPStatus = 6
maxPMoney = 4
maxPRoom = 20
maxBalas = 50

vivos=0
jogadores=0


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 eventChatCommand(p, cmd)
	local arg = split(cmd, " ")
	if arg[1] == "giveCoin" and arg[2] then
		if arg[3] then
			local nome = arg[2]:lower():gsub('%a', string.upper, 1)
			local coins = arg[3]
			print(nome)
			print(coins)
			for i,v in pairs(mods) do
				if v == p then
					players[nome].moedas = players[nome].moedas+coins
					tfm.exec.setPlayerScore(nome,players[nome].moedas,false)
					ui.addTextArea(1,"<J><B><p align='center'>"..players[nome].moedas.."</p></J>",nome,6,350,100,20,nil,0x6a8495,90,true)
					tfm.exec.chatMessage("<N>[<CE>ΞModeration</CE>]</N> <V>"..p.."</V><VP> doou <ROSE>"..coins.."</ROSE> ao jogador <J>"..nome.."</J>")
				end
			end
		end
	end

    if arg[1] == "p" then -- se o comando for p
    	if arg[2] then -- se tiver o nome de alguem
    	local nome = arg[2]:lower():gsub('%a', string.upper, 1) -- guarda na variavel
		--nome:lower():gsub('%a', string.upper, 1)
    	if tfm.get.room.playerList[nome] then -- se tiver na sala (retornaria nil se n tivesse)
    	perfil="<p align='center'><font size='16'><J>"..nome.."</J></font><br><font size='12'><N>Rodadas: <V>"..players[nome].rounds.."</V><br>Vitórias: <V>"..players[nome].wins.."</V><br>Mortes: <V>"..players[nome].kills.."</V><br>Moedas: <V>"..players[nome].moedas.."</V>"
    	end
    	else -- se ele só escreveu !p mostrar o perfil dele mesmo
		perfil="<p align='center'><font size='16'><J>"..p.."</J></font><br><font size='12'><N>Rodadas: <V>"..players[p].rounds.."</V><br>Vitórias: <V>"..players[p].wins.."</V><br>Mortes: <V>"..players[p].kills.."</V><br>Moedas: <V>"..players[p].moedas.."</V>"
		end
	    ui.addTextArea(36,'<a href="event:perfilClose"><font color="#ff0000">Fechar</font></a>',p,250,102,60,nil,nil,0x6a8495,1,true)
		ui.addTextArea(35,perfil,p,300,100,300,140,nil,0x6a8495,1,true)
	end
end

for _,f in pairs ({'disableAutoNewGame','disableAutoShaman','disableAutoTimeLeft','disableAutoScore'}) do
	tfm.exec[f](true)
end

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

function eventNewGame()
vivos=0
tfm.exec.setGameTime(100)
tfm.exec.snow(100)
for name in pairs(tfm.get.room.playerList) do
vivos=vivos+1;
if jogadores >= maxPStatus then
players[name].rounds = players[name].rounds+1;
end
if players[name].balas < 10 then
ui.addTextArea(6,"<B><J><p align='center'><V>0"..players[name].balas.."</V><N>/</N>"..maxBalas.."</p></J>",name,6,375,100,16,nil,0x6a8495,90,true)
else
ui.addTextArea(6,"<B><J><p align='center'><V>"..players[name].balas.."</V><N>/</N>"..maxBalas.."</p></J>",name,6,375,100,16,nil,0x6a8495,90,true)
end
end
end

function eventPlayerLeft(name)
jogadores=jogadores-1;
end

function eventNewPlayer(name)
for i,v in pairs ({"<CE>Bem-vindo %s ao #wars versão 5.0</CE>","<J>Para atirar pressione a tecla E ou Espaço, O ultimo vivo ganha.</J>","<R>É necessário "..maxPMoney.." jogadores para contar moedas e "..maxPStatus.." para estátisticas.</R>","<J>Jogo desenvolvido por: <V>Contistente</V> & <V>Rianmojang</V></J>"}) do
	tfm.exec.chatMessage(v:format(name),name)
end
if jogadores == 1 then
nextRound()
end
jogadores=jogadores+1;

players[name]={
objeto={"Bola de Neve",34,80,0},
tempo=0,
timestamp=os.time(),
width=0,
moedas=0,
balas=maxBalas,
rounds=0,
kills=0,
message=false,
wins=0,
inventory={}
}

for i,v in pairs(data) do
if v[1] == name then
players[name] = v[2]
end
end
table.insert(data,{name, players[name]})
tfm.exec.setPlayerScore(name,players[name].moedas,false)
table.insert(players[name].inventory,{"Bola de Neve",34,80,0})
ui.addTextArea(0,"",name,6,310,100,80,nil,0x6a8495,80,true)
ui.addTextArea(1,"<J><B><p align='center'>"..players[name].moedas.."</p></J>",name,6,342,100,20,nil,0x6a8495,90,true)
ui.addTextArea(2,"<J><B><p align='center'>"..players[name].objeto[1].."</p></J>",name,6,310,100,20,nil,0x6a8495,90,true)
ui.addTextArea(3,"<J><B><p align='center'><a href='event:menu'>Menu</a></p></J>",name,6,28,94,20,nil,0x6a8495,80,true)
for i,v in pairs(keys) do
tfm.exec.bindKeyboard(name,v,true)
end
end

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

function eventLoop(time,remaining)
tempo = time

if remaining < 1000 or vivos == 0 then
nextRound()
if vivos == 0 then
tfm.exec.chatMessage("<N>[<CE>Ξ</CE>]</N> <J>Nenhum ratinho venceu, todos morreram.</J>")
else
tfm.exec.chatMessage("<N>[<CE>Ξ</CE>]</N> <J>Nenhum ratinho venceu, o tempo acabou.</J>")
end
end
end

function eventPlayerWon(name)
nextRound()
if jogadores >= maxPMoney then
players[name].moedas = players[name].moedas+math.random(10,40);
tfm.exec.setPlayerScore(name,players[name].moedas,false)
ui.addTextArea(1,"<J><B><p align='center'>"..players[name].moedas.."</p></J>",name,6,342,100,20,nil,0x6a8495,90,true)
end

if jogadores >= maxPStatus then
players[name].wins = players[name].wins+1;
end

tfm.exec.chatMessage("<N>[<CE>Ξ</CE>]</N> <V>"..name.."</V><BL> é o vencedor.</BL>")
end

function eventPlayerDied(name)
vivos=vivos-1;
tfm.exec.chatMessage("<N>[<CE>Ξ</CE>]</N> <V>"..name.."</V><BL> morreu.</BL>")
if jogadores >= maxPStatus then
players[name].kills = players[name].kills+1;
end

if vivos == 1 and jogadores >= 2 then
	for i,v in pairs(tfm.get.room.playerList) do
		if not tfm.get.room.playerList[i].isDead then
			tfm.exec.giveCheese(i)
			tfm.exec.playerVictory(i)
		end
	end
end
end

function eventKeyboard(name,key,down,x,y)
if (key==69 or key==32) and not tfm.get.room.playerList[name].isDead and tempo >= 6000 and players[name].balas > 0 then
if players[name].timestamp < os.time()-300 then
local id
if tfm.get.room.playerList[name].isFacingRight then
id=tfm.exec.addShamanObject(players[name].objeto[2],x+13,y-10,0,players[name].objeto[3],0)
id=tfm.exec.addShamanObject(players[name].objeto[2],x+13,y-10,0,players[name].objeto[3],0)
 tfm.exec.displayParticle(players[name].objeto[4],x+13,y-10,players[name].objeto[3])
 tfm.exec.displayParticle(players[name].objeto[4],x+13,y-15,players[name].objeto[3])
else
id=tfm.exec.addShamanObject(players[name].objeto[2],x-13,y-10,180,-players[name].objeto[3],0)
id=tfm.exec.addShamanObject(players[name].objeto[2],x-13,y-10,180,-players[name].objeto[3],0)
 tfm.exec.displayParticle(players[name].objeto[4],x-13,y-10,-players[name].objeto[3])
 tfm.exec.displayParticle(players[name].objeto[4],x-13,y-15,-players[name].objeto[3])
end
players[name].balas = players[name].balas-1;
if players[name].balas < 10 then
ui.addTextArea(6,"<B><J><p align='center'><V>0"..players[name].balas.."</V><N>/</N>"..maxBalas.."</p></J>",name,6,375,100,16,nil,0x6a8495,90,true)
else
ui.addTextArea(6,"<B><J><p align='center'><V>"..players[name].balas.."</V><N>/</N>"..maxBalas.."</p></J>",name,6,375,100,16,nil,0x6a8495,90,true)
end
players[name].timestamp=os.time()
end
end
if (key==69) and players[name].balas == 0 then
if players[name].timestamp < os.time()-3000 then
players[name].balas = maxBalas
players[name].timestamp=os.time()
tfm.exec.chatMessage("<N>[<CE>Ξ</CE>]</N> <J>As munições de "..name.." recarregadas.</J>")
players[name].message = false
if players[name].balas < 10 then
ui.addTextArea(6,"<B><J><p align='center'><V>0"..players[name].balas.."</V><N>/</N>"..maxBalas.."</p></J>",name,6,375,100,16,nil,0x6a8495,90,true)
else
ui.addTextArea(6,"<B><J><p align='center'><V>"..players[name].balas.."</V><N>/</N>"..maxBalas.."</p></J>",name,6,375,100,16,nil,0x6a8495,90,true)
end
players[name].timestamp=os.time()
end
end
end

function eventTextAreaCallback(id, player, link)
	if link == "loja" then
		y = 15
		id = 400
		table.insert(ids,id)
		local title = "<p align='center'><font size='18'><J>Loja</J></font><br>"
		ui.addTextArea(9,title,player,150,30,500,350,nil,0x6a8495,70,true)
		ui.addTextArea(10,"<a href='event:fechar-loja'><p align='center'><font color='#ff0000'><B>Fechar</B></font></p></a>",player,300,350,300,20,nil,0x6a8495,70,true)
		str =  "<N><J>Nome</J> | <V>Preço</V> | <ROSE>Botão</ROSE></N><br>"
		ui.addTextArea(id,str,player,200,y+45,400,20,nil,0x6a8495,70,true)
		for i,v in pairs(shop) do
		    y=y+33
			id=id+1;
			table.insert(ids,id)
			for i,v2 in pairs(players[player].inventory) do
				if v2[1] == v[1] then
					str = "<N><J>"..v[1].."</J> | <V>"..v[2].."</V> | <CE>COMPRADO</CE></N><br>"
					ui.addTextArea(id,str,player,200,y+45,400,20,nil,0x6a8495,70,true)
				else
					str = "<N><J>"..v[1].."</J> | <V>"..v[2].."</V> | <ROSE><a href='event:buy-"..v[1].."'>COMPRAR</a></ROSE></N><br>"
					ui.addTextArea(id,str,player,200,y+45,400,20,nil,0x6a8495,70,true)
				end
			end
		end
		ui.addTextArea(10,"<B><p align='center'><font color='#ff0000'><a href='event:fechar-loja'>Fechar</a></font></p>",player,150,360,500,20,nil,0x6a8495,70,true)
	elseif link == "fechar-loja" then
		for i,v in pairs({9,10,11,12}) do
			ui.removeTextArea(v,player)
			ui.removeTextArea(6969+v,player)
			ui.removeTextArea(7979+v,player)
		end

		for index,v in pairs(ids) do
			ui.removeTextArea(v,player)
			ui.removeTextArea(6969+v,player)
			ui.removeTextArea(7979+v,player)
		end
	elseif link == "inventory" then
		texto = '<B><p align="center"><font size="18"><J>Inventário</J></font><br>[<V>Nome</V>][<ROSE>Botão</ROSE>]<br>'
		for i,v in pairs(players[player].inventory) do
			if v[2] == players[player].objeto[2] then
				texto = texto..'<br>[<V>'..v[1]..'</V>][<J>Equipado</J>]'
			else
				texto = texto..'<br>[<V>'..v[1]..'</V>][<ROSE><a href="event:equip-'..v[1]..'">Equipar</a></ROSE>]'
			end
		end
		ui.addTextArea(9,texto,player,300,50,300,300,nil,0x6a8495,70,true)
		ui.addTextArea(10,"<a href='event:fechar-loja'><p align='center'><font color='#ff0000'><B>Fechar</B></font></p></a>",player,300,350,300,20,nil,0x6a8495,70,true)
	elseif link == "ranking" then
		eventRanking(player)
	elseif link == "menu" then
		ui.addTextArea(18,"",player,6,28,94,200,nil,0x6a8495,80,true)
		ui.addTextArea(3,"<V><B><p align='center'><a href='event:menu-close'>Menu</a></p></V>",player,6,28,94,20,nil,0x6a8495,80,true)
		ui.addTextArea(20,"<J><B><p align='center'><a href='event:loja'>Loja</a></p></J>",player,12,70,80,20,nil,0x6a8495,80,true)
		ui.addTextArea(21,"<J><B><p align='center'><a href='event:inventory'>Inventário</a></p></J>",player,12,105,80,20,nil,0x6a8495,80,true)
		ui.addTextArea(22,"<J><B><p align='center'><a href='event:ranking'>Ranking</a></p></J>",player,12,140,80,20,nil,0x6a8495,80,true)
		ui.addTextArea(49,"<J><B><p align='center'><a href='event:perfil'>Perfil</a></p></J>",player,12,175,80,20,nil,0x6a8495,80,true)
	elseif link == "menu-close" then
		for i,v in pairs({3,18,20,21,22,49}) do
			ui.removeTextArea(v,player)
			ui.removeTextArea(6969+v,player)
			ui.removeTextArea(7979+v,player)
		end
		ui.addTextArea(3,"<J><B><p align='center'><a href='event:menu'>Menu</a></p></J>",name,6,28,94,20,nil,0x6a8495,80,true)
	elseif link == "ranking-close" then
		ui.removeTextArea(44,player)
		ui.removeTextArea(6969+44,player)
		ui.removeTextArea(7979+44,player)
		ui.removeTextArea(45,player)
		ui.removeTextArea(6969+45,player)
		ui.removeTextArea(7979+45,player)
		for index,v in pairs(ids) do
			ui.removeTextArea(v,player)
			ui.removeTextArea(6969+v,player)
			ui.removeTextArea(7979+v,player)
		end
		id = 50
	elseif link == "perfilClose" then
		ui.removeTextArea(35,player)
		ui.removeTextArea(36,player)
		ui.removeTextArea(6969+35,player)
		ui.removeTextArea(7979+35,player)
		ui.removeTextArea(6969+36,player)
		ui.removeTextArea(7979+36,player)
	elseif link == "perfil" then
		eventChatCommand(player, "p")
	end

	for i,v in pairs(shop) do
		if link == "buy-"..v[1] then
			ui.addPopup(0,1,"<p align='center'>Você deseja mesmo comprar "..v[1].." ?",player,155,150,490,true)
			players[player].itemId = v[3]
		end
	end

	for i,v in pairs(players[player].inventory) do
		if link == "equip-"..v[1] then
			players[player].objeto = {v[1],v[2],v[3],v[4]}
			ui.addTextArea(9,"<J><B><p align='center'>Você equipou a(o) "..v[1].." para atirar.</p></B></J>",player,300,50,300,300,nil,0x6a8495,70,true)
			ui.addTextArea(10,"<a href='event:inventory'><p align='center'><font color='#ffcc00'><B>Voltar</B></font></p></a>",player,300,350,300,20,nil,0x6a8495,70,true)
			ui.addTextArea(2,"<J><B><p align='center'>"..players[player].objeto[1].."</p></J>",player,6,310,100,20,nil,0x6a8495,90,true)
		end
	end
end


function eventRanking(name)
 	local sc = {}
	for name, player in pairs(tfm.get.room.playerList) do
		sc[#sc+1] = {n=name,s=player.score,m=players[name].moedas,w=players[name].wins,k=players[name].kills}
	end
	table.sort(sc,function(a,b) return a.w>b.w end)
	y = 15
	id = 50
	local str = ""
	local title = "<p align='center'><font size='18'><J>Ranking</J></font><br>"
	ui.addTextArea(44,title,name,150,30,500,350,nil,0x6a8495,70,true)
	for k,v in pairs(sc) do
		if k < 11 then
			id = id+1;
			table.insert(ids, id)
			y = y+33
			str = "<N><J>"..k.."</J>. | <V>"..v.n.."</V> | Rodadas: <V>"..players[v.n].rounds.."</V> | Moedas: <V>"..v.m.."</V> | Vitórias: <V>"..v.w.."</V> | Mortes: <V>"..v.k.."</V></N><br>"
			if id < 60 then
			ui.addTextArea(id,str,name,170,y+40,460,20,nil,0x6a8495,70,true)
			end
		end
	end
	ui.addTextArea(45,"<B><p align='center'><font color='#ff0000'><a href='event:ranking-close'>Fechar</a></font></p>",name,150,360,500,20,nil,0x6a8495,70,true)
	return str
end

function eventPopupAnswer(id, name, answer)
	if id == 0 and answer == "yes" then
		for i,v in pairs(shop) do
			if players[name].itemId == v[3] then
				if players[name].moedas >= v[2] then
					ui.addPopup(0,3,"<p align='center'>O item "..v[1].." foi comprado com sucesso.",name,155,150,490,true)
					table.insert(players[name].inventory, {v[1],v[3],v[4],v[5]})
					players[name].moedas = players[name].moedas-v[2]
					ui.addTextArea(1,"<J><B><p align='center'>"..players[name].moedas.."</p></J>",name,6,342,100,20,nil,0x6a8495,90,true)
					tfm.exec.setPlayerScore(name,players[name].moedas,false)

				else
					ui.addPopup(0,3,"<p align='center'>Moedas insuficientes, é necessário "..math.floor(v[2]-players[name].moedas).." moedas.",name,155,150,490,true)
				end
			end
		end
	end
end

tfm.exec.setRoomMaxPlayers(maxPRoom)
nextRound()