ROOM
	ID 88
	NAME "Thunder & Lightning"
	PICT "alistorm.gif"
	ARTIST "Alissa"
	PICTURE ID 2 NAME "lghtlsm1.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 3 NAME "lghtlsm2.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 4 NAME "lghtngr1.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 5 NAME "lghtngr2.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 7 NAME "blank.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 8 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 9 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE
	SPOT
		ID 3
		OUTLINE 175,78  194,78  194,93  175,93
		LOC 184,85
		PICTS 7,0,0 2,0,0 3,0,0 ENDPICTS
		SCRIPT
;~MediaList~;thund1,thund2,thund3,thund4		
ON ENTER { "Info In your Log Window" LOCALMSG
"Say on to turn the Lightning on, say off to turn the Lightning off" LOGMSG
}
ON OUTCHAT { { 0 ME SETSPOTSTATELOCAL light GLOBAL "off" light = } CHATSTR "off" == IF
{ 0 ME SETSPOTSTATELOCAL light GLOBAL "on" light = 15 ME SETALARM } CHATSTR "on" == IF
}
ON ALARM { { [ "thund1" "thund2" "thund3" "thund4" ] 4 RANDOM GET SOUND
		0 i =
		10 RANDOM nfr =
		nfr ++
		 {
						{ 2 ME SETSPOTSTATELOCAL }
	{ 1 ME SETSPOTSTATELOCAL } ME GETSPOTSTATE 1 == IFELSE
			i ++
		} { i nfr < } WHILE
	0 ME SETSPOTSTATELOCAL 2400 RANDOM ME SETALARM } light GLOBAL "on" light == IF
}
		ENDSCRIPT
		ENDSPOT
	SPOT
		ID 2
		OUTLINE 70,64  94,64  94,83  70,83
		LOC 82,73
		PICTS 7,0,0 4,0,0 5,0,0 ENDPICTS
		SCRIPT
ON OUTCHAT { { 0 ME SETSPOTSTATELOCAL light GLOBAL "off" light = "lightning is off" STATUSMSG } CHATSTR "off" == IF
{ 0 ME SETSPOTSTATELOCAL light GLOBAL "on" light = 15 ME SETALARM "lightning is on" STATUSMSG } CHATSTR "on" == IF
}
ON ALARM { { [ "thund1" "thund2" "thund3" "thund4" ] 4 RANDOM GET SOUND
		0 i =
		10 RANDOM nfr =
		nfr ++
		 {
						{ 2 ME SETSPOTSTATELOCAL }
	{ 1 ME SETSPOTSTATELOCAL } ME GETSPOTSTATE 1 == IFELSE
			i ++
		} { i nfr < } WHILE
	0 ME SETSPOTSTATELOCAL 2400 RANDOM ME SETALARM } light GLOBAL "on" light == IF
; Sounds
; "thund1.wav-*"
; "thund2.wav-*"
; "thund3.wav-*"
; "thund4.wav-*"
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 4
		DONTMOVEHERE
		DEST 89
		OUTLINE 5,353  64,353  64,380  5,380
		LOC 35,367
		PICTS 8,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 5
		DONTMOVEHERE
		DEST 237
		OUTLINE 449,353  507,353  507,378  449,378
		LOC 482,364
		PICTS 9,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	ENDROOM