Cats Xray

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

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

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

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

Ниже я привожу код функции, которая создает и инициализирует level_changer:

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

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

level.map_add_object_spot(obj.id, «level_changer», «»)

local packet = net_packet()
obj:STATE_Write(packet)

— свойства cse_alife_object
local game_vertex_id = packet:r_u16()
local cse_alife_object__unk1_f32 = packet:r_float()
local cse_alife_object__unk2_u32 = packet:r_u32()
local level_vertex_id = packet:r_u32()
local object_flags = packet:r_u32()
local custom_data = packet:r_stringZ()
local story_id = packet:r_u32()
local spawn_story_id = packet:r_u32()

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

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

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

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

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

packet:w_u8(3) — restrictor_type

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

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

— news_manager.send_tip(db.actor, «LC creation finished», nil, nil, 30000)
end

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

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

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

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

db.actor:give_info_portion(«freeplay_activated1»)
end

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

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

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

db.actor:give_info_portion(«freeplay_activated2»)
end

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

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

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

db.actor:give_info_portion(«exit_chaes2pripyat_created»)
end
end

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

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

Теперь подключение. Во-первых надо добавить новые info-portions. Я решил не изменять оригинальные файлы игры, а сделал для них (ну и для других тоже) отдельный файл

config\gameplay\_info_sa.xml

следующего вида:

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

Теперь в этот файл можно будет добавлять новые info_portion, которые вы будете использовать в своих сюжетах. Подключается этот файл в system.ltx в секции «info_portions»:

[info_portions]
;список xml файлов, содержащих info_portions
files = _info_sa, info_portions, ………………..

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

Следующий шаг — подключение наших скриптов к игре. Для этого откройте файл

config\ui\ui_movies.xml

найдите элементы «mov_desire_» (их пять, по количеству ложных концовок игры — все варианты общения с Монолитом). Внутри каждого элемента есть дочерние элементы «function_on_stop», которые задают функцию, запускающуюся сразу после ролика. Стандартное содержимое:

<function_on_stop>xr_effects.game_credits</function_on_stop>

Функция xr_effects.game_credits запускает финальные титры. Именно ее и нужно заменить на вызов нашей функции _freeplay_sa.exit_monolit. Вот что должно получиться:

<function_on_stop>_freeplay_sa.exit_monolit</function_on_stop>
<!— original: <function_on_stop>xr_effects.game_credits</function_on_stop> —>

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

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

<function_on_stop>_freeplay_sa.refuze_o_sozn</function_on_stop>
<!— original: <function_on_stop>xr_effects.game_credits</function_on_stop> —>

Можно запускать и, если есть сохранения перед монолитом и/или о-сознанием, тестировать. Первые переходы срабатывают «тихо» — запрос на смену уровня не выдается (в параметре p_silent задана 1). До перехода в Припять можно успеть добежать, пока не сработал выброс… Но это как-то неправильно, выброс надо остановить (он же произошел, пока мы были внутри станции). «По-честному» (скриптом, без модификации all.spawn) таймер выброса отключить не получится, но зато выброс можно подавить небольшим «хаком». Найдите файл xr_logic.script, а в нем — функцию switch_to_section. Ее нужно модифицировать следующим образом:

— Выполняет переключение на указанную секцию, если задана.
— Если 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

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

И последнее: переход ЧАЭС1-Припять необходимо отметить на карте. Для этого существует вполне «легальный» механизм. Находим файл level_tasks.script и в конце функции add_lchanger_location дописываем следующее:

— 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

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

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

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

———————AMK————————————————————————

— Получение параметров лч.
function get_lc_data(obj)
local packet = net_packet()
obj:STATE_Write(packet)
local size=packet:w_tell()
packet:r_seek(0)

local t={}
t.game_vertex_id = packet:r_u16()
t.distance = packet:r_float()
t.direct_control = packet:r_s32()
t.level_vertex_id = packet:r_s32()
t.object_flags = packet:r_s32()
t.custom_data = packet:r_stringZ()
t.story_id = packet:r_s32()
t.spawn_story_id = packet:r_s32()
local shape_count = packet:r_u8()
t.shapes={}
for i=1,shape_count do
local shape_type = packet:r_u8()
t.shapes<I>={}
t.shapes[i].shtype=shape_type
if shape_type == 0 then
t.shapes[i].center = packet:r_vec3()
t.shapes[i].radius = packet:r_float()
else
t.shapes[i].v1 = packet:r_vec3()
t.shapes[i].v2 = packet:r_vec3()
t.shapes[i].v3 = packet:r_vec3()
t.shapes[i].offset = packet:r_vec3()
end
end
t.restrictor_type = packet:r_u8()
t.dest_game_vertex_id = packet:r_u16()
t.dest_level_vertex_id = packet:r_s32()
t.dest_position = packet:r_vec3()
t.dest_direction = packet:r_vec3()
t.dest_level_name = packet:r_stringZ()
t.dest_graph_point = packet:r_stringZ()
t.silent_mode = packet:r_u8()
if packet:r_elapsed() ~= 0 then
abort(«left=%d», packet:r_elapsed())
end
return t
end

— Запись параметров лч.
function set_lc_data(t,obj)
local packet = net_packet()
packet:w_begin(t.game_vertex_id)
packet:w_float(t.distance)
packet:w_s32(t.direct_control)
packet:w_s32(t.level_vertex_id)
packet:w_s32(t.object_flags)
packet:w_stringZ(t.custom_data)
packet:w_s32(t.story_id)
packet:w_s32(t.spawn_story_id)
packet:w_u8(table.getn(t.shapes))
for i=1,table.getn(t.shapes) do
packet:w_u8(t.shapes[i].shtype)
if t.shapes[i].shtype == 0 then
packet:w_vec3(t.shapes[i].center)
packet:w_float(t.shapes[i].radius)
else
packet:w_vec3(t.shapes[i].v1)
packet:w_vec3(t.shapes[i].v2)
packet:w_vec3(t.shapes[i].v3)
packet:w_vec3(t.shapes[i].offset)
end
end
packet:w_u8(t.restrictor_type)
packet:w_u16(t.dest_game_vertex_id)
packet:w_s32(t.dest_level_vertex_id)
packet:w_vec3(t.dest_position)
packet:w_vec3(t.dest_direction)
packet:w_stringZ(t.dest_level_name)
packet:w_stringZ(t.dest_graph_point)
packet:w_u8(t.silent_mode)
packet:r_seek(0)
obj:STATE_Read(packet, packet:w_tell())
end

— Создание лч и перемещение ГГ(Автор Xiani).
function start_jump_to(x,y,z,lv, gv, dx, dy, dz, level_name)
amk.mylog(«jump:create_lc»)
local lc = alife():create(«level_changer», db.actor:position(), db.actor:level_vertex_id(), db.actor:game_vertex_id())
amk.mylog(«jump:get_lc_data»)
local tbl = get_lc_data(lc)

local shapes={}
shapes[1]={}
shapes[1].shtype=0
shapes[1].radius = 10
shapes[1].center = vector():set(0,0,0)

tbl.shapes = shapes

tbl.dest_level_name = level_name
tbl.dest_position = vector():set(x,y,z)
tbl.dest_direction = vector():set(dx,dy,dz)
tbl.dest_game_vertex_id = gv
tbl.dest_level_vertex_id = lv
tbl.silent_mode = 1
tbl.story_id = 8657

amk.mylog(«jump:set_lc_data»)
set_lc_data(tbl,lc)

db.actor:set_actor_position(lc.position)
amk.mylog(«jump:finished»)
end
А использовать просто:
function road_to_yantar(actor, npc)
dialogs.relocate_money(npc, 3500, «out»)
start_jump_to(29.146209716797,-11.688985824585,-279.86639404297,54978,1480, 0,0,0,»L08_yantar»)
end — попадёшь в бункер к Сахарову.