Initial upload

Initial upload.

_module/nss/lrgwspeus_hportl.nss

@@ -0,0 +1,64 @@
+////////////////////////////////////////////
+// Script:  lrgwspeus_hportl
+// Author:  Lord Random
+// Date:    August 13, 2002
+// Version: 1.0
+// Copyright (c) 2001 Bioware Corp.
+//::::::::::::::::::::::::::::::::::::::::::
+// Source(s)
+// 1. Lord Random's Gateway-Builder's
+//    Playground Module
+//::::::::::::::::::::::::::::::::::::::::::
+// Description
+//    This script teleports the PC back to
+// the Gateway Return Portal if it exists.
+//::::::::::::::::::::::::::::::::::::::::::
+// Requirements
+// 1. Must be attached to the placeable event
+//    OnUsed for the Gateway Home Portal.
+//::::::::::::::::::::::::::::::::::::::::::
+// Notes
+//::::::::::::::::::::::::::::::::::::::::::
+// Modification History
+// Date       Who           Modifications
+// ---------- ------------- ----------------
+//  8/13/2002 Lord Random   Created script
+////////////////////////////////////////////
+
+#include "lrtpt_include"
+
+void main()
+{
+   object oPC=GetLastUsedBy();
+   object oOwner=GetLocalObject(OBJECT_SELF, "LRGWS_Owner");
+   location lPC=GetLocation(oPC);
+
+//
+// Make sure this is the portal owner
+//
+   if (oOwner==oPC)
+   {
+      if (GetLocalInt(oPC, "LRGWS_ReturnIsSet")==TRUE)
+      {
+         ApplyEffectToObject(DURATION_TYPE_TEMPORARY,
+            EffectParalyze(), oPC, 4.5);
+         ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,
+            EffectVisualEffect(VFX_IMP_MAGIC_PROTECTION), lPC);
+         DelayCommand(3.0, ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,
+            EffectVisualEffect(VFX_FNF_SUMMON_MONSTER_2), lPC, 1.0));
+         DelayCommand(3.0, ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,
+            EffectVisualEffect(VFX_IMP_GOOD_HELP), lPC));
+         DelayCommand(4.0, ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,
+            EffectVisualEffect(VFX_IMP_LIGHTNING_M), lPC));
+         DelayCommand(5.0, ApplyEffectAtLocation(DURATION_TYPE_TEMPORARY,
+            EffectVisualEffect(VFX_DUR_PROT_PREMONITION), lPC));
+
+         DelayCommand(5.0, AssignCommand(oPC,
+            ActionDoCommand(GroupJumpToLocation(oPC,
+            GetLocalLocation(oPC, "LRGWS_ReturnLoc")))));
+      }
+      else SpeakString("The Gateway Return Portal does not exist.");
+   }
+   else SpeakString("Only "+GetLocalString(oOwner, "LRGWS_OwnerName")+
+      " may use this portal.");
+}