From 7177e8a6939b66594a6e8e1c87e86533ed3caadd Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 29 Oct 2023 21:43:48 -0400
Subject: Add simple background music.

Wish I had more time!!
---
 game.scm | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

(limited to 'game.scm')

diff --git a/game.scm b/game.scm
index 13e5bc8..97da850 100644
--- a/game.scm
+++ b/game.scm
@@ -351,18 +351,16 @@
      (define sound:player-death (load-sound-effect "audio/player-death.wav"))
      (define sound:enemy-shoot (load-sound-effect "audio/enemy-shoot.wav"))
      (define sound:bullet-hit (load-sound-effect "audio/bullet-hit.wav"))
-     ;; (define music (load-audio "audio/music.wav"))
-     ;; (set-audio-loop! music 1)
+     (define music (load-audio "audio/music.ogg"))
+     (set-audio-loop! music 1)
+     (set-audio-volume! music 0.5)
      (define (music-play)
-       ;; (audio-play music)
-       #t)
+       (audio-play music))
      (define (music-pause)
-       ;; (audio-pause music)
-       #t)
+       (audio-pause music))
      (define (music-stop)
-       ;; (audio-pause music)
-       ;; (audio-seek music 0.0)
-       #t)
+       (audio-pause music)
+       (audio-seek music 0.0))
 
      (define *debug?* #f)
 
@@ -1367,7 +1365,7 @@
          (wait 180)
          (phase-1))
        (spawn-enemy
-        (make-enemy 'boss 1500 (vec2 x (- y 24.0)) (vec2 144.0 50.0)
+        (make-enemy 'boss 1500 (vec2 x (- y 32.0)) (vec2 144.0 50.0)
                     (vec2 0.0 0.0) script 500000
                     #(0.0 144.0 288.0 432.0) image:boss (vec2 144.0 96.0))))
 
@@ -1570,10 +1568,11 @@
             (do-splash)))))
      (define (do-game-over)
        (scheduler-reset! *countdown-scheduler*)
-       (music-stop)
+       (music-pause)
        (set! *game-state* 'game-over)
        (do-countdown))
      (define (do-continue)
+       (music-play)
        (player-position-reset!)
        (set! *player-lives* 3)
        (set! *player-1cc?* #f)
-- 
cgit v1.2.3