Initial upload

Initial upload.

_module/nss/pri_roomsfull.nss

@@ -0,0 +1,66 @@
+//::///////////////////////////////////////////////
+//:: Reports to DM which rooms are full
+//:: pri_roomsfull
+//:: Copyright (c) 2002 Shepherd Software Inc.
+//:://////////////////////////////////////////////
+/*
+
+Script is called from DM InnKeeper Options. The Local
+Variables of the InnKeeper are scanned to determine which
+rooms are full. If the room is full, that room is added to
+a string. After all the rooms have been checked the string
+is sent to the DM in a private message. Rooms can than be
+reset as needed.
+
+*/
+//:://////////////////////////////////////////////
+//:: Created By: Russell S. Ahlstrom
+//:: Created On: July 20, 2002
+//:://////////////////////////////////////////////
+
+#include "pri_inc"
+#include "pri_text"
+
+void main()
+{
+object oPC = GetPCSpeaker();
+
+int iWhatRoom = 1;
+
+string sRoomsFull = "";
+
+GetInnArea(oPC);
+
+int iNumberPoor = GetLocalInt(oPC, "RSA_NumberPoor");
+int iNumberNorm = GetLocalInt(oPC, "RSA_NumberNorm");
+
+string sInnKeeper = GetLocalString(oPC, "RSA_InnKeeper");
+
+object oInnKeeper = GetObjectByTag(sInnKeeper);
+
+int iSuite = GetLocalInt(oInnKeeper, "RSA_FullSuite");
+int iNormal = GetLocalInt(oInnKeeper, "RSA_Normal_1");
+int iPoor = GetLocalInt(oInnKeeper, "RSA_Poor_1");
+
+if (iSuite > 0) sRoomsFull = "Suite Full";
+
+while (iWhatRoom <= iNumberNorm)
+{
+ if (iNormal == 1) sRoomsFull = sRoomsFull + " Regular Room "+IntToString(iWhatRoom)+" Full";
+ iWhatRoom++;
+ iNormal = GetLocalInt(oInnKeeper, "RSA_Normal_"+IntToString(iWhatRoom));
+}
+
+iWhatRoom = 1;
+
+while (iWhatRoom <= iNumberPoor)
+{
+ if (iPoor == 1) sRoomsFull = sRoomsFull + " Cheap Room "+IntToString(iWhatRoom)+" Full";
+ iWhatRoom++;
+ iPoor = GetLocalInt(oInnKeeper, "RSA_Poor_"+IntToString(iWhatRoom));
+}
+
+if (sRoomsFull == "") sRoomsFull = ALLEMPTY;
+
+SendMessageToPC(oPC, sRoomsFull);
+}