summaryrefslogtreecommitdiff
path: root/bonnie-bee/game.scm
diff options
context:
space:
mode:
authorDavid Thompson <dthompson@vistahigherlearning.com>2021-10-20 20:57:28 -0400
committerDavid Thompson <dthompson@vistahigherlearning.com>2021-10-20 20:57:28 -0400
commitba887d36cd96e188771eda44ddfb7c31c9811fc0 (patch)
tree47ccd58137e7fb83251973bd392322417eb252c8 /bonnie-bee/game.scm
parent2ea098590c71f240bf26a4174d50cdf69152d7b5 (diff)
Add placeholder boss battle.
Diffstat (limited to 'bonnie-bee/game.scm')
-rw-r--r--bonnie-bee/game.scm26
1 files changed, 19 insertions, 7 deletions
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)