if (GetCommandable(OBJECT_SELF))
{
ClearActions(CLEAR_NW_C2_DEFAULT4_29);
BeginConversation();
}

if (GetCommandable(OBJECT_SELF))
        {
            ClearActions(CLEAR_NW_C2_DEFAULT4_29);
            if(GetLocalInt(OBJECT_SELF,"SSS") == 1)
                BeginConversation("dlg1",oShouter);
            else
                BeginConversation("dlg2",oShouter);
        }

//:://////////////////////////////////////////////
//:: OnOpen  am_pop_bookshelf
//:: Copyright © 2005 WRG!
//:://////////////////////////////////////////////
/*
  Скрипт генирирует книги в инвентарь шкафа.
  Локальная переменная "BOOKS" на объекте
  означает количество генерируемых книг.
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan
//:: Created On: 23.07.2005
//:://///////////////////////////////////////////
void main()
{
    //-------------------------------------------------------------------------
    // Количество книг в палитре. Присваиваем на модуль "ALL_BOOKS_IN_MODULES"
    //-------------------------------------------------------------------------
    int iBook = GetLocalInt(GetModule(), "ALL_BOOKS_IN_MODULES");
    int iNum = GetLocalInt(OBJECT_SELF, "BOOKS"); // Сколько создаем в шкафу
    if (GetLocalInt(OBJECT_SELF, "HAS_OPERATED")) // Сработает один раз
      {
        return;
      }
      while(iNum >= 1) // Пока количество создаваемых книг больше или равно 1.
          {
    //-------------------------------------------------------------------------
    // Кстати... У меня ResRef-ы  am_itm_book001 ... am_itm_book021, поэтому
    // я извратился немного, лень было переделать книги... Но так проще создать
    // много одинаковых книг, цифры сами генерятся редактором, вы только
    // создаете первую, а дальше Изменить/Сохранить и все.
    //-------------------------------------------------------------------------
            int i = Random(iBook)+1; // Гененрируем случайную унигу
            string sN = "0";
            string sNN = "0";
            if (i >=100) {sNN ="";}
            if (i >=10) {sN ="";}
            object oBook = CreateItemOnObject("am_it_book"+sNN+sN+IntToString(i));
            iNum--; //Создали одну книгу. Отняли от количества еденичку...
          }
          SetLocalInt(OBJECT_SELF,"HAS_OPERATED",TRUE); // Запомним что уже сработал
}

void main()
{
    int iN;
    location lLoc;
    object oFire = GetObjectByTag("PLC_DRM_F00");
      if (GetLocalInt(OBJECT_SELF, "Counter") == 1)
      return;
      else
            SetLocalInt(OBJECT_SELF, "Counter", 2);
            while (oFire != OBJECT_INVALID || iN < 10)
              {
              lLoc = GetLocation(oFire);
              DestroyObject(oFire, 0.0f);
              oFire = GetNearestObjectByTag("PLC_DRM_F01", GetNearestObjectByTag("PLC_DRM_FR", OBJECT_SELF));
              CreateObject(OBJECT_TYPE_PLACEABLE, "plc_flamelarge", lLoc, FALSE, "PLC_DRM_FR");
              iN ++;
              }
}

//:://////////////////////////////////////////////
//:: Выдает стринг, если НПС рядом с поинтом
//:: 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 нет, то нечего не появится
}

//:://////////////////////////////////////////////
//:: OnEnter  am_exe_torch_del
//:: Copyright © 2005 WRG!
//:://////////////////////////////////////////////
/*
    ВКЛЮЧАЕМ ОГОНЬ ФАКЕЛОВ И ЗВУК К НИМ НОЧЬЮ.

Таг факела = "AM_PLS_TORCH_OFF". Он должен быть с
в палитре с моделью факела без амбиент анимации.
Именно его и надо расставить в локации. Иначе будет
свет от факела гореть над ним. Его ResRef "am_pls_torchoff"
Таг горящего факела = "AM_PLS_TORCH_ON" ResRef "am_pls_torchon"
Звуковой объект ставим рядом с факелом, помните его таг
ДОЛЖЕН БЫТЬ УНИКАЛЬНЫМ ВО ВСЕМ МОДУЛЕ. Иначе не
сработает. К примеру таг моего звука, равен тагу
триггера плюс порядковый номер, начиная с еденицы:
AM_SOUND_TORTCH_(порядковый номер = i). Расставляйте
на локации факела и звуки рядом.
"NEW_ResRef" Локальный стринг ResRef-а объекта, который
создаем на месте этого. Все готово!

LocalInt "AREA_TORCH_ON_OFF" - запускает на локацию.

*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan
//:: Created On: 08.06.2005
//:://///////////////////////////////////////////
void main()
{
  int i=1; // Первый порядковый номер тага звука
  float f=0.5; // Задержка дестроя
  string sSound = GetTag(OBJECT_SELF); // Приравнял таг Локации к звуовому
  object oTorch = GetFirstObjectInArea(OBJECT_SELF);
  object oSound = GetObjectByTag(sSound+IntToString(i)); // Звуковой объект
  effect eLight = EffectVisualEffect(VFX_DUR_LIGHT_YELLOW_20); // Свет факела
  int nEvent = GetUserDefinedEventNumber();
//======================= USERDEINE EVENT 1000 =================================
if (GetIsDay() || GetIsDawn())
//---------------------------------- ДЕНЬ --------------------------------------
  {
  while (GetIsObjectValid(oTorch))
      {
      if (GetTag(oTorch) == "AM_PLS_TORCH_ON" && !GetLocalInt(oTorch, "DO"))
        /* Проверяем все объекты на локации, берем с нужным тегом и без
            локальной переменной, что с объектом уже выключен. */
          {
          string sResRef = GetLocalString(oTorch, "NEW_ResRef");
          SetLocalInt(oTorch, "DO", TRUE);
          DestroyObject(oTorch, f);
          CreateObject(OBJECT_TYPE_PLACEABLE,sResRef, GetLocation(oTorch));
          f=f+0.2; // Сделай паузу!
          }
          if (GetIsObjectValid(oSound))
            {
            DebugObject(oSound);
            SoundObjectStop(oSound); // Выключаем звук
            i++;  // Присвоим объекту звука таг на единицу больше
            }
      oSound = GetObjectByTag(sSound+IntToString(i));
      oTorch = GetNextObjectInArea(OBJECT_SELF);
      }
    return;
  }
//======================= USERDEINE EVENT 3000 =================================
  else if (GetIsNight() || GetIsDusk())
//----------------------------- НОЧЬ -------------------------------------------
  {
  while (GetIsObjectValid(oTorch))
      {
      if (GetTag(oTorch) == "AM_PLS_TORCH_OFF" && !GetLocalInt(oTorch, "DO"))
        {
          string sResRef = GetLocalString(oTorch, "NEW_ResRef");
          SetLocalInt(oTorch, "DO", TRUE);
          DestroyObject(oTorch, f);
          object oTorchNew = CreateObject(OBJECT_TYPE_PLACEABLE,sResRef, GetLocation(oTorch));
          DelayCommand(0.5, ApplyEffectToObject(DURATION_TYPE_PERMANENT, eLight, oTorchNew));
          f=f+0.2; // Сделай паузу!
          }
          if (GetIsObjectValid(oSound))
            {
            DebugObject(oSound);
            SoundObjectPlay(oSound); // Включаем звук
            i++; // Присвоим объекту звука таг на единицу больше
            }
      oSound = GetObjectByTag(sSound+IntToString(i));
      oTorch = GetNextObjectInArea(OBJECT_SELF);
      }
  }
}

void main()
{
object oFire  = GetObjectByTag("PLC_DRM_F00");
location lLoc = GetLocation(oFire);
if (GetLocalInt(OBJECT_SELF, "Counter") == 1)  return;
SetLocalInt(OBJECT_SELF, "Counter", 2);
DestroyObject(oFire);
// центр, относительно которого берем ближайший объект на удаление
object oCenter = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_flamelarge", lLoc, FALSE, "PLC_DRM_FR");
// берем следующую кучу дров
oFire = GetNearestObjectByTag("PLC_DRM_F01", oCenter);
// пока есть дрова в локации.. тут бы лучше добавить проверки дистанции.
while (GetIsObjectValid(oFire))
    {
    lLoc = GetLocation(oFire);
    DestroyObject(oFire, 0.0f);
    // новый центр поиска - костерок на месте дров
    oCenter = CreateObject(OBJECT_TYPE_PLACEABLE, "plc_flamelarge", lLoc, FALSE, "PLC_DRM_FR");
    // следующие дрова
    oFire  = GetNearestObjectByTag("PLC_DRM_F01", oCenter);
    }
}

void main()
{
if (GetLocalInt(OBJECT_SELF, "Counter") == 1)  return;
SetLocalInt(OBJECT_SELF, "Counter", 2);
object oFire  = GetObjectByTag("PLC_DRM_F00");
location lLoc = GetLocation(oFire);
CreateObject(OBJECT_TYPE_PLACEABLE, "plc_flamelarge", lLoc, FALSE, "PLC_DRM_FR");
ExecuteScript("lx_fire_main",oFire);
DestroyObject(oFire,0.5);
}

void main()
{
SetLocalInt(OBJECT_SELF,"USED",TRUE);
location lLoc = GetLocation(OBJECT_SELF);
int i = 1;
CreateObject(OBJECT_TYPE_PLACEABLE, "plc_flamelarge", lLoc, FALSE, "PLC_DRM_FR");
object oFire = GetNearestObjectByTag("PLC_DRM_F01", OBJECT_SELF,i);
while (GetLocalInt(oFire,"USED"))
    {
    i++;
    oFire = GetNearestObjectByTag("PLC_DRM_F01", OBJECT_SELF,i);
    }
if (GetIsObjectValid(oFire))
    DelayCommand(0.4,ExecuteScript("lx_fire_main",oFire));

DestroyObject(OBJECT_SELF, 0.5f);
}

// Unequip oItem from whatever slot it is currently in.
void ActionUnequipItem(object oItem)

// Equip oItem into nInventorySlot.
// - nInventorySlot: INVENTORY_SLOT_*
// * No return value, but if an error occurs the log file will contain
//  "ActionEquipItem failed."
//
// Note:
//      If the creature already has an item equipped in the slot specified, it will be
//      unequipped automatically by the call to ActionEquipItem.
//
//      In order for ActionEquipItem to succeed the creature must be able to equip the
//      item oItem normally. This means that:
//      1) The item is in the creature's inventory.
//      2) The item must already be identified (if magical).
//      3) The creature has the level required to equip the item (if magical and ILR is on).
//      4) The creature possesses the required feats to equip the item (such as weapon proficiencies).
void ActionEquipItem(object oItem, int nInventorySlot)

// Get the object which is in oCreature's specified inventory slot
// - nInventorySlot: INVENTORY_SLOT_*
// - oCreature
// * Returns OBJECT_INVALID if oCreature is not a valid creature or there is no
//  item in nInventorySlot.
object GetItemInSlot(int nInventorySlot, object oCreature=OBJECT_SELF)

// Sets stack size of an item.
// - oItem: item to change
// - nSize: new size of stack.  Will be restricted to be between 1 and the
//  maximum stack size for the item type.  If a value less than 1 is passed it
//  will set the stack to 1.  If a value greater than the max is passed
//  then it will set the stack to the maximum size
void SetItemStackSize(object oItem, int nSize)

// Returns stack size of an item
// - oItem: item to query
int GetItemStackSize(object oItem)

// Destroy oObject (irrevocably).
// This will not work on modules and areas.
void DestroyObject(object oDestroy, float fDelay=0.0f)

int Match(string s1, string s2)
{
    return (s1 == s2);
}

int GetNumItemsInInventory(object oInventory = OBJECT_SELF, string sTag = "*")
{
    int nNum = 0;
    object oItem = GetFirstItemInInventory(oInventory);
    while (GetIsObjectValid(oItem))
    {
        if (Match(GetTag(oItem), sTag))
        {
            nNum += GetItemStackSize(oItem);
        }

        oItem = GetNextItemInInventory(oInventory);
    }

    return nNum;
}

int StartingConditional()
{
    return (GetNumItemsInInventory(GetPCSpeaker(), "ss_pivo") >= 3);
}

int Match(string s1, string s2)
{
    return (s1 == s2);
}

int RemoveItemsFromInventory(object oInventory = OBJECT_SELF, string sTag = "*", int nNum = -1)
{
    int nStack;
    object oItem = GetFirstItemInInventory(oInventory);
    while (GetIsObjectValid(oItem) && (nNum != 0))
    {
        if (Match(GetTag(oItem), sTag))
        {
                if (nNum < 0) DestroyObject(oItem);
            else if ((nStack = GetItemStackSize(oItem)) > nNum)
            {
                SetItemStackSize(oItem, nStack - nNum);
                return 0;
            }
            else
            {
                DestroyObject(oItem);
                nNum -= nStack;
            }
        }

        oItem = GetNextItemInInventory(oInventory);
    }

    return nNum;
}

void main()
{
    RemoveItemsFromInventory(GetPCSpeaker(), "ss_pivo", N);
}

void DestroyItem(object oOwner, string sComponent, int nNumItems)
{
    int nStackSize;

    object oItem = GetFirstItemInInventory(oOwner);

    while (GetIsObjectValid(oItem) == TRUE)
    {
        if (GetTag(oItem) == sComponent)
        {
            nStackSize = GetItemStackSize(oItem);

            if (nStackSize > nNumItems)
            {
                SetItemStackSize(oItem, nStackSize - nNumItems);
                return;
            }
            else if (nStackSize == nNumItems)
            {
                DestroyObject(oItem, 0.1);
                return;
            }
            else if (nStackSize < nNumItems)
            {
                nNumItems = nNumItems - nStackSize;
                DestroyObject(oItem, 0.1);
            }
        }
        oItem = GetNextItemInInventory(oOwner);
    }
}

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

    string sGhead = "am_it_goblinhead";

    if (IsInInventory(oPC, sGhead))
    {
        int nFound = 0;

        object oItem = GetFirstItemInInventory(oPC);

        while (GetIsObjectValid(oItem) == TRUE)
        {
            if (GetTag(oItem) == sGhead)
            {
                nFound = nFound + GetNumStackedItems(oItem);
            }
            oItem = GetNextItemInInventory(oPC);
        }

        GiveGoldToCreature(oPC, 100 * nFound);
        DestroyItem(oPC, sGhead, nFound);
    }
    else
    {
        SpeakString("Не понял, а где же трофеи? Вы решили меня надуть?");
        ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectKnockdown(), oPC, 15.0f);
    }
}

void RemoveEffectCreator(object oCreature, object oCreator = OBJECT_SELF)
{
    effect eEffect = GetFirstEffect(oCreature);
    while(GetIsEffectValid(eEffect))
    {
    if (GetEffectCreator(eEffect) == oCreator)
      {
        RemoveEffect(oCreature, eEffect);
      }
        eEffect = GetNextEffect(oCreature);
    }
}

void main()
{
  object oPC = GetFirstPC();
  AssignCommand(oPC,ActionCastSpellAtObject(SPELL_LESSER_RESTORATION,oPC,METAMAGIC_QUICKEN,TRUE));
}