//:://////////////////////////////////////////////
//:: ActionTaken  am_at_npcwp_exit
//:: Copyright © 2005 WRG!
//:://////////////////////////////////////////////
/*
  NPC уходит на персональный вейпоинт, таг которого
  равен AM_WP_ESC_ плюс таг НПС и дестроится на ней.
  Ставим на диалог с НПС, устанавливаем в локации
  вейпоинт  AM_WP_ESC_[ТАГ_НПС]. Если надо что
  бы НПС побежал к точке, то присвоим на поинт
  локалку "RUN".

*/
//:://///////////////////////////////////////////
//:: Created By: Aiwan
//:: Created On: 20.09.2005
//:://///////////////////////////////////////////
void main()
{
    object oPC = GetPCSpeaker(); // Игрок
    object oNpc = OBJECT_SELF; // НПС с которым идет диалог
    string sTag = GetTag(oNpc); // Таг НПС
    object oExit = GetNearestObjectByTag("AM_WP_ESC_"+sTag); // Вейпоинт
    int iRun = FALSE; // Параметр определяющий скорость НПС

    // Если в локации нет вейпоинта, то НПС скажет что некуда бежать
        if (!GetIsObjectValid(oExit)||(GetArea(oExit)!=GetAre
a(oNpc)))
        {
          AssignCommand(oNpc, SpeakString("Нет вейпоинта, или он не в этой этой локации!"));
          return;
        }
    if(GetLocalInt(oExit, "RUN"))
      {
      iRun = TRUE; // Если присвоить локалку "RUN" на поинт, то он побежит.
      }
    AssignCommand(oNpc, ClearAllActions()); // Почистим стек команд
    AssignCommand(oNpc, ActionForceMoveToObject(oExit, iRun, 1.0, 30.0));
    AssignCommand(oNpc, ActionJumpToObject(GetObjectByTag("ТАГ_ТВОЕГО_ПОИНТА_В_ДРУГОЙ_ЛОКАЦИИ")));
    DelayCommand(0.5, SetCommandable(FALSE, oNpc)); // Что бы случайно не забыл
}

//::///////////////////////////////////////
//:: УНИВЕРСАЛЬНОЕ ПЕРЕМЕЩЕНИЕ СУЩЕСТВА
//:: Created By: Gennady
//:: FileName: p_object
//:://////////////////////////////////////
void main()
{
object oPC = GetFirstPC();
object oSelf = OBJECT_SELF;
object oPoint1 = GetObjectByTag("TROP_"+ GetTag(oSelf));
object oPoint2 = GetNearestObjectByTag("EXIT_"+ GetTag(oSelf));
object oDoor = GetNearestObject(OBJECT_TYPE_DOOR, oPoint2);
location LOC = GetLocation(oSelf);
effect eJump = EffectVisualEffect(VFX_FNF_SUMMON_MONSTER_3);
int INTEL = GetAbilityScore(oSelf, ABILITY_INTELLIGENCE);

//***** БЛОКИРОВКА ГЕРОЯ  ******
AssignCommand(oPC, ClearAllActions());
AssignCommand(oPC, ActionWait(12.0));
AssignCommand(oPC, ActionDoCommand(SetCommandable(TRUE, oPC))); // разблокировать
DelayCommand(0.1, SetCommandable(FALSE, oPC)); // заблокировать
//*******************************
  AssignCommand(oSelf, ClearAllActions());
  DelayCommand(0.1, SetCommandable(FALSE, oSelf)); // заблокировать
  DelayCommand(12.0, SetCommandable(TRUE, oSelf)); // разблокировать
  DelayCommand(12.0, SetCommandable(TRUE, oPC)); // разблокировать

  if (GetIsObjectValid(oPoint1))
  {
    if(INTEL != 4)
    AssignCommand(oSelf, SpeakString("До встречи!"));
    if (GetIsObjectValid(oPoint2))
    {
    AssignCommand(oSelf, ActionForceMoveToObject(oPoint2, FALSE, 0.0, 10.0));
    if(GetDistanceBetween(oDoor, oPoint2)< 3.0 && GetLocked(oDoor)==FALSE)
      {
      AssignCommand(oSelf, ActionOpenDoor(oDoor));
      AssignCommand(oSelf, ActionWait(2.0));
      }
    AssignCommand(oSelf, ActionDoCommand(SetCommandable(TRUE, oPC))); // разблокировать
    AssignCommand(oSelf, ActionJumpToObject(oPoint1));
    return;
    }
    ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eJump, LOC);
    DelayCommand(3.0, SetCommandable(TRUE, oPC)); // разблокировать
    AssignCommand(oSelf, ActionWait(3.0));
    AssignCommand(oSelf, ActionDoCommand(SetCommandable(TRUE, oSelf)));
    AssignCommand(oSelf, ActionJumpToObject(oPoint1));
    return;
  }
  else  // Если нет точки, то удалить существо
    {
    if(INTEL != 4)
    SpeakString("Прощай!");
    AssignCommand(oSelf, SetIsDestroyable(TRUE, TRUE, TRUE));
    if (GetIsObjectValid(oPoint2))
    {
    AssignCommand(oSelf, ActionForceMoveToObject(oPoint2, FALSE, 0.0, 10.0));
    if(GetDistanceBetween(oDoor, oPoint2)< 3.0 && GetLocked(oDoor)==FALSE)
      {
      AssignCommand(oSelf, ActionOpenDoor(oDoor));
      AssignCommand(oSelf, ActionWait(2.0));
      }
    AssignCommand(oSelf, ActionDoCommand(SetCommandable(TRUE, oPC))); // разблокировать
    AssignCommand(oSelf, ActionDoCommand(DestroyObject(oSelf)));
    return;
    }
    DelayCommand(3.0, SetCommandable(TRUE, oPC)); // разблокировать
    DestroyObject(oSelf, 3.2);
    ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eJump, LOC);
    }
}
/* Если есть точка "TROP_"+тэг ПС, то идет прыжок  к этой точке с эффектом.
  Если при этом есть точка "EXIT_"+тэг ПС, то ПС уходит к этой точке
  и прыгает к точке "TROP_"+тэг ПС без эффекта.
  Если нет точки "TROP_"+тэг ПС, то ПС удаляется с эффектом.
  Если при этом есть точка "EXIT_"+тэг ПС, то ПС идет к этой точке
  и удаляется без эффекта
  Если интеллект равен 4, то фраз не будет.  */

//::///////////////////////////////////////
//:: УНИВЕРСАЛЬНОЕ ПЕРЕМЕЩЕНИЕ СУЩЕСТВА
//:: Created By: Gennady
//:: FileName: p_object
//:://////////////////////////////////////
void main()
{
object oPC = GetFirstPC();
object oSelf = OBJECT_SELF;
object oPoint1 = GetObjectByTag("TROP_N"+ GetTag(oSelf));
object oPoint2 = GetNearestObjectByTag("EXIT_N"+ GetTag(oSelf));
object oDoor = GetNearestObject(OBJECT_TYPE_DOOR, oPoint2);
location LOC = GetLocation(oSelf);
effect eJump = EffectVisualEffect(VFX_FNF_SUMMON_MONSTER_3);
int INTEL = GetAbilityScore(oSelf, ABILITY_INTELLIGENCE);

//***** БЛОКИРОВКА ГЕРОЯ  ******
AssignCommand(oPC, ClearAllActions());
AssignCommand(oPC, ActionWait(12.0));
AssignCommand(oPC, ActionDoCommand(SetCommandable(TRUE, oPC))); // разблокировать
DelayCommand(0.1, SetCommandable(FALSE, oPC)); // заблокировать
//*******************************
  AssignCommand(oSelf, ClearAllActions());
  DelayCommand(0.1, SetCommandable(FALSE, oSelf)); // заблокировать
  DelayCommand(12.0, SetCommandable(TRUE, oSelf)); // разблокировать
  DelayCommand(12.0, SetCommandable(TRUE, oPC)); // разблокировать

  if (GetIsObjectValid(oPoint1))
  {
    if(INTEL != 4)
    AssignCommand(oSelf, SpeakString("До встречи!"));
    if (GetIsObjectValid(oPoint2))
    {
    AssignCommand(oSelf, ActionForceMoveToObject(oPoint2, FALSE, 0.0, 10.0));
    if(GetDistanceBetween(oDoor, oPoint2)< 3.0 && GetLocked(oDoor)==FALSE)
      {
      AssignCommand(oSelf, ActionOpenDoor(oDoor));
      AssignCommand(oSelf, ActionWait(2.0));
      }
    AssignCommand(oSelf, ActionDoCommand(SetCommandable(TRUE, oPC))); // разблокировать
    AssignCommand(oSelf, ActionJumpToObject(oPoint1));
    return;
    }
    ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eJump, LOC);
    DelayCommand(3.0, SetCommandable(TRUE, oPC)); // разблокировать
    AssignCommand(oSelf, ActionWait(3.0));
    AssignCommand(oSelf, ActionDoCommand(SetCommandable(TRUE, oSelf)));
    AssignCommand(oSelf, ActionJumpToObject(oPoint1));
    return;
  }
  else  // Если нет точки, то удалить существо
    {
    if(INTEL != 4)
    SpeakString("Прощай!");
    AssignCommand(oSelf, SetIsDestroyable(TRUE, TRUE, TRUE));
    if (GetIsObjectValid(oPoint2))
    {
    AssignCommand(oSelf, ActionForceMoveToObject(oPoint2, FALSE, 0.0, 10.0));
    if(GetDistanceBetween(oDoor, oPoint2)< 3.0 && GetLocked(oDoor)==FALSE)
      {
      AssignCommand(oSelf, ActionOpenDoor(oDoor));
      AssignCommand(oSelf, ActionWait(2.0));
      }
    AssignCommand(oSelf, ActionDoCommand(SetCommandable(TRUE, oPC))); // разблокировать
    AssignCommand(oSelf, ActionDoCommand(DestroyObject(oSelf)));
    return;
    }
    DelayCommand(3.0, SetCommandable(TRUE, oPC)); // разблокировать
    DestroyObject(oSelf, 3.2);
    ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eJump, LOC);
    }
}

object oPoint1 = GetObjectByTag("TROP_N"+ GetTag(oSelf));
object oPoint2 = GetNearestObjectByTag("EXIT_N"+ GetTag(oSelf));

object oPoint1 = GetObjectByTag("TROP_"+ GetTag(oSelf));
object oPoint2 = GetNearestObjectByTag("EXIT_"+ GetTag(oSelf));

#include "nw_i0_2q4luskan"

void main()
{
    object oChest = OBJECT_SELF;
    location lLoc = GetLocation(oChest);
    string sResRef = GetResRef(oChest);

    if(GetInventoryDisturbType() == INVENTORY_DISTURB_TYPE_REMOVED && !GetIsObjectValid(GetFirstItemInInventory(oChest))
)
    {
        AssignCommand(GetModule(), DelayCommand(600.0f, CreateObjectVoid(OBJECT_TYPE_PLACEABLE, sResRef, lLoc)));
        DestroyObject(oChest);
    }
}

object oPC = GetLastPerceived();
    if (GetIsPC(oPC)&&GetLastPerceptionSeen())
    {
        object oWeapon = GetItemInSlot(INVENTORY_SLOT_RIGHTHAND, oPC);
        if (oWeapon != OBJECT_INVALID)
        {
        ClearAllActions();
        AssignCommand(OBJECT_SELF, ActionStartConversation(oPC, "noweapon"));
        SendMessageToPC(oPC, "Я вижу тебя!");
        }
    }