Скрипты, Все вопросы и ответы по скриптам Опции

[azathoth]

Спасибо Aiwan, так красивше! Но суть в том, что видел вроде как-то запись методом перечисления…

В NWScript такого не предусмотрено - это тогда уже через свою "умную" функцию надо делать. Посмотри в базе, я как-то выкладывал инклюд с функциями для инвентаря, работающими со строками-списками.

---
На крайняк можно так:

Neverwinter Script Source

if (FindSubString(" Hlam_9 ITM_Kukla ITM_Necr_Cotel Hlam_11 Hlam_5 Hlam_4 Hlam_1 Hlam_10 Hlam_8 Hlam_7 Hlam_2 ", " " + GetTag(oItem) + " ") >= 0)
{
    ...
}

[Aiwan]

Ну, что ж нет других вариантов, так нет… Буду писать некрасиво

Чем проще написано тем больше шансов что не "вильнет" в сторону. (IMG:style_emoticons/kolobok_light/rolleyes.gif)

[gennady]

В NWScript такого не предусмотрено - это тогда уже через свою "умную" функцию надо делать. Посмотри в базе, я как-то выкладывал инклюд с функциями для инвентаря, работающими со строками-списками.

Ясно, инклюду смотрел, но там наворочено… «умным» долго разбирать (IMG:style_emoticons/kolobok_light/biggrin.gif) … Но вот помню, что видел что-то подходящее. Это как раз самое то!!! (IMG:style_emoticons/kolobok_light/yahoo.gif) Только почему на крайняк? Проверил, все пашет и не «виляет» (IMG:style_emoticons/kolobok_light/wink3.gif)

Спасибо, azathoth беру на вооружение. (IMG:style_emoticons/kolobok_light/thank_you.gif)

[Вик Станжер]

господа и таварищи, помогите...

никак не могу реализовать... короче чел подходит в зону видимости моба (тег1), и врубается диалог такой-то.
Во время диалога игрока атакуют. как только у него становиться меньше а хитоВ, экран гаснет и его телепортируют на локагия (тег2). Подскажите как и что, плиз...

[gennady]

господа и таварищи, помогите...

А где сами скрипты? И что там у тебя конкретно не получается?

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

[Aiwan]

А где сами скрипты? И что там у тебя конкретно не получается?

Из цикла:
- "Привет ребзя! Хочу сделать свою модельку в НВН, скажите как?"
*Народ пишет пять листов как нарисовать, количество полигонов, вокмехи, тулзы для импорта, ограничения...*
- "Ух ты! Клева!"

[Вик Станжер]

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

я не знаю:

- на что вешать скрипт, проверающии здровьие и при ранении телепортирующий.
- я не знаю, как осуществить переход к обхекту на другой карте.

[Lex]

- на что вешать скрипт, проверающии здровьие и при ранении телепортирующий.

так как игрок, проверять только на HeartBeat модуля или в скрипте default (ХБ игрока. Но если мультиплеерный модуль, лучше не использовать в данной ситуации). Ну или на HeartBeat самого НПС, который игрока долбает.

так как можно попасть в просак, если игрок будет убит 1 ударом или как-то еще (есть варианты), то перед таким боем лучше вешать на игрока Immortale флаг (ф-я SetImmortale). Потом проверив ХП (ф-я GetCurrentHitPoints) и определив, что их мало, перемещаем игрока (ф-я ActionJumpToObject), предварительно отчистив стек действий игрока (ф-я ClearAllActions) и задав точку перемещения (ф-я GetObjectByTag). Если пишется в скрипте default - то игрок - просто OBJECT_SELF, если в HeartBeat модуля, то игрока надо определять нужным образом. Зависит уже от ситуации.
да.. не забыть перед боем повесить локалку на игрока (SetLocalInt) о том, что он в сюжетном бою, а в скрипте по проверке ХП и переносе в точку проверять эту локалку (GetLocalInt) с тем, чтобы отсекать ситуации лишние. После перемещения локалку обнулить (SetLocalInt).

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

поиск попробовать можно. А вообще если такая беда, как можно четче формулируйте вопрос. И если пробуете писать сами скрипты, выкладывайте что получается и описание того, где проблема.

зы: просто к людям, которые пробуют сами и что-то не получается отношение другое немного, более... положительное чтоли. А то, что вы уже написали как раз показывает ваши попытки сделать самостоятельно. Ну это так, на заметку.

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

[gennady]

- я не знаю, как осуществить переход к обхекту на другой карте.

Тогда запиши себе этот скрипт, поможет во многих ситуациях… Имя скрипта должно быть p_universal т.к. я использовал его в скрипте проверки урона и перемещения.

Neverwinter Script Source

//:://////////////////////////////////////////////
//::  ***  УНИВЕРСАЛЬНЫЙ СКРИПТ ПЕРЕМЕЩЕНИЙ  ***
//:: File name: p_universal
//:://////////////////////////////////////////////
// ***** ПЕРЕМЕЩЕНИЕ ГЕРОЯ *****
void JumpFirstPC(object oWP)
{
object oPC = GetFirstPC();
object oSP = GetHenchman(oPC);
object oAnimal = GetAssociate(ASSOCIATE_TYPE_ANIMALCOMPANION,oPC);
object oFamiliar = GetAssociate(ASSOCIATE_TYPE_FAMILIAR,oPC);
object oDominated = GetAssociate(ASSOCIATE_TYPE_DOMINATED,oPC);
object oSummoned = GetAssociate(ASSOCIATE_TYPE_SUMMONED,oPC);
   AssignCommand(oPC, ClearAllActions());
   AssignCommand(oSP, ClearAllActions());
   AssignCommand(oAnimal, ClearAllActions());
   AssignCommand(oFamiliar, ClearAllActions());
   AssignCommand(oDominated, ClearAllActions());
   AssignCommand(oSummoned, ClearAllActions());
AssignCommand(oPC, JumpToObject(oWP));
AssignCommand(oSP, JumpToObject(oWP));
AssignCommand(oAnimal, JumpToObject(oWP));
AssignCommand(oFamiliar, JumpToObject(oWP));
AssignCommand(oDominated, JumpToObject(oWP));
AssignCommand(oSummoned, JumpToObject(oWP));
}
void main()
{
object oSelf = OBJECT_SELF;
object oPoint = GetWaypointByTag("WP_" + GetTag(oSelf));
object oPC = GetFirstPC();
location lSmoke = GetLocation(oSelf);
effect eSmoke = EffectVisualEffect(VFX_FNF_LOS_NORMAL_10);

if ((GetArea(oPC) == GetArea(oSelf)&& GetDistanceBetween(oPC, oSelf) < 3.0) ||
     GetIsPC(GetEnteringObject()))
  {
   ApplyEffectAtLocation(DURATION_TYPE_INSTANT,eSmoke,lSmoke);
   DelayCommand(0.6, JumpFirstPC(oPoint));
  }
else
AssignCommand(GetEnteringObject(), ClearAllActions());
}
// Точка перемещения содержит WP_+Тег объекта

- на что вешать скрипт, проверающии здровьие и при ранении телепортирующий.

И где скрипт? (IMG:style_emoticons/kolobok_light/biggrin.gif) Если нет, то попробуй повесить на перса, с которым будет драться герой, вот этот скрипт…

Neverwinter Script Source

//:://////////////////////////////////////////////////
//:: Прекращение атаки
//:: Слот: OnCombatRoundEnd
//:://////////////////////////////////////////////////
void main()
{
   object oPC = GetFirstPC();
   object oSelf = OBJECT_SELF;
   object oNPC = GetFirstObjectInShape(SHAPE_SPHERE, 30.0, GetLocation(oPC), TRUE);
   int iMXP = GetMaxHitPoints(oPC)-10; // Настрой нужную величину…
   int iCXP = GetCurrentHitPoints(oPC);

  if (iMXP > iCXP) //Урон не менее 10 пунктов от мах
  {
   while (GetIsObjectValid(oNPC))  // Все существа в радиусе 30 метров
   {
    if(GetIsInCombat(oNPC))
    {
     AssignCommand(oNPC, SurrenderToEnemies()); // Прекратим атаку
     AssignCommand(oNPC, ClearAllActions(TRUE));
    }
    oNPC = GetNextObjectInShape(SHAPE_SPHERE, 30.0, GetLocation(oPC), TRUE);
   }
   AssignCommand(oPC, SpeakString("Я сдаюсь... Прекратим бой!"));
   DelayCommand(1.5, ExecuteScript("p_universal", oSelf)); // Перемещение к точке WP_+Тег объекта
  }
}

P.S. Лекс правильно подметил о возможной смерти героя т.ч. учти это, в моем скрипте это не пробито… Но тут уже совсем другая история и другие варианты. Дерзай!

Сообщение отредактировал gennady - Apr 17 2007, 14:17

[Вик Станжер]

спасибо... все вроде пошло....
А то с начало перепутал названия скриптов и возникала такая ситуация:

Выбегает хакер на площадку, там менты его должны повезать. А они к нему подходят и говорят: память отформатированна. Нуждаемся в переустановке операционной системы. (IMG:style_emoticons/kolobok_light/biggrin.gif)



да и еще...

на он перспейшен моба подвешен скрипт

void main()
{
AssignCommand(GetObjectByTag("ag"), ActionStartConversation(GetFirstPC(), "sosed", FALSE, TRUE));
}

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

[Dik Morris]

Вик, описание эвента из NWN Lexicon'a:

The script attached to this event will fire whenever another creature perceives another creature or PC. Common uses of this script include having the creature yell a battle cry, greet the PC, or run away.

Далее, если диалог должен начинать тот NPC, в эвенте которого стоит данный скрипт, то строка:

Neverwinter Script Source

AssignCommand(GetObjectByTag("ag")

- совсем не обязательна, кстати, не используй в данном случае, фун-цию: GetFirstPC(), лучше ограничиться, скажем: GetLastPerceived и проверять - игрок ли, последний увиденный и собственно видит ли его NPC.
Скрипт будет таким:

Neverwinter Script Source

void main()
{
object oPC = GetLastPerceived();

if (GetIsPC(oPC))
{
if (GetLastPerceptionSeen())
  {
  ClearAllActions();
  ActionMoveToObject(oPC);
  ActionStartConversation(oPC, "sosed");
  }

}
}

PS: для надежности, что-бы NPC никто не сбил по пути, можно выключить его стэк-комманд (естественно на время, до выполнения задачи).
Функция: SetCommandable.

Сообщение отредактировал Dik Morris - Apr 17 2007, 18:15

[Aiwan]

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

А я что, не плачу? ВОт уезжал было +800 рублей, не было меня месяц (минус) -650. (IMG:style_emoticons/kolobok_light/vava.gif) Кто мой траф выкачал? Суппорт разводит руками...

- я не знаю, как осуществить переход к обхекту на другой карте.

Это есть в мануале моем. Я это разбирал. Скачай прочти, много вопросов отпадет. Я потратил месяц времени оформил для новичков.

PS: для надежности, что-бы NPC никто не сбил по пути, можно выключить его стэк-комманд (естественно на время, до выполнения задачи).

И добавь локалку на то что бы НПС не бегал к РС каждый раз когда увидит. Кстати в базе скриптов есть мой скрипт который говорит НПС подойти к РС и начать диалог когда он его увидит. Вешается это дело на юзер деф через сигнал хертбита. Вот код:

Neverwinter Script Source

//:://////////////////////////////////////////////
//:: OnUserDefined  am_cud_talk_away
//:: Copyright © 2005 WRG!
//:://////////////////////////////////////////////
/*
    НПС ходит за игроком, хочет сказать ему
    что-то важное. Игрок может отойти на fDist
    метров и НПС перестанет его преследовать.
    Если присвоить на объект локальную "RUN"
    == TRUE то побежит к игроку. Если присвоить
    локалку "ALL_DISTANCE", то будет преследовать
    игрока на всей локации. Float fDist "DISTANCE"
    расстояние на котором НПС реагирует на игрока.
    По умолчанию равно 10 метрам.
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan
//:: Created On: 14.10.2005
//:://///////////////////////////////////////////
void main()
{
   object oSelf = OBJECT_SELF;
   object oPC = GetFirstPC(); // Только для сингла
   int nEvent = GetUserDefinedEventNumber();
   if (GetArea(OBJECT_SELF)!=GetArea(oPC)) return;
   if (GetIsDead(OBJECT_SELF)==TRUE) return; // Если он помер, то пусть молчит
   if (GetLocalInt(OBJECT_SELF, "START_CONVERSATION") == FALSE) return;
   if (GetIsEnemy(oPC, OBJECT_SELF) == TRUE) return;
//========================== HEARTBEAT EVENT  =================================
  if (nEvent == EVENT_HEARTBEAT)  // Стандартный сигнал User Defined Event 1001
  {
    // Если поставим эту локалку, то НПС будет преследовать игрока везде в локации
     if (!GetLocalInt(oSelf, "ALL_DISTANCE"))
     {
      float fDist = GetLocalFloat(oSelf, "DISTANCE"); // Расстояние реакции
      if(fDist == 0.0) {fDist=10.0;} // Если нет значения, то оно ровно 10 метрам
     // Если игрок дальше fDist метров, то ничего не будет. Будет стоять и ждать
      if (GetDistanceBetween(oPC, oSelf)> fDist)
       {
          AssignCommand(oSelf, ClearAllActions());
         // Debug("Игрок отошел дальше "+FloatToString(fDist)+" метров.");
          return;
       }
      }
      // Если бой, идет разговор то возврат
      if (GetIsInCombat(oPC) || GetIsInCombat(oSelf) || IsInConversation(oPC))
      {
         return;
      }
    // Если нет переменной для повтора
    if (GetLocalInt(oSelf, "REPEAT") == FALSE)
     {
        int iRun = FALSE;
        // iRun = TRUE - бежит к игроку
        if (GetLocalInt(oSelf, "RUN")) iRun = TRUE;
        // Присвоим переменную повтора
        SetLocalInt(oSelf, "REPEAT", TRUE);
        AssignCommand(oSelf, ClearAllActions());
        ActionDoCommand(SetFacingPoint(GetPosition(oPC)));
        AssignCommand(oSelf, ActionMoveToObject(oPC, iRun, 2.0));
        AssignCommand(oSelf, ActionStartConversation(oPC));
        // Обнулим ее через 20 секунд, можно увеличить или уменьшить
        DelayCommand(20.0, SetLocalInt(oSelf, "REPEAT", FALSE));
        // Случайные фразы
        string s1 = GetLocalString(oSelf, "String1");
        string s2 = GetLocalString(oSelf, "String2");
        string s3 = GetLocalString(oSelf, "String3");
        string s4 = GetLocalString(oSelf, "String4");
        string s5 = GetLocalString(oSelf, "String5");
        switch(Random(5))
          {
            case 0: if(s1!=""){SpeakString(s1+GetName(oPC)+"!"); break;}
            case 1: if(s2!=""){SpeakString(s2); break;}
            case 2: if(s3!=""){SpeakString(s3); break;}
            case 3: if(s4!=""){SpeakString(s4); break;}
            case 4: if(s5!=""){SpeakString(s5); break;}
          }
      }
  }
//------------------------------------------------------------------------------
}

Этот скрипт вешай на любую пустую строку НПС желательно самую верхнюю. В начале диалога он отключит все слокалки на НПС и он не станет бегать за РС все время (IMG:style_emoticons/kolobok_light/smile.gif)

Neverwinter Script Source

//:://////////////////////////////////////////////
//:: Отключает "START_CONVERSATION" на НПС
//:: Copyright © 2005 WRG!
//:://////////////////////////////////////////////
/*
    НПС ходит за игроком, хочет сказать ему
    что-то важное. Игрок может отойти на 10
    метров и НПС перестанет его преследовать.
    Если присвоить на объект локальную "RUN"
    == TRUE то побежит к игроку. Если присвоить
    локалку "ALL_DISTANCE", то будет преследовать
    игрока на всей локации.
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan
//:: Created On: 18.09.2005
//:://////////////////////////////////////////////

int StartingConditional()
{
   if (GetLocalInt(OBJECT_SELF, "START_CONVERSATION"))
   {
      SetLocalInt(OBJECT_SELF, "START_CONVERSATION", FALSE); // Отключаем
      SetLocalInt(OBJECT_SELF, "RUN", FALSE); // Ходит пешком
      if(GetCommandable(GetPCSpeaker())==FALSE)
      {
          SetCommandable(TRUE, GetPCSpeaker()); // Если РС закрыт стек команд
      }
    }
  return FALSE;
}

Надеюсь ты знаешь как запустить это:

Neverwinter Script Source

if (nEvent == EVENT_HEARTBEAT)  // Стандартный сигнал User Defined Event 1001

[Вик Станжер]

Neverwinter Script Source
//:://////////////////////////////////////////////////
//:: Прекращение атаки
//:: Слот: OnCombatRoundEnd
//:://////////////////////////////////////////////////
void main()
{
object oPC = GetFirstPC();
object oSelf = OBJECT_SELF;
object oNPC = GetFirstObjectInShape(SHAPE_SPHERE, 30.0, GetLocation(oPC), TRUE);
int iMXP = GetMaxHitPoints(oPC)-10; // Настрой нужную величину…
int iCXP = GetCurrentHitPoints(oPC);

if (iMXP > iCXP) //Урон не менее 10 пунктов от мах
{
while (GetIsObjectValid(oNPC)) // Все существа в радиусе 30 метров
{
if(GetIsInCombat(oNPC))
{
AssignCommand(oNPC, SurrenderToEnemies()); // Прекратим атаку
AssignCommand(oNPC, ClearAllActions(TRUE));
}
oNPC = GetNextObjectInShape(SHAPE_SPHERE, 30.0, GetLocation(oPC), TRUE);
}
AssignCommand(oPC, SpeakString("Я сдаюсь... Прекратим бой!"));
DelayCommand(1.5, ExecuteScript("p_universal", oSelf)); // Перемещение к точке WP_+Тег объекта
}

}

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

базу изучаю....

[Aiwan]

Не все так просто. Скорее всего кое -кто будет лупить по РС. Ты скажи нормальным языком что ты хочешь реализовать. Подробно. У меня есть скрипты прекращающиен атаки при определенных хитах как у РС так и у НПС. Опиши задачу.

[gennady]

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

Aiwan, скрипт рабочий, не раз проверенный… Ну, все равно открывай свою кубышку глянем, что у тебя там припасено и поучимся (IMG:style_emoticons/kolobok_light/biggrin.gif)
P.S. Лексу отправил…

Вик Станжер, все просто, возьми тэг перса с которым будет драться герой т.е. на которого ты повесишь этот скрипт. Добавь перед тэгом «WP_» например: тэг перса PERS_3, тогда точка к которой джампанется герой будет: WP_PERS_3

Neverwinter Script Source

DelayCommand(1.5, ExecuteScript("p_universal", oSelf)); // Перемещение к точке WP_+Тег объекта

Да, еще учти, что перемещение будет если будет рукопашная схватка, в скрипте перемещения пробито расстояние между объектами не более 3 метров.
Если этого не нужно, то запиши проще, заменив эту строку на этот код:

Neverwinter Script Source

AssignCommand(oPC, ClearAllActions(TRUE));
object oPoint = GetWaypointByTag("ТЭГ ТОЧКИ ПЕРЕМЕЩЕНИЯ");
AssignCommand(oPC, JumpToObject(oPoint));

Это хорошо если точка в другой области, а если в этой же, то лучше, так как я записал. Иначе у тебя вся команда героя останется на месте…

[Aiwan]

Я потер библы и вставил функции прям в тело скрипта. А так сам скрипт небольшой. Ну конечно он учитывает много врагов, их помощников, твоих помщников и животных в общем всех участников разборки. Кто помнит МОнету Судьбы так происходит разборка с Метханом и с Халифом на плане Воздуха.

Neverwinter Script Source

//:://////////////////////////////////////////////
//:: OnUserDefaine  am_cud_methan
//:: Copyright © 2005 WRG!
//:://////////////////////////////////////////////
/*
    Стандартный UserDefaine скрипт
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan
//:: Created On: 09.07.2005
//:://///////////////////////////////////////////
//#include "am_inc_battle"
//#include "am_inc_common"
//#include "am_inc_cutscene"

int GetIsAssociate(object oMaster, object oAssociate)
{
    object oMaster = GetMaster(oAssociate);
    if(oMaster != OBJECT_INVALID)
      {
      return TRUE;
      }
        return FALSE;
}

void ClearAllPersonalReputation(object oMaster, object oSource=OBJECT_SELF, int iClearAllActions = FALSE)
{
    object oAnimal = GetAssociate(ASSOCIATE_TYPE_ANIMALCOMPANION, oMaster);
    object oDominated = GetAssociate(ASSOCIATE_TYPE_DOMINATED, oMaster);
    object oFamiliar = GetAssociate(ASSOCIATE_TYPE_FAMILIAR, oMaster);
    object oSummoned = GetAssociate(ASSOCIATE_TYPE_SUMMONED, oMaster);

    if(iClearAllActions = TRUE)
    AssignCommand(oMaster,ClearAllActions(TRUE));
    ClearPersonalReputation(oMaster, oSource);

    if(oAnimal != OBJECT_INVALID)
    {
      if(iClearAllActions = TRUE)
      AssignCommand(oAnimal,ClearAllActions(TRUE));
      ClearPersonalReputation(oAnimal, oSource);
    }
    if(oDominated != OBJECT_INVALID)
    {
      if(iClearAllActions = TRUE)
      AssignCommand(oDominated,ClearAllActions(TRUE));
      ClearPersonalReputation(oDominated, oSource);
    }
    if(oFamiliar != OBJECT_INVALID)
    {
      if(iClearAllActions = TRUE)
      AssignCommand(oFamiliar,ClearAllActions(TRUE));
      ClearPersonalReputation(oFamiliar, oSource);
    }
    if(oSummoned != OBJECT_INVALID)
    {
      if(iClearAllActions = TRUE)
      AssignCommand(oSummoned,ClearAllActions(TRUE));
      ClearPersonalReputation(oSummoned, oSource);
    }
    int i = 1;
    object oHenchman = GetHenchman(oMaster, i);
    while(oHenchman != OBJECT_INVALID)
    {
      if(iClearAllActions = TRUE)
      AssignCommand(oHenchman,ClearAllActions(TRUE));
      ClearPersonalReputation(oHenchman, oSource);
      i++;
      oHenchman = GetHenchman(oMaster, i);
    }
}

void FreezeCompanion(object oPlayers, int bVanish=FALSE)
{
    effect eAssociate = EffectCutsceneParalyze();
    effect eInv = EffectVisualEffect(VFX_DUR_CUTSCENE_INVISIBILITY);
    int i = 1;
    object oHench = GetHenchman(oPlayers, i);
    while(oHench != OBJECT_INVALID)
    {
        AssignCommand(oHench,
        ApplyEffectToObject(DURATION_TYPE_PERMANENT, eAssociate, oHench));
        if(bVanish==TRUE){
        AssignCommand(oHench,
            ApplyEffectToObject(DURATION_TYPE_PERMANENT, eInv, oHench));}
        i++;
        oHench = GetHenchman(oPlayers, i);
    }
    object oCompanion = GetAssociate(ASSOCIATE_TYPE_ANIMALCOMPANION, oPlayers);
    if (oCompanion != OBJECT_INVALID)
    {
      AssignCommand(oCompanion,
      ApplyEffectToObject(DURATION_TYPE_PERMANENT, eAssociate, oCompanion));
      if(bVanish==TRUE){
      AssignCommand(oCompanion,
            ApplyEffectToObject(DURATION_TYPE_PERMANENT, eInv, oCompanion));}
    }
    object oFamiliar = GetAssociate(ASSOCIATE_TYPE_FAMILIAR, oPlayers);
    if (oFamiliar != OBJECT_INVALID)
    {
      AssignCommand(oFamiliar,
      ApplyEffectToObject(DURATION_TYPE_PERMANENT, eAssociate, oFamiliar));
      if(bVanish==TRUE){
            AssignCommand(oFamiliar,
            ApplyEffectToObject(DURATION_TYPE_PERMANENT, eInv, oFamiliar));}
    }
    object oSummon = GetAssociate(ASSOCIATE_TYPE_SUMMONED, oPlayers);
    if (oSummon != OBJECT_INVALID)
    {
      AssignCommand(oSummon,
      ApplyEffectToObject(DURATION_TYPE_PERMANENT, eAssociate, oSummon));
      if(bVanish==TRUE){
            AssignCommand(oSummon,
            ApplyEffectToObject(DURATION_TYPE_PERMANENT, eInv, oSummon));}
    }
    object oDominated = GetAssociate(ASSOCIATE_TYPE_DOMINATED, oPlayers);
    if (oDominated != OBJECT_INVALID)
    {
      AssignCommand(oDominated,
      ApplyEffectToObject(DURATION_TYPE_PERMANENT, eAssociate, oDominated));
      if(bVanish==TRUE){
            AssignCommand(oDominated,
            ApplyEffectToObject(DURATION_TYPE_PERMANENT, eInv, oDominated));}
    }
}

void RemoveingBadEffectForCut(object oCreature)
{
        effect eBad = GetFirstEffect(oCreature);
        while(GetIsEffectValid(eBad))
        {
            if (GetEffectType(eBad) == EFFECT_TYPE_ABILITY_DECREASE ||
                GetEffectType(eBad) == EFFECT_TYPE_AC_DECREASE ||
                GetEffectType(eBad) == EFFECT_TYPE_ATTACK_DECREASE ||
                GetEffectType(eBad) == EFFECT_TYPE_DAMAGE_DECREASE ||
                GetEffectType(eBad) == EFFECT_TYPE_DAMAGE_IMMUNITY_DECREASE ||
                GetEffectType(eBad) == EFFECT_TYPE_SAVING_THROW_DECREASE ||
                GetEffectType(eBad) == EFFECT_TYPE_SPELL_RESISTANCE_DECREASE ||
                GetEffectType(eBad) == EFFECT_TYPE_SKILL_DECREASE ||
                GetEffectType(eBad) == EFFECT_TYPE_BLINDNESS ||
                GetEffectType(eBad) == EFFECT_TYPE_DEAF ||
                GetEffectType(eBad) == EFFECT_TYPE_PARALYZE ||
                GetEffectType(eBad) == EFFECT_TYPE_POISON ||
                GetEffectType(eBad) == EFFECT_TYPE_SLOW ||
                GetEffectType(eBad) == EFFECT_TYPE_BLINDNESS ||
                GetEffectType(eBad) == EFFECT_TYPE_NEGATIVELEVEL)
                {
                    RemoveEffect(oCreature, eBad);
                }
            eBad = GetNextEffect(oCreature);
        }
        //Fire cast spell at event for the specified target
        SignalEvent(oCreature, EventSpellCastAt(OBJECT_SELF, SPELL_RESTORATION, FALSE));
}

void CutsceneOn(object oPlayers)
{
  if(GetCutsceneMode(oPlayers) == FALSE)
  {
    RemoveingBadEffectForCut(oPlayers);
    SetLocalInt(oPlayers, "CUTSCENEMOD", TRUE);
    SetCutsceneMode(oPlayers, TRUE);
  }
}

void ChangeEnemyToNetral(object oPlayer, object oNetral)
{
    object oArea  = GetArea(oPlayer);
    object oEnemy = GetFirstObjectInArea(oArea);
    object oAnimal = GetAssociate(ASSOCIATE_TYPE_ANIMALCOMPANION, oPlayer);
    object oDominated = GetAssociate(ASSOCIATE_TYPE_DOMINATED, oPlayer);
    object oFamiliar = GetAssociate(ASSOCIATE_TYPE_FAMILIAR, oPlayer);
    object oSummoned = GetAssociate(ASSOCIATE_TYPE_SUMMONED, oPlayer);
    effect eEffect = EffectVisualEffect(VFX_IMP_UNSUMMON);
    while (GetIsObjectValid(oEnemy))
    {
      if (GetIsEnemy(oPlayer,oEnemy))
      {

/*
//------------------------------------------------------------------------------
// Если пойдет что-то не так. Будут жалобы игроков, то помощников НПС буду удалять...
//------------------------------------------------------------------------------
                  int iNum = 1;
                  while(iNum < 6)
                  {
                  object oAssociate = GetAssociate(iNum, oEnemy);
                  if(GetIsObjectValid(oAssociate))
                  {
                    ApplyEffectToObject(DURATION_TYPE_INSTANT, eEffect, oAssociate);
                    DestroyObject(oAssociate, 0.5);
                  }
                  iNum++;
                  }
*/
//----------------------- Обработка помощников игрока -------------------------//
                if(oAnimal != OBJECT_INVALID) {
                AssignCommand(oAnimal,ClearAllActions(TRUE));
                ClearPersonalReputation(oAnimal,oEnemy);}
                if(oDominated != OBJECT_INVALID){
                AssignCommand(oDominated,ClearAllActions(TRUE));
                ClearPersonalReputation(oDominated,oEnemy);}
                if(oFamiliar != OBJECT_INVALID){
                AssignCommand(oFamiliar,ClearAllActions(TRUE));
                ClearPersonalReputation(oFamiliar,oEnemy);}
                if(oSummoned != OBJECT_INVALID){
                AssignCommand(oSummoned,ClearAllActions(TRUE));
                ClearPersonalReputation(oSummoned,oEnemy);}
                int i = 1;
                object oHench = GetHenchman(oPlayer, i);
                  while(oHench != OBJECT_INVALID)
                    {
                    AssignCommand(oHench,ClearAllActions(TRUE));
                    ClearPersonalReputation(oHench,oEnemy);
                    i++;
                    oHench = GetHenchman(oPlayer, i);
                    }
                AssignCommand(oEnemy,ClearAllActions(TRUE));
                ClearPersonalReputation(oPlayer,oEnemy);
                ChangeFaction(oEnemy,oNetral);
      }
      oEnemy = GetNextObjectInArea(oArea);
    }
}

void main()
{
  int nEvent = GetUserDefinedEventNumber();
  object oPC = GetFirstPC();
  object oSelf = OBJECT_SELF;
  object oAlishan = GetObjectByTag("AM_HEN_ALISHAN");
  object oNeytral = GetObjectByTag("GLOBAL_TRUE_NEUTRAL");

  if (GetIsDead(OBJECT_SELF)==TRUE) return; // Если он помер, то пусть молчит
  if (GetArea(OBJECT_SELF)!=GetArea(GetFirstPC())) return;
  if (GetImmortal(OBJECT_SELF) == FALSE) return;

  if(!GetLocalInt(oSelf, "METHAN_BATTLE_PC")) return;
//=========================== HEARTBEAT EVENT ==================================
  if (nEvent == EVENT_HEARTBEAT) // Сигнал поступает User Defined Event 1001
  {
    int iCurHP = GetCurrentHitPoints(oSelf); // Количество поинтов максимум о Нпс
    if(!GetLocalInt(oSelf, "HIT_POINTS"))
    {
      if (iCurHP <= 15)
      {
        CutsceneOn(oPC);
        FreezeCompanion(oPC);
        SetLocalInt(oSelf, "HIT_POINTS", TRUE);
        SetLocalInt(oSelf, "REPEAT", TRUE);

        AssignCommand(oPC, ClearAllActions(TRUE));
        AssignCommand(oSelf, ClearAllActions(TRUE));
        AssignCommand(oAlishan, ClearAllActions(TRUE));
        ChangeEnemyToNetral(oPC, oNeytral);
        ClearAllPersonalReputation(oPC, oSelf, TRUE);
        if(GetIsAssociate(oPC, oAlishan))
        ClearAllPersonalReputation(oAlishan, oSelf, TRUE);
        AssignCommand(oSelf, ActionDoCommand(SetFacingPoint(GetPosition(oPC))));
        DelayCommand(1.0, AssignCommand(oSelf, PlayVoiceChat(VOICE_CHAT_DEATH)));
        DelayCommand(1.01, AssignCommand(oSelf, SpeakString("Пощади, "+GetName(oPC)+"!!!")));
        DelayCommand(1.4, AssignCommand(oSelf, PlayAnimation(ANIMATION_LOOPING_MEDITATE, 1.0, 4.0)));
        DelayCommand(1.5, RemoveingBadEffectForCut(oPC));
        DelayCommand(2.0, RemoveingBadEffectForCut(oSelf));
        DelayCommand(3.0, AssignCommand(oPC, PlayAnimation(ANIMATION_LOOPING_TALK_FORCEFUL, 1.0, 4.0)));
        DelayCommand(3.5, AssignCommand(oPC, PlayVoiceChat(VOICE_CHAT_TALKTOME)));
        DelayCommand(3.51, AssignCommand(oPC, SpeakString("Вставай! Будь мужчиной!")));
      }
    }
    else
        {
          if (GetIsInCombat(oPC) || GetIsInCombat(oSelf) || IsInConversation(oPC))
          {
            if(GetIsAssociate(oPC, oAlishan) && GetIsInCombat(oAlishan))
            {
                AssignCommand(oAlishan, ClearAllActions(TRUE));
                ClearAllPersonalReputation(oAlishan, oSelf, TRUE);
                ChangeEnemyToNetral(oAlishan, oNeytral);
            }
            ChangeEnemyToNetral(oPC, oNeytral);
            // РС или НПС занят, что то мешает им поговорить.
            return;
          }
          else if (GetLocalInt(oSelf, "REPEAT")==TRUE)
            {
              object oItem1 = GetItemPossessedBy(oSelf, "AM_ITM_SHIELS012");
              AssignCommand(oSelf, ClearAllActions());
              AssignCommand(oSelf, ActionForceMoveToObject(oPC, FALSE, 1.0, 15.0));
              AssignCommand(oSelf, ActionStartConversation(oPC));
              AssignCommand(oSelf, ActionDoCommand(SetLocalInt(oSelf, "METHAN_BATTLE_PC", FALSE)));
              AssignCommand(oSelf, ActionDoCommand(SetLocalInt(oSelf,"REPEAT", FALSE)));
              AssignCommand(oSelf, ActionDoCommand(SetLocalInt(oSelf,"HIT_POINTS", FALSE)));
              // Если Метхан не смог подойти и поговорить, напомним об этом
          }
      }
  }
//------------------------------------------------------------------------------
}

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

Neverwinter Script Source

//------------------------------------------------------------------------------
//  Добавляем на хертбит Нпс.
//------------------------------------------------------------------------------
    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)));
      }

    }

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

[Epsilon]

Помогите пожалуйста начинающему скриптеру!
Как сделать два скрипта:
1. чтобы из инвентаря игрока при разговоре исчезали все вещи, и ОДЕВАЛИСЬ новые
2. как сделать чтобы после смерти игрок попадал в определённую область без вещей, а его труп оставался на месте с вещами


ПС. Есть ли какие нибудь учебники по скриптингу для Тулсета?

[KoYuKi]

Не подскажите ли:
Есть у меня куча квестов (например). Есть андроп предмет в инвентаре перса, который разумеется дается ему при входе. На этом предмете переменные (q1, q2, q3 и т.д.) со значением "0". При выполнении квеста, "0" в этих переменных меняется на "1". Как правильно пользоваться SetLocalInt и GetLocalInt в данном случае?

[Waromon]

Хм, запустил бы скрипт визард - да поглядел как там это реализовано. (IMG:style_emoticons/kolobok_light/wink3.gif)

Непосредственно по вопросу: значение "0" устанавливать необязательно, по умолчанию, оно ведь равно -1.

А вообще, читай мануал.... разбирайся... там это разжевано... полистай форум, погляди... 100% помню, где-то в недрах была такая тема... 2GoDoom расписывал как делать простейший квест... в общем ищи. (IMG:style_emoticons/kolobok_light/wink3.gif)

Ох, не заметил предыдущего вопроса. 2 Epsilon:

1) Есть такая тема: Скрипты для новичков. Там реализовано удаление вещей... одевание сделай сам... все просто.

2) Опять же было не раз, и не два, и даже не три. Навскидку: помню подобное в модуле по Диабле, качай демку, смотри. Зачем код приводить... форум то не резиновый. (IMG:style_emoticons/kolobok_light/wink3.gif)

Сообщение отредактировал Waromon - May 1 2007, 21:06

[Epsilon]

Посмотрел тот форум, я знаю все тамошние скрипты кроме того с вещичками, но мне всё равно необходим чистый скрипт о котором я уже писал, для модуля мне ещё необходимы 2 группы скриптов: тот который оставляет труп игрока вместе с вещами на месте гибели и создает нового с иными вещами, и скрипт который я сейчас сам составляю: чтобы можно было в разговоре войсками двигать, ну в смысле воевать. Помогите мне с первым нужным скриптом, или хотябы тип проверок и действий скажите


Хотя можно и скачать, только скажите где

[Slam]

Представляю на суд общественности свой небольшой скрипт, точнее два.
Что они делают:
Если кто играл в Готику 1,2, тот сразу поймёт
НПС дерётся с ПС, но не убивает его, а оставляет в бессознательном состояние на некоторое время
и забирает его текущее оружие и вещи. Естественно, если выигрывает ПС, то всё происходит также,
только наоборот :)
Ну это скрипты должены делать в идеале... У меня же всё гораздо хуже...
Некоторые вопросы уже есть в комментариях...
плюс ко всему, у меня, когда выигрывает НПС, он начинает говорить и делать часть вещей по два раза (это видимо из-за того, что всё висит на комбатраунде... не знаю как поправить)
Буду очень благодарен, если вы поможите решить эти вопросы. Ну и если можно, то оптимизировать его маленько :)
ЗЫ: Это мой третий в жизни скрипт, так что не судите строго; я его делал около 6 часов... :)

Сообщение отредактировал Slam - May 15 2007, 14:25

[volchonok]

дорогие форумцы! Помогите пожалуйста. Я только-только начал разбираться со скриптами.
Не подскажете текст скрипта,который сделает так,что PC появиться в начальной области в положении "лежа" или ,хотя бы ,"сидя на полу"

[Zirrex]

volchonok, все просто. На Эвент локации (OnEnter) ставишь следующий скрипт:

Neverwinter Script Source

void main()
{
    object oPC = GetEnteringObject();
    // Если хочешь лежа, то замени на ANIMATION_LOOPING_DEAD_BACK
    AssignCommand(oPC, ActionPlayAnimation(ANIMATION_LOOPING_SIT_CROSS, 1.0, 99999.0));
}

Если хочешь, что персонаж уже сидел, когда у тебя загрузится локация, то этот же скрипт поставь на эвент модуля (OnClientEnter).

Сообщение отредактировал Zirrex - May 9 2007, 23:10

[gennady]

Slam, вспоминая свой третий скрипт… вобщем посидишь еще пару часов и сам все конечно раскопаешь (IMG:style_emoticons/kolobok_light/biggrin.gif) ! Просто хочу указать на некоторые ляпы, которые бросаются в глаза.
В первом скрипте подключение инклюды совершенно не нужно…
Во втором скрипте в проверкеЖ

Neverwinter Script Source

if (iCurPCHP < 2) // Если НПС выиграл

ты дважды чистишь акции у НПС, отсекая и паузу, и анимацию и подход к герою…
Как вернуть начальную фракцию НПС, да ты тут все сам уже ответил, когда менял ему эту самую фракцию. Теперь просто возьми другого перса с аналогичной фракцией, и верни своего НПСа в эту фракцию.
Чтобы НПС вернуть в начальную точку, нужно определить эту самую точку, у тебя это нужно вставить в 1 скрипт:

Neverwinter Script Source

SetLocalLocation(oNPC, "Return_LOC", GetLocation(oNPC));

Тогда во втором эта локация будет определятся так:

Neverwinter Script Source

location Loc = GetLocalLocation(oNPC, "Return_LOC");

Вообще идея интересная, но мне кажется, что ее лучше реализовывать через проверку урона, который нанес герой НПСу в определенную отсечку времени…
Slam,

Gennady, я умею ставить этот эффект, вписывать его в скрипты. Так что повторяю тот вопрос который я задал позже: можно ли менять их текстуры? Есть четыре основных флаго и ещё два подобных, а мне нужны 8 флагов с текстурами плейсеблов стягов или флагов.

Лекс же уже ответил… есть только ЧЕТЫРЕ флага!!! Это все, что есть в эффектах, и не стоит эффекты путать с плейсами. Плейсы носить на руках НПСы еще не научились (IMG:style_emoticons/kolobok_light/biggrin.gif) .

[Slam]

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

этот способ я естественно знаю :) а есть ли другой? т.к. будет не очень удобно если другого перса с аналогичной фракцией в локе не будет

Чтобы НПС вернуть в начальную точку, нужно определить эту самую точку, у тебя это нужно вставить в 1 скрипт:

Neverwinter Script Source

SetLocalLocation(oNPC, "Return_LOC", GetLocation(oNPC));

Тогда во втором эта локация будет определятся так:

Neverwinter Script Source

location Loc = GetLocalLocation(oNPC, "Return_LOC");

и как я сам не догадался...

Вообще идея интересная, но мне кажется, что ее лучше реализовывать через проверку урона, который нанес герой НПСу в определенную отсечку времени…

а вот это я не понял