;
; ------------------------------------------------------------
;
;   PureBasic - Sound example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

If InitSound() = 0
  MessageRequester("Ошибка", "Не удается открыть DirectX или нет звуковой карты",  0)
  End
EndIf

UseOGGSoundDecoder()

SoundFileName$ = OpenFileRequester("Выберите звуковой файл", "", "Wave или OGG файл|*.wav;*.ogg",0)
If SoundFileName$
  If LoadSound(0, SoundFileName$)
    PlaySound(0,#PB_Sound_Loop)
    MessageRequester("Звук", "Воспроизводим звук в цикле..."+Chr(10)+"Нажмите для выхода..", 0)
  Else
    MessageRequester("Ошибка", "Невозможно загрузить звуковой файл.", 0)
  EndIf
EndIf
End