--схема удаления трупов монстров
local dist_to_corpses_motstr = 20 --расстояние от ГГ, свыше которого считаются трупы.
local tabl_monsters_dead={} --все мёртвые монстры
local tabl_monsters_dead_with_parts_to_remove = {} --список монстров мёртвых на удаление
local summ_dead_monsters = 0 --общее допустимое число трупов монстров на всех локациях

local tabl_monsters_dead_with_parts_restrict = { --ограничения на количество мёртвых монстров (-1 - без ограничений)
    [clsid.boar_s]   = 1,
    [clsid.bloodsucker_s]  = 1,
    [clsid.dog_s]   = 1,
    [clsid.flesh_s]  = 1,
    [clsid.psy_dog_s]  = 1,
    [clsid.pseudodog_s]  = 1,
    [clsid.burer_s]  = 1,
    [clsid.cat_s]   = 1,
    [clsid.chimera_s]  = 1,
    [clsid.controller_s]  = 1,
    [clsid.fracture_s]  = 1,
    [clsid.poltergeist_s]  = 1,
    [clsid.gigant_s]  = 1,
    [clsid.zombie_s]  = 1,
    [clsid.tushkano_s]  = 1,
    [clsid.snork_s]  = 1
}
local tabl_monsters_names = {
    [clsid.boar_s]   = "кабанов",
    [clsid.bloodsucker_s]  = "кровососов",
    [clsid.dog_s]   = "собак",
    [clsid.flesh_s]  = "плотей",
    [clsid.psy_dog_s]  = "пси-собак",
    [clsid.pseudodog_s]  = "псевдособак",
    [clsid.burer_s]  = "бюреров",
    [clsid.cat_s]   = "котов",
    [clsid.chimera_s]  = "химер",
    [clsid.controller_s]  = "контролёров",
    [clsid.fracture_s]  = "изломов",
    [clsid.poltergeist_s]  = "полтергейстов",
    [clsid.gigant_s]  = "псевдогигантов",
    [clsid.zombie_s]  = "зомби",
    [clsid.tushkano_s]  = "тушканов и крыс",
    [clsid.snork_s]  = "снорков"
}

function off_corpses()
    
  --зачистка мёртвых монстров
  local b = #tabl_monsters_dead
  if b > summ_dead_monsters then
   table_sort(tabl_monsters_dead, max_comp)
   local n = b
   local corps
   local id
   while b > summ_dead_monsters and n > 0 do
    corps = tabl_monsters_dead[n]
    id = corps:clsid()
    if not item_found(corps) then --если нет "запчастей"-удаляем
     sim:release(corps, true)
     table_remove(tabl_monsters_dead, n)
     b = b - 1
     tabl_monsters_stat_dead_removed[id] = tabl_monsters_stat_dead_removed[id] + 1
     monsters_dead_removed_count = monsters_dead_removed_count + 1
else --если есть "запчасти" - смотрим
     tabl_monsters_stat_dead_with_parts[id] = tabl_monsters_stat_dead_with_parts[id] + 1
     if tabl_monsters_dead_with_parts_restrict[id] > -1 then --если не в "красной книге" - то смотрим дальше
      --сбор мёртвых монстров на удаление (не удаляются здесь, чтобы потом удалять равномерно, если количесво перерастёт разрешенное)
      tabl_monsters_dead_with_parts_to_remove[id][tabl_monsters_stat_dead_with_parts[id]] = corps

     end
       end
  n=n-1
       end
    end

function item_found(corps)
    local result = false
    local items = tabl_parent_items[corps.id]
    
    if items then
  
  local sim = alife()
  -- проверяем парента
  local s_parent = sim:object(corps.id)
      get_console():execute(string.format("load ~sak_off_corpses~: %s", s_parent:name()))
  if s_parent and npc_by_clsid[s_parent:clsid()] and not s_parent:alive() then

   local item
   for i = 1, #items do
    item = sim:object(items[i])
    if item then
     if item_keep(item) then
      result = item
      break
     end
    end
   end
  end
    end
    
    return result
end

function item_keep(item)
    return (tabl_items_remove[item:section_name()] ~= true and protected_items.cleanerDoNotTouchItem(item))
end

   

function max_comp(i1,i2) -- возвращает true если i1 меньше i2
    return i1.position:distance_to_sqr(actorpos) < i2.position:distance_to_sqr(actorpos)
end

--схема удаления трупов монстров
tabl_monsters_dead = nil --все мёртвые монстры
tabl_monsters_dead_with_parts_to_remove = nil --список монстров мёртвых на удаление
summ_dead_monsters = nil --общее допустимое число трупов монстров без "запчастей" на всех локациях

actorpos = nil
end