ComfyFactorio/maps/maze_challenge.lua

--luacheck: ignore
require 'utils.functions.maze'

local event = require 'utils.event'

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

    local map_gen_settings = {}
    map_gen_settings.water = '0'
    map_gen_settings.starting_area = '2.5'
    map_gen_settings.cliff_settings = { cliff_elevation_interval = 0, cliff_elevation_0 = 0 }
    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 = '0', size = '1', richness = '1' },
        ['trees'] = { frequency = '0', size = '0.75', richness = '1' },
        ['enemy-base'] = { frequency = '0', size = '1', richness = '1' }
    }

    game.map_settings.enemy_expansion.enabled = false
    game.difficulty_settings.technology_price_multiplier = 2

    local surface = game.create_surface('maze_challenge', map_gen_settings)
    surface.request_to_generate_chunks({ x = 0, y = 0 }, 2)
    surface.force_generate_chunk_requests()
    surface.daytime = 0.7
    surface.freeze_daytime = 1

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

    storage.highscores = {}

    storage.maze_size = 3
    storage.grid_size = 3

    return surface
end

local tiles = { 'sand-1', 'sand-2', 'sand-3', 'grass-1', 'grass-2', 'grass-3', 'grass-4', 'dirt-1', 'dirt-2', 'dirt-3' }

local function maze(event)
    --local position = event.area.left_top
    local position = { x = event.position.x * 32, y = event.position.y * 32 }

    if position.y ~= 0 then
        return
    end
    if position.x < 32 then
        return
    end

    --local surface = event.surface
    local surface = game.surfaces[event.surface_index]

    local r = storage.maze_size * (storage.grid_size - 1) + 8
    if surface.count_entities_filtered({ force = 'enemy', area = { { position.x - r, position.y - r }, { position.x + r, position.y + r } } }) ~= 0 then
        return
    end

    surface.request_to_generate_chunks(position, math.ceil((storage.maze_size * storage.grid_size * 2) / 32))
    surface.force_generate_chunk_requests()

    local tile_name = tiles[math.random(1, #tiles)]
    for x = storage.maze_size * -1 * (storage.grid_size - 1) - 1, storage.maze_size * (storage.grid_size - 1) + 1, 1 do
        for y = storage.maze_size * -1 * (storage.grid_size - 1) - 1, storage.maze_size * (storage.grid_size - 1) + 1, 1 do
            surface.set_tiles({ { name = tile_name, position = { position.x + x, position.y + y } } }, true)
        end
    end

    create_maze(surface, position, storage.maze_size, storage.grid_size, 'stone-wall', 'enemy')
    storage.maze_size = storage.maze_size + 1

    for _, e in pairs(surface.find_entities_filtered({ force = 'player', name = 'character', area = { { position.x - r, position.y - r }, { position.x + r, position.y + r } } })) do
        e.player.teleport(surface.find_non_colliding_position('stone-furnace', e.position, 2048, 1), 'maze_challenge')
    end
end

local function on_player_joined_game(event)
    local surface = init_surface()
    local player = game.players[event.player_index]

    if not storage.highscores[player.index] then
        storage.highscores[player.index] = player.position.x
    end

    if player.online_time == 0 then
        player.teleport({ 0, 0 }, 'maze_challenge')
    end
end

local function on_player_respawned(event)
    local player = game.players[event.player_index]
    local surface = player.surface

    for _, e in pairs(surface.find_entities_filtered({ name = 'character-corpse' })) do
        if e.character_corpse_player_index == player.index then
            player.teleport(surface.find_non_colliding_position('character', e.position, 1024, 1), 'maze_challenge')
            return
        end
    end
end

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

    for _, t in pairs(event.surface.find_tiles_filtered({ area = event.area })) do
        if t.position.y < -3 or t.position.y > 3 or t.position.x < -3 then
            event.surface.set_tiles({ { name = 'out-of-map', position = t.position } }, true)
        else
            if t.name == 'water' or t.name == 'deepwater' then
                event.surface.set_tiles({ { name = 'sand-1', position = t.position } }, true)
            end
        end
    end
end

local function on_chunk_charted(event)
    if not storage.chunks_charted then
        storage.chunks_charted = {}
    end
    local position = event.position
    if storage.chunks_charted[tostring(position.x) .. tostring(position.y)] then
        return
    end
    storage.chunks_charted[tostring(position.x) .. tostring(position.y)] = true
    maze(event)
end

local function on_player_changed_position(event)
    local player = game.players[event.player_index]
    if not player.character then
        return
    end
    if player.character.driving == true then
        return
    end

    if player.position.x > storage.highscores[player.index] then
        storage.highscores[player.index] = math.floor(player.position.x)
    end
end

local function tick()
    local scores = {}
    for _, player in pairs(game.players) do
        scores[#scores + 1] = { name = player.name, score = storage.highscores[player.index] }
    end

    for x = 1, #scores, 1 do
        for y = 1, #scores, 1 do
            if not scores[y + 1] then
                break
            end
            if scores[y]['score'] < scores[y + 1]['score'] then
                local key = scores[y]
                scores[y] = scores[y + 1]
                scores[y + 1] = key
            end
        end
    end

    for _, p in pairs(game.connected_players) do
        if p.gui.left.maze_score then
            p.gui.left.maze_score.destroy()
        end
        local frame = p.gui.left.add({ type = 'frame', caption = 'Score', name = 'maze_score' })
        local t = frame.add({ type = 'table', column_count = 2 })
        for i = 1, 16, 1 do
            if scores[i] then
                local l = t.add({ type = 'label', caption = scores[i].name })
                local color = game.players[scores[i].name].color
                color = { r = color.r * 0.6 + 0.4, g = color.g * 0.6 + 0.4, b = color.b * 0.6 + 0.4, a = 1 }
                l.style.font_color = color
                l.style.font = 'default-bold'
                t.add({ type = 'label', caption = scores[i].score })
            end
        end
    end
end

event.on_nth_tick(120, tick)
event.add(defines.events.on_chunk_charted, on_chunk_charted)
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_respawned, on_player_respawned)
event.add(defines.events.on_player_changed_position, on_player_changed_position)