summaryrefslogtreecommitdiff
path: root/scenes/death.scm
diff options
context:
space:
mode:
authorRicardo Wurmus <rekado@elephly.net>2023-11-06 12:03:11 +0100
committerRicardo Wurmus <rekado@elephly.net>2023-11-06 12:07:11 +0100
commit0f2227141215ecc681c4f46823ba94ce20e9743f (patch)
treeb311c0e122160248c4cd1e0ac20ee44969c5b240 /scenes/death.scm
parent74ecf721f90171f2fac64bbbcb96bcfb5c7b6704 (diff)
death: Do loop music.
Diffstat (limited to 'scenes/death.scm')
-rw-r--r--scenes/death.scm7
1 files changed, 2 insertions, 5 deletions
diff --git a/scenes/death.scm b/scenes/death.scm
index e1438e1..3c1377e 100644
--- a/scenes/death.scm
+++ b/scenes/death.scm
@@ -45,7 +45,6 @@
(define-asset game-font
(load-bitmap-font "assets/fonts/good_neighbors_starling.xml"))
(define-asset music
- ;; TODO: no sound if mode is 'static!
(load-audio "assets/music/death.ogg" #:mode 'stream))
@@ -143,10 +142,8 @@ quite short."))
(set! death-text (list-ref texts (random (length texts))))
(source-stop)
(source-play
- (make-source #:audio
- (asset-ref music)
- #:loop? #false ; TODO: loops only first chunk!
- ))
+ (make-source #:audio (asset-ref music)
+ #:loop? #true))
(set! *player* (lorenzo #:start-position
(vec2 (+ (/ %width 2) 25)