diff options
author | David Thompson <dthompson2@worcester.edu> | 2023-06-04 10:55:00 -0400 |
---|---|---|
committer | David Thompson <dthompson2@worcester.edu> | 2023-06-04 10:55:00 -0400 |
commit | feed38794b0209d4defc3b7f110043b5ec86e92f (patch) | |
tree | 103f58337ed28167d205dd47bb2a1ab3a2167844 /super-bloom/dirt-ball.scm | |
parent | 45791c1360c98957ebe27655d59a2ae9db6cd709 (diff) |
An attempt to make things somewhat playable.
Diffstat (limited to 'super-bloom/dirt-ball.scm')
-rw-r--r-- | super-bloom/dirt-ball.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/super-bloom/dirt-ball.scm b/super-bloom/dirt-ball.scm index fd86d5b..43c8d4c 100644 --- a/super-bloom/dirt-ball.scm +++ b/super-bloom/dirt-ball.scm @@ -28,7 +28,8 @@ #:use-module (super-bloom common) #:use-module (super-bloom flower) #:use-module (super-bloom water) - #:export (<dirt-ball>)) + #:export (<dirt-ball> + dead?)) (define-asset (dirt-ball-tileset (file (scope-datadir "assets/images/dirt-ball.png"))) (load-tileset file 32 32)) @@ -67,7 +68,7 @@ (set! (dead? dirt-ball) #t)) (define-method (on-collide (dirt-ball <dirt-ball>) (flower <flower>)) - (damage flower 5) + (damage flower 2) (set! (dead? dirt-ball) #t)) (define-method (update (dirt-ball <dirt-ball>) _dt) |