diff options
Diffstat (limited to 'bonnie-bee/game.scm')
| -rw-r--r-- | bonnie-bee/game.scm | 26 |
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) |