ROOM	
	ID 135
	NAME "Auto Dimroom"
	PICT "taterbed.gif"
	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
	DOOR
		ID 2
		NAME "Click here for explanation of script"
		DONTMOVEHERE
		SHOWNAME
		SHOWFRAME
		OUTLINE 32,24  211,24  211,46  32,46
		LOC 121,35
		SCRIPT
ON SELECT {
"This room dims depending on the time of day, and re-checks about every 10 minutes" LOCALMSG
}
ON LEAVE {
{ CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF
}
		ENDSCRIPT
		ENDDOOR
	ENDROOM