ROOM ID 115 NAME "SB Party Rm 1" PICT "pal59.gif" ARTIST "Jade" PICTURE ID 5 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 6 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 7 NAME "blank.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 8 NAME "sbpartrm1.gif" TRANSCOLOR 0 ENDPICTURE SPOT ID 1 OUTLINE 6,7 23,7 23,27 6,27 LOC 291,251 PICTS 7,0,0 8,0,0 ENDPICTS SCRIPT ON ENTER { "This room contains some scripts to ease birthday party room set up" LOCALMSG "Type ;help to get instructions for the scripts" LOCALMSG 0 ME SETSPOTSTATELOCAL } ON OUTCHAT { { mousepos y = x = y 10 * 38 / c = "" CHATSTR = "dimthisroomto " c itoa & SAY } CHATSTR ";lights" == IF { 1 ME setspotstate } CHATSTR ";propson" == IF { 0 ME setspotstate } CHATSTR ";propsoff" == IF { ";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 = } CHATSTR ";help" == IF } ON INCHAT { { "$1" grepsub atoi dimroom } CHATSTR "dimthisroomto (.*)" GREPSTR IF } ENDSCRIPT ENDSPOT DOOR ID 5 DONTMOVEHERE DEST 259 OUTLINE 5,356 57,356 57,380 5,380 LOC 31,368 PICTS 5,0,0 ENDPICTS ENDDOOR DOOR ID 6 DONTMOVEHERE DEST 116 OUTLINE 449,356 506,356 506,379 449,379 LOC 480,367 PICTS 6,0,0 ENDPICTS SCRIPT ON INCHAT { nDoIt GLOBAL nDoIt EXEC } ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF } ENDSCRIPT ENDDOOR ENDROOM