ComfyFactorio/maps/blue_beach.lua

require "modules.satellite_score"
require "modules.dangerous_goods"
require "modules.spawners_contain_biters"
require "modules.splice_double"
require "modules.landfill_reveals_nauvis"
require "modules.biter_evasion_hp_increaser"
require "modules.dynamic_player_spawn"

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

local function get_noise(name, pos)	
	local seed = game.surfaces[1].map_gen_settings.seed
	local noise_seed_add = 25000
	seed = seed + noise_seed_add
	if name == "sands" then
		local noise = {}
		noise[1] = simplex_noise(pos.x * 0.016, pos.y * 0.012, seed)
		seed = seed + noise_seed_add
		noise[2] = simplex_noise(pos.x * 0.064, pos.y * 0.048, seed)	
		local noise = noise[1] + noise[2] * 0.1
		return noise
	end	
end

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

local landfill_drops = {
	["small-biter"] = 1,
	["small-spitter"] = 1,
	["medium-biter"] = 2,
	["medium-spitter"] = 2,
	["big-biter"] = 3,
	["big-spitter"] = 3,
	["behemoth-biter"] = 4,
	["behemoth-spitter"] = 4,
	["biter-spawner"] = 128,
	["spitter-spawner"] = 128,
	["small-worm-turret"] = 16,
	["medium-worm-turret"] = 32,
	["big-worm-turret"] = 48,
	["behemoth-worm-turret"] = 64
}

local turrets = {
	[1] = "small-worm-turret",
	[2] = "medium-worm-turret",
	[3] = "big-worm-turret",
	[4] = "behemoth-worm-turret"
}

local tile_coords = {}
for x = 0, 31, 1 do
	for y = 0, 31, 1 do
		tile_coords[#tile_coords + 1] = {x, y}
	end
end

local function north_side(surface, left_top)
	for x = 0.5, 31.5, 1 do
		for y = 0.5, 31.5, 1 do
			local pos = {x = left_top.x + x, y = left_top.y + y}
			surface.set_tiles({{name = "water-shallow", position = pos}})			
		end
	end
	
	if left_top.y > -96 then return end
	
	for a = 1, math_random(3,5), 1 do
		local coord_modifier = tile_coords[math_random(1, #tile_coords)]
		local pos = {left_top.x + coord_modifier[1], left_top.y + coord_modifier[2]}
		local name = "biter-spawner"	
		if math_random(1,4) == 1 then name = "spitter-spawner" end
		surface.create_entity({name = name, position = pos, force = "enemy"})		
	end
end

local function south_side(surface, left_top)
	if left_top.y < 32 then
		for x = 0.5, 31.5, 1 do
			for y = 0.5, 31.5, 1 do
				local pos = {x = left_top.x + x, y = left_top.y + y}
				surface.set_tiles({{name = "sand-1", position = pos}})
				if math_random(1, 1024) == 1 then
					local crate = surface.create_entity({name = "wooden-chest", position = pos, force = "neutral"})
					if math_random(1, 12) == 1 then
						crate.insert({name = "grenade", count = math_random(2, 5)})
					else
						crate.insert({name = "firearm-magazine", count = math_random(32, 96)})
					end
				else
					--if left_top.x > 160 or left_top.x < -160 then
					--	if math_random(1, 192) == 1 then
					--		local name = "small-worm-turret"
					--		local r = 1 + math.floor(math.abs(left_top.x) * 0.0025)
					--		if r > 4 then r = 4 end
					--		surface.create_entity({name = turrets[math_random(1, r)], position = pos, force = "enemy"})
					--	end
					--end
					if math_random(1, 256) == 1 then
						surface.create_entity({name = "tree-02", position = pos})
					else
						if math_random(1, 512) == 1 then
							surface.create_entity({name = "rock-huge", position = pos})
						end
					end	
				end		
			end
		end
		return
	end
	for x = 0.5, 31.5, 1 do
		for y = 0.5, 31.5, 1 do
			local pos = {x = left_top.x + x, y = left_top.y + y}
			--local noise = get_noise("sands", pos)
			--if noise < 0.1 and noise > -0.1 then
			--	surface.set_tiles({{name = "sand-1", position = pos}})
			--else
				surface.set_tiles({{name = "water", position = pos}})
				if math_random(1, 256) == 1 then surface.create_entity({name = "fish", position = pos}) end
			--end
		end
	end
end

local function on_chunk_generated(event)
	local surface = event.surface
	
	if surface.index == 1 then
		for _, e in pairs(surface.find_entities_filtered({force = "enemy"})) do
			e.destroy()
		end
		return 
	end
	
	local left_top = event.area.left_top
	
	surface.destroy_decoratives({area = event.area})
	
	if left_top.y < 0 then north_side(surface, left_top) return end
	south_side(surface, left_top)
end

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

	local map_gen_settings = {}
	map_gen_settings.water = "0"
	map_gen_settings.starting_area = "1"
	map_gen_settings.cliff_settings = {cliff_elevation_interval = 40, cliff_elevation_0 = 40}		
	map_gen_settings.autoplace_controls = {
		["coal"] = {frequency = "0", size = "0", richness = "0"},
		["stone"] = {frequency = "0", size = "0", richness = "0"},
		["iron-ore"] = {frequency = "0", size = "0", richness = "0"},
		["copper-ore"] = {frequency = "0", size = "0", richness = "0"},
		["uranium-ore"] = {frequency = "0", size = "0", richness = "0"},		
		["crude-oil"] = {frequency = "0", size = "0", richness = "0"},
		["trees"] = {frequency = "0", size = "0", richness = "0"},
		["enemy-base"] = {frequency = "0", size = "0", richness = "0"}
	}
	
	game.map_settings.pollution.enabled = true
	game.map_settings.enemy_expansion.enabled = false				
	game.map_settings.enemy_expansion.max_expansion_distance = 15
	game.map_settings.enemy_expansion.settler_group_min_size = 8
	game.map_settings.enemy_expansion.settler_group_max_size = 16
	game.map_settings.enemy_expansion.min_expansion_cooldown = 3600
	game.map_settings.enemy_expansion.max_expansion_cooldown = 7200
			
	local surface = game.create_surface("blue_beach", map_gen_settings)				
	surface.request_to_generate_chunks({x = 0, y = 0}, 1)
	surface.force_generate_chunk_requests()
	surface.daytime = 0.7
	surface.ticks_per_day = surface.ticks_per_day * 1.5
	surface.min_brightness = 0.1
	
	game.forces["player"].set_spawn_position({0,16},game.surfaces["blue_beach"])
	game.forces["player"].technologies["landfill"].enabled = false
	
	global.average_worm_amount_per_chunk = 4
	
	return surface
end

local function on_player_joined_game(event)	
	local surface = init_surface()	
	local player = game.players[event.player_index]
	
	if player.online_time == 0 then
		local spawn = game.forces["player"].get_spawn_position(game.surfaces["blue_beach"])
		player.teleport(surface.find_non_colliding_position("character", spawn, 3, 0.5), "blue_beach")
		player.insert({name = "raw-fish", count = 3})
		player.insert({name = "iron-plate", count = 128})
		player.insert({name = "iron-gear-wheel", count = 64})
		player.insert({name = "copper-plate", count = 128})
		player.insert({name = "copper-cable", count = 64})
		player.insert({name = "pistol", count = 1})
		player.insert({name = "firearm-magazine", count = 32})
		player.insert({name = "shotgun", count = 1})
		player.insert({name = "shotgun-shell", count = 16})
		player.insert({name = "light-armor", count = 1})
	end
end

local sand_coords = {
	{x = 0, y = 1},
	{x = -1, y = 0},
	{x = 1, y = 0},
	{x = 0, y = -1},
	{x = 1, y = 1},
	{x = -1, y = -1},
	{x = -1, y = 1},
	{x = 1, y = -1},
	{x = 0, y = 2},
	{x = -2, y = 0},
	{x = 2, y = 0},
	{x = 0, y = -2}
}

local function make_sand(surface, position)
	for _, coord_modifier in pairs(sand_coords) do
		local pos = {position.x + coord_modifier.x, position.y + coord_modifier.y}
		if surface.get_tile(pos).name == "water" then
			surface.set_tiles({{name = "sand-1", position = pos}}, true)
			return
		end
	end
end

local function on_entity_died(event)	
	if not event.entity.valid then return end
	if landfill_drops[event.entity.name] then 
		event.entity.surface.spill_item_stack(event.entity.position,{name = "landfill", count = landfill_drops[event.entity.name] * 2}, true)
	end
	if event.entity.type ~= "unit" then return end
	make_sand(event.entity.surface, event.entity.position)
end

local function draw_evolution_gui()
	for _, player in pairs(game.connected_players) do
		if player.gui.top.evolution_gui then player.gui.top.evolution_gui.destroy() end
		local element = player.gui.top.add({type = "sprite-button", name = "evolution_gui", caption = "Evolution: " .. global.evolution_factor * 100 .. "%", tooltip = "Can go above 100%"})
		local style = element.style
		style.minimal_height = 38
		style.maximal_height = 38
		style.minimal_width = 176
		style.top_padding = 2
		style.left_padding = 4
		style.right_padding = 4
		style.bottom_padding = 2
		style.font_color = {r = 50, g = 130, b = 255}
		style.font = "default-large-bold"
	end
end

local function get_random_close_spawner(surface)
	local spawners = surface.find_entities_filtered({type = "unit-spawner", force = "enemy"})	
	if not spawners[1] then return false end
	
	local spawner = spawners[math_random(1,#spawners)]
	for i = 1, 4, 1 do
		local spawner_2 = spawners[math_random(1,#spawners)]
		if spawner_2.position.x ^ 2 + spawner_2.position.y ^ 2 < spawner.position.x ^ 2 + spawner.position.y ^ 2 then spawner = spawner_2 end	
	end	
	
	return spawner
end

local function send_wave()
	local surface = game.surfaces.blue_beach
	local spawner = get_random_close_spawner(surface)
	local biters = spawner.surface.find_enemy_units(spawner.position, 96, "player")
	if not biters[1] then return end
	local amount = math.floor(game.tick * 0.001)
	if amount > 128 then amount = 128 end
	local group_position = {x = spawner.position.x, y = -48}
	--local group_position = surface.find_non_colliding_position("rocket-silo", spawner.position, 1024, 1)
	--if not group_position then return end
	local nearest_player_unit = surface.find_nearest_enemy({position = spawner.position, max_distance = 2048, force = "enemy"})
	if not nearest_player_unit then return end
	local unit_group = surface.create_unit_group({position = group_position, force = "enemy"})
	for _, biter in pairs(biters) do
		unit_group.add_member(biter)
		amount = amount - 1
		if amount < 0 then break end
	end	
	unit_group.set_command({
		type = defines.command.compound,
		structure_type = defines.compound_command.return_last,
		commands = {
			{
				type = defines.command.attack_area,
				destination = nearest_player_unit.position,
				radius = 32,
				distraction=defines.distraction.by_enemy
			},									
			{
				type = defines.command.attack,
				target = game.connected_players[math_random(1, #game.connected_players)].character,
				distraction = defines.distraction.by_enemy
			}
		}
	})	
end

local function set_evolution()
	local evo = game.tick * 0.000001
	global.evolution_factor = math.round(evo, 4)
	if evo > 1 then	evo = 1	end
	game.forces.enemy.evolution_factor = evo
	
	if global.evolution_factor < 1 then return end
	game.forces.enemy.set_ammo_damage_modifier("melee", (global.evolution_factor - 1) * 1.5)
	game.forces.enemy.set_ammo_damage_modifier("biological", (global.evolution_factor - 1) * 1.5)
	global.biter_evasion_health_increase_factor = global.evolution_factor * 3
end

local function on_tick(event)	
	if game.tick % 900 ~= 450 then return end
	send_wave()
	set_evolution()	
	draw_evolution_gui()
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_tick, on_tick)
event.add(defines.events.on_marked_for_deconstruction, on_marked_for_deconstruction)
event.add(defines.events.on_chunk_generated, on_chunk_generated)
event.add(defines.events.on_entity_died, on_entity_died)
event.add(defines.events.on_player_joined_game, on_player_joined_game)

require "modules.ores_are_mixed"
require "modules.surrounded_by_worms"