RedMew/map_gen/presets/mobius_strip.lua

map_gen_decoratives = false -- Generate our own decoratives
map_gen_rows_per_tick = 8 -- Inclusive integer between 1 and 32. Used for map_gen_threaded, higher numbers will generate map quicker but cause more lag.

-- Recommend to use generate, but generate_not_threaded may be useful for testing / debugging.
--require "map_gen.shared.generate_not_threaded"
require "map_gen.shared.generate"

local inner_circle = invert(circle_builder(48))
local outer_circle = circle_builder(64)
local square = invert(rectangle_builder(1000, 1000))
square = rotate(square, degrees(45))
square = translate(square, math.sqrt(2) * 500, 0)

local circle = compound_and({inner_circle, outer_circle, square})

local line1 = rectangle_builder(77, 16)
line1 = rotate(line1, degrees(45))
line1 = translate(line1, 66.5, 12.6875)

local line2 = rectangle_builder(45, 16)
local line2 = rotate(line2, degrees(-45))
line2 = translate(line2, 55.5, -23.6875)

--line2 =change_tile(line2, true, "water")
local half = compound_or({line2, line1, circle})

half = translate(half, -79.1875, 0)
local map = compound_or({half, flip_xy(half)})

map = scale(map, 11, 11)


local function research_finished(event)
    local tech = event.research.name
    if tech == "rocket-silo" then
        game.forces["player"].recipes["rocket-silo"].enabled = false
    end
end

Event.register(defines.events.on_research_finished, research_finished)

local function max_axis_distance(world_x, world_y, target_x, target_y)
    local x = math.abs(world_x - target_x)
    local y = math.abs(world_y - target_y)
    
    return math.max(x, y)
end

local function distance(world_x, world_y, target_x, target_y)
    return math.abs(world_x - target_x) + math.abs(world_y - target_y)
end

local init = false
local safe_distance = 480
local function effect(x, y, world_x, world_y, tile, entity, surface)
    
    if not init then
        init = true
        game.forces["player"].chart(surface, {{-32, -32}, {31, 31}})
    end
    
    if world_x == 0 and world_y == 0 then
        for _, e in ipairs(surface.find_entities({{-5, -5}, {5, 5}})) do
            e.destroy()
        end
        
        local e = surface.create_entity({name = "rocket-silo", position = {0, 0}, force = "player"})
        e.destructible = false
        e.minable = false
    end
    
    --[[
    
    if max_axis_distance(world_x, world_y, -2144, 0) < safe_distance then
    for _, e in ipairs(surface.find_entities_filtered({ force = "enemy", position = { world_x, world_y } } )) do
    e.destroy()
    end
    elseif max_axis_distance(world_x, world_y, 2144, 0) < safe_distance then
    for _, e in ipairs(surface.find_entities_filtered({ force = "enemy", position = { world_x, world_y } } )) do
    e.destroy()
    end
    end
    
    for _, e in ipairs(surface.find_entities_filtered({ type = "resource", area = {{world_x, world_y  }, {world_x + 1, world_y + 1 } } })) do -- I want to use position but for some reason it doesn't seem to work for ores.
    local dist1 = distance(world_x, world_y, -2144, 0)
    local dist2 = distance(world_x, world_y, 2144, 0)
    local amount = math.min(dist1, dist2)
    
    local name = e.name
    if name == "iron-ore" then
    amount = 800 + 0.4 * amount
    elseif name == "copper-ore" then
    amount = 700 + 0.35 * amount
    elseif name == "coal" then
    amount = 600 + 0.3 * amount
    elseif name == "stone" then
    amount = 400 + 0.2 * amount
    elseif name == "uranium-ore" then
    amount = 300 + 0.15 * amount
    elseif name == "crude-oil" then
    amount = 50000 + 50 * amount
    end
    
    e.amount = amount
    end
    
    --]]
    return tile, entity
end

map = apply_effect(map, effect)

require "spawn_control"
add_spawn("left", -88, -88)
add_spawn("right", 88, 88)

return map