'edited, I cut all the previous and am posting this, I think I got it playing the'music, at least on my computer it dose.DEFLNG A-ZDIM Rpac%(8)DIM Lpac%(8)DIM Upac%(8)DIM Dpac%(8)DIM Hpac%(2) 'R + L y axis figuresDIM VUpac%(2) 'U y axis figuresDIM VDpac%(2) 'D y axis figuresSprite& = _LOADIMAGE("Pacy001.bmp", 32)Video& = _NEWIMAGE(640, 480, 32)SCREEN Video&GOSUB Setupcycle = 0: px = 100: py = 100: Dir = 2'//these are the text lines I addedLOCATE 20, 1: PRINT " Hello World, now just give me some dots to eat"LOCATE 25, 40: PRINT "eat this"LOCATE 28, 20: PRINT " EAT this too...................................."'-----------------------------------------------------code for soundvolume = 1 ' full volumegamestart = False ' no game yetintromusic = _SNDOPEN("pacman2.mid", "VOL") ' open intro music_SNDVOL intromusic, volume ' set music volume_SNDLOOP intromusic 'PRINT "This is my Music"DO _LIMIT 30 cycle = cycle + 1: IF cycle >= 31 THEN cycle = 1 GOSUB Getframe GOSUB Getkey GOSUB Checkbounds 'CLS 'in order to show the above text, needed to rem this SELECT CASE frame CASE 1 IF Dir = 1 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(0), VUpac%(0))-(Rpac%(1), VUpac%(1)) IF Dir = 2 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(0), Hpac%(0))-(Rpac%(1), Hpac%(1)) IF Dir = 3 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(0), VUpac%(1))-(Rpac%(1), VUpac%(0)) IF Dir = 4 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(1), Hpac%(0))-(Rpac%(0), Hpac%(1)) CASE 2 IF Dir = 1 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(2), VUpac%(0))-(Rpac%(3), VUpac%(1)) IF Dir = 2 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(2), Hpac%(0))-(Rpac%(3), Hpac%(1)) IF Dir = 3 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(2), VUpac%(1))-(Rpac%(3), VUpac%(0)) IF Dir = 4 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(3), Hpac%(0))-(Rpac%(2), Hpac%(1)) CASE 3 IF Dir = 1 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(4), VUpac%(0))-(Rpac%(5), VUpac%(1)) IF Dir = 2 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(4), Hpac%(0))-(Rpac%(5), Hpac%(1)) IF Dir = 3 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(4), VUpac%(1))-(Rpac%(5), VUpac%(0)) IF Dir = 4 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(5), Hpac%(0))-(Rpac%(4), Hpac%(1)) CASE 4 IF Dir = 1 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(6), VUpac%(0))-(Rpac%(7), VUpac%(1)) IF Dir = 2 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(6), Hpac%(0))-(Rpac%(7), Hpac%(1)) IF Dir = 3 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(6), VUpac%(1))-(Rpac%(7), VUpac%(0)) IF Dir = 4 THEN _PUTIMAGE (px, py)-(px + 27, py + 27), Sprite&, Video&, (Rpac%(7), Hpac%(0))-(Rpac%(6), Hpac%(1)) END SELECT _DISPLAYLOOP UNTIL _KEYDOWN(27)SCREEN 0_FREEIMAGE Video&_FREEIMAGE Sprite&SLEEPSYSTEM'---------------------- SUBS -----------------------------Checkbounds:IF px >= 610 THEN px = 610IF px <= 2 THEN px = 2IF py >= 450 THEN py = 450IF py <= 2 THEN py = 2RETURNGetkey:'----------- these 2 lines I added, CG gave me the code----------ox = x1oy = y1'---------------------------------------------------------'the key to directions U=1 E =2 S =3 W =4IF _KEYDOWN(18432) THEN '<---- up arrow key Dir = 1: py = py - 1END IFIF _KEYDOWN(19712) THEN '<---- right arrow key Dir = 2: px = px + 1END IFIF _KEYDOWN(20480) THEN '<---- down arrow key Dir = 3: py = py + 1END IFIF _KEYDOWN(19200) THEN '<---- left arrow key Dir = 4: px = px - 1END IFRETURNGetframe:'--------------and I had to add this, based on what CG gave meLINE (ox, oy)-(ox + 94, oy + 94), 0, BF'-----------------------------------------------SELECT CASE cycle CASE 5, 10, 15, 20, 25, 30 frame = frame + 1: IF frame >= 5 THEN frame = 1END SELECTRETURNSetup:'right facing pac man x axisRpac%(0) = 0Rpac%(1) = 55Rpac%(2) = 57Rpac%(3) = 112Rpac%(4) = 114Rpac%(5) = 169Rpac%(6) = 171Rpac%(7) = 226'left facing pac man x axisLpac%(0) = 55Lpac%(1) = 0Lpac%(2) = 112Lpac%(3) = 57Lpac%(4) = 169Lpac%(5) = 114Lpac%(6) = 226Lpac%(7) = 171'up facing pac man x axisUpac%(0) = 0Upac%(1) = 55Upac%(2) = 57Upac%(3) = 112Upac%(4) = 114Upac%(5) = 169Upac%(6) = 171Upac%(7) = 226'down facing pac man x axisDpac%(0) = 0Dpac%(1) = 55Dpac%(2) = 57Dpac%(3) = 112Dpac%(4) = 114Dpac%(5) = 169Dpac%(6) = 171Dpac%(7) = 226'right + left facing pac y axis'sHpac%(0) = 0Hpac%(1) = 55'down facing pac y axis'sVDpac%(0) = 57VDpac%(1) = 112'up facing pac y axis'sVUpac%(0) = 112VUpac%(1) = 57RETURN
REMDEFLNG A-Z'assumes the sound is in the current directorymid1& = _SNDOPEN("pacman2.mid", "vol")_SNDVOL mid1&, 0.7DO IF NOT _SNDPLAYING(mid1&) THEN _SNDPLAY mid1& END IF IF _KEYDOWN(27) THEN EXIT DO END IFLOOP_SNDSTOP mid1&_SNDCLOSE mid1&SLEEPSYSTEM
REM GHOSTDEFLNG A-ZSCREEN _NEWIMAGE(640, 480, 32)WorkPage& = _LOADIMAGE("NEWGHOST_blu1.png")_DEST 0DO FOR x = 0 TO 261 STEP 67 _PUTIMAGE (100, 100)-(220, 190), WorkPage&, 0, (x, 0)-(x + 67, 67) '219,189 _DELAY .08 NEXT xLOOP WHILE INKEY$ = ""SLEEPSYSTEM