From feed38794b0209d4defc3b7f110043b5ec86e92f Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 4 Jun 2023 10:55:00 -0400 Subject: An attempt to make things somewhat playable. --- super-bloom/dirt-ball.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'super-bloom/dirt-ball.scm') 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 ()) + #:export ( + 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 ) (flower )) - (damage flower 5) + (damage flower 2) (set! (dead? dirt-ball) #t)) (define-method (update (dirt-ball ) _dt) -- cgit v1.2.3