Boss placeholder, pre-boss WARNING message.

4 files changed, 25 insertions, 4 deletions

diff --git a/game.scm b/game.scm
index 7a6b2b8..f5ed7b4 100644
--- a/game.scm
+++ b/game.scm
@@ -737,6 +737,7 @@
                 (duration (or (assq-ref properties 'duration) 0)))
             (when speed
               (change-scroll-speed speed duration))))
+         ('warning (do-warning))
          (_ #t)))
      (define max-scroll (- (* (level-height level) tile-height) game-height))
      (define (level-update! level)
@@ -1013,9 +1014,9 @@
 
      (define (spawn-boss x y)
        (spawn-enemy
-        (make-enemy 'boss 300 (vec2 x y) (vec2 100.0 40.0)
-                    (vec2 0.0 0.0) #f 1000000
-                    #(0.0 0.0 0.0 0.0) image:boss (vec2 120.0 80.0))))
+        (make-enemy 'boss 300 (vec2 x y) (vec2 144.0 50.0)
+                    (vec2 0.0 0.0) #f 500000
+                    #(0.0 0.0 0.0 0.0) image:boss (vec2 144.0 96.0))))
 
      ;; Player state:
      (define player-position (vec2 (/ game-width 2.0) (- game-height 12.0)))
@@ -1271,6 +1272,18 @@
          (set! *canvas-width* (* game-width *canvas-scale*))
          (set! *canvas-height* (* game-height *canvas-scale*))))
 
+     ;; Boss warning message state
+     (define *show-warning?* #f)
+     (define (do-warning)
+       (run-script
+        (lambda ()
+          (do ((i 0 (+ i 1)))
+              ((= i 10))
+            (set! *show-warning?* #t)
+            (wait 15)
+            (set! *show-warning?* #f)
+            (wait 15)))))
+
      (define (clear-screen)
        (clear-rect context 0.0 0.0 *canvas-width* *canvas-height*))
 
@@ -1323,6 +1336,13 @@
        (draw-enemies enemies time)
        (draw-player)
        (draw-enemy-bullets)
+       (when *show-warning?*
+         (set-fill-color! context "#d27d2c")
+         (set-text-align! context "center")
+         (set-font! context "bold 72px monogram")
+         (fill-text context "WARNING"
+                    (/ game-width 2.0)
+                    (/ game-height 2.0)))
        (draw-hud))
 
      (define (draw-pause time)
diff --git a/images/boss.ase b/images/boss.ase
index 2cd8f96..70b2ee5 100644
--- a/images/boss.ase
+++ b/images/boss.ase
diff --git a/images/boss.png b/images/boss.png
index 17c2b22..0b1ab82 100644
--- a/images/boss.png
+++ b/images/boss.png
diff --git a/level.tmx b/level.tmx
index 41091ac..f16c319 100644
--- a/level.tmx
+++ b/level.tmx
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<map version="1.8" tiledversion="1.8.6" orientation="orthogonal" renderorder="right-down" width="15" height="500" tilewidth="16" tileheight="16" infinite="0" nextlayerid="8" nextobjectid="257">
+<map version="1.8" tiledversion="1.8.6" orientation="orthogonal" renderorder="right-down" width="15" height="500" tilewidth="16" tileheight="16" infinite="0" nextlayerid="8" nextobjectid="258">
  <tileset firstgid="1" source="tiles.tsx"/>
  <tileset firstgid="7" source="background.tsx"/>
  <objectgroup id="7" name="background" visible="0" parallaxy="0.75">
@@ -1227,5 +1227,6 @@
   <object id="225" type="popcorn" x="48" y="2160" width="16" height="16"/>
   <object id="226" type="popcorn" x="48" y="2064" width="16" height="16"/>
   <object id="256" type="turret" x="96" y="7712" width="16" height="16"/>
+  <object id="257" type="warning" x="0" y="224" width="16" height="16"/>
  </objectgroup>
 </map>