ROOM ID 116 NAME "SB Party Rm 2" PICT "pal60.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 "sbpartrm2.gif" TRANSCOLOR 0 ENDPICTURE DOOR ID 3 DONTMOVEHERE DEST 338 OUTLINE 449,357 507,357 507,379 449,379 LOC 480,370 PICTS 6,0,0 ENDPICTS SCRIPT ON INCHAT { nDoIt GLOBAL nDoIt EXEC } ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF } ENDSCRIPT ENDDOOR DOOR ID 2 DONTMOVEHERE DEST 115 OUTLINE 4,356 58,356 58,380 4,380 LOC 31,368 PICTS 5,0,0 ENDPICTS ENDDOOR SPOT ID 1 OUTLINE 9,6 27,6 27,22 9,22 LOC 256,154 PICTS 7,0,0 8,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 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 ";help" == IF } ON INCHAT { { "$1" grepsub atoi dimroom } CHATSTR "dimthisroomto (.*)" GREPSTR IF } ENDSCRIPT ENDSPOT ENDROOM