From 58266627bf3ea66dfc6f8434c32304758d1d9e98 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson@vistahigherlearning.com>
Date: Fri, 15 Oct 2021 23:29:49 -0400
Subject: Day 1 check-in.

---
 bonnie-bee/splash.scm | 38 +++++++++++++++++++++++++++++++++++++-
 1 file changed, 37 insertions(+), 1 deletion(-)

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

diff --git a/bonnie-bee/splash.scm b/bonnie-bee/splash.scm
index 0c2a507..292fd05 100644
--- a/bonnie-bee/splash.scm
+++ b/bonnie-bee/splash.scm
@@ -1,5 +1,41 @@
 (define-module (bonnie-bee splash)
+  #:use-module (bonnie-bee assets)
+  #:use-module (bonnie-bee common)
+  #:use-module (bonnie-bee game)
+  #:use-module (chickadee graphics color)
+  #:use-module (chickadee math vector)
+  #:use-module (chickadee scripting)
+  #:use-module (oop goops)
+  #:use-module (starling kernel)
+  #:use-module (starling node)
+  #:use-module (starling node-2d)
+  #:use-module (starling scene)
   #:export (launch-game))
 
+(define-class <splash> (<scene-2d>))
+
+(define-method (on-boot (splash <splash>))
+  (set-cameras! splash)
+  (attach-to splash
+             (make <label>
+               #:name 'label
+               #:font chonkly-font
+               #:color black
+               #:align 'center
+               #:vertical-align 'center
+               #:position (vec2 (/ %game-width 2.0) (/ %game-height 2.0)))))
+
+(define-method (on-enter (splash <splash>))
+  (unless (getenv "SKIP_SPLASH")
+    (run-script splash
+      (set! (text (& splash label)) "made with chickadee")
+      (sleep 30)
+      (replace-scene (current-kernel) (make <game>)))))
+
 (define (launch-game)
-  (display "hi I don't do anything yet!\n"))
+  (boot-kernel (make <kernel>
+                 #:window-config (make <window-config>
+                                   #:title "Bonnie Bee and the Pesticidal Tendencies - Autumn Lisp Game Jam 2021"
+                                   #:width %window-width
+                                   #:height %window-height))
+               (lambda () (make <splash>))))
-- 
cgit v1.2.3