From ba887d36cd96e188771eda44ddfb7c31c9811fc0 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Wed, 20 Oct 2021 20:57:28 -0400
Subject: Add placeholder boss battle.

---
 bonnie-bee/game.scm | 26 +++++++++++++++++++-------
 1 file changed, 19 insertions(+), 7 deletions(-)

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

diff --git a/bonnie-bee/game.scm b/bonnie-bee/game.scm
index ffdbc3e..b5d1eaf 100644
--- a/bonnie-bee/game.scm
+++ b/bonnie-bee/game.scm
@@ -2,6 +2,7 @@
   #:use-module (bonnie-bee actor)
   #:use-module (bonnie-bee assets)
   #:use-module (bonnie-bee background)
+  #:use-module (bonnie-bee boss)
   #:use-module (bonnie-bee bullet)
   #:use-module (bonnie-bee common)
   #:use-module (bonnie-bee flower)
@@ -291,11 +292,6 @@
     (sleep 3.0)
     ;; Wave 2
     ;; popcorn that shoots, more flowers
-    (let loop ((i 0))
-      (when (< i 4)
-        (spawn game
-               (make-turret (vec2 (random 320) 240)))
-        (loop (+ i 1))))
 
     ;; Wave 3
     ;; turrets, more popcorn, more flowers
@@ -305,9 +301,18 @@
     ;; intense moths, turrets, popcorn, flowers
     ;; Boss
     ;; big beetle thing. no flowers. good luck.
-
+    (tween 1.0 15.0 0.0
+           (lambda (speed)
+             (change-scroll-speed game speed)))
+    (spawn game (make <boss>
+                  #:name 'boss
+                  #:rank 2
+                  #:position (vec2 (/ %game-width 2.0) (- %game-height 64.0))
+                  #:hitbox (make-rect -64.0 -32.0 128.0 64.0)
+                  #:health 100
+                  #:points 1000000))
     ;; Victory
-    (sleep 5.0)
+    (wait-until (dead? (& game boss)))
     (game-complete game)
 
     ;; (let loop ((i 0))
@@ -358,6 +363,13 @@
   (play-music game intro-music)
   (change-state game 'game-complete)
   (stop-scripts game)
+  (run-script game
+    (sleep 1.0)
+    (spawn game (make-flower (vec2 (/ %game-width 4) 160.0)))
+    (sleep 1.0)
+    (spawn game (make-flower (vec2 (/ %game-width 2) 160.0)))
+    (sleep 1.0)
+    (spawn game (make-flower (vec2 (- %game-width (/ %game-width 4)) 160.0))))
   (let ((p (player game)))
     (stop-scripts p)
     (set! (shoot? p) #f)
-- 
cgit v1.2.3