Add placeholder boss battle.

1 files changed, 40 insertions, 0 deletions

diff --git a/bonnie-bee/boss.scm b/bonnie-bee/boss.scm
new file mode 100644
index 0000000..d19f2c2
--- /dev/null
+++ b/bonnie-bee/boss.scm
@@ -0,0 +1,40 @@
+(define-module (bonnie-bee boss)
+  #:use-module (bonnie-bee actor)
+  #:use-module (bonnie-bee assets)
+  #:use-module (bonnie-bee bullet)
+  #:use-module (chickadee audio)
+  #:use-module (chickadee graphics particles)
+  #:use-module (chickadee math)
+  #:use-module (chickadee math rect)
+  #:use-module (chickadee math vector)
+  #:use-module (chickadee scripting)
+  #:use-module (chickadee utils)
+  #:use-module (oop goops)
+  #:use-module (starling asset)
+  #:use-module (starling node)
+  #:use-module (starling node-2d)
+  #:export (<boss>))
+
+(define-class <boss> (<grounded> <damageable> <actor>))
+
+(define-method (on-boot (boss <boss>))
+  (attach-to boss
+             (make <sprite>
+               #:texture beetle-image
+               #:origin (vec2 64.0 32.0))))
+
+(define-method (on-collide (boss <boss>) (bullet <bullet>))
+  (cond
+   ((player-primary-bullet? bullet)
+    (damage boss 1)
+    (kill-bullet bullet)
+    #t)
+   ((player-bomb-bullet? bullet)
+    (damage boss 10)
+    (kill-bullet bullet))
+   (else #f)))
+
+(define-method (on-death (boss <boss>))
+  (audio-play (asset-ref explosion-sound))
+  (add-particle-emitter (particles (particles (parent boss)))
+                        (make-particle-emitter (world-hitbox boss) 20 30)))