Initial upload

Initial upload

_module/nss/respawnhigh.nss

@@ -0,0 +1,115 @@
+//scriptname: respawnhigh
+///////////////////////////////////////
+//Original Creator: AW_Olorin
+//Modified by Guile 8/02/08
+///////////////////////////////////////
+//
+//This script generates treasure and
+//respawns the chest automatically after
+//a set amount of time. (See below)
+/////////////////////////////////////////////////////
+//NOTE: I this script is almost identical to the respawnmed script, however
+//the % chance of a high level item spawning should be much higher!!
+///////////////////////////////////////////////////////////////////////////////
+//IMPORTANT SETTINGS:
+//////////////////////////////////////////////////////////////////////////////
+//The # below represents a % chance of a High level item spawning
+//if the opener does not get this % they get a Medium level item instead.
+//Change the # below (default 40) to the % chance you want unique items spawned.
+const int nPercentChance = 40; //40%
+
+//Determine how many minutes you want to pass before the treasure chest respawn
+//Enter 10 for 10 minute or 30 for 30 minutes, etc..
+const int nMinutes = 30; //Default = 30 minutes
+
+///////////////////////////////////////////////////////////////////////////////
+//DO NOT TOUCH ANYTHING BELOW!!
+
+#include "NW_O2_CONINCLUDE"
+#include "x0_i0_treasure"
+
+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);
+}
+
+void main()
+{
+    //Prevents spam looting.
+    if (GetLocalInt(OBJECT_SELF,"NW_DO_ONCE") != 0)
+    {
+       return;
+    }
+    object oLastOpener = GetLastOpener();
+    //GenerateLowTreasure(oLastOpener, OBJECT_SELF);
+    SetLocalInt(OBJECT_SELF,"NW_DO_ONCE",1);
+    ShoutDisturbed();
+
+
+
+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);
+
+//Note this only works for placeables
+//Creatures use a different script, which is in the OnDeath Event
+AssignCommand(GetArea(OBJECT_SELF), DelayCommand(fDelay, RespawnObject(sTag, iType, lLoc)));
+
+///////////////////////////////////////////////////////////
+//Special treasure system..
+
+ExecuteScript("gen_geg_treas", OBJECT_SELF);
+
+//////////////GENERATE GENERIC TREASURE////////////////////
+
+//Do not touch this line below as it's necessary!
+if (!(CTG_GetIsTreasureGenerated(OBJECT_SELF)))
+{
+
+//Let's choose between one of 3 treasures, depending upon a % of the roll..
+
+int bInt = d100(1);
+//Roll a d6 dice then determine which treasure table(s) to use..
+
+//% Chance of the High level item spawning (set above!)
+ if(bInt<nPercentChance)
+ {
+ //This script will put any high level item into the chest.
+ CTG_CreateTreasure(TREASURE_TYPE_HIGH, GetLastOpener(), OBJECT_SELF);
+
+ }
+
+ //Otherwise they just get a Medium level item..
+ else
+ {
+ //This script will put any high level item into the chest.
+ CTG_CreateTreasure(TREASURE_TYPE_MED, GetLastOpener(), OBJECT_SELF);
+
+ }
+
+//Always spawn gold into the chest..
+//ADJUST This to your likings..
+int nInt = d20(5);// 5-100 (The Multiplyer of nXGp)
+int nXtra = d100(1); // 1-100 GP
+int nXGp = nInt * 100; // 500 - 10,000 GP
+int nGP = nXGp + nXtra; // + 1 - 100 GP
+//501 minimum - 10,100 max
+CreateItemOnObject("nw_it_gold001", OBJECT_SELF, nGP);
+
+//This makes sure we aren't regenerating treasure!
+CTG_SetIsTreasureGenerated(OBJECT_SELF);
+}
+
+//The end :)
+}