blob: 09fcb47b8997ab0ddb0e7ab71b44cf95dc404cc5 (
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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
(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 (catbird)
#:use-module (catbird camera)
#:use-module (catbird kernel)
#:use-module (catbird mode)
#:use-module (catbird node)
#:use-module (catbird node-2d)
#:use-module (catbird region)
#:use-module (catbird scene)
#:export (launch-game))
(define-class <splash-mode> (<major-mode>))
(define %text-color (rgb #x181425))
(define-method (on-enter (mode <splash-mode>))
(let ((scene (parent mode)))
(attach-to scene
(make <sprite>
#:texture lightness-image)
(make <sprite>
#:texture chickadee-image
#:position (vec2 (/ %game-width 2.0)
(/ %game-height 2.0))
#:origin (vec2 8.0 8.0)
#:scale (vec2 4.0 4.0))
(make <label>
#:rank 1
#:position (vec2 (/ %game-width 2.0) 70.5)
#:font monogram-font
#:color %text-color
#:align 'center
#:vertical-align 'center
#:text "Made with Chickadee")
(make <label>
#:rank 1
#:position (vec2 (/ %game-width 2.0) 50.5)
#:font monogram-font
#:color %text-color
#:align 'center
#:vertical-align 'center
#:text "https://dthompson.us/projects/chickadee.html"))
(run-script scene
(unless (getenv "SKIP_SPLASH")
(fade-in scene 1.0)
(sleep 1.0)
(fade-out scene 1.0))
(let ((new-scene (make <scene>))
(region (car (all-regions))))
(replace-scene region (make-game-scene))))))
(define (launch-game)
(set! *random-state* (random-state-from-platform))
(run-catbird
(lambda ()
(let ((region (create-full-region))
(scene (make <scene>)))
(take-controller-focus 0 region)
(replace-scene region scene)
(replace-major-mode scene (make <splash-mode>))
(set! (camera region)
(make <camera-2d>
#:width %game-width
#:height %game-height))))
#:width %window-width
#:height %window-height
#:title "Bonnie Bee and the Pesticidal Tendencies"))
|
