Initial Commit

Initial Commit.

_module/nss/pri_bedrest.nss

@@ -0,0 +1,73 @@
+//::///////////////////////////////////////////////
+//:: Using Beds allow players to rest
+//:: pri_richbedrest.nss
+//:: Copyright (c) 2002 Shepherd Software Inc.
+//:://////////////////////////////////////////////
+/*
+
+This script is called when a player chooses yes
+on the ask to rest converstion that beds have. It checks
+to see what room the player is in and if they are in the Suite,
+it modifies some variables in order for this script to work
+properly since the Suite Bed is activited by clicking on not
+on using an item.
+
+A Local Variable "RSA_BedUse" is set to 1 so that players rest
+is not cancelled. If they object they used to activate the script
+was a "BedCot" this variable is set to 2. In the resting scritp,
+this will be used for checking if their sleep should be interrupted
+by rats, etc. "RSA_BedUse" could be set to 3 as well for resting
+in the Suite for other purposes.
+
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Russell S. Ahlstrom
+//:: Created On: July 11, 2002
+//:://////////////////////////////////////////////
+
+#include "pri_inc"
+
+void main()
+{
+object oRoom = OBJECT_SELF;
+string sName = GetTag(oRoom);
+string sDoor = "RoomDoor";
+
+//If more rooms added with different roomdoor tags, add here
+
+if (sName == "KingSizeBed") sDoor = "SuiteRoomDoor";
+
+//End of different roomdoor tags
+
+object oDoor = GetNearestObjectByTag(sDoor);
+object oSleeper = GetLastUsedBy();
+
+//If other beds use a trigger add them to this list as well
+
+if (sName == "KingSizeBed") oSleeper = GetClickingObject();
+
+//End of Trigger list
+
+if (GetIsPC(oSleeper))
+ {
+  ActionCloseDoor(oDoor);
+  SetLocked(oDoor, TRUE);
+  SetLocalInt (oSleeper, "RSA_BedUse", 1);
+
+  //Add Different Types of Beds here
+
+  if (sName == "BedCot") SetLocalInt (oSleeper, "RSA_BedUse", iRSA_POORBED);
+  if (sName == "KingSizeBed") SetLocalInt (oSleeper, "RSA_BedUse", iRSA_RICHBED);
+  if (sName == "Bed") SetLocalInt (oSleeper, "RSA_BedUse", iRSA_NORMBED);
+  if (sName == "suitebed")
+  {
+   object oGuestBed = GetNearestObjectByTag("suitebed", oSleeper);
+   DestroyObject(oGuestBed);
+   SetLocalInt (oSleeper, "RSA_BedUse", iRSA_NORMBED);
+  }
+
+  //End add different types of beds
+
+  AssignCommand(oSleeper, ActionRest());
+ }
+}