diff options
Diffstat (limited to 'scenes')
-rw-r--r-- | scenes/game.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/scenes/game.scm b/scenes/game.scm index 1e753cd..cb05f70 100644 --- a/scenes/game.scm +++ b/scenes/game.scm @@ -17,6 +17,7 @@ ;;; <http://www.gnu.org/licenses/>. (define-module (scenes game) + #:use-module (chickadee audio) #:use-module (chickadee input keyboard) #:use-module (chickadee math rect) #:use-module (chickadee math vector) @@ -52,6 +53,7 @@ (define-asset test-map (load-tile-map "assets/maps/01.tmx")) +(define-asset error-sample (load-sample "assets/sounds/error.ogg")) (define-class <game> (<scene>) (status #:accessor status #:init-form 'playing) @@ -324,7 +326,7 @@ conversation." (if (null? (available-messages player)) ;; nothing to say! Play error sound. (begin - (pk 'nothing-to-say) + (play-sample (asset-ref error-sample)) (stop-talking player)) ;; Prepare empty text bubble (let ((bubble (child-ref (parent (parent player)) 'text-bubble))) @@ -407,6 +409,8 @@ conversation." (let ((game (make <game> #:origin (vec2 (- (/ %width 2)) (- (/ %height 2)))))) + (set-music-volume! 1.0) + (set-sample-volume! 1.0) (with-agenda (agenda game) (schedule-every |