42 lines
1.3 KiB
Plaintext
42 lines
1.3 KiB
Plaintext
//::///////////////////////////////////////////////
|
|
//:: Close and locks main door after all guests in room.
|
|
//:: pri_guestclose
|
|
//:: Copyright (c) 2002 Shepherd Software Inc.
|
|
//:://////////////////////////////////////////////
|
|
/*
|
|
|
|
Player calls this script from a Butler conversation.
|
|
The butler closes and locks the door so that no more
|
|
guests can enter the suite.
|
|
|
|
*/
|
|
//:://////////////////////////////////////////////
|
|
//:: 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 sLockDoor = GetLocalString(oPC, "RSA_ButDoorLock");
|
|
|
|
object oButler = GetObjectByTag(sButler);
|
|
object oWayPoint = GetObjectByTag("POST_"+sButler);
|
|
|
|
AssignCommand(oButler, ClearAllActions());
|
|
AssignCommand(oButler, ActionSpeakString(sLockDoor));
|
|
AssignCommand(oButler, ActionCloseDoor(oDoor));
|
|
SetLocked(oDoor, TRUE);
|
|
SetLocalInt(oButler, "RSA_Guests", 2);
|
|
AssignCommand(oButler, ActionMoveToObject(oWayPoint));
|
|
AssignCommand(oButler, ActionDoCommand(SetFacing(GetFacing(oWayPoint))));
|
|
}
|