Looping Sound - Printable Version

Code:

Public CurrentSong As String

Dim mssg As String * 255

Dim MIDIpos As Integer

Dim MIDILength As Integer





Public Sub PlayMidi(Song As String)



Dim i As Long



    If CurrentSong  Song Then

    

        



        i = mciSendString("close all", 0, 0, 0)

        i = mciSendString("open """ & App.Path & MUSIC_PATH & Song & """ type sequencer alias background", 0, 0, 0)

        i = mciSendString("play background notify", 0, 0, frmMirage.hWnd)

        i = mciSendString("status background length", mssg, 255, 0)

        

        MIDILength = mssg

        CurrentSong = Song



    Else

        If MIDILength = MIDIpos Then

            i = mciSendString("play background from 0", 0&, 0, 0)

                       

    End If

        End If

    

    i = mciSendString("status background position", mssg, 255, 0)

    MIDIpos = mssg



End Sub

Code:

If Map.Music > 0 Then

            Call PlayMidi("music" & Trim(STR(Map.Music)) & ".mid")

        End If