— Ты слышал про операционную систему «Друг»?
— Нет, не доводилось.
— Её придумал и написал Дао, — торжественно произносит Кис. — Это единственная в мире операционная система с искусственным интеллектом. Она способна самообучаться, совершенствоваться, развиваться.
— За ней идёт охота, — понизив голос, сообщает Берд. — Очень большая и серьёзная охота.
— Мы работаем на машинах с операционной системой «Друг». — Кис щёлкает пальцами, и бармен приносит ей новую кружку пива.
— Она существует в мире всего в двух экземплярах, — говорит Берд.
— Один у меня на машине…
— И один у меня…
— За ними идёт охота.
— Ты из Москвы? — внезапно спрашивает Берд. Торжествующе улыбается.
— Да.
— И работаешь на «Виндоус-хоум»? Я как-нибудь поставлю тебе систему «Друг». Увидишь, что это такое.
Вот это интересно. Обожаю эксперименты с непроверенными программами. Правда, вначале отдаю их Маньяку для вивисекции…
— Только это опасно, — уточняет Кис. — Тогда и за тобой будут гоняться.
— Не привыкать… — машинально отвечаю я. Тянусь за сигаретой. Маркером больше, маркером меньше… существовать им до перезагрузки компьютера.
А так хотелось поверить, что у Ильи есть знакомые хакеры, способные найти Храм Дайвера-в-Глубине…
— Ты даже не заметишь, что у тебя изменилась операционная система, — сообщает Кис. — Внешне всё будет выглядеть как и раньше. «Друг» ставится поверх «Виндоус-хоум», изменяя некоторые важнейшие файлы. Интерфейс сохранится прежний. Только машина начнёт работать лучше, гораздо лучше.
— Система будет приспосабливаться к твоему компьютеру, — сообщает Берд. — Ты не хакер, поэтому вряд ли заметишь это сразу… но для профессионала эффект налицо…
— Так что не забывай дорогу в наш бар, — резюмирует Кис.

Прежде всего надо создать записку, которую будем читать в Пип-бое. Создается в разделе Item-Note. Тип записки - текстовый, в поле текста пишем то, что хотели бы поведать игроку, ну скажем - "Ходят слухи, что если собрать 20 крышек от Квантовой Ядер-колы, то в казино Топс дадут приз - годовую подписку на журнал "Мурзилка".
Модель записке назначать необязательно, потому что в игровом мире она не появляется в "живом" виде. Поскольку при получении записки должно произойти некое событие - значит нам нужен скрипт, запускающий это событие. Но к записке-Note нельзя прикрутить скрипт - значит нам нужна "фальшивая" записка из раздела Item-MiscItem, к которой мы и прицепим скрипт. Находишь в указанном разделе любую готовую записку с моделью листка бумаги, (например - записка HVRangerNoteItem), меняешь ей айди и сохраняешь, как новый объект. У нас теперь есть две записки: одна - Note, "настоящая", текст которой можно будет читать в Пип-бое, и одна - MiscItem, "фальшивая", которую мы будем находить в игре.
   Теперь нужен скрипт, который будет убирать "фальшивую" записку из инвентаря, давать игроку "настоящую" записку и запускать планируемое событие. Идем в раздел скриптов и создаем новый, простенький скрипт. Пока пишем предварительно вот такие команды:
scn Имя скрипта

begin OnAdd player    ;(срабатывает при добавлении игроку заскриптованного этим скриптом предмета)
player.addnote айди_настоящей записки   ;(эта команда добавляет игроку "настоящую" записку-note)
removeme   ;(эта команда удаляет из инвентаря полученную фальшивую записку)
end

Тип скрипта - объектный. Сохраняешь скрипт, открываешь "фальшивую" записку и назначаешь ей только что созданный скрипт. 

Скидываешь эту записку в нужное место на локации. Или кладешь в какой-нибудь сундук и уже сундук размещаешь на месте, короче - по вкусу. На этом этапе мы имеем такой результат: находим в игре записку, подбираем и получаем в Пип-бое в разделе Заметок нужный текст про крышки от Ядер-колы.
   Далее нам нужно сделать запуск некоего события, которое мы планируем, а именно - получение задания по поиску этих 20-ти крышек. Значит - нужен квест.
   Идем в раздел квестов и создаем новый квест. Пишем ему айди и ЗАГЛАВНЫМИ буквами пишем имя, например - В ПОИСКАХ КРЫШЕК. Ставим приоритет по желанию, допустим - 50 и, не переходя на другие вкладки, сохраняем квест. Чек-бокс "Стартовать с началом игры" отмечать необязательно, квест будет запускаться командой от записки.
   Открываем квест, переходим на вкладку стадий и создаем три последовательные стадии - 1, 10, 20. Почему номера стадиям даются не по-порядку (1, 2, 3) - это для того, чтобы можно было впоследствии "втиснуть" между стадиями еще другие, если надумалось что-то внести еще в квест. В каждой стадии в правом окне создаем по одному пустому Quest Stage Items, чтобы стало доступным поле назначения результ-скрипта для данной стадии. Сохраняем квест.
   Открываем квест снова и переходим на вкладку заданий квеста. Заданий у нас будет два: первое (№1) будет сообщать, что нужно найти 20 крышек, второе (№10)) скажет нам, что все крышки найдены.
   Создаем задание номер раз, пишем необходимый текст (найти 20 крышек). Создаем задание номер десять, пишем в нем текст (все крышки найдены, нате вам награду). Сохраняем квест.
   Теперь нужно внести в ранее созданный скрипт записки команду на запуск квеста. Открываем скрипт и добавляем в конец блока (до слова end !!!) следующую команду - setstage айди_квеста 1 . Этой командой мы запускаем 1-ю стадию квеста. Сохраняем скрипт
   Открываем КВЕСТ и переходим там на вкладку стадий. Выбираем стадию 1, выделяем в правом окне строчку Empty и в поле результ-скрипта пишем:
setobjectivedisplayed айди_квеста 1 1 . Обязательно после этого жмем под полем текста скрипта кнопочку Compile Result! Этим результ-скриптом мы запускаем квест и выводим на экран текст задания номер 1.
   Теперь надо определиться с предметами поиска. Если нужно будет найти один и тот же предмет, разбросанный по Пустоши в количестве 20-ти штук (те же "особенные" крышки) - то тут все просто. Создаем в соответствующем разделе этот самый предмет и раскидываем его в 20-ти местах по всей Мохаве, где душе угодно.
   Переходим в раздел скриптов и создаем еще один, КВЕСТОВЫЙ, скрипт. В нем пишем:
scn имя_этого_скрипта

short DoOnce

begin GameMode
if (player.GetItemCount айди_нужного_предмета == 20) && (DoOnce == 0)  ;если есть 20шт необходимого
setstage айди_нашего_квеста 10  ;переключить данный квест в стадию 10
set DoOnce to 1  ;сделать значение отслеживающей переменной DoOnce равным 1
elseif (GetStage айди_нашего_квеста == 10) && (DoOnce == 1)  ;иначе, если стадия равна 10  и переменная равна 1
setobjectivecompleted айди_нашего_квеста 10 1 ; отметить в Пип-бое задание 10 как выполненное
setstage айди_нашего_квеста 20  ;переключить данный квест в стадию 20
set DoOnce to 2   ;сделать значение отслеживающей переменной DoOnce равным 2
endif
end
Что делает скрипт: вначале он проверяет, что у игрока есть необходимое количество указанных предметов и переключает квест на стадию 10. Затем, поскольку стадия стала равной 10, скрипт следом отмечает в Пип-бое, что и задание №10 тоже выполнено и переключает квест в стадию 20.
Отслеживающая переменная DоOnce нужна для того, чтобы скрипт после нахождения предметов не выводил каждую секунду сообщения и не "щелкал" по стадиям. Это, типа, переменная одноразовости.
   Назначаем этот квестовый скрипт нашему созданному квесту.
Осталось расписать стадии квеста. Идем в квест, выделяем в нем 10-ю стадию. В результ-скрипте этой стадии пишем:
setobjectivecompleted айди_квеста 1 1  ; эта команда отмечает в Пип-бое, что задание №1 выполнено
setobjectivedisplayed айди_квеста 10 1  ; эта команда выводит показ задания №10
Жмем кнопку компиляции результата.
Выделяем затем 20-ю стадию и в правом окне ставим галочку в чек-боксе Complete Quest.
На этом всё. Можно проверять в игре.
   Если же нужно найти не 20 штук одного и того же предмета, а 20 уникальных, то есть совершенно разных - то тут могут быть варианты.
Можно в квестовом скрипте в строчке проверки наличия необходимых предметов прописать все 20, типа:
if (player.GetItemCount айди_нужного_предмета№1 == 1) && (player.GetItemCount айди_нужного_предмета№2 == 1) && (и так далее), хоть это и громоздко, зато просто.
Можно на каждый из предметов повесить один общий скрипт, увеличивающий при добавлении этого предмета некую глобальную переменную, а в квестовом скрипте отслеживать не количество предметов в инвентаре, а значение этой глобальной переменной. Короче - надо сначала знать, что ты будешь "разбрасывать"

Для начала изготовим посмертный инвентарный предмет. Идем в раздел Items - Misc Item, открываем любой итем (например - пепельницу) и меняем ей айди (ID) на новое, к примеру - на CapsExplosionMisc. Больше нам тут ничего менять не нужно, ни модель, ни картинку, ни параметры. Эту вещь "живьем" в игре мы не увидим. Сохраняем, как новый объект:

Затем нам нужно создать посмертный левельный список, который перк и будет добавлять жертве. Идем в раздел Items - Leveled Item, кликаем в правом окне ПКМ на списке имеющихся левельных списков и выбираем в контексте строчку New. В открывшемся окне даем собственное айди новому списку, к примеру - CapsExplosionLVL, и справа, в выпадающем списке, выбираем созданный нами инвентарный предмет CapsExplosionMisc.

Шанс "невыпадения" (Chance None) ставим ноль, т.е. - предмет 100% будет появляться в этом списке.
Теперь создаем нужный перк, который будет добавлять жертве этот самый посмертный список. Идем в раздел Actor Data - Perk и по ПКМ создаем новый перк, даем ему свое уникальное ID, ну скажем - CapsExplosionPerk. Ставим требуемый уровень (Level) для получения перка, отмечаем чек-бокс Playable, чтобы перк был доступен игроку, пишем описание перка. Затем в нижнем окне PerkEntries кликаем ПКМ, чтобы выбрать точку входа:

В открывшемся новом окне отмечаем радио-кнопку Entry Point, в левом раскрывающемся списке выбираем параметр Add Leveled List On Death (добавлять левел-лист при смерти), в среднем окне у нас остается единственная там функция Add Leveled List, ну а в правом раскрывающемся списке выбираем, какой посмертный лист будем добавлять жертве, т.е. - наш созданный левел-список CapsExplosionLVL.

Затем там же открываем вкладку Target (Цель), кликаем в ней ПКМ и выбираем условие GetIsCreature. В сравнении ставим равно нулю. Это нужно для того, чтобы перк НЕ действовал на животных и прочую живность\железякость из категории кричеров.

Жмем ОК, затем еще раз ОК и попадаем на первую страницу перка. В законченном виде он выглядит так:
.
В игре, при достижении игроком 10-го уровня этот перк будет доступен при уровневом распределении заработанных очков. Если нужно получить перк раньше - ставим уровень поменьше.
Осталось написать скрипт, который будет организовывать всю сцену выпадения крышек из жертвы. Идем в раздел Miscellaneous - Script и по клику ПКМ создаем новый скрипт:

Вот сам скрипт:
---------------------------------
scn CapsExplosionScript

short DoOnce
short Z

ref MyDead
ref MyOuterItem

Begin OnLoad
PlaceAtMe Caps001 20
Disable
MarkForDelete
End

Begin GameMode

if DoOnce == 10
set MyDead to GetContainer
if ( MyDead != 0 )
set Z to ( GetPos z + 100 )
if MyDead.IsLimbGone 1
set MyOuterItem to PlaceAtMe CapsExplosionMisc
MyOuterItem.SetPos z Z
endif
endif
endif

if ( DoOnce >= 0 ) && ( DoOnce < 20 )
set DoOnce to ( DoOnce + 1 )
else
set DoOnce to -1
RemoveMe
endif

End
------------------------------------
Тип скрипта - объектный. Автор скрипта - Joopeeter
Осталось только открыть наш посмертный предмет CapsExplosionMisc и в выпадающем списке скриптов выбрать наш новый скрипт:

Ну и сохранить всю работу в файл-плагин. Отмечаем этот плагин в мод-менеджере. запускаем игру и идем вышибать мозги крышки из противников.

Как работает вся механика мода:
Когда игрок стреляет по цели и убивает её - перк "вбивает" в жертву наш посмертный левел-список (а поскольку в списке всего один предмет - то вбивается тот самый наш конкретный посмертный предмет).
На посмертном предмете висит скрипт, в нем среди прочего есть две реф-переменные: MyDead - это "виртуальная" будущая жертва игрока и MyOuterItem - это "виртуальный" будущий выбрасываемый наружу предмет.
Командой set MyDead to GetContainer скрипт назначает жертву, как будто она является контейнером.
Затем скрипт проверяет, находится ли заскриптованный им предмет в контейнере ( if ( MyDead != 0 ) ) и если да - то настраивает будущую высоту "выброса" копии этого предмета наружу (set Z to ( GetPos z + 100 )) В данном случае - на 100 ед над поверхностью.
Далее скрипт проверяет, есть ли у "контейнера" голова ( if MyDead.IsLimbGone 1 ) и если головы нет - выбрасывает во внешний мир в координаты контейнера-носителя копию самого себя (set MyOuterItem to PlaceAtMe CapsExplosionMisc) и поднимает эту копию на заданную ранее высоту (MyOuterItem.SetPos z Z).
А вот далее срабатывает блок OnLoad, который заменяет выброшенный предмет на нечто другое (PlaceAtMe Caps001 20), в данном случае - на 20 крышек, и выключает с последующим удалением из мира (Disable MarkForDelete) сам выброшенный предмет, чтобы не портил пейзаж.
В нижней части скрипта через переменную DoOnce расписана небольшая задержка по времени, чтобы скрипт успел "провернуться" и понять, что заскриптованный им предмет уже находится в контейнере-неписе. А также командой RemoveMe удаляет из инвентаря жертвы полученный посмертный предмет, поскольку в мир была выброшена его копия.
Вот и всё.
Вариации:
- вместо крышек в блок OnLoad можно вписать, что угодно и скрипт это будет выбрасывать: очки, патроны, сигареты, черепа, кастрюли и велосипеды! (С) Joopeeter или мозги © КсюХа
- если не хотим, чтобы выбрасывалось каждый раз одно и то же количество крышек - можно настроить это количество, чтобы оно зависело, к примеру, от уровня бартера жертвы. Для этого в меню Gameplay - Globals создаем новую глобальную переменную, ну скажем - CapExplosionGlobal. Тип - Short, значение - ноль.
В скрипт вносим изменения: в блоке OnLoad в строчке PlaceAtMe Caps001 20 вместо 20 пишем имя новой глобальной:
PlaceAtMe Caps001 CapExplosionGlobal
а в блоке GameMode после строчки установления позиции Z (set Z to ( GetPos z + 100 ) ) вписываем еще одну команду:
set CapExplosionGlobal to ( MyDead.GetAV barter )
Переменная будет иметь то же значение, что и уровень "Бартер" жертвы и именно такое количество крышек будет выброшено при убийстве.
- если хотим, чтобы крышки появлялись просто при убийстве жертвы, а не только при отрыве головы - в скрипте вместо if MyDead.IsLimbGone 1 пишем if MyDead.GetDead