Loops Racket博士的背景声音[lang#r5rs]

我试图在游戏中使用一些背景声音。如果我使用当前的循环，它不会返回或分层声音。有没有办法测试ui中是否有声音播放，或者Rsound是声音的必备品

---

---

---

代码格式：选择代码，然后按花括号图标或Ctrl-k（Mac上的Command-k）。旁注：以“！”结尾的标识符通常仅用于改变某些内容的过程（如设置！）。和

（如果e#f#t）

是

（不是e）

。

(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))))