//::///////////////////////////////////////////////
//:: FileName: prov_50x100
//:://////////////////////////////////////////////
int StartingConditional()
{
     if(Random(100) >= 50)
     return FALSE;
     return TRUE;
}

//::///////////////////////////////////////
//:: УНИВЕРСАЛЬНОЕ ПЕРЕМЕЩЕНИЕ СУЩЕСТВА
//:: 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, то фраз не будет.  */

AssignCommand(oNPC1, SetFacingPoint(GetPosition(oNPC2)));

//::///////////////////////////////////////////////
//:: Проверить есть ли у говорящего 500 золотых
//:://////////////////////////////////////////////
int StartingConditional()
{
object oPC = GetPCSpeaker();
int iGold = GetGold(oPC);//все золото

if(iGold >= 500)
return TRUE;
return FALSE;
}

// Sets the maximum number of henchmen
void SetMaxHenchmen( int nNumHenchmen )

// Play a voice chat.
// - nVoiceChatID: VOICE_CHAT_*
// - oTarget
void PlayVoiceChat(int nVoiceChatID, object oTarget=OBJECT_SELF)

//::///////////////////////////////////////////////
//:: ДОБАВИТЬ ЗАМЕТКУ НА КАРТУ
//:: FileName: open_metka
//:://////////////////////////////////////////////
void main()
{
  object oMetka = GetObjectByTag("KAR_" + GetTag(OBJECT_SELF));
  if(GetIsObjectValid(oMetka) )
  {
   SetMapPinEnabled(oMetka, 1);
   SendMessageToPC(GetPCSpeaker(), "Заметка добавлена на карту области.");
  }
}

void main()
{
  object oPlayer = GetLastPlayerDied();
  string sDeathMessage = "Ваш персонаж погиб. Загрузите игру на последней записи или автосохранении.";

  DelayCommand(1.0, ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_DEATH), oPlayer));
  DelayCommand(4.0, PopUpDeathGUIPanel(oPlayer, FALSE, TRUE, 0, sDeathMessage));
}

void main()
{
    object oPC = GetPCSpeaker();
    object oNPC = GetFirstObjectInArea(oPC);
    int iSP = 1;

    SetMaxHenchmen(2); // число спутников

    while (GetIsObjectValid(oNPC))
    {
     if (oNPC == GetAssociate(ASSOCIATE_TYPE_HENCHMAN, oPC, iSP))
     iSP++;
     oNPC = GetNextObjectInArea(oPC);
    }

     if(iSP < 3)
      {
       AddHenchman(oPC, OBJECT_SELF); // Дать нового спутника
       AssignCommand(oPC, SpeakString("Я рад встречи!"));
      }
      else  AssignCommand(oPC, SpeakString("Извини, нет места..."));
}