Initial upload

Initial upload

_module/nss/randomsockeygive.nss

@@ -0,0 +1,22 @@
+//Created by Guile 4/31/09
+
+//This script will on rare occasions give a PCs a random
+//Enchanting Gem..
+
+void main()
+{
+
+object oPC = GetLastOpenedBy();
+int n = GetLocalInt(OBJECT_SELF, "GS" + GetName(oPC));
+
+if(n==1)
+{ return; }
+
+//Set this to happen only one time EVER!
+SetLocalInt(OBJECT_SELF, "GS" + GetName(oPC), 1);
+
+if (!GetIsPC(oPC) || GetIsDM(oPC)) return;
+
+DelayCommand(30.0, ExecuteScript("gen_geg_treas", oPC));
+
+}