Фоновый звук в Dr-Racket [lang # r5rs] - PullRequest
Новая
       8

Фоновый звук в Dr-Racket [lang # r5rs]

0 голосов
/ 17 мая 2018

Я пытаюсь использовать фоновый звук в игре. Если я использую петлю, то у меня она сейчас не возвращается или она накладывает звук. Есть ли способ проверить, есть ли звук в пользовательском интерфейсе, или Rsound должен иметь звуки? 

(define play-asynchronously #f)

(define sound-test #t)
(define (sound-test!)
  (if sound-test
      #f
      #t))



(define (in-game-loop)
  (if sound-test
      (if (play-sound "flight_of_the_bumblebee.mp3" play-asynchronously)
          ;Geschreven in 1899-1900 door Nikolaj Rimski-Korsakov
          ;Gedownload op 16/05/2018 van https://ia802606.us.archive.org/19/items/FlightOfTheBumblebee/flight_of_the_bumblebee_2.mp3
          (in-game-loop)
          'done)
      (begin
        (in-menu-loop)
        (set! sound-test #t))))

(define (in-menu-loop)
  (if sound-test
      (if (play-sound "Gymnopedie-No-1.mp3" play-asynchronously)
          ;Geschreven in 1888 door Erik Satie
          ;Gedownload op 16/05/018 van https://incompetech.com/music/royalty-free/?keywords=gymnopedie
          (in-menu-loop)
          'done)
      (begin
        (in-game-loop)
        (set! sound-test #t))))
...