ComfyFactorio/maps/lost.lua

--luacheck: ignore
--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.math.simplex_noise'.d2

local disabled_for_deconstruction = {
    ['fish'] = true,
    ['huge-rock'] = true,
    ['big-rock'] = true,
    ['big-sand-rock'] = 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 = 'big-rock', 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 = 'big-rock', 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)