void RemoveXPFromParty(int nXP, object oPC, int bAllParty=TRUE)
{

if (!bAllParty)
  {
  nXP=(GetXP(oPC)-nXP)>=0 ? GetXP(oPC)-nXP : 0;
  SetXP(oPC, nXP);
  }
else
  {
  object oMember=GetFirstFactionMember(oPC, TRUE);

  while (GetIsObjectValid(oMember))
      {
      nXP=(GetXP(oMember)-nXP)>=0 ? GetXP(oMember)-nXP : 0;
      SetXP(oMember, nXP);
      oMember=GetNextFactionMember(oPC, TRUE);
      }
  }
}
void ApplyPenalty(object oDead)
{
    int nXP = GetXP(oDead);
    int nPenalty = 250 * GetHitDice(oDead);
    int nHD = GetHitDice(oDead);
    // * You can not lose a level with this respawning
    int nMin = ((nHD * (nHD - 1)) / 2) * 1000;

    int nNewXP = nXP - nPenalty;
    if (nNewXP < nMin)
      nNewXP = nMin;
    SetXP(oDead, nNewXP);
    int nGoldToTake = FloatToInt(0.20 * GetGold(oDead));
    // * a cap of 10 000gp taken from you
    if (nGoldToTake > 50000)
    {
        nGoldToTake = 50000;
    }
    AssignCommand(oDead, TakeGoldFromCreature(nGoldToTake, oDead, TRUE));
    DelayCommand(4.0, FloatingTextStrRefOnCreature(58299, oDead, FALSE));
    DelayCommand(4.8, FloatingTextStrRefOnCreature(58300, oDead, FALSE));

}
#include "nw_i0_plot"
/*  Script generated by
Lilac Soul's NWN Script Generator, v. 2.0

For download info, please visit:
http://nwvault.ign.com/View.php?view=Other...4683&id=625    */

//Goes OnPlayerRespawn of the module properties
void main()
{

object oPC = GetLastRespawnButtonPresser();
object oDead = oPC;
string sArea = GetTag(GetArea(oPC));
if (!GetIsPC(oPC)) return;

ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectResurrection(),oPC);

ApplyEffectToObject(DURATION_TYPE_INSTANT,EffectHeal(GetMaxHitPoints(oPC)), oPC);

RemoveEffects(oPC);

object oTarget;
oTarget = oPC;

//Visual effects can't be applied to waypoints, so if it is a WP
//apply to the WP's location instead

int nInt;
nInt = GetObjectType(oTarget);

if((sArea == "AREA1") ||
  ( sArea == "AREA2") == FALSE )
{

  //Для Всех
  location lHALFELFTarget;
  oTarget = GetWaypointByTag("TN_SPAWN");
  lHALFELFTarget = GetLocation(oTarget);
  if (nInt != OBJECT_TYPE_WAYPOINT) ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_TIME_STOP), oTarget);
  else ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_FNF_TIME_STOP), GetLocation(oTarget));

  if (GetAreaFromLocation(lHALFELFTarget)==OBJECT_INVALID) return;

  AssignCommand(oPC, ClearAllActions());

  AssignCommand(oPC, ActionJumpToLocation(lHALFELFTarget));



ApplyPenalty(oDead);


}

}

//::///////////////////////////////////////////////////
//:: X0_O2_ANYUNIQ.NSS
//:: OnOpened/OnDeath script for a treasure container.
//:: Treasure type: Any, random selection from whatever is in base container
//:: Treasure level: TREASURE_TYPE_UNIQUE
//::
//:: Copyright © 2002 Floodgate Entertainment
//:: Created By: Naomi Novik
//:: Created On: 11/21/2002
//::///////////////////////////////////////////////////

#include "x0_i0_treasure"

void main()
{

    CTG_CreateTreasure(TREASURE_TYPE_UNIQUE, GetLastOpener(), OBJECT_SELF);


}

#include "X0_I0_SPELLS"
#include "x2_inc_spellhook"
void main()
{
    object oPC = GetFirstPC();
    int nDamage;
    float fDelay;
    effect eDam;
    string sArea = GetTag(GetArea(oPC));
    effect eVis = EffectVisualEffect(VFX_IMP_FROST_S);
    object oCampfire = GetObjectByTag("CAMPFIRE101");

    if((GetIsDay())== FALSE)
    {
    if ((GetDistanceBetween(oCampfire, oPC))> 2.0)
    {
    if (sArea == "highmounts001" || sArea == "highmounts002" || sArea == "highmounts003"||
        sArea == "capitolofgom" || sArea == "ncapitolspart" || sArea == "narnpass001"
        ||sArea == "iceland001")
    {

    nDamage = Random(15) + 1;


    if(/*Fort Save*/ MySavingThrow(SAVING_THROW_FORT, oPC, 25, SAVING_THROW_TYPE_COLD, OBJECT_SELF, fDelay))
    {
      nDamage = 0;
    }


    eDam = EffectDamage(nDamage, DAMAGE_TYPE_COLD);
    DelayCommand(fDelay, ApplyEffectToObject(DURATION_TYPE_INSTANT, eDam, oPC));
    //ApplyEffectToObject(DURATION_TYPE_TEMPORARY, eVis, oPC, 1.7);

    }
    }
    }
oPC = GetNextPC();
}

void main()
{

object oPC = GetEnteringObject();

if (!GetIsPC(oPC)) return;
//...........День............
if((GetIsDay())== TRUE)
{

SetEncounterActive(FALSE, OBJECT_SELF);

}

//...............Ночь.............
/*
if((GetIsDay())== FALSE)
{
if((GetEncounterActive(OBJECT_SELF))== FALSE)
{
SetEncounterActive(TRUE, OBJECT_SELF);
}
}
*/
}

//:://////////////////////////////////////////////
//:: OnExit  am_aex_random
//:: Copyright © 2005 WRG!
//:://////////////////////////////////////////////
/*
    Удаление лута на локации случайных боев.
*/
//:://////////////////////////////////////////////
//:: Created By: Aiwan
//:: Created On: 24.05.2005
//:://///////////////////////////////////////////
int GetIsAssociate(object oMaster, object oAssociate)
{
    object oMaster = GetMaster(oAssociate);
    if(oMaster != OBJECT_INVALID)
      {
      return TRUE;
      }
        return FALSE;
}

void main()
{
object oPC = GetExitingObject();
object oDestr = GetFirstObjectInArea(OBJECT_SELF);
if (!GetIsPC(oPC)) return;

while (oDestr!=OBJECT_INVALID)
  {
//------------------------------------------------------------------------------
    if (GetHasInventory(oDestr) && GetTag(oDestr)=="BodyBag") // Лут - сумка стандартная
    {
      object oItem = GetFirstItemInInventory(oDestr);
      while (GetIsObjectValid(oItem))
      {
        DestroyObject(oItem);
        oItem = GetNextItemInInventory(oDestr);
      }
      DestroyObject(oDestr);
    }
//------------------------------------------------------------------------------
if (GetObjectType(oDestr) == OBJECT_TYPE_PLACEABLE
//      || GetObjectType(oDestr) == OBJECT_TYPE_CREATURE
      && !GetIsAssociate(oPC, oDestr))
        {
        {
          CopyItem(oDestr, oPC, TRUE);

        }
    }
//------------------------------------------------------------------------------*/
    oDestr = GetNextObjectInArea(OBJECT_SELF);
    }
}

object oPC = OBJECT_SELF;


object oItem;
oItem = GetFirstItemInInventory(oPC);

while (GetIsObjectValid(oItem))
  {
  if (GetPlotFlag(oItem))
      SetPlotFlag(oItem, FALSE);

    DelayCommand(20.0, DestroyObject(oItem));

  oItem = GetNextItemInInventory(oPC);
  }

int nInt;
for (nInt=0; nInt<NUM_INVENTORY_SLOTS; nInt++)
  {
  oItem = GetItemInSlot(nInt, oPC);

  if (GetPlotFlag(oItem))
        SetPlotFlag(oItem, FALSE);

  DelayCommand(20.0, DestroyObject(oItem));
  }

//Put OnExit
void main()
{
object oPC =  GetExitingObject();
object oArea = GetArea(oPC);
RecomputeStaticLighting(oArea);
}