//scriptname: respawnunique
///////////////////////////////////////////
//Created by Guile
//Some functions are from: AW_Olorin (POA)
///////////////////////////////////////////
//Created On 8/02/08
///////////////////////////////////////////
//This script generates treasure and
//respawns the chest automatically after
//a set amount of time. (See below)
/////////////////////////////////////////////////////

///////////////////////////////////////////////////////////////////////////////
//IMPORTANT SETTINGS:
//////////////////////////////////////////////////////////////////////////////
//The # below represents a % chance of a unique item spawning
//if the opener does not get this % they get a high level item instead.
//Change the # below (default 20) to the % chance you want unique items spawned.
const int nPercentChance = 30;

//Determine how many minutes you want to pass before the treasure chest respawn
//Enter 10 for 10 minute 30 for 30 minutes etc..
const int nMinutes = 25; //Default = 30

///////////////////////////////////////////////////////////////////////////////
//DO NOT TOUCH ANYTHING BELOW!!

#include "NW_O2_CONINCLUDE"
#include "x0_i0_treasure"

//PROTOTYPE
void RespawnObject(string sTag, int iType, location lLoc)
{
// ResRef Name must be derivable from Tag Name
string sResRef = GetStringLowerCase(GetStringLeft(sTag, 16));

CreateObject(iType, sResRef, lLoc);
}

//PROTOTYPE
void DestroyTreasure(object oMe)
{
 object o = GetFirstItemInInventory(oMe);
 while(GetIsObjectValid(o))
 {
  SetPlotFlag(o, FALSE);
  DestroyObject(o, 0.0f);
  o =GetNextItemInInventory(oMe);
 }
}

//Main script
void main()
{
    //Prevents spam looting.
    if (GetLocalInt(OBJECT_SELF,"NW_DO_ONCE") != 0)
    {
       return;
    }
    object oLastOpener = GetLastOpener();
    SetLocalInt(OBJECT_SELF,"NW_DO_ONCE",1);
    ShoutDisturbed();

//Note this only works for placeables
//Creatures use a different script, which is in the OnDeath Event

//Do not touch this!
float fMultiplier = 60.0 * IntToFloat(nMinutes);

location lLoc = GetLocation(OBJECT_SELF);
string sTag = GetTag(OBJECT_SELF);
int iType = GetObjectType(OBJECT_SELF);
float fDelay = fMultiplier;  // 30 Minute delay

//A fancy sunbeam effect OnOpen.
ApplyEffectToObject(DURATION_TYPE_INSTANT,
EffectVisualEffect(VFX_FNF_SUNBEAM), OBJECT_SELF);

SetPlotFlag(OBJECT_SELF, FALSE);
DestroyObject(OBJECT_SELF, 0.0);
AssignCommand(GetArea(OBJECT_SELF),
DelayCommand(fDelay, RespawnObject(sTag, iType, lLoc)));

//Prevent Cheating!!
effect eEffect = EffectDamage(6666, DAMAGE_TYPE_POSITIVE, DAMAGE_POWER_NORMAL);
effect eVis = EffectVisualEffect(VFX_FNF_GREATER_RUIN);
object oPC = GetLastOpener();
string sMsg;

if(GetHasSpellEffect(SPELL_ETHEREALNESS, oPC) ||
GetHasSpellEffect(SPELL_IMPROVED_INVISIBILITY, oPC) ||
GetHasSpellEffect(SPELL_INVISIBILITY, oPC) ||
GetHasSpellEffect(SPELL_INVISIBILITY_SPHERE, oPC) ||
GetHasSpellEffect(SPELL_SANCTUARY, oPC))
{
 if(GetLocalInt(oPC, "GS_LOOTER")==2)
 {
 sMsg = "You cannot be invisible while looting for treasure, YOU WILL RECIEVE NO MORE WARNINGS!";
 FloatingTextStringOnCreature(sMsg, oPC, TRUE);
 DestroyTreasure(OBJECT_SELF);
 CreateItemOnObject("gslootlib", oPC, 1);
 ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC, 0.0f);
 ApplyEffectToObject(DURATION_TYPE_INSTANT, eEffect, oPC, 2.5f);
 return;
 }
 else
 {
  DestroyTreasure(OBJECT_SELF);
  CreateItemOnObject("gslootlib", oPC, 1);
  SetLocalInt(oPC, "GS_LOOTER", 2);
  sMsg = "You cannot be invisible while looting for treasure, YOU HAVE BEEN WARNED!";
  FloatingTextStringOnCreature(sMsg, oPC, TRUE);
  return;
 }

}

//////////////////////////////////////////////////////////////
//Special treasure system

ExecuteScript("gen_geg_treas", OBJECT_SELF);

///////////////Generic Treasure Generated On Open/////////////

//Note this is the script for the unique treasure chest in the module
//it was carefully configured due to too much treasure being handed out
//The chest will only generate one Legendary item only, and a large sum of gold.
//It will generate one high item as well, and if the PC is lucky 2 medium items

if (!(CTG_GetIsTreasureGenerated(OBJECT_SELF)))
{

//Always generate Gold into the chest!
//Always spawn gold into the chest..
//ADJUST This to your likings..
int nInt = d20(5);// 5-100 (The Multiplier of nXGp)
int nXtra = nInt * 10; // 50 - 1,000
int nXGp = nInt * 200; // 1,000 - 20,000 Gold
int nGP = nXGp + nXtra; //1,050 - 21,000 + 5-100 (Random #)
//Gold Range
CreateItemOnObject("nw_it_gold001", OBJECT_SELF, nGP);

//Let's choose between one of 3 treasures, depending upon a % of the roll..
int bInt = d100(1);

 if(bInt<nPercentChance)
 {
 //This script will put any unique level item into the chest.
 CTG_CreateTreasure(TREASURE_TYPE_UNIQUE, GetLastOpener(), OBJECT_SELF);

 //This makes sure we aren't regenerating treasure!
 CTG_SetIsTreasureGenerated(OBJECT_SELF);
 }

 //Otherwise they just get a 70% chance of a High level item..
 else
 {
 //This script will put any high level item into the chest.
 CTG_CreateTreasure(TREASURE_TYPE_HIGH, GetLastOpener(), OBJECT_SELF);

 //This makes sure we aren't regenerating treasure!
 CTG_SetIsTreasureGenerated(OBJECT_SELF);
 }

//end if statment
}

//The end of script :)
}