diff options
Diffstat (limited to 'game.scm')
-rw-r--r-- | game.scm | 21 |
1 files changed, 10 insertions, 11 deletions
@@ -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) |