' wave play sample with FBSound

#include "fbsound_dynamic.bi"

chdir(exepath())

' FBSound initialize
If fbs_Init() = True Then
    Print "fbs_Init() success."
Else
    Print "Error : fbs_Init() failure"
    Print FBS_Get_PlugError()
    Beep
    sleep
    end 1
End If

dim as integer hWave1, hWave2, hWave3

#ifdef 0

' load wav file
Print "load wav file"
fbs_Load_WAVFile("1.wav", @hWave1)
fbs_Load_WAVFile("2.wav", @hWave2)
fbs_Load_WAVFile("3.wav", @hWave3)

#Else

' load ogg file
Print "load ogg file"
fbs_Load_OGGFile("1.ogg", @hWave1)
fbs_Load_OGGFile("2.ogg", @hWave2)
fbs_Load_OGGFile("3.ogg", @hWave3)

#endif

Print "Play : 1 - 3 key"
Print "Exit : ESC key"

Dim As Boolean running = True
Dim As String k

While running
    Dim As String k = inkey$
    Select Case k
    Case "1": fbs_Play_Wave(hWave1)
    Case "2": fbs_Play_Wave(hWave2)
    Case "3": fbs_Play_Wave(hWave3)
    Case Chr(27): running = False
    End Select
    
    sleep 100
Wend

Print "Exit."