Audio Trouble

[DarkX]

I have a question, as you know I have been modifing a copy of MSE for sometime now, but I haven't done anything involving audio but the sound doesn't work on my engine. It has been that way since I started programming it, but I thought that it might be something with my computer. But I got yet another new one and there is no change, could someone help me with this little problem.

Thanks in advance,
Korrey D.

[William]

I believe it works in MSE, so I suggest you compare your source with a unedited MSE, shouldn't take too long.

[DarkX]

I tried my modified one and a scrap model, and the audio doesn't work. Could someone point out to me where the jist of the code to play audio is?

[William]

Code:

Public Sub PlayMidi(Song As String)
'****************************************************************
'* WHEN        WHO        WHAT
'* ----        ---        ----
'* 07/12/2005  Shannara   Added music constant.
'****************************************************************

Dim i As Long
    
    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)
End Sub

Public Sub StopMidi()
Dim i As Long
  
    i = mciSendString("close all", 0, 0, 0)
End Sub

Public Sub PlaySound(Sound As String)
'****************************************************************
'* WHEN        WHO        WHAT
'* ----        ---        ----
'* 07/12/2005  Shannara   Added sound constant.
'****************************************************************

    Call sndPlaySound(App.Path & SOUND_PATH & Sound, SND_ASYNC Or SND_NOSTOP)
End Sub

[DarkX]

That's different than mine.

[William]

That is a unedited MSE1.

[Aydan]

I have a problem too. Mines exactly the same yet it doesnt work. somethings wrong lol =P