;Alan's room lock script.
;Set the room to 'private'.
;Install the following script in a spot and make it 'lockable':
ON ENTER
{
	"@500,10 Click here or type 'lock' or 'unlock' to lock or unlock the room." LOCALMSG
}

ON OUTCHAT
{
	{
		{ "@500,10 The room is already locked." LOCALMSG } { ME SELECT } ME ISLOCKED IFELSE
	"" CHATSTR =
	} CHATSTR "lock" == IF
;
	{
		{ ME SELECT } { "@500,10 The room is already unlocked." LOCALMSG } ME ISLOCKED IFELSE
	"" CHATSTR =
	} CHATSTR "unlock" == IF
}

ON SELECT
{
	{ ME UNLOCK
	"@500,10 Room is Unlocked" ROOMMSG } { ME LOCK
	"@500,10 Room is Locked" ROOMMSG
	} ME ISLOCKED IFELSE
}


;If you want to know in another room whether the lockable room is locked or not
;set the destination in the 'lockable door' in the lockable room to the other room.
;Create a 'shutable' door in the other room with the lockable room as the destination.