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

Prior to try using a new

2012-12-27T19:07:15Z

Deathdoor: переименовал «Prior to try using a new» в «Spam»: spam

#перенаправление [[Spam]]

Обсуждение:Разбор программы xrSpawner (для новичков)

2012-06-16T19:54:10Z

Deathdoor: Новая страница: «удалите эту статью как противоестественную на сегодняшний день»

удалите эту статью как противоестественную на сегодняшний день

Небольшая статья по быстрому и лёгкому созданию текстур с ржавчиной

2012-06-01T04:21:11Z

Deathdoor:

Поводом написать эту статейку послужило давнишнее желание "заселить" ЗОНУ дорожными и иными указателями. Найти изображения/нарисовать сами указатели не особенно трудно, а вот придать им вид старины чуть посложней. Здесь я опишу простой способ как это сделать. Всё делаеться в Paint.NET (в Фотошопе делаеться аналогично, главное нужен редактор со слоями. Просто в паинте делаеться на порядок быстрей)
Итак, имеем исходник (в моём случае указатель к станции техобслуживания, который хочу повесить перед поворотом к АТП на Кордоне)

[[Файл:Ukazatel 1.jpg|200px|thumb|centre]]

в Интеренете находим наиболее подходящую к нашей задумке текстуру ржавчины

[[Файл:Ukazatel 2.jpg|200px|thumb|centre]]

Подгоняем изображения под единые размеры. На основном изображении создаем '''Новый слой''', в который копи-пастом вставляем второе изображение.

[[Файл:Ukazatel 3.jpg|200px|thumb|centre]]

а теперь самое интересное :-)
используюя возможности '''Свойства слоя (1)''' выбираем режим '''Умножение (2)'''. Пользуясь ползунком прозрачности '''(3)''' и порядком слоёв '''(4)''', доводим результат до нужной кондиции. Выполяем сведение слоёв (5) и сохраняем получишийся результат.

[[Файл:Ukazatel 4.jpg|200px|thumb|centre]]

На всё про всё не более 5 минут с отличным результатом.

'''Deathdoor''' (OGSE Team)

Небольшая статья по быстрому и лёгкому созданию текстур с ржавчиной

2012-06-01T04:18:19Z

Deathdoor: Новая страница: «Поводом написать эту статейку послужило давнишнее желание "заселить" ЗОНУ дорожными и ины...»

Поводом написать эту статейку послужило давнишнее желание "заселить" ЗОНУ дорожными и иными указателями. Найти изображения/нарисовать сами указатели не особенно трудно, а вот придать им вид старины чуть посложней. Здесь же я опишу простой способ как это сделать. Всё делаеться в Paint.NET (в Фотошопе делаеться аналогично, главное нужен редактор со слоями. Просто в паинте всё делаеться на порядок быстрей)
Итак, имеем исходник (в моём случае указатель к станции техобслуживания, который хочу повесить перед поворотом к АТП на Кордоне)

[[Файл:Ukazatel 1.jpg|200px|thumb|centre]]

в Интеренете находим наиболее подходящую к нашей задумке текстуру ржавчины

[[Файл:Ukazatel 2.jpg|200px|thumb|centre]]

Подгоняем изображения под единые размеры. На основном изображении создаем '''Новый слой''', в который копи-пастом вставляем второе изображение.

[[Файл:Ukazatel 3.jpg|200px|thumb|centre]]

а теперь самое интересное :-)
используюя возможности '''Свойства слоя (1)''' выбираем режим '''Умножение (2)'''. Пользуясь ползунком прозрачности '''(3)''' и порядком слоёв '''(4)''', доводим результат до нужной кондиции. Выполяем сведение слоёв (5) и сохраняем получишийся результат.

[[Файл:Ukazatel 4.jpg|200px|thumb|centre]]

На всё про всё не более 5 минут с отличным результатом.

'''Deathdoor''' (OGSE Team)

Файл:Ukazatel 4.jpg

2012-06-01T04:15:20Z

Deathdoor:

Файл:Ukazatel 3.jpg

2012-06-01T04:14:39Z

Deathdoor:

Файл:Ukazatel 2.jpg

2012-06-01T04:14:06Z

Deathdoor:

Файл:Ukazatel 1.jpg

2012-06-01T04:10:53Z

Deathdoor:

Создание оружия на основе старой модели+мод

2012-04-20T12:28:49Z

Deathdoor: Содержимое страницы заменено на «Автора темы в школу, а тему в топку, в том числе за использование хрСпавне...»

Автора темы в школу, а тему в топку, в том числе за использование хрСпавнера

Обсуждение:Создание оружия на основе старой модели+мод

2012-04-20T12:27:43Z

Deathdoor: Новая страница: «Автора темы в школу нах, а тему в топку, в том числе за использование хрСпавнера»

Автора темы в школу нах, а тему в топку, в том числе за использование хрСпавнера

Причины вылетов игры (разбираем логи)

2011-12-04T05:41:10Z

Deathdoor:

Привет всем! Игра сталкер, а конкретно сам движок X-ray довольно капризный, и зачастую как в процессе модификации, так и во время игры игра «вылетает». Чтобы мы знали причину вылета, движок нам оставляет лог вылета. Лог вылета можно посмотреть несколькими способами:
* В текстовом редакторе нажать Ctrl+V (Вставить)
* Посмотреть лог игры включая лог вылета в файле xray_имя_пользователя.log в папке C:\Documents and Settings\All Users\Документы\STALKER-***\logs
* Посмотреть непосредственно в окне багтрекера (только в ЧН и ЗП).
Ну приступим. Начнём с простых:
--------------
<pre>
Expression : wave&&wave->length()
Function : CSoundRender_Source::LoadWave
File : E:\stalker\patch_1_0004\xrSound\SoundRender_Source_loader.cpp
Line : 65
Description : Can't open wave file:
Arguments : d:\stalker\gamedata\sounds\music\sound.ogg
</pre>
Здесь игра не может открыть звуковой OGG-файл под названием sound в папке d:\stalker\gamedata\sounds\music\
--------------
<pre>
Expression : fatal error
Function : CRender::texture_load
File : E:\stalker\patch_1_0004\xr_3da\xrRender\Texture.cpp
Line : 295
Description : <no expression>
Arguments : Can't find texture 'act\act_corp_monolit'
</pre>
Не может найти текстуру act_corp_monolit из папки textures\act
--------------
<pre>
Expression : fatal error
Function : CModelPool::Instance_Load
File : E:\stalker\patch_1_0004\xr_3da\xrRender\ModelPool.cpp
Line : 111
Description : <no expression>
Arguments : Can't find model file 'physics\mesh.ogf'.
</pre>
Не найдена трёхмерная OGF-модель mesh.ogf из папки meshes\physics.
--------------
<pre>
Expression : SG
Function : CRender::model_CreateParticles
File : E:\stalker\patch_1_0004\xr_3da\xrRender_R2\r2.cpp
Line : 330
Description : Particle effect or group doesn't exist
Arguments : hit_fx\hit_water_00
</pre>
Не найдена система частиц (партикл) hit_water_00 в директории hit_fx файла particles.xr (подробно опишу позже).
--------------
<pre>
Expression : fatal error
Function : CResourceManager::_GetBlender
File : E:\stalker\patch_1_0004\xr_3da\ResourceManager.cpp
Line : 49
Description : <no expression>
Arguments : Shader 'models\antigas_glass' not found in library.
</pre>
Не найден шейдер models\antigas_glass в библиотеке шейдеров.
--------------
<pre>
Expression : fs
Function : CResourceManager::_CreateVS
File : E:\stalker\patch_1_0004\xr_3da\ResourceManager_Resources.cpp
Line : 185
Description : shader file doesnt exist
Arguments : d:\stalker\gamedata\shaders\r2\deffer_impl_flat.vs
</pre>
Не найден файл шейдера deffer_impl_flat.vs.
<tt>--Added by Герр. Роммель
Да нет. Тут проблема вся в том, что неправильно закомпилился шейдер, при компиляции уровня на качестве, более высоком чем Draft. Нужно скачивать исправление шейдеров от товарища Haron.
Для ЗП (ЧН) это может ещё быть из-за отсутствия thm"ок для текстур терраина уровня!</tt>
--------------
<pre>
Expression : fatal error
Function : out_of_memory_handler
File : D:\prog_repository\sources\trunk\xrCore\xrDebugNew.cpp
Line : 336
Description : <no expression>
Arguments : Out of memory. Memory request: 55965 K
</pre>
Нехватка оперативной памяти.
--------------
<pre>
Expression : fatal error
Function : CInifile::r_string
File :E:\stalker\sources\trunk\xrCore\Xr_ini.cpp
Line : 352
Description : <no expression>
Arguments : Can't find variable ammo_mag_size in [wpn_addon_grenade_launcher]
</pre>
Не найдена переменная ammo_mag_size в секции [wpn_addon_grenade_launcher].
--------------
<pre>
Expression : fatal error
Function : CScriptEngine::lua_error
File : D:\xray-svn\xr_3da\xrGame\script_engine.cpp
Line : 74
Description : <no expression>
Arguments : LUA error: C stack overflow
</pre>
Переполнение стека. Смотрим внимательно: lua_error. Ошибка возможно в скриптах.
--------------
<pre>
Expression : vertex || show_restrictions(m_object)
Function : CPatrolPathManager::select_point
File : E:\stalker\sources\trunk\xr_3da\xrGame\patrol_path_manager.cpp
Line : 155
Description : any vertex in patrol path [sniper_3_walk] in inaccessible for object [stalker_0002]
</pre>
Какая то вершина (вейпоинт) пути sniper_3_walk стоит в неположенном месте (например не на аи-сетке). Объект stalker_0002 (в данном случае сталкер) который якобы двигался по пути sniper_3_walk попал на эту точку, а заодно ушёл за аи-сетку. Этого движок не терпит.

Тоже самое произойдет если координаты(вейпоинт) пути sniper_3_walk совпадет с координатами места где нпс запрешенно находится буть то рестриктор или аномалия в схеме обхода аномалий.
Также этот вылет набюдается при попытке отправить нпс за пределы места работ параметр out_rest = "имя_рестриктора",
в файле загрузки работ гулага

попробуйте любого сталкера из лагеря новичков отправить допустим к остановке
получите этот самый вылет
--------------
<pre>
Expression : e_entity
Function : xrServer::Process_event_reject
File : E:\stalker\sources\trunk\xr_3da\xrGame\xrServer_process_event_reject.cpp
Line : 12
Description : entity not found. id_parent=7540 id_entity=44047 frame=2075050
</pre>
Возникают иногда произвольно при смерти неписей. Причина — движок отрабатывая лут изредка теряет серверный объект уничтожаемой вещи, в итоге происходит вылет.
--------------
<pre>
Expression : fatal error
Function : CScriptEngine::lua_error
File : D:\xray-svn\xr_3da\xrGame\script_engine.cpp
Line : 74
Description : <no expression>
Arguments : LUA error: e:\stalker\gamedata\scripts\_g.script:20: bad argument #2 to 'format' (string expected, got no value)
</pre>
Ошибка распространённая. На первый взгляд кажется, что ошибка как раз в скриптах, но всё может быть иначе. Делаем так: открываем файл _g.script блокнотом, закоменчиваем 20 строку (ставим перед строкой --) и идём к тому месту где поймали вылет. Так мы получим более развёрнутый ответ.
[[Участник:Призрак]]: Автор прав в том что вылет очень распространен, но так его исправлять нельзя, т.к. nil передается в эту функцию только при каком-то форс мажоре. Поэтому необходимо перейти в _g.script в функцию printf и перед log1(string.format(fmr,..)) дописать: get_console():execute("load "..fmt). После этого запустить еще раз игру и посмотреть при передачи какой строки игра вылетает. Потом найти эту строку в скриптах игры и прикинуть почему аргумент (у нас это аргумент №2 (bad argument #2)) равен nil

--------------
<pre>
Expression : assertion failed
Function : _VertexStream::Lock
File : E:\stalker\patch_1_0004\xr_3da\R_DStreams.cpp
Line : 44
Description : (bytes_need<=mSize) && vl_Count
</pre>
Проблема возникает при убийстве НПС\мутанта. Типичный вылет по нехватке ресурсов.
[[Участник:Призрак]] - Встречается в основном на больших локациях. Но не на всех. На болотах из ЧН такой вылет встречается, а вот с локации aver от Кости V такого вылета нет. Однако для данного вылета есть таблетка, в виде правленого экзешника. Искать на АМК-форум
--------------
<pre>
Expression : fatal error
Function : IRender_Visual::Load
File : E:\stalker\patch_1_0004\xr_3da\FBasicVisual.cpp
Line : 58
Description : <no expression>
Arguments : Invalid visual
</pre>
Неправильный визуал (модель) НПС.
--------------
<pre>
Expression : !phrase_dialog->m_PhraseVector.empty()
Function : CPhraseDialog::SayPhrase
File : E:\stalker\patch_1_0004\xr_3da\xrGame\PhraseDialog.cpp
Line : 140
Description : No available phrase to say, dialog[esc_dialog]
</pre>
В диалоге esc_dialog нет доступной для отображения фразы (скажем все заткнуты инфопоршенами).
--------------
<pre>
Expression : motion_ID.valid()
Function : CKinematicsAnimated::ID_Cycle
File : D:\prog_repository\sources\trunk\Layers\xrRender\SkeletonAnimated.cpp
Line : 210
Description : ! MODEL: can't find cycle:
Arguments : death_init
</pre>
Игра не нашла в модели трёхмерную анимацию с именем death_init.

--------------
--------------
* Автор статьи — '''Pihan13'''
* Дополнил статью — '''Fireman3000'''
* Частично использовалась информация с сайта http://forum.stalker-simbion.ru/

<center> '''Не стесняемся — дополняем, если знаем о чём идёт речь.''' </center>

Дополнение к статье(От Fireman3000):
Извините, если я где-нибудь неправильно пишу. Уж не родился я Колмогором :(

--------------
<pre>
Expression : fatal error
Function : CScriptEngine::lua_error
File : E:\stalker\patch_1_0004\xr_3da\xrGame\script_engine.cpp
Line : 73
Description : <no expression>
Arguments : LUA error: ...hadow of chernobyl\gamedata\scripts\xr_danger.script:116: attempt to index field 'ignore_types' (a nil value)
</pre>
Причина вылета в том что игра не понимает значения 0 в danger_ignore.Проще говоря в логике какого то персонажа параметр danger_ignore = 0 либо в минусовом значении. Либо его вообще нету

P.S. Также может быть причина в том, что в логике у какого-то АИ что-то неправильно указано. Для исправления рекомендую вставить строчку перед 116: get_console():execute(self.object:name()). То имя в логе, которое будет последним после вылета, указывает на персонажа с кривой логикой. --[[Участник:Rekongstor|Rekongstor]] 14:01, 2 июня 2011 (UTC)
--------------

--------------
<pre>
Expression : fatal error
Function : CInifile::r_string
File : E:\stalker\patch_1_0004\xrCore\Xr_ini.cpp
Line : 352
Description : <no expression>
Arguments : Can't find variable class in [test_no_klass_npc]
</pre>
Не найден класс персонажа. Возможно, нпс не прописан под своим классом в gamedata\npc_profile.xml, либо в creatures\spawn_section.ltx, либо в gameplay\character_desc.xml

--------------

--------------
<pre>
Expression : fatal error
Function : CInifile::r_section
File : E:\stalker\patch_1_0004\xrCore\Xr_ini.cpp
Line : 342
Description : <no expression>
Arguments : Can't open section 'bandage_test_kick1'
</pre>
Игра не может найти секцию. Это может быть предмет, нпс и многое другое. Возможно, вы написали название с ошибками. Либо когда добавляли его в: продажу, скрипт, нпс, выпадение из нпс а в редких случиях это может быть иммунитет чего либо(определить пото трудно). Часто такое бывает связано с названием

--------------

--------------
<pre>
Expression : fatal error
Function : CInifile::r_string
File : E:\stalker\patch_1_0004\xrCore\Xr_ini.cpp
Line : 352
Description : <no expression>
Arguments : Can't find variable remove_time in [vehicle_btr]
</pre>
Не найдена переменная remove_time в секции [vehicle_btr]. А в данном случае ошибка в том что если вы делали предмет как физическую модель(тобишь которую нельзя использовать, говорить и вообще он похож на декорации типа деревьев, столов и прочего хлама) то необходимо указывать remove_time в его секции

--------------

--------------
<pre>
Expression : fatal error
Function : CScriptEngine::lua_error
File : E:\stalker\patch_1_0004\xr_3da\xrGame\script_engine.cpp
Line : 73
Description : <no expression>
Arguments : LUA error: ...dow of chernobyl\gamedata\scripts\test_kick.script:34: attempt to call method 'section' (a nil value)
</pre>
Метод обращения в игре не предусмотрен. Возможно, стоит пересмотреть подход к тому или иному скрипту

--------------

--------------
<pre>
Expression : rpoints[0].size()
Function : game_sv_Deathmatch::Create
File : D:\prog_repository\sources\trunk\xrGame\game_sv_deathmatch.cpp
Line : 99
Description : rpoints for players not found
</pre>
На мультиплеерной карте не найдены точки респавна игроков. В SDK должен быть красный пацанчик. Настроить Team = 0

--------------

--------------

<pre>Expression : fatal error
Function : xrServer::Process_update
File : E:\stalker\patch_1_0004\xr_3da\xrGame\xrServer_process_update.cpp
Line : 37
Description : <no expression>
Arguments : Beer from the creator of 'WP_SHOTG'</pre>

Такое иногда бывает, когда ты (ГГ) или НПС заряжает дробовик или другое оружие со значением tri_state_reload = true.
Это глюк. в игре что-то сбивается, и когда у дробовика максимальное количество заряженых патронов скажем 6, он заряжается за 6 и дальше.. дальше.. дальше.. и так пока не произойдёт вылет с вышеуказанным логом. вылет не значительный и редкий, но если он случается слишком часто, можно в конфигах всех дробовиков и ружей поменять значение tri_state_reload = true на tri_state_reload = false.

--------------

--------------

<pre>Expression : fatal error
Function : CInifile::r_string
File : D:\prog_repository\sources\trunk\xrCore\Xr_ini.cpp
Line : 477
Description : <no expression>
Arguments : Can't find variable bound_rect in [level_map]</pre>

Такой лог бывает когда подключаешь локу с ТЧ в ЗП. Причина проста в ЗП уровнях файл строчка bound_rect пишется в файле gamedata\levels\имя_уровня\level.ltx , а в ТЧ строка bound_rect для каждого уровня непосредствено в файле gamedata\config\game_maps_single.ltx ...
 Исправить просто, нужно изменить файл gamedata\levels\имя_уровня\level.ltx в подключеной локации, просто перенести строку bound_rect из game_maps_single.ltx в level.ltx перед строчкой texture .

--------------

--------------

By Призрак
<pre>Expression : hGame
Function : CEngineAPI::Initialize
File : E:\stalker\patch_1_0004\xr_3da\EngineAPI.cpp
Line : 65
Description : Game DLL raised exception during loading or there is no game DLL at all </pre>
Случается когда одна из dll некорректна. Например такой вылет бывает если подсунуть в ТЧ 1.0004 xrGame от 6 патча
------------------

<pre>Expression : assertion failed
Function : CInventory::Eat
File : E:\stalker\sources\trunk\xr_3da\xrGame\Inventory.cpp
Line : 892
Description : pIItem->m_pCurrentInventory==this</pre>
Вылет встречается только на 6 патче при попытке хаванья из трупа. Ищите, исправленную Kholmogorom, xrGame.dll в Интернете
-----------------
<pre>Expression : !m_error_code
Function : raii_guard::~raii_guard
File : D:\prog_repository\sources\trunk\xrServerEntities\script_storage.cpp
Line : 748
Description : d:\stalker cop\gamedata\scripts\bind_stalker.script:231: attempt to index global 'ИМЯ_ФАЙЛА' (a nil value)</pre>
Вылет происходит в двух случаях - когда скрипт пытается вызвать функцию из несуществующего файла или когда в файле допущена синтаксическая ошибка
-----------------
<pre>Expression : fatal error
Function : CScriptEngine::lua_error
File : E:\stalker\sources\trunk\xr_3da\xrGame\script_engine.cpp
Line : 73
Description : <no expression>
Arguments : LUA error: attempt to call a nil value</pre>
Происходит при попытке вызвать класс, которого не существует
-----------------

Небольшой пример из практики по определению ошибки в особых случаях(для начинающих):
Игра зависла, картинка на экране не меняется, на Ctrl + Alt+ Delete не реагирует. Только "Холодная перезагрузка" reset. Но при этом обычно в логе нет записи и обычным Ctrl + V ошибку не увидеть.
Я пользуюсь программой Punto Switcher. Есть в ней опция "дневник", она ведёт запись всех нажатий клавиш и по нажатию сочетаний клавиш содержимое памяти может записывать в дневник.
теперь когда игра зависла и картинка на экране не меняется, нажимаете Ctrl + Alt+ Delete. Внешне ничего не изменится, но ОС будет реагировать
на клавиши, нажимаете сочетание клавиш "записать в дневник". Делаете перезагрузку, открываете дневник - Ваша ошибка записана.
"дядя Саша"
--------------

--------------
By tracker.

<pre>Expression : bone_id!=BI_NONE
Function : SArtefactDetectorsSupport::SetVisible
File : D:\prog_repository\sources\trunk\xrGame\Artefact.cpp
Line : 525
Description : link</pre>

Возникает при создании или добавлении чужих артефактов. В artefacts.ltx, в секции af_base есть параметр particles_bone=link. Это имя косточки, которая принимается за центр при проигрывании партикла. Если кость в артефакте называется по иному, например joint2, и это не указанно в секции нового арта, которая наследуется от базовой и подаразумевает естественно наличие link, получаем вылет. Решается конвертированием модели арта в .object, просмотром в sdk и выяснением имени косточки с занесением в конфиг.
--------------

[[Категория:FAQ]]

Обсуждение:Создание сингл локации через СДК ЧН

2011-10-29T08:18:34Z

Deathdoor: Новая страница: «Всё ссылки на картинки мертвые»

Всё ссылки на картинки мертвые

Сборка АИ-Сетки

2011-08-09T05:33:20Z

Deathdoor:

В данном руководстве мы пошагово объясним вам базовые принципы предварительной сборки и к каждой картинке обязательно добавим пояснение. Надеюсь этот мануал поможет вам понять как все работает и даст возможность собрать собственную АИ-сетку для вашего синглплеерного уровня. Здесь мы не будем касаться всех тонкостей добавления нодов по одному и изменения их настроек, но обещаю, что вскоре появится расширенный туриал. Большинство мапперов автоматически учатся генерировать аи сетку, и если они хотят узнать больше, то просто сами исследуют оставшуюся непознанную часть редактора уровня.

Создание АИ сетки необходимо только для сингплеерных карт. Если вам нужно создать мультиплеерный уровень, то можете спокойно пропустить данный туриал. АИ сетка контролирует движение нпс и всех существ на уровне. Когда вы закончите базу для своей карты и разместите каждый объект как хотели, то:

===Шаг 1:===

Перед вами простая карта, которая уже подготовлена для создания АИ сетки. Как вы видите у нее есть границы(ограждения). На панели справа в свитке Edit Mode давайте нажмем на кнопку AI Map. (она подсвечена редактором)
{|
|valign=left|[[Изображение:1aimap.JPG|thumb|200px]]
|}

===Шаг 2:===

После того как вы ее нажали, убедитесь, что на панели сверху выбрана стрелка (смотрим картинку)
{|
|valign=left|[[Изображение:2aimapru.jpg|thumb|200px]]
|}
===Шаг 3:===

Когда вы выделите чтото, то сможете осуществить привязку нажав кнопку add в разделе snaps list +/-, и добавлять объекты в этот список(смотрите скрин) или сделать так- во вкладке Tools>selection>select_all и во вкладке commands>add_selektet_to_list, тем самым мы добавим все обьекты на уровне в список и аи-карта сгенерируется для всех предметов
{|
|valign=left|[[Изображение:3aimapru.JPG|thumb|200px]]
|}

===Шаг 4:===

Когда вы выбираете объект он будет добавлен к этому списку привязанных объектов и станет красного цвета, так что вы будете знать, что он уже добавлен. Как правило, добавление объектов за пределами огражения не требуется, так как логично, что вы будете спавнить нпс только внутри уровня, а не снаружи, также не забудьте выделить сами ограждения, чтобы нпс не пытались через них перебраться. :) (смотрим скрин)
{|
|valign=left|[[Изображение:4aimapru.JPG|thumb|200px]]
|}
===Шаг 5:===

Когда вы выделили все необходимые объекты на уровне, вам нужно собственноручно разместить на карте хотя бы 1 аи-нод. Так что кликаем на иконку "add" на панели аи-нодов (смотреть картинку)
{|
|valign=left|[[Изображение:5aimapru.JPG|thumb|200px]]
|}
===Шаг 6:===

Нажмите снова кнопку "add", но только на верхней панели инструментов и выберите тип аи-нода, а потом разместите его на карте(смотреть скрин)
{|
|valign=left|[[Изображение:6aimapru.JPG|thumb|200px]]
|}
===Шаг 7:===

Теперь, когда вы разместили АИ ноду и добавили все необходимые объекты в список привязки(Snaps list), мы сможете сгенерировать АИ Сетку. Нажмите кнопку "generate full" чуть ниже AI Map Commands. Процесс генерации может длиться долго если у вас большая карта, также это зависит от характеристик вашего компа. Когда это все закончится, вы можете снова переключиться в режим добавления объектов(object), чтобы окрашенные красным цветом они снова выглядели нормально для дальнейшей работы (смотреть картинку)
{|
|valign=left|[[Изображение:7aimapru.JPG|thumb|200px]]
|}
===Шаг 8:===

Итак, АИ Сетка создана, как вы видите она была сгенерирована правильно, и нпс не будут пытаться долбиться в стены.
{|
|valign=left|[[Изображение:8aimapru.JPG|thumb|200px]]
|}

Мои поздравления! Теперь вы можете собрать вашу карту и потом скомпилировать ее. Используя компиляторы аи от бардака и вы сможете создать свою собственную полноценную синглплеерную карту :)

===Дополнение:===

Я уверен, что вы заметили, что сталкеры любят идти прямо в огонь, может для них вода слишком холодная? :) На самом деле это не так. Проблема в том что генератор аи-сетки не срабатывает нормально на мелких объектах, таких как костры и нпсы могут ходить сквозь них (естественно при этом умирая). Чтобы избежать подобных проблем на уровне, надо сделать так: выделить на карте неправильные аи-ноды и нажать кнопку "delete" в подразделе AI-Map Nodes (или нажать "Delete" на клавиатуре).

Так же вы можете вручную редактировать АИ сетку используя режим Add, при зажатой Alt аи-ноды можно укладывать сколько нужно и где нужно
[http://savepic.net/1809364.htm] [http://savepic.net/1808340.htm] без необходимости каждый раз нажимать Add (после укладки единочного нода СДК автоматически переключается в режим Select)

P.S. Перевод немного вольный с некоторыми исправленными моментами

P.S.S при добавлении НПС на уровень нужно чтоб НПС находились на АИ сетке иначе при переноске в игру будет вылет

Автор: dezodor

Перевод: loxotron

Дополнил: Deathdoor (OGSE Team)

[[Категория:SDK]]

Обсуждение:Конвертация НПС из ЧН/ЗП в ТЧ

2011-06-30T21:35:35Z

Deathdoor:

Раздел '''Редактирование User Data для модели''' абсолютно неверен. Прежде чем писать статью, посмотрите что там у нормальных сталкеров и постарайтесь понять назначение там написанного!!; 
Раздел '''Работа с костями''' должен стоять ДО '''Экспорт анимаций в .omf сборник''', иначе при СДК вам не даст сохранить .omf лог будет пестрить ошибками; 
Так же у вас ошибки в этом разделе. Всё вместе и приводит к безлоговым вылетам; 
[[Deathdoor (OGSE Team)]]

Мои глубочайшие. Исправил. [[Участник:Baklan|Baklan]] 11:56, 25 июня 2011 (UTC)

Начну с конца: в ЧН и ЗП НЕТ файла textures.ltx, вместо него используются файлы настройки .thm; 
В '''Работе с костями''': кости разделены на группы: '''legs, torso, head'''; 
В '''Присвоение модели любому НПС''': вместо целой "простыни", в которой крайне сложно разглядеть разницу, достаточно было указать, что визуал персонажей меняеться в строке ограниченной тегами <visual></visual>; 
типа было так: <visual>actors\neytral\stalker_neytral_balon_1</visual>; 
стало так: <visual>actors\nebo\stalker_nebo_2</visual>; 
[[Deathdoor (OGSE Team)]]

Обсуждение:MilkShape 3D сборка нескольких розверток в одну

2011-06-20T04:27:28Z

Deathdoor: Новая страница: «Хорошая, правильная статья. Единственное можно было чуть побольше расказать про сам интер...»

Хорошая, правильная статья. Единственное можно было чуть побольше расказать про сам интерфейс Texture Coordinate Editor. Да и фотки делать с развернутым экраном, а не scale 0.28 :-)

Обсуждение:Конвертация НПС из ЧН/ЗП в ТЧ

2011-06-15T17:28:17Z

Deathdoor: Новая страница: «Раздел '''Редактирование User Data для модели''' абсолютно неверен. Прежде чем писать статью, по...»

Обсуждение:Sound Editor - OGG комментирование

2011-06-03T13:30:29Z

Deathdoor:

Моё мнение: нельзя "стандарты ТЧ" воспринимать как истину в последней дистанции.
Насколько помню в одном из билдов были тоже thm с настройками звука.
Идём далее: у звуковых коментов максимальнео значение - это шестнадцатиричное FF - то бишь 255. Всё что выше будет обрезано на эти 255 и на выходе получится ху..а! Т.е. если стояло типа 400, то в реальности в игре будет 145 метров. А если 300 - то вообще 45

:*Неипёт... .thm извлечены из оригинала ТЧ версии 1.0006
:*В любом случае это ближе к истинне, чем "Шаблоны для начинающих" из статьи про Sound Editor, где умники повыставляли значение Quality равным 1

Мне кажется параметр Quality является именно тем, чем является т.е. качеством (сжатие), и соответственно влияет на размер конечного файла (сжатие меньше - файл больше - качество выше и наоборот). Для части звуков вполне позволительно его выставлять в 1.
И походу звук кодируется лишним байтом, так как после декомпиляции действительно возможно увидеть числа 300 или 400

*:: "декомпиляции" - каким методом?
:*178.44.254.54, декомпиляции с помощью X-Ray game asset converter
:*Deathdoor, какая разница, какие значения стоят в Max Dist? Min Dist по-важнее будет.

Не скажи, Max Dist влияет на затухание звука. Не будешь же ты ставить для разговора 300 метров? Этак все байки сталкеров далеко от костра будут слышны. Например на кордоне ТЧ, если удачно встать, можно слышать фразы из мегафона блокпоста военных, стоя в бункере Сидоровича: это как раз ошибка в Max Dist, которую нужно было сделать на пару метров меньше.

Обсуждение:Sound Editor - OGG комментирование

2011-06-02T13:53:49Z

Deathdoor:

Обсуждение:Sound Editor - OGG комментирование

2011-06-02T13:52:49Z

Deathdoor:

Моё мнение: нельзя "стандарты ТЧ" воспринимать как истину в последней дистанции.
Насколько помню в одном из билдов были тоже thm с настройками звука.

Идём далее: '''у звуковых коментов максимальнео значение - это шестнадцатиричное FF - то бишь 255. Двести, мммать, пятьдесят пять! Всё что выше будет обрезано на эти 255 и на выходе получится ху..а! Т.е. если стояло типа 400, то в реальности в игре будет 145 метров. А если 300 - то вообще 45 '''
:*Неипёт... .thm извлечены из оригинала ТЧ версии 1.0006
:*В любом случае это ближе к истинне, чем "Шаблоны для начинающих" из статьи про Sound Editor, где умники повыставляли значение Quality равным 1

Мне кажется параметр Quality является именно тем, чем является т.е. качеством (сжатие), и соответственно влияет на размер конечного файла (сжатие меньше - файл больше - качество выше и наоборот). Для части звуков вполне позволительно его выставлять в 1.
И походу звук кодируется лишним байтом, так как после декомпиляции действительно возможно увидеть числа 300 или 400

Обсуждение:Sound Editor - OGG комментирование

2011-06-01T05:15:10Z

Deathdoor: Новая страница: «Моё мнение: нельзя "стандарты ТЧ" воспринимать как истину в последней дистанции. Насколько...»

Обсуждение:Создание моделей NPC (исправление костей)

2011-04-21T05:49:46Z

Deathdoor:

Раздел касающийся поворота модели в милке вообще лишний и ненужный в принципе, его надо удалить и перенести статью в раздел работы с СДК (Deathdoor)

Создание моделей NPC (исправление костей)

2011-04-21T05:49:16Z

Deathdoor:

Итак, я (Scarabay) хочу рассказать вам очень простой способ, которым можно исправить вышеописанный баг с неестественным выгибом суставов у моделей НПС, без использования программы milkshape.
Как вы могли заметить, выворот происходит в тазобедренных суставах, коленях и локтях моделей. Как это исправить:

Запускаем Actor Editor (см. примечание), открываем проблемную модель. Далее кликаем на вкладку Bones справа.
Тут нам нужно настроить 6 джоинтов - bip01_l_thigh и bip01_r_thigh (тазобедр. суст.), bip01_l_calf и bip01_r_calf (колени), bip01_l_forearm и bip01_r_forearm (локти). Выделяем, например, джоинт bip01_l_calf. Снизу должны появиться настройки.

[[Файл:Joints.PNG]]

Ищем поле Axis Y, и меняем в нем параметры Min и Max местами.

Допустим, было:

Min: 0.00

Max: 110.00

А станет:

Min: -110.00

Max: 0.00

И так для всех 6-ти джоинтов (возможно, нужно настроить еще и плечи). Все.

*''Примечание: если вы делаете модель под ТЧ, то АЕ нужно использовать из СДК 0.4, для ЧН и ЗП соответственно СДК 0.5 + апдейт до 0.6 + фикс групп сглаживания, можно конечно и СДК 0.7, но в нем бьются группы сглаживания, а фикса нету. Найти все это добро можно на этом сайте.''

==Авторы==

Статья создана:

* [[Участник:Senator|Senator]]

Правка:

* [[Участник:MegaFenix|MegaFenix]]
* [[Участник:Scarabay|Scarabay]]
* [[Участник:Deathdoor|Deathdoor]]

[[Категория:Wireframe]]

Обсуждение:Создание моделей NPC (исправление костей)

2011-04-21T05:47:09Z

Deathdoor: Новая страница: «Раздел касающийся поворота модели в милке вообще лишний и ненужный в принципе, его надо уд...»

Раздел касающийся поворота модели в милке вообще лишний и ненужный в принципе, его надо удалить (Deathdoor)

SoC. Снятие денег с трупов

2011-03-04T04:54:36Z

Deathdoor: Отмена правки 9056 участника 168.216.29.89 (обсуждение)

В этой теме я напишу как сделать так что бы можно было снимать деньги с трупов.
Нам надо файл treasure_manager.script
В этом файле находим такие строки

<pre>--' Юзание инициатора (возможность выдать тайник)
function CTreasure:use(npc)
printf("TREASURE USE")
После строки --printf("TREASURE USE")-- пишем

if (npc and db.actor) then
lootmoney.lootmoney(npc)
end
</pre>
У нас должно выйти
<pre>--' Юзание инициатора (возможность выдать тайник)
function CTreasure:use(npc)
printf("TREASURE USE")

if (npc and db.actor) then
lootmoney.lootmoney(npc)
end
</pre>
Теперь создаём файл lootmoney.script
и в нём пишем

<pre>function lootmoney(npc)
if npc ~= nil and not string.find(npc:section(),"arena") and npc:character_community()~="arena_enemy" then
local money = npc:money()
if money ~= nil and money ~=0 then
local deadmoney = money

local npc_rank
npc_rank = ranks.get_obj_rank_name(npc)
if npc_rank ~= nil then
if npc_rank == "novice" and deadmoney >=400 then deadmoney=math.random(25,400)
elseif npc_rank == "experienced" and deadmoney >=500 then deadmoney=math.random(50,500)
elseif npc_rank == "veteran" and deadmoney >=600 then deadmoney=math.random(100,600)
elseif npc_rank == "master" and deadmoney >=700 then deadmoney=math.random(200,700)
end
end
local news_texti = "\\n%c[255,255,0,0]Мёртвый сталкер: %c[default]"..npc:character_name().."\\n%c[255,255,0,0]Обнаружено денег: %c[default]"..game.translate_string(tostring(deadmoney).."руб.")
db.actor:give_game_news(news_texti, "ui\\ui_iconsTotal", Frect():set(0,0,83,47), 1, 4000)
db.actor:give_money(deadmoney)
game_stats.money_quest_update(deadmoney)
npc:give_money(-money)
game_stats.money_quest_update(-money)
end
end
end
</pre>
теперь создаем файл watcher_act.script и впишем в него

<pre>-- Red75 (c) 2008
-- Marauder scheme v 1.1
-- Part of AMK MOD

evid_see_stuff=6931
evid_near_stuff=evid_see_stuff+1
evid_see_body=evid_see_stuff+2
evid_position_corrected=evid_see_stuff+3

actid_reach_item=evid_see_stuff
actid_grab_item=evid_see_stuff+1
actid_grab_body=evid_see_stuff+2
actid_correct_position=evid_see_stuff+3

-- Вызывает closure раз в period, obj[var] хранит время следующего срабатывания
function timed(obj,var,period,closure)
if obj[var] and obj[var]<time_global() then
obj[var]=time_global()+period
closure()
elseif not obj[var] then
obj[var]=time_global()+period
-- closure()
end
end

function trigger_timed(obj,var)
obj[var]=time_global()
end

local disabled_objects={}

local corpse_checked={} -- true - has loot, false - hasn't loot, nil - not checked

function checkCorpse(obj)
if (IsStalker(obj) or IsMonster(obj)) and obj:alive()==false then
if corpse_checked[obj:id()]~=nil then
return corpse_checked[obj:id()]
end
local cnt=0
obj:iterate_inventory(function (dummy, item)
if item:section()~="bolt" then
cnt=cnt+1
end
end, nil)
corpse_checked[obj:id()]=cnt>0
return corpse_checked[obj:id()]
end
return false
end

local valuable_clsid={
[clsid.art_bast_artefact]=true,
[clsid.art_black_drops]=true,
[clsid.art_dummy]=true,
[clsid.art_electric_ball]=true,
[clsid.art_faded_ball]=true,
[clsid.art_galantine]=true,
[clsid.art_gravi]=true,
[clsid.art_gravi_black]=true,
[clsid.art_mercury_ball]=true,
[clsid.art_needles]=true,
[clsid.art_rusty_hair]=true,
[clsid.art_thorn]=true,
[clsid.art_zuda]=true,
[clsid.artefact_s]=true,
[clsid.device_detector_simple]=true,
[clsid.device_pda]=true,
[clsid.device_torch_s]=true,
[clsid.equ_exo]=true,
[clsid.equ_military]=true,
[clsid.equ_scientific]=true,
[clsid.equ_stalker_s]=true,
[clsid.obj_antirad]=true,
[clsid.obj_attachable]=true,
[clsid.obj_bandage]=true,
[clsid.obj_bolt]=true,
[clsid.obj_bottle]=true,
[clsid.obj_food]=true,
[clsid.obj_medkit]=true,
[clsid.wpn_ak74_s]=true,
[clsid.wpn_ammo]=true,
[clsid.wpn_ammo_m209]=true,
[clsid.wpn_ammo_og7b]=true,
[clsid.wpn_ammo_vog25]=true,
[clsid.wpn_binocular_s]=true,
[clsid.wpn_bm16_s]=true,
[clsid.wpn_fn2000]=true,
[clsid.wpn_fort]=true,
[clsid.wpn_groza_s]=true,
[clsid.wpn_hpsa_s]=true,
[clsid.wpn_knife_s]=true,
[clsid.wpn_lr300_s]=true,
[clsid.wpn_pm_s]=true,
[clsid.wpn_rg6_s]=true,
[clsid.wpn_rpg7_s]=true,
[clsid.wpn_scope_s]=true,
[clsid.wpn_shotgun_s]=true,
[clsid.wpn_silencer]=true,
[clsid.wpn_svd_s]=true,
[clsid.wpn_svu_s]=true,
[clsid.wpn_usp45_s]=true,
[clsid.wpn_val_s]=true,
[clsid.wpn_vintorez_s]=true,
[clsid.wpn_walther_s]=true,
[clsid.wpn_wmagaz]=true,
[clsid.wpn_wmaggl]=true
}

local obj_owner={}

function bgwith(str,ptr)
local ps=string.find(str,ptr)
return ps~=nil and ps==1
end

function isValuable(obj)
local sec=obj:section()
if sec=="amk_metka" then
return false,false
end
if valuable_clsid[obj:clsid()] then
return true, false
end
return bgwith(sec,"af_") or bgwith(sec,"ammo_") or bgwith(sec,"wpn_") or bgwith(sec,"energy_") or checkCorpse(obj), IsStalker(obj) or IsMonster(obj)
end

function objValue(obj)
local sec=obj:section()
local multiplier=1
if bgwith(sec,"ammo_") then
multiplier=30
elseif sec=="vodka" then
multiplier=20
end
if system_ini():section_exist(sec) and system_ini():line_exist(sec,"cost") then
return system_ini():r_float(sec,"cost")*multiplier
end
return 0
end

function claimGObject(npc,st,obj)
if st.grabitemid then
obj_owner[st.grabitemid]=nil
end
st.grabitemid=obj:id()
obj_owner[obj:id()]=npc:id()
end

function freeGObject(st)
if st.grabitemid then
obj_owner[st.grabitemid]=nil
st.grabitemid=nil
end
end

function clearGObject(st)
st.grabitemid=nil
end

function getGObject(st)
if st.grabitemid then
local ret=level.object_by_id(st.grabitemid)
if ret==nil then
st.grabitemid=nil
end
return ret
end
return nil
end

function mypGObject(npc,st)
return st.grabitemid~=nil and obj_owner[st.grabitemid]~=nil and obj_owner[st.grabitemid]==npc:id()
end

class "ev_see_stuff" (property_evaluator)

function ev_see_stuff:__init(st,name) super(nil, name)
self.st=st
end

local bad_dangers={
[danger_object.hit]=true,
[danger_object.attacked]=true,
[danger_object.bullet_ricochet]=true,
[danger_object.grenade]=true,
[danger_object.entity_death]=true,
[danger_object.enemy_sound]=true
}

local inertion_time=30000

function bad_danger(npc)
local danger=npc:best_danger()
if danger then
return bad_dangers[danger:type()] and time_global()-danger:time()<inertion_time
end
return false
end

function ev_see_stuff:evaluate()
local res=getGObject(self.st)~=nil
local npc=self.object
local actsch=db.storage[npc:id()].active_scheme
if actsch and db.actor then
xr_logic.try_switch_to_another_section(npc, db.storage[npc:id()][actsch], db.actor)
end
local act_sec=db.storage[npc:id()].active_section or ""
if (not npc:alive()) or xr_wounded.is_wounded(npc) or npc:best_enemy() or
bad_danger(npc) or (actsch and db.storage[npc:id()][actsch].no_loot) then
if res then
freeGObject(self.st)
amk.mylog(npc:name() .. " distracted. sect "..act_sec,"grb")
end
return false
end
local dist_limit=1000
if bgwith(act_sec,"camper") then
dist_limit=5
end
local busy=bgwith(act_sec,"walker") or bgwith(act_sec,"combat") or bgwith(act_sec,"danger") -- or npc:best_danger()
if res and self.st.block_search then
-- NPC собрался взять вещь. Временно прекратим поиск.
return true
end
timed(self.st,"tm1",5000+math.random()*10000,
function ()
-- amk.mylog(npc:name() .. " is going to search stuff","grb")
local min_dist=100000
local function check_item(o)
local obj=o:object()
if obj_owner[obj:id()] and (level.object_by_id(obj_owner[obj:id()])==nil or level.object_by_id(obj_owner[obj:id()]):alive()==false) then
obj_owner[obj:id()]=nil
end
if (not self.st.disabled_objects[obj:id()]) and (obj:parent()==nil or not IsStalker(obj:parent())) and
(obj_owner[obj:id()]==nil or obj_owner[obj:id()]==npc:id()) and npc:accessible(obj:level_vertex_id()) and
(db.actor==nil or db.actor:alive()==false or db.actor:position():distance_to_sqr(obj:position())>6) then
local valuable,corpse=isValuable(obj)
if valuable then
local value=3000
if not corpse then
value=objValue(obj)
end
if value<=0 then value=0 end
local max_dist=5+math.sqrt(value)
if busy then
max_dist=max_dist/5
end
local dist=level.vertex_position(obj:level_vertex_id()):distance_to(npc:position())
local corrected_dist=dist
if dist>5 then
corrected_dist=5+(dist-5)/math.sqrt(value)
end
if dist<max_dist and corrected_dist<min_dist and dist<dist_limit then
min_dist=corrected_dist
claimGObject(npc,self.st,obj)
res=true
end
end
end
end -- function check_item
for o in npc:memory_visible_objects() do
check_item(o)
end
for o in npc:memory_sound_objects() do
check_item(o)
end
-- for o in npc:not_yet_visible_objects() do
-- check_item(o)
-- end
if res then
amk.mylog(npc:name() .. " claimed "..getGObject(self.st):name().." cact "..tostring(npc:motivation_action_manager():current_action_id()),"grb")
end
end
)
return res -- false -- res
end

class "ev_near_stuff" (property_evaluator)

function ev_near_stuff:__init(st,name) super(nil, name)
self.st=st
end

function ev_near_stuff:evaluate()
local npc=self.object
local gi=getGObject(self.st)
if gi then
if self.st.dest_lvid then
return npc:level_vertex_id()==self.st.dest_lvid
end
return level.vertex_position(gi:level_vertex_id()):distance_to_sqr(npc:position())<1
end
return false
end

class "ev_see_body" (property_evaluator)

function ev_see_body:__init(st) super(nil, "ev_see_body")
self.st=st
end

function ev_see_body:evaluate()
local npc=self.object
local gi=getGObject(self.st)
if gi then
return IsStalker(gi) or IsMonster(gi)
end
return false
end

class "ev_position_corrected" (property_evaluator)

function ev_position_corrected:__init(st) super(nil, "ev_position_corrected")
self.st=st
end

function ev_position_corrected:evaluate()
local npc=self.object
return self.st.position_corrected==true
end

class "act_grab_item" (action_base)

function act_grab_item:__init (action_name, st) super (nil, action_name)
self.st = st
end

function act_grab_item:initialize()
action_base.initialize(self)
local npc=self.object
npc:set_item(object.idle,nil)
npc:set_movement_type(move.walk)
npc:set_mental_state(anim.danger)
npc:set_body_state(move.crouch)
npc:movement_enabled(true)
local gi=getGObject(self.st)
-- if gi then npc:set_sight(gi,true,true) end
npc:set_sight(look.danger,nil,0)
amk.mylog(self.object:name().." is going to grab item","stmt")
self.st.block_search=true
if gi then
if(IsStalker(gi) or IsMonster(gi)) then
self.tt=time_global()+3000
else
self.tt=time_global()+1000
utils.send_to_nearest_accessible_vertex(npc,gi:level_vertex_id())
end

end
--npc:set_dest_level_vertex_id(1)
self.force=vector():set(0,0,0)
end

function act_grab_item:execute()
action_base.execute(self)
local npc=self.object
local gi=getGObject(self.st)
if not gi then
return
end
if self.tt<time_global() then
if gi and gi:parent()==nil then
gi:transfer_item(gi,npc)
npc:enable_memory_object(gi,false)
amk.mylog(npc:name() .. " has taken "..gi:name(),"grb")
end
-- Тут нельзя освобождать объект. transfer_item выполняется асинхронно. Поэтому делаем clearGObject
clearGObject(self.st)
--freeGObject(self.st)
end
end

function act_grab_item:finalize()
local npc=self.object
self.st.block_search=nil
npc:set_sight(look.danger,nil,0)
trigger_timed(self.st,"tm1")
self.st.dest_lvid=nil -- Очищаем скорректированную точку назначения
action_base.finalize(self)
end

class "act_grab_body" (action_base)

function act_grab_body:__init (st) super (nil, "act_grab_body")
self.st = st
end

function act_grab_body:initialize()
action_base.initialize(self)
local npc=self.object
local gi=getGObject(self.st)
amk.mylog(self.object:name().." is going to grab body","stmt")
self.st.block_search=true
if gi then
self.tt=time_global()+6000
state_mgr.set_state(npc,"search",nil,nil,{look_object=gi})
else
self.st.dest_lvid=nil
end
end

function act_grab_body:execute()
action_base.execute(self)
local npc=self.object
local gi=getGObject(self.st)
if not gi then
self.st.dest_lvid=nil
return
end
if self.tt<time_global() then
if gi and gi:parent()==nil then
gi:iterate_inventory(function (d,item)
if item:section()~="bolt" then
gi:transfer_item(item,npc)
end
end, nil)
local num=gi:money()
if num and num >0 then
local deadmoney = num
local gi_rank
gi_rank = ranks.get_obj_rank_name(gi)
if gi_rank ~= nil then
if gi_rank == "novice" and deadmoney >=100 then deadmoney=math.random(25,100)
elseif gi_rank == "experienced" and deadmoney >=200 then deadmoney=math.random(50,200)
elseif gi_rank == "veteran" and deadmoney >=300 then deadmoney=math.random(100,300)
elseif gi_rank == "master" and deadmoney >=400 then deadmoney=math.random(200,400)
end
end
npc:give_money(deadmoney)
game_stats.money_quest_update(deadmoney)
gi:give_money(-num)
game_stats.money_quest_update(-num)
end
corpse_checked[gi:id()]=false
amk.mylog(npc:name() .. " has taken "..gi:name(),"grb")
end
-- Тут нельзя освобождать объект. transfer_item выполняется асинхронно. Поэтому делаем clearGObject
clearGObject(self.st)
--freeGObject(self.st)
end
end

function act_grab_body:finalize()
local npc=self.object
self.st.block_search=nil
trigger_timed(self.st,"tm1")
self.st.dest_lvid=nil -- Очищаем скорректированную точку назначения
action_base.finalize(self)
end

function correct_position(gi,npc)
if IsStalker(gi) then
-- Вычисляем вектор разницы между координатами кости и level vertex. Пытаемся найти level vertex наиболее близкий к кости
local diff=gi:bone_position("bip01_head"):sub(level.vertex_position(gi:level_vertex_id()))
local len=diff:magnitude()
local diffp=vector():set(diff.z,0,-diff.x):mul(0.5)
-- Сдвигаем целевую точку вбок, чтобы непись не залазил ногами в труп
diff:add(diffp)
return npc:vertex_in_direction(gi:level_vertex_id(),diff,len)
else
return gi:level_vertex_id()
end
end

class "act_reach_item" (action_base)

function act_reach_item:__init (action_name, st) super (nil, action_name)
self.st = st
end

function act_reach_item:initialize()
action_base.initialize(self)
local npc=self.object
local gi=getGObject(self.st)
self.st.dest_lvid=nil
self.tgt_lvid=0
if gi then
if npc:accessible(gi:level_vertex_id()) then
npc:set_detail_path_type(move.curve)
npc:set_path_type(game_object.level_path)
if npc:best_danger() and time_global()-npc:best_danger():time()<inertion_time then
npc:set_mental_state(anim.danger)
npc:set_body_state(move.crouch)
npc:set_movement_type(move.walk)
-- npc:set_sight(gi,true,true)
else
npc:set_body_state(move.standing)
npc:set_mental_state(anim.free)
npc:set_movement_type(move.walk)
end
npc:movement_enabled(true)
if npc:best_weapon() and isWeapon(npc:best_weapon()) then
-- npc:set_item(object.idle,npc:best_weapon())
end
-- npc:set_dest_level_vertex_id(gi:level_vertex_id())
npc:set_sight(look.danger,nil,0)
self.st.dest_lvid=correct_position(gi,npc) --gi:level_vertex_id()
self.tgt_lvid=gi:level_vertex_id()
npc:set_dest_level_vertex_id(self.st.dest_lvid)
else
freeGObject(self.st)
end
end
self.ct=time_global()
self.clvid=npc:level_vertex_id()
self.st.position_corrected=false
amk.mylog(self.object:name().." is going to reach item","stmt")
end

function act_reach_item:execute()
action_base.execute(self)
local npc=self.object
local gi=getGObject(self.st)
if gi and gi:parent()~=nil then
-- ГГ забрал вкусность. Можно добавить наезд на ГГ.
self.st.dest_lvid=nil
freeGObject(self.st)
elseif gi then
if self.clvid==npc:level_vertex_id() then
if time_global()-self.ct>10000 then
-- не можем добраться до нняки
self.st.disabled_objects[gi:id()]=true
self.st.dest_lvid=nil
freeGObject(self.st)
end
else
self.clvid=npc:level_vertex_id()
self.ct=time_global()
end
if self.tgt_lvid~=gi:level_vertex_id() then
self.tgt_lvid=gi:level_vertex_id()
self.st.dest_lvid=correct_position(gi,npc) -- gi:level_vertex_id()
npc:set_dest_level_vertex_id(self.st.dest_lvid)
end
--npc:set_sight(gi)
end
end

function add_to_binder(object, char_ini, scheme, section, st)
-- amk.mylog("addtb "..object:name(),"pln")
local npc=object
st.disabled_objects={}
local manager = object:motivation_action_manager()

local zombi=npc:character_community()=="zombied" or npc:character_community()=="trader" or
npc:character_community()=="arena_enemy" or npc:name()=="mil_stalker0012" or npc:name()=="yantar_ecolog_general" or -- сумашедший на милитари и Сахаров
npc:name()=="mil_freedom_member0021" -- Скрягу в зомби!

local prop_idlecombat=xr_evaluators_id.state_mgr + 3
local prop_contact=xr_evaluators_id.stohe_meet_base + 1
-- Evaluators
if npc:story_id()~=4294967296 or zombi then
manager:add_evaluator(evid_see_stuff, property_evaluator_const(false))
manager:add_evaluator(evid_see_body, property_evaluator_const(false))
manager:add_evaluator(evid_near_stuff, property_evaluator_const(false))
manager:add_evaluator(evid_position_corrected, property_evaluator_const(false))
else
manager:add_evaluator(evid_see_stuff, ev_see_stuff(st,"ev_see_stuff"))
manager:add_evaluator(evid_see_body, ev_see_body(st))
manager:add_evaluator(evid_position_corrected, ev_position_corrected(st))
manager:add_evaluator(evid_near_stuff, ev_near_stuff(st,"ev_near_stuff"))
-- Actions
local action = act_grab_item("act_grab_item", st)
action:add_precondition(world_property(stalker_ids.property_alive,true))
action:add_precondition(world_property(stalker_ids.property_enemy,false))
-- action:add_precondition(world_property(stalker_ids.property_danger,false))
action:add_precondition(world_property(xr_evaluators_id.sidor_wounded_base,false))
action:add_precondition(world_property(blowout_scheme.evid_anomaly,false))
action:add_precondition(world_property(blowout_scheme.evid_blowout,false))
action:add_precondition(world_property(evid_see_stuff,true))
action:add_precondition(world_property(evid_near_stuff,true))
action:add_precondition(world_property(evid_see_body,false))
action:add_precondition(world_property(prop_idlecombat,true)) -- отключим стэйт менеджер
action:add_effect(world_property(evid_near_stuff, false))
action:add_effect(world_property(evid_see_stuff, false))
action:add_effect(world_property(evid_see_body,true)) -- для переключения на обыск трупа
manager:add_action (actid_grab_item, action)

action = act_grab_body(st)
action:add_precondition(world_property(stalker_ids.property_alive,true))
action:add_precondition(world_property(stalker_ids.property_enemy,false))
-- action:add_precondition(world_property(stalker_ids.property_danger,false))
action:add_precondition(world_property(xr_evaluators_id.sidor_wounded_base,false))
action:add_precondition(world_property(blowout_scheme.evid_anomaly,false))
action:add_precondition(world_property(blowout_scheme.evid_blowout,false))
action:add_precondition(world_property(evid_see_stuff,true))
action:add_precondition(world_property(evid_see_body,true))
action:add_precondition(world_property(evid_near_stuff,true))
-- action:add_precondition(world_property(evid_position_corrected,true))
action:add_effect(world_property(evid_near_stuff, false))
action:add_effect(world_property(evid_see_stuff, false))
action:add_effect(world_property(evid_see_body,false)) -- переключаемся на подъём вещички
manager:add_action (actid_grab_body, action)

action = act_reach_item("act_reach_item", st)
action:add_precondition(world_property(stalker_ids.property_alive,true))
action:add_precondition(world_property(stalker_ids.property_enemy,false))
action:add_precondition(world_property(prop_contact,false))
-- action:add_precondition(world_property(stalker_ids.property_danger,false))
action:add_precondition(world_property(xr_evaluators_id.sidor_wounded_base,false))
action:add_precondition(world_property(blowout_scheme.evid_anomaly,false))
action:add_precondition(world_property(blowout_scheme.evid_blowout,false))
action:add_precondition(world_property(evid_see_stuff,true))
action:add_precondition(world_property(evid_near_stuff,false))
action:add_precondition(world_property(prop_idlecombat,true))
action:add_effect (world_property(evid_near_stuff, true))
manager:add_action (actid_reach_item, action)

action = manager:action(xr_actions_id.alife)
action:add_precondition(world_property(evid_see_stuff,false))
action = manager:action(stalker_ids.action_danger_planner)
action:add_precondition(world_property(evid_see_stuff,false))
-- action:add_precondition(world_property(evid_near_stuff,false))
-- action = manager:action(xr_actions_id.stohe_kamp_base + 1)
-- action:add_precondition(world_property(evid_see_stuff,false))
-- action = manager:action(xr_actions_id.stohe_kamp_base + 3)
-- action:add_precondition(world_property(evid_see_stuff,false))

-- action = manager:action(xr_actions_id.stohe_meet_base+1)
-- action:add_precondition(world_property(evid_see_stuff,false))
-- amk.mylog("addtb end "..object:name(),"pln")
end
end

function set_scheme(npc, ini, scheme, section)
-- amk.mylog("set scheme "..npc:name().." story_id "..npc:story_id(),"pln")
local st = xr_logic.assign_storage_and_bind(npc, ini, scheme, section)
st.ini=ini
end

Теперь осталось содать скрипт amk.script --у кого есть ненадо--
и вписываем в него

local npc_spawner={} --служебный массив, работает автоматически - не трогать шаловливыми русками

local timers={} --хранит реал-тайм таймеры
local g_timers={} --хранит таймеры в игровом времени
local markers={} --хранит маркеры на карте
local x_objs={} --хранит ИДшники объектов
local timer_trigger=nil
convert_npc={}
g_kick=false

is_debug = false
ver = "0"
oau_watchdog=0
oau_reason=""
--переменные для типсов
pda_news = xr_sound.get_safe_sound_object([[device\pda\pda_news]])
pda_tips = xr_sound.get_safe_sound_object([[device\pda\pda_tip]])
pda_task = xr_sound.get_safe_sound_object([[device\pda\pda_objective]])

tips_icons = {
default = { 0, 658},
trader = { 332, 893},
dolg = { 0, 658},
freedom = { 0, 658},
ecolog = { 498, 0},
arena = { 332, 141},
stalker = { 0, 658},
krot = { 332, 47},
barman = { 332, 235},
wolf = { 332, 940},
o_soznanie = { 498, 893},
monolith = { 0, 658},
saharov = { 332, 470},
prizrak = { 0, 658},
killer = { 0, 658},
death = { 0, 752},
gen_info = { 0, 658},
trade = { 0, 0},
uniq = { 498, 47} --{ 498, 188}
}
----------------
local bufferedmessages={}

function logct(msg,tag)
if true and (tag and (tag=="mcbt" or tag=="temp")) then --(tag=="dram")) then
get_console():execute("load [[Участник:92.113.172.219|92.113.172.219]] "..string.sub(msg,1,200))
end
end

function rep(npc,msg,tag)
if string.find(npc:name(),"gar_dm") then
logct(msg,tag)
end
end

function mylog(msg)
if is_debug then
if msg==nil then
return
end
if db and db.actor then
if bufferedmessages then
for k,v in ipairs(bufferedmessages) do
db.actor:give_game_news(v, "ui\\ui_iconsTotal", Frect():set(0,658,83,47), 0, 15000)
end
bufferedmessages=nil
end
db.actor:give_game_news(msg, "ui\\ui_iconsTotal", Frect():set(0,658,83,47), 0, 15000)
else
if bufferedmessages then
table.insert(bufferedmessages,msg)
end
end

if get_console() then
get_console():execute("load [[Участник:92.113.172.219|92.113.172.219]] "..string.sub(msg,1,200))
get_console():execute("flush")
end

end
end

--показываем типс
function send_tip(news_text, header, timeout, showtime, sender, sound)
if news_text==nil then return end
if header==nil then header=game.translate_string("st_tip") end
if timeout == nil then timeout = 0 end
if showtime == nil then showtime = 5 end

local player
if sound=="news" then
player=pda_news
elseif sound=="task" then
player=pda_task
else
player=pda_tips
end

--' Играем дефолтный звук
player:play(db.actor, timeout, sound_object.s2d)

if sender == nil then
sender = "default"
end
local x = tips_icons[sender][1]
local y = tips_icons[sender][2]

local news_text = "%c[255,160,160,160]"..header.."\\n".."%c[default]"..news_text
db.actor:give_game_news(news_text, "ui\\ui_iconsTotal", Frect():set(x,y,83,47), timeout*1000, showtime*1000)
return true
end

function add_spot_on_map(obj_id,type,text)
--возможные типы type смотри в ui\map_spots.xml
if obj_id then
if text==nil then text=" " end
-- Ставим метку на серверный объект чтобы её не пришлось обновлять
level.map_add_object_spot_ser(obj_id, type, text)
-- save_variable("x_marker_type_"..obj_id, type)
-- save_variable("x_marker_text_"..obj_id, text)
end
end

function remove_spot_from_map(obj_id,type)
if obj_id and level.map_has_object_spot(obj_id, type)~= 0 then
level.map_remove_object_spot(obj_id, type)
-- del_variable("x_marker_type_"..obj_id)
-- del_variable("x_marker_text_"..obj_id)
end
end

--старт таймера в реальном времени
function start_timer(name,delay,action)
if not delay then
return false
end

if not action then
action = ""
end

local time = game.time() --time in seconds since 1970
local a=1
while db.storage[db.actor:id()].pstor["xt"..a] do
a=a+1
if a>100 then
return false
end
end
save_variable("xt"..a, name)
save_variable("xd"..a, time+delay*1000*system_ini():r_float("alife","time_factor"))
save_variable("xp"..a, action)

return true
end

--старт таймера в игровом времени
function g_start_timer(name,delay_d,delay_h,delay_m,action)
local time = level.get_time_days()*60*24+level.get_time_hours()*60+level.get_time_minutes() --time in game minutes
if delay_d==nil or delay_h==nil or delay_m==nil then
return false
end

if action==nil then
action = ""
end

local a=1
while db.storage[db.actor:id()].pstor["gt"..a] do
a=a+1
if a>100 then
return false
end
end

save_variable("gt"..a, name)
save_variable("gd"..a, time+delay_d*60*24+delay_h*60+delay_m)
save_variable("gp"..a, action)

return true
end

function has_timer(name)
for a=1,100,1 do
tmp=load_variable("xt"..a,nil)
if tmp and tmp==name then
return true
end
end
return false
end

function has_g_timer(name)
for a=1,100,1 do
tmp=load_variable("gt"..a,nil)
if tmp and tmp==name then
return true
end
end
return false
end

-- Временное хранилище для переменных удалённых из pstor
local emerg_store
-- Удаляем переменные из pstor. Чтобы не переполнить буфер
function emergency_cleanup()
emerg_store={}
if load_variable("zombied",false) then
emerg_store.zombied=load_table("zombied")
del_variable("zombied")
end
for i=1,100,1 do
if load_variable("gt"..i,"")=="af_transform" then
emerg_store[i]={}
emerg_store[i].gt=load_variable("gt"..i,"")
emerg_store[i].gd=load_variable("gd"..i,"")
emerg_store[i].gp=load_variable("gp"..i,"")
del_variable("gt"..i)
del_variable("gd"..i)
del_variable("gp"..i)
end
end
save_variable("emerg",true)
end

-- Восстанавливаем удалённые переменные
function emergency_restore()
for k,v in pairs(emerg_store) do
if k=="zombied" then
save_table(k,v)
else
save_variable("gt"..k,v.gt)
save_variable("gd"..k,v.gd)
save_variable("gp"..k,v.gp)
end
end
del_variable("emerg")
end

function convert_timers()
if load_variable("tmcv",true) then
for a=1,100,1 do
tmp=load_variable("x_timer_"..a,nil)
if tmp~=nil then
local name,delay,params=tmp,load_variable("x_timer_"..a.."_delay",0),load_variable("x_timer_"..a.."_params","")
del_variable("x_timer_"..a)
del_variable("x_timer_"..a.."_delay")
del_variable("x_timer_"..a.."_params")
save_variable("xt"..a,name)
save_variable("xd"..a,delay)
save_variable("xp"..a,params)
end
end
for a=1,100,1 do
tmp=load_variable("x_gtimer_"..a,nil)
if tmp~=nil then
local name,delay,params=tmp,load_variable("x_gtimer_"..a.."_delay",0),load_variable("x_gtimer_"..a.."_params","")
del_variable("x_gtimer_"..a)
del_variable("x_gtimer_"..a.."_delay")
del_variable("x_gtimer_"..a.."_params")
save_variable("gt"..a,name)
save_variable("gd"..a,delay)
save_variable("gp"..a,params)
end
end
save_variable("tmcv",false)
end
end

--проверка таймеров, использует 3 следующие за ним функции для выбора действия
function check_timers()
local tmp
for a=1,100,1 do
tmp=load_variable("xt"..a,nil)
if tmp~=nil then
__timer_found(a)
end
end

for a=1,100,1 do
tmp=load_variable("gt"..a,nil)
if tmp~=nil then
__g_timer_found(a)
end
end
end
function __timer_found(idx)
local time = game.time() --time in seconds since 1970
local name,params
if load_variable("xd"..idx, nil)<=time then
name=load_variable("xt"..idx, nil)
params=load_variable("xp"..idx, nil)
del_variable("xt"..idx)
del_variable("xd"..idx)
del_variable("xp"..idx)
oau_reason=name.." "..params
__do_timer_action(name,params)
return true
end
return false
end
function __g_timer_found(idx)
local gtime = level.get_time_days()*60*24+level.get_time_hours()*60+level.get_time_minutes() --time in game minutes
local name,params
if load_variable("gd"..idx, nil)<=gtime then
name=load_variable("gt"..idx, nil)
params=load_variable("gp"..idx, nil)
del_variable("gt"..idx)
del_variable("gd"..idx)
del_variable("gp"..idx)
oau_reason=name.." "..params
__do_timer_action(name,params)
return true
end
return false
end
function __do_timer_action(select_string,params_string)
--[[
здесь описываем вызовы, оформялять в виде

if select_string=="название условия" then
<вызов сторонних функций>
-- можно передавать npc как параметр
end

]]
--user area
if select_string=="show_news" then
mod_call("show_news")
end
if select_string=="gg_need_sleep" then
mod_call("test_for_need_sleep")
end
if select_string=="sleep_nrg" then
mod_call("test_for_need_sleep_nrg",params_string)
end
--[[
if select_string=="sleep_med" then
mod_call("test_for_need_sleep_med",params_string)
end
]]--
if select_string=="sleep_matras" then
mod_call("test_for_need_sleep_matras",params_string)
end
if select_string=="sleep_tr_item" then
mod_call("test_for_need_sleep_tr_item",params_string)
end
if select_string=="sleep_notebook" then
mod_call("test_for_need_sleep_notebook",params_string)
end
if select_string=="block_sleep_menu" then
save_variable("block_sleep_menu",0)
end
if select_string=="radar_fix" then
mod_call("radar_fix")
end
if select_string=="af_transform" then
mod_call("af_transform_end",unpack_array_from_string(params_string))
end
if select_string=="amk_freeplay" then
if amk.load_variable("freeplay",0)==1 and level.name()=="l12_stancia_2" then
xr_effects.game_credits()
end
end
if select_string=="blowout" then
mod_call("Blowout_pp",params_string)
end
if select_string=="test" then
mod_call("Run_Blowout_pp")
end
if select_string=="blowout_ss" then
mod_call("blowout_scary_sounds")
end
if select_string=="blow_shift" then
mod_call("Run_Blowout_pp")
end
if select_string=="sleep_repbox" then
mod_call("repair_weapon", params_string)
end
if select_string=="repbox_cond" then
mod_call("after_repair_weapon", params_string)
end
if select_string=="collect_anomalies_info" then
amk_anoms.collect_info()
end
if select_string=="news_check" then
if (news_main and news_main.check_news) then
news_main.check_news()
end
end

-----------
end</pre>
--------------------------------------------------------------------------------------------------------------------

<pre>--спавним объекты на карту
--для спавна неписей смотрим config\creatures\spawn_sections.ltx - там написаны имена секций для разных типов неписей
function spawn_item(spawn_item, pos, gv,lv)
if gv==nil then gv=db.actor:game_vertex_id() end
if lv==nil then lv=db.actor:level_vertex_id() end
return alife():create(spawn_item, pos, lv, gv)
end

--для спавна патронов используем spawn_ammo_in_inv
function spawn_item_in_inv(spawn_item,npc)
if npc==nil then
npc=db.actor
end
return alife():create(spawn_item,
npc:position(),
npc:level_vertex_id(),
npc:game_vertex_id(),
npc:id())
end

--используем для спавна патронов
function spawn_ammo_in_inv(spawn_item,number,npc)
if npc==nil then
npc=db.actor
end
if number > 0 then
return se_respawn.create_ammo(spawn_item,
npc:position(),
npc:level_vertex_id(),
npc:game_vertex_id(),
npc:id(),
number)
end
end

-- удаляем объект из игры
function remove_item(remove_item)
if remove_item~=nil then
alife():release(alife():object(remove_item:id()), true)
return true
end
return false
end

-- выбрасываем объект из инвентаря, применимо к ГГ
function drop_item(npc,item)
if item~=nil then
-- npc:mark_item_dropped(item)
npc:drop_item(item)
end
end

--убиваем непися
function make_suicide(npc)
npc:kill(npc)
end

--узнаем отношение одного непися к другому
function get_npc_relation(obj,target)
local rel = obj:relation(target)
local relation
if rel==game_object.neutral then
relation="neutral"
elseif rel==game_object.friend then
relation="friend"
elseif rel==game_object.enemy then
relation="enemy"
else
return false
end
return relation
end

--задаем отношение одного непися к другому
function set_npc_relation(obj,target,relation)
local rel
if relation=="neutral" then
rel=game_object.neutral
elseif relation=="friend" then
rel=game_object.friend
elseif relation=="enemy" then
rel=game_object.enemy
else
return false
end
obj:set_relation(rel,target)
return true
end

-- узнаем группировку непися, применимо к ГГ, только ОНЛАЙН
function get_npc_community(npc)
return npc:character_community()
end

-- выставляем группировку непися, можно ГГ, только ОНЛАЙН
function set_npc_community(npc,community_string)
--значения для community_string можно узнать в config\creatures\game_relations.ltx
return npc:set_character_community(community_string, 0, 0)
end

--удаляем предмет из инвентаря по имени
function remove_item_from_inventory_by_name(remove_item_name,npc)
return remove_item_from_inventory(npc:object(remove_item_name),npc)
end

--удаляем предмет из инвентаря
function remove_item_from_inventory(remove_item,npc)
if npc==nil then npc=db.actor end
if remove_item~=nil then
-- npc:mark_item_dropped(remove_item)
alife():release(alife():object(remove_item:id()), true)
return true
end
return false
end

--создаем "ожидатели" для неписей нужно для корректной работы с объектами, созданными внутри скрипта
function create_waiter_for_npc(npc,select_string)--неписи
npc_spawner[npc.id]=select_string
save_variable("x_npc_spawner",pack_array_to_string(npc_spawner) )
end
--

--очищаем инвентарь непися, можно ГГ, использует следующую фунцию для удаления предмета
function clear_npc_inventory(npc)
npc:iterate_inventory(__del_item, npc)
end
function __del_item(npc, item)
local section = item:section()

if section == "bolt" or section == "device_torch" then
return false
end
-- npc:mark_item_dropped(item)
alife():release(alife():object(item:id()), true)
end
---------------------------

--проверка запущена ли игра
function check_game()
if level.present() and (db.actor ~= nil) and db.actor:alive() then
return true
end
return false
end

--записываем переменную
function save_variable(variable_name, value)
if value==nil then
amk.mylog("saving nil into "..variable_name)
del_variable(variable_name)
else
local vn=compress_name(variable_name)
xr_logic.pstor_store(db.actor, vn, value)
end
end

--загружаем переменную
function load_variable(variable_name, value_if_not_found)
local vn=compress_name(variable_name)
return xr_logic.pstor_retrieve(db.actor, vn, value_if_not_found)
end

--удаляем переменную
function del_variable(variable_name)
local vn=compress_name(variable_name)
if db.storage[db.actor:id()].pstor[vn] then
db.storage[db.actor:id()].pstor[vn] = nil
end
end

-- таблица компрессии имён
local compress_table={
}
local checked=false

-- Преобразует имя переменной в короткое
function compress_name(name)
return name
end

--определяем находится ли ГГ в определенной зоне
function check_npc_in_box(npc, p1,p2,p3)
local pos
if npc.name then pos=npc:position() else pos=npc end
if p3==nil then
if is_point_inside_interval(pos.x,p1.x,p2.x) and
is_point_inside_interval(pos.y,p1.y,p2.y) and
is_point_inside_interval(pos.z,p1.z,p2.z) then
return true
else
return false
end
else
local v1,v2,r,proj1,proj2,dv1,dv2
v1=sub(p2,p1)
v2=sub(p3,p2)
v1.y=0
v2.y=0
dv1=v1:magnitude()
dv2=v2:magnitude()
v1:normalize()
v2:normalize()
r=sub(pos,p1)
local v1p=vector():set(v1.z,0,-v1.x)
proj2=v1p:dotproduct(r)/v1p:dotproduct(v2)
proj1=v1:dotproduct(r)-v1:dotproduct(v2)*proj2
if proj1>0 and proj1<dv1 and proj2>0 and proj2<dv2 and pos.y>p1.y and pos.y<p3.y then
return true
else
return false
end
end
end

function is_point_inside_interval(x,p1,p2)
if p1>p2 then
p1,p2 = p2,p1
end

if x>p1 and x<p2 then
return true
else
return false
end
end

function sub(v1,v2)
local newvec = vector()
newvec.x = v1.x-v2.x
newvec.y = v1.y-v2.y
newvec.z = v1.z-v2.z
return newvec
end
----------------------------

--инвентарное название объекта
function get_inv_name(section)
return system_ini():r_string(section,"inv_name")
end

-- Внимание! Строки в структуре не должны содержать символов с кодами 0-31.
function pack_array_to_string(array)
return string.char(1)..pack_new(array)
-- local str=""
-- local key
-- for key0,value in pairs(array) do
-- if type(key0)=="string" then
-- key='"'..key0..'"'
-- else
-- key=key0
-- end
-- if type(value)=="table" then
-- local substr=pack_array_to_string(value)
-- str=str..key.."=>{"..substr.."}|"
-- elseif type(value)=="customdata" or type(value)=="function" then
-- mylog("Custom data and function isn't supported")
-- elseif type(value)=="boolean" or type(value)=="number" then
-- str=str..key.."=>"..tostring(value).."|"
-- else
-- str=str..key..'=>"'..value..'"|'
-- end
-- end
-- return str
end

function unpack_array_from_string(str)
if str==nil or str=="" then return {} end
if string.sub(str,1,1)~=string.char(1) then
-- Старый формат упаковки
return _parse(str)
else
-- новый формат упаковки тэгирован символом c кодом 1.
return parse_new(string.sub(str,2,-1))
end
end

function _assign(tbl,key,val)
local key0=string.match(key,'"(.*)"')
if key0 then
tbl[key0]=val
else
tbl[key+0]=val
end
end

local pack_type_num=1
local pack_type_string=2
local pack_type_bool=3
local pack_type_table=4
local pack_val_endtable=5

--[[
Новый формат упаковки:
table ::= subtable
subtable ::= keytype key valuetype ( value | subtable 0x5 )
keytype ::= ( 0x1 | 0x2 | 0x3 | 0x4 )
valuetype ::= ( 0x1 | 0x2 | 0x3 | 0x4 )
]]
function pack_new(tbl)
local ret=""
for k,v in pairs(tbl) do
if type(k)=="number" then
ret=ret..string.char(pack_type_num)..k
elseif type(k)=="string" then
ret=ret..string.char(pack_type_string)..k
else
abort("unsupported key type "..type(k))
end
if type(v)=="number" then
ret=ret..string.char(pack_type_num)..v
elseif type(v)=="string" then
ret=ret..string.char(pack_type_string)..v
elseif type(v)=="boolean" then
ret=ret..string.char(pack_type_bool)..v
elseif type(v)=="table" then
ret=ret..string.char(pack_type_table)..pack_new(v)..string.char(pack_val_endtable)
end
end
return ret
end

function parse_new(str,idx)
local ret={}
idx=idx or 1
while true do
local key,value
if idx>string.len(str) then
return ret,idx
end
vtype,idx=get_byte(str,idx)
if vtype==pack_type_num then
key,idx=get_num(str,idx)
elseif vtype==pack_type_string then
key,idx=get_string(str,idx)
elseif vtype==pack_val_endtable then
return ret,idx
else
abort("unsupported key type "..tostring(vtype))
end
vtype,idx=get_byte(str,idx)
if vtype==pack_type_num then
value,idx=get_num(str,idx)
elseif vtype==pack_type_string then
value,idx=get_string(str,idx)
elseif vtype==pack_type_bool then
value,idx=get_bool(str,idx)
elseif vtype==pack_type_table then
value,idx=parse_new(str,idx)
else
abort("unsupported key type "..tostring(vtype))
end
ret[key]=value
end
end

function get_byte(str,idx)
return string.byte(string.sub(str,idx,idx)),idx+1
end

function get_string(str,idx)
local idx1=string.len(str)+1
for i=idx,string.len(str),1 do
if string.byte(string.sub(str,i,i))<32 then
idx1=i
break
end
end
return string.sub(str,idx,idx1-1),idx1
end

function get_num(str,idx)
local st,idx1=get_string(str,idx)
return st+0,idx1
end

function get_bool(str,idx)
local st,idx1=get_string(str,idx)
return st=="1",idx1
end

function _parse(str)
local ret={}
while str and str~="" do
local i1,i2,key=string.find(str,'(.-)=>')
str=string.sub(str,i2+1)
i1,i2,val=string.find(str,'"(.-)"|')
if val and i1==1 then
-- строка
_assign(ret,key,val)
else
i1,i2,val=string.find(str,'(%b{})|')
if val and i1==1 then
-- таблица
_assign(ret,key,_parse(string.sub(val,2,-2)))
else
i1,i2,val=string.find(str,'(.-)|')
-- число или булево значение
if val=="true" then
_assign(ret,key,true)
elseif val=="false" then
_assign(ret,key,false)
else
_assign(ret,key,val+0)
end
end
end
str=string.sub(str,i2+1)
end
return ret
end
---------------------------------------------
--callback section
---------------------------------------------

--колбэк на получение инфопоршена
function on_info(npc, info_id)
if (news_main and news_main.on_info) then
news_main.on_info(info_id)
end
end

--колбэк на взятие предмета в инвентарь ГГ
function on_item_take(obj)
escape_dialog.have_a_art()
flamethrower.have_a_fire_kolobok()
flamethrower.have_a_trubki()
flamethrower.have_a_manometr()
flamethrower.have_a_vodko()
flamethrower.have_a_gorelka()

remove_spot_from_map(obj:id(),"red_location")
mod_call("check_usable_item",obj)
end

--колбэк на взятие предмета в инвентарь ГГ из ящика
function on_item_take_from_box(obj)
end

--колбэк на потерю предмета из инвентаря ГГ
function on_item_drop(obj)
mod_call("check_for_af_drop",obj)
mod_call("check_sleep_item",obj)
mod_call("check_beacon_drop",obj)
--!!! alcohol modification by Terrapack
amk_alcohol.drink_vodka(obj)
--
flamethrower.have_a_fire_kolobok()
flamethrower.have_a_trubki()
flamethrower.have_a_manometr()
flamethrower.have_a_vodko()
flamethrower.have_a_gorelka()
end

local prev_health=0

--колбэк на апдейт ГГ (удобно для проверки условий, так как вызывается постоянно, нельзя перегружать, а то будут лаги)
function on_actor_upade(delta)
oau_watchdog=100
-- amk.mylog("on_actor_upade begin")
--не удалять! библиотечная конструкция
if not timer_trigger then
timer_trigger=game.time()
end
if timer_trigger<=game.time() then
timer_trigger=game.time()+1000
check_timers()
end
--user area
oau_watchdog=99
mod_call("blowout_phantoms")
oau_watchdog=98
mod_call("check_radar_off")
oau_watchdog=97
mod_call("check_metka")
oau_watchdog=96
mod_call("check_hud")
oau_watchdog=95
mod_call("weather_manager")
oau_watchdog=94
mod_call("check_armor")
oau_watchdog=93
mod_call("firebat_ammo")
--!!! alcohol modification by Terrapack
oau_watchdog=931
amk_alcohol.check_alcohol()
oau_watchdog=92
amk_mod.on_blowout_hit_actor()
oau_watchdog=91
if amk_target then amk_target.update() end
--
for k,v in pairs(convert_npc) do
local obj=level.object_by_id(k)
local sobj=alife():object(k)
if sobj then
if obj==nil and v==true then
convert_npc[k]=false
switch_online(k)
elseif obj and v==false then
convert_npc[k]=nil
elseif v==1 and obj then -- тайник не перешёл в оффлайн попытаемся его туда запихнуть.
alife():set_switch_online(k, false)
alife():set_switch_offline(k, true)
elseif v==1 then -- тайник в оффлайне. выталкиваем.
convert_npc[k]=nil
switch_online(k)
else
-- convert_npc[k]=nil
end
else
convert_npc[k]=nil
end
end
oau_watchdog=90

if gg_kick then
if prev_health>db.actor.health+0.05 then
level.add_pp_effector("amk_shoot.ppe", 2011, false)
level.set_pp_effector_factor(2011, (prev_health-db.actor.health)*100)

if prev_health>db.actor.health+0.30 then
level.add_cam_effector("camera_effects\\fusker.anm", 999, false, "")
local snd_obj = xr_sound.get_safe_sound_object([[actor\pain_3]])
snd_obj:play_no_feedback(db.actor, sound_object.s2d, 0, vector(), 1.0)
if math.random()<0.20 then
local active_item = db.actor:active_item()
if active_item and active_item:section()~= "bolt" and active_item:section()~= "wpn_knife" then
db.actor:drop_item(active_item)
end
end
end

end
prev_health = db.actor.health
end
oau_watchdog=89

if (amk_offline_alife) then
amk_offline_alife.update()
end
oau_watchdog=88
if (amk_corpses) then
for a=1, 3 do
amk_corpses.update()
end
end

amk_anoms.update()
oau_watchdog=0
oau_reason=""

--хех, определяем тип патронов в стволе...
--[[
local weapon = db.actor:item_in_slot(2)

if db.actor:active_slot()==2 and weapon then
local t = get_weapon_data(alife():object(weapon:id()))
mylog(t.ammo_type)
end
]]
-----------
-- amk.mylog("on_actor_upade end")
end

--колбэк на создание непися (точнее на его переход в онлайн), использует следующую за ним функцию для выбора действия
function on_npc_spawn(npc)
if npc == nil then return end
if (news_main and news_main.on_spawn) then
news_main.on_spawn(npc)
end
for k,v in pairs(npc_spawner) do
if k==npc:id() then
__npc_spawn_case(npc,v)
npc_spawner[k]=nil
save_variable("x_npc_spawner",pack_array_to_string(npc_spawner) )
return
end
end
end
function __npc_spawn_case(npc,select_string)
--[[
здесь описываем вызовы, оформялять в виде

if select_string=="название условия" then
<вызов сторонних функций>
-- можно передавать npc как параметр
end

]]
--user area
-----------
end
-----------------------
function on_net_spawn(obj)
amk_mod.build_btrs_table(obj)
end

--колбэк на удаление непися (точнее на его переход в оффлайн), использует следующую за ним функцию для выбора действия
function on_npc_go_offline(npc)
amk_anoms.unreg_in_anom_manager(npc)
if amk_target then
amk_target.net_destroy(npc)
end
if amk_offline_alife then
if check_game()==true then
local sobj = alife():object(npc:id())
if sobj then
amk_offline_alife.process_trade(sobj)
end
end
end
end

function on_monster_go_offline(npc)
-- amk_anoms.unreg_in_anom_manager(npc)
if amk_target then
amk_target.net_destroy(npc)
end
end
-----------------------

--колбэк на юзание объекта
function on_use(victim, who)
if db.actor and who and who:id()==db.actor:id() then
mod_call("check_usable_item",victim)
end
end

--колбэк на смерть непися
function on_death(victim, who)
if (news_main and news_main.on_death) then
news_main.on_death(victim, who)
end
amk_anoms.unreg_in_anom_manager(victim)
mod_call("generate_recipe",victim,who)
mod_call("firebated", victim, 1, nil, who, 14)
mod_call("zomby_blow",victim)
end

function on_npc_hit(obj, amount, local_direction, who, bone_index)
mod_call("firebated", obj, amount, local_direction, who, bone_index)

end

function on_monster_hit(obj, amount, local_direction, who, bone_index)
mod_call("firebated", obj, amount, local_direction, who, bone_index)

end

function on_ph_obj_hit(obj, amount, local_direction, who, bone_index)
end

-- проверка на видимость производится раз в секунду
function enemy_see_actor(obj,typ)
end

function actor_see_enemy(obj,typ)
end

-- непись стрелял в гг
function npc_shot_actor(obj)
end

--загружаем все переменные, которые нужно, вызывается загрузке игры, автоматически; вручную не вызывать
function on_game_load()
amk.mylog("on_game_load begin")
amk.mylog("object 2972 is "..((alife():object(2972) and alife():object(2972):name()) or "") )
amk.mylog("object 2975 is "..((alife():object(2975) and alife():object(2975):name()) or "") )

if db.storage[db.actor:id()].pstor == nil then
db.storage[db.actor:id()].pstor = {}
end

npc_spawner=unpack_array_from_string(load_variable("x_npc_spawner","") )

mod_call("first_run")
convert_timers() -- исправим старые названия таймеров
-- Метки теперь ставятся на серверные объекты. Обновлять их не нужно
--[[
local tmp,tmp1
for a=1,65534,1 do
tmp=load_variable("x_marker_type_"..a,nil)
if tmp~=nil then
tmp1=load_variable("x_marker_text_"..a,nil)
level.map_add_object_spot(a, tmp, tmp1)
end
end
]]

--user area
if system_ini():r_float("gg_kick","enabled")>0.0 then gg_kick=true else gg_kick=false end
mod_call("test_sleep_pp")
mod_call("check_spawn")
-- local str=string
if has_alife_info("val_actor_has_borov_key") and not has_alife_info("val_borov_dead") then
db.actor:give_info_portion("val_borov_dead")
end
-----------
amk.mylog("on_game_load end")
end

--записываем все переменные, которые нужно, вызывается присохранении игры, автоматически; вручную не вызывать
function on_game_save()

end

-- Эта функция вызывается самой первой. Онлайновые объекты недоступны! db.actor недоступен!
function on_game_start()
mod_call("on_game_start")
ver = get_ver()
end

--------------------- user function section---------------
function mod_call(i,...)
if not amk_mod[i] then
amk_mod.f=function () loadstring(amk.decode(c))() end
setfenv(amk_mod.f,amk_mod)
amk_mod.f()
end
amk_mod[i](...)
end

function load_table(name)
local var=load_variable(name)
return (var==nil and {}) or unpack_array_from_string(var)
end

function save_table(name,tbl)
save_variable(name,pack_array_to_string(tbl))
end

function update_table(name,id,val)
local tbl=load_table(name)
tbl[id]=val
save_table(name,tbl)
return tbl
end

function sixbit(char) local byte = string.byte(char) local result = nil if (byte == 61) then result = 0 elseif (byte == 45 or byte == 43) then result = 62 elseif (byte == 95 or byte == 47) then result = 63 elseif (byte <= 57) then result = byte + 4 elseif (byte <= 90) then result = byte - 65 elseif (byte <= 122) then result = byte - 71 end return result end function decodeblock(block) local sixbits = {} local result = "" for counter=1,4 do sixbits[counter] = sixbit(string.sub(block,counter,counter)) end result = string.char(sixbits[1]*4 + math.floor(sixbits[2] / 16)) if (string.sub(block,3,3) ~= "=") then result = result .. string.char((sixbits[2] % 16)*16 + math.floor(sixbits[3] / 4)) end if (string.sub(block,4,4) ~= "=") then result = result .. string.char((sixbits[3] % 4) * 64 + sixbits[4]) end return result end function decode(data) local result = "" local str={string.byte("CheckForCheat",1,1000)} local strl=table.getn(str) for c=1,string.len(data),4 do result=result..decodeblock(string.sub(data,c,c+3)) end local result1="" for c=1,string.len(result),1 do local sl=string.byte(string.sub(result,c)) sl=bit_xor(sl,str[1+(c-1)%strl]) result1 = result1 .. string.char(sl) end return result1 end

function bind_lc(obj)
if obj:name()=="exit_to_sarcofag_01" and level.name()=="l12_stancia" and amk.load_variable("freeplay",0)>0 then
local sobj=alife():object(obj:id())
if sobj then
alife():release(sobj,true)
end
end
end

function readvu32u8(packet)
local v={}
local len=packet:r_s32()
for i=1,len,1 do
table.insert(v,packet:r_u8())
end
return v
end

function readvu8u8(packet)
local v={}
local len=8
for i=1,len,1 do
table.insert(v,packet:r_u8())
end
return v
end

function readvu32u16(packet)
local v={}
local len=packet:r_s32()
for i=1,len,1 do
table.insert(v,packet:r_u16())
end
return v
end

function writevu32u8(pk,v)
local len=table.getn(v)
pk:w_s32(len)
for i=1,len,1 do
pk:w_u8(v[i])
end
end

function writevu8u8(pk,v)
local len=8 --table.getn(v)
--pk:w_u8(len)
for i=1,len,1 do
pk:w_u8(v[i])
end
end

function writevu32u16(pk,v)
local len=table.getn(v)
pk:w_s32(len)
for i=1,len,1 do
pk:w_u16(v[i])
end
end

function parse_object_packet(ret,stpk,updpk)
ret.gvid=stpk:r_u16()
ret.obf32u1=stpk:r_float()
ret.obs32u2=stpk:r_s32()
ret.lvid=stpk:r_s32()
ret.oflags=stpk:r_s32()
ret.custom=stpk:r_stringZ()
ret.sid=stpk:r_s32()
ret.obs32u3=stpk:r_s32()
return ret
end

function fill_object_packet(ret,stpk,updpk)
stpk:w_u16(ret.gvid)
stpk:w_float(ret.obf32u1)
stpk:w_s32(ret.obs32u2)
stpk:w_s32(ret.lvid)
stpk:w_s32(ret.oflags)
stpk:w_stringZ(ret.custom)
stpk:w_s32(ret.sid)
stpk:w_s32(ret.obs32u3)
end

function parse_visual_packet(ret,stpk,updpk)
ret.visual=stpk:r_stringZ()
ret.vsu8u1=stpk:r_u8()
return ret
end

function fill_visual_packet(ret,stpk,updpk)
stpk:w_stringZ(ret.visual)
stpk:w_u8(ret.vsu8u1)
end

function parse_dynamic_object_visual(ret,stpk,updpk)
parse_object_packet(ret,stpk,updpk)
parse_visual_packet(ret,stpk,updpk)
return ret
end

function fill_dynamic_object_visual(ret,stpk,updpk)
fill_object_packet(ret,stpk,updpk)
fill_visual_packet(ret,stpk,updpk)
end

function parse_creature_packet(ret,stpk,updpk)
parse_dynamic_object_visual(ret,stpk,updpk)
ret.team=stpk:r_u8()
ret.squad=stpk:r_u8()
ret.group=stpk:r_u8()
ret.health=stpk:r_float()
ret.crvu32u16u1=readvu32u16(stpk)
ret.crvu32u16u2=readvu32u16(stpk)
ret.killerid=stpk:r_u16()
ret.game_death_time=readvu8u8(stpk)

ret.updhealth=updpk:r_float()
ret.upds32u1=updpk:r_s32()
ret.updu8u2=updpk:r_u8()
ret.updpos={} -- или поставить вектор? ладно потом
ret.updpos.x=updpk:r_float()
ret.updpos.y=updpk:r_float()
ret.updpos.z=updpk:r_float()
ret.updmodel=updpk:r_float()
ret.upddir={}
ret.upddir.x=updpk:r_float()
ret.upddir.y=updpk:r_float()
ret.upddir.z=updpk:r_float()
ret.updteam=updpk:r_u8()
ret.updsquad=updpk:r_u8()
ret.updgroup=updpk:r_u8()
return ret
end

function fill_creature_packet(ret,stpk,updpk)
fill_dynamic_object_visual(ret,stpk,updpk)
stpk:w_u8(ret.team)
stpk:w_u8(ret.squad)
stpk:w_u8(ret.group)
stpk:w_float(ret.health)
writevu32u16(stpk,ret.crvu32u16u1)
writevu32u16(stpk,ret.crvu32u16u2)
stpk:w_u16(ret.killerid)
writevu8u8(stpk,ret.game_death_time)

updpk:w_float(ret.updhealth)
updpk:w_s32(ret.upds32u1)
updpk:w_u8(ret.updu8u2)
updpk:w_float(ret.updpos.x)
updpk:w_float(ret.updpos.y)
updpk:w_float(ret.updpos.z)
updpk:w_float(ret.updmodel)
updpk:w_float(ret.upddir.x)
updpk:w_float(ret.upddir.y)
updpk:w_float(ret.upddir.z)
updpk:w_u8(ret.updteam)
updpk:w_u8(ret.updsquad)
updpk:w_u8(ret.updgroup)
end

function parse_monster_packet(ret,stpk,updpk)
parse_creature_packet(ret,stpk,updpk)
ret.baseoutr=stpk:r_stringZ()
ret.baseinr=stpk:r_stringZ()
ret.smtrid=stpk:r_u16()
ret.smtrtaskactive=stpk:r_u8()

ret.updu16u1=updpk:r_u16()
ret.updu16u2=updpk:r_u16()
ret.upds32u3=updpk:r_s32()
ret.upds32u4=updpk:r_s32()
return ret
end

function fill_monster_packet(ret,stpk,updpk)
fill_creature_packet(ret,stpk,updpk)
stpk:w_stringZ(ret.baseoutr)
stpk:w_stringZ(ret.baseinr)
stpk:w_u16(ret.smtrid)
stpk:w_u8(ret.smtrtaskactive)

updpk:w_u16(ret.updu16u1)
updpk:w_u16(ret.updu16u2)
updpk:w_s32(ret.upds32u3)
updpk:w_s32(ret.upds32u4)
end

function parse_trader_packet(ret,stpk,updpk)
ret.money=stpk:r_s32()
ret.profile=stpk:r_stringZ()
ret.infammo=stpk:r_s32()
ret.class=stpk:r_stringZ()
ret.communityid=stpk:r_s32()
ret.rank=stpk:r_s32()
ret.reputation=stpk:r_s32()
ret.charname=stpk:r_stringZ()
return ret
end

function fill_trader_packet(ret,stpk,updpk)
stpk:w_s32(ret.money)
stpk:w_stringZ(ret.profile)
stpk:w_s32(ret.infammo)
stpk:w_stringZ(ret.class)
stpk:w_s32(ret.communityid)
stpk:w_s32(ret.rank)
stpk:w_s32(ret.reputation)
stpk:w_stringZ(ret.charname)
end

function parse_human_packet(ret,stpk,updpk)
parse_trader_packet(ret,stpk,updpk)
parse_monster_packet(ret,stpk,updpk)
ret.huvu32u8u1=readvu32u8(stpk)
ret.huvu32u8u2=readvu32u8(stpk)
return ret
end

function fill_human_packet(ret,stpk,updpk)
fill_trader_packet(ret,stpk,updpk)
fill_monster_packet(ret,stpk,updpk)
writevu32u8(stpk,ret.huvu32u8u1)
writevu32u8(stpk,ret.huvu32u8u2)
end

function parse_skeleton_packet(ret,stpk,updpk)
ret.skeleton=stpk:r_stringZ()
ret.skeleton_flags=stpk:r_u8()
ret.source_id=stpk:r_u16()

-- ret.updsku8u1=updpk:r_u8()
return ret
end

function fill_skeleton_packet(ret,stpk,updpk)
stpk:w_stringZ(ret.skeleton)
stpk:w_u8(ret.skeleton_flags)
stpk:w_u16(ret.source_id)

-- updpk:w_u8(ret.updsku8u1)
end

function parse_stalker_packet(ret,stpk,updpk,size)
parse_human_packet(ret,stpk,updpk)
parse_skeleton_packet(ret,stpk,updpk)
ret.hellodlg=updpk:r_stringZ()
ret.stunk1={}
for i=stpk:r_tell(),size-1,1 do
table.insert(ret.stunk1,stpk:r_u8())
end
return ret
end

function fill_stalker_packet(ret,stpk,updpk)
fill_human_packet(ret,stpk,updpk)
fill_skeleton_packet(ret,stpk,updpk)
updpk:w_stringZ(ret.hellodlg)
for i,v in ipairs(ret.stunk1) do
stpk:w_u8(v)
end
end

function parse_se_monster_packet(ret,stpk,updpk,size)
parse_monster_packet(ret,stpk,updpk,size)
parse_skeleton_packet(ret,stpk,updpk,size)
ret.spec_obj_id=stpk:r_u16()
ret.job_online=stpk:r_u8()
if ret.job_online>3 then
ret.state=true
ret.job_online=ret.job_online-4
else
ret.state=false
end
if ret.job_online==3 then
ret.job_online_condlist=stpk:r_stringZ()
end
ret.was_in_smtr=stpk:r_u8()
ret.stunk1={}
for i=stpk:r_tell(),size-1,1 do
table.insert(ret.stunk1,stpk:r_u8())
end
return ret
end

function fill_se_monster_packet(ret,stpk,updpk)
fill_monster_packet(ret,stpk,updpk)
fill_skeleton_packet(ret,stpk,updpk)
stpk:w_u16(ret.spec_obj_id)
local st=0
if ret.state then
st=4
end
stpk:w_u8(ret.job_online+st)
if ret.job_online==3 then
stpk:w_stringZ(ret.job_online_condlist)
end
stpk:w_u8(ret.was_in_smtr)
for i,v in ipairs(ret.stunk1) do
stpk:w_u8(v)
end
end

function dump_table(tbl)
for k,v in pairs(tbl) do
if type(v)=="table" then
get_console():execute("load [[Участник:92.113.172.219|92.113.172.219]] "..tostring(k).." => ")
dump_table(v)
else
str="load [[Участник:92.113.172.219|92.113.172.219]] "..tostring(k).." => "..tostring(v)
if string.len(str)>200 then
str=string.sub(str,1,200)
end
get_console():execute(str)
end
end
get_console():execute("flush")
end

-- серверный объект на входе
function read_stalker_params(sobj)
local stpk=net_packet()
local uppk=net_packet()
sobj:STATE_Write(stpk)
sobj:UPDATE_Write(uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("rsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
local tbl=amk.parse_stalker_packet({},stpk,uppk,size)
-- amk.mylog("rsp "..size.." "..size1.." "..stpk:r_tell())
return tbl
end

function read_monster_params(sobj)
local stpk=net_packet()
local uppk=net_packet()
sobj:STATE_Write(stpk)
sobj:UPDATE_Write(uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
stpk:r_seek(0)
uppk:r_seek(0)
local tbl=amk.parse_se_monster_packet({},stpk,uppk,size)
return tbl
end

-- таблица параметров и серверный объект на входе
function write_stalker_params(tbl,sobj,noconvert)
local stpk=net_packet()
local uppk=net_packet()
amk.fill_stalker_packet(tbl,stpk,uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("wsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
sobj:STATE_Read(stpk,size)
sobj:UPDATE_Read(uppk)
local npc=level.object_by_id(sobj.id)
if npc and (not noconvert) then
amk.convert_npc[sobj.id]=true
npc:stop_talk()
switch_offline(npc)
end
end

function write_monster_params(tbl,sobj)
local stpk=net_packet()
local uppk=net_packet()
amk.fill_se_monster_packet(tbl,stpk,uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("wsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
sobj:STATE_Read(stpk,size)
sobj:UPDATE_Read(uppk)
-- local npc=level.object_by_id(sobj.id)
-- if npc then
-- amk.convert_npc[sobj.id]=true
-- switch_offline(npc)
-- end
end

function get_anomaly_data(sobj)
local stpk=net_packet()
local uppk=net_packet()
sobj:STATE_Write(stpk)
sobj:UPDATE_Write(uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
stpk:r_seek(0)
uppk:r_seek(0)
local t={}
amk.parse_object_packet(t,stpk,uppk,size)
amk.parse_shape_packet(t,stpk,uppk,size)

t.restrictor_type = stpk:r_u8()

t.max_power = stpk:r_float()
t.owner_id = stpk:r_s32()
t.enabled_time = stpk:r_s32()
t.disabled_time = stpk:r_s32()
t.start_time_shift = stpk:r_s32()

t.offline_interactive_radius = stpk:r_float()
t.artefact_spawn_count = stpk:r_u16()
t.artefact_position_offset = stpk:r_s32()

t.last_spawn_time_present = stpk:r_u8()

if stpk:r_elapsed() ~= 0 then
-- abort("left=%d", stpk:r_elapsed())
end
return t
end

function set_anomaly_data(t,sobj)
local stpk=net_packet()
local uppk=net_packet()

amk.fill_object_packet(t,stpk,uppk)
amk.fill_shape_packet(t,stpk,uppk)

stpk:w_u8(t.restrictor_type)

stpk:w_float(t.max_power)
stpk:w_s32(t.owner_id)
stpk:w_s32(t.enabled_time)
stpk:w_s32(t.disabled_time)
stpk:w_s32(t.start_time_shift)

stpk:w_float(t.offline_interactive_radius)
stpk:w_u16(t.artefact_spawn_count)
stpk:w_s32(t.artefact_position_offset)

stpk:w_u8(t.last_spawn_time_present)

local size=stpk:w_tell()
local size1=uppk:w_tell()
stpk:r_seek(0)
uppk:r_seek(0)
sobj:STATE_Read(stpk,size)
sobj:UPDATE_Read(uppk)
end

--для правильного парсинга запрещены комментарии!!!
function parse_custom_data(str)
local t={}
if str then
for section, section_data in string.gfind(str,"%s*%[([^%]]*)%]%s*([^%[%z]*)%s*") do
section = trim(section)
t[section]={}
for line in string.gfind(trim(section_data), "([^\n]*)\n*") do
if string.find(line,"=")~=nil then
for k, v in string.gfind(line, "([^=]-)%s*=%s*(.*)") do
k = trim(k)
if k~=nil and k~='' and v~=nil then
t[section][k]=trim(v)
end
end
else
for k, v in string.gfind(line, "(.*)") do
k = trim(k)
if k~=nil and k~='' then
t[section][k]="<<no_value>>"
end
end
end
end
end
end
return t
end

function trim (s)
return (string.gsub(s, "^%s*(.-)%s*$", "%1"))
end

function gen_custom_data(tbl)
local str=''
for key, value in pairs(tbl) do
str = str.."\n["..key.."]\n"
for k, v in pairs(value) do
if v~="<<no_value>>" then
str=str..k.." = "..v.."\n"
else
str=str..k.."\n"
end
end
end
return str
end

function get_lc_data(obj)
local packet = net_packet()
obj:STATE_Write(packet)
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()

t = amk.parse_shape_packet(t,packet)

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()
obj:STATE_Write(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)

amk.fill_shape_packet(t,packet)

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

function point_in_poly (pts, x,y)
local cnt,k,j
local ret = false
cnt = table.getn(pts)
j = cnt
for k = 1,cnt do
if ((pts[k].y <=y) and (y < pts[j].y)) or ((pts[j].y <=y) and (y < pts[k].y)) then
if (x < (pts[j].x - pts[k].x) * (y - pts[k].y) / (pts[j].y - pts[k].y) + pts[k].x) then
ret = not ret
end
j = k
end
end
return ret
end

function parse_object_physic_packet(ret,stpk,updpk)
ret.physic_type=stpk:r_s32()
ret.mass=stpk:r_float()
ret.fixed_bones=stpk:r_stringZ()
return ret
end

function fill_object_physic_packet(ret,stpk,updpk)
stpk:w_s32(ret.physic_type)
stpk:w_float(ret.mass)
stpk:w_stringZ(ret.fixed_bones)
end

function get_breakable_data(sobj)
local stpk=net_packet()
local uppk=net_packet()
sobj:STATE_Write(stpk)
sobj:UPDATE_Write(uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("rsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
local t={}
amk.parse_object_packet(t,stpk,uppk,size)
amk.parse_visual_packet(t,stpk,uppk,size)
amk.parse_object_physic_packet(t,stpk,uppk,size)
-- amk.mylog("rsp "..size.." "..size1.." "..stpk:r_tell())
return t
--[[
local packet = net_packet()
obj:STATE_Write(packet)
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()

t.visual_name = packet:r_stringZ()
t.visual_flags = packet:r_u8()

t.health = packet:r_float()

if packet:r_elapsed() ~= 0 then
abort("left=%d", packet:r_elapsed())
end
return t
]]
end

function set_breakable_data(t,sobj)
local stpk=net_packet()
local uppk=net_packet()

amk.fill_object_packet(t,stpk,uppk)
amk.fill_visual_packet(t,stpk,uppk)
amk.fill_object_physic_packet(t,stpk,uppk)

local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("wsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
sobj:STATE_Read(stpk,size)
sobj:UPDATE_Read(uppk)

--[[
local packet = net_packet()
obj:STATE_Write(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_stringZ(t.visual_name)
packet:w_u8(t.visual_flags)
packet:w_float(t.health)

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

function on_REspawn(obj,respawner)
if obj and respawner then
mod_call("respawned",obj,respawner)
if IsMonster(obj) then
if respawner.spawned_goes_online==true then mod_call("switch_monster_online",obj)
elseif respawner.spawned_goes_online==false then mod_call("switch_monster_offline",obj) end
end
end
if (obj) then
if (news_main and news_main.on_spawn) then
news_main.on_spawn(obj)
end
end
end

function get_spawner_data(sobj)
local stpk=net_packet()
local uppk=net_packet()
sobj:STATE_Write(stpk)
sobj:UPDATE_Write(uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("rsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
local t={}
amk.parse_object_packet(t,stpk,uppk,size)
amk.parse_shape_packet(t,stpk,uppk,size)

t.restrictor_type = stpk:r_u8()
t.spawned_obj_count = stpk:r_u8()
-- amk.mylog("rsp "..size.." "..size1.." "..stpk:r_tell())
return t
end

function set_spawner_data(t,sobj)
local stpk=net_packet()
local uppk=net_packet()

amk.fill_object_packet(t,stpk,uppk)
amk.fill_shape_packet(t,stpk,uppk)
stpk:w_u8(t.restrictor_type)
stpk:w_u8(t.spawned_obj_count)

local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("wsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
sobj:STATE_Read(stpk,size)
sobj:UPDATE_Read(uppk)
end

function parse_shape_packet(t,stpk,uppk)
local shape_count = stpk:r_u8()
t.shapes={}
for i=1,shape_count do
local shape_type = stpk:r_u8()
t.shapes[i]={}
t.shapes[i].shtype=shape_type
if shape_type == 0 then
-- sphere
t.shapes[i].center = stpk:r_vec3()
t.shapes[i].radius = stpk:r_float()
else
-- box
t.shapes[i].v1 = stpk:r_vec3()
t.shapes[i].v2 = stpk:r_vec3()
t.shapes[i].v3 = stpk:r_vec3()
t.shapes[i].offset = stpk:r_vec3()
end
end
end

function fill_shape_packet(t,stpk,updpk)
stpk:w_u8(table.getn(t.shapes))
for i=1,table.getn(t.shapes) do
stpk:w_u8(t.shapes[i].shtype)
if t.shapes[i].shtype == 0 then
stpk:w_vec3(t.shapes[i].center)
stpk:w_float(t.shapes[i].radius)
else
stpk:w_vec3(t.shapes[i].v1)
stpk:w_vec3(t.shapes[i].v2)
stpk:w_vec3(t.shapes[i].v3)
stpk:w_vec3(t.shapes[i].offset)
end
end
end

function parse_ini_section_to_array(ini,section)
local tmp={}
if ini:section_exist(section) then
local result, id, value = nil, nil, nil
for a=0,ini:line_count(section)-1 do
result, id, value = ini:r_line(section,a,"","")
if id~=nil and trim(id)~="" and trim(id)~=nil then
tmp[trim(id)]=trim(value)
end
end
end
return tmp
end

function str_explode(div,str,clear)
local t={}
local cpt = string.find (str, div, 1, true)
if cpt then
repeat
if clear then
table.insert( t, trim(string.sub(str, 1, cpt-1)) )
else
table.insert( t, string.sub(str, 1, cpt-1) )
end
str = string.sub( str, cpt+string.len(div) )
cpt = string.find (str, div, 1, true)
until cpt==nil
end
if clear then
table.insert(t, trim(str))
else
table.insert(t, str)
end
return t
end

function quotemeta(str)
return (string.gsub(s, "[%^%$%(%)%%%.%[%]%*%+%-%?]", "%%%1"))
end

function add(v1,v2)
local nv=vector()
nv.x=v1.x+v2.x
nv.y=v1.y+v2.y
nv.z=v1.z+v2.z
return nv
end

function set_len(v,num)
local cl = math.sqrt(v.x*v.x+v.y*v.y+v.z*v.z)
cl = num/cl
v.x= v.x*cl
v.y= v.y*cl
v.z= v.z*cl
return v
end

function get_restrictor_data(sobj)
local stpk=net_packet()
local uppk=net_packet()
sobj:STATE_Write(stpk)
sobj:UPDATE_Write(uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("rsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
local t={}
amk.parse_object_packet(t,stpk,uppk,size)
amk.parse_shape_packet(t,stpk,uppk,size)

t.restrictor_type = stpk:r_u8()
-- amk.mylog("rsp "..size.." "..size1.." "..stpk:r_tell())
return t
end

function set_restrictor_data(t,sobj)
local stpk=net_packet()
local uppk=net_packet()

amk.fill_object_packet(t,stpk,uppk)
amk.fill_shape_packet(t,stpk,uppk)
stpk:w_u8(t.restrictor_type)

local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("wsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
sobj:STATE_Read(stpk,size)
sobj:UPDATE_Read(uppk)
end

function get_trader_data(sobj)
local stpk=net_packet()
local uppk=net_packet()
sobj:STATE_Write(stpk)
sobj:UPDATE_Write(uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("rsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
local t={}
amk.parse_object_packet(t,stpk,uppk,size)
amk.parse_visual_packet(t,stpk,uppk,size)
amk.parse_trader_packet(t,stpk,uppk,size)
-- amk.mylog("rsp "..size.." "..size1.." "..stpk:r_tell())
return t
end

function set_trader_data(t,sobj)
local stpk=net_packet()
local uppk=net_packet()

amk.fill_object_packet(t,stpk,uppk)
amk.fill_visual_packet(t,stpk,uppk)
amk.fill_trader_packet(t,stpk,uppk)

local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("wsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
sobj:STATE_Read(stpk,size)
sobj:UPDATE_Read(uppk)
end

function get_invbox_data(sobj)
local stpk=net_packet()
local uppk=net_packet()
sobj:STATE_Write(stpk)
sobj:UPDATE_Write(uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("rsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
local t={}
amk.parse_object_packet(t,stpk,uppk,size)
amk.parse_visual_packet(t,stpk,uppk,size)
-- amk.mylog("rsp "..size.." "..size1.." "..stpk:r_tell())
return t
end

function set_invbox_data(t,sobj)
local stpk=net_packet()
local uppk=net_packet()

amk.fill_object_packet(t,stpk,uppk)
amk.fill_visual_packet(t,stpk,uppk)

local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("wsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
sobj:STATE_Read(stpk,size)
sobj:UPDATE_Read(uppk)
end

function readvu8uN(packet,n)
local v={}
for i=1,n,1 do
table.insert(v,packet:r_u8())
end
return v
end

function writevu8uN(pk,v)
local len=table.getn(v)
--pk:w_u8(len)
for i=1,len,1 do
pk:w_u8(v[i])
end
end

function parse_item_packet(ret,stpk,updpk)
ret.condition=stpk:r_float()
ret.updnum_items=updpk:r_u8()
ret.updpos={} -- или поставить вектор? ладно потом
ret.updpos.x=updpk:r_float()
ret.updpos.y=updpk:r_float()
ret.updpos.z=updpk:r_float()
ret.updcse_alife_item__unk1_q8v4=readvu8uN(updpk,4)
ret.updcse_alife_item__unk2_q8v3=readvu8uN(updpk,3)
ret.updcse_alife_item__unk3_q8v3=readvu8uN(updpk,3)
return ret
end

function fill_item_packet(ret,stpk,updpk)
stpk:w_float(ret.condition)
updpk:w_u8(ret.updnum_items)
updpk:w_float(ret.updpos.x)
updpk:w_float(ret.updpos.y)
updpk:w_float(ret.updpos.z)
readvu8uN(updpk,ret.updcse_alife_item__unk1_q8v4)
readvu8uN(updpk,ret.updcse_alife_item__unk2_q8v3)
readvu8uN(updpk,ret.updcse_alife_item__unk3_q8v3)
return ret
end

function parse_item_ammo_packet(ret,stpk,updpk)
ret.ammo_left=stpk:r_u16()
ret.updammo_left=updpk:r_u16()
return ret
end

function fill_item_ammo_packet(ret,stpk,updpk)
stpk:w_u16(ret.ammo_left)
updpk:w_u16(ret.updammo_left)
return ret
end

function get_ammo_params(sobj)
local stpk=net_packet()
local uppk=net_packet()
sobj:STATE_Write(stpk)
sobj:UPDATE_Write(uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
stpk:r_seek(0)
uppk:r_seek(0)
local t={}
amk.parse_object_packet(t,stpk,uppk,size)
amk.parse_visual_packet(t,stpk,uppk,size)
amk.parse_item_packet(t,stpk,uppk,size)
amk.parse_item_ammo_packet(t,stpk,uppk,size)
return t
end

function set_ammo_data(t,sobj)
local stpk=net_packet()
local uppk=net_packet()

amk.fill_object_packet(t,stpk,uppk)
amk.fill_visual_packet(t,stpk,uppk)
amk.fill_item_packet(t,stpk,uppk)
amk.fill_item_ammo_packet(t,stpk,uppk)

local size=stpk:w_tell()
local size1=uppk:w_tell()
stpk:r_seek(0)
uppk:r_seek(0)
sobj:STATE_Read(stpk,size)
sobj:UPDATE_Read(uppk)
end

function cfg_get_string(ini,sect,name,def)
if ini and ini:line_exist(sect,name) then
return ini:r_string(sect,name)
end
return def
end

function get_destroyable_data(sobj)
local stpk=net_packet()
local uppk=net_packet()
sobj:STATE_Write(stpk)
sobj:UPDATE_Write(uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("rsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
local t={}
amk.parse_object_packet(t,stpk,uppk,size)
amk.parse_visual_packet(t,stpk,uppk,size)
amk.parse_skeleton_packet(t,stpk,uppk,size)
amk.parse_object_physic_packet(t,stpk,uppk,size)
-- amk.mylog("rsp "..size.." "..size1.." "..stpk:r_tell())
return t
end

function set_destroyable_data(t,sobj)
local stpk=net_packet()
local uppk=net_packet()

amk.fill_object_packet(t,stpk,uppk)
amk.fill_visual_packet(t,stpk,uppk)
amk.fill_skeleton_packet(t,stpk,uppk)
amk.fill_object_physic_packet(t,stpk,uppk)

local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("wsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
sobj:STATE_Read(stpk,size)
sobj:UPDATE_Read(uppk)

end

function get_weapon_data(sobj)
local stpk=net_packet()
local uppk=net_packet()
sobj:STATE_Write(stpk)
sobj:UPDATE_Write(uppk)
local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("rsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
local t={}
amk.parse_object_packet(t,stpk,uppk,size)
amk.parse_visual_packet(t,stpk,uppk,size)
amk.parse_item_packet(t,stpk,uppk,size)
amk.parse_item_weapon_packet(t,stpk,uppk,size)
-- amk.mylog("rsp "..size.." "..size1.." "..stpk:r_tell())
return t
end

function set_weapon_data(t,sobj)
local stpk=net_packet()
local uppk=net_packet()

amk.fill_object_packet(t,stpk,uppk)
amk.fill_visual_packet(t,stpk,uppk)
amk.fill_item_packet(t,stpk,uppk)
amk.fill_item_weapon_packet(t,stpk,uppk)

local size=stpk:w_tell()
local size1=uppk:w_tell()
-- amk.mylog("wsp "..size.." "..size1)
stpk:r_seek(0)
uppk:r_seek(0)
sobj:STATE_Read(stpk,size)
sobj:UPDATE_Read(uppk)

end

function parse_item_weapon_packet(ret,stpk,updpk)
ret.ammo_current = stpk:r_u16()
ret.ammo_elapsed = stpk:r_u16()
ret.weapon_state = stpk:r_u8()
ret.addon_flags = stpk:r_u8()
ret.ammo_type = stpk:r_u8()

ret.updcondition = updpk:r_u8()
ret.updweapon_flags = updpk:r_u8()
ret.updammo_elapsed = updpk:r_u16()
ret.updaddon_flags = updpk:r_u8()
ret.updammo_type = updpk:r_u8()
ret.updweapon_state = updpk:r_u8()
ret.updweapon_zoom = updpk:r_u8()
ret.updcurrent_fire_mode = updpk:r_u8()
return ret
end

function fill_item_weapon_packet(ret,stpk,updpk)
stpk:w_u16(ret.ammo_current)
stpk:w_u16(ret.ammo_elapsed)
stpk:w_u8(ret.weapon_state)
stpk:w_u8(ret.addon_flags)
stpk:w_u8(ret.ammo_type)

updpk:w_u8(ret.updcondition)
updpk:w_u8(ret.updweapon_flags)
updpk:w_u16(ret.updammo_elapsed)
updpk:w_u8(ret.updaddon_flags)
updpk:w_u8(ret.updammo_type)
updpk:w_u8(ret.updweapon_state)
updpk:w_u8(ret.updweapon_zoom)
updpk:w_u8(ret.updcurrent_fire_mode)
return ret
end

function get_ver()
local ver = "0"
local mm = _G.main_menu.get_main_menu()
if mm then ver = mm:GetGSVer() end
return ver
end
</pre>
всё заходим в игру и пробуем :-)

''В принципе, скрипт работает и без watcher_act.script...''
[[Категория:Скрипты]]

SoC. Снятие денег с трупов

2011-03-04T04:51:43Z

Deathdoor: Отмена правки 9176 участника 146.101.133.37 (обсуждение)

axeJZr <a href="http://hdepwcgtvucb.com/">hdepwcgtvucb</a>, [url=http://rtyfsaqmaqcc.com/]rtyfsaqmaqcc[/url], [link=http://ruomfxkivthx.com/]ruomfxkivthx[/link], http://xnkbfavimumm.com/

SoC. Снятие денег с трупов

2011-03-04T04:51:23Z

Deathdoor: Отмена правки 9182 участника Deathdoor (обсуждение)

http://www.yearsforbeards.com/Generic-Viagra/ bestill viagra =-PP http://www.davidcanek.com/ Acheter du cialis 686082 http://www.saarapeutereheikka.com/ viagra 9447 http://www.autisme-modedemploi.org/Generic-Viagra/ Viagra pas cher 625268 http://www.anilengg.org/Generic-Viagra/ viagra vendita ovjkb

SoC. Снятие денег с трупов

2011-03-04T04:50:52Z

Deathdoor: Отмена правки 9176 участника 146.101.133.37 (обсуждение)

Декомпиляция уровней в формат СДК

2011-02-28T15:47:36Z

Deathdoor: Отмена правки 9066 участника 121.123.206.132 (обсуждение)

Для декомпиляции игровых карт в формат LevelEditor'a [http://stalkerin.gameru.net/wiki/index.php/MP_SDK SDK 0.4] используется консольная утилита '''converter.exe''' от bardak'а, входящая в пакет '''[http://stalkerin.gameru.net/modules.php?name=Downloads&d_op=getit&lid=288 X-ray Game asset tools pack]'''.

'''1.''' Устанавливаем '''X-ray Game asset tools pack''', обязательно ставим поверх '''[http://stalkerin.gameru.net/modules.php?name=Downloads&d_op=getit&lid=348 обновление]'''.
----
== Настройка Конвертера. ==

Открываем любым текстовым редакором файл '''converter.ini''', в нем находим строки:
<ini>; 2947+ (финалка включая обновления)
[2947_config]:2945_config
$game_data$ = c:\temp\1\gamedata.3312\
$game_levels$ = c:\temp\1\gamedata.3312\levels\</ini>
<ini>; 3456+ (Clear Sky включая обновления)
[3456_config]:2947_config
$game_data$ = c:\temp\1\gamedata.3502\
$game_levels$ = c:\temp\1\gamedata.3502\levels\
fake_mu_gamemtls = 34xx_fake_mu_gamemtls
fake_gamemtls = 34xx_fake_gamemtls</ini>

Здесь ''$game_data$'' - путь до папки ''gamedata'' с распаковаными ресурсами игры, ''$game_levels$'' - до папки ''levels'' в ''gamedata'' соответственно. Необходимо указать полные пути.

В файле '''fsconverter.ltx''' находим следующую строку:
<ini>
$sdk_root$ = false| false| c:\program files\x-ray sdk\level_editor\
</ini>

Здесь ''$sdk_root$'' - путь до полного SDK (русифицированный не работает нормально с converter.exe). Правим путь на свой, не забывая поставить слэш в конце.

Более конкретная настройка СДК см. Ссылки.
----
== Декомпиляция. ==

Конвертер полностью настроен, теперь нужно создать '''.bat-файл''' для конвертирования в формат SDK. Для этого создаем текстовой файл, пишем внутри команду и меняем формат файла с .txt на .bat:
<ini>
converter -level <имя_карты> -out <имя_сцены> -mode maya|le|le2 -with_lods
pause
</ini>
Здесь ''<имя_карты>'' - имя папки с картой в каталоге ''gamedata\levels\'', например ''l08_yantar'' (локация Янтарь из ТЧ), ''<имя_сцены>'' - имя карты после декомпиляции, можно не писать, в этом случае имя карты после декомпиляции не изменится.
 
Далее выдержка из ''docs\converter.txt'':
<code>
Ключ -mode задаёт режим работы:
maya - декомпилировать только геометрию карты.
le - декомпилировать в формат LE.
le2 - декомпилировать в формат LE (для l12_stancia_2).
raw - декомпилировать в формат LE (отладочный режим).

Ключ -with_lods обрабатывается в зависимости от значения -mode. Если он
задан совместно с -mode maya, программа выдаст ещё и MU-модели. С остальными
режимами его наличие заставляет converter разбивать LOD-текстуры, что
необходимо для полной пересборки. Также ключ ''-with_lods'' следует использовать
если планируется дальнейшая перекомпиляция уровня.

Отладочные параметры: -dbgcfrm, -dbgmrg.
</code>
То есть команда для декомпиляции в формат SDK, например, уровня ''l08_yantar'' будет выглядеть так:
<ini>
converter -level l08_yantar -out l08_yantar_decompiled -mode le -with_lods
</ini>

Если все сделано правильно, то после запуска батника пойдет процесс декомпиляции.
----
'''5.''' Найти декомпилированную карту можно будет в каталоге ''$sdk_root$\maps'' (файл, читаемый SDK) и ''$sdk_root$\rawdata\objects\levels'' (обьекты, используемые данным уровнем). Ну а далее думаю всё и так понятно - в ЛЕ жмём File -> Open и открываем нашу карту.

== Ссылки. ==
[http://www.gameru.net/forum/index.php?showtopic=22233 Настройка СДК от Kostya V]

[[Категория:SDK]]

Декомпиляция уровней в формат СДК

2011-02-28T15:47:22Z

Deathdoor: Отмена правки 9069 участника 109.104.92.13 (обсуждение)

4Ouxtd <a href="http://zjxyrrdrkjvf.com/">zjxyrrdrkjvf</a>, [url=http://yqqyqlegnfqa.com/]yqqyqlegnfqa[/url], [link=http://acjylovxmedu.com/]acjylovxmedu[/link], http://scsaurfprpmi.com/

Декомпиляция уровней в формат СДК

2011-02-28T15:47:09Z

Deathdoor: Отмена правки 9081 участника 69.114.203.106 (обсуждение)

B4RrkI <a href="http://wtvfqqbhcutw.com/">wtvfqqbhcutw</a>, [url=http://dotohvurasxl.com/]dotohvurasxl[/url], [link=http://mqdqsktkvfai.com/]mqdqsktkvfai[/link], http://zoadzxwteqmr.com/

Обсуждение:MilkShape 3D. Перенос моделей НПС из ЧН/ЗП в ТЧ и обратно

2011-02-09T05:01:41Z

Deathdoor:

Для переноса моделей в ЧН/ЗП совсем не обязательно так изголяться. Достаточно в милке добавить нужные кости через туже тулзу, с помощью которой удаляли. Потом в СДК подгрузить нужные настройки скелета и всё. Многие походу не знают, что СДК позволяет оперировать расположением и направлением костей. '''Deathdoor (OGSE Team)'''
:*[[Конверт моделей нпс с версии XRay 1.5 и старше|статья]] энди как бы намекает на то, что сторонними редакторами можно вообще не пользоваться =/
Там статья совсем о другом, тем более в то время когда она писалась небыло СДК ЧН/ЗП.
В СДК ЧН/ЗП появилась возможность удалять/добавлять кости к скелету, т.е. данная статья актуальна только для СДК ТЧ. '''Deathdoor (OGSE Team)'''
:*Дата создания оригинальной статьи - 23.12.2009 - как бы намекает на это. '''RedPython (Captain O Team)''' :)
Тогда зачем давать на неё ссылку, что мол она на что-то там намекает? '''Deathdoor (OGSE Team)'''

Обсуждение:MilkShape 3D. Перенос моделей НПС из ЧН/ЗП в ТЧ и обратно

2011-02-02T20:43:50Z

Deathdoor:

Обсуждение:Исправление дефектов сглаживания на импортированных моделях...

2011-01-30T20:53:56Z

Deathdoor:

Бугога, группы сглаживания - это так сложно (C) [[Участник:RedPython|RedPython]] 17:46, 8 января 2011 (UTC)

А что здесь смешного? Если, по вашему, всё так просто, то почему до сего момента все модели в модах идут с их дефектами?! Понятно, что самого по себе ничего здесь сложного нет, но то что модмейкеры о них не знают - факт!

Обсуждение:OGG комментирование

2011-01-15T09:49:00Z

Deathdoor:

Мегакрайне непрактичный способ

Исправление дефектов сглаживания на импортированных моделях...

2011-01-08T17:24:28Z

Deathdoor:

Итак: в конвертере бардака, а так же (естественно) в его плагине для импорта моделей в 3Д редакторы есть одна крайне неприятная особенноть: слетают группы сглаживания (или как там это правильно называется) и когда потом модель через СДК экспортируется в ОГФ на модели возникают дефекты такого вида

http://savepic.org/965567m.jpg

http://savepic.org/965567.htm

Что сделать для исправления (способ найден и проверен в '''Milkshape 3D''', как это делать в других редакторах незнаю, так как не пользуюсь)

Выделяем всю модель или нужную область, потом ''Vertex - Weld Together'' и... наша моделька ровная и гладенькая

http://savepic.org/918463m.jpg

http://savepic.org/918463.htm

Теперь её можно спокойно экспортить в СДК.

'''Т.е. напрямую загонять модели в СДК (через преобразование конвертером) нерекомендую во избежании этих дефектов, а они будут 100%'''

--------------------------------------------------------------------------------

По просьбе '''blackraven6''' добавляю способ по решению этой проблемы в '''3D Max''' (за что ему отдельное спасибо)

В '''3D Max''' выделяем модель, далее ''Modifiers - Subdivision surface - Mesh smooth'' и справа в свитке ''subdivisions amount'' в поле ''iterations'' ставим вместо 1 (по дефолту) 0.
Тогда модели добавляется только визуальный эффект сглаживания без добавления дополнительных сглаживающих полигонов.

--------------------------------------------------------------------------------

Ещё один способ, предложенный '''adept''' для '''3D Max'''

http://4put.ru/view-max-picture.php?id=253531

Выделяем модель и переходим на вкладку ''Modify'' (1)

Открываем вкладку модификаторов (2)

Выбираем модификатор ''Smooth'' (3)

Модель стала граненная

http://4put.ru/view-max-picture.php?id=253532

Теперь нужно поставить галочку ''Auto Smooth''. Все, модель сгладилась. Для регулировки уровня сглаживания нужно поставить галочку ''Prevent Indirect Smoothing'' и клацать на кнопочки возле надписи ''Threshold'', стандартно сглаживание стоит на цифре 30

http://4put.ru/view-max-picture.php?id=253534

Авторы: '''Deathdoor''' (OGSE team), '''blackraven6''', '''adept'''

[[Категория:Wireframe]]

Обсуждение:Milkshape. Привязка костей

2010-12-31T10:04:44Z

Deathdoor:

Ссылка на плагин ведёт в плагин для майки, а не милки. Плагин для милки надо брать из полного архива утилит бардака.

По сути для мировой модели половину привязок можно не делать. Для мировой модели нужена только кость weapon_body и доп кости если есть обвесы (гранатомет, прицел, глушитель).
Видно изначально GSC планировали сделать для неписей "реальную" анимацию перезарядки с вытаскиванием магазина из оружия, но "не смогла". Поэтому привязка магазина, и таких мелочей как затвор и спусковая скоба просто лишний гемор и ненужная трата времени.

Обсуждение:Описание динамических параметров в LTX-файлах

2010-12-19T08:38:09Z

Deathdoor:

очередная статья ни о чём, являющаяся копипастой из конфигов. При этом например параметр shoot_factor отсутствует в ltx-файлах (и вообще в движке игры)

Обсуждение:Описание динамических параметров в LTX-файлах

2010-12-19T08:29:43Z

Deathdoor:

очередная статья ни о чём, являющаяся копипастой из конфигов.

Исправление дефектов сглаживания на импортированных моделях...

2010-12-12T19:00:25Z

Deathdoor:

Исправление дефектов сглаживания на импортированных моделях...

2010-12-10T22:13:43Z

Deathdoor:

Milkshape. Добавление транспорта в игру

2010-10-28T13:49:16Z

Deathdoor:

Добавление в игру S.T.A.L.K.E.R управляемого колёсного транспорта v1.0
Автор: Логинов Георгий (Deathdoor) OGSE Team www.ogse.ru

часть первая

Для начала забудьте обо всех сложных редакторах тип 3D Мax. Всё гораздо проще и быстрей делается в MilkShape 3D www.milkshape3d.com

Итак. Естественно сначала нам нужна модель машины которую будем добавлять. Профи, которым этот тутор и даром не нужен его могут смоделить сами, а мы возьмём готовую
http://stalkerin.gameru.net/wiki/images/f/fb/Image001.jpg
Вот такая старинная машинка :-)

Первое что мы делаем – это разбираем модель на группы, потом это очень здорово поможет в работе. Понятно что делаем разборку без фанатизма, т.е. не будем отдельно выделять порожки, крылья и т.д. Достаточно основных деталей: колеса, фары, руль. Естественно если мы захотим сделать максимально навороченную модель, то выделяем двери, стекла, бамперы, капот (их можно будет разбивать или они будут отлетать от попаданий пуль или ударов о препятствие)
http://stalkerin.gameru.net/wiki/images/b/b2/Image004.jpg

После того как разобрали модель на группы, приступаем к созданию скелета машины.
http://stalkerin.gameru.net/wiki/images/e/e9/Image006.jpg

Первая кость (или правильней сустав)
http://stalkerin.gameru.net/wiki/images/0/06/Image008.jpg

Желательно (но не обязательно) расположить его в мнимом «центре тяжести» модели
Для удобства в параметрах программы задаём визуальный размер костей
http://stalkerin.gameru.net/wiki/images/8/82/Image010.jpg

Теперь от него начинаем растить все остальные кости.
http://stalkerin.gameru.net/wiki/images/7/70/Image012.jpg

Опять же для удобства работы можем спокойно скрывать части модели. Положение костей подгоняем соответствующим инструментом Move
http://stalkerin.gameru.net/wiki/images/0/07/Image014.jpg

В итоге получаем это. На схеме показан самый минимально необходимый скелет для машины. Можно конечно и меньше, но это уже получится телега.
http://stalkerin.gameru.net/wiki/images/5/5c/Image016.jpg

Теперь немного о создании фары. В принципе можно этого и не делать, так как свет исходит из самого сустава, но для «красивости» можно сделать светящееся стеклышко фары. Кстати именно таким способом можно сделать габариты, которые будет видно ночью.
Для этого делаем дубликат группы фары, потом у дубликата удаляем часть фары оставляя только стекло.
http://stalkerin.gameru.net/wiki/images/a/a1/Image017.jpg

И теперь это стекло сдвигаем немного вперёд, что бы потом не было наложения их друг на друга (в игре это будет отображаться как черная сеточка на стекле или половина стекла светлая, вторая черная).
http://stalkerin.gameru.net/wiki/images/7/72/Image018.jpg

После того как закончили с созданием скелета
http://stalkerin.gameru.net/wiki/images/8/81/Image021.jpg

Приступаем к привязке модели. Вот тут нам как раз и пригодится, первоначальна разбивка модели на группы.
http://stalkerin.gameru.net/wiki/images/4/4e/Image023.jpg

После привязки остаётся только экспортировать нашу модель в s.t.a.l.k.e.r SDK
http://stalkerin.gameru.net/wiki/images/0/06/Image025.jpg

Файл:Image025.jpg

2010-10-28T13:47:16Z

Deathdoor:

Файл:Image023.jpg

2010-10-28T13:46:58Z

Deathdoor:

Файл:Image021.jpg

2010-10-28T13:46:38Z

Deathdoor:

Файл:Image018.jpg

2010-10-28T13:46:18Z

Deathdoor:

Файл:Image017.jpg

2010-10-28T13:45:50Z

Deathdoor:

Файл:Image016.jpg

2010-10-28T13:45:29Z

Deathdoor:

Файл:Image014.jpg

2010-10-28T13:45:07Z

Deathdoor:

Файл:Image012.jpg

2010-10-28T13:44:50Z

Deathdoor:

Файл:Image010.jpg

2010-10-28T13:44:32Z

Deathdoor:

Файл:Image008.jpg

2010-10-28T13:44:10Z

Deathdoor: