ComfyFactorio/modules/scrap_towny_ffa/unearthing_biters.lua

local math_random = math.random

local Table = require 'modules.scrap_towny_ffa.table'

local function create_particles(surface, position, amount)
    if not surface.valid then
        return
    end
    for _ = 1, amount, 1 do
        local m = math_random(6, 12)
        local m2 = m * 0.005

        surface.create_particle(
            {
                name = 'stone-particle',
                position = position,
                frame_speed = 0.1,
                vertical_speed = 0.1,
                height = 0.1,
                movement = {m2 - (math_random(0, m) * 0.01), m2 - (math_random(0, m) * 0.01)}
            }
        )
    end
end

local function spawn_biter(surface, position, evolution)
    if not surface.valid then
        return
    end
    local evo = math.floor(evolution * 1000)

    local biter_chances = {
        {name = 'small-biter', chance = math.floor(1000 - (evo * 1.6))},
        {name = 'small-spitter', chance = math.floor(500 - evo * 0.8)},
        {name = 'medium-biter', chance = -150 + evo},
        {name = 'medium-spitter', chance = -75 + math.floor(evo * 0.5)},
        {name = 'big-biter', chance = math.floor((evo - 500) * 3)},
        {name = 'big-spitter', chance = math.floor((evo - 500) * 2)},
        {name = 'behemoth-biter', chance = math.floor((evo - 800) * 6)},
        {name = 'behemoth-spitter', chance = math.floor((evo - 800) * 4)}
    }

    local max_chance = 0
    for i = 1, 8, 1 do
        if biter_chances[i].chance < 0 then
            biter_chances[i].chance = 0
        end
        max_chance = max_chance + biter_chances[i].chance
    end
    local r = math_random(1, max_chance)
    local current_chance = 0
    for i = 1, 8, 1 do
        current_chance = current_chance + biter_chances[i].chance
        if r <= current_chance then
            local biter_name = biter_chances[i].name
            local p = surface.find_non_colliding_position(biter_name, position, 10, 1)
            if not p then
                return
            end
            surface.create_entity({name = biter_name, position = p, force = 'enemy'})
            return
        end
    end
end

local function unearthing_biters(surface, position, amount, relative_evolution)
    local ffatable = Table.get_table()
    if not surface then
        return
    end
    if not position then
        return
    end
    if not position.x then
        return
    end
    if not position.y then
        return
    end

    local ticks = amount * 30
    ticks = ticks + 90
    for t = 1, ticks, 1 do
        if not ffatable.on_tick_schedule[game.tick + t] then
            ffatable.on_tick_schedule[game.tick + t] = {}
        end

        ffatable.on_tick_schedule[game.tick + t][#ffatable.on_tick_schedule[game.tick + t] + 1] = {
            func = create_particles,
            args = {surface, {x = position.x, y = position.y}, 4}
        }

        if t > 90 then
            if t % 30 == 29 then
                ffatable.on_tick_schedule[game.tick + t][#ffatable.on_tick_schedule[game.tick + t] + 1] = {
                    func = spawn_biter,
                    args = {surface, {x = position.x, y = position.y}, relative_evolution}
                }
            end
        end
    end
end

return unearthing_biters