ROOM
	ID 135
	NAME "Auto Dimroom"
	PICT "pal21.gif"
	PICTURE ID 1 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 2 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE
	SPOT
		ID 1
		OUTLINE 469,9  499,9  499,28  469,28
		LOC 484,18
		SCRIPT
ON ENTER { ptime GLOBAL hr GLOBAL 10 ME SETALARM
{
{ DATETIME 86400 % ti = ti 3600 / 5 - hr = }
{ DATETIME 2147483647 + 86400 % 11647 + 86400 % ti = ti 3600 / hr = }
DATETIME 0 >= IFELSE
{ 24 hr -= } hr 24 > IF
{ 24 hr += } hr 0 < IF
}
ptime DEF }
ON ALARM { ptime GLOBAL hr GLOBAL ptime EXEC
[ 50 50 50 50 60 70 80 90 0 0 0 0 0 0 0 0 0 90 90 80 70 60 50 50 ]
hr_arr = hr_arr hr GET tm = tm DIMROOM
12000 ME SETALARM
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 2
		NAME "Click here for explanation of script"
		DONTMOVEHERE
		SHOWNAME
		OUTLINE 180,6  359,6  359,35  180,35
		LOC 269,17
		SCRIPT
ON SELECT {
"This room dims depending on the time of day, and re-checks about every 10 minutes" LOCALMSG
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 3
		DONTMOVEHERE
		DEST 707
		OUTLINE 5,352  71,352  71,380  5,380
		LOC 35,365
		PICTS 1,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 4
		DONTMOVEHERE
		DEST 122
		OUTLINE 445,354  505,354  505,381  445,381
		LOC 477,367
		PICTS 2,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER {
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF
}
		ENDSCRIPT
		ENDDOOR
	ENDROOM