ComfyFactorio/maps/amap/caves.lua

--luacheck: ignore
--[[
Exchange Strings

>>>eNp1UT1oFEEUfi/nkcsJonBNwMQrUtjsES/aHOFmTCMp1M5+b
29OB/Z2ztldSLRwixQWQpo0pkmKNCZgJ2gXsVHQIGpjd5LGwiJBE
AvhnNnd2VvX5IN5fPO9/xmAC3AbYuxTgKhdOeMI201vRMmk6ojBg
ElLSJaXpxwZdpkluAqO6N7uLtGeKvNYf9Xq2D7TskqI5QqXwitWK
PuB8P5VAsmYnyRGba2eDaXt8bCf5EZZJODOwZ3X0dos6DN6BPXRS
B/Fhso/hBQqA5WWonTZEV4ghWv5LAi4d7dlhyutnmT3Q+Y5q61+6
AZ84HImKwuN+RgzxYy+4H4QStbqcNufsuYbzWs6zjo17sTyVxoLM
cqOy3s9gPp1dZb01oj4sPb8xrcHGwSTqRs0JUepst8xyrIht+ipr
jlDrubqJN1/5kjSNFAt0qgKHZPEuaadiMf3Dh+/+P2ljX+eHX+62
aEEj4yCOKkScCIzm081XplVwNQcktT1leCH9xo/CJZ1Rk2b7SfKR
M0JwPPnzLV+EcxobVOmRrEX45fZ5NCQz6S4h3qIRV18Vpu32sQNs
8kwoXSdIr1kvNPjEJXfhPwM3fGG70zbN7n+hUH+/4j8HgVljp7wD
VXdsJuZ76VsGvWeHyfNjW7REoyhvvvAetn9CzJb1cQ=<<<
]]
--local List = require 'maps.chronosphere.production_list'
--local Factories = require 'maps.chronosphere.production'
local random = math.random
local Alert = require 'utils.alert'
require 'player_modifiers'
require 'modules.rocks_broken_paint_tiles'
require 'modules.rocks_heal_over_time'
require 'modules.rocks_yield_ore_veins'
local WPT = require 'maps.amap.table'
require 'modules.no_deconstruction_of_neutral_entities'
local MT = require 'maps.amap.basic_markets'
local RPGtable = require 'modules.rpg.table'
local Loot = require 'maps.amap.loot'
local get_noise = require 'utils.get_noise'
local Player_modifiers = require 'player_modifiers'
local math_random = math.random
local math_floor = math.floor
local math_abs = math.abs
local Public = {}
local BiterRolls = require 'modules.wave_defense.biter_rolls'
local rock_raffle = {'sand-rock-big', 'sand-rock-big', 'rock-big', 'rock-big', 'rock-big', 'rock-big', 'rock-big', 'rock-big', 'rock-big', 'rock-huge'}
local size_of_rock_raffle = #rock_raffle
local Pets = require 'maps.amap.biter_pets'
local WD = require 'modules.wave_defense.table'

local function place_entity(surface, position)
    if math_random(1, 3) ~= 1 then
        surface.create_entity({name = rock_raffle[math_random(1, size_of_rock_raffle)], position = position, force = 'neutral'})
    end
end

local function is_scrap_area(noise)
    if noise > 0.67 then
        return
    end
    if noise < -0.67 then
        return
    end
    if noise > 0.33 then
        return true
    end
    if noise < -0.33 then
        return true
    end
end

local function hidden_treasure(player, entity)
    local rpg = RPGtable.get('rpg_t')

    local magic = rpg[player.index].magicka

    local msg = 'look,you find a treasure'

    Alert.alert_player(player, 5, msg)

    Loot.add_rare(entity.surface, entity.position, 'wooden-chest', magic)
end

local function register_spawner(spawner)
    local nests = WD.get('nests')
    if spawner.valid then
        nests[#nests + 1] = spawner
    end
end

local function move_away_things(surface, area)
    for _, e in pairs(surface.find_entities_filtered({type = {'unit-spawner', 'unit', 'tree'}, area = area})) do
        local position = surface.find_non_colliding_position(e.name, e.position, 128, 4)
        if position then
            local entity = surface.create_entity({name = e.name, position = position, force = 'enemy'})
            e.destroy()
        -- if (entity.name == "biter-spawner" or entity.name == "spitter-spawner") and entity.force.name == "enemy" then
        -- 	register_spawner(entity)
        -- end
        end
    end
end

local vectors = {{0, 0}, {1, 0}, {-1, 0}, {0, 1}, {0, -1}}
local function hidden_biter_pet(player, entity)
    local pos = entity.position

    BiterRolls.wave_defense_set_unit_raffle(math.sqrt(pos.x ^ 2 + pos.y ^ 2) * 0.25)
    local unit
    if random(1, 3) == 1 then
        unit = entity.surface.create_entity({name = BiterRolls.wave_defense_roll_spitter_name(), position = pos})
    else
        unit = entity.surface.create_entity({name = BiterRolls.wave_defense_roll_biter_name(), position = pos})
    end
    Pets.biter_pets_tame_unit(game.players[player.index], unit, true)
end
local function hidden_biter(player, entity)
    local pos = entity.position
    BiterRolls.wave_defense_set_worm_raffle(math.sqrt(pos.x ^ 2 + pos.y ^ 2) * 0.19)
    BiterRolls.wave_defense_set_unit_raffle(math.sqrt(pos.x ^ 2 + pos.y ^ 2) * 0.25)
    local roll = math.random(1, 3)
    local unit
    if roll == 1 then
        unit = entity.surface.create_entity({name = BiterRolls.wave_defense_roll_spitter_name(), position = pos})
    elseif roll == 2 then
        unit = entity.surface.create_entity({name = BiterRolls.wave_defense_roll_biter_name(), position = pos})
    else
        unit = entity.surface.create_entity({name = BiterRolls.wave_defense_roll_worm_name(), position = pos})
    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
    local surface = entity.surface
    for _, v in pairs(vectors) do
        local position = {entity.position.x + v[1], entity.position.y + v[2]}
        if not surface.get_tile(position).collides_with('resource-layer') then
            surface.set_tiles({{name = 'landfill', position = position}}, true)
        end
    end
    if event.player_index then
        game.players[event.player_index].insert({name = 'coin', count = 1})
    end
    local player = game.players[event.player_index]
    --修复挖矿石路
    local rpg = RPGtable.get('rpg_t')
    local rpg_char = rpg[player.index]
    if rpg_char.stone_path then
        entity.surface.set_tiles({{name = 'stone-path', position = entity.position}}, true)
    end

    --挖出汽车
    if random(1, 1024) < 2 then
        local position = {entity.position.x, entity.position.y}
        --local player = game.players[event.player_index]
        surface.create_entity({name = 'car', position = position, force = 'player'})
        Public.unstuck_player(player.index)
        local msg = ('you find a car!')
        Alert.alert_player(player, 15, msg)
    end
    --挖出虫巢

    if random(1, 200) < 2 then
        local position = {entity.position.x, entity.position.y}
        local player = game.players[event.player_index]
        surface.create_entity({name = 'biter-spawner', position = position, force = 'enemy'})
        Public.unstuck_player(player.index)
    end
    --挖出宝藏
    if random(1, 150) < 2 then
        local player = game.players[event.player_index]

        hidden_treasure(player, entity)
    end
    --挖出宠物
    if random(1, 170) < 3 then
        local player = game.players[event.player_index]
        hidden_biter_pet(player, entity)
    end
    --来挖个虫子
    if random(1, 100) < 3 then
        local player = game.players[event.player_index]
        hidden_biter(player, entity)
    end
end

--图块生成时
local function on_chunk_generated(event)
    local surface = event.surface
    local this = WPT.get()
    if not (surface.index == game.surfaces[this.active_surface_index].index) then
        return
    end
    local seed = surface.map_gen_settings.seed
    local left_top_x = event.area.left_top.x
    local left_top_y = event.area.left_top.y
    local set_tiles = surface.set_tiles
    local get_tile = surface.get_tile
    local position
    local noise
    local tem_pos

    for x = 0, 31, 1 do
        for y = 0, 31, 1 do
            position = {x = left_top_x + x, y = left_top_y + y}
            local q = position.x ^ 2
            local w = position.y ^ 2
            local maxs = math.sqrt(q + w)

            if maxs <= 120 then
                if maxs > 117 then
                    if surface.can_place_entity {name = 'stone-wall', position = {x = position.x, y = position.y}, force = game.forces.player} then
                        surface.create_entity {name = 'stone-wall', position = {x = position.x, y = position.y}, force = game.forces.player}
                    end
                end
                local h = math_abs(position.x)
                local k = math_abs(position.y)
                if maxs < 115 and maxs > 113 then
                    if (1 == h % 7) or (1 == k % 7) then
                        if surface.can_place_entity {name = 'gun-turret', position = position, force = game.forces.player} then
                            local e = surface.create_entity {name = 'gun-turret', position = position, force = game.forces.player}
                            e.insert {name = 'firearm-magazine', count = 30}
                        end
                    end
                end
            else
                if not get_tile(position).collides_with('resource-layer') then
                    noise = get_noise('scrapyard', position, seed)
                    if is_scrap_area(noise) then
                        set_tiles({{name = 'dirt-' .. math_floor(math_abs(noise) * 12) % 4 + 3, position = position}}, true)

                        if maxs >= 3000 then
                            local roll = math_random(1, 1024)
                            if roll <= 2 then
                                BiterRolls.wave_defense_set_worm_raffle(math.sqrt(position.x ^ 2 + position.y ^ 2) * 0.19)
                                surface.create_entity({name = BiterRolls.wave_defense_roll_worm_name(), position = position, force = 'enemy'})
                            end
                        end
                        if x + y > 33 and x + y < 40 then
                            local b = math_random(1, 200)
                            --宝藏
                            if b < 3 then
                                local chest = 'iron-chest'
                                Loot.add(surface, position, chest)
                            end
                        --中立建筑

                        --在我上面添加代码
                        end
                        --商店代码
                        if y == 1 then
                            if x == 1 then
                                local a = math_random(1, 8)
                                if a == 1 then
                                    local q = math_abs(position.x) / 80
                                    local w = math_abs(position.y) / 80
                                    local maxs = math.floor(q + w)
                                    -- game.print(maxs)
                                    MT.mountain_market(surface, position, maxs)
                                end
                            end
                        end

                        place_entity(surface, position)
                    end
                end
            end
        end
    end

    move_away_things(surface, event.area)
end

function Public.unstuck_player(index)
    local player = game.get_player(index)
    local surface = player.surface
    local position = surface.find_non_colliding_position('character', player.position, 32, 0.5)
    if not position then
        return
    end
    player.teleport(position, surface)
end
local function on_init()
    global.rocks_yield_ore_maximum_amount = 999
    global.rocks_yield_ore_base_amount = 100
    global.rocks_yield_ore_distance_modifier = 0.020
end

local Event = require 'utils.event'
Event.on_init(on_init)
Event.add(defines.events.on_chunk_generated, on_chunk_generated)
Event.add(defines.events.on_player_mined_entity, on_player_mined_entity)
--Event.add(defines.events.on_entity_died, on_entity_died)
require 'maps.amap.rocks_yield_ore'