ROOM	
	ID 96
	NOCYBORGS
	NAME "Dimmer Switch"
	PICT "cyberoom.gif"
	PICTURE ID 1 NAME "arrowr.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 2 NAME "arrowl.gif" TRANSCOLOR 56 ENDPICTURE
	SPOT
		ID 1
		OUTLINE 6,366  22,366  22,378  6,378
		LOC 14,372
		SCRIPT
ON INCHAT
{ lstat GLOBAL CHATSTR lstat = 30 ME SETALARM }
ON ALARM{
lev GLOBAL
lstat GLOBAL
{ 0 lev = } lstat "light" == IF
{ 60 lev = } lstat "dim" == IF
{ 40 lev = } lstat "dark" == IF
{ 20 lev = } lstat "black" == IF
lev DIMROOM
} }
ON ENTER
{
{ "To dim lights, say..."   STATUSMSG  } 300 ALARMEXEC
{ " \"dim\", \"dark\", \"black\", or \"light\"."  STATUSMSG  }  500  ALARMEXEC
}
ON LEAVE {
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 3
		OUTLINE 10,187  24,187  24,199  10,199
		LOC 17,193
		ENDSPOT
	DOOR
		ID 4
		DONTMOVEHERE
		DEST 92
		OUTLINE 444,3  509,3  510,29  444,29
		LOC 476,16
		PICTS 1,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 5
		DONTMOVEHERE
		DEST 111
		OUTLINE 3,2  65,1  65,31  3,33
		LOC 34,16
		PICTS 2,0,0 ENDPICTS
		ENDDOOR
	ENDROOM