From 0f2227141215ecc681c4f46823ba94ce20e9743f Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Mon, 6 Nov 2023 12:03:11 +0100 Subject: death: Do loop music. --- scenes/death.scm | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) (limited to 'scenes/death.scm') 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) -- cgit v1.2.3