#bmled=5#bmimage=6#bmtext=7#ledshape=0 ;belegt 0-11#musicshape=20#mainmenu=0#musicmenu=1#cdtower=2#maingad=0#musicgad=20#cdgad=40path$="MarcDrive:graphic/" ShowGadgetsInit_LED: Є path$+"LEDGadget0.0" ledw=Ѕ ledh=І  #bmled,ledw,ledh*2,6  #bmled,path$+"LEDGadget0.1"  0,0,ledw,ledh,0,ledh  #bmled,path$+"LEDGadget0.0",0  #bmimage,320,ledh,6  #bmtext,640,ledh,6  #musicshape+0,path$+"DiskMan"  #musicshape+1,path$+"CompactDisk" LEDGadget{gl,id,x,y,wid,text$}  ledw,ledh usedbm=  bwid=wid/6+1 rwid=bwid*6  n=0  1 cshape=#ledshape+n+2*id ,  #bmled  cshape,0,n*ledh,6,26 ,  #bmimage  9  cshape,0,0 ,  #bmled  cshape,28,n*ledh,9,26 ,  #bmimage  cshape,rwid-9,0 ,  #bmled  cshape,6,n*ledh,6,26 ,  #bmimage  blk=0  bwid-3  cshape,6+6*blk,0  blk ,  #bmtext  0  #bmtext  40,0  1+n ݁ text$  cshape,320+܏(text$)*4-rwid/2,0,rwid,8 ,  #bmimage  cshape,0,9  cshape,0,0,rwid,ledh  n cshape=#ledshape+2*id  gl,x,y,0,id,cshape,cshape+1 ,  usedbm  InvisibleGadget{gl,x,y,wid,hei,id} firstgad.l=.l( (gl)) newgad.l=(44,65537) .l newgad,firstgad .w newgad+4,x .w newgad+6,y .w newgad+8,wid .w newgad+10,hei .w newgad+12,0 .w newgad+14,1 .w newgad+16,1 .w newgad+38,id .l (gl),newgad ShowGadgets: Init_LED MainGadgets n=0  5  t$ LEDGadget{#mainmenu,n+#maingad,80,20+30*n,160,t$} nMainGadgets:$ "Game Start"$ "CD Tower"$ "Game Settings"$ "Leveleditor"$ "Go Multitask"$ "Exit" MusicGadgets 11,7 1,9#musicgadgets=11 n=0  #musicgadgets-1  x.w,y.w  t$ n>=2 B n<=7 ! flag=1 " flag=0  #musicmenu,x,y,flag,#musicgad+n,t$ n #musicmenu,#musicgad+2,musicorder.w=0playmode.w=0MusicGadgets:.w 10,128 : $ "Use all CDs".w 10,140 : $ "Use no CD ".w 10,158 : $ "Level-depended".w 10,170 : $ "Fist to Last ".w 10,182 : $ "Random order ".w 160,128 : $ "Play list ".w 160,140 : $ "Play current ".w 160,152 : $ "Song Prefatch".w 160,170 : $ "Load List".w 160,182 : $ "Save List".w 120,90 : $ "Main Menu" #musicmenu,111,10,$180,#musicgad+18,5,97 #musicmenu,204,10,$180,#musicgad+19,5,97#songs=21#maxsong=100plistlen=0 #musicmenu,#musicgad+18,0,1/#songs #musicmenu,#musicgad+19,0,1cssong=0cdsong=0 song$(#maxsong) plist(#maxsong)dummy=(plist()) SongNames n=0  #songs-1  song$(n) nSongNames:$ Silence$ Loader$ Marc Drive$ Steel Brain$ Rock$ AmigaTechno$ South$ AndreasPop$ Irx$ Soldier$ urowischn$ Hard Synth$ Level Complete$ Mixed Feelings$ Fission$ -----------$ Adobol$ Pas De Marc$ Ohrform$ Star Wars$ Twinkle Party n=0  9 InvisibleGadget{#musicmenu,12,10+n*10,96,7,#cdgad+n} InvisibleGadget{#musicmenu,212,10+n*10,96,7,#cdgad+n+10} n $200248 i.b=0  1 i,0,0,320,256,6,$80,"LEDGadgets",1,0, 0 ii=1 main_menuquit.b= i ev.l=  get_message quit ev 9get_message:  50,220  1,9 ݂ "Event Nr. ",ev," eingetreten!" ev B $40 id=  50,230 ݂ "Gadget Nr. ",id," getroffen!" idgroup=(id/20) locid=id 20  idgroup  #mainmenu  do_main  #musicmenu  do_music  #cdtower  do_cd   main_menu: i=1-i ,  i  i,0,1,320,255,$1808,"",9,9,#mainmenu  i,0  9  n=0  5 i,n+#maingad  n  ido_main:  locid  0  50,240 ݁ "Please wait" 7 50 ݁ " for updates!" 7 50  50,240 ݁ " "  1  music_menu  4 (.l( (i)) (.l( (1-i))  5 quit=  music_menu: i=1-i ,  i  i,0,1,320,255,$1808,"",9,2,#musicmenu  i,0  9  n=0  #musicgadgets-1 i,n+#musicgad  n i,#musicgad+18 i,#musicgad+19  #musicshape,122,23  source_tower  dest_tower  ido_music:  locid  0  plist()  n=0  #songs dummy=(plist()) plist()=n  n plistlen=#songs cdsong=0  dest_tower  1  plist() dummy=(plist()) plistlen=0 cdsong=0  dest_tower  5  playmode  0 playmode=1  1 playmode=0  2 playmode=1 lastid=#musicgad+6 i,lastid  #musicmenu,lastid, i,lastid    6  playmode  0 playmode=2  2 playmode=0  1 playmode=2 lastid=#musicgad+5 i,lastid  #musicmenu,lastid, i,lastid    10  main_menu  18 cssong=(.5+#songs* (#musicmenu,id))  source_tower  19 cdsong=(.5+plistlen* (#musicmenu,id))  dest_tower   locid>=2 B locid<=4 lastid=#musicgad+2+musicorder lastid=id  #musicmenu,id, i,id " i,lastid  #musicmenu,lastid, i,lastid musicorder=locid-2  seek_cd{n2}  plist() dummy=(plist())  n=0  n2-1 dummy=(plist())  n do_cd: locid<10 n2=cssong-4+locid n2>=0 B n2<#songs cdsong=0 dummy=(plist()) " seek_cd{cdsong-1} dummy=(plist()) plist()=n2 cdsong+1 plistlen+1  dest_tower " n2=cdsong-14+locid n2>=0 B n2=0 B n2<#songs  #musicshape+1,10,10+n*10 12,10+n*10,107,16+n*10,(n2) 11 +21  12,1+n*10 ݁ ܁(song$(n2),12) " 10,9+n*10,109,17+n*10,9 n2+1  n  1dest_tower: n2=cdsong-4 seek_cd{n2}  0 plistlen  #musicmenu,#musicgad+19,cdsong/plistlen,1/(plistlen+1) "  #musicmenu,#musicgad+19,0,1/(plistlen+1) i,#musicgad+19  n=0  9 n2>=0 B n2