yeah I can give you the code I use in my snake game...
Code:
Public Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
hwndCallback As Long) As Long
Public Sub OpenSong()
i = mciSendString("open music.mid type sequencer alias mid1", 0&, 0, 0)
End Sub
Public Sub Play()
i = mciSendString("play mid1", 0&, 0, 0)
End Sub
Ok I put that all in a mod like modSound.
"music.mid" you name as the name of your midi song.
"mid1" is the name that you give it... you dont have to change this at all unless you want too.
Now whenever you want it to play the music add in calls for opensong and play...
Call OpenSong
Call Play
thats all you have to do to get it playing.
Now if you want it to loop or something there is more code and I can help you with that if you like. Tell me if you can get it from here.
EDIT:
I looked at your code actually now and I see that you have the midi file named as 2 different things... thats probably your problem
one you have it Background and the other Background something.
Try that out.
Login
Register
FAQ
Search
Members
