Скрипты для новичков, Самые простые скрипты с описанием Опции

[Aiwan]

Здесь будут вывешаны самые простые скрипты на которых можно построить новичку свой модуль. Любой пост кроме скрипта с описанием будет считаться спамом и автор получит предупреждение. Всем Мастерам скриптов советую максимально разжевывать куда, как и зачем вставлять код. При этом максимально просто писать код. Этим мы поможем новичкам не только справиться с проблемой, но и понемногу научим понимать код. Сложные скрипты писать в другую тему.


============================
LEX: Беру тему под контроль. Если тут в скриптах или комментариях ошибки, пишу в то же посте, где допущена неточность. Авторам постов обратить внимание на эти ремарки и вносить коррективы по необходимости.
============================


Начем. Самое главное, это начало модуля. Тут все написано, как раздеть игрока, одеть, дать ему денег и отправить дальше. Ставится он на слот модуля OnClientEnter.

NSS

//:://////////////////////////////////////////////
//:: OnEnter  am_mod_enter
//:: Copyright © 2005 WRG!
//:://////////////////////////////////////////////
/*
      Скрипт на вход в модуль при старте.
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan
//:: Created On: 22.08.2005
//:://///////////////////////////////////////////
void main()
{
    object oMod = GetModule(); // Наш модуль
    object oPC = GetEnteringObject(); // Того кто вошел

    // Если это не игрок (а ДМ к примеру) или уже было раз, то сделаем возврат
    // скрипта, т.е. дальше он не пойдет.
    if (!GetIsPC(oPC) || GetLocalInt(oMod, "START_GAME"))
      {return;}
      {
      SetLocalInt(oMod, "START_GAME", TRUE); // Что бы сработал только один раз

//--------- Откроем туман над локацией если вам надо. К примеру в городе -------
      ExploreAreaForPlayer(GetObjectByTag("ТАГ_НУЖНОЙ_ЛОКАЦИИ"), oPC);

//--------------- Проводим деноминацию денежных накоплений ---------------------
      AssignCommand(oPC, TakeGoldFromCreature(GetGold(oPC),oPC,TRUE)); // Заберем все денежки

//------------------ Убиваем весь инвентарь ------------------------------------
        object oItem = GetFirstItemInInventory(oPC); // Первый итем в инвентаре
        while(GetIsObjectValid(oItem)) // Пока такой объект существует
        {
            DestroyObject(oItem); // Удаляем его
            oItem = GetNextItemInInventory(oPC); // Берем другой объект...
        }

//------------------ Убиваем всю амуницию -------------------------------------
        int i=0;
        while(i<14) // ПОКА i меньше 14. 14 - это количество всех слот у объекта
        {
        DestroyObject(GetItemInSlot(i, oPC)); //
        i++; // Это значит i увеличится на еденичку от своего значения
            // Было ноль к примеру, станет 1 и т.д.
        }
//------------------------ Создаем предметы ------------------------------------
        // Если вам нужны отдельно каждому классу по несколько предметов, то
        // скопируйте кусок кода еще и измените CLASS_TYPE_ Наведите курсор,
        // нажми F2 и выберите нужное значение константы

//      int Class = GetClassByPosition(1, oPC);
//      switch (Class) // В зависимости от класса
//        {
//          case CLASS_TYPE_BARBARIAN:
//          {
//            CreateItemOnObject("ResRef_Объекта", oPC,1);
//          }
//          case CLASS_TYPE_FIGHTER:
//          {
//            CreateItemOnObject("ResRef_Объекта", oPC,1);
//          }
//        }
        GiveGoldToCreature(oPC, 5000); // Даем золотишко
        CreateItemOnObject("ResRef_Объекта1", oPC, 1);
        CreateItemOnObject("ResRef_Объекта2", oPC, 1);
        CreateItemOnObject("ResRef_Объекта3", oPC, 30);
        // 1 - это количество в стеке, если вам надо 30 стрел, то ставьте там 30

//----------------------  Опознаем предметы  -----------------------------------
        object oItemCr = GetFirstItemInInventory(oPC);
        while(GetIsObjectValid(oItemCr))
            {
            SetIdentified(oItemCr,TRUE);
            oItemCr = GetNextItemInInventory(oPC);
            }

//-------------------- Уровень игрока для игры в модуле ------------------------
      // К примеру нам нужен игрок 5 уровня. Смотрим таблицу уровней и видим,
      // что Level 5 = 10000 xp.
        {
          SetXP(oPC, 10000);
        }

//----------------------  Оденем нашего игрока ---------------------------------
        AssignCommand(oPC, ActionEquipMostEffectiveArmor());

//---------------------------------- END ---------------------------------------
    }
}

[DraX]

Долго думал, какой скрипт написать и решил, что новичкам, в первую очередь, будет интересно узнать вот о чем. Многое замечали, что при разговоре с NPC (Non-Playing Character, т.е. любой персонаж, кроме игроков) при первой встрече он может вас приветствовать, а при второй - молчать. Так вот, делается сее творение тоже с помощью скриптов. Для начала создаете диалог с двумя ветками от корня (что NPC будет говорить вначале и что после). В первой ветке во вкладке Text Appears When (эта вкладка указывает на то, что фраза будет произнесена, только если скрипт, написанный в этой вкладке, выполняется) напишите следующий скрипт.

[-fenix-]

Решил расписать такой скрипт.

Многие наверное хотят сделать у себя в модуле вещь, на подобие "Камня призыва" в NWN.

Что нам нужно:
1) Итем, который будет выполнять роль телепортера, скажем, камень призыва, ему нужно добавить св-во "Вызвать заклинание: Только собственное питание [бесконечно использовано]" - так называется в русской версии. Его таг должен быть уникальным!
2) Объект, к которому будет осуществляться телепортация, скажем портал. Его таг то же должен быть уникальным!

Вот и все, теперь скрипты:

Ставется на событие OnActivateItem в модульных св-вах

[DraX]

Неожиданно пришла здравая идея!
Многим может быть полезным генерация хенча (henchman - NPC, который помогает тебе во всем). Вот как этого можно добиться.

1.Создаем любого NPC на карте.
2.Добавляем к нему диалог, типа такого: "Привет, Вася. Хощ, буду твоим помощьником?"-"Хочу"-"Хех, все"
3.Далее, в том месте, где NPC говорит, что он уже присоединился к вам, во вкладке Action Taken напишите следующий коротенький скриптик

[Aiwan]

Скрипт закрывает дверь на ночь и открывает ее днем. Ставится на OnEnter триггера. Триггер чертится максимально близко к двери. Игрок наступает на триггер и идет ппроверка с работой скрипта, значит триггер надо чертить немного больше чем ширина-длина двери, что бы манчи не добежали пока скрипт не сработал. В идеале не больше тайла на которм стоит дверь. Вот сам код:

[Dik Morris]

ЗЫ: Небольшое уточнение, в посте DraX’ са.

[-fenix-]

Вот скиптик для сидения на стуле, кушетке, диване, лавке...
Все, что нам нужно - это объект подходящий для сидения.

Скрипт ставется на слот OnUsed в св-вах объекта

[Aiwan]

Скрипт закрывает дверь автоматически через заданное время. Ставится в слот OnOpen двери.

[-fenix-]

Если хотите, чтобы НПС, как только увидеk игрока поприветствовал его, используйте этот скрипт.

Скрипт ставется на слот OnPerception в св-вах НПС

[Aiwan]

СКРИПТЫ БОЛЬШЕ НЕ ПОСТИТЬ. ТОЛЬКО МАСТЕРАМ РАЗРЕШАЮ ПИСАТЬ.

[Aiwan]

Скрипт вешается на OnEnter триггера. Переходим в следующий модуль.

[Aiwan]

[_kaa_]

[Aiwan]

_kaa_ , :yes: согласен. Может кому нужны несколько точек персонально. Заморочки писать не стал со стрингами и прочим, это новичкам сложно. :D
Этот скрипт в отличие от верхнего отправляет НПС на ПЕРСОНАЛЬНЫЙ вейпоинт.

[Lex]

[Aiwan]

Стандартный скрипт на слот OnSpawn НПС. Данный скрипт позволяет тонко настроить свойства НПС. Главное, один раз ВНИМАТЕЛЬНО прочитайте комментарии. Все локальные переменные ствятся в тулсете заранее.

[Aiwan]

Проверка Харизмы у игрока. Если она 16 или больше, то стартует диалог.

[Aiwan]

Универсальный скрипт, который ставится на люк (Деревянный) и когда РС его открывает и нажимает на него второй раз, то перемещается к объекту с Тагом равным LocalString "TRANSITION_TARGET" на этом люке. Если вам перемещаться не надо, то люк будет просто, открываться-закрываться.

[Aiwan]

Ставим скрипт на OnEnter енкаучера. Делаем его не активным и что бы срабатывал один раз. Дальше все вс скрипте. Указываем условие при котором он будет срабатывать и сколько раз. У меня например если игрок не член банды черных рейдеров. У вас может быть свое.

NSS

//:://////////////////////////////////////////////
//:: OnEnter  am_een_local_on
//:: Copyright © 2006 WRG!
//:://////////////////////////////////////////////
/*
  Включает енкаучер, если на РС нет ни одной
  локальной переменной равной стрингу LOCAL_PC_0X
  float "TIME" - время срабатывания енкаучера
  Локалка "NUMBER" - означает сколько раз сработает.
  Если ее нет, сразу уничтожится.
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan
//:: Created On: 04.05.2006
//:://////////////////////////////////////////////

void main()
{
  object oPC = GetEnteringObject();
  object oEnc = OBJECT_SELF;
  object oArea = GetArea(OBJECT_SELF);
  float f = GetLocalFloat(oEnc, "TIME");
  int i = GetLocalInt(oEnc, "NUMBER");
  string sLl = GetLocalString(oEnc, "LOCAL_PC_01"); // Локальные переменные
  string sL2 = GetLocalString(oEnc, "LOCAL_PC_02"); // при каторых енкаучер
  string sL3 = GetLocalString(oEnc, "LOCAL_PC_03"); // не сработает.
  string sL4 = GetLocalString(oEnc, "LOCAL_PC_04");
  string sL5 = GetLocalString(oEnc, "LOCAL_PC_05");
  int iFalse;

  if(!GetIsPC(oPC)) return;
  if(GetLocalInt(oEnc, "FIGHT!")) return; // Енкаучер сработал
  if(sLl=="" && sL2 =="" && sL3=="" && sL4=="" && sL5=="") return;

  if(GetLocalInt(oPC, sLl) || GetLocalInt(oPC, sL2) || GetLocalInt(oPC, sL3)
  || GetLocalInt(oPC, sL4) || GetLocalInt(oPC, sL5))
  {

    return;
  }
  if(i == 0) // Если 0, то отключаем
  {
      // Манчи плачут на взрыд...
      return;
    }
    else if(GetEncounterActive(oEnc) == FALSE)
      {
        if (f == 0.0) f = 600.0; // 10 минут, стандартный респавн
        SetEncounterActive(TRUE);
        DelayCommand(1.0, SetEncounterActive(FALSE, oEnc));
        SetLocalInt(oEnc, "FIGHT!", TRUE);
        // Тут самое интересное. Неактивный енкаучер DelayCommand не исполняет
        // поэтому я попросил это сделать локацию, в котором он стоит. Она вроде
        // как не против...
          SetLocalInt(oEnc, "NUMBER", i-1);
          AssignCommand(oArea, DelayCommand(f, SetLocalInt(oEnc, "FIGHT!", FALSE)));

      }
      else return;
}

[Aiwan]

НПС после нападения становится нейтральным и начинает диалог с РС. В свойствах НПС поставь Immortal галочку. Что бы не убить его с одного удара.

NSS

//------------------------------------------------------------------------------
//  Добавляем на хертбит Нпс.
//------------------------------------------------------------------------------
    object oSelf = OBJECT_SELF;
    object oPC = GetFirstPC(); // Это самое простое. Можно узнать по демагу или ближайший крич
    int iCurHP = GetCurrentHitPoints(oSelf); // Количество поинтов максимум о Нпс
    int iMaxHP = GetMaxHitPoints(oSelf); // Сколько в данный момент
    if(!GetLocalInt(oSelf, "STOP"))
    {
      if (iCurHP < iMaxHP/4) // Четверть нр от общего или меньше
      {
        // Если это враг то меняем ему фракцию на комманера. Если нет, то убери эту строку
        ChangeToStandardFaction(oSelf, STANDARD_FACTION_COMMONER);
        SetLocalInt(oSelf, "STOP", TRUE);
        AssignCommand(oPC, ClearAllActions(TRUE));
        AssignCommand(oSelf, ClearAllActions(TRUE));
        ClearPersonalReputation(oPC, oSelf);
        AssignCommand(oSelf, PlayAnimation(ANIMATION_LOOPING_TALK_PLEADING, 1.0, 5.0));
        DelayCommand(0.3, SetCommandable(FALSE, oPC));
        DelayCommand(1.5, AssignCommand(oSelf, SpeakString("Дядя, простите, я больше так не буду!")));
        /*
        Тут описываешь важнецкие клятвы в верности, слезные истории про трудное дество...
        */
        DelayCommand(5.0, AssignCommand(oSelf, ActionMoveToObject(oPC)));
        DelayCommand(5.4, AssignCommand(oSelf, ActionDoCommand(SetCommandable(TRUE, oPC))));
        DelayCommand(5.6, AssignCommand(oSelf, ActionStartConversation(oPC)));
      }

    }

//------------------------------------------------------------------------------

Появление строки в диалоге Нпс. Строка диалога равна имени ближайшего поинта с тагом WP_STRING. Строка дожна быть в диалоге всегда ОДНА и содержать токен <CUSTOM220>. А содержание = имя вейпоинта.

NSS

//:://////////////////////////////////////////////
//:: Выдает стринг, если НПС рядом с поинтом
//:: Copyright © 2006 WRG!
//:://////////////////////////////////////////////
/*
    Таг нашего поинта. WP_STRING
    <CUSTOM220> - [Имя поинта - строка НПС]
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan
//:: Created On: 17.01.2006
//:://////////////////////////////////////////////
int StartingConditional()
{
  object oWp = GetNearestObjectByTag("WP_STRING"); // Берем ближайший объект с тагом "WP_STRING"
  float fDist = 20.0f; // Расстояние реакции, дальше 20 метров строки не будет
  float fZone = GetDistanceBetween(OBJECT_SELF, oWp); // Дистанция срабатывания
//-------------------------------------------------------
  if(GetIsObjectValid(oWp)) // Если такой объект существует
  {
    if (fDist < fZone) // Если дистанция между Нпс и Поинтом больше установленной 20 м.
      return FALSE; // Строка не появится
      else // в противном случае (ЕЩЕ)
      {
          string sMessage = GetName(oWp); // Стринг sMessage равен имени поинту
          SetCustomToken(220, sMessage); // Установим токен 220 равный этому стрингу
          return TRUE; // Вернем строку функции StartingConditional(). Она покажет ее игроку
      }
    }
    else return FALSE; // Если такого объекта oWp нет, то нечего не появится
}

[Sugo77]

А этот скрипт на проверку игрока в другой локации,куда вставлять?Aiwan не указал(

Neverwinter Script

int StartingConditional()
{
    object oPC = GetPCSpeaker();
//-------------------------------------------------------
    if (GetTag(GetArea(OBJECT_SELF))=="ТАГ_ЛОКАЦИИ")
        {
        return TRUE;
        }
    return FALSE;
}

В этом скрипте (скрипт для сидения на стуле)при нажатии F7 выдает ошибку в 10,11 пунктах,он неправильный ,исправьте и проверьте его в игре пожалуйста,я тоже хочу его использовать в своем модуле,только этот вариант не работает: (IMG:style_emoticons/kolobok_light/sad.gif)

Neverwinter Script

void main()
{
object oPC = GetLastUsedBy(); // последний, кто использовал объект (кликнул по нему)
object oChair = OBJECT_SELF; // стул

if (GetIsPC(oPC)) // если использовавший является PC
{
// если на стуле ни кто не сидит
    if (!GetIsObjectValid(GetSittingCreature(oChair)))
    {
        AssignCommand(oPC, ActionSit(oChair)); // разрешаем PC сесть
    }
// если стул занят объектом (уже кто-то сидит)
    else if (GetIsObjectValid(GetSittingCreature(oChair)))
    {
        AssignCommand(oPC, ClearAllActions()); // чистим PC акции
    }
}

}

Ошибку выдает вот тут AssignCommand(oPC, ActionSit(oChair));



Сообщение отредактировал Sugo77 - May 14 2008, 22:06

[Aiwan]

А этот скрипт на проверку игрока в другой локации,куда вставлять?Aiwan не указал(

Функция StartingConditional() ставится ТОЛЬКО В ДИАЛОГАХ.

Ошибку выдает вот тут AssignCommand(oPC, ActionSit(oChair));

Версия НВН?

[Ogneslav]

Товарищи, я бы хотел сделать заклинание glyph of warding(символ охраны) эпическим, тоесть усилить его, в принцыпе это для меня было не сложно, вопрос возник в скриптах, так как я в скриптах не разбираюсь вообще(недавно только самоучитель скачал),
я хочу вас попросить написать мне пример этого скрипта обьяснить где что менять и куда писать потом адрес на скрипт!

[Aiwan]

Вопрос не по этой теме. Задай в теме вопросов по скриптам. На это сообщение отвечать не надо.

[Chiffa]

Да, хороший скрипт, который отправляет непися в точку и уничтожает. А когда неписей много (простая сценка: герой освобождает узников, и они бегут к двери тюрьмы, осыпая героя благодарностями. Писать для каждого непися отдельный скрипт с разными репликами? А если попробовать так:

Neverwinter Script

void main()
{
object oPC = GetFirstPC();
object oNPC = OBJECT_SELF;
object oDE =  GetObjectByTag("DESTR_" +GetTag(oNPC));
object oWP = GetObjectByTag("WP_SPEAK_" + GetTag(oNPC));
string oName = GetName(oWP);
AssignCommand(oNPC,ClearAllActions());
DelayCommand(0.0,ActionPauseConversation());
DelayCommand(1.0, SpeakString(oName));
DelayCommand(1.5,AssignCommand(oNPC, ActionForceMoveToObject(oDE, TRUE)));
DelayCommand(2.0,ActionDoCommand(DestroyObject(oNPC)));
}

Фмшка тут в невидимых объектах с тегами "DESTR_ + тег непися, которого к этому объекту посылаешь, и вейпе "WP_SPEAK_ + тег непися, в имени которого мы пишем все, что нам надо, и неписи бодро эти имена вейпов цитируют перед забегом. Универсальный скрипт, один для всех неписей. Кстати, если уничтожать не надо, а тртебуется просто послать непися в определенной место, с нужной репликой, скрит такой же, только без последней строчки. И невидимый объект я тогда ставлю не "DESTR_" , а "PLACE_", но это уже чтобы не путаться.
Или почти также, но чуть более иначе. К примеру, в моей сказке герой бывает часто (очень часто) озадачен, даже ошарашен. В диалоге появляется строка: "<StartAction>[Присесть. Почесать репу.]</Start>", жмешь не нее, и происходит следующее:

Neverwinter Script

void main()
{
object oPC = GetPCSpeaker();
object oTaget =  GetArea (oPC);
object oWP = GetNearestObjectByTag("WP_SPEAK_" + GetTag(oTaget));
string oName = GetName(oWP);
AssignCommand (oPC, SpeakString(oName));
DelayCommand(0.0,ActionPauseConversation());
DelayCommand(0.1,AssignCommand(oPC,ActionPlayAnimation(ANIMATION_L
OOPING_SIT_CROSS,1.0f,3.0f)));
DelayCommand(0.6,AssignCommand(oPC,ActionPlayAnimation(ANIMATION_F
IREFORGET_PAUSE_SCRATCH_HEAD)));
DelayCommand(1.0,ActionResumeConversation());
}

Герой, понятное дело, тега не имеет (или мы его не знаем?) . Вейп "WP_SPEAK_" привязан, как видим, к местности. То есть с помощью одного скрипта в кажой локации герой может брякнуть что-то эксклюзивное. Что именно - опять таки пишем в имени вейпа. Кстати, к тегу местности можно привязать и реплику непися, если тег самого непися уже использован в другой реплике.
И подобных универсальных скриптов у меня в сказке много. К примеру, непись ведет героя опять же к определенной точке, произнося реплику, открывая дверь "DOOR_ + тег непися (местности)". И т. д., и т. п. Даже скрипт с заменой имени персонажа (с вопроса о нем я впервые вышел на форум "Вопросы новичков") я сделал униврсальным (пришлось много кого переименовывать). И теперь он выглядит так:

Neverwinter Script

void main()
{
void main()
{
object oPC = GetFirstPC();
object oNPC = OBJECT_SELF;
object oSet = GetObjectByTag("SETNAME_" + GetTag(oNPC));
string Ona = GetName(oNPC);
string Oname = GetName(oSet);
DeleteLocalString(oNPC, Ona);
SetName(oNPC,Oname);
}

Потому хотел бы спросить у мастеров совета. Может, я делаю ошибку? Вдруг это стремление к универсальности имеет обратную сторону? Ну, к примеру, движок перегружает или еще какой вред?
Спасибо.