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


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

FileName$ = OpenFileRequester("","","Музыкальные Модули (*.mod, *.xm, *.it)|*.mod;*.xm;*.it", 0)
If FileName$
  If LoadMusic(0, FileName$)
    PlayMusic(0)    
    MessageRequester("PureBasic - Module проигрыватель", "Воспроизведение музыкального модуля...")
    
    ; Теперь выполняем приятное угасание...
    ;
    For k=100 To 0 Step -1
      Delay(20)
      MusicVolume(0, k)
    Next
    
  Else
    MessageRequester("Ошибка", "Не удается загрузить музыкальный модуль или неверный формат модуля.")
  EndIf
EndIf