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

Для новичков

2010-11-17T16:08:15Z

Oxygenium:

== 1. Изменить носимый вес ==
Начнем. Для того чтобы изменить носимый вес, нам необходимо 2 файла: ''gamedata\config\creatures\actor.ltx'' и ''gamedata\config\system.ltx''.

Займемся файлом '''actor.ltx'''. Открываем файл блокнотом, ну или как вам удобно. Жмем F3, ищем строку ''max_item_mass = 50.0''

Изменяем ''max_item_mass = 500.0''
Изменяем ''max_walk_weight = 500.0''
 
С этим файлом все.

Открываем '''system.ltx''', также ищем строку ''max_weight = 50'' и меняем на ''max_weight = 500.0''

Все, можем грузить игру и проверять, все ли работает.

== 2. Сделать бессмертие ==
2. Сделать бессмертие.

Нужен лишь один файл: ''gamedata\config\creatures\actor.ltx''
 
Открываем, находим секцию ''[actor_condition]''
 
Рассмотрим все детально:

<pre>
[actor_condition]
satiety_v = 0.00015 ;скорость уменьшения сытости со временем
radiation_v = 0.00001 ;скорость уменьшения радиации
satiety_power_v = 0.00055 ;увеличение силы при уменьшении сытости
satiety_health_v = 0.00001 ;увеличение здоровья при уменьшении сытости
satiety_critical = 0.00000 ;критическое значения сытости (в процентах от 0..1) когда здоровье начианает уменьшаться
radiation_health_v = 0.00000 ;уменьшение здоровья при воздействии радиации
morale_v = 0.00001 ;скорость восстановления морали

psy_health_v = 0.001 ;скорость восстановления psy-здоровья
alcohol_v = -0.0003
health_hit_part = 1.0 ;процент хита, уходящий на отнимание здоровья
power_hit_part = 0.1 ;процент хита, уходящий на отнимание силы
max_power_leak_speed = 0.0 ;накопление усталости (макс граница, до которой восстанавливается сила) в секунду игрового времени
max_walk_weight = 60

bleeding_v = 0.0 ;потеря крови при номинальной ране в секунду
wound_incarnation_v = 1.0 ;скорость заживления раны
min_wound_size = 0.256 ;минимальный размер раны, после которого она считается зажившей

Чтобы сделать бессмертие, нужно:

Изменить параметр satiety_v на 0.0;
Изменить параметр radiation_v на 1.0;
Изменить параметр satiety_critical на 0.0;
Изменить параметр health_hit_part на 0.0;
Изменить параметр power_hit_part на 0.0
Изменить параметр max_power_leak_speed на 0.0;(если не изменен)
Изменить параметр min_wound_size на 1.0;
На этом все.
</pre>

[[Категория:Конфигурационные_файлы]]

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

2010-11-06T17:16:18Z

Oxygenium:

Привет всем! Игра сталкер, а конкретно сам движок 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</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 попал на эту точку, а заодно ушёл за аи-сетку. Этого движок не терпит.
--------------
<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 строку (ставим перед строкой --) и идём к тому месту где поймали вылет. Так мы получим более развёрнутый ответ.
--------------

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

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

CS. Восстанавливаем части монстров

2010-11-05T08:44:40Z

Oxygenium:

===Восстанавливаем части монстров===

Чтобы восстановить части тел монстров, нам понадобятся следующие файлы: 

'''gamedata\configs\creatures\m_boar.ltx 
'''gamedata\configs\creatures\ m_bloodsucker.ltx 
'''gamedata\configs\creatures\ m_burer.ltx 
'''gamedata\configs\creatures\ m_dog.ltx 
'''gamedata\configs\creatures\ m_flesh.ltx 
'''gamedata\configs\creatures\ m_pseudodog.ltx 
'''gamedata\configs\creatures\ m_snork.ltx 
'''gamedata\configs\creatures\ m_zombie.ltx '''

Для начала возьмём '''m_boar.ltx'''. Там есть строка: 
''Spawn_Inventory_Item_Probability = 0'' - это означает, с какой вероятностью выпадет часть тела
Меняем на: 
''Spawn_Inventory_Item_Probability = 0.9'' - в данном случае будет выпадать почти всегда
С остальными файлами делаем по аналогии =)
'''ВНИМАНИЕ!!!''' Поменяйте в '''m_pseudodog.ltx''' строку:
''Spawn_Inventory_Item_Section = mutant_pseudodog_tail''
На:
''Spawn_Inventory_Item_Section = mutant_psevdodog_tail''
Заметки: когда я возвращал щупальца кровососу, я удалил точку с запятой в строке
''Spawn_Inventory_Item_Section = ;mutant_krovosos_jaw''
Так что если её не удалять я не знаю что будет. '' -- [[Участник:RedPython|RedPython]] 11:09, 1 июня 2010 (UTC) знаком "''';'''" в '''*.ltx'''-файлах обозначаются комментарии, т.е. если удалить, то спавниться щупалка не будет.''
 Спасибо за внимание.

'''Автор''': [[Участник:Duhazzz|Duhazzz]]

All.spawn. Создание NPC

2010-09-22T16:50:26Z

Oxygenium:

== Что,как,зачем ==
Итак, я хочу рассказать вам как создать NPC через all.spawn.
Метод был выявлен мною путем проб и ошибок.
Конечно же у вас появился вопрос: « Ну а зачем же мучатся с all.spawn, если можно сделать тоже самое через скрипт?».
Ответ:
Хоть этот способ и не такой быстрый и легкий, но у него есть свои плюсы, необходимые многим, один из них - мы можем задать story id нашему NPC.
"А что дает нам это?"
Много чего, ну для примера - мы сможем поставить отметку на него.
Я не буду объяснять такие простые вещи как декомпиляция all.spawn и остальное, но если же вы все таки не знаете как, пишите мне в лс на Гейменаторе(stalkers-life, или Идиот)
Итак, хватит лишних слов, перейдем к работе...

== Работаем!!! ==

С помощью ACDC декомпилируем all.spawn

Получаем кучу файлов типа : alife_l01_escape , way_l01_escape и тд.

Создадим нового непися на Кордоне.
Открываем alife_l01_escape, и крутим в самый низ.

Если у вас чистая игра и вы ничего не делали в Олл спавне то посленяя секция у вас будет под номером 869.
Добавляем туда вот такой код(в конец):

<code>
[870]
; cse_abstract properties
section_name = stalker
name = noobik
position = -172.21215820313,-19.941787719727,-161.09272766113
direction = 0,0,0

; cse_alife_trader_abstract properties
money = 5000
character_profile = esc_noobik

; cse_alife_object properties
game_vertex_id = 52
distance = 0
level_vertex_id = 76655
object_flags = 0xffffffbf
custom_data = <<END

[logic]
cfg = scripts\noobik_logic.ltx

; cse
[smart_terrains]
none = true
END
story_id = 10000

; cse_visual properties
visual_name = actors\soldier\soldier_beret_1

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

upd:health = 1
upd:timestamp = 0
upd:creature_flags = 0
upd:position = -172.21215820313,-19.941787719727,-161.09272766113
upd:o_model = 0
upd:o_torso = 0.028013030067086,0,0.9996075630188
upd:g_team = 0
upd:g_squad = 1
upd:g_group = 2

; cse_alife_monster_abstract properties

upd:next_game_vertex_id = 65535
upd:prev_game_vertex_id = 65535
upd:distance_from_point = 0
upd:distance_to_point = 0

; cse_alife_human_abstract properties
predicate5 = 1,2,2,1,2
predicate4 = 0,1,1,1

; cse_ph_skeleton properties

upd:start_dialog =

; se_stalker properties
</code>

Разъясню некоторые пункты, чтобы в след. раз не пришлось прибегать к тутору.

<code>
section_name = stalker -//это для игры тут пишется к примеру если ето у тебя сталкера или бандюки то должно быть section_name = stalker
name = noobik -//пишем что хотим
position = -172.21215820313,-19.941787719727,-161.09272766113 -//позиция
direction = 0,0,0 -// направление взгляда(можно писать всегда нули)

; cse_alife_trader_abstract properties
money = 5000 -//его бабло
character_profile = esc_noobik -//ссылка на профиль в character_desc_локация(раз создаем в алайф эскейп значит и профиль будет искатсья в чарактер_деск_ескейп)

; cse_alife_object properties
game_vertex_id = 52 -// гейм вертекс
distance = 0
level_vertex_id = 76655 -//левел вертекс
object_flags = 0xffffffbf
custom_data = <<END

[logic]
cfg = scripts\noobik_logic.ltx -// ссылка на логику

; cse[smart_terrains]
none = true
END
story_id = 10000 -//его стори айди

; cse_visual properties
visual_name = actors\soldier\soldier_beret_1 -// его визуал

upd:health = 1
upd:timestamp = 0
upd:creature_flags = 0
upd:position = -172.21215820313,-19.941787719727,-161.09272766113 -//опять пишем позицию
upd:o_model = 0
upd:o_torso = 0.028013030067086,0,0.9996075630188
upd:g_team = 0
upd:g_squad = 1
upd:g_group = 2

upd:next_game_vertex_id = 65535-//честно не знаю что это, я всегда пишу эти цифры
upd:prev_game_vertex_id = 65535-//не знаю, но пишем всегда это
upd:distance_from_point = 0
upd:distance_to_point = 0
</code>

Компилируем, получаем файл all.spawn.new , копируем его в геймдату/спавнс и переименовываем просто в олл спавн.
Это еще не все!

еперь

открываем файл character_desc_escape

перед профилем волка вставляем это:

<code>

<specific_character id="esc_noobik" team_default = "1">
<name>Нубик</name>
<icon>ui_npc_u_stalker_neytral_balon_1</icon>
<bio>esc_noobik</bio>

<class>esc_noobik</class>
<community>stalker</community> <terrain_sect>stalker_terrain</terrain_sect>

<rank>434</rank>
<reputation>5</reputation>
<money min="600" max="2000" infinitive="0"/>

<snd_config>characters_voice\human_01\stalker\</snd_config>
<crouch_type>-1</crouch_type>

<visual>actors\soldier\soldier_beret_1</visual>
<supplies>
[spawn] \n
wpn_pm \n
ammo_9x18_fmj = 1 \n
wpn_ak74u \n
ammo_5.45x39_fmj \n
</supplies>

#include "gameplay\character_criticals_4.xml"

</specific_character>
</code>

у нас будет чел с визуалом военного, иконкой волка, и голосом обычного сталкера

теперь создаем файл логики,
в папке config/scripts создаем файл noobik_logic.ltx
и пишем туды:

<code>
[logic]
active = remark1
danger = danger_ignore

[danger_ignore]
ignore_distance = 5

[remark1]
no_move = true
</code>

все, он никуда не уйдет пока на него не нападут = )

Теперь открываем файл game_story_ids

и в самый низ вписываем:
10000 = "esc_noobik"

теперь открываем файл npc_profile
вставляем сие:

<code>
<character id="esc_noobik">
<class>esc_noobik</class>
<specific_character>esc_noobik</specific_character>
</character>
</code>

Все, мы на финишной прямой!
Открываем файл spawn_sections

и в писываем:
<code>
[esc_noobik]:stalker
$spawn = "respawn\esc_noobik"
character_profile = esc_noobik
spec_rank = novice
community = stalker
</code>

Все, все готово!
Начинаем новую игру, и видем сталкера с именем Нубик = )

'''Статью создал stalker-life'''

[[Категория:скрипты]]

All.spawn. Создание NPC

2010-09-22T15:09:25Z

Oxygenium:

== Что,как,зачем ==
Итак, я хочу рассказать вам как создать NPC через all.spawn.
Метод был выявлен мною путем проб и ошибок.
Конечно же у вас появился вопрос: « Ну а зачем же мучатся с all.spawn, если можно сделать тоже самое через скрипт?».
Ответ:
Хоть этот способ и не такой быстрый и легкий, но у него есть свои плюсы, необходимые многим, один из них - мы можем задать story id нашему NPC.
"А что дает нам это?"
Много чего, ну для примера - мы сможем поставить отметку на него.
Я не буду объяснять такие простые вещи как декомпиляция all.spawn и остальное, но если же вы все таки не знаете как, пишите мне в лс на Гейменаторе(stalkers-life, или Идиот)
Итак, хватит лишних слов, перейдем к работе...

== Работаем!!! ==

С помощью ACDC декомпилируем all.spawn

Получаем кучу файлов типа : alife_l01_escape , way_l01_escape и тд.

Создадим нового непися на Кордоне.
Открываем alife_l01_escape, и крутим в самый низ.

Если у вас чистая игра и вы ничего не делали в Олл спавне то посленяя секция у вас будет под номером 869.
Добавляем туда вот такой код(в конец):

<code>
[870]
; cse_abstract properties
section_name = stalker
name = noobik
position = -172.21215820313,-19.941787719727,-161.09272766113
direction = 0,0,0

; cse_alife_trader_abstract properties
money = 5000
character_profile = esc_noobik

; cse_alife_object properties
game_vertex_id = 52
distance = 0
level_vertex_id = 76655
object_flags = 0xffffffbf
custom_data = <<END

[logic]
cfg = scripts\noobik_logic.ltx

; cse
[smart_terrains]
none = true
END
story_id = 10000

; cse_visual properties
visual_name = actors\soldier\soldier_beret_1

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

upd:health = 1
upd:timestamp = 0
upd:creature_flags = 0
upd:position = -172.21215820313,-19.941787719727,-161.09272766113
upd:o_model = 0
upd:o_torso = 0.028013030067086,0,0.9996075630188
upd:g_team = 0
upd:g_squad = 1
upd:g_group = 2

; cse_alife_monster_abstract properties

upd:next_game_vertex_id = 65535
upd:prev_game_vertex_id = 65535
upd:distance_from_point = 0
upd:distance_to_point = 0

; cse_alife_human_abstract properties
predicate5 = 1,2,2,1,2
predicate4 = 0,1,1,1

; cse_ph_skeleton properties

upd:start_dialog =

; se_stalker properties
</code>

Разъясню некоторые пункты, чтобы в след. раз не пришлось прибегать к тутору.

<code>
section_name = stalker -//это для игры тут пишется к примеру если ето у тебя сталкера или бандюки то должно быть section_name = stalker
name = noobik -//пишем что хотим
position = -172.21215820313,-19.941787719727,-161.09272766113 -//позиция
direction = 0,0,0 -// направление взгляда(можно писать всегда нули)

; cse_alife_trader_abstract properties
money = 5000 -//его бабло
character_profile = esc_noobik -//ссылка на профиль в character_desc_локация(раз создаем в алайф эскейп значит и профиль будет искатсья в чарактер_деск_ескейп)

; cse_alife_object properties
game_vertex_id = 52 -// гейм вертекс
distance = 0
level_vertex_id = 76655 -//левел вертекс
object_flags = 0xffffffbf
custom_data = <<END

[logic]
cfg = scripts\noobik_logic.ltx -// ссылка на логику

; cse[smart_terrains]
none = true
END
story_id = 10000 -//его стори айди

; cse_visual properties
visual_name = actors\soldier\soldier_beret_1 -// его визуал

upd:health = 1
upd:timestamp = 0
upd:creature_flags = 0
upd:position = -172.21215820313,-19.941787719727,-161.09272766113 -//опять пишем позицию
upd:o_model = 0
upd:o_torso = 0.028013030067086,0,0.9996075630188
upd:g_team = 0
upd:g_squad = 1
upd:g_group = 2

upd:next_game_vertex_id = 65535-//честно не знаю что это, я всегда пишу эти цифры
upd:prev_game_vertex_id = 65535-//не знаю, но пишем всегда это
upd:distance_from_point = 0
upd:distance_to_point = 0
</code>

Компилируем, получаем файл all.spawn.new , копируем его в геймдату/спавнс и переименовываем просто в олл спавн.
Это еще не все!

еперь

открываем файл character_desc_escape

перед профилем волка вставляем это:

<code>

<specific_character id="esc_noobik" team_default = "1">
<name>Нубик</name>
<icon>ui_npc_u_stalker_neytral_balon_1</icon>
<bio>esc_noobik</bio>

<class>esc_noobik</class>
<community>stalker</community> <terrain_sect>stalker_terrain</terrain_sect>

<rank>434</rank>
<reputation>5</reputation>
<money min="600" max="2000" infinitive="0"/>

<snd_config>characters_voice\human_01\stalker\</snd_config>
<crouch_type>-1</crouch_type>

<visual>actors\soldier\soldier_beret_1</visual>
<supplies>
[spawn] \n
wpn_pm \n
ammo_9x18_fmj = 1 \n
wpn_ak74u \n
ammo_5.45x39_fmj \n
</supplies>

#include "gameplay\character_criticals_4.xml"

</specific_character>
</code>

у нас будет чел с визуалом военного, иконкой волка, и голосом обычного сталкера

теперь создаем файл логики,
в папке config/scripts создаем файл noobik_logic.ltx
и пишем туды:

<code>
[logic]
active = remark1
danger = danger_ignore

[danger_ignore]
ignore_distance = 5

[remark1]
no_move = true
</code>

все, он никуда не уйдет пока на него не нападут = )

Теперь открываем файл game_story_ids

и в самый низ вписываем:
10000 = "esc_noobik"

теперь открываем файл npc_profile
вставляем сие:

<code>
<character id="esc_noobik">
<class>esc_noobik</class>
<specific_character>esc_noobik</specific_character>
</character>
</code>

Все, мы на финишной прямой!
Открываем файл spawn_sections

и в писываем:
<code>
[esc_noobik]:stalker
$spawn = "respawn\esc_noobik"
character_profile = esc_noobik
spec_rank = novice
community = stalker
</code>

Все, все готово!
Начинаем новую игру, и видем сталкера с именем Нубик = )

'''Статью разместил и оформил: stalker-life'''

Тутор написал не ты, стандер и способ открыт не тобою. Он был ещё известен всем умным людям в 2008 году. Так что слейся

[[Категория:скрипты]]

Официальный тутор Level Editor от GSC

2010-09-22T12:19:00Z

Oxygenium:

В этом уроке, рассмотрены основные положения по Левел Едитороу(Редактору Уровней)

'''Before Opening the Editor'''

Сейчас, вам придется установить игру и должным образом разместить её, чтобы вы могли создавать уровни. Вам будет также нужна копия 3D Studio Max, так как вся горизонтальная геометрия будет создана там и экспортирована в Level Editor, используя специаельные плагины

'''The Editor'''
Теперь, когда всё необходимое для работы готово, мы можем приступать. Если все работает должным образом это должно стартовать без любых проблем. Ниже приведёт скриншот экрана

http://savepic.ru/1713161m.jpg

Когда появляется окно обзора, вам предоставлена 3D перспектива просмотра. Мощный рендер редактора, позволяет вам видеть обьекты и окружающий мир в приближённом виде к игровому варианту. Навигация в 3D-перспективе проста. Удерживая SHIFT+ЛКМ перемещает камеру вперёд\назад\влево\вправо
SHIFT+ПКМ двигают камеру по оси Z

'''The Top Toolbar'''

http://savepic.ru/1756164.jpg
<code>Стрелка влево - отменить действие
Стрелка вправо - вернуть действие
Стрелочка - выделение
</code>

http://savepic.ru/1734660.jpg
<code>Основная панель при работе с уровнем</code>

http://img.gameru.net/img/b9332.jpg
''Добавление обьектов на уровень (инструмент Add)''

http://img.gameru.net/img/f9a1c.jpg
''Манипулятор для осей X,Y,Z (инструмент Move) ''

http://img.gameru.net/img/93ad2.jpg
''Поворот обьектов по осям X,Y,Z (инструмент Rotate)''

http://img.gameru.net/img/30d93.jpg
''Увеличение\меньшение(инструмент Scale)''

http://img.gameru.net/img/3662f.jpg
''Выбор оси для работы''

http://img.gameru.net/img/d82a5.jpg
''Привязки(привязка к обьекту\сетке\точке)''

http://img.gameru.net/img/be68a.jpg
''Положение камеры''

http://img.gameru.net/img/220a0.jpg
''Zoom Extents и Zoom Selected Extents''

'''The Main Toolbar'''

На высшей панели, находятся все основные функции управления уровнем

http://img.gameru.net/img/f6da7.jpg
<code>
File - Функции открытия\сохранения файла уровня
Scene - Тонкие настройки сцены(вашего уровня)
Compile - Компиляция и её настройки
Objects - Работа с обьектами, включая редактор обьектов
Images - Импорт графических файлов, библиотека графических файлов
Sounds - Звуковой редактор
Light Anim Editor - Редактор светоанимаций
Object List - Обьекты находящиеся на уровне
Preferences - Редактор префренсов
</code>

http://img.gameru.net/img/03164.jpg
<code>Edit - Копирование\вставка
Selection - Выделение, снятия выделения
Visibility - Настройки отображения
Locking - Блокировка\снятие блокировки
Properties - Настройки</code>

''Тут нахоядится то, что поможет вам создать уровень''
http://img.gameru.net/img/0e42e.jpg

<code>
Obejct - Библиотека обьектов
Light - Добавление\правка лайтов
Sound Source - Добавление\правка Sound Source
Sound Env - Добавление Sound enviroment (окружающий мир), на уровень
Glow - Источник света
Shape - Шейпы(Зона Влияния)
Spawn Element - Добавление\правка спавн элементов(динамические обьекты)
Way Points - AI пути
Sector - Утилита для создания секторов
Portal - Генератор порталов
Group - Редактор групп
Static Particles - Создание\добавление статических партикл-эффектов
Detail Objects - Добавление\правка детальной растительности
AI Map - Создание\правка AI карты
Wallmarks - Добавление\правка валлмарок
</code>

Статья пишется далее.
То что идёт дальше, уже не раз изложено в простых и видео уроках. А именно:
<code>Установка плагинов
Создание террейна
Экспорт моделей в SDK
Настройка шейдеров
Добавление основных элементов
Создание секторов и порталов
Компиляция
</code>
== См. также ==
[http://stalkerin.gameru.net/wiki/index.php/%D0%9A%D0%B0%D1%82%D0%B5%D0%B3%D0%BE%D1%80%D0%B8%D1%8F:SDK Все уроки]

<code>Автор: GSC
Спасибо: некоторым лицам с gameru.net за предоставленный тутор на английском языке
Перевод: Erwin Rommel</code>

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

All.spawn. Создание NPC

2010-09-22T09:21:38Z

Oxygenium:

== Что,как,зачем ==
Итак, я хочу рассказать вам как создать NPC через all.spawn.
Метод был выявлен мною путем проб и ошибок.
Конечно же у вас появился вопрос: « Ну а зачем же мучатся с all.spawn, если можно сделать тоже самое через скрипт?».
Ответ:
Хоть этот способ и не такой быстрый и легкий, но у него есть свои плюсы, необходимые многим, один из них - мы можем задать story id нашему NPC.
"А что дает нам это?"
Много чего, ну для примера - мы сможем поставить отметку на него.
Я не буду объяснять такие простые вещи как декомпиляция all.spawn и остальное, но если же вы все таки не знаете как, пишите мне в лс на Гейменаторе(stalkers-life, или Идиот)
Итак, хватит лишних слов, перейдем к работе...

== Работаем!!! ==

С помощью ACDC декомпилируем all.spawn

Получаем кучу файлов типа : alife_l01_escape , way_l01_escape и тд.

Создадим нового непися на Кордоне.
Открываем alife_l01_escape, и крутим в самый низ.

Если у вас чистая игра и вы ничего не делали в Олл спавне то посленяя секция у вас будет под номером 869.
Добавляем туда вот такой код(в конец):

<code>
[870]
; cse_abstract properties
section_name = stalker
name = noobik
position = -172.21215820313,-19.941787719727,-161.09272766113
direction = 0,0,0

; cse_alife_trader_abstract properties
money = 5000
character_profile = esc_noobik

; cse_alife_object properties
game_vertex_id = 52
distance = 0
level_vertex_id = 76655
object_flags = 0xffffffbf
custom_data = <<END

[logic]
cfg = scripts\noobik_logic.ltx

; cse
[smart_terrains]
none = true
END
story_id = 10000

; cse_visual properties
visual_name = actors\soldier\soldier_beret_1

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

upd:health = 1
upd:timestamp = 0
upd:creature_flags = 0
upd:position = -172.21215820313,-19.941787719727,-161.09272766113
upd:o_model = 0
upd:o_torso = 0.028013030067086,0,0.9996075630188
upd:g_team = 0
upd:g_squad = 1
upd:g_group = 2

; cse_alife_monster_abstract properties

upd:next_game_vertex_id = 65535
upd:prev_game_vertex_id = 65535
upd:distance_from_point = 0
upd:distance_to_point = 0

; cse_alife_human_abstract properties
predicate5 = 1,2,2,1,2
predicate4 = 0,1,1,1

; cse_ph_skeleton properties

upd:start_dialog =

; se_stalker properties
</code>

Разъясню некоторые пункты, чтобы в след. раз не пришлось прибегать к тутору.

<code>
section_name = stalker -//это для игры тут пишется к примеру если ето у тебя сталкера или бандюки то должно быть section_name = stalker
name = noobik -//пишем что хотим
position = -172.21215820313,-19.941787719727,-161.09272766113 -//позиция
direction = 0,0,0 -// направление взгляда(можно писать всегда нули)

; cse_alife_trader_abstract properties
money = 5000 -//его бабло
character_profile = esc_noobik -//ссылка на профиль в character_desc_локация(раз создаем в алайф эскейп значит и профиль будет искатсья в чарактер_деск_ескейп)

; cse_alife_object properties
game_vertex_id = 52 -// гейм вертекс
distance = 0
level_vertex_id = 76655 -//левел вертекс
object_flags = 0xffffffbf
custom_data = <<END

[logic]
cfg = scripts\noobik_logic.ltx -// ссылка на логику

; cse[smart_terrains]
none = true
END
story_id = 10000 -//его стори айди

; cse_visual properties
visual_name = actors\soldier\soldier_beret_1 -// его визуал

upd:health = 1
upd:timestamp = 0
upd:creature_flags = 0
upd:position = -172.21215820313,-19.941787719727,-161.09272766113 -//опять пишем позицию
upd:o_model = 0
upd:o_torso = 0.028013030067086,0,0.9996075630188
upd:g_team = 0
upd:g_squad = 1
upd:g_group = 2

upd:next_game_vertex_id = 65535-//честно не знаю что это, я всегда пишу эти цифры
upd:prev_game_vertex_id = 65535-//не знаю, но пишем всегда это
upd:distance_from_point = 0
upd:distance_to_point = 0
</code>

Компилируем, получаем файл all.spawn.new , копируем его в геймдату/спавнс и переименовываем просто в олл спавн.
Это еще не все!

еперь

открываем файл character_desc_escape

перед профилем волка вставляем это:

<code>

<specific_character id="esc_noobik" team_default = "1">
<name>Нубик</name>
<icon>ui_npc_u_stalker_neytral_balon_1</icon>
<bio>esc_noobik</bio>

<class>esc_noobik</class>
<community>stalker</community> <terrain_sect>stalker_terrain</terrain_sect>

<rank>434</rank>
<reputation>5</reputation>
<money min="600" max="2000" infinitive="0"/>

<snd_config>characters_voice\human_01\stalker\</snd_config>
<crouch_type>-1</crouch_type>

<visual>actors\soldier\soldier_beret_1</visual>
<supplies>
[spawn] \n
wpn_pm \n
ammo_9x18_fmj = 1 \n
wpn_ak74u \n
ammo_5.45x39_fmj \n
</supplies>

#include "gameplay\character_criticals_4.xml"

</specific_character>
</code>

у нас будет чел с визуалом военного, иконкой волка, и голосом обычного сталкера

теперь создаем файл логики,
в папке config/scripts создаем файл noobik_logic.ltx
и пишем туды:

<code>
[logic]
active = remark1
danger = danger_ignore

[danger_ignore]
ignore_distance = 5

[remark1]
no_move = true
</code>

все, он никуда не уйдет пока на него не нападут = )

Теперь открываем файл game_story_ids

и в самый низ вписываем:
10000 = "esc_noobik"

теперь открываем файл npc_profile
вставляем сие:

<code>
<character id="esc_noobik">
<class>esc_noobik</class>
<specific_character>esc_noobik</specific_character>
</character>
</code>

Все, мы на финишной прямой!
Открываем файл spawn_sections

и в писываем:
<code>
[esc_noobik]:stalker
$spawn = "respawn\esc_noobik"
character_profile = esc_noobik
spec_rank = novice
community = stalker
</code>

Все, все готово!
Начинаем новую игру, и видем сталкера с именем Нубик = )

Тутор написал не ты, стандер и способ открыт не тобою. Он был ещё известен всем умным людям в 2008 году. Так что слейся

[[Категория:скрипты]]

S.T.A.L.K.E.R. Inside Wiki:Администраторы

2010-09-16T12:32:29Z

Oxygenium: /* Oxygenium */

== Технические админы ==
Отвечают на любые вопросы. Принимают пожелания, предложения по функционалу и работе базы знаний.

=== Neo][ ===
*[mailto:neo@stalkerin.gameru.net электронная почта]
*ICQ: *********

== Главные редакторы ==
Отвечают на любые вопросы. Принимают пожелания, предложения по материалам, находящимся в базе знаний.

=== Erwin Rommel ===
*[mailto:semyonpoltorak@yandex.ru электронная почта]
*ICQ: 3906034
Вопросы, касательно вики и сайта

=== Loxotron ===
*[mailto:loxotron@bk.ru электронная почта]
*ICQ: *********

=== [[Участник:HikeR|HikeR]] ===
*[mailto:hhrhhr@gmail.com электронная почта]
*ICQ: 58258575

== Новости STALKER Wiki ==
'''- январь 2008 -''' 
поддержка flash мувиков

'''- июнь 2009 -''' 
починена загрузка картинок

'''- август 2009 -''' 
поставлена recaptcha

'''- август 2009 -''' 
поставлена recaptcha

'''- февраль 2010 -''' 
починено отображение картинок

DCT:Создание мультиплеерной карты

2010-08-13T16:14:55Z

Oxygenium: Откачено к последнему изменению, сделанному Loxotron

==Создаём сцену в Maya.==
*Вся геометрия должна быть создана в реальных мировых размерах (если стол в реальной жизни высотой 1 метр, значит его надо и в Maya делать высотой 1 метр, всё предельно ясно и просто)
*Bounding box персонажа имеет три состояния: стоя (1.8х0.7х0.7 в метрах), сидя (1.5х0.7х0.7 в метрах) и очень сидя (1.2х0.7х0.7 в метрах).
*Весь уровень должен быть не больше 150 тысяч треугольников.
[[image: Docs_maya_outliner.jpg|outliner screenshot|center|frame|outliner screenshot]]
*Сцена должна состоять из групп. Название группы формируется по такому принципу: '''mp_имяуровня_назвгеометрии'''. Например, в нашей тестовой сцене такие группы: mp_atp_terrain, mp_atp_buildings. В группе может находится как и один объект, так и несколько. Имена объектов внутри группы никоем образом не должны совпадать с именем группы. 
'''В переделах одной группы все имена должны быть уникальны'''.
[[image: Docs_maya_mp_atp_terrain.jpg|mp_atp_terrain - игровой ландшафт|center|frame|mp_atp_terrain - игровой ландшафт]]
[[image: Docs_maya_mp_atp_buildings.jpg|mp_atp_buildings - игровая геометрия|center|frame|mp_atp_buildings - игровая геометрия]]
*Шейп объекта должен содержать правильное имя. Формируется по такому принципу: объект - имя_объекта, шейп - имя_объектаShape.
[[image: Docs_maya_objectname.jpg|Имена объектов в Maya|center|frame|Имена объектов в Maya]]

==Экспортим геометрию из Maya.==
Для ознакомления с процессом экспорта просмотрите ролик в следующем параграфе.
В случае если xrayMaya_export не экспортит объекты, то проведите проверку на наличие ошибок, и исправьте их.

Ошибками для xrayMaya_export считаются:
*Неправильные текстурные координаты (потяжки).
*Полигон площадью 0 м2.
*Тонкие длинные треугольники.
*Не склеенные точки находящиеся в одном и том же месте и т.д.
[[image: Docs_maya_cleanup.jpg|настройки Cleanup ...|center|frame|настройки Cleanup ...]]

==Импортим в библиотеку LevelEditor'a.==
<div style="text-align:center;">
<flash>file=import.swf|width=750|height=582|quality=medium|menu=false</flash>
</div>

==Создаём сцену в LevelEditor.==
===Создание сцены===
Для ознакомления с процессом создания сцены просмотрите ролик.

<div style="text-align:center;">
<swf width="750" height="582">/wiki/images/big_files/createscene.swf</swf>
</div>

===Добавление объектов из библиотеки LevelEditor'a===
*Edit Mode -> Object ->Select
*Выбираем необходимый объект.
[[image:Docs_leveleditor_select_object.jpg|Выбор объекта из библиотеки|center|frame|Выбор объекта из библиотеки]]
*Жмём Add и добавляем в сцену.
[[image:Docs_eveleditor_add_objecttoscene.jpg|Добавление объекта в сцену|center|frame|Добавление объекта в сцену]]

==Настраиваем spawn элементы.==
===General issues===
В игре существует 3 типа мультиплеерной игры:

*DeathMatch
*TeamDeathMatch (только 2 команды)
*ArtefactHunt

Максимальное количество игроков - 32.
===DeathMatch Setup===
Добовляем в сцену необходимое количество '''$rpoint''' <code>(Edit Mode -> Spawn Element -> $rpoint)</code> элементов с базовой настройкой.

[[image:Docs_leveleditor_dethmatch.jpg|Базовая настройка для $rpoint|center|frame|Базовая настройка для $rpoint]]
===TeamDeathMatch Setup===
*Добовляем в сцену необходимое количество $rpoint (Edit Mode -> Spawn Element -> $rpoint) элементов с базовой настройкой.
*В случае если необходимо сделать $rpoint, принадлежащим только одной команде, меняем параметр Team: 1 или 2, и Game Type: TeamDeathMatch '''(работает только в версии 1.003 и выше)'''. В этом случае все $rpoint с базовыми настройками будут служить как spectator place.
[[image:Docs_leveleditor_teamdethmatch.jpg|TeamDeathMatch настройка для $rpoint|center|frame|TeamDeathMatch настройка для $rpoint]]

===ArtefactHunt Setup===
====Создание баз====
*Создайте два box shapes (Edit Mode -> Shape -> Box), в тех местах где будут располагаться противоборствующие базы. '''В пределах этого Box Shape’а''' игроки команды '''неуязвимы'''.
[[image:Docs_leveleditor_teambase_shape.jpg|Добавляем Box Shape|center|frame|Добавляем Box Shape]]
*Расположите в каждом $team_base (Edit Mode -> Spawn Element -> $team_base) внутри box shapes.
[[image:Docs_leveleditor_teambase_spawn.jpg|Добавляем $team_base|center|frame|Добавляем $team_base]]
[[image:Docs_leveleditor_teambase.jpg|ArtefactHunt настройка для $team_base|center|frame|ArtefactHunt настройка для $team_base]]
*Выбрать $team_base.
*Нажать Commands -> Attach Object…
*Выбрать необходимый Shape.
[[image:Docs_leveleditor_teambase_spawnattach.jpg|Присоединение $team_base к Box Shape|center|frame|Присоединение $team_base к Box Shape]]

====Добавление spawn point членов команды====
*Добавляем в сцену необходимое количество $rpoint в пределах box shape 1ой команды с такими настройками:
[[image:Docs_leveleditor_artefacthunt1.jpg|ArtefactHunt настройка для $rpoint (игроки)|center|frame|ArtefactHunt настройка для $rpoint (игроки)]]
*Аналогично для 2ой каманды, только параметр Team меняем на 2.
====Добавление командных частиц (символизирует границы базы команды)====
*Добавляем в сцену необходимое количество $rpoint в пределах box shape 1ой команды с такими настройками:
[[image:Docs_leveleditor_artefacthunt2.jpg|ArtefactHunt настройка для $rpoint (частицы)|center|frame|ArtefactHunt настройка для $rpoint (частицы)]]
*Аналогично для 2ой каманды, только параметр Team меняем на 2.
====Добавление spawn point артефактов====
Артефакты не появляются случайным образом, места их рождения необходимо указывать самостоятельно. Добавляем в сцену необходимое количество $rpoint с такими настройками:
[[image:Docs_leveleditor_artefacthunt3.jpg|ArtefactHunt настройка для $rpoint (артефакты)|center|frame|ArtefactHunt настройка для $rpoint (артефакты)]]

==Настраиваем тип карты==
Принадлежность карты к одному из трёх типов игры указывается таким образом:
*Нажать Scene -> Options
*В секции Usage выбрать необходимые для вас типы
[[image:Docs_leveleditor_map_usage.jpg|Настройки типа карты|center|frame|Настройки типа карты]]

==Компилируем==
<code>Windows -> start -> run</code> и в командной строке пишем:
[[image:Docs_wind_run_comp_multiplayer.jpg|Запуск уровня на компиляцию|center|frame|Запуск уровня на компиляцию]]
После корректной компиляции:
[[image:Docs_wind_xray_levelcompiler.jpg|Завершение компиляции|center|frame|Завершение компиляции]]

==Собираем карту и добавляем её в игру.==
*Нажать File -> Make pack...
[[image:Docs_leveleditor_mod_pack.jpg|Собираем карту|center|frame|Собираем карту]]
*В корне диска X:\ создастся файл gamedata.xdb0, его необходимо скопировать в папку игры S.T.A.L.K.E.R\mods

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

Milkshape. Привязка костей

2010-07-29T07:29:48Z

Oxygenium:

И так начнём с того, что возьмём понравившуюся нам модель, к примеру, я взял вот эту модельку для всс винтарез
первое, что мы сделаем. так это ознакомимся, что же такое милкшейп, и для чего нужна эта программа
Хороший сайт про эту программу
http://milkshape3d.by.ru/start.html

'''Перейдём не посредственно к изучению программы'''
http://pics.kz/view1188907
<pre>1)-выделение кости, джоинта, модели
2)- пемешение, кости, джоинта, модели
3)- поворот модели
4)- уменьщение\увеличение модели,, что бы увеличить, в слотах пришем цифры 1.0099\уменьшить 0.99
5)- для начинающих, это не надо, остальное создаёт модели шара, нара с не ровными углами wacko2.gif планшет коробка, и т.д.</pre>

далее
http://pics.kz/view1188908

Импортирование модели в милкшейп, без специального плагина от Бардака, сделать этого, мы не сможем, можно скачать его тут
далее
http://pics.kz/view1188909

Вот, это открытая модель в программе
далее
http://pics.kz/view1188910

Эти части, мы и будем привязывать, каждая из них имеет своё название, к примеру затвор-zatvor, прицел- scope, магазин magazin и т.д.
далее

http://pics.kz/view1188911

выделяем магазин с помощью select и и не чего не нажимая на поле с моделькой переходим в пункт Г (см. 1 скрин), там ищем кось магазина, и жмём assign, всё, кость магазина привязали, теперь двигаем её (move) как нам надо, что бы глаз не резал и и как душе угодно в общем dash2.gif
далее
Делаем так же как и ранее, но и с остальными частями, всё оставшееся, это приклад, ручку цевьё, привязываем к body или wpn_body кому как нравится , получиться должно примерно так

http://pics.kz/view1188962

Всё, теперь приступим к экспорту в сдк, делаем это вот так , обязательно пишем правильное название как на скриншоте
http://pics.kz/view1188963

а именно, что бы после названия было написанно .object

http://pics.kz/view1188964
[[Участник:РикошеТ]]
[[Категория:Wireframe]]

Milkshape. Привязка костей

2010-07-29T07:29:21Z

Oxygenium:

Sv bearercantsprint

2010-07-23T09:37:27Z

Oxygenium:

sv_bearercantsprint - (0,1) игрок, который несет артефакт, может бежать.
[[Категория:FAQ]]

Подключение локаций к ЧН и ЗП с помощью программы от AMK Team

2010-07-15T15:55:05Z

Oxygenium:

== Подготовка. ==
Устанавливаем active perl.

Заходим в папку с программой ggEditor_01.Создаем там папки Cs или Cop(Смотря на какую игру делаете) и папку Soc.В папке Soc создаем папку gamedata и кидаем в нее файл game.graph(Важно чтобы game.graph лежал там, иначе программа не прочитает.) из мода, или от ТЧ.В папке gamedata создаем папку levels и кидаем туда папку с уровнем, который мы хотим портировать. Далее возвращаемся в папку Soc и туда кидаем папку с ACDC для ТЧ, туда же кладём all.spawn.Запускаем соответствующий батник для распаковки all.spawn`а.

Далее в папку ggEditor_01\Cs или Cop, кидаем папку с соответствующим ACDC, опять-же кладем туда all.spawn, распаковываем.

В итоге у нас должно получиться 2 распакованных all.spawn`а, game.graph от ТЧ и папка с переносимым уровнем.

С приготовлениями всё.

== Основная работа. ==
Запускаем программу ggEditor.Видим там два окошка. В левом открываем game.graph от ТЧ, а в правом — от ЗП или ЧН(В ЗП и ЧН граф вшит в all.spawn, ищите его там.)(Нужно выбрать тип файлов для ЧН — graph.bin, а для ЗП — все файлы и открыть в папке с ACDC файл section4.bin).
В окошках мы видим список уровней. В левом окошке находим нужный нам уровень и нажимаем на соответствующую стрелку для переноса уровня в нужный нам граф. Нажимаем в правом окошке «сохранить».После того, как граф сохранился, можно закрыть программу, она нам больше не понадобится. Потом этого шагаем в папку с ACDC для ЧН\ЗП и удаляем старые файлы section4.bin или graph.bin.Затем переименовываем файлы graph.bin.new или section4.bin.new в graph.bin и соответственно section4.bin.

Далее идем в папку с ACDC от ТЧ, находим там файл alife_наша_локация и копируем его. Затем шуруем в папку с ACDC от ЧН\ЗП, вставляем скопированный нами файл. Открываем этот файл, сносим все, оставляем только одну секцию спавна(Лучше всего если это будет какой-нибудь объект), присваиваем секции номер не меньше 20000, сворачиваем на время этот файл. Далее нужно подогнать вертексы. Для этого запускаем батник ggtool, ждем некоторое время, после чего появляются имена локаций, а рядом с ними числа. Смотрим это число рядом с нашей локацией(в ЧН это скорее всего будет 1620, а в ЗП 934).Далее разворачиваем alife_ файл с нашей локацией, ищем там строку «game_vertex_id» и пишем там число которое появилось рядом с нашей локацией при запуске батника ggtool.Затем обращаем свой взор на строку «level_vertex_id».К исходному значению строки прибавляем число, которое мы записали в строку «game_vertex_id», полученное число записываем. Далее, в добавляемых потом секциях спавна нужно писать эти числа. Мы подогнали вертексы.

Затем открываем файл all.ltx.Вписываем туда свой alife_ файл локации, way_ файлы не трогаем. Меняем на соответствующее число локации строку level_count.

После этого открываем файл alife_zaton(для ЗП) или alife_marsh(для ЧН)и ищем там гг по строке «section_name = actor».Нашли?Отлично. Теперь присваиваем этой секции спавна позицию(новую позицию прописываем также в строке "upd:position = ") и вертексы как у единственного предмета в файле alife_новая_локация. При следующей распаковке, если вы все сделали правильно, наш актор окажется в файле alife_новая_лока.

Мы почти закончили с пробной сборкой новой локации(пока без перехода).

Осталось только прописать наш новый уровень в файл ACDC Cop\acdccop.pl(для ЗП)либо в файле ACDC Cs\stkutils\level.pm.

В этих файлах ищем такие строки(для ЗП):

<code>

use constant levels_info => (
{ gvid0 => 934, },
{ gvid0 => 883, name => 'jupiter_underground' },
{ gvid0 => 857, name => 'labx8' },
{ gvid0 => 666, name => 'pripyat' },
{ gvid0 => 317, name => 'jupiter' },
{ gvid0 => 0, name => 'zaton' },

</code>

И если у вас число когда мы запускали батник ggtool тоже 934 то прописываем так:

<code>

use constant levels_info => (
{ gvid0 => 934, name => 'ваша_локация' },
{ gvid0 => 883, name => 'jupiter_underground' },
{ gvid0 => 857, name => 'labx8' },
{ gvid0 => 666, name => 'pripyat' },
{ gvid0 => 317, name => 'jupiter' },
{ gvid0 => 0, name => 'zaton' },

</code>

А в файле level.pm от ACDC ЧН вы увидите такой текст:

<code>

use constant levels_info => (
{ gvid0 => 1620, },
{ gvid0 => 1573, name => 'l12_hospital' },
{ gvid0 => 1565, name => 'l11_stancia2' },
{ gvid0 => 1524, name => 'l10_limansk' },
{ gvid0 => 1511, name => 'l09_agroprom_undeground' },
{ gvid0 => 1313, name => 'l08_military' },
{ gvid0 => 1212, name => 'l07_yantar' },
{ gvid0 => 1057, name => 'l06_agroprom' },
{ gvid0 => 961, name => 'l05_red_forest' },
{ gvid0 => 743, name => 'l04_darkvalley' },
{ gvid0 => 472, name => 'l03_escape' },
{ gvid0 => 245, name => 'l02_garbage' },
{ gvid0 => 0, name => 'l01_marsh' },

</code>

Прописать там свой уровень нужно точно так-же как в файле от ACDC ЗП:

<code>

use constant levels_info => (
{ gvid0 => 1620, name => 'ваша_локация' },
{ gvid0 => 1573, name => 'l12_hospital' },
{ gvid0 => 1565, name => 'l11_stancia2' },
{ gvid0 => 1524, name => 'l10_limansk' },
{ gvid0 => 1511, name => 'l09_agroprom_undeground' },
{ gvid0 => 1313, name => 'l08_military' },
{ gvid0 => 1212, name => 'l07_yantar' },
{ gvid0 => 1057, name => 'l06_agroprom' },
{ gvid0 => 961, name => 'l05_red_forest' },
{ gvid0 => 743, name => 'l04_darkvalley' },
{ gvid0 => 472, name => 'l03_escape' },
{ gvid0 => 245, name => 'l02_garbage' },
{ gvid0 => 0, name => 'l01_marsh' },

</code>

Всё.Собираем all.spawn.

== Сборка геймдаты. ==
Осталось собрать gamedat`у для игры и смотреть что получилось.
Итак, приступим:

В папке с игрой создаем папку gamedata, а в ней папки configs, levels, spawns.В папку spawns ложим получившийся при сборке all.spawn.new(или new.spawn), не забывая переименовать его в all.spawn.В папку levels ложим уровень из ggEditor_01\Soc\gamedata\levels\ваша_локация.Затем заходим в папку с уровнем, удаляем файл level.ai и переименовываем файл level.ai10 в level.ai.

Теперь осталось только прописать уровень в конфигах.Из распакованной геймдаты игры берем файлы configs\game_graphs.ltx, game_levels.ltx, game_maps_single.ltx.

game_graphs.ltx для ЧН должен выглядеть так:

<code>

[location_0]
000 = "..."
001 = "эскейп"
002 = "свалка"
003 = "агропром"
004 = "агропром-подземка"
005 = "темная долина"
006 = "лаборатория X-18"
007 = "даркскейп"
008 = "Бар"
009 = "Росток"
010 = "Янтарь"
011 = "лаборатория X-16"
012 = "Милитари"
013 = "Мертвый город"
014 = "Радар"
015 = "Радар бункер"
016 = "Припять"
017 = "станция АЭС"
018 = "ваша_локация"

[location_1]
000 = "..."
001 = "ограниченный доступ"
002 = "запрещенный доступ"

[location_2]
000 = "..."
001 = "не для игрока"

[location_3]
000 = "..."
001 = "ваша_локация"

</code>

game_graphs для ЗП должен выглядеть так:

<code>

[location_0]
000 = "..."
001 = "ваша_локация"
002 = "sim_smart_2"
003 = "sim_smart_3"
004 = "sim_smart_4"
005 = "sim_smart_5"
006 = "sim_smart_6"
007 = "sim_smart_7"
008 = "sim_smart_8"
009 = "sim_smart_base"

[location_1]
000 = "..."
001 = "ограниченный доступ"
002 = "запрещенный доступ"

[location_2]
000 = "..."
001 = "не для игрока"

[location_3]
000 = "..."
... . .......................
112 = "pri_a22_smart_terrain"
113 = "pri_a25_smart_terrain"
114 = "pri_a28_arch"
115 = "pri_a28_base"
116 = "pri_b28_evac"
117 = "pri_a28_heli"
118 = "pri_a28_school"
119 = "pri_a28_shop"
120 = "pri_b301"
121 = "pri_b302"
122 = "pri_b303"
123 = "pri_b304_monsters_smart_terrain"
124 = "pri_b305_dogs"
125 = "pri_b306"
126 = "pri_b307"
127 = "pri_b35_mercs"
128 = "pri_b35_military"
129 = "pri_b36_smart_terrain"
130 = "pri_sim_1"
131 = "pri_sim_2"
132 = "pri_sim_3"
133 = "pri_sim_4"
134 = "pri_sim_5"
135 = "pri_sim_6"
136 = "pri_sim_7"
137 = "pri_sim_8"
138 = "pri_sim_9"
139 = "pri_sim_10"
140 = "pri_sim_11"
141 = "pri_sim_12"
142 = "ваша_локация"

[graph_points_draw_color_palette]
default = 0x6000ffff
000_000_000_000 = 0x60ff00ff

</code>

Далее лезем в game_levels.ltx.
Там в самом начале, где список уровней, вписываем "level183"(число не менее 183.)
Листаем файл до самого конца и в конце пишем следующее:

<code>

[level183]
name = ваша_локация
caption = "ваша_локация"
offset = 700.0, 1000.0, -840.0
weathers = [default]
id = 183

</code>

Затем открываем файл game_maps_single.ltx и прописываем свой уровень в секции "[level_maps_single]", а затем создаем примерно такую секцию для нашего уровня:

<code>

[ваша_локация]
global_rect = 307.0, 90.0, 717.0, 500.000000
weathers = dynamic_default

</code>

----

Всё.Запускайте игру и пробуйте, что получилось.

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

Мы отмерили все необходимые нам координаты.

Затем распаковываем сделанный нами ранее all.spawn.Теперь в нужных нам локациях, в alife_ файлах добавляем следующую секцию спавна:

<code>

[1]
; cse_abstract properties
section_name = level_changer
name = escgar_level_changer - уникальное имя
position = 28.060224533081,16.556184768677,685.80151367188 - координаты перехода
direction = 0,0,0
cse_abstract__unk1_h16 = 0x1
; cse_alife_object properties
game_vertex_id = 1142 - геймвертексы
distance = 0
level_vertex_id = 308110 - геймвертексы
object_flags = 0xffffff3e
; cse_shape properties
shapes = shape0
shape0:type = box
shape0:axis_x = 1.25219917297363,0,0
shape0:axis_y = 0,3.09340000152588,0
shape0:axis_z = 0,0,1.25219917297363
shape0:offset = 0,0,0
; cse_alife_space_restrictor properties
restrictor_type = 3
; cse_alife_level_changer properties
dest_game_vertex_id = 1187 - вертексы локи на которую ведет переход
dest_level_vertex_id = 212769 - вертексы локи на которую ведет переход
dest_position = 39.396331787109,0.48722490668297,-299.7674505469 - позиция куда кидает
dest_direction = 0,0,0 - поворот гг
dest_level_name = l02_garbage - на какую локу кидает
dest_graph_point = start_actor_01
silent_mode = 1
; se_level_changer properties

</code>

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

----
'''Убедительная просьба к начинающим модмейкерам.Пожалуйста, если вы только начали заниматься модами, то я вам настоятельно не советую заниматься подключением локаций.Наберитесь опыта, подучитесь элементарному.Я вас учить этому не подписывался.'''

Да и еще.Если будете переносить секции спавна, то для массовой замены гейм вертексов и левел вертексов можно использовать блокнот: открываем наш файл в блокноте=> правка=> заменить, и пишем что на что заменять.
----

'''Автор статьи: БАТЯ-STALKER'''

'''О способе подключения поведал: джЭдай (ака Panisher)'''

Если у вас что-то не получается или появились вопросы, есть [http://www.gameru.net/forum/index.php?showtopic=32654 тема] на форуме.

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

Вывод сообщения на экран

2010-07-12T10:32:17Z

Oxygenium:

'''Как вывести сообщение на экран без использования функций АМК'''

У любого клиентского объекта имеется метод give_game_news
Он и выводит сообщения на экран. Экспериментом выяснил, что сообщение можно вывести совершенно от любого клиентского объекта, хоть от куска колбасы (хвала дизайнерскому гению GSC! Ну почему не сделать просто глобальную функцию?). Однако, следуя традиции и здравому смыслу, мы таки воспользуемся для этого объектом, соответствующим ГГ, т.е. актёром.

<pre> local sactor = alife():actor() --получаем серверный объект актера
local cactor = level.object_by_id(sactor.id) --по его ID получаем клиентский объект актера
cactor:give_game_news(
"Свободу тушканам!\\nТушканчики всех стран, объединяйтесь!", -- строка сообщение, может быть многострочной
"ui\\ui_npc_monster", --текстура, из которой берется аватара "отправителя"
Frect():set(0,215,163,105), --координаты и размеры вырезаемого из текстуры изображения
math.random(1000, 3000), --начало показа сообщения с текущего момента (в миллисекундах)
5000 --длительность показа сообщения (в миллисекундах)
)</pre>

Доп. комментарии к аргументам '''give_game_news''':
имя текстуры - это имя файла DDS без расширения, адресуемого относительно папки '''\gamedata\textures\'''
в этом выражении '''Frect():set(0,215,163,105)'''
'''0,215''' - это координаты верхнего левого угла нужного изображения
'''163,105''' - его размеры
Размеры и координаты могут быть любыми, но полученное изображение будет увеличено или уменьшено до размеров 83х47
В данном случае изображение тушкана из файла ui_npc_monster.dds было уменьшено.
Параметр времени начала показа нужен, очевидно, для внесения некоторой живости в игру. Дело в том, что код Lua получает управление только в определённые моменты, по определённым событиям. В такой момент можно сгенерить пачку сообщений и раскидать их по времени с помощью этого параметра, создав таким образом некоторую имитацию жизнедеятельности на ближайшее время. Думаю, таким же образом можно имитировать диалоги. Просто генерится пачка сообщений и им задаётся вывод с небольшим интервалом.

[[Категория:Скрипты]]
[[Участник:malandrinus]]

Maya. Один из способов создания игрового ландшафта

2010-07-03T17:53:26Z

Oxygenium:

Для начала откроем саму прогу. Выполнив все манипуляции по настройке плагинов и единиц измерения (читаем офф. руководство на вики), создадим NURBS primitives plane. Жмем кубик рядом с надписью
http://img.gameru.net/img/ccd63.jpg

Смотрим, что получилось? Настроим нашу плоскость, к примеру, 200х200.

http://img.gameru.net/img/e5797.jpg

Теперь кликаем в центр решетки. Нажимаем кнопку «5»

http://img.gameru.net/img/93af2.jpg

Должно получиться примерно вот так.
Теперь выровняем по центру нашу плоскость.
Для этого лезем самая крайняя кнопка с права в панели инструментов. Выставляем Translate по всем осям на 0.

http://img.gameru.net/img/d6552.jpg

Теперь смоделируем дорогу. Жмем create CV Curve tool. Тыкаем кубик
http://img.gameru.net/img/5c311.jpg

Если хотим загогулистую дорогу, ставим cubic, если ограничимся прямой, то но linear. Я решил сделать с плавными изгибами.

http://img.gameru.net/img/f3b5b.jpg

Теперь переходим в режим ТОР (вид с верху) настраиваем сетку (я сделал 100х10х1)
http://img.gameru.net/img/08a55.jpg

Включаем привязку к сетке (клавиша x или соответствующая иконка на панели инструментов)
Теперь точками рисуем нашу кривую 1

http://img.gameru.net/img/fb417.jpg

После того как кривая нарисована, жмем enter, наша кривая станет зеленой.

http://img.gameru.net/img/9e111.jpg

Теперь сочетание клавиш ctrl+D дублируем нашу кривую, выбираем инструмент move и перемещаем ее рядом чтоб получить вторую границу нашей дороги. Не забываем про размеры, я для примера перенесу 2 кривую на 5 метров вправо. Отключаем во вкладке Shading Smooth shade all, или нажимае кнопку «4».

http://img.gameru.net/img/3edd0.jpg

Должно получиться примерно это.
Теперь все это безобразие нужно превратить в полигоны.
Заходим во вкладку Window -> Outliner

http://img.gameru.net/img/fb150.jpg

И в открывшемся окне с помощью клавиши ctrl и лев. Кнопки Миши выбираем Curve1 & Curve2.

http://img.gameru.net/img/ca639.jpg

Теперь из режима редактирования полигонов нам надо перейти в режим редактирования Surfaces. Ниспадающее меню сразу под вкладками File Edit.

http://img.gameru.net/img/ce7ad.jpg

Теперь отрываем вкладку Surfaces -> Loft жмем кубик

http://img.gameru.net/img/1b5c6.jpg

В открывшемся окне проведем некоторые настройки.
Движок Sections spans отвечает за количество разбиений, не переборщите, потом тяжелее будет все это приводить в порядок. Для дороги (и.т.п.) я использую 2. Ставим в окне циферу 2 и жмем Loft. Должно получиться примерно так.

http://img.gameru.net/img/95536.jpg

Сразу отметим, что в окне outliner, появился новый объект LoftedSurface1, переименуем его в road, щелкнем в окне Outliner на сей объект, и пропишем ему новое имя. В дальнейшем при наполнении локации корректное имя объекта здорово облегчит жизнь.

http://img.gameru.net/img/8b2ae.jpg

Так. Дорогу создали, теперь создадим все остальное , что дорогу окружает.
Тобиш землю, по которой эта дорога проложена.
Для этого создадим еще 2 кривые, только теперь в настройках CV Curve tool поменяем Curve degree с cubic на linear.
Включаем привязку к сетке и строим две вертикальные кривые по линиям нашей ранее созданной плоскости.

http://img.gameru.net/img/b179f.jpg
Сразу отмечу то, что чем больше точек в линии, тем больше будет разбиений , и тем больше в итоге получится поликов. Тут уж на глаз.
Все жмем enter дублируем нашу линию ctrl+D и инструментом move перемещаем на противоположную сторону.
Теперь плоскость NurmbsPlane нам больше не нужна, удалим ее. В окне Outliner выделим ее и нажмем клавишу del.
Вот что должно получиться.

http://img.gameru.net/img/1e657.jpg

Теперь сформируем новые плоскости. Для этого в окне Outliner выбираем Curve1&curve3 жмем surfaces -> loft и кубик рядом, экспериментируя с настройками, добиваемся боле менее нормального варианта разбиения, у меня получилось так.

http://img.gameru.net/img/4b564.jpg

Теперь выбираем кривые 2 и 4 и проделываем то же самое.
Выглядеть должно примерно так.

http://img.gameru.net/img/e514b.jpg

Теперь все кривые можно удалить. В окне выбираем все 4 и мочим их.

http://img.gameru.net/img/82a2d.jpg

Ну, вот что-то похожее на истину у нас получилось, теперь все это безобразие нужно конвертировать в полигональные объекты. Выбираем наш road, лезем во вкладку Modify -> convert -> Nurmbs to Poligon жмем кубик
В открывшемся окне делаем настройки. С разу скажу, что лучше разбивать на треугольники, а не на кубики. Т.к. Повороты будут плавне и с числом полигонов count при разбиении придется экспериментировать, до получения оптимального варианта. Я взял 400.

http://img.gameru.net/img/08ca0.jpg

Жмем apply, получаем результат.

http://img.gameru.net/img/00be4.jpg
Обратите внимание на то что в окне Outliner появился новый объект, переименуем его все в тот же road, а исходный можно удалить.

http://img.gameru.net/img/43094.jpg

Теперь по такой же схеме проделываем фокусы с оставшимися объектами, у меня получилось вот так.

http://img.gameru.net/img/df4cd.jpg

Теперь оставим дорогу в покое, а две половинки нашей земли склеим в единый меш.
В окне Outliner выбираем их, переходим в режим редактирования полигонов (под вкладками file edit) заходим

http://img.gameru.net/img/127df.jpg
Получим склеенный меш.
Теперь можно заниматься самим ландшафтом, холмами, долами и.т.п. .
Потом наносим материалы, собираем в единый меш и экспортим.
Вроде усе.
Authors: '''ZVUKARb'''
Из Word в Wiki: '''Oxygenium'''

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

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

2010-07-03T16:04:39Z

Oxygenium:

В этой теме я напишу как сделать так что б можна было снимать деньги с трупов.
Нам надо файл 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>
всё заходим в игру и пробуем :-)

[[Категория:Скрипты]]

Добавление новых графических опций

2010-07-03T10:16:54Z

Oxygenium:

Будем учиться добавлять новые опции в меню графики.
 Нам понадобятся файлы:
 '''user.ltx'''
 '''ui_mm_opt_video.script'''
 '''ui_mm_opt_video_adv.script'''
 '''ui_mm_opt.xml'''
 '''ui_st_mm.xml'''

Для начала, идём в '''user.ltx''' и ищем там графические параметры.
<pre>_preset Extreme
ai_use_torch_dynamic_lights on
unbindall
bind left kLEFT
bind right kRIGHT
bind up kUP
bind down kDOWN
bind jump kSPACE
bind crouch kLCONTROL
bind accel kLSHIFT
bind sprint_toggle kX
bind forward kW
bind back kS
bind lstrafe kA
bind rstrafe kD
bind llookout kQ
bind rlookout kE
bind cam_zoom_in kADD
bind cam_zoom_out kSUBTRACT
bind torch kL
bind night_vision kN
bind wpn_1 k1
bind wpn_2 k2
bind wpn_3 k3
bind wpn_4 k4
bind wpn_5 k5
bind wpn_6 k6
bind artefact k7
bind wpn_next kY
bind wpn_fire mouse1
bind wpn_zoom mouse2
bind wpn_reload kR
bind wpn_func kV
bind wpn_firemode_prev k9
bind wpn_firemode_next k0
bind pause kPAUSE
bind drop kG
bind use kF
bind scores kTAB
bind chat kCOMMA
bind chat_team kPERIOD
bind screenshot kF12
bind quit kESCAPE
bind console kGRAVE
bind inventory kI
bind buy_menu kB
bind skin_menu kO
bind team_menu kU
bind active_jobs kP
bind map kM
bind contacts kH
bind vote_begin kF5
bind vote kF6
bind vote_yes kF7
bind vote_no kF8
bind speech_menu_0 kC
bind speech_menu_1 kZ
bind use_bandage kRBRACKET
bind use_medkit kLBRACKET
bind quick_save kF6
bind quick_load kF7
cam_inert 0.
cam_slide_inert 0.25
cl_cod_pickup_mode 1
cl_dynamiccrosshair on
g_always_run on
g_autopickup on
g_backrun on
g_corpsenum 10
g_eventdelay 0
g_game_difficulty gd_novice
hud_crosshair on
hud_crosshair_dist off
hud_info on
hud_weapon on
load_last_save all
mm_mm_net_srv_dedicated off
mm_net_con_publicserver off
mm_net_con_spectator 20
mm_net_con_spectator_on off
mm_net_filter_empty on
mm_net_filter_full on
mm_net_filter_listen on
mm_net_filter_pass on
mm_net_filter_wo_ff on
mm_net_filter_wo_pass on
mm_net_srv_gamemode st_deathmatch
mm_net_srv_maxplayers 32
mm_net_srv_name MICROSOF-80B663
mm_net_srv_reinforcement_type 1
mm_net_weather_rateofchange 1.
mouse_invert off
mouse_sens 0.12
net_cl_icurvesize 0
net_cl_icurvetype 0
net_cl_interpolation 0.
net_cl_log_data off
net_dbg_dump_export_obj 0
net_dbg_dump_import_obj 0
net_dbg_dump_update_read 0
net_dbg_dump_update_write 0
net_dedicated_sleep 5
net_sv_gpmode 0
net_sv_log_data off
net_sv_pending_lim 3
net_sv_update_rate 30
ph_frequency 100.00000
ph_iterations 38
r1_dlights on
r1_dlights_clip 75.
r1_glows_per_frame 16
r1_lmodel_lerp 0.1
r1_pps_u 0.
r1_pps_v 0.
r1_ssa_lod_a 64.
r1_ssa_lod_b 48.
r1_tf_mipbias 0.
r2_aa off
r2_aa_break 0.800000,0.500000,0.000000
r2_aa_kernel 0.5
r2_aa_weight 0.250000,0.250000,0.000000
r2_allow_r1_lights off
r2_gi off
r2_gi_clip 0.001
r2_gi_depth 1
r2_gi_photons 16
r2_gi_refl 0.9
r2_gloss_factor 1.5
r2_ls_bloom_fast off
r2_ls_bloom_kernel_b 0.7
r2_ls_bloom_kernel_g 3.
r2_ls_bloom_kernel_scale 0.7
r2_ls_bloom_speed 100.
r2_ls_bloom_threshold 0.001
r2_ls_depth_bias -0.0003
r2_ls_depth_scale 1.00001
r2_ls_dsm_kernel 0.7
r2_ls_psm_kernel 0.7
r2_ls_squality 1.
r2_ls_ssm_kernel 0.7
r2_mblur 0.
r2_parallax_h 0.02
r2_slight_fade 0.3333
r2_ssa_lod_a 64.
r2_ssa_lod_b 48.
r2_sun on
r2_sun_depth_far_bias -0.00001
r2_sun_depth_far_scale 1.
r2_sun_depth_near_bias 0.00001
r2_sun_depth_near_scale 1.
r2_sun_details off
r2_sun_focus on
r2_sun_lumscale 1.
r2_sun_lumscale_amb 0.5
r2_sun_lumscale_hemi 1.
r2_sun_near 12.
r2_sun_near_border 0.75
r2_sun_tsm on
r2_sun_tsm_bias -0.01
r2_sun_tsm_proj 0.3
r2_tf_mipbias 0.
r2_tonemap on
r2_tonemap_adaptation 1.
r2_tonemap_amount 0.7
r2_tonemap_lowlum 0.0001
r2_tonemap_middlegray 0.6
r2_wait_sleep 0
r2_zfill off
r2_zfill_depth 0.5
r2em 2.2
r__detail_density 0.2
r__geometry_lod 1.
r__supersample 2
r__tf_aniso 16
renderer renderer_r2
rs_c_brightness 1.
rs_c_contrast 1.
rs_c_gamma 1.
rs_fullscreen on
rs_refresh_60hz on
rs_stats off
rs_v_sync off
rs_vis_distance 1.
snd_acceleration on
snd_cache_size 16
snd_efx on
snd_targets 24
snd_volume_eff 1.
snd_volume_music 1.
sv_anomalies_enabled 1
sv_anomalies_length 3
sv_artefact_respawn_delta 30
sv_artefact_spawn_force 0
sv_artefact_stay_time 3
sv_artefacts_count 10
sv_auto_team_balance 0
sv_auto_team_swap 1
sv_bearercantsprint 1
sv_client_reconnect_time 60
sv_console_update_rate 1
sv_dedicated_server_update_rate 100
sv_dmgblockindicator 1
sv_dmgblocktime 0
sv_forcerespawn 0
sv_fraglimit 10
sv_friendly_indicators 0
sv_friendly_names 0
sv_friendlyfire 1.
sv_hail_to_winner_time 7
sv_max_ping_limit 2000
sv_pda_hunt 1
sv_reinforcement_time 0
sv_remove_corpse 1
sv_remove_weapon 1
sv_returnplayers 1
sv_rpoint_freeze_time 0
sv_shieldedbases 1
sv_spectr_firsteye 1
sv_spectr_freefly 0
sv_spectr_freelook 1
sv_spectr_lookat 1
sv_spectr_teamcamera 1
sv_statistic_collect 1
sv_statistic_save_auto 0
sv_teamkill_limit 3
sv_teamkill_punish 1
sv_timelimit 0
sv_vote_enabled 255
sv_vote_participants 0
sv_vote_quota 0.51
sv_vote_time 1.
sv_warm_up 0
texture_lod 0
vid_mode 1280x1024
</pre>
 Это мой полный.
 Возмём к примеру графический параметр '''r2_gi'''
 Префикс r2 означает что он будет работать только на полном динамическом освещении.
 Далее идём в файл '''ui_mm_opt_video_adv.script
'''
<pre>class "opt_video_adv" (CUIWindow)

function opt_video_adv:__init() super()
end

function opt_video_adv:__finalize()
end

function only_2_mode(ctrl, _id)
local bEnabled = _id==2
ctrl:Enable (bEnabled)
end

function only_12_mode(ctrl, _id)
local bEnabled = _id==1 or _id==2
ctrl:Enable (bEnabled)
end

function opt_video_adv:InitControls(x, y, xml, handler)
local ctl
self:Init (x,y, 738, 416)
self:SetAutoDelete (true)

self.bk = xml:InitFrame ("frame_videoadv", self)
self.scroll_v = xml:InitScrollView ("video_adv:scroll_v", self)

local _st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_vis_dist", _st)
xml:InitTrackBar ("video_adv:track_vis_dist", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_geometry_lod", _st)
xml:InitTrackBar ("video_adv:track_geometry_lod", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_detail_density", _st)
xml:InitTrackBar ("video_adv:track_detail_density", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_texture_lod", _st)
xml:InitTrackBar ("video_adv:track_texture_lod", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_aniso", _st)
xml:InitTrackBar ("video_adv:track_aniso", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_ssample", _st)
xml:InitTrackBar ("video_adv:track_ssample", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_r2_sun", _st)
ctl = xml:InitCheck ("video_adv:check_r2_sun", _st)
handler.m_preconditions[ctl] = only_2_mode

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_r2_sun_details", _st)
ctl = xml:InitCheck ("video_adv:check_r2_sun_details", _st)
handler.m_preconditions[ctl] = only_2_mode

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_light_distance", _st)
ctl = xml:InitTrackBar ("video_adv:track_light_distance", _st)
handler.m_preconditions[ctl] = only_12_mode

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_npc_torch", _st)
xml:InitCheck ("video_adv:check_npc_torch", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_particles_distance", _st)
ctl = xml:InitTrackBar ("video_adv:track_particles_distance", _st)
handler.m_preconditions[ctl] = only_12_mode

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_vsync", _st)
xml:InitCheck ("video_adv:check_vsync", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_60hz", _st)
xml:InitCheck ("video_adv:check_60hz", _st)

btn = xml:Init3tButton ("video_adv:btn_to_simply", self)
handler:Register (btn, "btn_simply_graphic")
end
</pre>
 Как нам хорошо видно, тут выписаны функции всех параметров в видео опциях игры. Обратите внимание, что существует два вида опции. Ползунок и кнопка. Ползунок используется для опций, где необходимо числовое вычисление. А кнопка, где функция работает

 Копируем, вставляем с новым именем перед концом скрипта.

 _st = xml:InitStatic
 ("video_adv:templ_item", self.scroll_v)
 xml:InitStatic
 ("video_adv:cap_r2gi", _st)
 xml:InitCheck
 ("video_adv:check_r2gi", _st)

Переписываем вот так и вставляем перед
<pre> btn = xml:Init3tButton ("video_adv:btn_to_simply", self) </pre>

Сохраняем и закрываем.
 Идём в''' ui_mm_opt.xml'''

 Вписываем в любое место каркас
<pre><cap_r2gi x="20" y="0" width="143" height="21">
<text font="letterica16" r="215" g="195" b="170">ui_mm_r2gi</text>
</cap_r2gi>
<check_r2gi x="194" y="0" width="30" height="21">
<options_item entry="r2_gi" group="mm_opt_video_adv"/>
</check_r2gi></pre>
 Разберём подробно

 '''<cap_r2gi x="20" y="0" width="143" height="21">'''
 Название нашей кнопки, и кординаты её расположения
 '''*вторая строчка*'''
 Тут всё просто. Шрифт, и URL на текст
 '''<check_r2gi x="194" y="0" width="30" height="21">'''
 Плохо знаю зачем нужна, но всегда нужно заполнять. Связана с проверкой
 '''<options_item entry="r2_gi" group="mm_opt_video_adv"/>'''
 А вот тут всё очень интересно. Первое, указан изменяемый параметр(из user.ltx) и группа(класс) скрипта, в котором записана обрабатывающая функция
 Вот и всё. Теперь идём в '''ui_st_mm.xml'''
<pre><string id="ui_mm_r2gi">
<text>Продать все</text>
</string></pre>
 Записываем в самый конец эту тему, и всё. Функция добавлена.
[[Категория:Скрипты]]

Добавление новых графических опций

2010-07-03T10:12:37Z

Oxygenium:

Будем учиться добавлять новые опции в меню графики.
 Нам понадобятся файлы:
 '''user.ltx'''
 '''ui_mm_opt_video.script'''
 '''ui_mm_opt_video_adv.script'''
 '''ui_mm_opt.xml'''
 '''ui_st_mm.xml'''

Для начала, идём в '''user.ltx''' и ищем там графические параметры.
<pre>_preset Extreme
ai_use_torch_dynamic_lights on
unbindall
bind left kLEFT
bind right kRIGHT
bind up kUP
bind down kDOWN
bind jump kSPACE
bind crouch kLCONTROL
bind accel kLSHIFT
bind sprint_toggle kX
bind forward kW
bind back kS
bind lstrafe kA
bind rstrafe kD
bind llookout kQ
bind rlookout kE
bind cam_zoom_in kADD
bind cam_zoom_out kSUBTRACT
bind torch kL
bind night_vision kN
bind wpn_1 k1
bind wpn_2 k2
bind wpn_3 k3
bind wpn_4 k4
bind wpn_5 k5
bind wpn_6 k6
bind artefact k7
bind wpn_next kY
bind wpn_fire mouse1
bind wpn_zoom mouse2
bind wpn_reload kR
bind wpn_func kV
bind wpn_firemode_prev k9
bind wpn_firemode_next k0
bind pause kPAUSE
bind drop kG
bind use kF
bind scores kTAB
bind chat kCOMMA
bind chat_team kPERIOD
bind screenshot kF12
bind quit kESCAPE
bind console kGRAVE
bind inventory kI
bind buy_menu kB
bind skin_menu kO
bind team_menu kU
bind active_jobs kP
bind map kM
bind contacts kH
bind vote_begin kF5
bind vote kF6
bind vote_yes kF7
bind vote_no kF8
bind speech_menu_0 kC
bind speech_menu_1 kZ
bind use_bandage kRBRACKET
bind use_medkit kLBRACKET
bind quick_save kF6
bind quick_load kF7
cam_inert 0.
cam_slide_inert 0.25
cl_cod_pickup_mode 1
cl_dynamiccrosshair on
g_always_run on
g_autopickup on
g_backrun on
g_corpsenum 10
g_eventdelay 0
g_game_difficulty gd_novice
hud_crosshair on
hud_crosshair_dist off
hud_info on
hud_weapon on
load_last_save all
mm_mm_net_srv_dedicated off
mm_net_con_publicserver off
mm_net_con_spectator 20
mm_net_con_spectator_on off
mm_net_filter_empty on
mm_net_filter_full on
mm_net_filter_listen on
mm_net_filter_pass on
mm_net_filter_wo_ff on
mm_net_filter_wo_pass on
mm_net_srv_gamemode st_deathmatch
mm_net_srv_maxplayers 32
mm_net_srv_name MICROSOF-80B663
mm_net_srv_reinforcement_type 1
mm_net_weather_rateofchange 1.
mouse_invert off
mouse_sens 0.12
net_cl_icurvesize 0
net_cl_icurvetype 0
net_cl_interpolation 0.
net_cl_log_data off
net_dbg_dump_export_obj 0
net_dbg_dump_import_obj 0
net_dbg_dump_update_read 0
net_dbg_dump_update_write 0
net_dedicated_sleep 5
net_sv_gpmode 0
net_sv_log_data off
net_sv_pending_lim 3
net_sv_update_rate 30
ph_frequency 100.00000
ph_iterations 38
r1_dlights on
r1_dlights_clip 75.
r1_glows_per_frame 16
r1_lmodel_lerp 0.1
r1_pps_u 0.
r1_pps_v 0.
r1_ssa_lod_a 64.
r1_ssa_lod_b 48.
r1_tf_mipbias 0.
r2_aa off
r2_aa_break 0.800000,0.500000,0.000000
r2_aa_kernel 0.5
r2_aa_weight 0.250000,0.250000,0.000000
r2_allow_r1_lights off
r2_gi off
r2_gi_clip 0.001
r2_gi_depth 1
r2_gi_photons 16
r2_gi_refl 0.9
r2_gloss_factor 1.5
r2_ls_bloom_fast off
r2_ls_bloom_kernel_b 0.7
r2_ls_bloom_kernel_g 3.
r2_ls_bloom_kernel_scale 0.7
r2_ls_bloom_speed 100.
r2_ls_bloom_threshold 0.001
r2_ls_depth_bias -0.0003
r2_ls_depth_scale 1.00001
r2_ls_dsm_kernel 0.7
r2_ls_psm_kernel 0.7
r2_ls_squality 1.
r2_ls_ssm_kernel 0.7
r2_mblur 0.
r2_parallax_h 0.02
r2_slight_fade 0.3333
r2_ssa_lod_a 64.
r2_ssa_lod_b 48.
r2_sun on
r2_sun_depth_far_bias -0.00001
r2_sun_depth_far_scale 1.
r2_sun_depth_near_bias 0.00001
r2_sun_depth_near_scale 1.
r2_sun_details off
r2_sun_focus on
r2_sun_lumscale 1.
r2_sun_lumscale_amb 0.5
r2_sun_lumscale_hemi 1.
r2_sun_near 12.
r2_sun_near_border 0.75
r2_sun_tsm on
r2_sun_tsm_bias -0.01
r2_sun_tsm_proj 0.3
r2_tf_mipbias 0.
r2_tonemap on
r2_tonemap_adaptation 1.
r2_tonemap_amount 0.7
r2_tonemap_lowlum 0.0001
r2_tonemap_middlegray 0.6
r2_wait_sleep 0
r2_zfill off
r2_zfill_depth 0.5
r2em 2.2
r__detail_density 0.2
r__geometry_lod 1.
r__supersample 2
r__tf_aniso 16
renderer renderer_r2
rs_c_brightness 1.
rs_c_contrast 1.
rs_c_gamma 1.
rs_fullscreen on
rs_refresh_60hz on
rs_stats off
rs_v_sync off
rs_vis_distance 1.
snd_acceleration on
snd_cache_size 16
snd_efx on
snd_targets 24
snd_volume_eff 1.
snd_volume_music 1.
sv_anomalies_enabled 1
sv_anomalies_length 3
sv_artefact_respawn_delta 30
sv_artefact_spawn_force 0
sv_artefact_stay_time 3
sv_artefacts_count 10
sv_auto_team_balance 0
sv_auto_team_swap 1
sv_bearercantsprint 1
sv_client_reconnect_time 60
sv_console_update_rate 1
sv_dedicated_server_update_rate 100
sv_dmgblockindicator 1
sv_dmgblocktime 0
sv_forcerespawn 0
sv_fraglimit 10
sv_friendly_indicators 0
sv_friendly_names 0
sv_friendlyfire 1.
sv_hail_to_winner_time 7
sv_max_ping_limit 2000
sv_pda_hunt 1
sv_reinforcement_time 0
sv_remove_corpse 1
sv_remove_weapon 1
sv_returnplayers 1
sv_rpoint_freeze_time 0
sv_shieldedbases 1
sv_spectr_firsteye 1
sv_spectr_freefly 0
sv_spectr_freelook 1
sv_spectr_lookat 1
sv_spectr_teamcamera 1
sv_statistic_collect 1
sv_statistic_save_auto 0
sv_teamkill_limit 3
sv_teamkill_punish 1
sv_timelimit 0
sv_vote_enabled 255
sv_vote_participants 0
sv_vote_quota 0.51
sv_vote_time 1.
sv_warm_up 0
texture_lod 0
vid_mode 1280x1024
</pre>
 Это мой полный.
 Возмём к примеру графический параметр '''r2_gi'''
 Префикс r2 означает что он будет работать только на полном динамическом освещении.
 Далее идём в файл '''ui_mm_opt_video_adv.script
'''
<pre>class "opt_video_adv" (CUIWindow)

function opt_video_adv:__init() super()
end

function opt_video_adv:__finalize()
end

function only_2_mode(ctrl, _id)
local bEnabled = _id==2
ctrl:Enable (bEnabled)
end

function only_12_mode(ctrl, _id)
local bEnabled = _id==1 or _id==2
ctrl:Enable (bEnabled)
end

function opt_video_adv:InitControls(x, y, xml, handler)
local ctl
self:Init (x,y, 738, 416)
self:SetAutoDelete (true)

self.bk = xml:InitFrame ("frame_videoadv", self)
self.scroll_v = xml:InitScrollView ("video_adv:scroll_v", self)

local _st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_vis_dist", _st)
xml:InitTrackBar ("video_adv:track_vis_dist", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_geometry_lod", _st)
xml:InitTrackBar ("video_adv:track_geometry_lod", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_detail_density", _st)
xml:InitTrackBar ("video_adv:track_detail_density", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_texture_lod", _st)
xml:InitTrackBar ("video_adv:track_texture_lod", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_aniso", _st)
xml:InitTrackBar ("video_adv:track_aniso", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_ssample", _st)
xml:InitTrackBar ("video_adv:track_ssample", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_r2_sun", _st)
ctl = xml:InitCheck ("video_adv:check_r2_sun", _st)
handler.m_preconditions[ctl] = only_2_mode

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_r2_sun_details", _st)
ctl = xml:InitCheck ("video_adv:check_r2_sun_details", _st)
handler.m_preconditions[ctl] = only_2_mode

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_light_distance", _st)
ctl = xml:InitTrackBar ("video_adv:track_light_distance", _st)
handler.m_preconditions[ctl] = only_12_mode

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_npc_torch", _st)
xml:InitCheck ("video_adv:check_npc_torch", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_particles_distance", _st)
ctl = xml:InitTrackBar ("video_adv:track_particles_distance", _st)
handler.m_preconditions[ctl] = only_12_mode

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_vsync", _st)
xml:InitCheck ("video_adv:check_vsync", _st)

_st = xml:InitStatic ("video_adv:templ_item", self.scroll_v)
xml:InitStatic ("video_adv:cap_60hz", _st)
xml:InitCheck ("video_adv:check_60hz", _st)

btn = xml:Init3tButton ("video_adv:btn_to_simply", self)
handler:Register (btn, "btn_simply_graphic")
end
</pre>
 Как нам хорошо видно, тут выписаны функции всех параметров в видео опциях игры. Обратите внимание, что существует два вида опции. Ползунок и кнопка. Ползунок используется для опций, где необходимо числовое вычисление. А кнопка, где функция работает

 Копируем, вставляем с новым именем перед концом скрипта.

 _st = xml:InitStatic
 ("video_adv:templ_item", self.scroll_v)
 xml:InitStatic
 ("video_adv:cap_r2gi", _st)
 xml:InitCheck
 ("video_adv:check_r2gi", _st)

Переписываем вот так и вставляем перед
<pre> btn = xml:Init3tButton ("video_adv:btn_to_simply", self) </pre>

Сохраняем и закрываем.
 Идём в''' ui_mm_opt.xml'''

 Вписываем в любое место каркас
<pre> <cap_r2gi x="20" y="0" width="143" height="21">
<text font="letterica16" r="215" g="195" b="170">ui_mm_r2gi</text>
</cap_r2gi>
<check_r2gi x="194" y="0" width="30" height="21">
<options_item entry="r2_gi" group="mm_opt_video_adv"/>
</check_r2gi></pre>
 Разберём подробно

 '''<cap_r2gi x="20" y="0" width="143" height="21">'''
 Название нашей кнопки, и кординаты её расположения
 '''<text font="letterica16" r="215" g="195" b="170">ui_mm_r2gi</text>'''
 Тут всё просто. Шрифт, и URL на текст
 '''<check_r2gi x="194" y="0" width="30" height="21">'''
 Плохо знаю зачем нужна, но всегда нужно заполнять. Связана с проверкой
 '''<options_item entry="r2_gi" group="mm_opt_video_adv"/>'''
 А вот тут всё очень интересно. Первое, указан изменяемый параметр(из user.ltx) и группа(класс) скрипта, в котором записана обрабатывающая функция
 Вот и всё. Теперь идём в '''ui_st_mm.xml'''
<pre><string id="ui_mm_r2gi">
<text>Продать все</text>
</string></pre>
 Записываем в самый конец эту тему, и всё. Функция добавлена.

Maya. Один из способов создания игрового ландшафта

2010-07-03T06:50:11Z

Oxygenium: «Создание игрового ландшафта в MAYA» переименована в «Maya.Создание игрового ландшафта»: Занесение в категорию

Для начала откроем саму прогу. Выполнив все манипуляции по настройке плагинов и единиц измерения (читаем офф. руководство на вики), создадим Nurmbs primitives plane. Жмем кубик рядом с надписью
http://img.gameru.net/img/ccd63.jpg

Смотрим, что получилось? Настроим нашу плоскость, к примеру, 200х200.

http://img.gameru.net/img/e5797.jpg

Теперь кликаем в центр решетки. Нажимаем кнопку «5»

http://img.gameru.net/img/93af2.jpg

Должно получиться примерно вот так.
Теперь выровняем по центру нашу плоскость.
Для этого лезем самая крайняя кнопка с права в панели инструментов. Выставляем Translate по всем осям на 0.

http://img.gameru.net/img/d6552.jpg

Теперь смоделируем дорогу. Жмем create CV Curve tool. Тыкаем кубик
http://img.gameru.net/img/5c311.jpg

Если хотим загогулистую дорогу, ставим cubic, если ограничимся прямой, то но linear. Я решил сделать с плавными изгибами.

http://img.gameru.net/img/f3b5b.jpg

Теперь переходим в режим ТОР (вид с верху) настраиваем сетку (я сделал 100х10х1)
http://img.gameru.net/img/08a55.jpg

Включаем привязку к сетке (клавиша x или соответствующая иконка на панели инструментов)
Теперь точками рисуем нашу кривую 1

http://img.gameru.net/img/fb417.jpg

После того как кривая нарисована, жмем enter, наша кривая станет зеленой.

http://img.gameru.net/img/9e111.jpg

Теперь сочетание клавиш ctrl+D дублируем нашу кривую, выбираем инструмент move и перемещаем ее рядом чтоб получить вторую границу нашей дороги. Не забываем про размеры, я для примера перенесу 2 кривую на 5 метров вправо. Отключаем во вкладке Shading Smooth shade all, или нажимае кнопку «4».

http://img.gameru.net/img/3edd0.jpg

Должно получиться примерно это.
Теперь все это безобразие нужно превратить в полигоны.
Заходим во вкладку Window -> Outliner

http://img.gameru.net/img/fb150.jpg

И в открывшемся окне с помощью клавиши ctrl и лев. Кнопки Миши выбираем Curve1 & Curve2.

http://img.gameru.net/img/ca639.jpg

Теперь из режима редактирования полигонов нам надо перейти в режим редактирования Surfaces. Ниспадающее меню сразу под вкладками File Edit.

http://img.gameru.net/img/ce7ad.jpg

Теперь отрываем вкладку Surfaces -> Loft жмем кубик

http://img.gameru.net/img/1b5c6.jpg

В открывшемся окне проведем некоторые настройки.
Движок Sections spans отвечает за количество разбиений, не переборщите, потом тяжелее будет все это приводить в порядок. Для дороги (и.т.п.) я использую 2. Ставим в окне циферу 2 и жмем Loft. Должно получиться примерно так.

http://img.gameru.net/img/95536.jpg

Сразу отметим, что в окне outliner, появился новый объект LoftedSurface1, переименуем его в road, щелкнем в окне Outliner на сей объект, и пропишем ему новое имя. В дальнейшем при наполнении локации корректное имя объекта здорово облегчит жизнь.

http://img.gameru.net/img/8b2ae.jpg

Так. Дорогу создали, теперь создадим все остальное , что дорогу окружает.
Тобиш землю, по которой эта дорога проложена.
Для этого создадим еще 2 кривые, только теперь в настройках CV Curve tool поменяем Curve degree с cubic на linear.
Включаем привязку к сетке и строим две вертикальные кривые по линиям нашей ранее созданной плоскости.

http://img.gameru.net/img/b179f.jpg
Сразу отмечу то, что чем больше точек в линии, тем больше будет разбиений , и тем больше в итоге получится поликов. Тут уж на глаз.
Все жмем enter дублируем нашу линию ctrl+D и инструментом move перемещаем на противоположную сторону.
Теперь плоскость NurmbsPlane нам больше не нужна, удалим ее. В окне Outliner выделим ее и нажмем клавишу del.
Вот что должно получиться.

http://img.gameru.net/img/1e657.jpg

Теперь сформируем новые плоскости. Для этого в окне Outliner выбираем Curve1&curve3 жмем surfaces -> loft и кубик рядом, экспериментируя с настройками, добиваемся боле менее нормального варианта разбиения, у меня получилось так.

http://img.gameru.net/img/4b564.jpg

Теперь выбираем кривые 2 и 4 и проделываем то же самое.
Выглядеть должно примерно так.

http://img.gameru.net/img/e514b.jpg

Теперь все кривые можно удалить. В окне выбираем все 4 и мочим их.

http://img.gameru.net/img/82a2d.jpg

Ну, вот что-то похожее на истину у нас получилось, теперь все это безобразие нужно конвертировать в полигональные объекты. Выбираем наш road, лезем во вкладку Modify -> convert -> Nurmbs to Poligon жмем кубик
В открывшемся окне делаем настройки. С разу скажу, что лучше разбивать на треугольники, а не на кубики. Т.к. Повороты будут плавне и с числом полигонов count при разбиении придется экспериментировать, до получения оптимального варианта. Я взял 400.

http://img.gameru.net/img/08ca0.jpg

Жмем apply, получаем результат.

http://img.gameru.net/img/00be4.jpg
Обратите внимание на то что в окне Outliner появился новый объект, переименуем его все в тот же road, а исходный можно удалить.

http://img.gameru.net/img/43094.jpg

Теперь по такой же схеме проделываем фокусы с оставшимися объектами, у меня получилось вот так.

http://img.gameru.net/img/df4cd.jpg

Теперь оставим дорогу в покое, а две половинки нашей земли склеим в единый меш.
В окне Outliner выбираем их, переходим в режим редактирования полигонов (под вкладками file edit) заходим

http://img.gameru.net/img/127df.jpg
Получим склеенный меш.
Теперь можно заниматься самим ландшафтом, холмами, долами и.т.п. .
Потом наносим материалы, собираем в единый меш и экспортим.
Вроде усе.
Authors: '''ZVUKARb'''
Из Word в Wiki: '''Oxygenium'''

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

Создание игрового ландшафта в MAYA

2010-07-03T06:50:11Z

#REDIRECT [[Maya.Создание игрового ландшафта]]

Maya. Один из способов создания игрового ландшафта

2010-07-03T06:49:50Z

Oxygenium:

Maya. Один из способов создания игрового ландшафта

2010-07-03T06:48:54Z

Oxygenium:

CoP. Добавляем возможность таскать трупы и другие динамические объекты

2010-07-01T11:50:22Z

Oxygenium:

Привет всем.В этой статье я напишу, как вернуть таскание трупов и объектов в STALKER CoP, не понятно зачем убранное ПЫСами. 
'''Уровень слжности:очень легко., не обращайте внимания на длину тутора, тут вам только копипастить придется) 
Автор:sk0rpi0n''' 
Открываем configs/system.ltx, идем в конец файла, ищем строку '''[ph_capture_visuals]'''.Под ней - все, что нам нужно, а точнее:
<code>;NPC
;actors\stalker_bandit\stalker_bandit_1
;actors\stalker_bandit\stalker_bandit_2
;actors\stalker_bandit\stalker_bandit_3
;actors\stalker_bandit\stalker_bandit_3_face_1
;actors\stalker_bandit\stalker_bandit_3_face_2
;actors\stalker_bandit\stalker_bandit_3_mask
;actors\stalker_bandit\stalker_bandit_4
;actors\stalker_dolg\stalker_dolg_1
;actors\stalker_dolg\stalker_dolg_2
;actors\stalker_dolg\stalker_dolg_2_face_1
;actors\stalker_dolg\stalker_dolg_2_face_2
;actors\stalker_dolg\stalker_dolg_2_mask
;actors\stalker_dolg\stalker_dolg_3
;actors\stalker_dolg\stalker_dolg_4
;actors\stalker_freedom\stalker_freedom_1
;actors\stalker_freedom\stalker_freedom_2
;actors\stalker_freedom\stalker_freedom_2_face_1
;actors\stalker_freedom\stalker_freedom_2_face_2
;actors\stalker_freedom\stalker_freedom_2_mask
;actors\stalker_freedom\stalker_freedom_3
;actors\stalker_freedom\stalker_freedom_4
;actors\stalker_hero\stalker_hero_1
;actors\stalker_hero\stalker_hero_stc_strelok
;actors\stalker_lesnik\stalker_lesnik_1
;actors\stalker_merc\stalker_merc_2
;actors\stalker_merc\stalker_merc_4
;actors\stalker_monolith\stalker_monolith_1
;actors\stalker_monolith\stalker_monolith_2
;actors\stalker_monolith\stalker_monolith_3
;actors\stalker_monolith\stalker_monolith_4
;actors\stalker_nebo\stalker_nebo_1
;actors\stalker_nebo\stalker_nebo_2
;actors\stalker_nebo\stalker_nebo_2_face_1
;actors\stalker_nebo\stalker_nebo_2_face_2
;actors\stalker_nebo\stalker_nebo_2_face_3
;actors\stalker_nebo\stalker_nebo_2_mask
;actors\stalker_nebo\stalker_nebo_3
;actors\stalker_neutral\stalker_neutral_1
;actors\stalker_neutral\stalker_neutral_2
;actors\stalker_neutral\stalker_neutral_2_face_1
;actors\stalker_neutral\stalker_neutral_2_face_2
;actors\stalker_neutral\stalker_neutral_2_mask
;actors\stalker_neutral\stalker_neutral_3
;actors\stalker_neutral\stalker_neutral_4
;actors\stalker_soldier\stalker_soldier_1
;actors\stalker_soldier\stalker_soldier_2
;actors\stalker_soldier\stalker_soldier_2_face_1
;actors\stalker_soldier\stalker_soldier_3
;actors\stalker_soldier\stalker_soldier_4
;actors\stalker_trader\stalker_trader_1
;actors\stalker_ucheniy\stalker_ucheniy_1
;actors\stalker_zombied\stalker_zombied_1
;actors\stalker_zombied\stalker_zombied_2
;actors\stalker_zombied\stalker_zombied_3
;actors\stalker_zombied\stalker_zombied_4

;Monsters
;monsters\controller\controller_1
;monsters\controller\controller_2
;monsters\controller\controller_3
;monsters\controller\controller_4
;monsters\controller\controller_dead
;monsters\crow\crow
;monsters\dog\dog
;monsters\dog\dog_bulterier
;monsters\dog\dog_bulterier_dead
;monsters\dog\dog_dead
;monsters\dog\dog_red
;monsters\dog\dog_red_dead
;monsters\dog\dog_white
;monsters\dog\dog_white_dead
;monsters\flesh\flesh
;monsters\flesh\flesh_dead
;monsters\flesh\flesh_strong
;monsters\krovosos\krovosos
;monsters\krovosos\krovosos_dead
;monsters\krovosos\krovosos_strong
;monsters\krovosos\krovosos_strong_xray
;monsters\krovosos\krovosos_xray
;monsters\mutant_boar\mutant_boar
;monsters\mutant_boar\mutant_boar_dead
;monsters\mutant_boar\mutant_boar_strong
;monsters\poltergeist\poltergeist
;monsters\poltergeist\poltergeist_dead
;monsters\poltergeist\poltergeist_strong
;monsters\pseudodog\pseudodog
;monsters\pseudodog\pseudodog_dead
;monsters\pseudodog\pseudodog_grey
;monsters\pseudodog\pseudodog_grey_dead
;monsters\rat\rat_1
;monsters\snork\snork
;monsters\snork\snork_dead
;monsters\tushkano\tushkano
;monsters\tushkano\tushkano_dead</code>
Все строки, помеченные точкой с запятой ";" - не используются игрой.Следовательно, нам надо их убрать.Заменим верхний текст на этот:
<code>;NPC
actors\stalker_bandit\stalker_bandit_1
actors\stalker_bandit\stalker_bandit_2
actors\stalker_bandit\stalker_bandit_3
actors\stalker_bandit\stalker_bandit_3_face_1
actors\stalker_bandit\stalker_bandit_3_face_2
actors\stalker_bandit\stalker_bandit_3_mask
actors\stalker_bandit\stalker_bandit_4
actors\stalker_dolg\stalker_dolg_1
actors\stalker_dolg\stalker_dolg_2
actors\stalker_dolg\stalker_dolg_2_face_1
actors\stalker_dolg\stalker_dolg_2_face_2
actors\stalker_dolg\stalker_dolg_2_mask
actors\stalker_dolg\stalker_dolg_3
actors\stalker_dolg\stalker_dolg_4
actors\stalker_freedom\stalker_freedom_1
actors\stalker_freedom\stalker_freedom_2
actors\stalker_freedom\stalker_freedom_2_face_1
actors\stalker_freedom\stalker_freedom_2_face_2
actors\stalker_freedom\stalker_freedom_2_mask
actors\stalker_freedom\stalker_freedom_3
actors\stalker_freedom\stalker_freedom_4
actors\stalker_hero\stalker_hero_1
actors\stalker_hero\stalker_hero_stc_strelok
actors\stalker_lesnik\stalker_lesnik_1
actors\stalker_merc\stalker_merc_2
actors\stalker_merc\stalker_merc_4
actors\stalker_monolith\stalker_monolith_1
actors\stalker_monolith\stalker_monolith_2
actors\stalker_monolith\stalker_monolith_3
actors\stalker_monolith\stalker_monolith_4
actors\stalker_nebo\stalker_nebo_1
actors\stalker_nebo\stalker_nebo_2
actors\stalker_nebo\stalker_nebo_2_face_1
actors\stalker_nebo\stalker_nebo_2_face_2
actors\stalker_nebo\stalker_nebo_2_face_3
actors\stalker_nebo\stalker_nebo_2_mask
actors\stalker_nebo\stalker_nebo_3
actors\stalker_neutral\stalker_neutral_1
actors\stalker_neutral\stalker_neutral_2
actors\stalker_neutral\stalker_neutral_2_face_1
actors\stalker_neutral\stalker_neutral_2_face_2
actors\stalker_neutral\stalker_neutral_2_mask
actors\stalker_neutral\stalker_neutral_3
actors\stalker_neutral\stalker_neutral_4
actors\stalker_soldier\stalker_soldier_1
actors\stalker_soldier\stalker_soldier_2
actors\stalker_soldier\stalker_soldier_2_face_1
actors\stalker_soldier\stalker_soldier_3
actors\stalker_soldier\stalker_soldier_4
actors\stalker_trader\stalker_trader_1
actors\stalker_ucheniy\stalker_ucheniy_1
actors\stalker_zombied\stalker_zombied_1
actors\stalker_zombied\stalker_zombied_2
actors\stalker_zombied\stalker_zombied_3
actors\stalker_zombied\stalker_zombied_4

;Monsters
;monsters\controller\controller_1
;monsters\controller\controller_2
;monsters\controller\controller_3
;monsters\controller\controller_4
;monsters\controller\controller_dead
;monsters\crow\crow
monsters\dog\dog
monsters\dog\dog_bulterier
monsters\dog\dog_bulterier_dead
monsters\dog\dog_dead
monsters\dog\dog_red
monsters\dog\dog_red_dead
monsters\dog\dog_white
monsters\dog\dog_white_dead
;monsters\flesh\flesh
;monsters\flesh\flesh_dead
;monsters\flesh\flesh_strong
monsters\krovosos\krovosos
monsters\krovosos\krovosos_dead
monsters\krovosos\krovosos_strong
monsters\krovosos\krovosos_strong_xray
monsters\krovosos\krovosos_xray
;monsters\mutant_boar\mutant_boar
;monsters\mutant_boar\mutant_boar_dead
;monsters\mutant_boar\mutant_boar_strong
;monsters\poltergeist\poltergeist
;monsters\poltergeist\poltergeist_dead
;monsters\poltergeist\poltergeist_strong
monsters\pseudodog\pseudodog
monsters\pseudodog\pseudodog_dead
monsters\pseudodog\pseudodog_grey
monsters\pseudodog\pseudodog_grey_dead
;monsters\rat\rat_1
;monsters\snork\snork
;monsters\snork\snork_dead
;monsters\tushkano\tushkano
;monsters\tushkano\tushkano_dead</code>

Отлично!Теперь можно таскать трупы монстрюг и пиплов.
Рассмотрим таскание остальных объектов.
Вы можете добавить почти любую модель из папки meshes, кроме:
static models(статичные модели) - их невозможно никак сдвинуть в игре.
Пример добавления модели, пишем это после конца списка моделей монстров(модель взял от балды, лучше не пробуйте с этой моделью):
<code>;Other models
dynamics\balon\bochka_fuel</code>

Вот и все.)
[[Категория:Конфиги]]

CoP. Добавляем возможность таскать трупы и другие динамические объекты

2010-07-01T11:50:14Z

Oxygenium:

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

2010-07-01T11:48:42Z

Oxygenium:

В етой теме я напишу как сделать так что б можна было снимать деньги с трупов.
Нам нада файл 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>
всё заходим в игру и пробуем :-)

[[Категория:Скрипты]]

Создание Cube Map текстуры неба

2010-07-01T11:45:34Z

Oxygenium:

В этой статье мы сделаем CubeMap текстуру неба из текстуры 360 digital sky, которые не сложно найти в интернете [http://www.1000skies.com вот такие], например.

Для работы нам понадобяться Adobe Photoshop любой версии с [http://developer.nvidia.com/object/photoshop_dds_plugins.html >> DDS plugin >>] для сохранения в DDS, Autodesk Maya 8,5

== Подготовка текстуры ==
Готовим текстуру 360 Degree Sky следующим образом:
* берёте текстуру 360 Degree Sky из интернета (или делаете сами, если умеете)
* в Photoshop (или в другом редакторе) прибавляете снизу пустую полосу высотой, равной высоте текстуры (высота изображения удваивается). Лучше, если от полосы идёт плавный градиент толщиной в 16-32 px на усмотрение.

== Работа с Maya ==
=== Подготовка ===
для этого нам понадобится вот этот файл: [http://depositfiles.com/ru/files/ra6g7691m >> SkyRoom.mb >>] (автор - xroo)
* открываем этот хорошенький файлик
* находим материал, который наложен на большой шарик, и меняем ему текстуру.
:Для чайников: 
:* Кликаем пункт меню (сверху) Window => Rendering Editors => Multilister. В нём два раздела: сверху материалы, снизу текстуры.
:* Щёлкаем дважды по текстуре (она там одна) и в главном окне открывается боковая панель. Там напротив надписи Image name щёлкаем по значку папки и находим свою текстуру.
=== Рендеринг ===
Рендерим и сохраняем по очереди изображения с камер Camera1, Camera2, Camera3, Camera4, Camera5.
<blockquote>
:Для чайников: 
:* Под меню сверху есть выпадающий список с пунктами Animation/Polygons/Surfaces... В нём выбираем Rendering - главное меню меняется.
:* Жмём Rendering => Render Current Frame - происходит рендеринг текущей камеры. Если рендеринг всё не останавливается, жмём Esc - он остановится не завершённым.
:* Для открытия настроек жмём Options => Render Settings и там в рвзделе Image Size в пунктах Width и Height выставляем что-то большое, например 2048х2048.
:* Выбираем пункт меню Render => Render => Camera1 и ждём пока рендеринг закончится. Когда он закончился, жмём File => Save image и сохраняем изображение под номером 1 в png, tga или tiff - что-нибудь беспотерьное.
:* проделываем предыдущий пункт с Camera2, Camera3, Camera4, Camera5.
</blockquote>
== Собираем CubeMap ==
=== Сборка ===
* В Photoshop (или чём-нибудь ещё) делаем картинку такую, чтобы ширина была в 6 раз больше высоты, а высота равнялась степени двойки (например 512 или 1024)
* составляем 5 наших полученных картинок в таком порядке: 2, 4, 5, пустое квадратное поле, 3, 1. Это соответствует сторонам: Восток, Запад, Верх, Низ, Север, Юг - в игре. Пустое поле лучше выкрасить в цвет той полосы из 1-го шага.
=== Экспорт ===
* Сохраняем полученную картинку в DDS в папку textures/sky/, выбрав тип текстуры Cube Map и тип сжатия DXT1.
[[Категория:Texturing]]

Создание Cube Map текстуры неба

2010-07-01T11:44:14Z

Oxygenium:

Советы начинающим модмейкерам

2010-06-30T10:12:41Z

Oxygenium: /* Несколько советов */

== Сталкер. Как оно? ==
Вы купили игру, вы прошли её, вам она понравилась. Вы ползаете по интернету в поисках контента, хотите выяснить ответы на интересующие вопросы. Натыкаетесь на слова "мод", "моды". "дополнения". Играете в них, некоторые нравятся, некоторые - нет. Имеется ассортимент таких возможностей, о которых как раз мечтали, проходя оригинальную игру.
Иногда, встречаются "вылеты". Вновь ищем их решения. Регестрируемся на форумах, вливаемся в компьюнити.
Начинаем ковырять файлы, оказывается всё довольно просто и интересно устроено. А то если, создать самому мод?

== Первый... ==
Читаем туторы, спрашиваем у знающих людей. Делаем первый артефакт.
-Классно получилось. Понравилось
Все что то делаем первый раз, первый новый ствол, первый новый артефакт, первый новый диалог, первый новый квест, первая новая локация.
Как только всё получается, мы испытываем запредельную радость

== Комьюнити ==
Рано или поздно мы представляем своё первое творение комьюнити.
Моды бывают разные, глобальные и небольшие. Лично мой первый мод. Релиз датирован 2007 год 17 августа
Безграмотно накиданы все мои умения. Особой ценности для игры не представляет, доставляет лишь чувство удовлетворённости. Что то всёже получилось
Случается, что критикуют неадекватно. Не стоит реагировать на это болезненно. Простим обидчика. Запомни его ник и потом <s>убей минусом в репутацию</s> просто забудь
Не нужно начинать скандал и ссору. Вы покажете себя с худшей стороны. Тем более что мнение о том, кто вас неадекватно раскритиковал, уже скорее всего сформировано, а вы только пришли в это общество. Продолжайте учиться, делать новое и интересное, знакомиться с хорошими людьми.

== Несколько советов ==
<pre>-никогда не давайте заднюю, видите что то сложное?-не отступайте. Всё получится. Глаза боятся, руки делают
-не разводите публичные скандалы с кем либо
-не занимайтесь троллингом
-не забывайте говорить спасибо и пожалуйсто
-будтье вежливы в общении
-соблюдайте грамотность</pre>

И люди повернутся к вам лицом
[[Категория:FAQ]]
Автора указывать необязательно=)

Создание лестниц

2010-06-26T18:57:02Z

Oxygenium: /* Создание: */

Итак, лестницы.
Лестница в сталкере это ничто иное, как невидимая вертикальная плоскость, но имеющая свою коллизию. Это обязательно должна быть плоскость (Plane) в 1х1 полигон (иначе при сборке выйдет ошибка, связанная с climable_object). Расположение на уровне тоже не с проста:

http://i068.radikal.ru/1006/5e/3ffec4a582d6.jpg

В случае "Нет", игрок просто не сможет зацепиться за лестницу.

===Создание:===
Создаём плоскость 1 на 1 полигонов, или берем уже готовый объект. Наносим на него материал, текстуру можно любую, но лучше служебную '''props\fake_ladders.dds'''.
В свитке S.T.A.L.K.E.R. Params настраиваем шейдеры.

http://i066.radikal.ru/1006/75/a43bf256482a.jpg

Экспортим, заносим в СДК (здесь не описывается). Компилим. Ну и собственно смотрим в игре.

P.S. Если будем мучать автора, кроме матов ничего не услышите

Подправил и закончил - '''Pihan13'''
А начал - '''Oxygenium'''
[[Категория:SDK]]

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

2010-06-26T13:19:41Z

Oxygenium: Оформление новое

CoP. Создание квеста

2010-05-21T10:06:59Z

Oxygenium:

'''Разбираем конкретно параметры:'''<center></center>

'''icon''' — иконка квеста
Пример использования: icon = ui_inGame2_Put_v_pripyat

'''prior''' — приоритет квеста
Пример использования: prior = 112

'''storyline''' — флаг задания (true — сюжетное, false — несюжетное)
Пример использования: storyline = true

'''title '''— название задание (id из xml) — если брать название не из xml, то в игре оно будет отображаться без пробелов
Пример использования: title = zat_a9_way_gates_check_transport_workshop_name

'''descr''' — описание задания (id из xml) — если брать название не из xml, то в игре оно будет отображаться без пробелов
Пример использования: descr = zat_a9_way_gates_check_transport_workshop_text

'''target''' — цель на карте (метка)
Примеры использования:
'''target''' =zat_a2_stalker_barmen (ID нпц, на которого будет поставлена метка)
'''target''' = {+название_инфопоршня}zat_a2_stalker_barmen — проверка инфопоршня, после которого метка будет поставлена на нпц

'''on_init''' — инфопоршень, который «включает» задание
Пример использования: on_init = %+название_инфопоршня%

'''condlist_x''' — блок условий. возможные значения complete, reversed, fail
Примеры использования:
'''condlist_0''' = {+название_инфопоршня} complete — если поршень есть, задание выполнено
'''condlist_1''' = {+название_инфопоршня} reversed — если поршень есть, есть возможность повторить задание
'''condlist_2''' = {+название_инфопоршня} fail — если поршень есть, задание провалено

'''on_complete''' — действия, которые выполняются, если задание выполнено
'''on_reversed''' — действия, которые выполняются, если задание провалено
Примеры использования:
'''on_complete''' = %=inc_faction_goodwill_to_actor(stalker:200)% — повышаем репу у сталкеров (функция юзаются из xr_effect)
'''on_reversed''' = {+название_ифопоршня} %=inc_faction_goodwill_to_actor(stalker:200)% — повышаем репу у сталкеров, только если есть опр.инфопоршень
'''on_complete''' = %+название_инфопоршня% — выдаем инфопоршень

'''reward_money''' — денежная награда
Пример использования: reward_money = 5000

'''<center>Создаем примитивный квест:</center>'''

'''Используемые файлы:'''
<code>configs\gameplay\dialogs_zaton.xml
configs\gameplay\info_zaton.xml
configs\gameplay\character_desc_zaton.xml
configs\text\rus\st_quests_zaton.xml
configs\misc\tm_zaton.ltx
scripts\dialogs_zaton.script
</code>
'''Создание диалога'''
Открываем файл '''dialogs_zaton.xml''' и добавляем перед '''</game_dialogs>:'''

<code><dialog id="vodka_quest_dialog">
<dont_has_info>quest_vodka_done</dont_has_info>
<dont_has_info>quest_vodka_give</dont_has_info>
<phrase_list>
<phrase id="1">
<text>Принеси бутылочку</text>
<give_info>quest_vodka_give</give_info>
<action>dialogs_zaton.give_vodka_quest</action>
</phrase>
<phrase id="0">
<text>Привет, тебе водки не принести?</text>
<next>1</next>
</phrase>
</phrase_list>
</dialog>

<dialog id="vodka_quest_prines">
<has_info>quest_vodka_give</has_info>
<precondition>dialogs_zaton.is_has_vodka_borode</precondition>
<phrase_list>
<phrase id="1">
<text>Спасибо, чувак. Выручил</text>
<give_info>quest_vodka_done</give_info>
</phrase>
<phrase id="0">
<has_info>quest_has_vodka</has_info>
<text>Вот твоя водяра</text>
<action>dialogs_zaton.transfer_vodka_to_boroda</action>
<next>1</next>
</phrase>
</phrase_list>
</dialog></code>

Далее добавляем наши диалоги Бороде.
Открываем файл '''character_desc_zaton.xml'''
Находим строчку '''<actor_dialog>zat_a2_stalker_barmen_actor_info</actor_dialog>''' и под ней пишем
<code>
<actor_dialog>vodka_quest_dialog</actor_dialog>
<actor_dialog>vodka_quest_prines</actor_dialog></code>
Сохраняем

Открываем файл '''info_zaton.xml''' и добавляем перед '''</game_information_portions>:'''
<code> <info_portion id="quest_vodka_give"></info_portion>
<info_portion id="quest_has_vodka"></info_portion>
<info_portion id="quest_vodka_done"></info_portion></code>

Открываем файл '''dialogs_zaton.script''' и в начало записываем:
<code>function give_vodka_quest()
task_manager.get_task_manager():give_task("quest_vodka_give")
end
function is_has_vodka_borode()
if db.actor:object("vodka") then
return true
end
return false
end
function transfer_vodka_to_boroda(first_speaker, second_speaker)
dialogs.relocate_item_section_from_actor(first_speaker, second_speaker, "vodka")
end</code>

Сохраняем

'''Открываем файл tm_zaton.ltx и в конец пишем:'''
<code>[quest_vodka_give]
icon = ui_inGame2_Put_v_pripyat
prior = 2
storyline = false
title = {=actor_has_item(vodka)}vodka_barmen_prinesti_name, vodka_barmen_naiti_name
descr = vodka_barmen_descr
target = {=actor_has_item(vodka)}zat_a2_stalker_barmen
condlist_0 = {+quest_vodka_done} complete</code>

Открываем файл '''st_quests_zaton.xml''' и добавляем после '''<string_table>'''

<code><string id="vodka_barmen_naiti_name">
<text>Найти водку для бармена</text>
</string>
<string id="vodka_barmen_prinesti_name">
<text>Принести водку бармену</text>
</string>
<string id="vodka_barmen_descr">
<text>Бармен в тестовых целях попросил найти и принести ему 2 бутылки водки</text>
</string></code>
Сохраняем

Автор: '''XMK'''
Источник: [http://www.amk-2.ru/forum/go.php?http://ars-team.ru/forum/index.php?autocom=ibwiki&cmd=article&id=5]
[[Категория:Скрипты]]

CoP. Создание квеста

2010-05-21T10:05:37Z

Oxygenium:

Начальные сведения о скриптах

2010-05-19T14:38:12Z

Oxygenium:

ПРЕДИСЛОВИЕ
{{Message_box|
id =pseudoscience|
align = left|
backgroundcolor = #f9f9f9|
image =Lamp.gif|
heading = Для чего нужны срипты и сведения и их использовании - Rez@niy aka Oxygenium|
message = В скриптах содержаться данные для выполнения по условиям.

}}
 

<pre>Итак начнём. Рассмотрим простой скрипт спавна предмета:
--*********************************************
--**TESTING**
--*********************************************
--
-- Создает в заданном месте калаш
function ak_create()
local a = vector() -- db.actor:position()
a.x = -220.21
a.y = -19.93
a.z = -158.98
alife():create("wpn_ak47",a,33447,47,65535)
end</pre>

<big>ИМЯ ФУНКЦИИ</big>
function - всегда обязательное поле, это что то вроде id, в языке LUA. После поля function отступаем и пишем текст произвольный.
Дальше идёт функциия о позиции, она обязательна для спавна скриптом.
Ниже кординаты. Для снятия кординат используем в консоли rs_stats on.
После кординат идёт сама функция спавна. <big>alife():create("СИСТЕМНОЕ ИМЯ ОБЬЕКТА",a,33447,47,65535)</big>
Цифры пусть остануться такие же. Для обьекта спавна возмём wpn_ak47. Кординаты какие то левые, лучше снимите кординаты сами. И ещё кое что важное. В папке scripts, создаём файл main.script и пишем туда готовый текст, только со своими кординатами.
<pre>--*********************************************
--**TESTING**
--*********************************************
--
-- Создает в заданном месте калаш
function ak_create()
local a = vector() -- db.actor:position()
a.x = -220.21
a.y = -19.93
a.z = -158.98
alife():create("wpn_ak47",a,33447,47,65535)
end</pre>
Написали? Отлично!. Теперь осталось только подключить это к игре. Идём в файл dialogs_escape.xml и выбираем какое нить диалог. Там после поля text в диалоге приписываем <action>main.ak_create</action>
ТОЛЬКО ДИАЛОГ ВЫБИРАЕМ ИСПОЛЬЗУЮЩИЙСЯ. С волком например. Всё сохраняем и тестим. В итоге, когда вы в игре нажмёте на фразу после которой находится action, заспауниться калаш на указанных кординатах.

{{Message_box|
id =pseudoscience1|
align = left|
backgroundcolor = #f9f9f9|
image =Lamp.gif|
heading = Углублённое изучение - Rez@niy|
message = Далее идём в более углублённое изучение. Изучаем построение}}

Прописываем функцию. Задаём условие:
if =
Для закрытия тэга end

ПОКА ВСЁ, МОЖЕТ НАПИШУ ЕЩЁ ЧЁ НИТЬ ПОЛЕЗНОЕ

Ну и я напишу.'''Меченый(Стрелок)'''

Мой монолог построен так: В - Вопрос,О - Ответ

Начнём:
'''В''' - Что такое ЦИКЛ? И как он выглядит?
''О'' - Цикл это повторение одного и того же действие n-ое кол-во раз
выглядит так
<pre>for i=1,n do

end</pre>
За место i может быть любая переменная ,за место n - число которое больше первоначального значения(i)
'''В''' - А для чего можно использовать цикл?
''О'' - много для чего можно.см. ниже
Пример 1.Перебор по id/Узнаем монстор ли объект,если да ,то функция возвращает истину(true)
<pre>for id=1,65535 do
local obj = level.object_by_id(id)
if obj~= nil then
if IsMonster(obj) then
return true
else
return false
end
end
end</pre>
Пример 2.Спавн/
<pre>for i=1,5 do --функция повторится 5 раз,следовательно будет заспавнено 5 АК
local a = vector()
a.x = -220.21
a.y = -19.93
a.z = -158.98
alife():create("wpn_ak47",a,33447,47,65535)
end</pre>
и т.п.
существует ещё цикл с предусловием (while a,n do),но об этом позже
'''В''' - Какие параметры ГГ можно корректировать скриптами?
''О'' - Таких не много, запись будет такой :<pre>db.actor.параметр</pre>
Параметры:
<pre>radiation
health
psy_health
power</pre>
'''В''' - а можно ли спавнить в рандомной точке предмет,если да,то как?
''О'' - можно
Для этого нам понадобится таблица максимальных значений level_vertex_id и game_vertex_id
выглядит она так:

<pre>local level_vertexes={
l01_escape = {lvid=595580, gvid=44},
l02_garbage = {lvid=384039, gvid=265},
l03_agroprom = {lvid=438379, gvid=693},
l04_darkvalley = {lvid=392517, gvid=813},
l06_rostok = {lvid=69283, gvid=1311},
l07_military = {lvid=915663, gvid=1546},
l10_radar = {lvid=796328, gvid=1868},
l11_pripyat = {lvid=295965, gvid=2269}
}</pre>

ЗЫ:Извините ,что не для всех уровней,исправлюсь
Так,таблица у нас есть ,теперь нам нужно написать функцию спавна.Давайте покажу на Монстрах
создадим таблицу с секциями спавна монстров:
(Я буду использовать свои наработки ,поэтому таких секции у вас не будет ,эта таблица -пример)

<pre>local mutants = {
"zombie_ghost_hell",
"zombie_normal_hell",
"zombie_immortal_hell",
"bloodsucker_weak_hell",
"tushkano_normal_hell",
"snork_weak_hell",
"burer_weak_hell",
"cat_weak_hell",
"chimera_weak_hell",
"gigant_strong_hell"
}</pre>

Таблицу записали ,наконец приступим к оформлению главной функции
<pre>function random_spawn()
local count = math.random(5,20) --выбираем кол-во заспавненых мобов
local section = mutants[math.random(table.getn(mutants))] -- выбираем секцию моба
local lv = math.random(level_vertexes[level.name()]["lvid"]) --выбираем левел вертекс
local gv = level_vertexes[level.name()]["gvid"] --выбираем гэйм вертекс
for ind = 1, count do
alife():create(section, level.vertex_position(lv), lv, gv)--\\level.vertex_position(lv) - позиция левел вертекса
end
end</pre>

Далее помещаем вызов функции в bind_stalker.script в net_spawn() и при каждой загрузке будут спавнится мобы в рандомной точке
[[Категория:Скрипты]]

<big>Вступление ГГ в группировку!</big>
1.Создаем файл ваше_название_скприпта.script в папке gamedata/scripts
2. Открываем его и пишем:
--меняем группировку ГГ
<pre>function new_group(actor, npc)
if npc:character_community() ~= "(dolg)" then
npc:set_character_community("dolg", 0, 0)
end
end</pre>
Выдаём функцию при разговоре с НПС

НПС вступает в группировку
<pre>function ваше_название_функции(npc, actor)</pre>
Вызываем также, из любого диалога

<big>Нельзя взять оружие без брони</big>
Пишем функцию в любом скрипе:
function ваше_название_функции()
local armor = db.actor:item_in_slot(6) --слот брони (НЕ ТРОГАТЬ!)
local weapon = db.actor:item_in_slot(2) --слот оружия (для пистолетов в оригинале слот 1)

if db.actor:active_slot()==2 and weapon then -- за место 2 пишем слот оружия еще раз
local tmp
if armor then
tmp = armor:section()
else
tmp = "none"
end

<pre>if (not string.find(tmp, "пишем_название_брони" )) and (weapon:section()=="пишем_название_оружия1" or weapon:section()=="пишем_название_оружия2" or weapon:section()=="пишем_название_оружия3") then --если необходима проверка одного оружия то надо писать так: if (not string.find(tmp, "exo" )) and weapon:section()=="wpn_pkm" then
db.actor:drop_item(weapon)
local tmpw = amk.spawn_item_in_inv(weapon:section())
db.actor:transfer_item(weapon,db.actor)
alife():release(tmpw)
news_manager.send_tip(db.actor,"Невозможно взять пулемёт в руки без экзы",nil,nil,10000)
end
end</pre>

Далее идем по этому пути <pre>gamedata/script/bind_stalker.script</pre>
Функция <pre>function actor_binder:update(delta)</pre>
Сразу ниже неё пиши вызов в формате :
название_файла.название_функции.
Можешь написать эту функцию в любом файле из папки scripts, а можешь создать свой файл и назвать скажем my_script и написать там.
Должно быть так :
Код
<pre>function actor_binder:update(delta)
my_script.check_armor()</pre>

<big>Удаление предмета из инвентаря</big>

<pre>function name_function()
local se_obj = alife():object("сюда_пишем_что_удалять_будем")
if se_obj then
alife():release(se_obj, true)
end
end</pre>

ПРИМЕР
--' убираем финального Клыка
<pre>function dell_kluk_final()
local se_obj = alife():object("final_kluk")
if se_obj then
alife():release(se_obj, true)
end
end</pre>

SoC. Сигаретная зависимость

2010-05-19T14:30:03Z

Oxygenium:

'''Автор: <big>Xmk</big>'''

Для этого нам понадобятся файлы (AMK Mod):
config/misc/items.ltx
config/text/rus/string_table_enc_equipment.xml
scripts/amk.script
script/amk_mod.script

1. Создаём файл ваше_название_скрипта.script в папке gamedata/scripts и пишем в него:

<pre>snd = sound_object([[ambient\underground\rnd_giant]])

-- Проверяем нужно ли покурить. Вызывается каждые 6 игровых минут
function test_for_need_kur()
amk.save_variable("kur",amk.load_variable("kur",0)+1)
amk.g_start_timer("kur",0,0,6)
kur_reduce_health()
end

-- Уменьшение здоровья, если долго не курил
function kur_reduce_health()
local tmp = amk.load_variable("kur",0)
if tmp > 150 then
if db.actor.health > 0.15 then
db.actor.health = - 0.15
end
if not snd:playing() then
snd:play_at_pos(db.actor, vector():set(0,0,0), 0, sound_object.s2d)
end
end
end

-- Курение
function kur_item(oid, time)
if alife():object(oid)==nil then
local tmp = amk.load_variable("kur",0) - time*10
if tmp < 0 then tmp = 0 end
amk.save_variable("kur", tmp)
kur_reduce_health()
end
end</pre>

2. Открываем файл amk.script:

после:
<pre>function __do_timer_action(select_string,params_string)</pre>

пишем:
<pre>if select_string=="kur" then
название_вашего_скрипта.test_for_need_kur()
end</pre>

3. Открываем файл amk_mod.script
в функции '''first_run''' пишем:
<pre>amk.g_start_timer("kur",0,0,6)</pre>

затем в функции '''check_sleep_item(obj)''' после
<pre> elseif section=="treasure_item" then
stype="tr_item"
</pre>

но перед '''end''' пишем:
<pre> elseif section == "sigaret" then
stype = "sgr"</pre>

4. Открываем файл items.ltx

<pre>[sigaret]:identity_immunities
GroupControlSection = spawn_group
discovery_dependency =
$spawn = "food and drugs\antirad"
$prefetch = 32
class = II_ANTIR
cform = skeleton
visual = weapons\sigaret\sigaret.ogf

inv_name = sigareta
inv_name_short = sigareta
description = enc_food_sigareta

inv_weight = 0.02
inv_grid_width = 1
inv_grid_height = 2
inv_grid_x = 10
inv_grid_y = 24

cost = 50

; eatable item
eat_health = 0
eat_satiety = 0
eat_power = 0
eat_radiation = 0
eat_alcohol = 0
wounds_heal_perc = 0
eat_portions_num = 1

; food item
animation_slot = 4

;hud item
hud = wpn_vodka_hud</pre>

5. Открываем файл string_table_enc_equipment.xml

<pre><string id="sigareta">
<text>Сигарета</text>
</string>
<string id="enc_food_sigareta">
<text>Пишем любое описание сигареты, мне че то в голову ниче не приходит</text>
</string></pre>

[[Категория:Скрипты]]

SoC. Сигаретная зависимость

2010-05-19T14:29:36Z

Oxygenium:

'''Автор: Xmk'''

Для этого нам понадобятся файлы (AMK Mod):
config/misc/items.ltx
config/text/rus/string_table_enc_equipment.xml
scripts/amk.script
script/amk_mod.script

1. Создаём файл ваше_название_скрипта.script в папке gamedata/scripts и пишем в него:

<pre>snd = sound_object([[ambient\underground\rnd_giant]])

-- Проверяем нужно ли покурить. Вызывается каждые 6 игровых минут
function test_for_need_kur()
amk.save_variable("kur",amk.load_variable("kur",0)+1)
amk.g_start_timer("kur",0,0,6)
kur_reduce_health()
end

-- Уменьшение здоровья, если долго не курил
function kur_reduce_health()
local tmp = amk.load_variable("kur",0)
if tmp > 150 then
if db.actor.health > 0.15 then
db.actor.health = - 0.15
end
if not snd:playing() then
snd:play_at_pos(db.actor, vector():set(0,0,0), 0, sound_object.s2d)
end
end
end

-- Курение
function kur_item(oid, time)
if alife():object(oid)==nil then
local tmp = amk.load_variable("kur",0) - time*10
if tmp < 0 then tmp = 0 end
amk.save_variable("kur", tmp)
kur_reduce_health()
end
end</pre>

2. Открываем файл amk.script:

после:
<pre>function __do_timer_action(select_string,params_string)</pre>

пишем:
<pre>if select_string=="kur" then
название_вашего_скрипта.test_for_need_kur()
end</pre>

3. Открываем файл amk_mod.script
в функции '''first_run''' пишем:
<pre>amk.g_start_timer("kur",0,0,6)</pre>

затем в функции '''check_sleep_item(obj)''' после
<pre> elseif section=="treasure_item" then
stype="tr_item"
</pre>

но перед '''end''' пишем:
<pre> elseif section == "sigaret" then
stype = "sgr"</pre>

4. Открываем файл items.ltx

<pre>[sigaret]:identity_immunities
GroupControlSection = spawn_group
discovery_dependency =
$spawn = "food and drugs\antirad"
$prefetch = 32
class = II_ANTIR
cform = skeleton
visual = weapons\sigaret\sigaret.ogf

inv_name = sigareta
inv_name_short = sigareta
description = enc_food_sigareta

inv_weight = 0.02
inv_grid_width = 1
inv_grid_height = 2
inv_grid_x = 10
inv_grid_y = 24

cost = 50

; eatable item
eat_health = 0
eat_satiety = 0
eat_power = 0
eat_radiation = 0
eat_alcohol = 0
wounds_heal_perc = 0
eat_portions_num = 1

; food item
animation_slot = 4

;hud item
hud = wpn_vodka_hud</pre>

5. Открываем файл string_table_enc_equipment.xml

<pre><string id="sigareta">
<text>Сигарета</text>
</string>
<string id="enc_food_sigareta">
<text>Пишем любое описание сигареты, мне че то в голову ниче не приходит</text>
</string></pre>

S.T.A.L.K.E.R. Inside Wiki:Администраторы

2010-05-18T14:25:55Z

Oxygenium: /* Редактор Oxygenium */

== Технические админы ==
Отвечают на любые вопросы. Принимают пожелания, предложения по функционалу и работе базы знаний.

=== Neo][ ===
*[mailto:neo@stalkerin.gameru.net электронная почта]
*ICQ: *********

== Главные редакторы ==
Отвечают на любые вопросы. Принимают пожелания, предложения по материалам, находящимся в базе знаний.

=== [[Участник:HikeR|HikeR]] ===
*[mailto:hhrhhr@gmail.com электронная почта]
*ICQ: 58258575

=== Loxotron ===
*[mailto:loxotron@bk.ru электронная почта]
*ICQ: *********

== <big>Oxygenium</big> ==

e-mail: semyonpoltorak@yandex.ru
ICQ: 3906034
Вопросы, только касательно Вики

=== StUnDeR ===
*mail: Stalkers-life@rambler.ru
*ICQ: 413633944

== Новости STALKER Wiki ==
'''- январь 2008 -''' 
поддержка flash мувиков

'''- июнь 2009 -''' 
починена загрузка картинок

'''- август 2009 -''' 
поставлена recaptcha

'''- август 2009 -''' 
поставлена recaptcha

'''- февраль 2010 -''' 
починено отображение картинок

S.T.A.L.K.E.R. Inside Wiki:Администраторы

2010-05-18T14:25:32Z

Oxygenium: /* Редактор Oxygenium */

== Технические админы ==
Отвечают на любые вопросы. Принимают пожелания, предложения по функционалу и работе базы знаний.

=== Neo][ ===
*[mailto:neo@stalkerin.gameru.net электронная почта]
*ICQ: *********

== Главные редакторы ==
Отвечают на любые вопросы. Принимают пожелания, предложения по материалам, находящимся в базе знаний.

=== [[Участник:HikeR|HikeR]] ===
*[mailto:hhrhhr@gmail.com электронная почта]
*ICQ: 58258575

=== Loxotron ===
*[mailto:loxotron@bk.ru электронная почта]
*ICQ: *********

== Редактор Oxygenium ==

e-mail: semyonpoltorak@yandex.ru
ICQ: 3906034
Вопросы, только касательно Вики

=== StUnDeR ===
*mail: Stalkers-life@rambler.ru
*ICQ: 413633944

== Новости STALKER Wiki ==
'''- январь 2008 -''' 
поддержка flash мувиков

'''- июнь 2009 -''' 
починена загрузка картинок

'''- август 2009 -''' 
поставлена recaptcha

'''- август 2009 -''' 
поставлена recaptcha

'''- февраль 2010 -''' 
починено отображение картинок

S.T.A.L.K.E.R. Inside Wiki:Администраторы

2010-05-18T14:25:24Z

Oxygenium: /* Loxotron */

== Технические админы ==
Отвечают на любые вопросы. Принимают пожелания, предложения по функционалу и работе базы знаний.

=== Neo][ ===
*[mailto:neo@stalkerin.gameru.net электронная почта]
*ICQ: *********

== Главные редакторы ==
Отвечают на любые вопросы. Принимают пожелания, предложения по материалам, находящимся в базе знаний.

=== [[Участник:HikeR|HikeR]] ===
*[mailto:hhrhhr@gmail.com электронная почта]
*ICQ: 58258575

=== Loxotron ===
*[mailto:loxotron@bk.ru электронная почта]
*ICQ: *********

== Редактор Oxygenium ==

e-mail: semyonpoltorak@yandex.ru
ICQ: 3906034
Вопросы, только касательно Вики

=== StUnDeR ===
*mail: Stalkers-life@rambler.ru
*ICQ: 413633944

== Редактор Oxygenium ==

e-mail: semyonpoltorak@yandex.ru
ICQ: 3906034
Вопросы, только касательно Вики

== Новости STALKER Wiki ==
'''- январь 2008 -''' 
поддержка flash мувиков

'''- июнь 2009 -''' 
починена загрузка картинок

'''- август 2009 -''' 
поставлена recaptcha

'''- август 2009 -''' 
поставлена recaptcha

'''- февраль 2010 -''' 
починено отображение картинок

SoC. Выводим часы на HUD

2010-05-18T13:31:44Z

Oxygenium:

Для этого нам понадобятся стандартные файлы:
config/ui/ui_custom_msgs.xml
scripts/bind_stalker.script

1. Создаём файл ваше_название_скрипта.script в папке gamedata/scripts и пишем в него:

<pre>function show_time()
local hud = get_hud()
local cs = hud:GetCustomStatic("hud_show_time")
if cs == nil then
hud:AddCustomStatic("hud_time_static", true)
hud:AddCustomStatic("hud_show_time", true)
cs = hud:GetCustomStatic("hud_show_time")
end

local time_h = level.get_time_hours()
local time_m = level.get_time_minutes()
local msg
if time_m >= 10 then
msg = string.format(" %02d:%02d\n", time_h, time_m)
else
msg = string.format(" %02d:%02d\n", time_h, time_m)
end

if cs ~= nil then cs:wnd():SetText(msg) end
end</pre>

2. Далее открываем файл ui_custom_msgs.xml в config/ui/ и пишем туда:
<pre> <hud_time_static x="852" y="17" width="156" height="52">
<text complex_mode="0" x="65" y="0" font="letterica16" r="255" g="255" b="255" a="130">Time</text>
<texture>ui_hud_frame_clock</texture>
</hud_time_static>
<hud_show_time x="862" y="38" width="156" height="52">
<text x="0" y="0" font="graffiti19" r="255" g="255" b="255" a="140" align="c"/>
</hud_show_time></pre>

3. Открываем файл bind_stalker.script и пишем после:

<pre>function actor_binder:update(delta)
object_binder.update(self, delta)
local time = time_global()
game_stats.update (delta, self.object)</pre>

ваше_название_скрипта.show_time()
В любую функцию

Автор: '''steelrat'''

[[Категория:Скрипты]]

Создание нового тайника

2010-05-18T13:25:49Z

Oxygenium:

Файлы:spawn_sections.ltx,devices.ltx,любой стандартный диалог.
Для того, чтобы замерить координаты можно воспользоватся аддончиком Position Informer.

1.Создаём файл ваше_название_скрипта.script в папке gamedata/scripts и пишем в него:

<pre>function ваше_название_функции() ;НАЗВАНИЕ ФУНКЦИИ
alife():create(section,position,levelvertex,gamevertex) ;ЭТО ТОЧКА ГДЕ СПАВНИТСЯ ПРЕДМЕТ
end
</pre>
2.В папке config/scripts создаём файл m_taynik.ltx и пишем в него:
<pre>[spawn] ;Это то, что появится в тайнике
предмет
предмет
предмет
предмет
предмет</pre>

3. Открываем файл spawn_sections.ltx из папки gamedata/config/creatures и пишем:

<pre>[m_taynik]:ваш_текст
visual = equipments\item_rukzak
radius = 1
custom_data = scripts\m_taynik.ltx
</pre>
4. Открываем файл devices.ltx и пишем:

<pre>[ваш_текст]
GroupControlSection = spawn_group
discovery_dependency =
$spawn = "devices\inventory box"
class = O_INVBOX
cform = skeleton
visual = physics\box\expl_dinamit.ogf
script_binding = bind_physic_object.init</pre>

5. Пихаем в любой диалог функцию спавна:

Например в dialogs_trading.xml в диалоге doctor_dialog_start после фразы doctor_dialog_start_13
Пишем <action>ваше_название_скрипта.ваше_название_функции</action>

'''Автор:Zeka1996Korneev'''
[[Категория:Скрипты]]

Создание нового тайника

2010-05-18T13:07:22Z

Oxygenium:

S.T.A.L.K.E.R. Inside Wiki:Администраторы

2010-05-18T12:45:21Z

Oxygenium: /* Редактор*/

== Технические админы ==
Отвечают на любые вопросы. Принимают пожелания, предложения по функционалу и работе базы знаний.

=== Neo][ ===
*[mailto:neo@stalkerin.gameru.net электронная почта]
*ICQ: *********

== Главные редакторы ==
Отвечают на любые вопросы. Принимают пожелания, предложения по материалам, находящимся в базе знаний.

=== [[Участник:HikeR|HikeR]] ===
*[mailto:hhrhhr@gmail.com электронная почта]
*ICQ: 58258575

=== Loxotron ===
*[mailto:loxotron@bk.ru электронная почта]
*ICQ: *********

=== StUnDeR ===
*mail: Stalkers-life@rambler.ru
*ICQ: 413633944

== Редактор Oxygenium ==

e-mail: semyonpoltorak@yandex.ru
ICQ: 3906034
Вопросы, только касательно Вики

== Новости STALKER Wiki ==
'''- январь 2008 -''' 
поддержка flash мувиков

'''- июнь 2009 -''' 
починена загрузка картинок

'''- август 2009 -''' 
поставлена recaptcha

'''- август 2009 -''' 
поставлена recaptcha

'''- февраль 2010 -''' 
починено отображение картинок

Обсуждение S.T.A.L.K.E.R. Inside Wiki:Администраторы

2010-05-18T12:44:22Z

Oxygenium: Редактор

== Редактор ==

e-mail: semyonpoltorak@yandex.ru
ICQ: 3906034
Вопросы, только касательно Вики