Ok, well, i couldnt get the program to run at all (Runtime Error: Could Not Load Cd Music), but i had a look through your code and it apears that you were using predifined DB commands as your Gosub names eg Next and Step so i just changed them for you...
Oh, and i dont know what version of DB you are using because, i had a look and there is no Set Music Volume command anywhere (I'm using DBClassic with the Enhancement Upgrade v1.13)... But oh well...
Here is the fixed up code, try and build the exe now...
a = 1
load cdmusic a,1
o = n
r = 50
t = 0
rem Load a music track into number one
begining:
cls
sleep 1
text 1,100, "Please Wait Loading."
wait 500
cls
text 1,100, "Please Wait Loading.."
wait 450
text 1,100, "Please Wait Loading..."
wait 460
cls
text 1,100, "Please Wait Loading"
wait 470
t = t + 1
if t = 1 then gosub begining
if t = 2 then gosub begining
if t = 3 then gosub _step
_step:
cls
ink rgb(570,200,300),1
sleep 1
play music 1
rem
ink rgb(370,214,210),1
set text font "arial"
set text size 20
text 1,100, "Press ctrl to view the control menu."
wicked:
resume music 1
text 1,100, "Press ctrl to view the control menu."
if music playing(1)=0 then text 1,114, "Disk read error the music is not playing!"
if music playing(1)=1 then text 1,114, "The music cd is Loaded"
if music paused(1)=1 then text 1,128, "The music has been paused"
if music paused(1)=0 then text 1,128, "The music is not paused"
rem wait till you press left mouse button
if spacekey()=1 then gosub decide
if rightkey()=1 then gosub track
if leftkey()=1 then gosub _next
if downkey()=1 then gosub volup
if music playing(1)=0 then gosub track
if returnkey()=1 then gosub delete
gosub wicked
rem This command will pause the music number one
decide:
cls
pause music 1
text 1,100, "Press ctrl to view the control menu."
if music playing(1)=0 then text 1,114, "Disk read error the music is not playing!"
if music playing(1)=1 then text 1,114, "The music cd is Loaded"
if music paused(1)=1 then text 1,128, "The music has been paused"
if music paused(1)=0 then text 1,128, "The music is not paused"
repeat:until spacekey()=1
gosub resume
resume:
resume music 1
cls
text 1,100, "Press ctrl to view the control menu."
if music playing(1)=0 then text 1,114, "Disk read error the music is not playing!"
if music playing(1)=1 then text 1,114, "The music cd is Loaded"
if music paused(1)=1 then text 1,128, "The music has been paused"
if music paused(1)=0 then text 1,128, "The music is not paused"
repeat:until spacekey()=0
gosub wicked
_next:
pause music 1
a = a - 1
load cdmusic a,1
play music 1
gosub wicked
track:
pause music 1
a = a + 1
load cdmusic a,1
play music 1
gosub wicked
volup:
r = r + 50
SET music VOLUME 1,r
gosub wicked
voldown:
r = r - 50
set music volume 1,r
delete:
rem Delete music
delete music 1
end
Hope I Helped...
Knowladge Belongs To The People...
