ROOM ID 182 NOPAINTING NAME "Release MuzikMakr" PICT "Rjbak5.gif" ARTIST "lion hisself" PICTURE ID 27 NAME "Rmaxi.gif" ENDPICTURE PICTURE ID 28 NAME "Rc01.gif" ENDPICTURE PICTURE ID 29 NAME "Rc02.gif" ENDPICTURE PICTURE ID 30 NAME "Rc03.gif" ENDPICTURE PICTURE ID 32 NAME "Rc04.gif" ENDPICTURE PICTURE ID 34 NAME "Rc05.gif" ENDPICTURE PICTURE ID 35 NAME "Rc06.gif" ENDPICTURE PICTURE ID 36 NAME "Rc07.gif" ENDPICTURE PICTURE ID 37 NAME "Rc08.gif" ENDPICTURE PICTURE ID 38 NAME "Rc09.gif" ENDPICTURE PICTURE ID 39 NAME "Rc10.gif" ENDPICTURE PICTURE ID 40 NAME "Rmenu1.gif" ENDPICTURE PICTURE ID 41 NAME "Rmenu2.gif" ENDPICTURE PICTURE ID 42 NAME "Rmenu3.gif" ENDPICTURE PICTURE ID 43 NAME "Rmenu4.gif" ENDPICTURE PICTURE ID 44 NAME "Rmenu5.gif" ENDPICTURE PICTURE ID 45 NAME "Rmenu6.gif" ENDPICTURE PICTURE ID 46 NAME "Rmenu7.gif" ENDPICTURE PICTURE ID 47 NAME "Rmenu8.gif" ENDPICTURE PICTURE ID 48 NAME "Rmenu9.gif" ENDPICTURE PICTURE ID 49 NAME "Rmenu10.gif" ENDPICTURE PICTURE ID 50 NAME "Rmmenu.gif" ENDPICTURE PICTURE ID 51 NAME "Rblank.gif" ENDPICTURE PICTURE ID 52 NAME "Rmmbut.gif" ENDPICTURE PICTURE ID 1 NAME "arrowll.gif" TRANSCOLOR 0 ENDPICTURE PICTURE ID 2 NAME "arrowrr.gif" TRANSCOLOR 0 ENDPICTURE SPOT ID 76 NAME "menu button" DONTMOVEHERE OUTLINE 438,336 494,336 494,356 438,356 LOC 466,346 PICTS 40,-27,-192 41,-27,-192 42,-27,-192 43,-27,-192 44,-27,-192 45,-27,-192 46,-27,-192 47,-27,-192 48,-27,-192 49,-27,-192 50,-27,-192 51,0,0 ENDPICTS SCRIPT ON ENTER { tog GLOBAL togg Global 0 togg = "------------------------------------------------------" STATUSMSG "MuzikMakr by lion...feel free to distribute and modify" STATUSMSG "------------------------------------------------------" STATUSMSG " " STATUSMSG ( 1 72 SETSPOTSTATELOCAL 1 74 SETSPOTSTATELOCAL 11 76 SETSPOTSTATELOCAL 10 77 SETSPOTSTATELOCAL 0 tog = } NBRROOMUSERS 1 == IF } ON SELECT { tog GLOBAL togg GLOBAL left GLOBAL { 77 GETSPOTSTATE 76 SETSPOTSTATELOCAL { 1 tog = 77 GETSPOTSTATE 10 * left = 0 77 SETSPOTSTATELOCAL } { 0 tog = 10 76 SETSPOTSTATELOCAL 0 77 SETSPOTSTATELOCAL 0 left = } tog 0 == IFELSE } 1 togg == IF } ENDSCRIPT ENDSPOT SPOT ID 77 NAME "select button" DONTMOVEHERE OUTLINE 466,311 492,311 492,330 466,330 LOC 479,320 PICTS 28,-101,-166 29,-101,-166 30,-101,-166 32,-101,-166 34,-101,-166 35,-101,-166 36,-101,-166 37,-101,-166 38,-101,-166 39,-101,-166 51,0,0 ENDPICTS SCRIPT ON SELECT { ; num = number of menus in the jukebox 10 num = ; cnt = number of songs per menu in the jukebox 10 cnt = tog Global togg GLOBAL ; { { { 0 77 SETSPOTSTATELOCAL } { 77 GETSPOTSTATE 1 + 77 SETSPOTSTATELOCAL } num 1 - 77 GETSPOTSTATE == IFELSE } { { 0 ME SETSPOTSTATELOCAL } { 77 GETSPOTSTATE 1 + 77 SETSPOTSTATELOCAL } cnt 1 - 77 GETSPOTSTATE == IFELSE } 0 tog == IFELSE } 1 togg == IF } ENDSCRIPT ENDSPOT SPOT ID 74 NAME "play button" DONTMOVEHERE OUTLINE 412,311 459,311 459,330 412,330 LOC 435,320 PICTS 27,-3,-128 51,0,0 ENDPICTS SCRIPT ON SELECT { tog GLOBAL left GLOBAL togg GLOBAL ; enter up to 10 song filenames [ "songname1.wav" "songname2.wav" etc ] per list [ "radio.mid" ] list0 = [ "redstroke.mid" ] list10 = [ "tearsinhvn.mid" ] list20 = [ "the_ch_1.mid" ] list30 = [ "thedance.mid" ] list40 = [ "until_it_sleeps.mid" ] list50 = [ "Imagine.mid" ] list60 = [ "purplerain.mid" ] list70 = [ "aslongasyouloveme.mid" ] list80 = [ "wonderfultonite.mid" ] list90 = {{ { { list0 77 GETSPOTSTATE GET SOUND } { 60 ME SETALARM } list0 LENGTH 77 GETSPOTSTATE - 0 > IFELSE } 00 left == IF { { list10 77 GETSPOTSTATE GET SOUND } { 60 ME SETALARM } list10 LENGTH 77 GETSPOTSTATE - 0 > IFELSE } 10 left == IF { { list20 77 GETSPOTSTATE GET SOUND } { 60 ME SETALARM } list20 LENGTH 77 GETSPOTSTATE - 0 > IFELSE } 20 left == IF { { list30 77 GETSPOTSTATE GET SOUND } { 60 ME SETALARM } list30 LENGTH 77 GETSPOTSTATE - 0 > IFELSE } 30 left == IF { { list40 77 GETSPOTSTATE GET SOUND } { 60 ME SETALARM } list40 LENGTH 77 GETSPOTSTATE - 0 > IFELSE } 40 left == IF { { list50 77 GETSPOTSTATE GET SOUND } { 60 ME SETALARM } list50 LENGTH 77 GETSPOTSTATE - 0 > IFELSE } 50 left == IF { { list60 77 GETSPOTSTATE GET SOUND } { 60 ME SETALARM } list60 LENGTH 77 GETSPOTSTATE - 0 > IFELSE } 60 left == IF { { list70 77 GETSPOTSTATE GET SOUND } { 60 ME SETALARM } list70 LENGTH 77 GETSPOTSTATE - 0 > IFELSE } 70 left == IF { { list80 77 GETSPOTSTATE GET SOUND } { 60 ME SETALARM } list80 LENGTH 77 GETSPOTSTATE - 0 > IFELSE } 80 left == IF { { list90 77 GETSPOTSTATE GET SOUND } { 60 ME SETALARM } list90 LENGTH 77 GETSPOTSTATE - 0 > IFELSE } 90 left == IF } ; { "push the CHANGE MENU button and select a song first please" LOGMSG } 1 tog == IFELSE } 1 togg == IF } ON ALARM { "sorry...no song installed here" LOGMSG } ENDSCRIPT ENDSPOT SPOT ID 73 NAME "help button" DONTMOVEHERE OUTLINE 373,337 426,337 426,357 373,357 LOC 399,347 SCRIPT ON SELECT { togg GLOBAL { "--------see your log---------" STATUSMSG 300 ME SETALARM "--------------------------------------------------------" LOGMSG "Use the ORANGE select key to change selections..." LOGMSG "Use the CHANGE MENU key to toggle between menus..." LOGMSG "Use the GREEN play key to download and then again to play songs..." LOGMSG "The RED stop button stops midis..." LOGMSG "Push the \"by lion\" button to hide the player....enjoy....lion..." LOGMSG "--------------------------------------------------------" LOGMSG } 1 togg == IF } ON ALARM { " " STATUSMSG } ENDSCRIPT ENDSPOT SPOT ID 75 NAME "stop button" DONTMOVEHERE OUTLINE 370,311 407,311 407,331 370,331 LOC 388,321 SCRIPT ON SELECT { MIDISTOP } ENDSCRIPT ENDSPOT SPOT ID 72 NAME "MM button" DONTMOVEHERE OUTLINE 442,361 494,361 494,381 442,381 LOC 468,371 PICTS 51,0,0 52,0,0 ENDPICTS SCRIPT ON SELECT { tog GLOBAL togg GLOBAL { 0 tog = 1 togg = 0 72 SETSPOTSTATELOCAL 0 74 SETSPOTSTATELOCAL 10 76 SETSPOTSTATELOCAL 0 77 SETSPOTSTATELOCAL } { 0 togg = 1 72 SETSPOTSTATELOCAL 1 74 SETSPOTSTATELOCAL 11 76 SETSPOTSTATELOCAL 10 77 SETSPOTSTATELOCAL } 0 togg == IFELSE } ENDSCRIPT ENDSPOT DOOR ID 7 DONTMOVEHERE DEST 203 OUTLINE 7,6 63,6 63,28 7,28 LOC 33,17 PICTS 1,0,0 ENDPICTS ENDDOOR DOOR ID 8 DONTMOVEHERE DEST 138 OUTLINE 450,4 505,4 505,24 450,24 LOC 479,14 PICTS 2,0,0 ENDPICTS SCRIPT ON INCHAT { nDoIt GLOBAL nDoIt EXEC } ON ENTER { { CLEARLOOSEPROPS PAINTCLEAR } NBRROOMUSERS 2 < IF } ENDSCRIPT ENDDOOR ENDROOM