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