---------------- Схема поведения НПС при выбросе для OGSM 2.x -----------------

------------------------- Copyright 2007-2008 DEXXX ---------------------------

restrictor_list = {}

local npc_psy = {}
local npc_run = {}
local npc_sit = {}
local npc_go = {}


-- We check whether NPC is in specific rectangle zone (are set for special places,
-- such as bar, where NPCs should not react to blowout at all)
function npc_in_zone(obj,lev,pos_psy_x,pos_psy_y,size_psy_x,size_psy_y,z1,z2)
local level_name = level.name()
if level_name ~= lev then
    return false
end
local pos = obj:position()
local x1 = pos_psy_x
local x2 = pos_psy_y
local y1 = size_psy_x
local y2 = size_psy_y
if (pos.x >= x1 and pos.x <= x2) and (pos.z >= y1 and pos.z <= y2) and (pos.y >= z1) and (pos.y <= z2) then
    return true
end
return false
end

-- We get the nearest to NPC hide
function get_nearest_hide(npc)
local hideout_list = {}
for k,v in pairs(restrictor_list) do
    local community, radius = get_community_hide(v)
    local obj = level.object_by_id(v.id)
    if obj and string.find(community, npc:character_community()) then
        local npc_pos = npc:position()
        local hide_pos = obj:position()
        local distance = npc_pos:distance_to(hide_pos)
        local hide = {obj = obj, rad = radius, dist = distance}
        table.insert(hideout_list, hide)
    end
end
table.sort(hideout_list, function(a,b) return a.dist < b.dist end)
local nearest_hide = hideout_list[1]
return nearest_hide
end


-- We get the hideout data (communities, radius)
function get_community_hide(obj)
if not obj then return "none" end
local packet = net_packet()
obj:STATE_Write(packet)
local game_vertex_id = packet:r_u16()
local cse_alife_object__unk1_f32 = packet:r_float()
local cse_alife_object__unk2_u32 = packet:r_s32()
local level_vertex_id = packet:r_s32()
local object_flags = packet:r_s32()
local custom_data = packet:r_stringZ()
local cd = parse_custom_data(custom_data)
if not cd.parameters then return "none" end
if not cd.parameters.community then return "none" end
if not cd.parameters.radius then return "none" end
return cd.parameters.community, cd.parameters.radius
end

function is_in_specific_zone(npc)
    if npc_in_zone(npc,"l01_escape",-256,-246,-137,-132,-25,-20) or     -- Бункер Сидора
       npc_in_zone(npc,"l03_agroprom",-198.31,-195.66,85.4,96.54,2,5.3) or  -- Вагон дезертира
       npc_in_zone(npc,"l04_darkvalley",30,50,-60,-25,-4,0) or          -- Тюрьма в Темной долине
       npc_in_zone(npc,"l05_bar",123,140,18,30,-6,0) or                 -- Бар
       npc_in_zone(npc,"l05_bar",118,121,34,41,-4,1) or                 -- Охранник Бара
       npc_in_zone(npc,"l05_bar",149,158,67,74,0,4) or              -- Приемная Арни
       npc_in_zone(npc,"l05_bar",136,168,73,134,-22,-10) or         -- Арена
       npc_in_zone(npc,"l05_bar",208,234,120,139,-6,2) or               -- База Долга
       npc_in_zone(npc,"l06_rostok",-90,-87,125,151,0,6) or             -- Блокпост наемников
       npc_in_zone(npc,"l07_military",-27,-16,-33,-14,-9,0) or          -- База Свободы
       npc_in_zone(npc,"l08_yantar",23,40,-282,-269,-16,0) or           -- Бункер ученых
       npc_in_zone(npc,"l08_yantar",-265,-22,-218,-6,-20,-11) or            -- Кишка
       npc_in_zone(npc,"l11_pripyat",-16,-2,188,204,-5,0) then          -- Подвал ДК
        return true
    end
    return false
end

function is_in_hide(npc)
    if npc_in_zone(npc,"l01_escape",-211,-198,-132,-125,-23,-20) or     -- Подвал 1 в лагере новичков
       npc_in_zone(npc,"l01_escape",-216,-209,-133,-120,-24,-20) or     -- Подвал 2 в лагере новичков
       npc_in_zone(npc,"l02_garbage",-112,-57,-6,25,-9,90) or       -- Ангар на Свалке
       npc_in_zone(npc,"l05_bar",206,213,50,68,0,4) or          -- Магазин Петренко
       npc_in_zone(npc,"l06_rostok",-285,-235,78,112,-7,0) or       -- Тоннель Фримена
       npc_in_zone(npc,"l10_radar",639,664,167,189,-45,-37) or      -- Секретная база Монолита
       npc_in_zone(npc,"l10_radar",86.73,153,-27,-21.70,-10,-4.6) or    -- Вход в бункер
       npc_in_zone(npc,"l11_pripyat",-18,-12,58,83,-6,-3) or        -- Подземный переход
       npc_in_zone(npc,"l11_pripyat",167,173,58,83,-6,-3) or        -- Подземный переход
       npc_in_zone(npc,"l11_pripyat",-24,55,116,122,-4,0) then      -- Канализация
        return true
    else
        local hide = get_nearest_hide(npc)
        if hide then
            if utils.npc_in_zone(npc, hide.obj) then
                return true
            end
        end
    end
    return false
end


-- Spawn function. Better watch out :)
function spawn_restrictor(p_level, p_vector, p_lv, p_gv, p_type, p_radius)

local p_name

p_name = p_level.."_hide_restrictor"

local obj = alife():create(p_name, p_vector, p_lv, p_gv)

local hide_name
if string.find(p_type, "_") then hide_name = "ogsm_common_hide"
else hide_name = "ogsm_"..p_type.."_hide" end

local mapspot
if p_radius < 4 then mapspot = "ogsm_hide_spot_min"
elseif p_radius < 11 then mapspot = "ogsm_hide_spot_mdl"
else mapspot = "ogsm_hide_spot_max" end

local packet = net_packet()

obj:STATE_Write(packet)

-- свойства cse_alife_object
local game_vertex_id = packet:r_u16()
local cse_alife_object__unk1_f32 = packet:r_float()
local cse_alife_object__unk2_u32 = packet:r_s32()
local level_vertex_id = packet:r_s32()
local object_flags = packet:r_s32()
local custom_data = packet:r_stringZ()
local story_id = packet:r_s32()
local cse_alife_object__unk3_u32 = packet:r_s32()

-- свойства cse_shape
local shape_count = packet:r_u8()
local shape_type
local center
local radius

if shape_count == 0 then
    shape_type = 0
    center = vector():set(0,0,0)
    radius = 10.0
    shape_count = 1
else
for i=1,shape_count do
    local shape_type = packet:r_u8()
    if shape_type == 0 then
        local center = packet:r_vec3()
        local radius = packet:r_float()
    else
        local v1 = packet:r_vec3()
        local v2 = packet:r_vec3()
        local v3 = packet:r_vec3()
        local v4 = packet:r_vec3()
    end
end
end

-- свойства cse_alife_space_restrictor
local restrictor_type = packet:r_u8()

-- свойства cse_alife_object
packet:w_u16(game_vertex_id)
packet:w_float(cse_alife_object__unk1_f32)
packet:w_s32(cse_alife_object__unk2_u32)
packet:w_s32(level_vertex_id)
packet:w_s32(object_flags)

custom_data = "[logic] \nactive = sr_mapspot \n[sr_mapspot] \nhint = "..hide_name.." \nlocation = "..mapspot

local cd = parse_custom_data(custom_data)
if not cd then cd={} end
if not cd.parameters then cd.parameters = {} end
cd.parameters.community = p_type
cd.parameters.radius = p_radius
custom_data = gen_custom_data(cd)

packet:w_stringZ(custom_data)
packet:w_s32(story_id)
packet:w_s32(cse_alife_object__unk3_u32)

-- свойства cse_shape
packet:w_u8(shape_count)

for i=1,shape_count do
    packet:w_u8(shape_type)
    if shape_type == 0 then
        packet:w_vec3(center)
        packet:w_float(p_radius)
    else
        packet:w_vec3(v1)
        packet:w_vec3(v2)
        packet:w_vec3(v3)
        packet:w_vec3(v4)
    end
end

-- свойства cse_alife_space_restrictor
packet:w_u8(restrictor_type)

obj:STATE_Read(packet, packet:w_tell()-packet:r_tell())

return obj
end


-- Don't touch this too.
function parse_custom_data(str)
 local t={}
 if str then
  for section, section_data in string.gfind(str,"%s*%[([^%]]*)%]%s*([^%[%z]*)%s*") do
   section = trim(section)
   t[section]={}
   for line in string.gfind(trim(section_data), "([^\n]*)\n*") do
    if string.find(line,"=")~=nil then
     for k, v in string.gfind(line, "([^=]-)%s*=%s*(.*)") do
      k = trim(k)
      if k~=nil and k~='' and v~=nil then
       t[section][k]=trim(v)
      end
     end
    else
     for k, v in string.gfind(line, "(.*)") do
      k = trim(k)
      if k~=nil and k~='' then
       t[section][k]="<<no_value>>"
      end
     end
    end
   end
  end
 end
 return t
end
function gen_custom_data(tbl)
 local str=''
 for key, value in pairs(tbl) do
  str = str.."["..key.."]\n"
  for k, v in pairs(value) do
   if v~="<<no_value>>" then
    str=str..k.." = "..v.."\n"
   else
    str=str..k.."\n"
   end
  end
 end
 return str
end
function trim (s)
 return (string.gsub(s, "^%s*(.-)%s*$", "%1"))
end


-- Getting the list of hideouts on game load
function get_level_hides()
for i=1,65535 do
    local obj = alife():object(i)
    if obj then
        if string.find(obj:name(), level.name().."_hide_restrictor") then
            table.insert(restrictor_list, obj)
        end
    end
end
end


-- First run spawn. If parameter p_type is "fake_" - it means that the hide is fake - it is only for actor
-- NPCs ignore such fake hides
function first_run()

------------------
-- Escape Hides --
------------------

-- Бункер Сидора
spawn_restrictor("l01_escape", vector():set(-249.9,-24.8,-134.4), 10136, 7, "fake_", 3)
-- Лагерь новичков
spawn_restrictor("l01_escape", vector():set(-206.5,-22.53,-128.1), 46582, 58, "stalker", 3)
spawn_restrictor("l01_escape", vector():set(-211.4,-23.17,-129.5), 41963, 59, "stalker", 3)
-- Ферма
spawn_restrictor("l01_escape", vector():set(-8.4,0.64,258.3), 268724, 183, "stalker", 4)
-- Заброшенный дом рядом с Лисом
spawn_restrictor("l01_escape", vector():set(133.0,0.22,339.5), 437657, 232, "stalker_bandit", 3)
-- АТП
spawn_restrictor("l01_escape", vector():set(109.9,-7.48,7.7), 411371, 118, "stalker_bandit", 5)
-- Блокпост
spawn_restrictor("l01_escape", vector():set(-119.7,-30.04,-386.4), 133789, 27, "military", 4)
spawn_restrictor("l01_escape", vector():set(-140.7,-29.68,-361.2), 109717, 18, "military", 4)
-- Мельница
spawn_restrictor("l01_escape", vector():set(13.3,2.7,98.7), 290783, 92, "military", 3)

-------------------
-- Garbage Hides --
-------------------

-- Ангар - восточная часть
spawn_restrictor("l02_garbage", vector():set(-61.6,0.75,9.1), 135489, 330, "stalker", 6)
-- Изгородь
spawn_restrictor("l02_garbage", vector():set(66.5,0.6,144.9), 237602, 364, "bandit", 2)
-- Ангар - западная часть
spawn_restrictor("l02_garbage", vector():set(-102.9,0.44,11.9), 110339, 328, "bandit", 6)

--------------------
-- Agroprom Hides --
--------------------

-- Строение в районе Крота
spawn_restrictor("l03_agroprom", vector():set(16.8,0,14), 256750, 693, "stalker_bandit_military", 6)
-- Убежище Крота
spawn_restrictor("l03_agroprom", vector():set(39.9,2.5,-10.5), 278041, 693, "stalker", 6)
-- Казармы у подземелья
spawn_restrictor("l03_agroprom", vector():set(-158.2,1.1,-151.2), 79088, 693, "military", 5)
-- Казармы у НИИ
spawn_restrictor("l03_agroprom", vector():set(-153.3,1.1,-166.6), 84356, 693, "military", 5)
-- Строение у НИИ
spawn_restrictor("l03_agroprom", vector():set(-179.9,0,-187.6), 56704, 693, "military", 6)
-- НИИ Агропром
spawn_restrictor("l03_agroprom", vector():set(-145.6,0,-200.9), 92513, 693, "military", 6)

----------------------
-- Darkvalley Hides --
----------------------

-- Строения над входом в Х18
spawn_restrictor("l04_darkvalley", vector():set(146.3,0.22,-263.2), 345170, 813, "bandit_military_dolg", 15)
spawn_restrictor("l04_darkvalley", vector():set(128.1,0.14,-294), 325149, 813, "bandit_military_dolg", 7)
-- Ферма
spawn_restrictor("l04_darkvalley", vector():set(-135.1,0.97,-511), 22718, 813, "stalker", 8)
-- Бензоколонка
spawn_restrictor("l04_darkvalley", vector():set(101.5,0.7,-7.7), 297166, 813, "stalker_", 6)
-- Подвал рядом с ямой
spawn_restrictor("l04_darkvalley", vector():set(34.3,-2.93,-0.7), 216848, 813, "bandit_dolg", 4)
-- Элеватор
spawn_restrictor("l04_darkvalley", vector():set(-7,0.11,-57.4), 165893, 813, "bandit", 4)
-- Комната Борова
spawn_restrictor("l04_darkvalley", vector():set(39.2,4.54,-84), 223238, 813, "bandit", 5)
-- Холл
spawn_restrictor("l04_darkvalley", vector():set(37.1,0.375,-66.5), 220567, 813, "bandit", 5)
-- Над тюрьмой
spawn_restrictor("l04_darkvalley", vector():set(40.6,1.01,-31.5), 225406, 813, "bandit", 7)

---------------
-- Bar Hides --
---------------

-- Бункер на заставе
spawn_restrictor("l05_bar", vector():set(214.2,-1.57,-18.9), 52736, 1233, "stalker_dolg", 3)
-- Иди своей дорогой, сталкер...
spawn_restrictor("l05_bar", vector():set(178.5,0.09,49.0), 44766, 1233, "stalker_dolg", 6)
-- Магазин Петренко
spawn_restrictor("l05_bar", vector():set(210.0,0.42,61.6), 51205, 1233, "dolg", 5)
-- База Долга
spawn_restrictor("l05_bar", vector():set(224.0,-5.26,130.9), 56342, 1233, "fake_", 8)
-- Предбанник Арены
spawn_restrictor("l05_bar", vector():set(142.8,0.09,93.1), 38428, 1233, "stalker_dolg", 6)
-- Строения у Бара
spawn_restrictor("l05_bar", vector():set(112.7,0.097,68.6), 33337, 1233, "stalker_dolg", 6)
spawn_restrictor("l05_bar", vector():set(144.9,-0.012,40.6), 38939, 1233, "stalker_dolg", 6)
-- Бар
spawn_restrictor("l05_bar", vector():set(131.6,-4.83,23.8), 36240, 1233, "fake_", 10)

------------------
-- Rostok Hides --
------------------

-- Блокпост наемников
spawn_restrictor("l06_rostok", vector():set(-88.9,0,137.2), 46715, 1311, "stalker_dolg_killer_ecolog", 2)
spawn_restrictor("l06_rostok", vector():set(-82.6,1.95,156.8), 48150, 1311, "stalker_dolg_killer_ecolog", 3)
-- Ангар с пси-зоной
spawn_restrictor("l06_rostok", vector():set(-191.8,0,130.9), 28448, 1311, "stalker_dolg_killer_ecolog", 6)
-- Тоннель Фримена
spawn_restrictor("l06_rostok", vector():set(-280,-6,109.2), 1769, 1311, "ecolog", 3)
-- Засады наемников
spawn_restrictor("l06_rostok", vector():set(-242.9,0,140), 12634, 1311, "killer", 2)
spawn_restrictor("l06_rostok", vector():set(-228.2,0.13,141.4), 19047, 1311, "killer", 2)
spawn_restrictor("l06_rostok", vector():set(-250.6,1.43,14), 9490, 1311, "killer", 2)

--------------------
-- Military Hides --
--------------------

-- База Долга
spawn_restrictor("l07_military", vector():set(-191.8,-13,39.9), 133097, 1546, "dolg", 4)
-- Деревня кровососов
spawn_restrictor("l07_military", vector():set(-228.9,-21.78,196.7), 102257, 1546, "freedom", 4)
-- Стоянка нейтралов
spawn_restrictor("l07_military", vector():set(-71.4,-16.83,242.9), 240966, 1546, "stalker", 3)
-- Барьер
spawn_restrictor("l07_military", vector():set(84.7,-7,341.6), 382116, 1546, "freedom", 3)
-- Хутор Павлика
spawn_restrictor("l07_military", vector():set(-190.4,-16,371), 134714, 1546, "killer_freedom", 4)
-- Штаб Свободы
spawn_restrictor("l07_military", vector():set(-21.7,-4.12,-23.8), 285439, 1546, "fake_", 6)
-- Казармы
spawn_restrictor("l07_military", vector():set(9.1,-7.28,16.1), 316470, 1546, "freedom", 6)
spawn_restrictor("l07_military", vector():set(57.4,-8.054,16.8), 356438, 1546, "freedom", 6)
-- Кухня
spawn_restrictor("l07_military", vector():set(-77,-11.34,30.1), 235657, 1546, "freedom", 6)

------------------
-- Yantar Hides --
------------------

-- Бункер ученых
spawn_restrictor("l08_yantar", vector():set(31.5,-11.68,-272.3), 54643, 1459, "fake_", 6)

-----------------
-- Radar Hides --
-----------------

-- Секретная база Монолита
spawn_restrictor("l10_radar", vector():set(650.955,-43.887,182.48), 226701, 1868, "dolg_freedom_stalker_military_monolith", 7)
-- Вход в бункер
spawn_restrictor("l10_radar", vector():set(147.35,-9.277,-24.21), 52689, 1868, "dolg_freedom_stalker_military_monolith", 4)
-- Казармы на Радаре
spawn_restrictor("l10_radar", vector():set(33.6,-3.38,-42), 21487, 1868, "dolg_freedom_stalker_military_monolith", 4)

-------------------
-- Pripyat Hides --
-------------------

-- Подземная автостоянка
spawn_restrictor("l11_pripyat", vector():set(85.4,-7.39,20.3), 196856, 2269, "stalker_military_freedom_dolg_killer", 15)
-- Сберкасса
spawn_restrictor("l11_pripyat", vector():set(60.2,-1.74,33.6), 172091, 2269, "stalker_military_freedom_dolg_killer", 4)
-- Милиция
spawn_restrictor("l11_pripyat", vector():set(-35.7,-1.68,34.3), 63044, 2269, "stalker_military_freedom_dolg_killer", 6)
-- Сельхозуправление
spawn_restrictor("l11_pripyat", vector():set(-51.1,0,140), 48522, 2269, "stalker_military_freedom_dolg_killer", 12)
-- Подвал Дома культуры
spawn_restrictor("l11_pripyat", vector():set(-5.6,-5.169,193.2), 95262, 2269, "fake_", 6)
-- Подземные переходы
spawn_restrictor("l11_pripyat", vector():set(-15.4,-5.55,69.3), 83833, 2269, "stalker_military_freedom_dolg_killer", 3)
spawn_restrictor("l11_pripyat", vector():set(170.8,-5.55,69.3), 253270, 2269, "stalker_military_freedom_dolg_killer", 3)
-- Канализация
spawn_restrictor("l11_pripyat", vector():set(19.6,-3.634,121.1), 125990, 2269, "stalker_military_freedom_dolg_killer", 2)

end


-- The Scheme itself below should not be edited if you don't how to do it

property_base = 12221
property_blowout = property_base+1
property_hideout_lost = property_base+2
property_inhide = property_base+3
act_base = 13332
act_hideout = act_base+1
act_psy_effect = act_base+2
act_inhide = act_base+3

-- Создаем эвалуатор - проверяем, начался ли выброс
class "evaluator_blowout" (property_evaluator)
function evaluator_blowout:__init(name, storage) super (nil, name)
    self.st = storage
end
function evaluator_blowout:evaluate()
    if not self.object:best_enemy() and
       db.Flag2==1 and db.Dead2==0 and
       not (level.name()=="l11_pripyat" and self.object:character_community() == "monolith") and
       not is_in_hide(self.object) and not is_in_specific_zone(self.object) then
        self.st.blowout = true
    else
        self.st.blowout = false
    end
    return self.st.blowout == true
end

-- Создаем эвалуатор - проверяем, потерял ли непись укрытие
class "evaluator_hideout" (property_evaluator)
function evaluator_hideout:__init(name, storage) super (nil, name)
    self.st = storage
end
function evaluator_hideout:evaluate()
    if db.Dead2==1 and not is_in_hide(self.object) and not is_in_specific_zone(self.object) then
        self.st.hideout_lost = true
    else
        self.st.hideout_lost = false
    end
    return self.st.hideout_lost == true
end

-- Создаем эвалуатор - проверяем, сидит ли уже непись в укрытии
class "evaluator_inhide" (property_evaluator)
function evaluator_inhide:__init(name, storage) super (nil, name)
    self.st = storage
end
function evaluator_inhide:evaluate()
    if db.Flag2==1 and is_in_hide(self.object) then
        self.st.inhide = true
    else
        self.st.inhide = false
    end
    return self.st.inhide == true
end


-- Создаем оператор - направляем НПС в укрытие
class "action_hideout" (action_base)
function action_hideout:__init(name, storage) super (nil, name)
    self.st = storage
end
function action_hideout:initialize()
    local npc = self.object
    npc:set_desired_position()
    npc:set_desired_direction()
    npc:clear_animations()
    npc:set_detail_path_type(move.line)
    npc:set_path_type(game_object.level_path)
    npc:remove_all_restrictions()
    if npc_run[npc:id()] ~= 1 then
        self.hide = get_nearest_hide(npc)
        if self.hide then
            npc:add_restrictions(self.hide.obj:name(), "")
            state_mgr.set_state(npc, "assault")
        else
            npc:remove_all_restrictions()
            state_mgr.set_state(npc, "hide")
        end
        npc_run[npc:id()] = 1
    end
end
function action_hideout:execute()
    local npc = self.object
    npc:disable_talk()
end
function action_hideout:finalize()
    action_base.finalize(self)
    local npc = self.object
    npc_run[npc:id()] = 0
end

-- Создаем оператор - колбасим НПС, если он не нашел укрытие
class "action_raskolbas" (action_base)
function action_raskolbas:__init(name, storage) super (nil, name)
    self.st = storage
end
function action_raskolbas:initialize() --Some kind of brain frying thing
    local npc = self.object
    npc:set_desired_position()
    npc:set_desired_direction()
    npc:clear_animations()
    npc:remove_all_restrictions()
    local ran = math.random(1,2)
    if npc_psy[npc:id()] ~= 1 then
        if npc:character_community() == "monolith" then
            state_mgr.set_state(npc, "trans_1")
        else
            if ran == 1 then
                state_mgr.set_state(npc, "psycho_pain")
            else
                state_mgr.set_state(npc, "psy_pain")
            end
        end
        npc_psy[npc:id()] = 1
    end
end
function action_raskolbas:execute()
    local npc=self.object
    npc:disable_talk()
end
function action_raskolbas:finalize()
    action_base.finalize(self)
    local npc = self.object
    npc_psy[npc:id()] = 0
end

-- Создаем оператор - усаживаем НПС, если он нашел укрытие
class "action_inhide" (action_base)
function action_inhide:__init(name, storage) super (nil, name)
    self.st = storage
end
function action_inhide:initialize()
    local npc = self.object
    npc:set_desired_position()
    npc:set_desired_direction()
    npc:clear_animations()
    npc:set_detail_path_type(move.line)
    npc:set_path_type(game_object.level_path)
    npc:remove_all_restrictions()
    self.hide = get_nearest_hide(npc)
    if self.hide then
        self.vertex = self.hide.obj:level_vertex_id()
        self.offset = vector():set(math.random()*3-1, 0, math.random()*3-1)
        self.offset:normalize()
        self.radius = math.random(1, self.hide.rad-1)
        self.lvid = npc:vertex_in_direction(self.vertex, self.offset, self.radius)
        if npc:level_vertex_id()~=self.lvid then
            state_mgr.set_state(npc,"raid")
            utils.send_to_nearest_accessible_vertex(npc, self.lvid)
        else
            state_mgr.set_state(npc,"hide")
        end
    else
        state_mgr.set_state(npc,"hide")
    end
end
function action_inhide:execute()
    local npc = self.object
    npc:disable_talk()
    if npc:level_vertex_id()~=self.lvid then
        if npc_go[npc:id()]~=1 then
            state_mgr.set_state(npc,"raid")
            utils.send_to_nearest_accessible_vertex(npc, self.lvid)
            npc_go[npc:id()] = 1
            npc_sit[npc:id()] = 0
        end
    else
        if npc_sit[npc:id()]~=1 then
            if npc:character_community()=="monolith" then
                state_mgr.set_state(npc,"trans_0")
            else
                state_mgr.set_state(npc,"hide")
            end
            npc_sit[npc:id()] = 1
            npc_go[npc:id()] = 0
        end
    end
end
function action_inhide:finalize()
    action_base.finalize(self)
    local npc = self.object
    npc_sit[npc:id()] = 0
    npc_go[npc:id()] = 0
    npc:remove_all_restrictions()
end


-- Добавляем в планировщик нашу схему
function add_to_binder(object, char_ini, scheme, section, st)
    local manager = object:motivation_action_manager()
    local property_wounded = xr_evaluators_id.sidor_wounded_base

    manager:remove_evaluator(property_blowout)
    manager:add_evaluator(property_blowout, evaluator_blowout("evaluator_blowout", st))

    manager:remove_evaluator(property_hideout_lost)
    manager:add_evaluator(property_hideout_lost, evaluator_hideout("evaluator_hideout", st))

    manager:remove_evaluator(property_inhide)
    manager:add_evaluator(property_inhide, evaluator_inhide("evaluator_inhide", st))

    local action = action_hideout("action_hideout", st)
    action:add_precondition(world_property(stalker_ids.property_alive, true))
    action:add_precondition(world_property(property_wounded, false))
    action:add_precondition(world_property(stalker_ids.property_enemy, false))
    action:add_precondition(world_property(stalker_ids.property_danger, false))
    action:add_precondition(world_property(property_hideout_lost, false))
    action:add_precondition(world_property(property_inhide, false))
    action:add_precondition(world_property(property_blowout, true))
    action:add_effect(world_property(property_blowout, false))
    manager:add_action(act_hideout, action)

    local action = action_raskolbas("action_raskolbas", st)
    action:add_precondition(world_property(stalker_ids.property_alive, true))
    action:add_precondition(world_property(property_wounded, false))
    action:add_precondition(world_property(property_blowout, false))
    action:add_precondition(world_property(property_inhide, false))
    action:add_precondition(world_property(property_hideout_lost, true))
    action:add_effect(world_property(property_hideout_lost, false))
    manager:add_action(act_psy_effect, action)

    local action = action_inhide("action_inhide", st)
    action:add_precondition(world_property(stalker_ids.property_alive, true))
    action:add_precondition(world_property(property_wounded, false))
    action:add_precondition(world_property(stalker_ids.property_enemy, false))
    action:add_precondition(world_property(stalker_ids.property_danger, false))
    action:add_precondition(world_property(property_blowout, false))
    action:add_precondition(world_property(property_hideout_lost, false))
    action:add_precondition(world_property(property_inhide, true))
    action:add_effect(world_property(property_inhide, false))
    manager:add_action(act_inhide, action)

    action = manager:action(stalker_ids.action_alife_planner)
    action:add_precondition(world_property(property_blowout, false))
    action:add_precondition(world_property(property_hideout_lost, false))
    action:add_precondition(world_property(property_inhide, false))

    action = manager:action(stalker_ids.action_combat_planner)
    action:add_precondition(world_property(property_hideout_lost, false))

    action = manager:action(stalker_ids.action_danger_planner)
    action:add_precondition(world_property(property_hideout_lost, false))
end


-- Функции включения/выключения схемы
function enable_scheme(npc, ini)
    local st = xr_logic.assign_storage_and_bind(npc, ini, "ogsm_hideout")
    st.enabled=true
end
function disable_scheme(npc, scheme)
    local st = db.storage[npc:id()][scheme]
    if st then
        st.enabled = false
    end
end


---------------- Схема поведения НПС при выбросе для OGSM 2.x -----------------

------------------------- Copyright 2007-2008 DEXXX ---------------------------

--[[

If you're going to use the whole of this script or its parts in your own creative
developments for the S.T.A.L.K.E.R. game, please don't become such a goddamn
motherfucker like the notorious author of the ABC Mod - Carbrobro. Leave the
copyrights, note the real author(s) and don't claim others' ideas and their
realization to be your own ones. It's just simple Modmakers' Ethics. Thank you!

Если вы собираетесь использовать данный скрипт целиком или частично в своих
разработках по игре S.T.A.L.K.E.R., пожалуйста не опускайтесь до уровня печально
известного автора ABC мода - Carbrobro. Не удаляйте копирайты, указывайте настоящего
автора(ов) и не выдавайте чужие идеи и их реализацию за свои. Ведь это элементарная
этика модостроителей! Спасибо за понимание.

]]--