ComfyFactorio/maps/quarters.lua

--luacheck: ignore
require 'modules.mineable_wreckage_yields_scrap'
require 'modules.wave_defense.main'
local Map = require 'modules.map_info'
local WD = require 'modules.wave_defense.table'
local simplex_noise = require 'utils.math.simplex_noise'.d2
local spawn_size = 96
local wall_thickness = 3
local small_scraps = {
    'crash-site-spaceship-wreck-small-1',
    'crash-site-spaceship-wreck-small-1',
    'crash-site-spaceship-wreck-small-2',
    'crash-site-spaceship-wreck-small-2',
    'crash-site-spaceship-wreck-small-3',
    'crash-site-spaceship-wreck-small-3',
    'crash-site-spaceship-wreck-small-4',
    'crash-site-spaceship-wreck-small-4',
    'crash-site-spaceship-wreck-small-5',
    'crash-site-spaceship-wreck-small-5',
    'crash-site-spaceship-wreck-small-6'
}

local function clone_chunk(event, source_surface_name)
    local source_surface = game.surfaces[source_surface_name]

    source_surface.request_to_generate_chunks(event.area.left_top, 1)
    source_surface.force_generate_chunk_requests()

    source_surface.clone_area(
        {
            source_area = event.area,
            destination_area = event.area,
            destination_surface = game.surfaces[1],
            --destination_force="neutral",
            clone_tiles = true,
            clone_entities = true,
            clone_decoratives = true,
            clear_destination = true,
            expand_map = false
        }
    )
end

local function is_spawn_wall(p)
    --if p.y < -32 and p.x < -32 then return false end
    --if p.y > 32 and p.x > 32 then return false end
    if p.x >= spawn_size - wall_thickness then
        return true
    end
    if p.x < spawn_size * -1 + wall_thickness then
        return true
    end
    if p.y >= spawn_size - wall_thickness then
        return true
    end
    if p.y < spawn_size * -1 + wall_thickness then
        return true
    end
    return false
end

local function spawn_area(event)
    local left_top = event.area.left_top

    for _, entity in pairs(event.surface.find_entities_filtered({ area = event.area, force = 'neutral' })) do
        entity.destroy()
    end

    local ore = false
    if left_top.x == -64 and left_top.y == -64 then
        ore = 'coal'
    end
    if left_top.x == 32 and left_top.y == 32 then
        ore = 'stone'
    end
    if left_top.x == 32 and left_top.y == -64 then
        ore = 'iron-ore'
    end
    if left_top.x == -64 and left_top.y == 32 then
        ore = 'copper-ore'
    end

    for x = 0, 31, 1 do
        for y = 0, 31, 1 do
            local p = { x = left_top.x + x, y = left_top.y + y }
            event.surface.set_tiles({ { name = 'stone-path', position = p } })
            if is_spawn_wall(p) then
                event.surface.create_entity({ name = 'stone-wall', position = p, force = 'player' })
            else
                if not ore then
                    if math.sqrt(p.x ^ 2 + p.y ^ 2) > 4 then
                        if math.random(1, 3) ~= 1 then
                            local noise =
                                simplex_noise(p.x * 0.015, p.y * 0.015, game.surfaces[1].map_gen_settings.seed) +
                                simplex_noise(p.x * 0.055, p.y * 0.055, game.surfaces[1].map_gen_settings.seed) * 0.5
                            if noise > 0.6 then
                                event.surface.create_entity({ name = small_scraps[math.random(1, #small_scraps)], position = p, force = 'neutral' })
                            end
                            if noise < -0.75 then
                                if math.random(1, 16) == 1 then
                                    event.surface.create_entity({ name = 'big-rock', position = p, force = 'neutral' })
                                end
                            end
                        end
                    end
                end
            end
        end
    end

    if left_top.x == -64 and left_top.y == -64 then
        local wreck = event.surface.create_entity({ name = 'crash-site-spaceship', position = { 0, -6 }, force = 'player' })
        wreck.insert({ name = 'submachine-gun', count = 3 })
        wreck.insert({ name = 'firearm-magazine', count = 32 })
        wreck.insert({ name = 'grenade', count = 8 })
    end

    if not ore then
        return
    end
    for x = 0, 31, 1 do
        for y = 0, 31, 1 do
            local p = { x = left_top.x + x, y = left_top.y + y }
            event.surface.create_entity({ name = ore, position = p, amount = 1000 })
        end
    end
end

local function get_quarter_name(position)
    if position.x < 0 then
        if position.y < 0 then
            return 'NW'
        else
            return 'SW'
        end
    else
        if position.y < 0 then
            return 'NE'
        else
            return 'SE'
        end
    end
end

local function draw_borders(surface, left_top, area)
    if left_top.x == 0 or left_top.x == -32 then
        for x = 0, 31, 1 do
            for y = 0, 31, 1 do
                local p = { left_top.x + x, left_top.y + y }
                surface.set_tiles({ { name = 'deepwater', position = p } })
            end
        end
        surface.destroy_decoratives({ area = area })
    end

    if left_top.y == 0 or left_top.y == -32 then
        for x = 0, 31, 1 do
            for y = 0, 31, 1 do
                local p = { left_top.x + x, left_top.y + y }
                surface.set_tiles({ { name = 'deepwater', position = p } })
            end
        end
        surface.destroy_decoratives({ area = area })
    end
end

local function on_chunk_generated(event)
    if event.surface.index ~= 1 then
        return
    end
    local surface = event.surface
    local left_top = event.area.left_top

    if left_top.x < spawn_size and left_top.y < spawn_size and left_top.x >= spawn_size * -1 and left_top.y >= spawn_size * -1 then
        spawn_area(event)
        return
    end

    if left_top.x < 0 then
        if left_top.y < 0 then
            clone_chunk(event, 'coal')
        else
            clone_chunk(event, 'copper-ore')
        end
    else
        if left_top.y < 0 then
            clone_chunk(event, 'iron-ore')
        else
            clone_chunk(event, 'stone')
        end
    end

    draw_borders(surface, left_top, event.area)

    if left_top.x > 512 then
        return
    end
    if left_top.x < -512 then
        return
    end
    if left_top.y > 512 then
        return
    end
    if left_top.y < -512 then
        return
    end

    game.forces.player.chart(surface, { { left_top.x, left_top.y }, { left_top.x + 31, left_top.y + 31 } })
end

local function set_difficulty()
    local wave_defense_table = WD.get_table()

    wave_defense_table.threat_gain_multiplier = 2 + #game.connected_players * 0.1
    --20 Players for fastest wave_interval
    wave_defense_table.wave_interval = 3600 - #game.connected_players * 90
    if wave_defense_table.wave_interval < 1800 then
        wave_defense_table.wave_interval = 1800
    end
end

local function on_player_joined_game(event)
    set_difficulty()
end

local function on_player_left_game(event)
    set_difficulty()
end

local function on_init()
    local T = Map.Pop_info()
    T.main_caption = '4 Quarters'
    T.sub_caption = 'coal ++ iron ++ copper ++ stone'
    T.text =
        table.concat(
            {
                'Green energy ore may be found in the stone area.\n',
                'Oil may be found in the coal area.\n',
                '\n',
                'Hold the door as long as possible.\n',
                "Don't let them in!\n"
            }
        )
    T.main_caption_color = { r = 0, g = 120, b = 0 }
    T.sub_caption_color = { r = 255, g = 0, b = 255 }
    for i, quarter in pairs({ 'coal', 'iron-ore', 'stone', 'copper-ore' }) do
        local map_gen_settings = {}
        map_gen_settings.seed = math.random(1, 999999999)
        map_gen_settings.water = math.random(25, 50) * 0.01
        map_gen_settings.starting_area = 1.5
        map_gen_settings.terrain_segmentation = math.random(25, 50) * 0.1
        map_gen_settings.cliff_settings = { cliff_elevation_interval = 0, cliff_elevation_0 = 0 }
        map_gen_settings.autoplace_controls = {
            ['coal'] = { frequency = 0, size = 0.5, richness = 0.5 },
            ['stone'] = { frequency = 0, size = 0.5, richness = 0.5 },
            ['copper-ore'] = { frequency = 0, size = 0.5, richness = 0.5 },
            ['iron-ore'] = { frequency = 0, size = 0.5, richness = 0.5 },
            ['uranium-ore'] = { frequency = 0, size = 1, richness = 1 },
            ['crude-oil'] = { frequency = 0, size = 1, richness = 1 },
            ['trees'] = { frequency = math.random(10, 50) * 0.1, size = math.random(5, 15) * 0.1, richness = math.random(1, 10) * 0.1 },
            ['enemy-base'] = { frequency = 2, size = 2, richness = 1 }
        }
        map_gen_settings.autoplace_controls[quarter].frequency = 16

        if quarter == 'coal' then
            map_gen_settings.autoplace_controls['crude-oil'].frequency = 8
        end
        if quarter == 'stone' then
            map_gen_settings.autoplace_controls['uranium-ore'].frequency = 8
        end

        game.create_surface(quarter, map_gen_settings)
    end

    --[[
	game.map_settings.enemy_expansion.enabled = true
	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 = 2700
	game.map_settings.enemy_expansion.max_expansion_cooldown = 2700

	game.map_settings.pollution.enabled = true
	game.map_settings.enemy_evolution.enabled = true

	local modifier_factor = 2

	--default game setting values
	storage.enemy_evolution_destroy_factor = game.map_settings.enemy_evolution.destroy_factor * modifier_factor
	storage.enemy_evolution_time_factor = game.map_settings.enemy_evolution.time_factor * modifier_factor
	storage.enemy_evolution_pollution_factor = game.map_settings.enemy_evolution.pollution_factor * modifier_factor
	]]
end

local event = require 'utils.event'
--event.on_nth_tick(60, tick)
event.on_init(on_init)
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_research_finished, on_research_finished)
event.add(defines.events.on_player_joined_game, on_player_joined_game)
event.add(defines.events.on_player_left_game, on_player_left_game)

--require "modules.difficulty_vote"