Expression    : !m_DefaultCharacters.empty()
Function      : CSE_ALifeTraderAbstract::specific_character
File          : E:\stalker\patch_1_0004\xr_3da\xrGame\xrServer_Objects_ALife_Monsters.cpp
Line          : 333
Description   : no default specific character set for class
Arguments     : esc_bridge_bandit_leader

Expression    : fatal error
Function      : CInifile::r_section
File          : E:\stalker\patch_1_0004\xrCore\Xr_ini.cpp
Line          : 342
Description   : <no expression>
Arguments     : Can't open section 'clear_outfit'

;---------------------------------------------------------------------------------------------
; БРОНЕКОСТЮМ ЧН
;---------------------------------------------------------------------------------------------
[clear_outfit]:outfit_base
GroupControlSection = spawn_group
discovery_dependency = 
$spawn = "outfit\svoboda_light_outfit"
;$prefetch = 32
class = E_STLK
cform           = skeleton
visual          = equipments\svoboda_light_suit
actor_visual = actors\hero\stalker_svoboda_light.ogf

ef_equipment_type = 5

inv_name = clear_outfit_name
inv_name_short = clear_outfit_name
description = clear_outfit_description
inv_weight = 4.0
slot = 6
inv_grid_width = 2
inv_grid_height = 3
inv_grid_x = 6
inv_grid_y = 46
full_icon_name = npc_icon_clear_outfit

cost = 5000
full_scale_icon = 6,46 ;иконка сталкера в костюме в полный рост

immunities_sect = sect_clear_outfit_immunities

; MEDIUM RESISTANCE
burn_protection = 0.3
strike_protection = 0.2
shock_protection = 0.2
wound_protection = 0.3
radiation_protection = 0.4
telepatic_protection = 0.3
chemical_burn_protection = 0.3
explosion_protection = 0.4
fire_wound_protection   = 0.5

[sect_clear_outfit_immunities]
burn_immunity = 0.03 ;коэффициенты иммунитета самого костюма
strike_immunity = 0.01
shock_immunity = 0.03
wound_immunity = 0.01
radiation_immunity = 0.00
telepatic_immunity = 0.00
chemical_burn_immunity = 0.03
explosion_immunity = 0.03
fire_wound_immunity = 0.005

Expression    : fatal error
Function      : CScriptEngine::lua_error
File          : E:\stalker\patch_1_0004\xr_3da\xrGame\script_engine.cpp
Line          : 73
Description   : <no expression>
Arguments     : LUA error: ...a.l.k.e.r shos\gamedata\scripts\death_manager.script:145: attempt to index field '?' (a nil value)

--' Ключем является группировка персонажа. Значением является таблица, содержашая имена секций предметов.
local item_by_community = {}

--' Зависимости в спауне предметов. Предмет спауниться только если есть хотя бы один из зависимых.
local item_dependence = {}

--' Множители и минимаксы для выпадения вещей в зависимости от уровня
local mul_by_level = {}
local count_by_level = {}

--' Предметы, которые нельзя удалять (квестовые например)
local always_keep_item = {}

--' Предметы, относящиеся к патронам. Их надо спаунить другим методом.
local ammo_sections = {}

local death_ini = ini_file("misc\\death_generic.ltx")

function init_drop_settings()
local community_list = { "stalker", "dolg", "freedom", "bandit", "military", "zombied", "ecolog", "killer", "monolith", "arena_enemy", "actor_dolg" }

for k,v in pairs(community_list) do
--' Необходимо заполнить таблицу
item_by_community [v]= {}
if death_ini:section_exist(v) then
local n = death_ini:line_count(v)
local id, value = "", ""
for i=0,n-1 do
result, id, value = death_ini:r_line(v,i,"","")
item_by_community [v][id]= 1000*tonumber(value)
end
end
end

--' Заполняем таблицу зависимостей
local n = death_ini:line_count("item_dependence")
local id, value = "", ""
for i=0,n-1 do
result, id, value = death_ini:r_line("item_dependence",i,"","")
item_dependence [id]= {}
local vvv = parse_names(value)
for k,v in pairs(vvv) do
item_dependence [id][v]= true
end
end

--' Множители и минимаксы для выпадения вещей в зависимости от уровня
local level_name = level.name()

if not death_ini:section_exist(level_name) then
level_name = "default"
end

local n = death_ini:line_count(level_name)
local id, value = "", ""
for i=0,n-1 do
result, id, value = death_ini:r_line(level_name,i,"","")
mul_by_level [id]= tonumber(value)
end

local item_count_section = "item_count_" .. level.get_game_difficulty()
local n = death_ini:line_count(item_count_section)
for i=0,n-1 do
result, id, value = death_ini:r_line(item_count_section,i,"","")
--' Нужно распарсить value в два значения
local t = parse_nums(value)
if t[1] == nil then
abort("Error on [death_ini] declaration. Section [%s], line [%s]", item_count_section, tostring(id))
end
local min = t[1]
local max = t[2]
if max == nil then
max = min
end

if mul_by_level [id]== nil then
mul_by_level [id]= 0
end

min = tonumber(min) * mul_by_level
[id]max = tonumber(max) * mul_by_level

[id]count_by_level [id]= {min = min, max = max}
end

--' Предметы, которые нельзя удалять (квестовые например)
local n = death_ini:line_count("keep_items")
for i=0,n-1 do
result, id, value = death_ini:r_line("keep_items",i,"","")
if value == "true" then
always_keep_item [id]= true
end
end

--' Предметы, относящиеся к патронам. Их надо спаунить другим методом.
ammo_sections = {}
local n = death_ini:line_count("ammo_sections")
local id, value = "", ""
for i=0,n-1 do
result, id, value = death_ini:r_line("ammo_sections",i,"","")
ammo_sections [id]= true
end
end

class "drop_manager"
function drop_manager:__init(npc)
self.npc = npc
end
function drop_manager:create_release_item()
--' Спрашиваем у серверного объекта генерились ли предметы
local se_obj = alife():object(self.npc:id())
if se_obj.death_droped == true then
return
end
se_obj.death_droped = true

-- dbglog("drop_manager: start (" .. se_obj:name() .. ")")
-- dbglog("drop_manager: go iterate_inventory")

--' Запускаем итератор на удаление предметов
self.npc:iterate_inventory(keep_item, self.npc)

-- dbglog("drop_manager: check loot")
--' Проверка на отсутствие спауна лута
local ini = self.npc:spawn_ini()

if ini and ini:section_exist("dont_spawn_loot") then
-- dbglog("drop_manager: we should not spawn -- exit")
return
end

--' Доспавниваем необходимое количество итемов:
--' Необходимо составить список объектов которые могут быть заспавнены для персонажа

-- dbglog("drop_manager: generate loot items")
local spawn_items = item_by_community[self.npc:character_community()]
for k,v in pairs(spawn_items) do
--' По каждому объекту необходимо получить зависимости
if check_item_dependence(self.npc, k) == true then
--' По каждому объекту необходимо получить количество
local number = math.ceil(math.random(count_by_level[k].min, count_by_level[k].max))
--' Необходимо заспавнить нужное количество.
create_items(self.npc, k, number, v)
end
end

-- dbglog("drop_manager: done - ok")
end

--' Функция вызывается для каждого предмета, если вернет false то предмет удалится.
-- xiani: я так понял что предметы всетаки надо удалять тут вручную а не просто возвращать false?
function keep_item(npc, item)
local section = item:section()

if     section == "bolt"
then
return false
end

if     section == "device_torch"
-- or section == "device_pda"
or section == "hand_radio"
or section == "guitar_a"
or section == "harmonica_a"
then
alife():release(alife():object(item:id()), true)
return false
end

if always_keep_item [section]== true then
return true
end

local item_id = item:id()
local item_in_slot = npc:item_in_slot(1)
if item_in_slot ~= nil and
item_in_slot:id() == item_id
then
if xiani_config.dm_keep_ammo ~= true then
item:unload_magazine()
end
--' Тут надо уменьшить кондишн оружия
item:set_condition((math.random(15)+75)*item:condition()/100)
return true
end
item_in_slot = npc:item_in_slot(2)
if item_in_slot ~= nil and
item_in_slot:id() == item_id
then
if xiani_config.dm_keep_ammo ~= true then
item:unload_magazine()
end
--' Тут надо уменьшить кондишн оружия
item:set_condition((math.random(15)+75)*item:condition()/100)
return true
end

if xiani_config.dm_keep_items == true then
return true
end
alife():release(alife():object(item:id()), true)
end

--' Функция спавнит необходимое число предметов
function create_items(npc, section, number, rnd)
--'printf("create %s of %s", tostring(number), tostring(section))
if ammo_sections [section]== true then
if number > 0 then
se_respawn.create_ammo(section,
npc:position(),
npc:level_vertex_id(),
npc:game_vertex_id(),
npc:id(),
number)
end
else
for i=1,number do
--' Проверяем вероятность появить каждый объект в отдельности
if math.random(1000) <=  rnd then
alife():create(section,
npc:position(),
npc:level_vertex_id(),
npc:game_vertex_id(),
npc:id())
end
end
end
end

--' Функция проверяет есть ли хоть один из зависимых объектов у персонажа
function check_item_dependence(npc, section)
if item_dependence [section]== nil then
return true
end

local d_flag = true
for k,v in pairs(item_dependence[section]) do
local obj = npc:object(k)
if obj ~= nil and npc:marked_dropped(obj) ~= true then
return true
end
d_flag = false
end

return d_flag
end