ROOM
	ID 314
	NAME "   The Haunting"
	PICT "hauntedgate1.gif"
	PICTURE ID 7 NAME "hwhaunt1.gif" ENDPICTURE
	PICTURE ID 8 NAME "blank.gif" ENDPICTURE
	PICTURE ID 9 NAME "lghtngl1.gif" TRANSCOLOR 56 ENDPICTURE
	PICTURE ID 10 NAME "lghtngl2.gif" TRANSCOLOR 56 ENDPICTURE
	SPOT
		ID 1
		DONTMOVEHERE
		OUTLINE 270,137  292,137  292,156  270,156
		LOC 281,146
		PICTS 0,0,0 7,0,0 ENDPICTS
		SCRIPT
ON OUTCHAT { { O ME SETSPOTSTATELOCAL }
{ 1 ME SETSPOTSTATELOCAL } 1 ME GETSPOTSTATE == IFELSE
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 2
		DONTMOVEHERE
		OUTLINE 256,0  326,0  326,40  256,40
		LOC 291,20
		PICTS 8,0,0 9,0,0 10,0,0 ENDPICTS
		SCRIPT
ON SELECT { light GLOBAL
{ light GLOBAL "off" light = "lightning is off" STATUSMSG }
{ light GLOBAL "on" light = 15 ME SETALARM "lightning is on" STATUSMSG } light "on" == IFELSE
}
ON ENTER { light GLOBAL "on" light = 500 RANDOM ME SETALARM }
ON OUTCHAT { { 0 ME SETSPOTSTATELOCAL light GLOBAL "off" light = } CHATSTR "lightningoff" == IF
{ 0 ME SETSPOTSTATELOCAL light GLOBAL "on" light = 15 ME SETALARM } CHATSTR "lightningon" == IF
}
;~MediaList~;thund1,thund2,thund3,thund4
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 1600 RANDOM ME SETALARM } light GLOBAL "on" light == IF
}
ON LEAVE { light GLOBAL "off" light = }
		ENDSCRIPT
		ENDDOOR
	DOOR
		ID 4
		DEST 315
		OUTLINE 251,128  315,128  315,185  251,185
		LOC 283,156
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	ENDROOM