ComfyFactorio/maps/rocky_waste.lua

--luacheck: ignore
local event = require 'utils.event'
local simplex_noise = require 'utils.math.simplex_noise'.d2
require 'modules.satellite_score'
require 'modules.biter_noms_you'
require 'modules.dangerous_goods'
require 'modules.biters_avoid_damage'
require 'modules.dynamic_landfill'
require 'modules.biters_double_damage'
require 'modules.splice_double'
require 'modules.spawners_contain_acid'
require 'modules.spawners_contain_biters'
require 'modules.rocks_broken_paint_tiles'
require 'modules.rocks_heal_over_time'
require 'modules.rocks_yield_ore_veins'
require 'modules.rocks_yield_ore'
storage.rock_yield_amount_modifier = 0.5
require 'modules.manual_mining_booster'
require 'modules.no_deconstruction_of_neutral_entities'
require 'modules.no_robots'
require 'modules.no_blueprint_library'

local function init_surface()
    if game.surfaces['rocky_waste'] then
        return game.surfaces['rocky_waste']
    end

    local map_gen_settings = {}
    map_gen_settings.water = '0.12'
    map_gen_settings.starting_area = '0.5'
    map_gen_settings.cliff_settings = { cliff_elevation_interval = 7, cliff_elevation_0 = 7 }
    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 = '5', size = '1', richness = '1' },
        ['trees'] = { frequency = '3', size = '0.85', richness = '0.1' },
        ['enemy-base'] = { frequency = '5', size = '3', richness = '1' }
    }

    game.difficulty_settings.technology_price_multiplier = 2

    local surface = game.create_surface('rocky_waste', map_gen_settings)
    surface.request_to_generate_chunks({ x = 0, y = 0 }, 3)
    surface.force_generate_chunk_requests()
    surface.daytime = 0.7
    surface.ticks_per_day = surface.ticks_per_day * 2
    surface.min_brightness = 0.1

    game.forces['player'].set_spawn_position({ 0, 0 }, game.surfaces['rocky_waste'])

    return surface
end

local wastes = { 'big-rock', 'big-rock', 'big-rock', 'big-rock', 'big-rock', 'big-rock', 'big-rock', 'mineable-wreckage', 'mineable-wreckage', 'mineable-wreckage', 'huge-rock' }

local function get_noise(name, pos)
    local seed = game.surfaces[1].map_gen_settings.seed
    local noise_seed_add = 25000
    if name == 1 then
        local noise = {}
        noise[1] = simplex_noise(pos.x * 0.005, pos.y * 0.005, seed)
        seed = seed + noise_seed_add
        noise[2] = simplex_noise(pos.x * 0.01, pos.y * 0.01, seed)
        seed = seed + noise_seed_add
        noise[3] = simplex_noise(pos.x * 0.05, pos.y * 0.05, seed)
        seed = seed + noise_seed_add
        noise[4] = simplex_noise(pos.x * 0.1, pos.y * 0.1, seed)
        local noise = noise[1] + noise[2] * 0.35 + noise[3] * 0.23 + noise[4] * 0.11
        return noise
    end
    seed = seed + noise_seed_add * 5
    if name == 2 then
        local noise = {}
        noise[1] = simplex_noise(pos.x * 0.01, pos.y * 0.01, seed)
        seed = seed + noise_seed_add
        noise[2] = simplex_noise(pos.x * 0.05, pos.y * 0.05, seed)
        local noise = noise[1] + noise[2] * 0.1
        return noise
    end
end

local function process_tile(surface, pos)
    local tile = surface.get_tile(pos)
    if tile.collides_with('player') then
        return
    end

    local noise = get_noise(1, pos)

    if noise < 0.09 and noise > -0.09 then
        return
    end

    local noise_2 = get_noise(2, pos)
    if noise_2 < 0.06 and noise_2 > -0.06 then
        if math.random(1, 6) ~= 1 then
            surface.set_tiles({ { name = 'water', position = pos } })
            if math.random(1, 48) == 1 then
                surface.create_entity({ name = 'fish', position = pos, force = 'neutral' })
            end
        end
        return
    end

    if math.random(1, 6) ~= 1 then
        surface.create_entity({ name = 'big-rock', position = pos, force = 'neutral' })
    end
end

local function clear_entities_around_position(surface, radius, position, entities)
    local square_radius = radius ^ 2
    for _, e in pairs(surface.find_entities_filtered({ name = entities, area = { { position.x - radius, position.y - radius }, { position.x + radius, position.y + radius } } })) do
        local square_distance_to_center = ((e.position.x - position.x) ^ 2) + ((e.position.y - position.y) ^ 2)
        if square_distance_to_center <= square_radius then
            e.destroy()
        end
    end
end

local function on_chunk_generated(event)
    local surface = event.surface
    local left_top = event.area.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 }
            process_tile(surface, pos)
        end
    end

    for _, e in pairs(surface.find_entities_filtered({ type = 'unit-spawner', area = event.area })) do
        clear_entities_around_position(surface, 7, e.position, { 'big-rock' })
    end

    for _, e in pairs(surface.find_entities_filtered({ type = 'cliff', area = event.area })) do
        clear_entities_around_position(surface, 2.25, e.position, { 'big-rock' })
    end

    for _, e in pairs(surface.find_entities_filtered({ type = 'tree', area = event.area })) do
        clear_entities_around_position(surface, 1, e.position, { 'big-rock' })
    end

    if left_top.x == 128 and left_top.y == 128 then
        clear_entities_around_position(surface, 5, { x = 0, y = 0 }, { 'big-rock' })
    end
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
        if not spawn_pos then
            spawn_pos = { x = 0, y = 0 }
        end
        game.forces.player.set_spawn_position(spawn_pos, surface)
        player.teleport(spawn_pos, 'rocky_waste')
        player.insert({ name = 'car', count = 1 })
        player.insert({ name = 'pistol', count = 1 })
        player.insert({ name = 'firearm-magazine', count = 16 })
    end
end

local unearthing_worm = require 'utils.functions.unearthing_worm'
local unearthing_biters = require 'utils.functions.unearthing_biters'

local function on_player_mined_entity(event)
    local entity = event.entity
    if not entity.valid then
        return
    end
    if entity.force.name ~= 'neutral' then
        return
    end
    if math.random(1, 256) == 1 then
        unearthing_worm(entity.surface, entity.position)
        return
    end
    if math.random(1, 256) == 1 then
        unearthing_biters(entity.surface, entity.position, math.random(4, 16))
        return
    end
end

local function on_init()
end

event.on_init(on_init)
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_mined_entity, on_player_mined_entity)