Mirage Source

Public Sub StopMIDI()
On Error Resume Next
    Preformance.Stop Segment, Nothing, 0, 0
End Sub

Public Sub PlaySound(Sound As String)
    Call sndPlaySound(App.Path & "\" & Sound, SND_ASYNC Or SND_NOSTOP)
End Sub

Public Sub PlayMidi(filename As String)
On Error Resume Next
    Set Segment = Loader.LoadSegment(filename)
    If Err.Number <> DD_OK Then MsgBox "Error: Could not load MIDI file!", vbExclamation, "ERROR!"
    Preformance.PlaySegment Segment, 0, 0
End Sub

' Play music
        Call StopMIDI
        If Map.Music > 0 Then
        Call PlayMIDI(App.Path & "\Music\" & "music" & Trim(STR(Map.Music)) & ".mid")
        End If
       
        Exit Sub
    End If

Call InitializeMusic

Sub InitializeMusic()

Set Loader = DX.DirectMusicLoaderCreate
    Set Preformance = DX.DirectMusicPerformanceCreate
        Preformance.Init Nothing, frmMirage.hWnd
        Preformance.SetPort -1, 1
        Preformance.SetMasterAutoDownload True
    If Err.Number <> DD_OK Then

    End If
   
End Sub

' for playing music
Public Loader As DirectMusicLoader
Public Preformance As DirectMusicPerformance
Public Segment As DirectMusicSegment

PlayMIDI(App.Path & "\Music\" & "music" & scrlMusic.Value & ".mid")

StopMIDI

Public Sub PlayMidi(filename As String)
On Error Resume Next
    Set Segment = Loader.LoadSegment(filename)
    If Err.Number <> DD_OK Then MsgBox "Error: Could not load MIDI file!", vbExclamation, "ERROR!"
    Preformance.PlaySegment Segment, 0, 0
End Sub