RedMew/features/biter_corpse_util.lua

local Event = require 'utils.event'

local biter_utils_conf = global.config.biter_corpse_util

local random = math.random

-- currently no on_corpse_spawned event, using on_entity_died instead

local function biter_died(event)
    local entity = event.entity
    if not entity.valid then
        return
    end

    local dying_force = entity.force
    -- ignore player owned entities
    if dying_force == 'player' then
        return
    end

    local surface = entity.surface

    -- More than the desired number of corpses?
    if not (surface.count_entities_filtered {
            position = entity.position,
            radius = biter_utils_conf.radius,
            type = 'corpse',
            force = 'neutral'
            } > biter_utils_conf.corpse_threshold) then
        return
    end

    -- Get the actual entities
    local corpse_list = surface.find_entities_filtered {
            position = entity.position,
            radius = biter_utils_conf.radius,
            type = 'corpse',
            force = 'neutral'
        }

    local num_to_remove = #corpse_list - biter_utils_conf.corpse_threshold
    local random_offset = random(#corpse_list)

    -- Starting at a random number, remove enough entities to be under the threshold
    for i = random_offset, num_to_remove + random_offset do
        --modulus + 1 to ensure we are not past the end of the table
        corpse_list[(i % #corpse_list) + 1].destroy()
    end
end

Event.add(defines.events.on_entity_died, biter_died)