tfm.exec.disableAutoShaman();
tfm.exec.disableAutoNewGame();
tfm.exec.disableAutoTimeLeft();
tfm.exec.disableAutoScore();

maps_, data, shootCN, c, difficulty = {7284892,6953348,7214244,6891734,1539148,6549805,495880,6684273,1026249,6622204,741041,6631961,1545834,291643,1485498,860865,6240668,802958,7042435,2842113,6938129,1794873,311496,392646,7049134,1519483,7142792,3540608,852617,279689,399420,281649,289964,390649,2284187,289932,281462,866256,6999034,280159,3107377,307930,6789296,1659906,306360,6793381,697561,3587860,290546,6786189,481676}, {}, os.time(), {x=nil,y=nil,mx=math.random(80,180),my=math.random(-20,20),isFacingRight=false,dir=0,angle=0},{nvl=1,tm=3000,new=os.time()}

effect={0,4}
mapCode='@Nil'
nextMap=false
scoreshow=false

langues = {
	[98114]={
		['L_name'] = 'Português Brasileiro',
		['T_welcome'] = 'Olá %s bem-vind(o/a) ao Auto Survivor 0.2 Alpha.',
		['scoreboard'] = {
			['T_name'] = 'Placar de Pontuação',
			['T_PlayerName'] = 'Nome do Jogador',
			['T_Points'] = 'Pontos',
		}
	},

	[101110]={
		['L_name'] = 'International English',
		['T_welcome'] = 'Hello %s, welcome to Auto Survivor 0.2 Alpha.',
		['scoreboard'] = {
			['T_name'] = 'Scoreboard',
			['T_PlayerName'] = ' PlayerName   ',
			['T_Points'] = 'Points',
		}
	},

	[101115]={
		['L_name'] = 'Espanõl',
		['T_welcome'] = 'Hola %s, Bienvenido a Auto Survivor 0.2 Alpha.',
		['scoreboard'] = {
			['T_name'] = 'Placar de puntuación',
			['T_PlayerName'] = '    Nombre     ',
			['T_Points'] = 'Puntos',
		}
	},

	avaible=function(langue)
		return (langues[tonumber(string.byte(langue:sub(1,1))..string.byte(langue:sub(2,2)))] and true or false)
	end,

	translate=function(langue,get)
		local langueID, toreturn, _L,__L;
		langueID = tonumber(string.byte(langue:sub(1,1))..string.byte(langue:sub(2,2)))

		_L,__L = table.unpack(get)

		if __L == nil then
			toreturn = langues[langueID][_L]
		else
			toreturn = langues[langueID][_L][__L]
		end

		return toreturn
	end
}

textarea=ui.addTextArea
function ui.addTextArea(id,text,targetPlayer,x,y,width,height,backgroundColor,borderColor,backgroundAlpha,emboss,active,active2)
	--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

	if active2 then
		textarea(6969+id,"",targetPlayer,x,y+1,width,height,0x000001,0x000001,backgroundAlpha)
	end

	textarea(id,text,targetPlayer,x,y,width,height,backgroundColor,borderColor,backgroundAlpha)
end

getRandomData=function()
	local players = {}
	for n,v in pairs(tfm.get.room.playerList) do if not v.isDead then table.insert(players,v) end end
	return players[math.random(#players)]
end

function eventNewGame() scoreshow = false nextMap = false mapCode = tfm.get.room.currentMap tfm.exec.setGameTime(100) shootCN = os.time() c.x = nil c.y = nil difficulty.nvl = 1 difficulty.tm = 3000 difficulty.new = os.time() end

ScoreBoard=function(...)
	if ... =='close' then
		for i = 3940,3946 do
			for _,id in pairs({i,6969+i,7979+i}) do ui.removeTextArea(id,nil) end
		end
	elseif ... =='open' and not scoreshow then
		local players, positions, names, points = {}, "", "", ""

		for n, v in pairs(tfm.get.room.playerList) do
			if #players < 6 then
				if n:sub(1,1) ~= '*' then
					if v.score >= 500 then
						v.score=500
						tfm.exec.setPlayerScore(n,500,false)
					end

					players[#players+1] = {n=n,p=v.score}
				end
			else
				break
			end
		end

		table.sort(players,function(a,b) return a.p>b.p end)

		for k,p in pairs(players) do
			m = k
			if m < 10 then m = '0'..m end
			positions = positions.."<J>"..m..".</J><br><br>"
			names = names.."<V>"..p.n.."</V><br><br>"
			points = points.."<G>"..p.p.."</G><br><br>"
		end

		ui.addTextArea(3940,"",nil,250,50,300,274,0x324650,0x324650,nil,true,true)
		ui.addTextArea(3941,"<p align='center'><font size='14'><N2>ScoreBoard (Top 8)</N2></p></p>",nil,250,51,300,20,0x324650,0x324650,1,true,false,true)
		ui.addTextArea(3942,"<J>##.</J> <V> PlayerName   </V> <G>Points</G><br><N2>_________________________________________</N2>",nil,252,90,296,232,0x22333b,0x22333b,1,true,false,false)
		ui.addTextArea(3943,positions,nil,252,120,25,180,0,0,0,true)
		ui.addTextArea(3944,names,nil,280,120,100,180,0,0,0,true)
		ui.addTextArea(3945,points,nil,368,120,40,180,0,0,0,true)
		ui.addTextArea(3946,"<N2><br><br><br>_________________________________________<br><br>_________________________________________<br><br>_________________________________________<br><br>_________________________________________<br><br>_________________________________________</N2><br><br>_________________________________________</N2><br><br>_________________________________________</N2>",nil,252,90,296,220,0,0,0,true,false,true)
		scoreshow=true
	end
end

function eventLoop(t,r)
	if t < 3000 then
		shootCN = os.time();
	end

	if t >= 3000 then
		local a = 0; for i,v in pairs(tfm.get.room.playerList) do if not v.isDead then a=a+1 end end

		if r <= 5000 or a == 1 then
			for i,v in pairs(tfm.get.room.playerList) do if not v.isDead then tfm.exec.giveCheese(i)tfm.exec.playerVictory(i) end end
		end

		if not nextMap and (a == 0 or r <= 5000) then nextMap=true tfm.exec.setGameTime(10) end

		if nextMap and (r <= 10000) then if (r <= 0) then tfm.exec.newGame(maps_[math.random(#maps_)]) ScoreBoard('close') else ScoreBoard('open') end end

		if difficulty.new < os.time()-15000 then
			difficulty.nvl = difficulty.nvl + 1
			difficulty.tm = difficulty.tm - 500
			difficulty.new = os.time();

			tfm.exec.chatMessage('<VP>New difficulty: <V>'..difficulty.nvl..'</V>.</VP>')
		end

		if c.x == nil and c.y == nil then
			p = getRandomData();

			if p ~= nil then
				c.x = p.x
				c.y = p.y
				c.dir = math.random(1,9)
				c.mx = (c.dir ~= 3 and math.random(80,180) or math.random(-10,10))
				c.my = (c.dir ~= 3 and math.random(-20,20) or -math.random(80,250))
				c.isFacingRight=p.isFacingRight
				c.angle = (c.dir ~= 3 and (c.isFacingRight and math.random(260,275) or math.random(80,95)) or math.random(175,185))
				if c.angle >= 80 and c.angle <= 95 then c.angle_ = c.angle-180 end
				if c.angle >= 175 and c.angle <= 185 then c.angle_ = c.angle-180 end
				if c.angle >= 260 and c.angle <= 275 then c.angle_ = c.angle-180 end
			else
				c.x = -999
				c.y = -999
				c.mx = 0
				c.my = 0
				c.isFacingRight=false
			end
		end

		if c.x ~= -999 and c.y ~= -999 then
			if shootCN < os.time()-(difficulty.tm/2) then tfm.exec.addShamanObject(0,(c.x+(c.isFacingRight and c.mx or -c.mx))+math.random(-4,4), (c.dir ~= 3 and (c.y+(p.isFacingRight and c.my or -c.my)) or c.y+c.my),c.angle_) end
			for i=1,math.random(2,5) do tfm.exec.displayParticle (effect[math.random(#effect)], (c.x+(c.isFacingRight and c.mx or -c.mx))+math.random(-4,4), (c.y+(p.isFacingRight and c.my or -c.my)), 0, math.random(0.8,2)) end
			if shootCN < os.time()-difficulty.tm then a = (c.dir ~= 3 and tfm.exec.addShamanObject((not c.isDead and 17 or -1),(not c.isDead and (c.isFacingRight and c.x+c.mx or c.x-c.mx) or nil),c.y+c.my,c.angle) or tfm.exec.addShamanObject((not c.isDead and 17 or -1),(not c.isDead and (c.isFacingRight and c.x+c.mx or c.x-c.mx) or nil),c.y+c.my,c.angle)) c.x=nil c.y=nil shootCN = os.time(); end
		end
	end

	ui.setMapName("Auto Survivor   <BL>|</BL>   <G>"..mapCode.."</G> <BL>|</BL>   <N>Difficulty : <V>"..difficulty.nvl.."</V></N>")
end

function eventPlayerWon(name)
	tfm.exec.setPlayerScore(name,2,true)
end

function eventPlayerDied(name)
	tfm.exec.setPlayerScore(name,1,true)
end

function eventNewPlayer(name)
	data[name]=(data[name] and data[name] or
	{
		langue = (langues.avaible(tfm.get.room.playerList[name].community) and tfm.get.room.playerList[name].community or 'en')
	})
	tfm.exec.chatMessage("<VP>→</VP> <PT>"..string.format(langues.translate(data[name].langue,{'T_welcome'}),name).."</PT>",name)
end

for _,v in pairs(tfm.get.room.playerList) do eventNewPlayer(_) if v.score > 0 then tfm.exec.setPlayerScore(_,0,false) end end

tfm.exec.newGame(maps_[math.random(#maps_)])