diff options
Diffstat (limited to 'bonnie-bee/player.scm')
| -rw-r--r-- | bonnie-bee/player.scm | 3 |
1 files changed, 2 insertions, 1 deletions
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 <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 |