Changed folder name.

Changed folder name.

_module/nss/ac_stoneofrecall.nss

@@ -0,0 +1,84 @@
+////////////////////////////////////
+//Created by Genisys / Guile 6/27/08
+////////////////////////////////////
+/*
+script name:  "ac_stoneofrecall"
+
+This is a tagbased item script which
+works off the tagnamed item
+"stoneofrecall" this script allows
+the user to teleport to a waypoint
+tagnamed "home" storing thier location
+till they use the stone again, which
+will teleport them back to where
+they original used the stone.
+
+*/
+////////////////////////////////////
+
+///Main Script///
+void main()
+{
+//Declare Major Variables
+object oPC = GetItemActivator();
+object oTarget;
+location lTarget;
+location lLocation;
+location lStored = GetLocalLocation(oPC, "recall_loc");
+effect eVis = EffectVisualEffect(VFX_FNF_SUMMON_CELESTIAL);
+
+//Note Useable in Combat..
+if (GetIsInCombat(oPC))
+{
+FloatingTextStringOnCreature("This item is not useable in combat!", oPC, FALSE);
+return;
+}
+
+//If the stored location is valid..
+if (GetIsObjectValid(GetAreaFromLocation(lStored))==TRUE)
+   {
+
+   //Apply a fancy visual effect :)
+   ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC, 0.0f);
+
+   AssignCommand(oPC, ClearAllActions());
+
+   //Allow for the visual effect to finish.
+   DelayCommand(4.0, AssignCommand(oPC, ActionJumpToLocation(lStored)));
+
+   //Remove the stored location..
+   DelayCommand(7.0, DeleteLocalLocation(oPC, "recall_loc"));
+   }
+
+//If the PC doesn't have a stored location...
+else if(GetIsObjectValid(GetAreaFromLocation(lStored))==FALSE)
+   {
+   oPC = GetItemActivator();
+
+   oTarget = GetWaypointByTag("home");
+
+   lTarget = GetLocation(oTarget);
+
+   //Store the PC's current location first..
+   SetLocalLocation(oPC, "recall_loc", GetLocation(oPC));
+
+   //Apply a fancy visual effect :)
+   ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC, 0.0f);
+
+   DelayCommand(0.1, AssignCommand(oPC, ClearAllActions()));
+
+   //Teleport them to the waypoint tagnamed "home"
+   DelayCommand(4.0, AssignCommand(oPC, ActionJumpToLocation(lTarget)));
+
+   }
+
+   //Otherwise if both above fail..
+   else
+   {
+   //Tell the PC there is a bug and ask them to report it.
+   FloatingTextStringOnCreature("There is an error with the Recall Stone" +
+   ", please report this to the DMs.", GetItemActivator(), FALSE);
+   }
+
+//Script End
+}