Initial upload

Initial upload.

_module/nss/pri_guestleave.nss

@@ -0,0 +1,90 @@
+//::///////////////////////////////////////////////
+//:: Guest Request to leave Suite
+//:: Copyright (c) 2002 Shepherd Software Inc.
+//:://////////////////////////////////////////////
+/*
+
+If a guest requests that the Butler lets them out of the
+Suite, the butler checks to see if the door to the Suite
+is opened. If it is, he tells the players they are free to
+go.
+
+If it is not opened, butler checks for the renter of room. If
+renter of room is not found, butler opens door for the guests to
+leave.
+
+If renter of room is found, butler sends him a message that he is
+unlocking the door for the guest (gives name) and shows the guest
+out.
+
+Orignal plan was to have butler walk up to renter and tell him but
+that resulted in an error saying the butler had too many commands.
+Brainstorm that up and fix later. Neat feature.
+
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Russell S. Ahlstrom
+//:: Created On: July 11, 2002
+//:://////////////////////////////////////////////
+
+#include "pri_inc"
+
+void main()
+{
+object oPC = GetPCSpeaker();
+object oTrigger = GetNearestObjectByTag("SuiteAutoDoor");
+object oDoor = GetNearestObjectByTag("SuiteRoomDoor");
+
+GetInnArea(oPC);
+
+string sButler = GetLocalString(oPC, "RSA_Butler");
+string sLetOut = GetLocalString(oPC, "RSA_ButLetOut");
+string sLetOut2 = GetLocalString(oPC, "RSA_ButLetOut2");
+string sDoorOpen = GetLocalString(oPC, "RSA_ButDoorOpen");
+
+string sGuest = GetName(oPC);
+object oButler = GetObjectByTag(sButler);
+object oWayPoint = GetObjectByTag("POST_"+sButler);
+int iDoorOpen = GetLocalInt(oButler, "RSA_Guests");
+object oOwner = OBJECT_INVALID;
+string sOwner = GetLocalString(oButler, "RSA_Owner");
+if (iDoorOpen == 1 || iDoorOpen == 3)
+ {
+  AssignCommand(oButler, ActionSpeakString(sDoorOpen));
+  return;
+ }
+object oPCsearch = GetFirstPC();
+string sPCsearch = "";
+
+//Checks to see if Renter of Suite is still Logged In
+
+while (GetIsObjectValid(oPC))
+ {
+  sPCsearch = GetName(oPC);
+  if (sPCsearch == sOwner)
+   {
+    oOwner = oPCsearch;
+    break;
+   }
+  oPCsearch = GetNextPC();
+ }
+
+//If not, changes message that is said by butler
+
+if (!(GetIsObjectValid(oOwner))) sLetOut = sLetOut2;
+
+AssignCommand(oButler, ClearAllActions());
+AssignCommand(oButler, ActionSpeakString(sLetOut));
+
+//Let Renter know that room is being unlocked
+
+SendMessageToPC(oOwner, sGuest+" has requested to leave. The door has been unlocked and opened.");
+SetLocked(oDoor, FALSE);
+AssignCommand(oButler, ActionOpenDoor(oDoor));
+
+//Sets LocalInt of Butler back to before the Door was locked
+
+SetLocalInt(oButler, "RSA_Guests", 1);
+AssignCommand(oButler, ActionMoveToObject(oWayPoint));
+AssignCommand(oButler, ActionDoCommand(SetFacing(GetFacing(oWayPoint))));
+}