require "functions.maze"

local event = require 'utils.event'

local function init_surface()
	if game.surfaces["maze_challenge"] then return game.surfaces["maze_challenge"] end

	local map_gen_settings = {}
	map_gen_settings.water = "0"
	map_gen_settings.starting_area = "2.5"
	map_gen_settings.cliff_settings = {cliff_elevation_interval = 0, cliff_elevation_0 = 0}		
	map_gen_settings.autoplace_controls = {
		["coal"] = {frequency = "0", size = "7", richness = "1"},
		["stone"] = {frequency = "0", size = "2.0", richness = "0.5"},
		["iron-ore"] = {frequency = "0", size = "2.0", richness = "0.5"},
		["copper-ore"] = {frequency = "0", size = "2.0", richness = "0.5"},
		["uranium-ore"] = {frequency = "0", size = "1", richness = "0.5"},		
		["crude-oil"] = {frequency = "0", size = "1", richness = "1"},
		["trees"] = {frequency = "0", size = "0.75", richness = "1"},
		["enemy-base"] = {frequency = "0", size = "1", richness = "1"}
	}
	
	game.map_settings.enemy_expansion.enabled = false
	game.difficulty_settings.technology_price_multiplier = 2
		
	local surface = game.create_surface("maze_challenge", map_gen_settings)				
	surface.request_to_generate_chunks({x = 0, y = 0}, 2)
	surface.force_generate_chunk_requests()
	surface.daytime = 0.7
	surface.freeze_daytime = 1
	
	game.forces["player"].set_spawn_position({0,0},game.surfaces["maze_challenge"])
	
	global.highscores = {}
	
	global.maze_size = 3
	global.grid_size = 3
	
	return surface
end

local tiles = {"sand-1", "sand-2", "sand-3", "grass-1", "grass-2", "grass-3", "grass-4", "dirt-1", "dirt-2", "dirt-3"}

local function maze(event)
	--local position = event.area.left_top
	local position = {x = event.position.x * 32, y = event.position.y * 32}
	
	if position.y ~= 0 then return end
	if position.x < 32 then return end
	
	--local surface = event.surface
	local surface = game.surfaces[event.surface_index]

	local r = global.maze_size * (global.grid_size - 1) + 8
	if surface.count_entities_filtered({force = "enemy", area = {{position.x - r, position.y - r}, {position.x + r, position.y + r}}}) ~= 0 then return end
	
	surface.request_to_generate_chunks(position, math.ceil((global.maze_size * global.grid_size * 2) / 32))
	surface.force_generate_chunk_requests()
	
	local tile_name = tiles[math.random(1, #tiles)]
	for x = global.maze_size * - 1 * (global.grid_size - 1) - 1, global.maze_size * (global.grid_size - 1) + 1, 1 do
		for y = global.maze_size * - 1 * (global.grid_size - 1) - 1, global.maze_size * (global.grid_size - 1) + 1, 1 do
			surface.set_tiles({{name = tile_name, position = {position.x + x, position.y + y}}}, true)
		end
	end
	
	create_maze(surface, position, global.maze_size, global.grid_size, "stone-wall", "enemy")
	global.maze_size = global.maze_size + 1
	
	for _, e in pairs(surface.find_entities_filtered({force = "player", name = "character", area = {{position.x - r, position.y - r}, {position.x + r, position.y + r}}})) do
		e.player.teleport(surface.find_non_colliding_position("stone-furnace", e.position, 2048, 1), "maze_challenge")
	end
end

local function on_player_joined_game(event)
	local surface = init_surface()	
	local player = game.players[event.player_index]
	
	if not global.highscores[player.index] then global.highscores[player.index] = player.position.x end
	
	if player.online_time == 0 then 
		player.teleport({0,0}, "maze_challenge")
	end	
end

local function on_player_respawned(event)	
	local player = game.players[event.player_index]
	local surface = player.surface
	
	for _, e in pairs(surface.find_entities_filtered({name = "character-corpse"})) do
		if e.character_corpse_player_index == player.index then
			player.teleport(surface.find_non_colliding_position("character", e.position, 1024, 1), "maze_challenge")
			return
		end
	end
end

local function on_chunk_generated(event)
	for _, e in pairs(event.surface.find_entities_filtered({area = event.area, force = "neutral"})) do
		e.destroy()
	end

	for _, t in pairs(event.surface.find_tiles_filtered({area = event.area})) do
		if t.position.y < -3 or t.position.y > 3 or t.position.x < -3 then
			event.surface.set_tiles({{name = "out-of-map", position = t.position}}, true)
		else
			if t.name == "water" or t.name == "deepwater" then
				event.surface.set_tiles({{name = "sand-1", position = t.position}}, true)
			end
		end
	end	
end

local function on_chunk_charted(event)
	if not global.chunks_charted then global.chunks_charted = {} end
	local position = event.position
	if global.chunks_charted[tostring(position.x) .. tostring(position.y)] then return end
	global.chunks_charted[tostring(position.x) .. tostring(position.y)] = true
	maze(event)
end

local function on_player_changed_position(event)
	local player = game.players[event.player_index]
	if not player.character then return end
	if player.character.driving == true then return end
	
	if player.position.x > global.highscores[player.index] then
		global.highscores[player.index] = math.floor(player.position.x)
	end
end

local function tick()		
	local scores = {}
	for _, player in pairs(game.players) do		
		scores[#scores + 1] = {name = player.name, score = global.highscores[player.index]}		
	end
	
	for x = 1, #scores, 1 do
		for y = 1, #scores, 1 do			
			if not scores[y + 1] then break end
			if scores[y]["score"] < scores[y + 1]["score"] then
				local key = scores[y]
				scores[y] = scores[y + 1]
				scores[y + 1] = key
			end
		end		
	end
	
	for _, p in pairs(game.connected_players) do
		if p.gui.left.maze_score then p.gui.left.maze_score.destroy() end
		local frame = p.gui.left.add({type = "frame", caption = "Score", name = "maze_score"})
		local t = frame.add({type = "table", column_count = 2})
		for i = 1, 16, 1 do
			if scores[i] then
				local l = t.add({type = "label", caption = scores[i].name})
				local color = game.players[scores[i].name].color
				color = {r = color.r * 0.6 + 0.4, g = color.g * 0.6 + 0.4, b = color.b * 0.6 + 0.4, a = 1}
				l.style.font_color = color
				l.style.font = "default-bold"
				t.add({type = "label", caption = scores[i].score})			
			end
		end
	end
end

event.on_nth_tick(120, tick)
event.add(defines.events.on_chunk_charted, on_chunk_charted)
event.add(defines.events.on_chunk_generated, on_chunk_generated)
event.add(defines.events.on_player_joined_game, on_player_joined_game)
event.add(defines.events.on_player_respawned, on_player_respawned)
event.add(defines.events.on_player_changed_position, on_player_changed_position)