Media Player Sound Replacement

[Robin]

MediaPlayer Supported Sound

Much shorter than FMod.

Refrences

Code:

Windows Media Player

Location: C:\WINDOWS\system32\msdxm.ocx

modSound

Code:

Public MusicPlayer As New MediaPlayer.MediaPlayer
Public CurrentSong As String

Public Sub PlayMusic(ByVal Song As String)
If Song  CurrentSong Then
  MusicPlayer.Open App.Path & "\data\music\" & Song
  CurrentSong = Song
End If
End Sub

Syntax

Code:

PlayMusic "Ripple.mp3"

sub GameDestroy

Code:

MusicPlayer.Stop
Set MusicPlayer = Nothing

Sub HandleData (just after "Unload frmMapProperties")

Code:

PlayMusic SaveMap.Music & ".mid"

OPTIONAL EXTRA: PREVIEW MAP MUSIC IN EDITOR
frmMapProperties

Code:

Private Sub Command1_Click()
PlayMusic  scrlMusic.Value & ".mid"
End Sub

OPTIONAL EXTRA: LOOPING SONGS
frmSound

Code:

Public Sub MidiLoop()
If MusicPlayer.PlayState = mpStopped Then
  MusicPlayer.Play
End If
End Sub

Sub GameLoop

Code:

midiloop