ROOM
	ID 233
	NOPAINTING
	NOCYBORGS
	NAME "Midi Bar"
	PICT "blpal10.gif"
	PICTURE ID 1 NAME "midibar.gif" ENDPICTURE
	PICTURE ID 2 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE
	PICTURE ID 3 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE
	SPOT
		ID 1
		DONTMOVEHERE
		OUTLINE 150,281  401,281  401,331  150,331
		LOC 276,307
		PICTS 1,0,0 ENDPICTS
		SCRIPT
;~MediaList~;dustwind1.mid,qwhisper.mid,carolbell.mid,better.mid,qepona.mid,morning.mid,crazydmnd.mid
ON ENTER { ct GLOBAL 0 ct = }
ON SELECT { ct GLOBAL
MOUSEPOS POP 130 - 50 / bt =
[ "dustwind1" "carolbell" "better" "qwhisper" "qepona" "morning" "crazydmnd"
] midis =
{ midis ct GET { ".mid" + } IPTVERSION IF SOUND
} bt 1 == IF
{ midis ct GET { ".mid" + } IPTVERSION IF MIDIPLAY
} bt 0 == IF
{ bt 2 * 7 - ct +=
{ midis LENGTH ct = } ct -1 == IF
{ 0 ct = } ct midis LENGTH == IF
"Current midi is: " midis ct GET + LOCALMSG
} bt 2 > IF
{ "Instructions are in your log." LOCALMSG
"Use the < and > buttons to scroll through the midis on the jukebox." LOGMSG
"The down arrow will download the current midi to you." LOGMSG
"The new clients will play the midi when they click the d/l button if they have it already." LOGMSG
"The speaker button will play the current midi." LOGMSG
"The ? gives you this." LOGMSG
} bt 2 == IF
}
		ENDSCRIPT
		ENDSPOT
	DOOR
		ID 3
		DONTMOVEHERE
		DEST 264
		OUTLINE 3,3  58,3  58,26  3,26
		LOC 31,15
		PICTS 2,0,0 ENDPICTS
		ENDDOOR
	DOOR
		ID 5
		DONTMOVEHERE
		DEST 159
		OUTLINE 451,5  509,5  509,27  451,27
		LOC 481,16
		PICTS 3,0,0 ENDPICTS
		SCRIPT
ON INCHAT { nDoIt GLOBAL nDoIt EXEC }
ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF }
		ENDSCRIPT
		ENDDOOR
	ENDROOM