From 10b02b1fb15b76c8037760f2a3e8dc3601759f28 Mon Sep 17 00:00:00 2001 From: David Thompson Date: Thu, 21 Oct 2021 19:33:42 -0400 Subject: Add roughly finished level. --- bonnie-bee/boss.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'bonnie-bee/boss.scm') diff --git a/bonnie-bee/boss.scm b/bonnie-bee/boss.scm index 7e4d375..885f0bc 100644 --- a/bonnie-bee/boss.scm +++ b/bonnie-bee/boss.scm @@ -49,7 +49,7 @@ (set! (invincible? boss) #f) (let ((big-speed 2.0) (little-speed 1.0)) - (while (> (health boss) 2000) + (while (> (health boss) 800) (let ((d (direction-to boss (player (parent boss))))) (add-bullet (bullets (parent boss)) large-enemy-bullet @@ -63,7 +63,7 @@ (loop (+ i 1))))))) (sleep 2.5) (let loop ((theta 0.0)) - (unless (<= (health boss) 1000) + (unless (<= (health boss) 400) (audio-play (asset-ref enemy-shoot-sound)) (repeat 2 (random-shot 0.5)) (circle-shot 2 theta 1.5 large-enemy-bullet) -- cgit v1.2.3