From 10b02b1fb15b76c8037760f2a3e8dc3601759f28 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Thu, 21 Oct 2021 19:33:42 -0400
Subject: Add roughly finished level.

---
 bonnie-bee/flower.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

(limited to 'bonnie-bee/flower.scm')

diff --git a/bonnie-bee/flower.scm b/bonnie-bee/flower.scm
index 2c018e9..13d8c10 100644
--- a/bonnie-bee/flower.scm
+++ b/bonnie-bee/flower.scm
@@ -38,10 +38,13 @@
 
 (define-method (on-collide (flower <flower>) (bullet <bullet>))
   (cond
-   ((player-bullet? bullet)
+   ((player-primary-bullet? bullet)
     (damage flower 1)
     (kill-bullet bullet)
     #t)
+   ((player-bomb-bullet? bullet)
+    (damage flower 5)
+    (kill-bullet bullet))
    ((and (not (pollen-enabled?)) (enemy-bullet? bullet))
     (damage flower 1000)
     (kill-bullet bullet))
-- 
cgit v1.2.3