Hi guys
This code is to replace the current MSE sound system with FMod. Some features of this system include:
-Play MID or MP3 songs
-Sound fades in and out
-when you switch maps but they have the same music, the music keeps playing seamlessly.
You will need the FMod sound system, freely downloadable from fmod.org. You will need to put the FMod module into your project. You will need to include the FMOd.dll file with your project. This is written for use with FMod version 3.74
Also add this module to your project:
http://www.eternalflameonline.com/modsound.bas
Now the code to use it!
In your GameLoop, put this:
Code: 'Handle the volume of the music
Call HandleVolume
At the end of the MapDone packet:
Code: ' Play music
If LenB(MUSIC_EXT) <> 0 Then
If CurrentSong = Map.Music Then Exit Sub
Call SwitchSong(Map.Music)
End If
In sub Main, add this:
Code: Call SetStatus("Initializing FMod...")
FModInit = False
'If LenB(MUSIC_EXT) <> 0 Then
' FModInit = True
' If FSOUND_Init(44100, 32, 0) = 0 Then
' FModInit = False
' 'Error
' MsgBox "An error occured initializing fmod! Sound will not play!" & vbCrLf & _
' FSOUND_GetErrorString(FSOUND_GetError), vbOKOnly
' End If
' FSOUND_SetVolume FSOUND_all, 0
'End If
*******NOTE! If FMod isn't shutdown properly, VB will crash. If you plan to debug, make sure this is as is. When you actually want to use the sound, uncomment this code, and change the FIRST FModInit = False to be true. Don't understand? You'll find out soon enough. Save before you run :D
Lastly, In GameDestroy:
Code: If LenB(MUSIC_EXT) <> 0 Then FSOUND_Close
YOu need to make a constant called MUSIC_EXT. It's a string, and it can have one of four values.
MUSIC_EXT = ".mid"
MUSIC_EXT = ".midi"
MUSIC_EXT = ".mp3"
MUSIC_EXT = "" ' No sound
You could also make this NOT a constant, and change it to whatever sound you choose to run... you decide.
Good luck... and happy... sound...ing...
~Dave
|
)
