1. Теоретическая часть

Теоретическая часть

Итак, что такое партиец?
Партиец - это особый NPC в команде Чузена (От англ.Choosen - Избранный, главный герой), обладающий бОльшими по сравнению с другими NPC возможностями, управление которым частично осуществляется игроком.
С того момента как партиец присоединяется к команде чузена , он может выполнять некоторые команды, которые даёт ему чузен.

Что нужно сделать, для того чтобы партиец мог выполнять команды? Нужно создать скрипт для этого криттера, и в нём прописать команды, которые требуются.

Если вы не знаете, что такое скрипт, советую вам обратиться к документации "FScript-HOWTO" от Равена. Вы можете найти её на сайте http://www.teamx.ru в разделе "Документация".

Итак, вы прочитали документацию от Равена, вы уже знаете, что такое скрипт, и с чем его едят.
Что делать в первую очередь?
Естественно, прочитав всю документацию от Равена, и зная немало о скриптах, вы сразу же кинетесь писать скрипт.
Неправильно!
Первым делом вы должны составить план:
Кто такой, ваш партиец, что он может о себе рассказать, какой квест (если таковой имеется) нужно выполнить, чтобы он к вам присоединился.
Так же вы должны составить план действий, которые партиец будет делать, уже состоя в команде чузена.

Прошу учесть, что это только план, т.е. теоретическая часть вопроса. Техническая часть будет потом.

Итак, составляем план.

Первым делом мы составляем биографию партийца, дабы он мог рассказать о себе чузену.

Возьмём простой пример. Имя у партийца будет Тэд. Наш партиец родился в деревушке неподалёку от Арройо. Когда на его племя напало враждующее племя, ему едва исполнилось два года, поэтому он не помнит ни матери, ни отца, ни даже названия деревни. Он был воспитан и выращен во вражеском племени, и когда ему исполнилось двадцать лет, наш партиец отправился искать счастья в большом мире.

Повторяю, это только пример. Биография может быть любой.

Теперь, когда мы составили биографию для партийца, и ему есть что ответить на просьбу "Расскажи мне о себе", можно придумать квест для присоединения.

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

Реплика партийца: "Привет."

Здесь чуть-чуть остановимся.
Важно, чтобы на каждую реплику криттера у нас было бы несколько ответов, так как Fallout отличается нелинейностью сюжета.

Наши варианты ответов:

• Вариант №1:
  "Привет. Кто ты такой?" - За этим следует следующая реплика партийца
• Вариант№2:
  "Я не хочу с тобой разговаривать. Прощай" - здесь наш диалог может закончиться.

Следующая реплика партийца: "Я Тэд, а ты кто?"

Наши ответы:

• Вариант№1:
  "Я чузен. Расскажи мне о себе" - Следующая реплика
• Вариант№2:
  "Какая тебе разница?! Я больше не хочу с тобой разговаривать" - конец диалога.

Теперь обратим внимание на реалистичность диалога. Если партиец уже рассказал нам кто он такой, нелогично будет, что мы спрашиваем его ещё раз "Привет, кто ты такой"... Следовательно, нужно продумать и этот случай. Итак, если партиец уже рассказывал нам о себе, и мы отказались с ним разговаривать, а потом возобновили диалог, то партиец будет нас спрашивать "Так кто ты?".

Вот тут то и пригодилась нам биография партийца!

Следующая реплика партийца: "Биография."

Наши ответы:

• Вариант№1:
  "Ааа:понятно. Не хочешь отправиться со мной? Вдвоём будет легче в этом полном опасностей мире" - Следующая реплика
• Вариант№2:
  "Мдаа:тяжёлое детство. Прощай" - конец диалога.

Вариант возобновления диалога:

Партиец - "Что ты хочешь?"
Чузен - "Не хочешь отправиться со мной? Вдвоём будет легче в этом полном опасностей мире."

Следующая реплика партийца:

• "Я бы с удовольствием, но у меня нет оружия. Если ты принесёшь мне пистолет, я с тобой пойду."
• И, если у нас в партии больше чем три человека:
  "Нет, у тебя слишком много людей."

Вариант возобновления диалога:

Партиец - "Принеси мне пистолет, и я с тобой пойду."
Наши ответы:

• Вариант№1:
  "Хорошо. Стой здесь, я вернусь с пистолетом для тебя" - конец диалога.
• Вариант№2:
  "Мне это неинтересно, прощай" - конец диалога.
• И на второй вариант реплики:
  "Ладно, пока."

Как вы уже поняли, партиец дал нам задание, которое состоит в том, чтобы принести ему пистолет.Отлично! Получив задание, мы идём за пистолетом, приносим его партийцу, и опять нас ждёт диалог.

Реплика партийца: "Ну, как? Принёс мне пистолет?"

Наши ответы:

• Вариант№1:
  "Да, вот он" - Если нашел пистолет
• Вариант№2:
  "Нет, пока нет" - Если не нашёл

Здесь могут быть два варианта реплики партийца.
Реплика на ответ "Да, вот он.": "Спасибо, теперь я могу к тебе присоединиться."
Наши ответы:

• Вариант№1:
  "Буду очень рад" - партиец присоединяется
• Вариант№2:
  "Я передумал, оставайся здесь" - партиец не присоединяется

Реплика на ответ "Нет, пока нет": "Ну, тогда удачи в поисках."
Наш ответ:

• "Спасибо, пока."

Вроде бы действия партийца вне команды определены. Перейдём к действиям в команде.

Действия в команде:

• Убери оружие (чтобы вас пустили в Новую Калифорнию, например)
• Подожди здесь (если вам понадобится проникнуть куда-то одному)
• Сними броню (на случай, если вам захочется переставить броню с партийца на другого партийца, или же одеть её самому)
• Поменяй дистанцию (следовать вблизи, следовать на обычном расстоянии, и следовать вдалеке от вас)
• Подлечи себя (чтобы не тратить на него стимпаки)

Ну, и от себя я добавлю ещё неколько фич. Такие как: выбор оружия(из всего, что есть у партийца) посредством диалога, смена вида партийца(в зависимости от надетой брони) и ещё кое-что.

Для того чтобы сообщить партийцу, что мы от него хотим, нам естественно потребуется диалог.
Что ж, диалог, так диалог. Составляем диалог.

Реплика партийца, когда мы обращаемся к нему (на тот момент, когда он уже в команде): "Что ты хочешь?"
Наши ответы. Ого! Тут ответов много выйдет:

• "Я хочу поговорить с тобой о твоём оружии"

  Реплика партийца: Что ты хочешь? Наши ответы если партиец вооружён:

  • "Я хочу, чтобы ты убрал оружие"
  • "Я хочу, чтобы ты взял в руки другое оружие"
  Если не вооружён:
  • "Я хочу, чтобы ты взял кое-какое оружие в руки" Реплика партийца: "Вот оружие, которым я умею пользоваться. Какое мне взять?" Наш ответ:
    • (Процедура выбора оружия)

• "Мне кажется, тебе нужно подлечить себя"
• "Я хочу, чтобы ты подождал меня здесь"

Реплика партийца: "Хорошо, я сделаю это"

• "Я хочу, чтобы ты снял броню" Реплика партийца:
  • "Хорошо, я сниму эту броню"

• "Я хочу поговорить с тобой о дистанции"

  Реплика партийца: "Да, я слушаю" Наши ответы:

  • "Я хочу, чтобы ты был рядом со мной"
  • "Я хочу, чтобы ты стоял далеко"
  • "Я хочу, чтобы ты стоял как обычно"

• "Ладно. Пока"

Когда партиец ждёт :

Реплика партийца: "Что ты хочешь?" Наш ответ :

• "Пойдём со мной"

Реплика партийца: "Пойдём" Наш ответ :

• "Ладно"

Теоретическая часть закончена, переходим к практической части.

2. Практическая часть

Практическую часть разделим на две части - построение диалогов, и создание процедур.

#define NAME (номер вашего скрипта)

#define Rep(x) gsay_reply(NAME,mstr(x))
#define Opt(x,y) gsay_option(NAME,x,y,-1)
#define Dialogue(x,y) start_gdialog(NAME, x, 4, -1, -1);\
gsay_start;\
call y;\
gsay_end;\
end_dialogue

#define Have_pistol
((obj_is_carrying_obj_pid(dude_obj,PID_DESERT_EAGLE))                  \
  OR(obj_is_carrying_obj_pid(dude_obj,PID_10MM_PISTOL))                \
  OR(obj_is_carrying_obj_pid(dude_obj,PID_LASER_PISTOL))               \
  OR(obj_is_carrying_obj_pid(dude_obj,PID_14MM_PISTOL))                \
  OR(obj_carrying_pid_obj(dude_obj,PID_PLASMA_PISTOL))                 \
  OR(obj_is_carrying_obj_pid(dude_obj,PID_ALIEN_LASER_PISTOL))         \
  OR(obj_is_carrying_obj_pid(dude_obj,PID_223_PISTOL))                 \
  OR(obj_is_carrying_obj_pid(dude_obj,PID_NEEDLER_PISTOL))             \
  OR(obj_is_carrying_obj_pid(dude_obj,PID_PK12_GAUSS_PISTOL))          \
  OR(obj_is_carrying_obj_pid(dude_obj,PID_YK32_PULSE_PISTOL))          \
  OR(obj_is_carrying_obj_pid(dude_obj,PID_MAGNETO_LASER_PISTOL)))

Procedure talk_p_proc begin
if((Have_pistol)and(global_var(GVAR_partyman)==4))then
set_global_var(GVAR_partyman,5);
start_dialog_at_node(Choose_dialog);
end

procedure description_p_proc begin
    script_overrides;
    display_mstr(номер вашей строчки в msg - файле);
end
procedure look_at_p_proc begin
    script_overrides;
    display_mstr(номер вашей строчки в msg - файле);
end

if(total_cnt%5) > 0 then pages:=pages+1;

if (counter==(num+((cur_page-1)*5)))then begin

if num==1
  then gsay_option(-1, obj_name(self_item(weapons_pid_array(i))),WeaponOption1Selected, -1);
else if num==2
  then gsay_option(-1, obj_name(self_item(weapons_pid_array(i))),WeaponOption2Selected, -1);
else if num==3
  then gsay_option(-1, obj_name(self_item(weapons_pid_array(i))),WeaponOption3Selected, -1);
else if num==4
  then gsay_option(-1, obj_name(self_item(weapons_pid_array(i))),WeaponOption4Selected, -1);
else if num==5
  then gsay_option(-1, obj_name(self_item(weapons_pid_array(i))),WeaponOption5Selected, -1);

Procedure talk_p_proc begin
Pid_weapon:=0;
cur_page:=1;
call get_self_weapons_count;
   start_dialog_at_node(Choose_dialog);
   if(Pid_weapon!=0)then
   begin
      inven_unwield(self_obj);
      wield_obj(self_item(Pid_weapon));
   end
call Check_forbidden_weapon;
end

if((critter_inven_obj(self_obj,INVEN_TYPE_RIGHT_HAND)==0)and(Pid_weapon!=0)) then
floater(0);

if (critter_inven_obj(self_obj, 0)!=0) then begin

Variable restock_obj;

restock_obj := critter_inven_obj(self_obj, 0);
// возвращает указатель на объект в инвентаре. Если его там нет,  возвращает 0.

rm_obj_from_inven(self_obj, restock_obj); // удаляет объект из инвентаря
add_obj_to_inven(self_obj, restock_obj); // добавляет объект в инвентарь
end

if(Art_fidM==MyFID)then
  if (obj_art_fid(self_obj)/100==168182)OR(obj_art_fid(self_obj)/100==168100)then begin
    inven_unwield(self_obj);
    art_change_fid_num(self_obj,Art_fidM);
    floater(0);
  end

#define LVAR_FOLLOW_DISTANCE (4)
#define LVAR_WAITING         (5)

#define Current_Distance_From_Dude          tile_distance_objs(self_obj,dude_obj)

#define dude_tile                           (tile_num(dude_obj))

#define Run_Away_From_Dude_Dir              Get_Rotation_Away_From_Dude(self_obj)
#define Get_Rotation_Away_From_Dude(x)      rotation_to_tile(tile_num(dude_obj),tile_num(x))
rotation_to_tile(int srcTile, int destTile) - направление к гексу destTile от гекса srcTile
Аргументы:
srcTile - номер гекса "от" (связь с координатами x, y: hex = 200 * y + x)
destTile - номер гекса "к" (связь с координатами x, y: hex = 200 * y + x)
Возвращаемое значение:
направление (0...5)

animate_run_to_tile(int tile) - анимация бега на заданный гекс
Аргументы:
tile - номер гекса (связь с координатами x, y: hex = 200 * y + x)
Возвращаемое значение:
нет
Примечание:
макрос от animate_move_obj_to_tile(self_obj, tile, ANIMATE_RUN)

animate_move_to_tile(int tile) - анимация "перейти на заданный гекс"
Аргументы:
tile - номер гекса (связь с координатами x, y: hex = 200 * y + x)
Возвращаемое значение:
нет
Примечание:
макрос от animate_move_obj_to_tile(self_obj, tile, ANIMATE_WALK)

#define self_distance_from_dude             tile_distance(self_tile, dude_tile)
#define self_tile                           (tile_num(self_obj))
#define dude_tile                           (tile_num(dude_obj))

tile_num_in_direction(dude_tile, Run_Away_From_Dude_Dir, the_dist)

obj_heal(self_obj);

#define obj_heal(who)

Если    \
У объекта есть суперстимпак, значит начать   \
Погасить экран \
Восстановить экран  \
PartyHealingItem получает значение указателя на объект(суперстимпак)\
Использовать объект (PartyHealingItem) на объекте (Наш объект)\
Сообщение на отладочном экране (наш объект использовал суперстимпак) \
Закончить

3. Proto и AI

Для того, чтобы создать полноценного партийца, нам, кроме скрипта и истории, нужно ещё как минимум две вещи:

• 1.Proto файлы
  
• 2.Пакет АИ - искуственного интеллекта
  

Proto файлы

[Fallout2 root]
  | - dev
  |    | - proto
  |          | - critters
  |          | - items
  |          | - misc
  |          | - scenery
  |          | - tiles
  |          | - walls
  | - data
      | - proto
      |      | - critters
      |      | - items
      |      | - misc
      |      | - scenery
      |      | - tiles
      |      | - walls
      | - text
           | - english
                | - game

Замечание: Часть папок может быть создана программой установки Fallout2.

2. Распаковать из master.dat файлы

proto\CRITTERS\critters.lst
proto\ITEMS\items.lst
proto\MISC\MISC.LST
proto\SCENERY\scenery.lst
proto\TILES\TILES.LST
proto\WALLS\walls.lst
text\english\game\pro_crit.msg
text\english\game\pro_item.msg
text\english\game\pro_misc.msg
text\english\game\pro_scen.msg
text\english\game\pro_tile.msg
text\english\game\pro_wall.msg

и поместить их в соответствующие подпапки [Fallout2 root]\data

Замечание: Было обнаружено, что если используется патченная версия Фоллаута и в папке с fallout2.exe находится patch000.dat, то для устранения несоответствий в ресурсах требуется наличие такого же файла в папке с mapper2.exe.

3. Заменить значение параметра в mapper2.cfg

librarian=1

4. Запустить mapper2.exe
5. Выбрать в какой-нибудь объект в палитре объектов.
6. Нажать клавишу
7. Выбрать самый последний, пустой квадратик и нажать кнопку
8. Настроить параметры объекта и нажать кнопку
9. В папке data\proto\... появится НОВЫЙ PRO-файл. Кроме этого он будет зарегистрирован в LST-файле и описан в MSG-файле.
10. В папке dev\proto\... будет создан текстовый файл с информацией из нового PRO-файла.

Внимание!

Теперь, когда мы настроили маппер для работы с прошниками, создаём четыре новых прошника.
При создании прошника, нас интересуют слежующие параметры:
Name - имя объекта
Advanced - тут мы выставляем хар-ки криттеру
Gender - тут пол и перки
Flags - специальные свойства объекта
Head FID - говорящая голова (анимированный фон во время разговора)
Body Type - тип существа (двуногое, четвероногое и робот)
Action Flags - свойства действий, которые можно произвести над объектом
Critter Flags - особые свойства криттера
AI Packet - искутвенный интеллект, о нём мы поговорим позже.
Team num - номер комнды, в которой состоит объект (в нашем случае это 1 - команда чуза)
Exp.Value - опыт, который чуз получит, когда убьёт криттера
Barter - возможность торговать (YES/NO)
Kill type - тип смерти (используется для сводной таблицы убитых игроком существ)
Crit.Bonus - бонус критических повреждений.
Dmg type - тип повреждения (Это уже зависит от вашего партийца, кто он - робот, человек, турель и т.д. :)
HP Bonus - бонус к здоровью
AP Bonus - бонус к очкам действий
Melee dam - урон в рукопашке
DM res - устойчивость к повреждениям
DM thr - порог повреждений
Если хотите узнать об этом поподробнее, читайте доку "Формат PRO-файлов Fallout2". Найти её можно на сайте TeamX.

Создав четыре прошки, нам нужно как то осуществить переход по уровням (чтобы прошки подменялись одна на другую, при переходе партийца на более высший уровень). Как это осуществить? С помощью party.txt . Найти этот файлик вы можете в папке Fallout2\Master.dat\data.
Итак, что из себя представляет party.txt? А представляет он следующее:

[Party Member NUM] ; pMPartyMan_PID
NUM - порядковый номер партийца
(при добавлении нового партийца порядковый номер должен быть равен последнему номеру в party.txt + 1)
pMPartyMan_PID - строчка(обычный комментарий), которая помогает нам найти нашего партийца в MISC.MSG (этот файл находится в папке text/english/game). Какое отношение имеет MISC.MSG к партийцам? Начиная со строки 9000 там прописаны реплики для повышения уровня. Прописано это таким образом(показываю на примере Кэса) :
{9030}{}{Дааа, хорошо вспомнить старые времена...} # pMMacRae_PID
{9031}{}{Xхе! Говорил же я, старый конь борозды не испортит.}
{9032}{}{Похоже, все эти путешествия начинают окупаться.}
{9033}{}{Я выучил парочку новых трюков.}
Заметьте, у Кэса четыре раза повышается уровень, каждому разу соответствует своя реплика. Реплики идут по возрастанию последовательно. Для первого повышения реплика 9030, для второго 9031, для третьего 9032 и т.д. Как движок знает что это реплики Кэса?
Обратите внимание на строчку в party.txt - [Party Member 3]
и на номера реплик в MISC.MSG - {9030},{9031},{9032},{9033}
Что мы видим? Правильно, Party Member 3 и {903Х}. Какая между ними связь? В MISC.MSG строчки 9000 и далее - это реплики партийцев, а последующие цифры в числе обозначают пакет партийца в Party.h. Так, у Кэса номер пакета 3, а номер реплик 903(0-3).9 - обозначение того, что это реплики партийцев, 03 - это обозначение пакета Кэса, и цифры 0-3 - это номера реплик. Именно так движок находит нужные реплики.
Итак, если мы хотим, чтобы наш партиец говорил что то умное при повышении уровня, мы идём в конец MISC.MSG, и прописываем там следующие строчки (например) :
{9260}{}{Я чувствую прилив сил!} # pMPartyMan_PID
{9261}{}{Ооо! Кажется я становлюсь круче!}
{9262}{}{Я на вершине своих возможностей!}
Номера релик должны быть последовательными. Разумеется "9ХХ0" в MISC.MSG должно быть идентичным с "Party Member ХХ" в party.txt.
Т.е. если мы добавляем партийца с Party Member = 67, то реплики в MISC.MSG должны нумероваться от 9670 и дальше(9671, 9672, 9673 и т.д.)
party_member_pid= Пид нашего партийца (т.е. первого прошника, без повышения уровней)

Все нижеуказанные значения действительны для поведения "По выбору":
area_attack_mode= возможные для этого партийца варианты атаки (как атаковать).
Существующие значения: always, sometimes, be_sure, be_careful, be_absolutely_sure
attack_who= возможные для этого партийца варианты атаки (кого атаковать)
Существующие значения: whomever_attacking_me, strongest, weakest, whomever, closest
best_weapon= возможные для этого партийца варианты предпочтения оружия
Существующие значения: no_pref, melee, melee_over_ranged, ranged_over_melee, ranged, unarmed, unarmed_over_thrown, random
chem_use= возможные для этого партийца варианты использования наркотиков и медикаментов
Существующие значения: clean, stims_when_hurt_little, stims_when_hurt_lots, sometimes, anytime, always
distance= возможные для этого партийца варианты дистанции
Существующие значения: stay_close, charge, snipe, on_your_own, stay
run_away_mode= возможные для этого партийца варианты побега
Существующие значения: none, coward, finger_hurts, bleeding, not_feeling_good, tourniquet, never
disposition= возможные для этого партийца варианты поведения
Существующие значения: none, custom, coward, defensive, aggressive, berserk

level_minimum= минимальный уровень чуза, при котором партиец начинает получать новые уровни каждые level_up_every уровней чуза.
level_up_every= через какое кол-во уровней чуза у партийца будет повышаться уровень (прошка будет заменяться на следующую в списке). Если нету, значение = 0.
level_pids= список Пидов прошек, из которых будут браться данные для следующих уровней. Прошки должны быть в порядке возрастания по уровню. Например, если у вас кроме оригинальной прошки есть ещё две прошки для уровней, допустим, прошка с пидом 16777576 это прошка для первого уровня, а прошка с пидом 16777267 это прошка для второго уровня, то в списке Пидов они должны быть написаны в следующем порядке:
level_pids= 16777576,16777267
Заметьте, при поднятии уровня прошки НЕ ЗАМЕНЯЮТСЯ, как думают некоторые. Прошка остаётся та же, что и в начале, просто данные берутся из других прошек. Т.е. ПИД, имя и род партийца не меняются, но все технические данные (скиллы, перки, хар-ки) берутся из прошки с повышенным уровнем. То есть если вы укажете в party.txt в прошках для поднятия уровня номер прошки Патрульного Анклава, ваш партиец при достижении этого уровня будет иметь хар-ки анклавовца :)

Кроме того

Внимание!

Warning: Adding a party member here means you must also add it to party.h!

Это значит, что добавив партийца в party.txt вам нужно прописать его в party.h во ВСЕХ!!! местах, где перечисляются партийцы. И перекомпилировать все скрипты, использующие party.h :) Но, об этом НИЖЕ. Набор фалов, с помощью которого вы можете скомпилировать все необходимые скрипты вы найдете тут
Теперь, когда мы добавили нашего партийца в party.txt, нужно сделать последний штрих. А именно - дать ему мозги :) Тобеж искуственный интеллект.

Artificial Intellect(AI) - Искуственный интеллект НПС

Вроде бы всё. Теперь вам остаётся только объединить то, что вы сделали. Заходим в маппер, выставляем у наших новых прошек значение параметра AI packet = PARTY NAME_NPC CUSTOM (где NAME_NPC - это имя нашего партийца, в нашем случае AI packet = PARTY TED CUSTOM), ставим партийца на карту, прикрепляем к нему сделанный нами скрипт и ВПЕРЁД!

4. party.h

Теперь, когда белых пятен в создании нового партийца для вас нету, я должен вам сказать, что всё, что мы здесь делали (по скриптовой части) можно сделать гораздо короче. Для этого нужно разобраться с party.h.
Итак,разберём стандартные макросы в party.h. Для того чтобы не путаться, будем идти по порядку (сверху вниз) и попутно объяснять действие макросов. Начнём:
#define FOLLOW_DISTANCE_CLOSE         (3)
#define FOLLOW_DISTANCE_MEDIUM      (6)
#define FOLLOW_DISTANCE_FAR              (9)
Это стандартные значения для дистанции (в гексах). То есть когда дистанция маленькая, то расстояние между партийцем и чузом равно 3, когда средняя - 6 и когда большая - 9. Если вы измените эти значения, то вам нужно будет перекомпилировать все скрипты, использующие эти define'ы. Это действительно и для остальных макросов и define'ов.

Идём дальше...
#define obj_in_party(x)
Стандартный макрос. Проверяет находится ли криттер с ПИДом х в партии.
Возвращаемые значения:
TRUE - если криттер в партии, FALSE если не в партии.

#define Vic_Ptr
#define Myron_Ptr
#define Marcus_Ptr
#define MacRae_Ptr
#define Sulik_Ptr
....и т.д.
Указатели на партийцев. Если вы хотите добавить своего партийца в игру, советую вам прописать его здесь. Например:
#define TED_Ptr                 party_member_obj(PID_TED)
где PID_TED - ПИД вашего партийца.
С помощью этого define'а мы можем сделать множество операций. Ведь если мы знаем указаьель на объект, мы можем получить и всю остальную информацию об объекте. НО. TED_Ptr будет равно указателю ТОЛЬКО в том случае если Тэд в партии. В противном случае TED_Ptr будет равно NULL.

#define Vic_In_Party
#define Myron_In_Partyr> #define Marcus_In_Party
....и т.д.
Проверки на принадлежность партийцев к партии (простите за каламбур :). Сюда тоже рекомендуется добавить заново созданного партийца. Например:
#define TED_In_Party                 (TED_Ptr !=0)
Возвращаемые значения:
TRUE - если Тэд в партии, FALSE если не в партии.
Примечание: этот define будет работать только в том случае, если вы добавили в party.h указатель на своего партийца. См.выше - TED_Ptr.

#define party_size
Возвращает количество партийцев в команде игрока, не учитывая скрытых членов партии, но учитывая машину (машина тоже считается партийцем).

#define true_party_size
Количество партийцев криттеров, состоящих в команде игрока (не учитывая машину).

#define party_max_formula
Максимальное количество партийцев, которых чуз может таскать за собой.

#define dude_at_max_party_size
Проверка набрал ли чуз максимальное количество партийцев к себе в партию. Если да, то возвращает TRUE, если нет - FALSE.

#define party_size_humans
Подсчитывает кол-во человек в партии. Если ваш партиец человек, то рекомендуется добавить его сюда. Например
#define party_size_humans                 (Myron_In_Party+MacRae_In_Party+.....+TED_In_Party)
Примечание: этот define будет работать лишь в том случае, если вы добавили в party.h проверку на принадлежность партийца к партии. См.выше - TED_In_Party.

#define party_size_male
Аналогично вышеуказанному define'у, подсчитывает кол-во мужчин в партии. Если ваш партиец мужчина, рекомендуется добавить его сюда.

#define party_size_female
Аналогично вышеуказанному define'у, подсчитывает кол-во женщин в партии. Если ваш партиец женщина, рекомендуется добавить его сюда.

#define party_size_strange
Аналогично вышеуказанному define'у, подсчитывает кол-во нечеловек в партии. Если ваш партиец нечеловек, рекомендуется добавить его сюда.

#define party_size_biped
Подсчитывает кол-во мужчин+женщин в партии. Сюда ничего добавлять не надо :)

#define Is_Injured(Who)
Проверяет ранен ли криттер Who(Who - указатель на криттера). Если текущее кол-во жизней криттера меньше чем максимальное, возвращает TRUE, если нет - FALSE.

#define Injured_How_Much(Who)
Возвращает кол-во очков жизни(HP) на которое ранен объект Who. То есть кол-во HP, которого на данный момент недостаёт до максимального кол-ва HP криттера.

#define Is_Crippled(Who)
Проверяет покалечен ли криттер Who(сломана рука, нога). Если покалечен, возвращает TRUE, если нет - FALSE.

#define Is_Blind(Who)
Проверяет ослеплён ли криттер Who. Если ослеплён, возвращает TRUE, если нет - FALSE.

#define Is_Armed(Who)
Проверка вооружён ли криттер. Если вооружён, возвращает TRUE, если нет - FALSE. Внимание! Не может быть применено по отношению к чузу. Потому что если криттер невооружён, это значит в его правой руке нету оружия, а если чуз невооружён, это значит в его обеих руках нет оружия. В данном define стоит проверка только на правую руку.

#define If_Party_Has_Injured
Проверка повреждён ли кто-нибудь из партийцев. Действует по аналогии с Is_Injured(Who). Рекомендуется прописать тут и своего партийца. Например:
#define If_Party_Has_Injured                 How_Many_Party_Members_Are_Injured := 0; \
                                                                 if (Vic_In_Party) then \
                                                                 if (Is_Injured(Vic_Ptr)) then \
                                                                 How_Many_Party_Members_Are_Injured+=1; \
                                                                 ..........
                                                                 if (TED_In_Party) then \
                                                                 if (Is_Injured(TED_Ptr)) then \
                                                                 How_Many_Party_Members_Are_Injured+=1; \
Примечание: обратите внимание, если вы хотите реализовать эту проверку в скрипте, ни в коем случае не пишите if(If_Party_Has_Injured) then, так как это выражение само по себе является проверкой. Записывать это надо в таком виде:
If_Party_Has_Injured then

#define If_Party_Is_Armed
По аналогии с предыдущим выражением. Проверка вооружён ли кто-нибудь из команды. Рекомендуется добавить сюда своего партийца (по аналогии с предыдущим выражением).

#define Party_Childkiller_Mask
Проверка имеет ли кто-нибудь из партийцев репутацию детоубийцы. Если имеет, то возвращает TRUE, если нет - FALSE.

#define attempt_place_party_member(the_obj, the_tile, the_elev)
Распологает криттера на заданом уровне карты на заданном гексе, в случае если криттер состоит в партии и вИдим.

#define attempt_place_party(the_tile, the_elev)
Вышеуказанное выражение (attempt_place_party_member(the_obj, the_tile, the_elev)), но применённое для всех партийцев. Рекомендуется добавить сюда своего партийца. Например:
#define attempt_place_party(the_tile, the_elev) \
             attempt_place_party_member(Vic_Ptr, the_tile, the_elev) \
             attempt_place_party_member(Myron_Ptr, the_tile, the_elev) \
             attempt_place_party_member(Marcus_Ptr, the_tile, the_elev)
             ......
             attempt_place_party_member(TED_Ptr, the_tile, the_elev)
Примечание: этот define будет работать только в том случае, если вы добавили в party.h указатель на своего партийца. См.выше - TED_Ptr.

#define Childkiller_Vic
#define Childkiller_Myron
......и т.д.
Проверка, является ли указанный партиец детоубийцей, или нет. Если является, возвращает TRUE, если нет - FALSE.
Рекомендуется добавить сюда своего партийца. Например:
#define Childkiller_Vic                 ((global_var(GVAR_PARTY_CHILDKILLER) BWAND bit_2) and (Vic_Ptr != 0))
#define Childkiller_Myron                 ((global_var(GVAR_PARTY_CHILDKILLER) BWAND bit_4) and (Myron_Ptr != 0))
......
#define Childkiller_TED                 ((global_var(GVAR_PARTY_CHILDKILLER) BWAND bit_30) and (TED_Ptr != 0))
Примечание: этот define будет работать только в том случае, если вы добавили в party.h указатель на своего партийца. См.выше - TED_Ptr.

#define Party_Childkiller
Вышеуказанная проверка, но для всех партийцев. Рекомендуется добавить сюда своего партийца. Например:
#define Party_Childkiller                 (Childkiller_Vic or Childkiller_Myron or....or Childkiller_TED)
Примечание: этот define будет работать только в том случае, если вы добавили в список детоубийц своего партийца. См.выше - Childkiller_TED.

Следующая часть, начиная variable PartyHealingItem; и кончая //Hiding party members, by Chris Holland, относится к процедуре "Подлечи себя", которую мы разбирали, и возвращаться к этому мы не будем.

#define get_p_hidden_flag_obj(x, the_ptr, the_bit, the_var)
Проверяет состояние бита the_bit гвары GVAR_PARTY_MEMBERS_HIDDEN, если х (указатель на объект равен указателю the_ptr), и присваивает значение бита (1 или 0) переменной the_var.

#define get_p_hidden_flag(x, hidden)
Призводит вышеуказанную проверку для объекта х, но со всеми партийцами. Рекомендуется добавить сюда своего партийца. Например
#define get_p_hidden_flag(x, hidden) \
                 get_p_hidden_flag_obj(x, Vic_Ptr, hidden_vic_bit, hidden) \
                 else get_p_hidden_flag_obj(x, Myron_Ptr, hidden_myron_bit, hidden)
                 .....
                 else get_p_hidden_flag_obj(x, TED_Ptr, hidden_TED_bit, hidden)
Примечание: этот define будет работать только в том случае, если вы добавили в party.h указатель на своего партийца (См.выше - TED_Ptr) и бит партийца для Гвары GVAR_PARTY_MEMBERS_HIDDEN (См. ниже).
#define hidden_vic_bit
#define hidden_myron_bit
#define hidden_marcus_bit
#define hidden_macrae_bit
#define hidden_sulik_bit
....... и т.д.

#define party_member_hidden(x, result)
Производит проверку get_p_hidden_flag(x, hidden) для объекта х, если он вИдим и в партии.

#define party_bit_hidden(x)
Возвращает состояние(1 или 0) бита х Гвары GVAR_PARTY_MEMBERS_HIDDEN.

#define all_party_hidden
Возвращает состояние (1 или 0) бита all_hidden_bit(см. выше #define all_hidden_bit bit_19) Гвары GVAR_PARTY_MEMBERS_HIDDEN.

#define set_party_bit_hidden(x, member)
Устанавливает бит х Гвары GVAR_PARTY_MEMBERS_HIDDEN в 1, и делает объект member невидимым.

#define party_member_hide(the_obj, the_bit)
Если объект the_obj в партии, и он вИдим, Устанавливает бит the_bit Гвары GVAR_PARTY_MEMBERS_HIDDEN в 1 и делает объект the_obj невидимым.

#define party_member_hide_all
Производит вышеуказанное действие со всеми членами команды. Рекомендуется добавить сюда своего партийца. Например:
#define party_member_hide_all \
                 set_gvar_bit_on(GVAR_PARTY_MEMBERS_HIDDEN, all_hidden_bit); \
                 party_member_hide(Vic_Ptr, hidden_vic_bit) \
                 party_member_hide(Myron_Ptr, hidden_myron_bit) \
                 ........
                 party_member_hide(TED_Ptr, hidden_TED_bit)
                 else get_p_hidden_flag_obj(x, TED_Ptr, hidden_TED_bit, hidden)
Примечание: этот define будет работать только в том случае, если вы добавили в party.h указатель на своего партийца. См.выше - TED_Ptr, и бит партийца для Гвары GVAR_PARTY_MEMBERS_HIDDEN.

#define all_party_unhidden
Проверка все ли члены партии вИдимы. Если да, то возвращает TRUE, если нет - FALSE.

#define set_party_bit_unhidden(x, member)
Устанавливает бит невидимости х в 0 и делает объект member видимым.

#define party_member_unhide(the_obj, the_bit)
Если объект the_obj в партии и он невидим, устанавливает бит невидимости х в 0 и делает объект the_obj видимым.
Короче говоря, макросы set_party_bit_hidden(x, member) и set_party_bit_unhidden(x, member), а так же макросы party_member_hide(the_obj, the_bit) и party_member_unhide(the_obj, the_bit) - как знаки + и -, противопоожны по воздействию на объект the_obj.

#define party_member_unhide_all
Макрос противоположный по действию макросу party_member_hide_all. Т.е. делает всех членов партии видимыми. Рекомендуется добавить сюда своего партийца, по аналогии с party_member_hide_all (см. выше).

#define party_healed_max
#define party_healed_good
#define party_healed_hurt
#define party_healed_bad
Проверяют уровень жизни криттера, в скрипте которого вызваны.Возвращаемые значения TRUE - если условие подтверждается, FALSE - если нет.

#define def_heal_msg
#define def_wait_msg
#define def_unarm_msg
#define def_close_msg
...... и т.д.
Замены стандартных реплик партийцев. Стандартные реплики прописаны в файле GENERIC.MSG, который находится в папке text/english/dialog.

#define DEF_PARTY_HEAL_NODE
#define DEF_PARTY_WAIT_NODE
#define DEF_UNARM_NODE
#define DEF_FOLLOW_CLOSE_NODE
...... и т.д.
Замены стандартных процедур партийцев. Например, Node1001 - процедура для лечения, Node1003 - процедура для разоружения и т.д.

#define party_member_options(heal_msg, follow_msg, gear_msg, wait_msg, nowait_msg, end_msg, stupid_msg)
Внимание! Это очень важный момент в party.h. Если вы хотите добавить всем партийцам по умолчанию ещё одну опцию диалога в партии, то вам сюда. Этот define вызывается из всех оригинальных скриптов партийцев. Точнее говоря, это define опций диалога в партии.
Итак, рассмотрим его повнимательней:
    if (party_is_waiting == false) then begin ....
Если партиец не ждёт, и дистанция не задана, то задаём среднюю дистанцию.
   if (heal_msg != 0) then begin ....
Если номер heal_msg указан в party_member_options(см.выше) не равен 0, тогда, если партиец ранен, предоставить опцию, ведущую к процедуре лечения. Это значит, что если вы не хотите, чтобы у вашего партийца была такая опция, вы просто указываете на месте heal_msg в party_member_options 0. Пример:
party_member_options(0, follow_msg, gear_msg, wait_msg, nowait_msg, end_msg, stupid_msg)
То же самое справедливо и для остальных процедур, указанных тут.

#define party_follow_options(close_msg, med_msg, far_msg, follow_ignore_msg)
Действует аналогично party_member_options, только для дистанции. То есть:
Если номер close_msg указан в party_follow_options и не равен 0, и текущая дистанция не равна FOLLOW_DISTANCE_CLOSE, то предоставляем опцию ответа, ведущую к процедуре, которая устанавливает короткую дистанцию.

#define party_gear_options(weapon_use_msg, unarm_msg, armor_msg, gear_ignore_msg)
Действует аналогично party_follow_options, только для оружия. Объяснять не буду, думаю двух примеров, данных выше, вам с лишкОм хватило, чтобы разобраться ;)

#define party_member_default_options)
#define party_member_def_follow_options
#define party_member_def_gear_options
party_member_options ,party_follow_options и party_gear_options соответственно со стандартным набором реплик.

#define party_no_follow_on
Придаёт Гваре GVAR_PARTY_NO_FOLLOW значение 1.
#define party_no_follow_off
Придаёт Гваре GVAR_PARTY_NO_FOLLOW значение 0.
#define party_no_follow
Проверяет значение Гвары GVAR_PARTY_NO_FOLLOW. Если отлично от 0 - возвращает TRUE, иначе - FALSE.

#define set_follow_close
#define set_follow_medium
#define set_follow_far
Выставляют значение Лвары LVAR_FOLLOW_DISTANCE в разные значения. С этим мы уже сталкивались.

#define party_member_follow_dude
Заставляет партийца, в скрипте которого прописан, бегать за чузом. Прописывается в critter_p_proc.

#ifndef set_default_party_follow
#define set_default_party_follow                 set_follow_medium
Выставляет дистанцию на среднюю величину.(в нашем случае 6).

#define store_party_team
Если партиец не состоит в команде чуза, запоминает номер команды в Лвару LVAR_TEAM.
Примечание: если будете пользоваться этим методом, не забудьте объявить Лвару в script.lst

#define party_add_self
Добавляет партийца в команду (только в том случае если он жив ;), выставляет дистанцию на среднюю величину, и запоминает номер команды, в которой он был, в Лвару LVAR_TEAM.
#define party_remove_self
Убирает партийца, в скрипте которого прописан, из партии.

#define set_self_abandon_party
Ещё один define для удаления из партии. Но он отличается от party_remove_self. Помимо того, что он удаляет партийца из партии чуза, он ещё и добавляет его в прежнюю команду - LVAR_TEAM (если таковая существует)

#define party_is_waiting
#define set_party_waiting
#define end_party_waiting
Макросы "ожидания".
party_is_waiting - проверяет ждёт ли партиец. Если ждёт - возвращает TRUE, иначе - FALSE.
set_party_waiting - придаёт Лваре "ожидания" - LVAR_WAITING значение игрового времени и удаляет партийца из партии.
end_party_waiting - противоположное действие. Придаёт LVAR_WAITING значение = 0 и добавляет партийца в партию.

#define PARTY_CLOSE_DIST                 (5)

#define CHECKMEMBERNEARDOOR(inparty, obj)
Этот макрос проверяет расстояние между объектом obj и объектом в скрипте которого прописывается. В основном используется в скритах дверей.
Проверяет, если inparty (см. ниже) то проверяет - если расстояние между объектом, в скрипте которого прописан макрос, и объектом obj <= PARTY_CLOSE_DIST, возвращает 1.
procedure checkPartyMembersNearDoor
Процедура производит проверку CHECKMEMBERNEARDOOR для всех членов партии. Рекомендуется прописать здесь своего партийца. Пример:
procedure checkPartyMembersNearDoor begin
     CHECKMEMBERNEARDOOR(Vic_In_Party, Vic_Ptr)
     CHECKMEMBERNEARDOOR(Myron_In_Party, Myron_Ptr)
     CHECKMEMBERNEARDOOR(Marcus_In_Party, Marcus_Ptr)
     ......
     CHECKMEMBERNEARDOOR(TED_In_Party, TED_Ptr)
   return 0;
end
Примечание: процедура будет работать только если вы добавили в party.h указатель на своего партийца, См.выше - TED_Ptr, и проверку на принадлежность к партии, См. выше TED_In_Party.
Набор файлов, с помощью которого вы можете скомпилировать все скрипты использующие party.h, вы найдете тут.

Теперь, уважаемые читатели, вы можете клепать партийцев как на заводе, в чём желаю вам преуспеть. :) Со всеми вопросами и пожеланиями вы можете обращаться ко мне.

На этой весёлой ноте я заканчиваю своё повествование, удачи вам и успехов! Дерзайте, и всё получится!

Copyright by binyan 2006