Initial upload

Initial upload

module/nss/invroom_teleport.nss

@@ -0,0 +1,68 @@
+//Script Name: invroom_teleport
+//////////////////////////////////////////
+//Created by: Genisys / Guile
+//ON:   7/29/08
+/////////////////////////////////////////
+/*          **Notes**
+
+This goes in the Action Taken, on the
+conversation line which allow PC's to
+organize thier inventory. This script
+teleports them to the inventory room,
+where they can quickly sort thier
+inventory.
+*/
+//////////////////////////////////////////
+string sDeny;
+
+
+//Main Script
+void main()
+{
+
+object oPC = GetPCSpeaker();
+
+
+//If the system is in use, don't allow anyone to enter!
+if (GetLocalInt(GetModule(), "INVUSE")== 1)
+   {
+   sDeny="Inventory Room In Use, Try again later.";
+
+   SendMessageToPC(oPC, sDeny);
+
+   return;
+   }
+
+//Otherwise set that the room is in use!
+//This allows the PC into the room!!
+//Note this variable is removed when the PC leaves the area!
+SetLocalInt(GetModule(), "INVUSE", 1);
+
+
+//This allows the PC into the room!
+//If the PC does not have this variable, they are automatically teleported out!
+SetLocalInt(oPC, "INVROOMUSER", 1);
+
+object oTarget;
+location lTarget;
+oTarget = GetWaypointByTag("isystemway");
+
+lTarget = GetLocation(oTarget);
+
+if (GetAreaFromLocation(lTarget)==OBJECT_INVALID) return;
+
+SetLocalLocation(oPC, "inv_loc", GetLocation(oPC));
+
+AssignCommand(oPC, ClearAllActions());
+
+DelayCommand(3.0, AssignCommand(oPC, ActionJumpToLocation(lTarget)));
+
+oTarget = oPC;
+
+int nInt;
+nInt = GetObjectType(oTarget);
+
+if (nInt != OBJECT_TYPE_WAYPOINT) ApplyEffectToObject(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_UNSUMMON), oTarget);
+else ApplyEffectAtLocation(DURATION_TYPE_INSTANT, EffectVisualEffect(VFX_IMP_UNSUMMON), GetLocation(oTarget));
+
+}