From 10b02b1fb15b76c8037760f2a3e8dc3601759f28 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 21 Oct 2021 19:33:42 -0400 Subject: Add roughly finished level. --- bonnie-bee/player.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'bonnie-bee/player.scm') diff --git a/bonnie-bee/player.scm b/bonnie-bee/player.scm index 78eafc0..10242c7 100644 --- a/bonnie-bee/player.scm +++ b/bonnie-bee/player.scm @@ -38,7 +38,7 @@ (move-up? #:accessor move-up? #:init-value #f) (shoot? #:accessor shoot? #:init-value #f #:watch? #t) (last-shot #:accessor last-shot #:init-value 0) - (shot-interval #:getter shot-interval #:init-value (steps 2)) + (shot-interval #:getter shot-interval #:init-form (steps 2)) (speed #:accessor speed #:init-value 1.8) (lives #:accessor lives #:init-value 3) (invincible? #:accessor invincible? #:init-value #f) @@ -86,6 +86,7 @@ (define-method (lose-life (player )) (unless (invincible? player) (set! (lives player) (max (- (lives player) 1) 0)) + (set! (pollen player) 0) (set! (invincible? player) #t) (audio-play (asset-ref player-death-sound)) (run-script player -- cgit v1.2.3