Initial upload

Initial upload

module/nss/transfr50kxp.nss

@@ -0,0 +1,24 @@
+//Created by Guile 5/5/08 (This XP Bank script sets an intergal on the module
+//which allows PCs to store xp/gold on the module and retrieve with other
+//characters (as long as they don't change cd keys!)
+void main()
+{
+object oPC;
+oPC = GetPCSpeaker();
+int nXP = GetCampaignInt("STORED_XP", GetPCPublicCDKey(oPC), GetModule());
+int nAdjXP;
+
+if(nXP >=50000)
+{
+ nAdjXP = (nXP - 50000);
+ GiveXPToCreature(oPC, 50000);
+
+ //Adjust the XP Total Stored...
+ SetCampaignInt("STORED_XP", GetPCPublicCDKey(oPC), nAdjXP, GetModule());
+}
+
+else
+{
+FloatingTextStringOnCreature("You have no XP stored!", oPC);
+}
+}