diff options
| author | David Thompson <dthompson@vistahigherlearning.com> | 2021-10-21 19:33:42 -0400 |
|---|---|---|
| committer | David Thompson <dthompson@vistahigherlearning.com> | 2021-10-21 19:33:42 -0400 |
| commit | 10b02b1fb15b76c8037760f2a3e8dc3601759f28 (patch) | |
| tree | 130d2531d8abf7d4b63873ed938959b57e354fd8 /bonnie-bee/player.scm | |
| parent | ac7bd2ccf3111575a549366e66bbf19b75785cf8 (diff) | |
Add roughly finished level.
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 |