rem top set smartbranching on rem **************************************************************** rem * rem * Create aliases for variables. rem * rem **************************************************************** dim duration=p rem **************************************************************** rem * rem * Variable descriptions. rem * rem **************************************************************** rem * Duration - how long each note plays rem * x - used for sdata rem * y - used for sdata begin rem **************************************************************** rem * Volume off. rem * AUDV0=0 AUDV1=0 rem **************************************************************** rem * rem * Initialize Duration and set up music. rem * duration = 1 goto Sound_Setup rem middle loop rem **************************************************************** rem * rem * Main game loop starts here. rem * rem **************************************************************** goto Treasure_Sound Sound_Return drawscreen goto loop rem bottom Treasure_Sound rem **************************************************************** rem * rem * Music or Sound Effect. rem * rem **************************************************************** rem * Check for end of current note duration = duration - 1 if duration>0 then Sound_Return rem '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' rem ' Retrieve channel 0 data. rem ' temp4 = sread(musicData) temp5 = sread(musicData) temp6 = sread(musicData) rem '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' rem ' Check for end of data. rem ' if temp4=255 then duration = 1 : goto Sound_Setup rem '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' rem ' Play channel 0. rem ' AUDV0 = temp4 AUDC0 = temp5 AUDF0 = temp6 rem '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' rem ' Set Duration. rem ' duration = sread(musicData) goto Sound_Return rem **************************************************************** rem * rem * Music data block. rem * rem **************************************************************** rem * Format: rem * v,c,f (channel 0) rem * d rem * rem * Explanation: rem * v - volume (0 to 15) rem * c - control [a.k.a. tone, voice, and distortion] (0 to 15) rem * f - frequency (0 to 31) rem * d - Duration Sound_Setup sdata musicData = x 13, 12, 19 9 13, 12, 18 9 13, 12, 17 10 13, 12, 16 47 0, 0, 0 255, 255, 255 1 end goto Sound_Return