if xr_sound.sound_table[self.object:id()] ~= nil then
xr_sound.stop_sounds_by_id( self.object:id() )
end

function create_level_changer(
p_story_id, -- STORY_ID нового level_changer (понадобится нам позже)
p_position, -- вектор, координаты точки, в которой будет располагаться центр нового level_changer
p_lvertex_id, -- level_vertext_id  - идентифицируют уровень, на котором будет создан level_changer
p_gvertex_id, -- game_vertext_id    

p_dest_lv, -- level_vertex_id   - идентифицируют уровень, на который level_changer будет перебрасывать игрока
p_dest_gv, -- game_vertex_id
p_dest_pos, -- координаты точки, в которой на новом уровне окажется игрок
p_dest_dir, -- направрение взгляда игрока
p_dest_level, -- название уровня, например "L11_Pripyat"
p_silent -- следует задать 1, чтобы подавить вопрос о смене уровня (автоматический переход)
)
local obj = alife():create("level_changer", p_position, p_lvertex_id, p_gvertex_id)

level.map_add_object_spot(obj.id, "level_changer", "")

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_u32()
local level_vertex_id     = packet:r_u32()
local object_flags     = packet:r_u32()
local custom_data     = packet:r_stringZ()
local story_id         = packet:r_u32()
local spawn_story_id    = packet:r_u32()

-- свойства cse_shape
local shape_count     = packet:r_u8()
for i=1,shape_count do
     local shape_type     = packet:r_u8()
     if shape_type == 0 then
     -- sphere
     local center     = packet:r_vec3()
     local radius     = packet:r_float()
     else
     -- box
     local axis_x_x = packet:r_float()
     local axis_x_y = packet:r_float()
     local axis_x_z = packet:r_float()
     local axis_y_x = packet:r_float()
     local axis_y_y = packet:r_float()
     local axis_y_z = packet:r_float()
     local axis_z_x = packet:r_float()
     local axis_z_y = packet:r_float()
     local axis_z_z = packet:r_float()
     local offset_x = packet:r_float()
     local offset_y = packet:r_float()
     local offset_z = packet:r_float()
     end
end

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

-- свойства cse_level_changer
local dest_game_vertex_id    = packet:r_u16()  
local dest_level_vertex_id     = packet:r_u32()  
local dest_position     = packet:r_vec3()
local dest_direction     = packet:r_vec3()
local dest_level_name     = packet:r_stringZ()
local dest_graph_point     = packet:r_stringZ()
local silent_mode     = packet:r_u8()

packet:w_begin(game_vertex_id)    -- game_vertex_id
packet:w_float(cse_alife_object__unk1_f32)
packet:w_u32(cse_alife_object__unk2_u32)
packet:w_u32(level_vertex_id)    -- level_vertex_id
packet:w_u32( bit_not(193) )    -- object_flags = -193 = 0xFFFFFF3E
packet:w_stringZ(custom_data)
packet:w_u32(p_story_id)    -- story_id
packet:w_u32(spawn_story_id)

packet:w_u8(1)    -- количество фигур
--    packet:w_u8(0)    -- тип фигуры: сфера
--    packet:w_vec3(vector():set(0, 0, 0))  -- sphere_center
--    packet:w_float(3.0)
packet:w_u8(1)    -- тип фигуры: box
packet:w_float(2)    -- axis_x_x
packet:w_float(0)    -- axis_x_y
packet:w_float(0)    -- axis_x_z
packet:w_float(0)    -- axis_y_x
packet:w_float(4)    -- axis_y_y
packet:w_float(0)    -- axis_y_z
packet:w_float(0)    -- axis_z_x
packet:w_float(0)    -- axis_z_y
packet:w_float(4)    -- axis_z_z
packet:w_float(0)    -- offset_x
packet:w_float(0)    -- offset_y
packet:w_float(0)          -- offset_z

packet:w_u8(3)    -- restrictor_type

packet:w_u16(p_dest_gv)    -- destination game_vertex_id
packet:w_u32(p_dest_lv)    -- destination level_vertex_id
packet:w_vec3(p_dest_pos)    -- destination position
packet:w_vec3(p_dest_dir)    -- destination direction (направление взгляда)
packet:w_stringZ(p_dest_level)    -- destination level name
packet:w_stringZ("start_actor_99") -- some string, always const
packet:w_u8(p_silent)    -- 1 for silent level changing

packet:r_seek(0)
obj:STATE_Read(packet, packet:w_tell())

-- news_manager.send_tip(db.actor, "LC creation finished", nil, nil, 30000)
end

     Для shape типа "box" загрузка координат методом packet:r_matrix() окончилась неудачей. Я подозреваю, что не был прочитан вектор "offset", но точной уверенности нет, поэтому пока остановился на покомпонентной выборке и сохранении координат.

Часть 2. Создание точек перехода

Теперь следует написать функции создания нужных точек перехода и подключить их к игре. Сами функции просты:

function exit_monolit()
if (not has_alife_info("freeplay_activated1")) then
     create_level_changer(11410, vector():set(-13.26, 47.71, 46.57), 200, 2417,
     162109,
                         2384,
     vector():set( 375.615, 0.224, 27.737 ),
     vector():set(     0.0, 0.0  ,  0.0 ),
     "L12_Stancia",
     1)

     db.actor:give_info_portion("freeplay_activated1")
end

-- создается переход из ЧАЭС в Припять
create_chaes2pripyat_exit()

-- актер перебрасывается в level_changer, возвращающий его на ЧАЭС, ко входу в бункер
db.actor:set_actor_position( vector():set(-13.26, 47.71, 46.57) )
end

function refuze_o_sozn()
if (not has_alife_info("freeplay_activated2")) then
     create_level_changer(21410, vector():set(946.872, 6.0, 167.66), 240852, 2637,
     472710,
     2280,
     vector():set( 1062.15, -0.0982, -3.512 ),
     vector():set(    0.0 ,  0.0   , -1.0 ),
     "L12_Stancia",
     1)

     db.actor:give_info_portion("freeplay_activated2")
end

-- создается переход из ЧАЭС в Припять
create_chaes2pripyat_exit()

-- актер перебрасывается в level_changer, возвращающий его к правым воротам ЧАЭС
db.actor:set_actor_position( vector():set(946.872, 6.0, 167.66) )
end

function create_chaes2pripyat_exit()
-- создается переход из ЧАЭС в Припять
if (not has_alife_info( "exit_chaes2pripyat_created" )) then
     create_level_changer(31410, vector():set( 917.35, 0.419, -316.35 ), 403866, 2401,
     73868,
     2117,
     vector():set( 31.3, 3.0, 240.0 ),
     vector():set(  0.0, 0.0,  -1.0 ),
     "L11_Pripyat",
     0)

     db.actor:give_info_portion("exit_chaes2pripyat_created")
end
end

[982]
; cse_abstract properties
section_name = actor
name = zaton_actor
position = 256.240051269531,19.8124237060547,550.824279785156
direction = -0.0120869996026158,2.81339907646179,-0.0158249996602535
s_flags = 0x29

; cse_alife_object properties
game_vertex_id = 292
distance = 38.5
level_vertex_id = 1405060
object_flags = 0xffffffbf

; cse_visual properties
visual_name = actors\stalker_neutral\stalker_neutral_1

; cse_alife_creature_abstract properties
g_team = 0
g_squad = 0
g_group = 0
health = 1
dynamic_out_restrictions =     
dynamic_in_restrictions =     

upd:health = 1
upd:timestamp = 0xc2ba3333
upd:creature_flags = 0x99
upd:position = 256.240051269531,19.8124237060547,550.824279785156
upd:o_model = 0
upd:o_torso = 2.81339907646179,-0.0120869996026158,0
upd:g_team = 0
upd:g_squad = 0
upd:g_group = 0

; cse_alife_trader_abstract properties
money = 15000
trader_flags = 0
character_profile = actor
cse_alife_trader_abstract__unk1_u8 = 1

; cse_ph_skeleton properties

; cse_alife_creature_actor properties

upd:actor_state = 0
upd:actor_accel_header = 0
upd:actor_accel_data = 0
upd:actor_velocity_header = 0
upd:actor_velocity_data = 0
upd:actor_radiation = 0
upd:actor_weapon = 215
upd:num_items = 0

    <dialog id="pri_a17_military_colonel_kovalski_a23_about_gauss_labx8">
                     <has_info>zat_a23_actor_has_gauss_rifle_documentation</has_info>
                     <dont_has_info>pri_a23_dialog_about_gauss_labx8_end</dont_has_info>

<has_info>pri_a17_military_base_commander_task_dialog_end</has_info>