67 lines
1.8 KiB
Plaintext
67 lines
1.8 KiB
Plaintext
|
//::///////////////////////////////////////////////
|
||
|
|
//:: 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);
|
||
|
|
}
|