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

Выброс на ЧАЭС

2012-05-25T07:56:49Z

188.134.33.164: /* Отключаем эффекты серую окр.среду и эффекты */

Открываем sr_aes_deadzone.script

== Отключение повреждение ==
В функции action_postprocess:update_hit (delta) удаляем строки: db.actor:hit (h) и db.actor:hit (h);.

== Отключаем эффекты серую окр.среду и эффекты ==
В функции '''action_postprocess:reset_scheme ()''' значение self.gray_amplitude = 1.0 меняем на self.gray_amplitude = 0.0

Так, повреждения актору отключили, серую окр.среду отключили. Но у нас остались точки на экране и двоится в глазах ГГ. Уберем PPEffector. Убираем строки из action_postprocess:reset_scheme ():
<code>
self.pp = PPEffector (self.object:id () + 2000, self);
self.pp.params.noise = noise ();
self.pp:start ();
</code>

Мы вывели из строя схему sr_aes_deadzone. За землетрясение отвечает xr_effects.aes_earthshake(npc)

== Автор статьи ==
[[Участник:vllzl]]

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

2012-05-25T07:52:31Z

188.134.33.164: /* Дополняет авторы: vllzl */

В этой статье я попытаюсь передать практический опыт скриптового создания точек перехода между уровнями. Файл ''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'''. Ее нужно модифицировать следующим образом:
<lua>
-- Выполняет переключение на указанную секцию, если задана.
-- Если 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
</lua>

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

И последнее: переход ЧАЭС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>
Можно удалить таймер скриптом (удаляет рестриктор из игры)
Для этого в начале всех функций в sr_timer.script и sr_aes_deadzone.script написать:
<code>if not has_alife_info("freeplay_activated1") or ("freeplay_activated2") then</code>

Удалит таймер и выброс из игры во фриплее. Vllzl
[[Категория:Скрипты]]

Создаем мод на 5+

2012-05-25T07:44:02Z

188.134.33.164: Новая страница: «== Фриплей == #REDIRECT SoC. Спавн точек перехода между уровнями Потом в файлах sr_aes_deadzone.script и sr_ti...»

== Фриплей ==
#REDIRECT [[SoC. Спавн точек перехода между уровнями]]
Потом в файлах sr_aes_deadzone.script и sr_timer.script в начале всех функций пиши:
<code>if not has_alife_info("freeplay_activated1") or ("freeplay_activated2") then</code>

== Квесты ==
#REDIRECT [[SoC. Однотипные квесты]]

== Диалог ==
#REDIRECT [[SoC. Создание диалогов]]

SoC. Создаем фриплей за пару-тройку минут.

2012-05-24T15:26:12Z

188.134.33.164: /* Сами скрипты */

== Отключение смертельных зон на ЧАЭС-2 ==
Открываем '''sr_aes_deadzone.script'''. В начале функций: action_postprocess:reset_scheme (), action_postprocess:deactivate(), action_postprocess:update_params (), action_postprocess:update_hit (delta) напишите это:
<code>
if not has_alife_info("freeplay") then
</code>
Это значит, что «зона» будет работать до подачи этого поршня. Но поршня нету.

== Поршни ==
Открывает config/gameplay/info_l19stanciya.xml
Туда дописываем где-нибудь:
<code>
<info_portion id="freeplay"></info_portion>
<info_portion id="game_end"></info_portion>
</code>

== Таймеры на ЧАЭС-1 и в X-16 ==
В файле '''sr_timer.script''' все свяжем с новым поршнем freeplay. Опустошите файл и напишите в нем:
<lua>
----------------------------------------------------------------------------------------------------
-- Таймер с выводом изображения на экран.
----------------------------------------------------------------------------------------------------

local k,v = 0,0

class "action_timer"
function action_timer:__init(obj, storage)
self.object = obj
self.st = storage
end
function action_timer:update(delta)
if not has_alife_info("freeplay") then
local actor = db.actor
if xr_logic.try_switch_to_another_section(self.object, self.st, actor) then
return
end
-- Высчитываем сколько времени уже работает счетчик
local nn = time_global() - db.storage[self.object:id()].activation_time

-- Изменяем значение счетчика
local value_time = 0
if self.st.type == "inc" then
value_time = self.st.start_value + nn
else
value_time = self.st.start_value - nn
end
if value_time <= 0 then
value_time = 0
end
-- Формируем строку счетчика
local hours = math.floor(value_time/3600000)
local minutes = math.floor(value_time/60000 - hours*60)
local seconds = math.floor(value_time/1000 - hours*3600 - minutes*60)
local str = tostring(hours)..":"..sr_timer.time2str(minutes)..":"..sr_timer.time2str(seconds)

self.st.timer:SetTextST(str)

-- Определяем нужно ли куда то переходить.
for k,v in pairs(self.st.on_value) do
if (self.st.type == "dec" and value_time <= v.dist) or
(self.st.type == "inc" and value_time >= v.dist)
then
-- Обработка значения.
xr_logic.switch_to_section(self.object, self.st, xr_logic.pick_section_from_condlist(db.actor, self.object, v.state))
end
end
end
end
function action_timer:deactivate(delta)
if not has_alife_info("freeplay") then
self.st.ui:RemoveCustomStatic(self.st.timer_id)
if self.st.string ~= nil then
self.st.ui:RemoveCustomStatic("hud_timer_text")
end
end
end
--function action_timer:save()
-- xr_logic.pstor_store( self.object, "timer_value", self.state )
--end

function time2str(n)
if n >= 10 then
return tostring(n)
else
return "0"..tostring(n)
end
end
---------------------------------------------------------------------------------------------------------------------
function add_to_binder(obj, ini, scheme, section, storage)
local action = action_timer(obj, storage)
xr_logic.subscribe_action_for_events(obj, storage, action)
end
function set_scheme(obj, ini, scheme, section, gulag_name)
if not has_alife_info("freeplay") then
local st = xr_logic.assign_storage_and_bind(obj, ini, scheme, section)
st.logic = xr_logic.cfg_get_switch_conditions(ini, section, obj)
st.type = utils.cfg_get_string( ini, section, "type", obj, false, "", "inc")
if st.type ~= "inc" and st.type ~= "dec" then
abort("ERROR: wrong sr_timer type. Section [%s], Restrictor [%s]", section, obj:name())
end

if st.type == "dec" then
st.start_value = utils.cfg_get_number(ini, section, "start_value", obj, true)
else
st.start_value = utils.cfg_get_number(ini, section, "start_value", obj, false, 0)
end
-- Вычитываем значения перехода.
st.on_value = parse_data(obj, utils.cfg_get_string(ini, section, "on_value", obj, false, ""))
st.timer_id = utils.cfg_get_string( ini, section, "timer_id", obj, false, "", "hud_timer")
st.string = utils.cfg_get_string( ini, section, "string", obj, false, "")

st.ui = get_hud()
st.ui:AddCustomStatic(st.timer_id, true)
st.timer = st.ui:GetCustomStatic(st.timer_id):wnd()

if st.string ~= nil then
st.ui:AddCustomStatic("hud_timer_text", true)
local timer_text = st.ui:GetCustomStatic("hud_timer_text"):wnd()
timer_text:SetTextST(st.string)
end
end
end

function parse_data(npc,s)
local t = {}

if s then
for name in string.gfind( s, "(%|*%d+%|[^%|]+)%p*" ) do
local dat = { dist = nil,
state = nil}

local t_pos = string.find( name, "|", 1, true )

local dist = string.sub( name, 1, t_pos - 1 )
local state = string.sub( name, t_pos + 1)

dat.dist = tonumber(dist)
if state then
dat.state = xr_logic.parse_condlist(npc, dist, state, state)
end
table.insert(t, dat)
end
end
return t
end
</lua>

== Землетрясение и подключение скриптов ==
Находим функцию xr_effects.aes_earthshake в начале напишите:
<code>if not has_alife_info("freeplay") then</code>

Открываем ui_credits.xml.
Находим:
<code><function_on_stop>xr_effects.after_credits</function_on_stop></code>
Меняем на:
<code><function_on_stop>freeplay.set_lchanger</function_on_stop></code>

== Сами скрипты ==
Создаем в папке /scripts файл freeplay.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
end

-- Удаление лишних переходов
function disable_sar_entrance()
for i=1,65535 do
local obj = alife():object(i)
if obj and obj:name()=="exit_to_sarcofag_01" then
alife():release(obj, true)
end
end
end

-- Спавн всех нужных переходов
function set_lchanger()

if not db.actor or not has_alife_info("game_end") then
xr_effects.after_credits()
else

level.add_pp_effector("teleport.ppe", 2008, false)

-- Кордон - Темная долина
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)

-- Удаление лишних переходов
disable_sar_entrance()

-- Перемещаем актора, засчитываем все задания
db.actor:set_actor_position(vector():set(1035.12,-0.0999,229.564))
set_complete_tasks()

-- Ставим стандартную погоду
level.set_weather("default")

-- Пометим
mark_lc()

end
end

-- Отмечаем на карте новые точки перехода
function mark_lc()
local obj = alife():story_object(6001)
if obj then
level.map_add_object_spot(obj.id, "level_changer", "to_darkvalley")
end
local obj = alife():story_object(6002)
if obj then
level.map_add_object_spot(obj.id, "level_changer", "to_pripyat")
end
local obj = alife():story_object(6003)
if obj then
level.map_add_object_spot(obj.id, "level_changer", "to_aes")
end
local obj = alife():story_object(6004)
if obj then
level.map_add_object_spot(obj.id, "level_changer", "to_aes")
end
if has_alife_info("freeplay") and (level.name()=="l12_stancia" or level.name()=="l12_stancia_2" or level.name()=="l11_pripyat" or level.name()=="l10_radar") then
level.set_weather("default")
end
end

-- Засчитываем задание "Убить Стрелка"
function set_complete_tasks()
if has_alife_info("aes2_monolit_teleport_ready_final") and not has_alife_info("freeplay") and (level.name()=="l12_stancia" or level.name()=="l12_stancia_2") then
db.actor:iterate_inventory(del_q_items,db.actor)
db.actor:give_info_portion("cit_fail_first_task")
db.actor:give_info_portion("freeplay")
db.actor:disable_info_portion("game_end")
db.gameover_credits_started = false
end
end

-- Удаляем ненужные квестовые предметы
function del_q_items(npc, item)
if item==nil or alife():object(item:id())==nil then return end
local section = item:section()
if section=="gunslinger_flash" or
section=="good_psy_helmet" or
section=="bad_psy_helmet" or
section=="decoder" or
section=="pri_decoder_documents" then
alife():release(alife():object(item:id()), true)
end
end

------------------------- 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. Не удаляйте копирайты, указывайте настоящего
автора(ов) и не выдавайте чужие идеи и их реализацию за свои. Ведь это элементарная
этика модостроителей! Спасибо за понимание.

]]--
</lua>

== Авторы ==
<big>Скрипты</big>
Взято из OGSM.
<big>Статья</big>
vllzl

== Благодарность ==
Автору мода OGSM

SoC. Создаем фриплей за пару-тройку минут.

2012-05-24T14:36:13Z

188.134.33.164: Новая страница: «== Отключение смертельных зон на ЧАЭС-2 == Открываем '''sr_aes_deadzone.script'''. В начале функций: action_post...»

== Отключение смертельных зон на ЧАЭС-2 ==
Открываем '''sr_aes_deadzone.script'''. В начале функций: action_postprocess:reset_scheme (), action_postprocess:deactivate(), action_postprocess:update_params (), action_postprocess:update_hit (delta) напишите это:
<code>
if not has_alife_info("freeplay") then
</code>
Это значит, что «зона» будет работать до подачи этого поршня. Но поршня нету.

== Поршни ==
Открывает config/gameplay/info_l19stanciya.xml
Туда дописываем где-нибудь:
<code>
<info_portion id="freeplay"></info_portion>
<info_portion id="game_end"></info_portion>
</code>

== Таймеры на ЧАЭС-1 и в X-16 ==
В файле '''sr_timer.script''' все свяжем с новым поршнем freeplay. Опустошите файл и напишите в нем:
<lua>
----------------------------------------------------------------------------------------------------
-- Таймер с выводом изображения на экран.
----------------------------------------------------------------------------------------------------

local k,v = 0,0

class "action_timer"
function action_timer:__init(obj, storage)
self.object = obj
self.st = storage
end
function action_timer:update(delta)
if not has_alife_info("freeplay") then
local actor = db.actor
if xr_logic.try_switch_to_another_section(self.object, self.st, actor) then
return
end
-- Высчитываем сколько времени уже работает счетчик
local nn = time_global() - db.storage[self.object:id()].activation_time

-- Изменяем значение счетчика
local value_time = 0
if self.st.type == "inc" then
value_time = self.st.start_value + nn
else
value_time = self.st.start_value - nn
end
if value_time <= 0 then
value_time = 0
end
-- Формируем строку счетчика
local hours = math.floor(value_time/3600000)
local minutes = math.floor(value_time/60000 - hours*60)
local seconds = math.floor(value_time/1000 - hours*3600 - minutes*60)
local str = tostring(hours)..":"..sr_timer.time2str(minutes)..":"..sr_timer.time2str(seconds)

self.st.timer:SetTextST(str)

-- Определяем нужно ли куда то переходить.
for k,v in pairs(self.st.on_value) do
if (self.st.type == "dec" and value_time <= v.dist) or
(self.st.type == "inc" and value_time >= v.dist)
then
-- Обработка значения.
xr_logic.switch_to_section(self.object, self.st, xr_logic.pick_section_from_condlist(db.actor, self.object, v.state))
end
end
end
end
function action_timer:deactivate(delta)
if not has_alife_info("freeplay") then
self.st.ui:RemoveCustomStatic(self.st.timer_id)
if self.st.string ~= nil then
self.st.ui:RemoveCustomStatic("hud_timer_text")
end
end
end
--function action_timer:save()
-- xr_logic.pstor_store( self.object, "timer_value", self.state )
--end

function time2str(n)
if n >= 10 then
return tostring(n)
else
return "0"..tostring(n)
end
end
---------------------------------------------------------------------------------------------------------------------
function add_to_binder(obj, ini, scheme, section, storage)
local action = action_timer(obj, storage)
xr_logic.subscribe_action_for_events(obj, storage, action)
end
function set_scheme(obj, ini, scheme, section, gulag_name)
if not has_alife_info("freeplay") then
local st = xr_logic.assign_storage_and_bind(obj, ini, scheme, section)
st.logic = xr_logic.cfg_get_switch_conditions(ini, section, obj)
st.type = utils.cfg_get_string( ini, section, "type", obj, false, "", "inc")
if st.type ~= "inc" and st.type ~= "dec" then
abort("ERROR: wrong sr_timer type. Section [%s], Restrictor [%s]", section, obj:name())
end

if st.type == "dec" then
st.start_value = utils.cfg_get_number(ini, section, "start_value", obj, true)
else
st.start_value = utils.cfg_get_number(ini, section, "start_value", obj, false, 0)
end
-- Вычитываем значения перехода.
st.on_value = parse_data(obj, utils.cfg_get_string(ini, section, "on_value", obj, false, ""))
st.timer_id = utils.cfg_get_string( ini, section, "timer_id", obj, false, "", "hud_timer")
st.string = utils.cfg_get_string( ini, section, "string", obj, false, "")

st.ui = get_hud()
st.ui:AddCustomStatic(st.timer_id, true)
st.timer = st.ui:GetCustomStatic(st.timer_id):wnd()

if st.string ~= nil then
st.ui:AddCustomStatic("hud_timer_text", true)
local timer_text = st.ui:GetCustomStatic("hud_timer_text"):wnd()
timer_text:SetTextST(st.string)
end
end
end

function parse_data(npc,s)
local t = {}

if s then
for name in string.gfind( s, "(%|*%d+%|[^%|]+)%p*" ) do
local dat = { dist = nil,
state = nil}

local t_pos = string.find( name, "|", 1, true )

local dist = string.sub( name, 1, t_pos - 1 )
local state = string.sub( name, t_pos + 1)

dat.dist = tonumber(dist)
if state then
dat.state = xr_logic.parse_condlist(npc, dist, state, state)
end
table.insert(t, dat)
end
end
return t
end
</lua>

== Землетрясение и подключение скриптов ==
Находим функцию xr_effects.aes_earthshake в начале напишите:
<code>if not has_alife_info("freeplay") then</code>

Открываем ui_credits.xml.
Находим:
<code><function_on_stop>xr_effects.after_credits</function_on_stop></code>
Меняем на:
<code><function_on_stop>freeplay.set_lchanger</function_on_stop></code>

== Сами скрипты ==
Создаем в папке /scripts файл freeplay.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
end

-- Удаление лишних переходов
function disable_sar_entrance()
for i=1,65535 do
local obj = alife():object(i)
if obj and obj:name()=="exit_to_sarcofag_01" then
alife():release(obj, true)
end
end
end

-- Спавн всех нужных переходов
function set_lchanger()

if not db.actor or not has_alife_info("game_end") then
xr_effects.after_credits()
else

level.add_pp_effector("teleport.ppe", 2008, false)

-- Кордон - Темная долина
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)

-- Удаление лишних переходов
disable_sar_entrance()

-- Перемещаем актора, засчитываем все задания
db.actor:set_actor_position(vector():set(1035.12,-0.0999,229.564))
set_complete_tasks()

-- Ставим стандартную погоду
level.set_weather("default")

end
end

-- Отмечаем на карте новые точки перехода
function mark_lc()
local obj = alife():story_object(6001)
if obj then
level.map_add_object_spot(obj.id, "level_changer", "to_darkvalley")
end
local obj = alife():story_object(6002)
if obj then
level.map_add_object_spot(obj.id, "level_changer", "to_pripyat")
end
local obj = alife():story_object(6003)
if obj then
level.map_add_object_spot(obj.id, "level_changer", "to_aes")
end
local obj = alife():story_object(6004)
if obj then
level.map_add_object_spot(obj.id, "level_changer", "to_aes")
end
if has_alife_info("freeplay") and (level.name()=="l12_stancia" or level.name()=="l12_stancia_2" or level.name()=="l11_pripyat" or level.name()=="l10_radar") then
level.set_weather("default")
end
end

-- Засчитываем задание "Убить Стрелка"
function set_complete_tasks()
if has_alife_info("aes2_monolit_teleport_ready_final") and not has_alife_info("freeplay") and (level.name()=="l12_stancia" or level.name()=="l12_stancia_2") then
db.actor:iterate_inventory(del_q_items,db.actor)
db.actor:give_info_portion("cit_fail_first_task")
db.actor:give_info_portion("freeplay")
db.actor:disable_info_portion("game_end")
db.gameover_credits_started = false
end
end

-- Удаляем ненужные квестовые предметы
function del_q_items(npc, item)
if item==nil or alife():object(item:id())==nil then return end
local section = item:section()
if section=="gunslinger_flash" or
section=="good_psy_helmet" or
section=="bad_psy_helmet" or
section=="decoder" or
section=="pri_decoder_documents" then
alife():release(alife():object(item:id()), true)
end
end

------------------------- 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. Не удаляйте копирайты, указывайте настоящего
автора(ов) и не выдавайте чужие идеи и их реализацию за свои. Ведь это элементарная
этика модостроителей! Спасибо за понимание.

]]--
</lua>

== Авторы ==
<big>Скрипты</big>
Взято из OGSM.
<big>Статья</big>
vllzl

== Благодарность ==
Автору мода OGSM

Выброс на ЧАЭС

2012-05-23T16:11:12Z

188.134.33.164: Новая страница: «Открываем sr_aes_deadzone.script == Отключение повреждение == В функции action_postprocess:update_hit (delta) удаляем ...»

Открываем sr_aes_deadzone.script

== Отключение повреждение ==
В функции action_postprocess:update_hit (delta) удаляем строки: db.actor:hit (h) и db.actor:hit (h);.

== Отключаем эффекты серую окр.среду и эффекты ==
В функции '''action_postprocess:reset_scheme ()''' значение self.gray_amplitude = 1.0 меняем на self.gray_amplitude = 0.0

Так, повреждения актору отключили, серую окр.среду отключили. Но у нас остались точки на экране и двоится в глазах ГГ. Уберем PPEffector. Убираем строки из action_postprocess:reset_scheme ():
<code>
self.pp = PPEffector (self.object:id () + 2000, self);
self.pp.params.noise = noise ();
self.pp:start ();
</code>

Мы удалили серую среду, хит и эффект

== Автор статьи ==
[[Участник:vllzl]]

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

2012-05-20T17:47:14Z

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

В этой статье я попытаюсь передать практический опыт скриптового создания точек перехода между уровнями. Файл ''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'''. Ее нужно модифицировать следующим образом:
<lua>
-- Выполняет переключение на указанную секцию, если задана.
-- Если 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
</lua>

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

И последнее: переход ЧАЭС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
[[Категория:Скрипты]]

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

2012-05-20T17:40:22Z

188.134.33.164:

В этой статье я попытаюсь передать практический опыт скриптового создания точек перехода между уровнями. Файл ''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'''. Ее нужно модифицировать следующим образом:
<lua>
-- Выполняет переключение на указанную секцию, если задана.
-- Если 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
</lua>

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

И последнее: переход ЧАЭС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
[[Категория:Скрипты]]