RedMew/map_gen/combined/borg_planet.lua

--Author: MewMew
-- !! ATTENTION !!
-- Use water only in starting area as map setting!!!
local Event = require 'utils.event'
local perlin = require 'map_gen.shared.perlin_noise'

wreck_item_pool = {}
wreck_item_pool = {
    {name = 'iron-gear-wheel', count = 32},
    {name = 'iron-plate', count = 64},
    {name = 'rocket-control-unit', count = 1},
    {name = 'rocket-fuel', count = 7},
    {name = 'coal', count = 8},
    {name = 'rocket-launcher', count = 1},
    {name = 'rocket', count = 32},
    {name = 'copper-cable', count = 128},
    {name = 'land-mine', count = 64},
    {name = 'railgun', count = 1},
    {name = 'railgun-dart', count = 128},
    {name = 'fast-inserter', count = 8},
    {name = 'stack-filter-inserter', count = 2},
    {name = 'belt-immunity-equipment', count = 1},
    {name = 'fusion-reactor-equipment', count = 1},
    {name = 'electric-engine-unit', count = 8},
    {name = 'exoskeleton-equipment', count = 1},
    {name = 'rocket-fuel', count = 10},
    {name = 'used-up-uranium-fuel-cell', count = 3},
    {name = 'uranium-fuel-cell', count = 2},
    {name = 'power-armor', count = 1},
    {name = 'modular-armor', count = 1},
    {name = 'water-barrel', count = 4},
    {name = 'sulfuric-acid-barrel', count = 6},
    {name = 'crude-oil-barrel', count = 8},
    {name = 'energy-shield-equipment', count = 1},
    {name = 'explosive-rocket', count = 32}
}

local function place_entities(surface, entity_list)
    local directions = {
        defines.direction.north,
        defines.direction.east,
        defines.direction.south,
        defines.direction.west
    }
    for _, entity in pairs(entity_list) do
        local r = math.random(1, entity.chance)
        if r == 1 then
            if not entity.force then
                entity.force = 'player'
            end
            local r = math.random(1, 4)
            if
                surface.can_place_entity {
                    name = entity.name,
                    position = entity.pos,
                    direction = directions[r],
                    force = entity.force
                }
             then
                local e =
                    surface.create_entity {
                    name = entity.name,
                    position = entity.pos,
                    direction = directions[r],
                    force = entity.force
                }
                if entity.health then
                    if entity.health == 'low' then
                        e.health = ((e.health / 1000) * math.random(33, 330))
                    end
                    if entity.health == 'medium' then
                        e.health = ((e.health / 1000) * math.random(333, 666))
                    end
                    if entity.health == 'high' then
                        e.health = ((e.health / 1000) * math.random(666, 999))
                    end
                    if entity.health == 'random' then
                        e.health = ((e.health / 1000) * math.random(1, 1000))
                    end
                end
                return true, e
            end
        end
    end
    return false
end

local function find_tile_placement_spot_around_target_position(tilename, position, mode, density)
    local x = position.x
    local y = position.y
    if not surface then
        surface = game.surfaces[1]
    end
    local scan_radius = 50
    if not tilename then
        return
    end
    if not mode then
        mode = 'ball'
    end
    if not density then
        density = 1
    end
    local cluster_tiles = {}
    local auto_correct = true

    local scanned_tile = surface.get_tile(x, y)
    if scanned_tile.name ~= tilename then
        table.insert(cluster_tiles, {name = tilename, position = {x, y}})
        surface.set_tiles(cluster_tiles, auto_correct)
        return true, x, y
    end

    local i = 2
    local r = 1

    if mode == 'ball' then
        if math.random(1, 2) == 1 then
            density = density * -1
        end
        r = math.random(1, 4)
    end
    if mode == 'line' then
        density = 1
        r = math.random(1, 4)
    end
    if mode == 'line_down' then
        density = density * -1
        r = math.random(1, 4)
    end
    if mode == 'line_up' then
        density = 1
        r = math.random(1, 4)
    end
    if mode == 'block' then
        r = 1
        density = 1
    end

    if r == 1 then
        --start placing at -1,-1
        while i <= scan_radius do
            y = y - density
            x = x - density
            for a = 1, i, 1 do
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
                x = x + density
            end
            for a = 1, i, 1 do
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
                y = y + density
            end
            for a = 1, i, 1 do
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
                x = x - density
            end
            for a = 1, i, 1 do
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
                y = y - density
            end
            i = i + 2
        end
    end

    if r == 2 then
        --start placing at 0,-1
        while i <= scan_radius do
            y = y - density
            x = x - density
            for a = 1, i, 1 do
                x = x + density
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
            end
            for a = 1, i, 1 do
                y = y + density
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
            end
            for a = 1, i, 1 do
                x = x - density
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
            end
            for a = 1, i, 1 do
                y = y - density
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
            end
            i = i + 2
        end
    end

    if r == 3 then
        --start placing at 1,-1
        while i <= scan_radius do
            y = y - density
            x = x + density
            for a = 1, i, 1 do
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
                y = y + density
            end
            for a = 1, i, 1 do
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
                x = x - density
            end
            for a = 1, i, 1 do
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
                y = y - density
            end
            for a = 1, i, 1 do
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
                x = x + density
            end
            i = i + 2
        end
    end

    if r == 4 then
        --start placing at 1,0
        while i <= scan_radius do
            y = y - density
            x = x + density
            for a = 1, i, 1 do
                y = y + density
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
            end
            for a = 1, i, 1 do
                x = x - density
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
            end
            for a = 1, i, 1 do
                y = y - density
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
            end
            for a = 1, i, 1 do
                x = x + density
                local scanned_tile = surface.get_tile(x, y)
                if scanned_tile.name ~= tilename then
                    table.insert(cluster_tiles, {name = tilename, position = {x, y}})
                    surface.set_tiles(cluster_tiles, auto_correct)
                    return true, x, y
                end
            end
            i = i + 2
        end
    end
    return false
end

local function create_tile_cluster(tilename, position, amount)
    local mode = 'ball'
    local cluster_tiles = {}
    local surface = game.surfaces[1]
    local pos = position
    local x = pos.x
    local y = pos.y
    for i = 1, amount, 1 do
        local b, x, y = find_tile_placement_spot_around_target_position(tilename, pos, mode)
        if b == true then
            if 1 == math.random(1, 2) then
                pos.x = x
                pos.y = y
            end
        end
        if b == false then
            return false, x, y
        end
        if i >= amount then
            return true, x, y
        end
    end
end

function run_combined_module(event)
    if not global.perlin_noise_seed then
        global.perlin_noise_seed = math.random(1000, 1000000)
    end
    if not global.void_slime then
        global.void_slime = {x = 0, y = 0}
    end
    if not global.void_slime_is_alive then
        global.void_slime_is_alive = true
    end
    local area = event.area
    local surface = event.surface
    local tiles = {}
    local decoratives = {}
    local resource_tiles = {}
    local special_tiles = true

    local entities = surface.find_entities(area)
    for _, entity in pairs(entities) do
        if entity.type == 'resource' then
            --table.insert(resource_tiles, {name = "sand-3", position = entity.position})
            special_tiles = false
        end
        if entity.type == 'simple-entity' or entity.type == 'tree' then
            if entity.name ~= 'dry-tree' then
                entity.destroy()
            end
        end
    end

    for x = 0, 31, 1 do
        for y = 0, 31, 1 do
            local pos_x = event.area.left_top.x + x
            local pos_y = event.area.left_top.y + y
            local pos = {x = pos_x, y = pos_y}
            local tile = surface.get_tile(pos_x, pos_y)
            local tile_to_insert = 'sand-1'
            local entity_placed = false

            local seed_increment_number = 10000
            local seed = global.perlin_noise_seed

            local noise_borg_defense_1 = perlin.noise(((pos_x + seed) / 100), ((pos_y + seed) / 100), 0)
            seed = seed + seed_increment_number
            local noise_borg_defense_2 = perlin.noise(((pos_x + seed) / 20), ((pos_y + seed) / 20), 0)
            seed = seed + seed_increment_number
            local noise_borg_defense = noise_borg_defense_1 + noise_borg_defense_2 * 0.15

            local noise_trees_1 = perlin.noise(((pos_x + seed) / 50), ((pos_y + seed) / 50), 0)
            seed = seed + seed_increment_number
            local noise_trees_2 = perlin.noise(((pos_x + seed) / 15), ((pos_y + seed) / 15), 0)
            seed = seed + seed_increment_number
            local noise_trees = noise_trees_1 + noise_trees_2 * 0.3

            if noise_borg_defense > 0.66 then
                local entity_list = {}
                table.insert(entity_list, {name = 'big-ship-wreck-1', pos = {pos_x, pos_y}, chance = 25})
                table.insert(entity_list, {name = 'big-ship-wreck-2', pos = {pos_x, pos_y}, chance = 25})
                table.insert(entity_list, {name = 'big-ship-wreck-3', pos = {pos_x, pos_y}, chance = 25})
                local b, placed_entity = place_entities(surface, entity_list)
                if b == true then
                    if
                        placed_entity.name == 'big-ship-wreck-1' or placed_entity.name == 'big-ship-wreck-2' or
                            placed_entity.name == 'big-ship-wreck-3'
                     then
                        placed_entity.insert(wreck_item_pool[math.random(1, #wreck_item_pool)])
                        placed_entity.insert(wreck_item_pool[math.random(1, #wreck_item_pool)])
                        placed_entity.insert(wreck_item_pool[math.random(1, #wreck_item_pool)])
                    end
                end
            end

            if noise_trees > 0.4 then
                tile_to_insert = 'sand-3'
            end
            if noise_borg_defense > 0.4 then
                tile_to_insert = 'concrete'
            end
            if noise_borg_defense > 0.3 and noise_borg_defense < 0.4 then
                tile_to_insert = 'stone-path'
            end
            if noise_borg_defense > 0.65 and noise_borg_defense < 0.66 then
                if event.surface.can_place_entity {name = 'substation', position = {pos_x, pos_y}, force = 'enemy'} then
                    event.surface.create_entity {name = 'substation', position = {pos_x, pos_y}, force = 'enemy'}
                end
            end
            if noise_borg_defense >= 0.54 and noise_borg_defense < 0.65 then
                if event.surface.can_place_entity {name = 'solar-panel', position = {pos_x, pos_y}, force = 'enemy'} then
                    event.surface.create_entity {name = 'solar-panel', position = {pos_x, pos_y}, force = 'enemy'}
                end
            end
            if noise_borg_defense > 0.53 and noise_borg_defense < 0.54 then
                if event.surface.can_place_entity {name = 'substation', position = {pos_x, pos_y}, force = 'enemy'} then
                    event.surface.create_entity {name = 'substation', position = {pos_x, pos_y}, force = 'enemy'}
                end
            end
            if noise_borg_defense > 0.51 and noise_borg_defense < 0.53 then
                if event.surface.can_place_entity {name = 'accumulator', position = {pos_x, pos_y}, force = 'enemy'} then
                    event.surface.create_entity {name = 'accumulator', position = {pos_x, pos_y}, force = 'enemy'}
                end
            end
            if noise_borg_defense > 0.50 and noise_borg_defense < 0.51 then
                if event.surface.can_place_entity {name = 'substation', position = {pos_x, pos_y}, force = 'enemy'} then
                    event.surface.create_entity {name = 'substation', position = {pos_x, pos_y}, force = 'enemy'}
                end
            end
            if noise_borg_defense > 0.49 and noise_borg_defense < 0.50 then
                if event.surface.can_place_entity {name = 'laser-turret', position = {pos_x, pos_y}, force = 'enemy'} then
                    event.surface.create_entity {name = 'laser-turret', position = {pos_x, pos_y}, force = 'enemy'}
                end
            end
            if noise_borg_defense > 0.485 and noise_borg_defense < 0.49 then
                if event.surface.can_place_entity {name = 'substation', position = {pos_x, pos_y}, force = 'enemy'} then
                    event.surface.create_entity {name = 'substation', position = {pos_x, pos_y}, force = 'enemy'}
                end
            end
            if noise_borg_defense > 0.45 and noise_borg_defense < 0.48 then
                if event.surface.can_place_entity {name = 'stone-wall', position = {pos_x, pos_y}, force = 'enemy'} then
                    event.surface.create_entity {name = 'stone-wall', position = {pos_x, pos_y}, force = 'enemy'}
                end
            end

            local noise_walls_1 = perlin.noise(((pos_x + seed) / 200), ((pos_y + seed) / 200), 0)
            seed = seed + seed_increment_number
            local noise_walls_2 = perlin.noise(((pos_x + seed) / 100), ((pos_y + seed) / 100), 0)
            seed = seed + seed_increment_number
            local noise_walls_3 = perlin.noise(((pos_x + seed) / 25), ((pos_y + seed) / 25), 0)
            seed = seed + seed_increment_number
            local noise_walls = noise_walls_1 + noise_walls_2 + noise_walls_3 * 0.05

            if noise_walls > 0.01 and noise_walls < 0.03 then
                if event.surface.can_place_entity {name = 'stone-wall', position = {pos_x, pos_y}, force = 'enemy'} then
                    event.surface.create_entity {name = 'stone-wall', position = {pos_x, pos_y}, force = 'enemy'}
                end
            end
            if noise_walls > -0.01 and noise_walls < 0.05 then
                tile_to_insert = 'concrete'
            end
            if noise_walls > -0.03 and noise_walls < -0.01 then
                tile_to_insert = 'stone-path'
            end
            if noise_walls > 0.05 and noise_walls < 0.07 then
                tile_to_insert = 'stone-path'
            end

            if noise_trees > 0.4 and tile_to_insert == 'sand-3' then
                if math.random(1, 20) == 1 then
                    if event.surface.can_place_entity {name = 'dry-tree', position = {pos_x, pos_y}} then
                        event.surface.create_entity {name = 'dry-tree', position = {pos_x, pos_y}}
                    end
                end
            end

            local entity_list = {}
            table.insert(
                entity_list,
                {name = 'big-ship-wreck-1', pos = {pos_x, pos_y}, chance = 65000, health = 'random'}
            )
            table.insert(
                entity_list,
                {name = 'big-ship-wreck-2', pos = {pos_x, pos_y}, chance = 65000, health = 'random'}
            )
            table.insert(
                entity_list,
                {name = 'big-ship-wreck-3', pos = {pos_x, pos_y}, chance = 65000, health = 'random'}
            )
            table.insert(entity_list, {name = 'gun-turret', pos = {pos_x, pos_y}, force = 'enemy', chance = 4000})
            table.insert(
                entity_list,
                {name = 'medium-ship-wreck', pos = {pos_x, pos_y}, chance = 25000, health = 'medium'}
            )
            table.insert(
                entity_list,
                {name = 'small-ship-wreck', pos = {pos_x, pos_y}, chance = 15000, health = 'medium'}
            )
            table.insert(entity_list, {name = 'car', pos = {pos_x, pos_y}, chance = 150000, health = 'low'})
            table.insert(
                entity_list,
                {name = 'laser-turret', pos = {pos_x, pos_y}, chance = 100000, force = 'enemy', health = 'low'}
            )
            table.insert(
                entity_list,
                {name = 'nuclear-reactor', pos = {pos_x, pos_y}, chance = 1000000, force = 'enemy', health = 'medium'}
            )
            local b, placed_entity = place_entities(surface, entity_list)
            if b == true then
                if
                    placed_entity.name == 'big-ship-wreck-1' or placed_entity.name == 'big-ship-wreck-2' or
                        placed_entity.name == 'big-ship-wreck-3'
                 then
                    placed_entity.insert(wreck_item_pool[math.random(1, #wreck_item_pool)])
                    placed_entity.insert(wreck_item_pool[math.random(1, #wreck_item_pool)])
                    placed_entity.insert(wreck_item_pool[math.random(1, #wreck_item_pool)])
                end
                if placed_entity.name == 'gun-turret' then
                    if math.random(1, 3) == 1 then
                        placed_entity.insert('piercing-rounds-magazine')
                    else
                        placed_entity.insert('firearm-magazine')
                    end
                end
            end

            if noise_trees < -0.5 then
                if tile_to_insert == 'sand-3' or tile_to_insert == 'sand-1' then
                    if math.random(1, 15) == 1 then
                        if event.surface.can_place_entity {name = 'rock-big', position = {pos_x, pos_y}} then
                            event.surface.create_entity {name = 'rock-big', position = {pos_x, pos_y}}
                        end
                    end
                end
            end

            table.insert(tiles, {name = tile_to_insert, position = {pos_x, pos_y}})
        end
    end
    surface.set_tiles(tiles, true)
    surface.set_tiles(resource_tiles, true)

    if special_tiles == true then
        local pos_x = event.area.left_top.x + math.random(10, 21)
        local pos_y = event.area.left_top.y + math.random(10, 21)
        local pos = {x = pos_x, y = pos_y}
        if math.random(1, 20) == 1 then
            create_tile_cluster('water-green', pos, 300)
        end
    end
end

--[[
local function on_tick()		
		if game.tick % 180 == 0 then		
			if global.void_slime_is_alive == true then
				local b,x,y = create_tile_cluster("lab-dark-1",global.void_slime,math.random(1,4))
				global.void_slime.x = x
				global.void_slime.y = y	
				if b == false then
					global.void_slime_is_alive = false 
					game.print("The void slime died.")
				end
			end
		end			
end


Event.add(defines.events.on_tick, on_tick)  --]]