ComfyFactorio/maps/lost.lua

--lost-- mewmew made this --

require "modules.landfill_reveals_nauvis"
require "modules.satellite_score"
require "modules.spawners_contain_biters"

local event = require 'utils.event' 
local table_insert = table.insert
local math_random = math.random
local simplex_noise = require 'utils.simplex_noise'.d2

local disabled_for_deconstruction = {
		["fish"] = true,
		["rock-huge"] = true,
		["rock-big"] = true,
		["sand-rock-big"] = true,
		["mineable-wreckage"] = true
	}

local function shuffle(tbl)
	local size = #tbl
		for i = size, 1, -1 do
			local rand = math_random(size)
			tbl[i], tbl[rand] = tbl[rand], tbl[i]
		end
	return tbl
end

local function get_noise(name, pos)	
	local seed = game.surfaces[1].map_gen_settings.seed
	local noise = {}
	local noise_seed_add = 25000
	if name == "ocean" then		
		noise[1] = simplex_noise(pos.x * 0.01, pos.y * 0.01, seed)
		seed = seed + noise_seed_add
		local noise = noise[1]
		return noise
	end
end

local function generate_outer_content(event)
	local surface = event.surface
	local left_top = event.area.left_top
	for x = 0, 31, 1 do
		for y = 0, 31, 1 do
			local tile_to_insert = false
			local pos = {x = left_top.x + x, y = left_top.y + y}
			local noise = get_noise("ocean", pos)				
			if math.floor(noise * 8) % 2 == 1 then
				surface.set_tiles({{name = "deepwater", position = pos}})
			else
				surface.set_tiles({{name = "water", position = pos}})
			end
			if math_random(1,256) == 1 then surface.create_entity({name = "fish", position = pos}) end
		end
	end
end

local function generate_inner_content(event)
	local surface = event.surface
	local left_top = event.area.left_top
	for x = 0, 31, 1 do
		for y = 0, 31, 1 do
			local tile_to_insert = false
			local pos = {x = left_top.x + x, y = left_top.y + y}
			if pos.x < 2 and pos.y < 2 and pos.x > -3 and pos.y > -3 then
				surface.set_tiles({{name = "grass-1", position = pos}})
				surface.create_entity({name = "stone", position = pos, amount = 999999})
			else
				local noise = get_noise("ocean", pos)				
				if math.floor(noise * 8) % 2 == 1 then
					surface.set_tiles({{name = "deepwater", position = pos}})
				else
					surface.set_tiles({{name = "water", position = pos}})
				end
				if math_random(1,256) == 1 then surface.create_entity({name = "fish", position = pos}) end
			end
			if pos.x == 0 and pos.y == 0 then
				surface.create_entity({name = "rock-big", position = pos})
			end
		end
	end
end

local function on_chunk_generated(event)
	local surface = event.surface
	if surface.name ~= "lost" then return end
	local left_top = event.area.left_top
	local tiles = {}
	local entities = {}		
	
	for _, e in pairs(surface.find_entities_filtered({area = event.area})) do
		if e.name ~= "character" then
			e.destroy()
		end		
	end
	
	if event.area.left_top.x < 64 and event.area.left_top.y < 64 and event.area.left_top.x > -64 and event.area.left_top.y > -64 then
		generate_inner_content(event)
	else
		generate_outer_content(event)
	end	
end

local function init_map()
	if game.surfaces["lost"] then return end
	
	local map_gen_settings = {}
	map_gen_settings.water = "small"
	map_gen_settings.cliff_settings = {cliff_elevation_interval = 22, cliff_elevation_0 = 22}		
	map_gen_settings.autoplace_controls = {
		["coal"] = {frequency = "none", size = "none", richness = "none"},
		["stone"] = {frequency = "none", size = "none", richness = "none"},
		["copper-ore"] = {frequency = "none", size = "none", richness = "none"},
		["iron-ore"] = {frequency = "none", size = "none", richness = "none"},
		["crude-oil"] = {frequency = "none", size = "none", richness = "none"},
		["trees"] = {frequency = "none", size = "none", richness = "none"},
		["enemy-base"] = {frequency = "none", size = "none", richness = "none"}
	}		
	game.create_surface("lost", map_gen_settings)
	game.surfaces["lost"].ticks_per_day = game.surfaces["lost"].ticks_per_day * 2
	
	game.surfaces["lost"].request_to_generate_chunks({0,0}, 3)
	game.surfaces["lost"].force_generate_chunk_requests()
	
	game.forces.player.manual_mining_speed_modifier = 0.5
	
	game.forces["player"].technologies["landfill"].researched=true
end

local function on_player_joined_game(event)
	init_map()
	
	local player = game.players[event.player_index]
	if player.online_time == 0 then
		player.teleport(game.surfaces["lost"].find_non_colliding_position("character", {0, 2}, 50, 0.5), "lost")
	end		
end

local function on_player_mined_entity(event)
	local entity = event.entity
	if not entity.valid then return end
	if entity.type ~= "simple-entity" then return end
	if entity.position.x == 0 and entity.position.y == 0 then
		entity.surface.create_entity({name = "rock-big", position = {0,0}})
	end
end

local function on_entity_died(event)
	on_player_mined_entity(event)
end

local function on_marked_for_deconstruction(event)	
	if disabled_for_deconstruction[event.entity.name] then
		event.entity.cancel_deconstruction(game.players[event.player_index].force.name)
	end
end

event.add(defines.events.on_marked_for_deconstruction, on_marked_for_deconstruction)
event.add(defines.events.on_player_joined_game, on_player_joined_game)
event.add(defines.events.on_player_mined_entity, on_player_mined_entity)
event.add(defines.events.on_entity_died, on_entity_died)
event.add(defines.events.on_chunk_generated, on_chunk_generated)