Expression : no_assert
Function : CXML_IdToIndex<class CInfoPortion>::GetById
File : e:\stalker\patch_1_0004\xr_3da\xrgame\xml_str_id_loader.h
Line : 112
Description : item not found, id
Arguments : ds_delete_changer

Нам понадобится файл gamedata\scripts\xr_motivator.script
В файле инициализируем флаг неуязвимости
После строчки
function motivator_binder:__init (obj) super(obj)
пишем
self.invul = false

Далее, будем отслеживать неуязвимость на методе UPDATE
После строчек
function motivator_binder:update(delta)
object_binder.update(self, delta)
пишем
local npc = self.object
local npc_st = db.storage[npc:id()]
local invulnerability = utils.cfg_get_string(npc_st.ini, npc_st.active_section, "invul", npc, false, "", nil)
if invulnerability ~= nil then
local condlist = xr_logic.parse_condlist(npc, npc_st.active_section, "invul", invulnerability)
self.invul = xr_logic.pick_section_from_condlist(db.actor, npc, condlist) == "true"
if self.invul == true then
npc.health = 1
end
end

И закрепим всё это при вызове колбэка хита
После строчки
function motivator_binder:hit_callback(obj, amount, local_direction, who, bone_index)
пишем
if self.invul == true then
self.object.health = 1
end

На этом со cкриптами закончили.
Теперь, в активной схеме логики сталкера, например walker, пропишем наш параметр invul
invul = {-поршень} true, false
или
invul = {=dist_to_actor_le(20)} true, false
или просто
invul = true

В первом случае - пока не выдан инфопоршень НПС будет бессмертным
Во-втором случае, если расстояние до ГГ меньше 20 м, то НПС бессмертен, если больше, то смертен.
В третьем случае НПС бессмертен всегда.

Если не прописывать параметр invul, то НПС будет всегда уязвим.

Проверено на ЗП - работает правильно. По идее должно работать и на ТЧ.

[logic]
active = camper

[camper]
path_walk = guk_stay_at_position_walk
path_look = guk_stay_at_position_look
radius = 5

function immotral()
local npc1 = level_object_by_sid(006) --волк
local npc2 = level_object_by_sid(092) --проводник
local npc3 = level_object_by_sid(032)-- кузнецов
local npc4= level_object_by_sid(100) --Серый
if npc1 then npc1.health = 1 end
if npc2 then npc2.health = 1 end
if npc3 then npc3.health = 1 end
if npc4 then npc4.health = 1 end
end