ROOM
	ID 140
	NAME "Random Ambient Sounds"
	PICT "alistorm.gif"
	ARTIST "Alissa"
	PICTURE ID 1 NAME "arrowll.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 2 NAME "arrowrr.gif" TRANSCOLOR 56 ENDPICTURE
	SPOT
		ID 1
		NAME "Random Ambient Sounds"
		DONTMOVEHERE
		SHOWNAME
		OUTLINE 181,3  313,3  313,30  181,30
		LOC 247,10
		SCRIPT
;~MediaList~;thund1,thund2,thund3,thund4		
ON ENTER { 100 ME SETALARM  "Say s-off to turn ambient sounds off,
say s-on to turn them back on" LOCALMSG }
ON ALARM { 1500 RANDOM howlong = 500 howlong +=
; This will play the sounds with timed intervals of no less that 500 ticks and
; no more that 2000 ticks apart. Changing the values above will alter the timing
[
"thund1"
"thund2"
"thund3"
"thund4"
] list = list LENGTH cnt =
{ list cnt RANDOM GET SOUND howlong ME SETALARM } 0 ME GETSPOTSTATE == IF
}
ON OUTCHAT {
{ 1 ME SETSPOTSTATELOCAL "Ambient Sounds Off" LOGMSG "" CHATSTR = }
CHATSTR "s-off" == IF
{ 0 ME SETSPOTSTATELOCAL 10 ME SETALARM "Ambient Sounds On" LOGMSG "" CHATSTR = }
CHATSTR "s-on" == IF
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 4
		DONTMOVEHERE
		DEST 159
		OUTLINE 4,4  56,4  56,23  4,23
		LOC 29,13
		PICTS 1,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 5
		DONTMOVEHERE
		DEST 203
		OUTLINE 453,4  508,4  508,23  453,23
		LOC 483,13
		PICTS 2,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	ENDROOM