ROOM
	ID 96
	NOCYBORGS
	NAME "Dimmer Switch"
	PICT "cyberoom.gif"
	PICTURE ID 1 NAME "arrowrr.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 2 NAME "arrowll.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
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 2
		DONTMOVEHERE
		DEST 169
		OUTLINE 447,4  508,4  508,30  447,30
		LOC 479,17
		PICTS 1,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 3
		DONTMOVEHERE
		DEST 322
		OUTLINE 3,4  65,4  65,29  3,29
		LOC 34,18
		PICTS 2,0,0 ENDPICTS
		ENDDOOR
	ENDROOM