Changed folder name.

2022-10-07 21:08:37 -04:00
parent 1c33c2843e
commit 8d97886c3f
7060 changed files with 0 additions and 0 deletions
--- a/_module/nss/stonerecallspc.nss
+++ b/_module/nss/stonerecallspc.nss
@@ -0,0 +1,88 @@
+/////////////////////////////////////////////////
+//  Ultimate Teleport Script 2.0
+/////////////////////////////////////////////////
+//  by Genisys (galefer003@hotmail.com)
+//
+//  based on SirLestat's Secret Trapdoorscripts
+/////////////////////////////////////////////////
+/*
+
+This script is for the recallconv (conversation)
+to recall the player and associates only back to
+the location where the player used the stone of
+recall
+
+*/
+/////////////////////////////////////////////////
+
+void main()
+{
+    // uncomment one of the next 3 lines depending where you use the script:
+    object oPC = GetPCSpeaker();     // for conversations
+    // object oPC = GetEnteringObject;  // for triggers
+    //object oPC = GetLastUsedBy();       // for items/objects
+
+object oToken = GetItemPossessedBy(oPC, "idtoken");
+string sName = GetName(oToken);
+object oArea = GetArea(oPC);
+location lSaved = GetLocation(oPC);
+location lStored = GetLocalLocation(oToken, "RECALL_LOC");
+object oSaved = GetAreaFromLocation(lStored);
+object oSavedArea = GetAreaFromLocation(lStored);
+object oWay;
+int nMulti = GetLocalInt(GetModule(), "multi");
+int i;
+
+
+//First loop through the object in the area's stored location..
+for(i=0; i<5;i++)
+{
+ oWay = GetNearestObjectToLocation(OBJECT_TYPE_WAYPOINT, lStored, i);
+
+ if(oWay != OBJECT_INVALID && GetTag(oWay)=="no_recall")
+  {
+   FloatingTextStringOnCreature("No Destination Found.", oPC);
+   return;
+  }
+}
+
+
+//--DEBUGGING-----------------------
+
+  if(oSaved==OBJECT_INVALID)
+  {
+      FloatingTextStringOnCreature("No Destination Found.", oPC);
+      return;
+  }
+
+  else
+   {
+
+
+    //Don't store information if the location is invalid!
+    if(oArea!=OBJECT_INVALID)
+    {
+      SetLocalLocation(oToken, "RECALL_LOC", lSaved);
+      FloatingTextStringOnCreature("Location Saved!", oPC, FALSE);
+      if(nMulti) //If Multiplayer, Save Their Toon!
+       {
+         ExportSingleCharacter(oPC);
+       }
+    }
+
+
+    effect eVis = EffectVisualEffect(472);
+    ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC, 0.0f);
+
+    eVis = EffectDisappear(1);
+    DelayCommand(1.1, ApplyEffectToObject(DURATION_TYPE_INSTANT, eVis, oPC, 0.0f));
+
+    DelayCommand(2.5, AssignCommand(oPC, ClearAllActions()));
+
+    //Allow for the visual effect to finish.
+    DelayCommand(2.6, AssignCommand(oPC, ActionJumpToLocation(lStored)));
+
+   }
+
+
+}