ROOM	
	ID 116
	NAME "SB Party Rm 2"
	PICT "garden5.gif"
	ARTIST "Tom"
	PICTURE ID 2 NAME "arrowl.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 3 NAME "arrowr.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 4 NAME "scpty2bg.gif" TRANSCOLOR 255 ENDPICTURE
	DOOR
		ID 5
		DONTMOVEHERE
		DEST 119
		OUTLINE 446,354  509,355  509,382  446,382
		LOC 477,368
		PICTS 3,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 4
		DONTMOVEHERE
		DEST 115
		OUTLINE 2,350  56,350  56,382  2,382
		LOC 29,366
		PICTS 2,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 1
		OUTLINE 21,10  39,10  39,29  21,29
		LOC 257,163
		PICTS 4,0,0 ENDPICTS
		SCRIPT
ON ENTER {
"This room contains some scripts to ease party room set up" ROOMMSG
"Type ;help to get instructions for the scripts" ROOMMSG
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF
}
ON OUTCHAT {
{ "$1" grepsub textsave = textsave text = 0 counter =
whome whopos yme = xme =
{ "$2" grepsub text = counter ++ } { text "(.)(.*)" grepstr } while
10 y = 271 counter 2 / 30 * - x =
{ 15 x -= } counter 2 % IF
{ "tombann" "$1" grepsub & x y addlooseprop
"$2" grepsub textsave =  30 x +=  }
{ textsave "(.)(.*)" grepstr } while
"" CHATSTR =
} CHATSTR lowercase ";named (.*)" GREPSTR IF
{ mousepos y = x = y 10 * 38 / c = "" CHATSTR =
"dimthisroomto " c itoa & SAY } CHATSTR ";lights" == IF
{ 0 ME setspotstate } CHATSTR ";propson" == IF
{ 1 ME setspotstate } CHATSTR ";propsoff" == IF
{
";named <message> ...........................to hang a message" LOGMSG
";lights...to control light levels..lights set to mouse height" LOGMSG
";propson................to hang the prop gif over the room " LOGMSG
";propsoff................to remove the prop gif over the room " LOGMSG
} CHATSTR ";help" == IF
}
ON INCHAT {
{ "$1" grepsub atoi  dimroom } CHATSTR "dimthisroomto (.*)" GREPSTR IF
}
		ENDSCRIPT
		ENDDOOR
	ENDROOM