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

If InitSound() = 0
  MessageRequester("Ошибка", "Звуковая система недоступна",  0)
  End
EndIf

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