diff options
Diffstat (limited to 'game.scm')
| -rw-r--r-- | game.scm | 6 |
1 files changed, 4 insertions, 2 deletions
@@ -538,7 +538,6 @@ (define particles (make-particle-pool 500 image:particles)) (define (explode x y) (let ((speed 1.0)) - (sound-effect-play sound:explosion) (do-circle (lambda (theta) (particle-pool-add! particles 'explosion 20 x y @@ -904,6 +903,7 @@ ((or (enemy-dead? enemy) (enemy-out-of-bounds? enemy)) (when (enemy-dead? enemy) + (sound-effect-play sound:explosion) (explode (enemy-x enemy) (enemy-y enemy)) (set! *player-score* (+ *player-score* (enemy-points enemy)))) @@ -1014,7 +1014,7 @@ (define (spawn-boss x y) (spawn-enemy - (make-enemy 'boss 300 (vec2 x y) (vec2 144.0 50.0) + (make-enemy 'boss 300 (vec2 x (- y 24.0)) (vec2 144.0 50.0) (vec2 0.0 0.0) #f 500000 #(0.0 0.0 0.0 0.0) image:boss (vec2 144.0 96.0)))) @@ -1107,6 +1107,8 @@ (define (player-die!) (unless *player-invincible?* (sound-effect-play sound:player-death 0.5) + (explode (vec2-x player-position) + (vec2-y player-position)) (set! *player-lives* (max (- *player-lives* 1) 0)) (player-position-reset!) (do-player-invincible))) |