S.T.A.L.K.E.R. Inside Wiki - Вклад участника [ru]

SoC. Отключаем смертельные зоны на ЧАЭС-2

2012-05-13T17:23:11Z

188.134.33.162: Новая страница: «Наконец нашелся способ отключить смертельные зоны на ЧАЭС, и всласть побегать по земле на ...»

Наконец нашелся способ отключить смертельные зоны на ЧАЭС, и всласть побегать по земле на ЧАЭС. В файле '''sr_aes_deadzone.script''' уже есть функция деактивации. Осталось ее вызвать. Есть 2 способа. 1-й известный через диалог. Второй через обновление рестрикторов.

== Без вызова через диалог ==
Открываем bind_stalker.script. В функции '''function actor_binder:update(delta)''' под строкой '''bind_restrictor.actor_update(delta)''', пропустив одну строку пишем: '''sr_aes_deadzone.action_postprocess:deactivate()'''. Загружаем сохранение.

== Через диалог ==
<code><action>sr_aes_deadzone.action_postprocess:deactivate</action></code>

== Автор функции отключения зоны ==
Ее оставили разработчики. Это '''наверное, но не факт''' использовалось в ранних билдах игры.

== Автор статьи ==
Vllzl

SoC. Создание проводников

2012-05-13T16:57:28Z

188.134.33.162: Новая страница: «Открываем файл dialog_локация.script и в конце пишем: <lua> function first_teleport(npc, actor) -- останавливаем...»

Открываем файл dialog_локация.script и в конце пишем:
<lua>
function first_teleport(npc, actor)
-- останавливаем диалог
npc:stop_talk()
actor:stop_talk()

-- чтобы телепортация не выглядела резкой
level.add_pp_effector ("teleport.ppe", 2006, false)

-- телепортация
db.actor:set_actor_position( vector():set(X,Y,Z) ) -- заменить X,Y,Z на координаты.
end
end
</lua>
Теперь активируем через диалог:
<code><action>dialog_локация.first_teleport</action></code>

== Авторы ==
Авторы скрипта: GSC Game World
Автор статьи: Vllzl

SoC. Создаем проводников

2012-05-12T15:11:10Z

188.134.33.162: Новая страница: «Создаем файл '''teleport.script'''. Туда вы будете писать все свои функции телепортации. Туда пишем: ...»

Создаем файл '''teleport.script'''. Туда вы будете писать все свои функции телепортации. Туда пишем:
<lua>
function first_teleport(npc, actor)
-- останавливаем разговор
npc:stop_talk()
actor:stop_talk()
-- перемещение
level.add_pp_effector ("teleport.ppe", 2006, false)
db.actor:set_actor_position( vector():set(x,y,z) ) -- вместо x,y,z координаты
end
end
</lua>
Если не хотите спецэффекты, уберите '''level.add_pp_effector ("teleport.ppe", 2006, false)'''. Но спецэффекты нужны, иначе вы телепортитесь резко. ВСТАВИТЬ В ДИАЛОГ

Создание переходов между уровнями

2012-05-12T13:26:42Z

188.134.33.162:

Создаем файл '''level_changer.script'''. В него пихаем.
<lua>
function spawn_level_changer(sid, from_pos, from_level, dest_pos, dest_level, hint, mode, dest_dir)

local vertexes = {
l01_escape = {lvid=594266, gvid=0},
l04_darkvalley = {lvid=121712, gvid=815},
l11_pripyat = {lvid=142116, gvid=2270},
l12_stancia = {lvid=405348, gvid=2400},
l12_stancia_2 = {lvid=9914, gvid=2517}
-- l12_stancia_2 = {lvid=227423, gvid=2635}
}

local obj = alife():create("level_changer", from_pos, vertexes[from_level]["lvid"], vertexes[from_level]["gvid"])

if obj then

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

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_level_changer
local dest_game_vertex_id = packet:r_u16()
local dest_level_vertex_id = packet:r_s32()
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()

if packet:r_elapsed() ~= 0 then get_console():execute("left="..packet:r_elapsed()) end

-- свойства 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)
packet:w_stringZ(custom_data)
packet:w_s32(sid)
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(vector():set(0,0,0))
packet:w_float(3)
else
packet:w_vec3(vector():set(3,0,0))
packet:w_vec3(vector():set(0,3,0))
packet:w_vec3(vector():set(0,0,3))
packet:w_vec3(vector():set(0,0,0))
end
end

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

-- свойства cse_alife_level_changer
packet:w_u16(vertexes[dest_level]["gvid"])
packet:w_s32(vertexes[dest_level]["lvid"])
packet:w_vec3(dest_pos)
if dest_dir then
packet:w_vec3(dest_dir)
else
packet:w_vec3(dest_direction)
end
packet:w_stringZ(dest_level)
packet:w_stringZ(dest_graph_point)
packet:w_u8(mode)

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

end
</lua>
Этому скрипту в обед 100 лет. В этом же файле через две строки пишем:
<lua>
function start_lc()
spawn_level_changer(6001, vector():set(368.9,15.17,-42.65), "l01_escape", vector():set(-44.77, 0.43, -541.35), "l04_darkvalley", "to_darkvalley", 0)

-- ЧАЭС - Припять
spawn_level_changer(6002, vector():set(918.1,-0.1,-401.96), "l12_stancia", vector():set(31.28,1.135,420.61), "l11_pripyat", "to_pripyat", 0, vector():set(0,-3.1,0))

-- ЧАЭС2 - ЧАЭС
spawn_level_changer(6003, vector():set(-42.15,-0.02,56.03), "l12_stancia_2", vector():set(126,-0.1,-76.3), "l12_stancia", "to_aes", 0, vector():set(0,-1.5,0))

-- ЧАЭС - ЧАЭС2
spawn_level_changer(6004, vector():set(117.6,-0.1,-76.3), "l12_stancia", vector():set(-42.15,-0.02,64), "l12_stancia_2", "to_aes", 0)
end
</lua>
Создает до кучи переходов (самых заветных). Чтобы в Интернете небыло больше вопросов "А как сделать переход с ЧАЭС в Припять, с Кордона в ТД?" и прочего.

== Подключение ==
Через диалог:
<code><action>level_changer.start_lc</action></code>
После отключения Радара (Мозговыжигателя):
<function_on_stop>level_changer.start_lc</function_on_stop>
<blockquote>Тогда после сна при отключении "мозговыжигателя" на Радаре создадутся переходы, которые мы с Вами написали</blockquote>

== Автор ==
На YouTube я vllzl

Создание переходов между уровнями

2012-05-12T13:25:21Z

188.134.33.162: Новая страница: «Создаем файл '''level_changer.script'''. В него пихаем. <lua> function spawn_level_changer(sid, from_pos, from_level, dest_pos, dest_level, hin...»

Создаем файл '''level_changer.script'''. В него пихаем.
<lua>
function spawn_level_changer(sid, from_pos, from_level, dest_pos, dest_level, hint, mode, dest_dir)

local vertexes = {
l01_escape = {lvid=594266, gvid=0},
l04_darkvalley = {lvid=121712, gvid=815},
l11_pripyat = {lvid=142116, gvid=2270},
l12_stancia = {lvid=405348, gvid=2400},
l12_stancia_2 = {lvid=9914, gvid=2517}
-- l12_stancia_2 = {lvid=227423, gvid=2635}
}

local obj = alife():create("level_changer", from_pos, vertexes[from_level]["lvid"], vertexes[from_level]["gvid"])

if obj then

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

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_level_changer
local dest_game_vertex_id = packet:r_u16()
local dest_level_vertex_id = packet:r_s32()
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()

if packet:r_elapsed() ~= 0 then get_console():execute("left="..packet:r_elapsed()) end

-- свойства 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)
packet:w_stringZ(custom_data)
packet:w_s32(sid)
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(vector():set(0,0,0))
packet:w_float(3)
else
packet:w_vec3(vector():set(3,0,0))
packet:w_vec3(vector():set(0,3,0))
packet:w_vec3(vector():set(0,0,3))
packet:w_vec3(vector():set(0,0,0))
end
end

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

-- свойства cse_alife_level_changer
packet:w_u16(vertexes[dest_level]["gvid"])
packet:w_s32(vertexes[dest_level]["lvid"])
packet:w_vec3(dest_pos)
if dest_dir then
packet:w_vec3(dest_dir)
else
packet:w_vec3(dest_direction)
end
packet:w_stringZ(dest_level)
packet:w_stringZ(dest_graph_point)
packet:w_u8(mode)

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

end
</lua>
Этому скрипту в обед 100 лет. В этом же файле через две строки пишем:
<lua>
function start_lc()
spawn_level_changer(6001, vector():set(368.9,15.17,-42.65), "l01_escape", vector():set(-44.77, 0.43, -541.35), "l04_darkvalley", "to_darkvalley", 0)

-- ЧАЭС - Припять
spawn_level_changer(6002, vector():set(918.1,-0.1,-401.96), "l12_stancia", vector():set(31.28,1.135,420.61), "l11_pripyat", "to_pripyat", 0, vector():set(0,-3.1,0))

-- ЧАЭС2 - ЧАЭС
-- spawn_level_changer(6003, vector():set(554.52,150,201), "l12_stancia_2", vector():set(117.6,-0.1,-76.3), "l12_stancia", "to_aes", 1, vector():set(0,-1.5,0))
spawn_level_changer(6003, vector():set(-42.15,-0.02,56.03), "l12_stancia_2", vector():set(126,-0.1,-76.3), "l12_stancia", "to_aes", 0, vector():set(0,-1.5,0))

-- ЧАЭС - ЧАЭС2
spawn_level_changer(6004, vector():set(117.6,-0.1,-76.3), "l12_stancia", vector():set(-42.15,-0.02,64), "l12_stancia_2", "to_aes", 0)
end
</lua>
Создает до кучи переходов (самых заветных). Чтобы в Интернете небыло больше вопросов "А как сделать переход с ЧАЭС в Припять, с Кордона в ТД?" и прочего.

== Подключение ==
Через диалог:
<code><action>level_changer.start_lc</action></code>
После отключения Радара (Мозговыжигателя):
<function_on_stop>level_changer.start_lc</function_on_stop>
<blockquote>Тогда после сна при отключении "мозговыжигателя" на Радаре создадутся переходы, которые мы с Вами написали</blockquote>

== Автор ==
На YouTube я vllzl

SoC. Спавн точек перехода между уровнями

2012-05-12T11:22:24Z

188.134.33.162:

В этой статье я попытаюсь передать практический опыт скриптового создания точек перехода между уровнями. Файл ''all.spawn'' меняться не будет, поэтому такой механизм более удобен для совмещения модов и не требует начала новой игры.

В качестве примера попробуем реализовать режим ''freeplay'' - продолжение игры после уничтожения О-Сознания. Для этого нужно создать как минимум две точки — возврат на ЧАЭС-1 со внутреннего дворика (после уничтожения О-Сознания) и переход из ЧАЭС-1 в Припять. К слову сказать, если вернуться на ЧАЭС-1, то там будет продолжать действовать таймер "выброса", который в конце-концов включит "deadzone". Отключить счетчик мне пока не удалось, но зато можно легко отключить сам "выброс" и всласть побегать по уровню.

== Часть 1. Генерация работающего LEVEL_CHANGER ==

Стандартной функции alife():create(…) недостаточно для создания полноценного level_changer.

Ниже я привожу код функции, которая создает и инициализирует level_changer (пишется в созданный нами файл '''_freeplay_sa.script'''): НИЧЕГО НЕ ПОДСТАВЛЯЙТЕ!
<lua>
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
</lua>

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

Теперь следует написать функции создания нужных точек перехода и подключить их к игре. Сами функции просты (тоже в файл '''_freeplay_sa.script''')
<lua>
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
</lua>

Функция '''exit_monolit''' создает «тихий» переход на уровень ЧАЭС-1 и обычный - в начале уровня ЧАЭС-1 для возврата в Припять, после чего перебрасывает актера прямо внутрь созданного перехода. Функция '''refuze_o_sozn''' делает тоже самое, только игрок появляется перед воротами в правом верхем углу карты (мне кажется, что так более логично). Все телепорты защищаются уникальными info_portions, дабы избежать их повторного создания, ведь игрок может захотеть «закончить» игру несколько раз.

Теперь подключение.
Во-первых надо добавить новые info-portions. Я решил не изменять оригинальные файлы игры, а сделал для них (ну и для других тоже) отдельный файл
<code>
config\gameplay\_info_sa.xml
</code>
следующего вида:
<code>
<?xml version="1.0" encoding="windows-1251" ?>

<game_information_portions>

<info_portion id="freeplay_activated1"></info_portion>
<info_portion id="freeplay_activated2"></info_portion>
<info_portion id="exit_chaes2pripyat_created"></info_portion>

</game_information_portions>
</code>
Теперь в этот файл можно будет добавлять новые info_portion, которые вы будете использовать в своих сюжетах.
Подключается этот файл в system.ltx в секции «info_portions»:
<code>
[info_portions]
;список xml файлов, содержащих info_portions
files = _info_sa, info_portions, ....................
</code>

''Кстати, именно так я рекомендую добавлять новые диалоги и новых персонажей. Это упростит процессы совмещения модов и аддонов.''

Следующий шаг - подключение наших скриптов к игре. Для этого откройте файл
<code>
config\ui\ui_movies.xml
</code>
найдите элементы «''mov_desire_''» (их пять, по количеству ложных концовок игры - все варианты общения с Монолитом). Внутри каждого элемента есть дочерние элементы «''function_on_stop''», которые задают функцию, запускающуюся сразу после ролика. Стандартное содержимое:
<code>
<function_on_stop>xr_effects.game_credits</function_on_stop>
</code>
Функция '''xr_effects.game_credits''' запускает финальные титры. Именно ее и нужно заменить на вызов нашей функции _freeplay_sa.exit_monolit. Вот что должно получиться:
<code>
<function_on_stop>_freeplay_sa.exit_monolit</function_on_stop>

</code>
<blockquote>
''Старый элемент я советую не удалять, а закомментировать.''
</blockquote>

Чуть ниже «''mov_desire_5''» находится тэг ролика для концовки «Присоединение к О-Сознанию». Его мы трогать не будем - Меченый станет медузой. А вот после него - тэг для ролика «Отказ от О-Сознания»: «''mov_refuse_osoznanie''». Функцию завершения в нем заменим следующим образом:
<code>
<function_on_stop>_freeplay_sa.refuze_o_sozn</function_on_stop>

</code>

Можно запускать и, если есть сохранения перед монолитом и/или о-сознанием, тестировать. Первые переходы срабатывают «тихо» - запрос на смену уровня не выдается (в параметре p_silent задана 1). До перехода в Припять можно успеть добежать, пока не сработал выброс... Но это как-то неправильно, выброс надо остановить (он же произошел, пока мы были внутри станции). «По-честному» (скриптом, без модификации ''all.spawn'') таймер выброса отключить не получится, но зато выброс можно подавить небольшим «хаком». Найдите файл xr_logic.script, а в нем - функцию '''switch_to_section'''. Ее нужно модифицировать следующим образом:
<code>
-- Выполняет переключение на указанную секцию, если задана.
-- Если section == nil, остается работать старая секция.
function switch_to_section(npc, st, section)
if section == nil or section == "" then
return false
end

-- 15.03.2008 by SA:
-- отключает "смертельные зоны" на ЧАЭС после запуска режима FREEPLAY
-- таймер не отключается, но сам "выброс" не происходит
if (section == "sr_aes_deadzone") then
if (has_alife_info("freeplay_activated1") or has_alife_info("freeplay_activated2")) then
return false
end
end

... далее без изменений ...
end
</code>

Данный способ оставляет висящий на нулях таймер и все эффекты начала выброса, но сам «''выброс''» отключается.

И последнее: переход ЧАЭС1-Припять необходимо отметить на карте. Для этого существует вполне «легальный» механизм. Находим файл '''level_tasks.script''' и в конце функции '''add_lchanger_location''' дописываем следующее:
<code>
-- aes
obj = sim:story_object(31410)
if obj then
level.map_add_object_spot(obj.id, "level_changer", "to_pripyat")
end
</code>

Здесь 31410 - story_id нашего level_changer, который создается нашей функцией '''create_chaes2pripyat_exit'''.

На этом пока все (мелкие огрехи типа направления взгляда игрока после смены уровня исправлю позже).
Прошу тестировать и дополнять.

С уважением, sarthur.

== Дополняет авторы: vllzl ==
<code>
«По-честному» (скриптом, без модификации ''all.spawn'') таймер выброса отключить не получится.
</code>
Можно удалить таймер скриптом (удаляет рестриктор из игры)
<lua>
function delete_aes_timer()
local obj = alife():object("aes_space_restrictor_timer")
if obj then
alife():release(obj, true)
end
local se_obj = alife():object("aes_space_restrictor_timer_go")
if se_obj then
alife():release(se_obj, true)
end
end
</lua>
Удалит таймер и выброс из игры. Vllzl
[[Категория:Скрипты]]

Спавн телепортов в ТЧ

2012-05-10T17:15:02Z

188.134.33.162: Новая страница: «Создаем файл bind_mteleport.script. В него просто копируем, ничего не меняем: <code> -- *********************************...»

Создаем файл bind_mteleport.script. В него просто копируем, ничего не меняем:
<code>
-- ************************************************
-- ** Imp **
-- ** Биндер самодельных телепортов **
-- ** Поддерживает работу самопальных телепортов **
-- ************************************************

local teleport_binders ={} -- Список телепортов

function abs_comp(a,b)
-- Служебная функция вычисления разности
if( a < b) then
return (b - a)
else
return (a - b)
end
end

function teleportate(x,y,z)
-- Функция телепортации
local a = vector()
-- Задаем координаты
a.x = x
a.y = y
a.z = z

-- Сама телепортация
db.actor:set_actor_position(a)

-- Звуковое сопровождение
local snd_obj = xr_sound.get_safe_sound_object([[affects\tinnitus3a]])
snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0)

end

function actor_update(delta)
local i,v,acter_poz,s

-- Получим позицию актера (что-бы каждый раз не запрашивать)
acter_poz = db.actor:position()

-- Проверяем наши телепорты
for i, v in pairs(teleport_binders) do
s = v.parametrs

local obj = level.object_by_id( i )
if obj ~= nil then
-- Наш телепорт в онлайне проверяем дальше
if s.teleporte ~= nil and s.teleporte ~= false then
-- Телепорт запущен
if ( time_global() <= s.time ) then
-- Если время отведенное на показ спецэфектов
-- прошло, производим телепортацию
teleportate(s.poz_x,s.poz_y,s.poz_z)
if s.rotate ~= nil then
db.actor:set_actor_direction(s.rotate)
end
s.teleporte = false
end
return
end

-- Пороверим не забрел-ли актер в наш телепорт
if (abs_comp(s.x, acter_poz.x)< v.parametrs.radius and
abs_comp(s.z, acter_poz.z)< v.parametrs.radius and
abs_comp(s.y, acter_poz.y)< v.parametrs.z_radius) then
-- Актер в зоне действия телепорта, запустим телепорт
s["teleporte"] = true
s["time"] = time_global() + 500

-- Запускаем спецэфекты телепортации
level.add_pp_effector ("teleport.ppe", 2006, false)
end
end
end
end

function bind( obj )
obj:bind_object( restrictor_teleport( obj ) )
end

----------------------------------------------------------------------------------------------------
class "restrictor_teleport" ( object_binder )

function restrictor_teleport:__init(obj, char_ini) super(obj)
end

function restrictor_teleport:net_spawn(data)
local char_ini = system_ini()

-- Если это телепорт то занесем его в специальный список телепортов
if self.teleport == true then
teleport_binders[self.object:id()] = self

-- Заполним таблицу параметров
self["parametrs"] = {}
if char_ini:line_exist(self.section, "radius") then
self.parametrs["radius"] = tonumber(char_ini:r_string(self.section, "radius"))
else
self.parametrs["radius"] = 2 -- Дефолтный радиус по xy
end
if char_ini:line_exist(self.section, "z_radius") then
self.parametrs["z_radius"] = tonumber(char_ini:r_string(self.section, "z_radius"))
else
self.parametrs["z_radius"] = self.parametrs["radius"] -- если радиус высоты не задан то задаем равным радиусу xy
end

-- Запомним позицию что-бы каждый раз не считать
local s_obj = alife():object(self.object:id())
self.parametrs["x"] = tonumber(s_obj.position.x);
self.parametrs["y"] = tonumber(s_obj.position.y);
self.parametrs["z"] = tonumber(s_obj.position.z);

-- Запомним координаты куда телепортимся
self.parametrs["poz_x"] = tonumber(char_ini:r_string(self.section, "poz_x"))
self.parametrs["poz_y"] = tonumber(char_ini:r_string(self.section, "poz_y"))
self.parametrs["poz_z"] = tonumber(char_ini:r_string(self.section, "poz_z"))

if char_ini:line_exist(self.section, "rotate") then
self.parametrs["rotate"] = tonumber(char_ini:r_string(self.section, "rotate"))
end
end
return true
end

function restrictor_teleport:net_destroy()
-- Удаляем наш телепорт
teleport_binders[self.object:id()] = nil
self.parametrs = nil
object_binder.net_destroy(self)
end

function restrictor_teleport:reload(section)
local char_ini = system_ini()

self.section = section
-- Если это телепорт то
if char_ini ~= nil and char_ini:line_exist(self.section, "teleport") then
self["teleport"] = true
end
end
</code>
В файле bind_stalker прописываем спавн и обновление телепортатора. Находим:
function actor_binder:update(delta)

В ней найдем вызов обновления рестрикторов bind_restrictor.actor_update(delta) под которым вставим строку с вызовом нашей функции обновления: bind_mteleport.actor_update(delta)

Мы запрограммировали телепорт. Осталось его заспавнить. В config\misc\zone_teleport.ltx в конце пишем:
<code>
[m_teleport]:zone_teleport
teleport = standart
script_binding = bind_mteleport.bind
;Параметры нашего телепорта
radius = 2
;Высота захвата телепорта
z_radius = 2

;Куда телепортируемся (телепортация всегда идет в пределах карты)
poz_x = 22.78
poz_y = 20.35
poz_z = 659.24

; Угол зрения при появлении. Если параметра нет то не меняется.
rotate = 1.5
</code>
Теперь создаем файл create_teleport.script в gamedata/scripts, и в него суем:
<lua>
function create_teleport()
local obj
local a = vector() -- тип переменной
a.x = x -- подставьте вектор
a.y = y -- подставьте вектор
a.z = z -- подставьте вектор
obj = alife():create("m_teleport",a,lvertex,gvertex)
end
</lua>
Теперь в том-же bind_stalker.script под bind_restrictor.actor_update(delta) в функции function actor_binder:update(delta) пишем "create_teleport.create_teleport" БЕЗ КАВЫЧЕК.
ГОТОВО!

CoP. Спавн точек перехода между локациями

2012-05-10T16:52:26Z

188.134.33.162: Новая страница: «Создание точек перехода между локациями. <lua> function create_level_changer( p_story_id, -- STORY_ID нового level_changer p...»

Создание точек перехода между локациями.
<lua>
function create_level_changer(
p_story_id, -- STORY_ID нового level_changer
p_position, -- вектор, центр нового level_changer
p_lvertex_id, -- level_vertext_id
p_gvertex_id, -- game_vertext_id
p_dest_lv, -- level_vertex_id
p_dest_gv, -- game_vertex_id
p_dest_pos, -- координаты на новом уровне
p_dest_dir, -- направление взгляда игрока
p_dest_level, -- название уровня
p_silent, -- 1 автоматический переход
P_spotdir, -- метка на карте
p_desr -- описание
)
local obj = alife():create("level_changer", p_position, p_lvertex_id, p_gvertex_id)
level.map_add_object_spot_ser(obj.id,P_spotdir,p_desr)

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)
packet:w_float(cse_alife_object__unk1_f32)
packet:w_u32(cse_alife_object__unk2_u32)
packet:w_u32(level_vertex_id)
packet:w_u32( bit_not(193) )
packet:w_stringZ(custom_data)
packet:w_u32(p_story_id)
packet:w_u32(spawn_story_id)

packet:w_u8(1) -- количество фигур
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)

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())

end
</lua>

Пример перехода с Затона в Окрестности "Юпитера".
<code>
function nlc()
-- создается переход с Затона на Юпитер
create_level_changer(52000, vector():set(32.82,0.39,612.30), 1011443, 192, 81204, 422, vector():set(-376.06,6.46,412.87), vector():set(0.0, 0.0, 0.0), "jupiter", 1, "exit_to_jupiter", "на Янов")
end
</code>

Вот так создается переход через скрипт.

== Автор ==
vllzl

SoC. Спавн точек перехода между уровнями

2012-05-10T14:15:52Z

188.134.33.162:

В этой статье я попытаюсь передать практический опыт скриптового создания точек перехода между уровнями. Файл ''all.spawn'' меняться не будет, поэтому такой механизм более удобен для совмещения модов и не требует начала новой игры.

В качестве примера попробуем реализовать режим ''freeplay'' - продолжение игры после уничтожения О-Сознания. Для этого нужно создать как минимум две точки — возврат на ЧАЭС-1 со внутреннего дворика (после уничтожения О-Сознания) и переход из ЧАЭС-1 в Припять. К слову сказать, если вернуться на ЧАЭС-1, то там будет продолжать действовать таймер "выброса", который в конце-концов включит "deadzone". Отключить счетчик мне пока не удалось, но зато можно легко отключить сам "выброс" и всласть побегать по уровню.

== Часть 1. Генерация работающего LEVEL_CHANGER ==

Стандартной функции alife():create(…) недостаточно для создания полноценного level_changer. Собственно методика создания сложных объектов описана в статье [[Один из методов спавна]]. Сложность заключалась лишь в порядке полей и свойствах Shape. Неоценимую помощь в этом вопросе оказала утилита ACDC (created by bardak).

Ниже я привожу код функции, которая создает и инициализирует level_changer:
<lua>
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
</lua>

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

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

Теперь следует написать функции создания нужных точек перехода и подключить их к игре. Сами функции просты:
<code>
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
</code>

<blockquote>
''Функцию '''exit_monolit''' я создал исключительно для тестирования, но решил оставить и тут. Вдруг кто-то захочет реализовать более сложный возврат: Меченого грузят в "грузовик смерти" и он снова приходит в себя на кордоне...''
</blockquote>

Функция '''exit_monolit''' создает «тихий» переход на уровень ЧАЭС-1 и обычный - в начале уровня ЧАЭС-1 для возврата в Припять, после чего перебрасывает актера прямо внутрь созданного перехода. Функция '''refuze_o_sozn''' делает тоже самое, только игрок появляется перед воротами в правом верхем углу карты (мне кажется, что так более логично). Все телепорты защищаются уникальными info_portions, дабы избежать их повторного создания, ведь игрок может захотеть «закончить» игру несколько раз.

Теперь подключение.
Во-первых надо добавить новые info-portions. Я решил не изменять оригинальные файлы игры, а сделал для них (ну и для других тоже) отдельный файл
<code>
config\gameplay\_info_sa.xml
</code>
следующего вида:
<code>
<?xml version="1.0" encoding="windows-1251" ?>

<game_information_portions>

<info_portion id="freeplay_activated1"></info_portion>
<info_portion id="freeplay_activated2"></info_portion>
<info_portion id="exit_chaes2pripyat_created"></info_portion>

</game_information_portions>
</code>
Теперь в этот файл можно будет добавлять новые info_portion, которые вы будете использовать в своих сюжетах.
Подключается этот файл в system.ltx в секции «info_portions»:
<code>
[info_portions]
;список xml файлов, содержащих info_portions
files = _info_sa, info_portions, ....................
</code>

''Кстати, именно так я рекомендую добавлять новые диалоги и новых персонажей. Это упростит процессы совмещения модов и аддонов.''

Следующий шаг - подключение наших скриптов к игре. Для этого откройте файл
<code>
config\ui\ui_movies.xml
</code>
найдите элементы «''mov_desire_''» (их пять, по количеству ложных концовок игры - все варианты общения с Монолитом). Внутри каждого элемента есть дочерние элементы «''function_on_stop''», которые задают функцию, запускающуюся сразу после ролика. Стандартное содержимое:
<code>
<function_on_stop>xr_effects.game_credits</function_on_stop>
</code>
Функция '''xr_effects.game_credits''' запускает финальные титры. Именно ее и нужно заменить на вызов нашей функции _freeplay_sa.exit_monolit. Вот что должно получиться:
<code>
<function_on_stop>_freeplay_sa.exit_monolit</function_on_stop>

</code>
<blockquote>
''Старый элемент я советую не удалять, а закомментировать.''
</blockquote>

Чуть ниже «''mov_desire_5''» находится тэг ролика для концовки «Присоединение к О-Сознанию». Его мы трогать не будем - Меченый станет медузой. А вот после него - тэг для ролика «Отказ от О-Сознания»: «''mov_refuse_osoznanie''». Функцию завершения в нем заменим следующим образом:
<code>
<function_on_stop>_freeplay_sa.refuze_o_sozn</function_on_stop>

</code>

Можно запускать и, если есть сохранения перед монолитом и/или о-сознанием, тестировать. Первые переходы срабатывают «тихо» - запрос на смену уровня не выдается (в параметре p_silent задана 1). До перехода в Припять можно успеть добежать, пока не сработал выброс... Но это как-то неправильно, выброс надо остановить (он же произошел, пока мы были внутри станции). «По-честному» (скриптом, без модификации ''all.spawn'') таймер выброса отключить не получится, но зато выброс можно подавить небольшим «хаком». Найдите файл xr_logic.script, а в нем - функцию '''switch_to_section'''. Ее нужно модифицировать следующим образом:
<code>
-- Выполняет переключение на указанную секцию, если задана.
-- Если section == nil, остается работать старая секция.
function switch_to_section(npc, st, section)
if section == nil or section == "" then
return false
end

-- 15.03.2008 by SA:
-- отключает "смертельные зоны" на ЧАЭС после запуска режима FREEPLAY
-- таймер не отключается, но сам "выброс" не происходит
if (section == "sr_aes_deadzone") then
if (has_alife_info("freeplay_activated1") or has_alife_info("freeplay_activated2")) then
return false
end
end

... далее без изменений ...
end
</code>

Данный способ оставляет висящий на нулях таймер и все эффекты начала выброса, но сам «''выброс''» отключается.

И последнее: переход ЧАЭС1-Припять необходимо отметить на карте. Для этого существует вполне «легальный» механизм. Находим файл '''level_tasks.script''' и в конце функции '''add_lchanger_location''' дописываем следующее:
<code>
-- aes (++16.03.2008 by SA):
obj = sim:story_object(31410)
if obj then
level.map_add_object_spot(obj.id, "level_changer", "To Pripyat")
end
</code>

Здесь 31410 - story_id нашего level_changer, который создается нашей функцией '''create_chaes2pripyat_exit'''.

На этом пока все (мелкие огрехи типа направления взгляда игрока после смены уровня исправлю позже).
Прошу тестировать и дополнять.

С уважением, sarthur.

== Дополняет авторы: vllzl ==
<code>
«По-честному» (скриптом, без модификации ''all.spawn'') таймер выброса отключить не получится.
</code>
Можно удалить таймер скриптом (удаляет рестриктор из игры)
<lua>
function delete_aes_timer()
local obj = alife():object("aes_space_restrictor_timer")
if obj then
alife():release(obj, true)
end
local se_obj = alife():object("aes_space_restrictor_timer_go")
if se_obj then
alife():release(se_obj, true)
end
end
</lua>
Удалит таймер и выброс из игры. Vllzl
[[Категория:Скрипты]]