ROOM
	ID 93
	NAME "Dressing Room"
	PICT "lounge.gif"
	PICTURE ID 1 NAME "arrowll.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 2 NAME "arrowrr.gif" TRANSCOLOR 56 ENDPICTURE
	SPOT
		ID 1
		OUTLINE 13,357  34,357  34,380  13,380
		LOC 23,368
		SCRIPT
ON OUTCHAT {
nodressup GLOBAL
{
"$1" GREPSUB cmd =
} {
CHATSTR cmd =
} CHATSTR "^@[0-9]*,[0-9]* (.*)" GREPSTR IFELSE {
1 nodressup =
"No Dressup for You" STATUSMSG
"" CHATSTR =
} cmd "^nodress" GREPSTR IF
{
0 nodressup =
"Now You Can Be Dressed" STATUSMSG
"" CHATSTR =
} cmd "^redress" GREPSTR IF
{
{
	NBRUSERPROPS n =
	{
0 i =
";pp"
{
" " i USERPROP ITOA & &
i ++
} { i n < } WHILE
WHOTARGET PRIVATEMSG
	} n IF
} {
	 "you have to whisper it" statusmsg
} WHOTARGET IFELSE
0 nodressup =
"" chatstr =
} cmd "dressup" == IF
{
NAKED
"" CHATSTR =
} cmd "^undress" GREPSTR IF
{
"To dress someone, whisper \"dressup\"" statusmsg { "To avoid BEING dressed, say \"nodress\"" statusmsg } 60 alarmexec { "To undo \"nodress,\" type \"redress\"" statusmsg } 120 alarmexec { "Whisper to only be dressed by your friend" statusmsg } 180 alarm
;{ "\"halt\" and \"resume\" for entire room" STATUSMSG } 220 alarmexec } ISWIZARD IF
;{ "Caution: Risque props may get you disconnected without warning!!" logmsg } 240 alarmexec
"" chatstr =
} cmd LOWERCASE "^help" GREPSTR IF
{
1 ME SETSPOTSTATE
"Dressups Halted" STATUSMSG
"" CHATSTR =
} ISWIZARD cmd "halt" == AND IF
{
0 ME SETSPOTSTATE
"Dressups Resumed" STATUSMSG
"" CHATSTR =
} ISWIZARD cmd "resume" == AND IF
}
ON INCHAT {
nodressup GLOBAL
{
0 ME SETSPOTSTATE
} ME GETSPOTSTATE NBRROOMUSERS 2 < AND IF {
{
"[ " "$1" GREPSUB & " ] SETPROPS" &
STRTOATOM EXEC
} {
"Sorry you can't dress me up" WHOCHAT PRIVATEMSG } nodressup NOT
WHOTARGET NOT
WHOTARGET WHOCHAT == OR AND
ME GETSPOTSTATE NOT AND IFELSE
} CHATSTR ";pp (-*[0-9].*)$" GREPSTR
WHOCHAT WHOME == NOT AND IF
}
ON ENTER {
{ "To dress someone, whisper \"dressup\"" statusmsg } 60 alarmexec { "To avoid BEING dressed, say \"nodress\"" statusmsg } 120 alarmexec { "To undo \"nodress,\" type \"redress\"" statusmsg } 180 alarmexec
{
;{ "\"halt\" and \"resume\" for entire room" STATUSMSG } 220 alarmexec } ISWIZARD IF
;{ "Caution: This is an adult dressing room Adults over 18 only!!" logmsg } 240 alarmexec
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 3
		OUTLINE 11,146  29,146  29,165  11,165
		LOC 20,155
		ENDSPOT
	DOOR
		ID 4
		DONTMOVEHERE
		DEST 298
		OUTLINE 3,2  59,2  59,34  3,34
		LOC 31,18
		PICTS 1,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 5
		DONTMOVEHERE
		DEST 217
		OUTLINE 452,1  510,1  510,32  452,32
		LOC 481,16
		PICTS 2,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER {
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF
}
		ENDSCRIPT
		ENDDOOR
	ENDROOM