//ПЕРЕДВИЖЕНИЕ ПЛЕЙСА
// object oSelf - Объект управлЯющий передвижением
// string sGtTag - тэг передвигаемого объекта
// float fDist=0.1 - дистанциЯ одного шага
// float fSpeed=0.3 - скорость кадра
// int iShag=20 количество создаваемых объектов (кадров)
// float fOrient=180.0 - направление движениЯ
void multik(object oSelf, string sGtTag, float fDist=0.1, float fSpeed=0.3, int iShag=20, float fOrient=180.0);

//____________________ ПЕРЕДВИЖЕНИЕ ПЛЕЙСА _____________________________________
void multik(object oSelf, string sGtTag, float fDist=0.1, float fSpeed=0.3, int iShag=20, float fOrient=180.0)
{
if (GetLocalInt(oSelf,"STENA") == 1) return;
object oPlace = GetNearestObjectByTag(sGtTag, oSelf);
effect eVis = EffectVisualEffect(VFX_DUR_CUTSCENE_INVISIBILITY); // невидимость
effect eIskra = EffectVisualEffect(VFX_COM_SPARKS_PARRY);
int i;
AssignCommand(oSelf, ClearAllActions());
AssignCommand(oSelf, ActionPlayAnimation(ANIMATION_PLACEABLE_DEACTIVATE
));
ApplyEffectToObject(DURATION_TYPE_INSTANT, eIskra, oSelf);
DelayCommand(1.0, ApplyEffectToObject(DURATION_TYPE_PERMANENT, eVis, oPlace));
for (i=1; i<iShag; i++)
  {
    vector vSpawn = GetPosition(oPlace);
    float fFacing = GetFacing(oPlace);
    vSpawn.x += cos(fFacing) * fDist*i;
    vSpawn.y += sin(fFacing) * fDist*i;
    // Если отрицательное значение, то locSpawn позади oPC
    location locSpawn = Location(GetArea(oPlace), vSpawn, fOrient+fFacing);
  object oNew = CreateObject(OBJECT_TYPE_PLACEABLE, GetResRef(oPlace), locSpawn, FALSE, sGtTag);
  SetPlotFlag(oNew, TRUE); // Сюжетный
  ApplyEffectToObject(DURATION_TYPE_PERMANENT, eVis, oNew);
  AssignCommand(oSelf, ActionDoCommand(RemoveEffect(oNew, GetFirstEffect(oNew))));
  if (i<(iShag-1))
  {
    if (i<3) AssignCommand(oSelf, ActionWait(1.0));
    else AssignCommand(oSelf, ActionWait(fSpeed));
    AssignCommand(oSelf, ActionDoCommand(ApplyEffectToObject(DURATION_TYPE_
PERMANENT, eVis, oNew)));
    AssignCommand(oSelf, ActionDoCommand(DestroyObject(oNew, 0.5)));
  }
  }
  AssignCommand(oPlace,PlaySound("al_cv_millwheel1"));
  DelayCommand(4.0, AssignCommand(oPlace,PlaySound("as_cv_minercar1")));
  SetLocalInt(oSelf,"STENA",1);
  AssignCommand(oSelf, ActionDoCommand(ApplyEffectToObject(DURATION_TYPE_
INSTANT, eIskra, oSelf)));
  AssignCommand(oSelf, ActionPlayAnimation(ANIMATION_PLACEABLE_ACTIVATE))
;
  AssignCommand(oSelf, ActionDoCommand(SetLocalInt(oSelf,"STENA",0)));
  AssignCommand(oSelf, ActionDoCommand(DestroyObject(oPlace)));
}

object oWP = GetWaypointByTag("taran_wp");
    AssignCommand(oWP, ActionCastSpellAtLocation(SPELL_EARTHQUAKE, GetLocation(oWP), METAMAGIC_MAXIMIZE, 1, PROJECTILE_PATH_TYPE_DEFAULT, TRUE));

//:://////////////////////////////////////////////////
//:: АРЕСТ ГЕРОЯ ЗА НАПАДЕНИE НА ПРОСТОЛЮДИНОВ
//:: Created By: Gennady
//:: File Name: stop_commoner
//:://////////////////////////////////////////////////
#include "ludi"

// ДАТЬ И ОПОЗНАТЬ ПРЕДМЕТЫ
// string sItem - ResRef предмета
// object oTarget - Объект или существо кому дать
// int iKol - Количество предметов
// int iStack=1 - Количество предметов в стеке
void CreateItemSklad(string sItem, object oPC, int iKol=1, int iStack=1);

void CreateItemSklad(string sItem, object oPC, int iKol=1, int iStack=1)
{
while(1 <= iKol)
{
  if(iKol < iStack) iStack = iKol;
  object oItem = CreateItemOnObject(sItem, oPC, iStack);
  SetIdentified(oItem, TRUE); // опознать
  iKol-=iStack;
}
}
////////////////////////////////////////////////////////////////////////////////
void DeletItem(object oPC, object oSklad)
{
object oItem = GetFirstItemInInventory(oPC);
while(GetIsObjectValid(oItem))
    {
    string sTag = GetTag(oItem);
    int iDestroy = 0;
    if (sTag == "itm_magsteleport" || sTag == "itm_magstelepor1")
    {iDestroy = 1; SetLocalInt(oPC, "MARSHIK_COMMONER", 1);}
    if(iDestroy == 0)
    CopyItem(oItem, oSklad);
    DestroyObject(oItem);
    oItem = GetNextItemInInventory(oPC);
    }
    // ***** Оденем *****
  object oMan = CreateItemOnObject("t_roba_a", oPC, 1); // Роба
  AssignCommand(oPC, ClearAllActions(TRUE));
  AssignCommand(oPC, ActionEquipItem(oMan,INVENTORY_SLOT_CHEST)); // Роба
  AssignCommand(oPC, ActionSpeakString("Я что в тюрьме?"));
  FadeFromBlack(oPC, FADE_SPEED_SLOW); // Уберем занавес
  if(GetLocalInt(oPC, "MARSHIK_COMMONER")==1)
  SetCustomToken(2202, "Да, совсем забыл… Я вам верну маршрутизатор.");
  else
  SetCustomToken(2202, "");
  if(GetLocalInt(oPC, "VOR_COMMONER")>=10)
  {
    DelayCommand(1.0, ReputationTorg(-1));
    SetLocalInt(oPC, "VOR_COMMONER", 0);
    SetLocalInt(oPC, "R2_NPC_OSKAR", 1);// ДЛЯ ДИАЛОГА С ЗАКЛЮЧЕННЫМ
  }
  else
  DelayCommand(1.0, ReputationTorg(-3));
  DelayCommand(1.1, SendMessageToPC(oPC, "<c у >Прошло три часа... Вас доставили в тюрьму...</c>"));
}
////////////////////////////////////////////////////////////////////////////////
void Arest(object oPC, object oWP)
{
int iGold = GetGold(oPC);
int i, iShtraf = iGold/10; //Размер штрафа
int iT = GetTimeHour();
object oSklad = GetObjectByTag("SKLAD_COMMONER");
object oItem = GetFirstItemInInventory(oPC);

if(GetLocalInt(oPC, "VOR_COMMONER")>=10)
iShtraf = iGold/50; //Размер штрафа
SetCustomToken(2201, IntToString(iShtraf));
SetLocalInt(oPC,"GOLD_TURMA", iGold); // золото
SetTime(iT+3,0,0,0);
SetLocalLocation(oPC, "STOP_LOC_COMMONER", GetLocation(oPC)); // ТОЧКА ВОЗВРАТА
CreateItemSklad("nw_it_gold001", oSklad, iGold-iShtraf, 50000);
TakeGoldFromCreature(iGold, oPC, TRUE); // забрать золото
SetStandardFactionReputation(STANDARD_FACTION_COMM
ONER, 50, oPC);
SetLocalInt(GetModule(),"REP_COMMONER",0);
JumpFirstPC(oWP);

    while(GetIsObjectValid(oItem))
      {
      if(GetBaseItemType(oItem) == BASE_ITEM_LARGEBOX)
      AssignCommand(oPC, ActionGiveItem(oItem, oSklad)); // Дать сумку или предмет
      oItem = GetNextItemInInventory(oPC);
      }
    for (i = 0; i < NUM_INVENTORY_SLOTS; i++)
      {
      oItem = GetItemInSlot(i, oPC);
      if (GetIsObjectValid(oItem))
      {
        CopyItem(oItem, oSklad);
        DestroyObject(oItem);
      }
      }
  DelayCommand(7.0, DeletItem(oPC, oSklad));
}
////////////////////////////////////////////////////////////////////////////////
void main()
{
object oPC = GetFirstPC();
object oMod = GetModule();
object oNPC = GetFirstObjectInShape(SHAPE_SPHERE, 50.0,GetLocation(oPC),TRUE);
object oStop = GetWaypointByTag("STOP_COMMONER");
object oZak = GetObjectByTag("NPC_OSKAR");//Заключенный
effect ePar = EffectCutsceneParalyze();// Эффект парализации
effect eOtz = EffectVisualEffect(VFX_IMP_UNSUMMON);// Отзыв животного
effect eSM3 = EffectVisualEffect(VFX_FNF_SUMMON_MONSTER_3);// ГолубаЯ  звезда
float Time = 17.0;
float fAngle = GetFacing(oPC);
location Loc1 = CreateLocation(oPC, 3.0, fAngle+120.0, 0.0, fAngle);
location Loc2 = CreateLocation(oPC, 3.0, fAngle-120.0, 0.0, fAngle);
string sSt1 = "<c у >Вы нарушили закон Империи! Убили важного гражданина!</c>";
string sSt2 = "<cюa >Вас ждет арест и суд! Пошли!</c>";

if(GetLocalInt(oPC, "VOR_COMMONER")>=10)
  {
  sSt1 = "<c у >Стой! Сколько можно воровать? Вас ждет арест и суд!</c>";
  sSt2 = "<cюa >Спокойно воришка, и без глупостей! Пошли!</c>";
  }
  while (GetIsObjectValid(oNPC))  // Все существа в радиусе 30 метров
  {
    AssignCommand(oNPC, ClearAllActions(TRUE));
    if(oNPC != oPC)
    AssignCommand(oMod, DelayCommand(Time+5.0, AssignCommand(oNPC, ClearAllActions(TRUE))));
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ePar, oNPC, Time);
    if (oPC==GetMaster(oNPC))
      {
        if(oNPC!= GetAssociate(ASSOCIATE_TYPE_HENCHMAN, oPC))
        {
          ApplyEffectToObject(DURATION_TYPE_INSTANT, eOtz, oNPC);
          DestroyObject(oNPC, 2.0);
        }
        else RemoveHenchman(oPC, oNPC); // Удалить спутника
      }
    oNPC = GetNextObjectInShape(SHAPE_SPHERE, 50.0, GetLocation(oPC), TRUE);
  }

if(GetGender(oPC)==GENDER_FEMALE && GetGender(oZak)==GENDER_MALE)
  {
  location Loc3 = GetLocation(oZak);
  DestroyObject(oZak);
  DelayCommand(3.0, CreateObjectN(OBJECT_TYPE_CREATURE, "zak_oskar_gg", Loc3));
  }
AssignCommand(oPC, SpeakString("Что случилось?"));
  object oStraz1 = CreateObject(OBJECT_TYPE_CREATURE, "straz", Loc1);
  object oStraz2 = CreateObject(OBJECT_TYPE_CREATURE, "straz", Loc2);
ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eSM3, Loc1);
ApplyEffectAtLocation(DURATION_TYPE_INSTANT, eSM3, Loc2);
DelayCommand(1.0, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ePar, oStraz1, Time));
DelayCommand(1.0, ApplyEffectToObject(DURATION_TYPE_TEMPORARY, ePar, oStraz2, Time));
DelayCommand(6.0, AssignCommand(oStraz1, SpeakString(sSt1)));
DelayCommand(6.0, PlayVoiceChat(VOICE_CHAT_NO, oStraz2));
DelayCommand(12.0, AssignCommand(oStraz2, SpeakString(sSt2)));
DelayCommand(15.0, PlayVoiceChat(VOICE_CHAT_YES, oStraz1));
DelayCommand(Time, FadeToBlack(oPC, FADE_SPEED_FASTEST)); // Занавес
DelayCommand(Time+0.1, Arest(oPC, oStop));
DestroyObject(oStraz1, Time);
DestroyObject(oStraz2, Time);
}

const string NPC_WP_TAG = "NPC_WP_TAG";
const int NPC_VFX = 24;
const float NPC_TELEPORT_TIME = 20.0f;

void Teleport(object oNPC);

void main()
{
    Teleport(OBJECT_SELF);
}

void Teleport(object oNPC)
{
    object oCurrentWP = GetNearestObjectByTag(NPC_WP_TAG, oNPC), oWP;

    do
        oWP = GetObjectByTag(NPC_WP_TAG, d6());
    while(oWP != oCurrentWP);

    ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(NPC_VFX), oNPC);
    ApplyEffectToObject(DURATION_TYPE_TEMPORARY, EffectCutsceneImmobilize(), oNPC, 1.0f);

    DelayCommand(1.05f, AssignCommand(oNPC, JumpToObject(oWP)));

    DelayCommand(NPC_TELEPORT_TIME, Teleport(oNPC));
}

// ДАТЬ И ОПОЗНАТЬ ПРЕДМЕТЫ (ДЛЯ ОБРАБОТКИ ЗОЛОТА)
// string sItem - ResRef предмета
// object oTarget - Объект или существо кому дать
// int iKol - Количество предметов
// int iStack=1 - Количество предметов в стеке
void CreateItemSklad(string sItem, object oPC, int iKol=1, int iStack=1);

void CreateItemSklad(string sItem, object oPC, int iKol=1, int iStack=1)
{
while(1 <= iKol)
{
  if(iKol < iStack) iStack = iKol;
  object oItem = CreateItemOnObject(sItem, oPC, iStack);
  SetIdentified(oItem, TRUE); // опознать
  iKol-=iStack;
}
}
//////////////  ЗАБРАТЬ ВЕСЬ ИНВЕНТАРЬ И ОДЕТЬ ГЕРОЯ В РОБУ    /////////////////
void DeletItem(object oPC, object oSklad)
{
object oItem = GetFirstItemInInventory(oPC);
int i;
// ИНВЕНТАРЬ
while(GetIsObjectValid(oItem))
    {
    CopyItem(oItem, oSklad);
    DestroyObject(oItem);
    oItem = GetNextItemInInventory(oPC);
    }
// СЛОТЫ
    for (i = 0; i < NUM_INVENTORY_SLOTS; i++)
      {
        oItem = GetItemInSlot(i, oPC);
        if (GetIsObjectValid(oItem))
        {
          CopyItem(oItem, oSklad);
          DestroyObject(oItem);
        }
      }
    // ***** Оденем *****
  object oMan = CreateItemOnObject("t_roba", oPC, 1); // Роба
  AssignCommand(oPC, ClearAllActions(TRUE));
  AssignCommand(oPC, ActionEquipItem(oMan,INVENTORY_SLOT_CHEST)); // Роба
}
/////////////////  ЗАБРАТЬ ВСЕ СУМКИ ГЕРОЯ  ////////////////////////////////////
void CopyBase(object oPC, object oSklad)
{
object oItem = GetFirstItemInInventory(oPC);
    while(GetIsObjectValid(oItem))
      {
      if(GetBaseItemType(oItem) == BASE_ITEM_LARGEBOX)
      AssignCommand(oPC, ActionGiveItem(oItem, oSklad)); // Дать сумку или предмет
      oItem = GetNextItemInInventory(oPC);
      }
}
////////////////////////////////////////////////////////////////////////////////
void main()
{
object oPC = GetFirstPC();
object oSklad = GetObjectByTag("SKLAD_ITEM");
int iGold = GetGold(oPC); // золото

// забрать золото и положить его в сундук
CreateItemSklad("nw_it_gold001", oSklad, iGold, 50000);
TakeGoldFromCreature(iGold, oPC, TRUE);
///////////////////////////////////////////
// забрать все сумки
CopyBase(oPC, oSklad);
//////////////////////////////////////////
// забрать все шмотки
DelayCommand(2.0, DeletItem(oPC, oSklad));
//////////////////////////////////////////
}

location lRespawnLocation;

string sPlanet = GetLocalString(oRespawner,"planet");
sPlanet = GetStringUpperCase(sPlanet); //Работа со строкой планеты, у тебя просто разные точки используют разный шрифт, эти - верхний
string sFraction = GetLocalString(oRespawner, "fraction");
object wpStart = GetObjectByTag("PLANET"+sPlanet
+"ToBase"+sFraction); //Вэйпоинт на базе

lRespawnLocation = GetLocation(wpStart);
AssignCommand(oRespawner, JumpToLocation(lRespawnLocation));//Прыгаем на вэйпоинт на базе

void main()
{
        location lSigil = GetLocation(GetNearestObjectByTag("sigil2"));
        object oSigil = CreateObject(OBJECT_TYPE_PLACEABLE,"blueprint",lSigil);
        object oDoor = GetNearestObjectByTag("door");
        object oMark = GetNearestObjectByTag("PlanarBeacon");
        AssignCommand(oDoor,ActionCloseDoor(oDoor));
        AssignCommand(oDoor,ActionLockObject(oDoor));
        DestroyObject(oMark);
}

void main()
{
        location lTel3 = GetLocation(GetNearestObjectByTag("kaldar_enter"));
        object omage1 = CreateObject(OBJECT_TYPE_CREATURE,"kaldar0",lTel3);
        object oPC = GetFirstPC();
        AddJournalQuestEntry("Drugs", 2, oPC);
}

object oSelf = OBJECT_SELF; // Объект на котором работает скрипт

void main()
{
object oWP = GetObjectByTag("sigil2"); //точка в нужной области с уникальным тегом (определяет объекты во всем модуле)
object oArea = GetArea(oWP); //сама область
// ближайшие к выбранной точке объекты (объекты должны быть только в одной области с oWP)
object oDoor = GetNearestObjectByTag("door", oWP);
object oMark = GetNearestObjectByTag("PlanarBeacon", oWP);
location lSigil = GetLocation(oWP);

object oSigil = CreateObject(OBJECT_TYPE_PLACEABLE,"blueprint",lSigil);
        AssignCommand(oDoor,ActionCloseDoor(oDoor));
        AssignCommand(oDoor,ActionLockObject(oDoor));
        DestroyObject(oMark);
// ПРОВЕРКА
SpeakString("В области" +GetName(oArea)+" создали плейс " +GetName(oSigil));
}