summaryrefslogtreecommitdiff
path: root/bonnie-bee/splash.scm
blob: 292fd0524bb3017173ae4aa904d42382919c36b3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
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)
  (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>))))