//:://////////////////////////////////////////////
//:: Created By:  Gennady   ФОНАРЬ ОСВЕЩЕНИЯ на ХБ
//:: Created On:  12.07.06
//:://////////////////////////////////////////////
void main()
{
  object oSelf = OBJECT_SELF;
  object oZvFak = GetNearestObjectByTag("ZV_FAKEL"); // Звук огонь
  if (GetIsNight())
   {
    if (GetLocalInt(oSelf,"NW_L_AMION") == 0)
    {
     PlayAnimation(ANIMATION_PLACEABLE_ACTIVATE);
     DelayCommand(0.4, SetPlaceableIllumination(oSelf, TRUE));
     SetLocalInt(oSelf,"NW_L_AMION",1);
     DelayCommand(0.5, RecomputeStaticLighting(GetArea(oSelf)));
     if (GetDistanceBetween(oZvFak, oSelf) < 2.0)
     SoundObjectSetVolume(oZvFak, 127); // уровень звука от 0 до 127
    }
   }
else
{
  if (GetLocalInt(oSelf,"NW_L_AMION") != 1) return;
  if (GetTag(oSelf) == "FAKEL") // ДЛЯ ФАКЕЛА
  {
   object oFon = CreateObject(OBJECT_TYPE_PLACEABLE, "new_fakel", GetLocation(oSelf));
   AssignCommand(oFon, PlayAnimation(ANIMATION_PLACEABLE_DEACTIVATE));
   DelayCommand(0.4, SetPlaceableIllumination(oFon, FALSE));
   DelayCommand(0.5, RecomputeStaticLighting(GetArea(oFon)));
   SetLocalInt(oFon,"NW_L_AMION",0);
  }
  if (GetTag(oSelf) == "LAMPA") // ДЛЯ ЛАМПЫ
  {
   object oLam = CreateObject(OBJECT_TYPE_PLACEABLE, "new_lampa", GetLocation(oSelf));
   AssignCommand(oLam, PlayAnimation(ANIMATION_PLACEABLE_DEACTIVATE));
   DelayCommand(0.4, SetPlaceableIllumination(oLam, FALSE));
   DelayCommand(0.5, RecomputeStaticLighting(GetArea(oLam)));
   SetLocalInt(oLam,"NW_L_AMION",0);
  }
  DestroyObject(oSelf, 0.6);
  if (GetDistanceBetween(oZvFak, oSelf) < 2.0)
  SoundObjectSetVolume(oZvFak, 0); // уровень звука от 0 до 127
}
}
/*            Синьки новых объектов в палитре
    Тэг нового факела "FAKEL"  ResRef  "new_fakel"
    Тэг новой лампы "LAMPA"    ResRef  "new_lampa"
    Тэг звукового объекта для факела "ZV_FAKEL"
    Для правильной работы на OnEnter области нужен скрипт управления fakel_upr
*/

void main()
{
object oFon = GetFirstObjectInArea(OBJECT_SELF);
if (GetIsNight()) return;
while (GetIsObjectValid(oFon))
{
  if (GetTag(oFon) == "LAMPA" || GetTag(oFon) == "FAKEL")
  SetLocalInt(oFon,"NW_L_AMION",1);
  oFon = GetNextObjectInArea(oFon);
}
}

effect eInvisibility = EffectInvisibility(INVISIBILITY_TYPE_NORMAL);
ApplyEffectToObject(DURATION_TYPE_PERMANENT, eInvisibility, oPC);

//:://////////////////////////////////////////////
//:: ActionTaken  am_at_attack
//:: Copyright © 2005 WRG!
//:://////////////////////////////////////////////
/*
    Стандартный скрипт аттаки игроком НПС.
    НПС переводится в НЕЙТРАЛЬНУЮ фракцию.
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan
//:: Created On: 24.05.2005
//:://///////////////////////////////////////////
#include "nw_i0_generic"
void main()
{
    object oPC = GetPCSpeaker();
    object oNeutral = GetObjectByTag("GLOBAL_TRUE_NEUTRAL"); // НПС нейтрал
    object oSelf = OBJECT_SELF; // НПС с которым диалог
    AssignCommand(oSelf, ClearAllActions());
    ChangeFaction(oSelf, oNeutral); // Меняем фракцию на нейтрала
    SetIsTemporaryEnemy(oPC, oSelf); // Делаем временнно враждебным
    AssignCommand(oSelf, DetermineCombatRound(oPC)); // Заставляем напасть по всем правилам
    DelayCommand(1.0, AssignCommand(oSelf, ActionAttack(oPC))); // Кричим "ФАС!"
}

object oNeutral = GetObjectByTag("GLOBAL_TRUE_NEUTRAL"); // НПС нейтрал
    ChangeFaction(oSelf, oNeutral); // Меняем фракцию на нейтрала

//:://////////////////////////////////////////////////
//:: X0_CH_HEN_DEATH
//:: Copyright © 2002 Floodgate Entertainment
//:://////////////////////////////////////////////////
/*
  OnDeath handler for henchmen ONLY. Causes them to respawn at
  (in order of preference) the respawn point of their master
  or their own starting location.
*/
//:://////////////////////////////////////////////////
//:: Created By: Naomi Novik
//:: Created On: 10/09/2002
//:://////////////////////////////////////////////////
#include "x0_i0_henchman"
#include "am_inc_debug"
#include "am_inc_cutscene"

void main()
{
    // Handle a bunch of stuff to keep us from running around,
    // dying again, etc.
    PreRespawnSetup();

    // Call for healing
    DelayCommand(0.5, VoiceHealMe(TRUE));

    // Get our last master
    object oPC = GetLastMaster();
    object oSelf = OBJECT_SELF;


    // Clear dialogue events
    ClearAllDialogue(oPC, OBJECT_SELF);
    ClearAllActions();

    SetLocalLocation(oSelf, "POINT_DEATH", GetLocation(oSelf));
    //--------------------------------------------------------------------------
    //  Если РС умер или у нас отключен дебаг, то помощник умрет. В противном
    //  случае воскреснет рядом.
    //--------------------------------------------------------------------------
    if(!GetIsObjectValid(oPC) || GetIsDead(oPC) == TRUE)
    {
    if(GetTag(GetItemInSlot(INVENTORY_SLOT_NECK,oSelf))=="AM_MNECK_AZUTH")
    {
        effect eEffect1 = EffectVisualEffect(VFX_FNF_SOUND_BURST_SILENT);
        AssignCommand(oSelf, ApplyEffectToObject(DURATION_TYPE_INSTANT, eEffect1, oSelf));
        DelayCommand(0.7, RespawnHenchman());
        DelayCommand(0.9, PostRespawnCleanup());
        DelayCommand(1.5, AddCutEffects(oSelf));
        DelayCommand(3.0, AssignCommand(oSelf, JumpToObject(GetWaypointByTag("AM_WP_AZUTH_RESPAWN"))));
        DelayCommand(6.0, RemoveCutEffects(oSelf));
        Debug("Алишан в храме Азута. Забирайте ее там.");
        return;
      }
      if(!GetLocalInt(GetModule(), "DEBAG_PC"))
      {
          DelayCommand(1.0, RespawnHenchman());
          DelayCommand(1.5, PostRespawnCleanup());
          DelayCommand(1.9, AssignCommand(oSelf, JumpToLocation(GetLocalLocation(oSelf, "POINT_DEATH"))));
          DelayCommand(2.1, AddHenchman(GetFirstPC(), oSelf));
          Debug("ВЫ В РЕЖИМЕ ТЕСТА. ВАШ ПОМОЩНИК НЕУБИВАЕМ.");
          return;
      }
    else
    //--------------------------------------------------------------------------
    //  Умерла, так умерла... =)
    //--------------------------------------------------------------------------
          {
            SetPlotFlag(OBJECT_SELF,FALSE);
            SetImmortal(OBJECT_SELF, FALSE);
            SetIsDestroyable(TRUE, FALSE, FALSE);
            DestroyObject(OBJECT_SELF, 0.2);
          }
    }
}

void main()
{
object oPC = GetEnteringObject();
object oPamM = GetObjectByTag("Memory_M");
object oPamZ = GetObjectByTag("Memory_Z");
if (GetIsPC(oPC))
{
  AssignCommand(oPC, ClearAllActions(TRUE)); // TRUE чтобы точно остановить
  SetCutsceneMode(oPC, TRUE); // Режим катсцены
  AssignCommand(oPC, SetCameraFacing
  (80.0, 12.0, 50.0, CAMERA_TRANSITION_TYPE_VERY_FAST)); // Зададим координаты камеры
  if(GetGender(oPC) == GENDER_MALE)
  DelayCommand(2.0, AssignCommand(oPamM, ActionStartConversation(oPC))); // диалог персонажа
  else
  DelayCommand(2.0, AssignCommand(oPamZ, ActionStartConversation(oPC))); // диалог персонажа
}
}

DelayCommand(2.0, AssignCommand(oPC, ActionStartConversation(oPC)));

void main()
{
object oPC = GetEnteringObject();
if (GetIsPC(oPC))
{
  AssignCommand(oPC, ClearAllActions(TRUE)); // TRUE чтобы точно остановить
  SetCutsceneMode(oPC, TRUE); // Режим катсцены
  AssignCommand(oPC, SetCameraFacing
  (80.0, 12.0, 50.0, CAMERA_TRANSITION_TYPE_VERY_FAST)); // Зададим координаты камеры
  DelayCommand(2.0, AssignCommand(oPC, ActionStartConversation(oPC,"zz_memory")));
  // zz_memory диалог персонажа
}
}