blob: 98c9257c45aef0d967179c7e27f9ec138952c580 (
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
|
(define-module (test-subject credits)
#: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)
#:use-module (test-subject assets)
#:use-module (test-subject common)
#:export (<credits>))
(define-class <credits> (<scene-2d>)
(true-ending? #:getter true-ending? #:init-keyword #:true-ending?
#:init-value #f)
(click-channel #:getter click-channel #:init-thunk make-channel))
(define-method (on-boot (credits <credits>))
(set-cameras! credits)
(attach-to credits
(make <sprite>
#:name 'background
#:texture lightness)
(make <label>
#:name 'label
#:font monogram-font
#:color black
#:align 'center
#:vertical-align 'center
#:position (vec2 (/ %game-width 2.0) (/ %game-height 2.0)))))
(define-method (on-enter (credits <credits>))
(define* (credit line #:optional (sleep? #t))
(set! (text (& credits label)) line)
(when sleep? (sleep 120)))
(run-script credits
(set! (background-music credits) credits-music)
(set! (background-music-loop? credits) #f)
(sleep 60)
(credit "The Test Subject")
(credit "developed by David Thompson (GPLv3) https://dthompson.us")
(credit "made for the Spring Lisp Game Jam 2021 https://itch.io/jam/spring-lisp-game-jam-2021")
(credit "monogram font by datagoblin (CC0) https://datagoblin.itch.io/monogram")
(credit "old fax font by George Blackwell (CC-BY 4.0) https://georgeblackwell.itch.io/old-fax")
(credit "UI sounds by Kenney (CC0) https://opengameart.org/content/51-ui-sound-effects-buttons-switches-and-clicks")
(credit "background music by brandon75689 (CC0) https://opengameart.org/content/tragic-ambient-main-menu")
(credit "credits music by tcarisland (CC-BY 4.0) https://opengameart.org/content/the-end")
(if (true-ending? credits)
(credit "congratulations on reaching the true ending!")
(credit "the true ending still awaits you..."))
(credit "click to play again" #f)
(channel-clear! (click-channel credits))
(channel-get (click-channel credits))
(play-click-sound)
(tween 120 white black
(lambda (color)
(set! (tint (& credits background)) color))
#:interpolate color-lerp)
(pop-scene (current-kernel))))
(define-method (on-mouse-release (credits <credits>) button x y)
(when (eq? button 'left)
(channel-put! (click-channel credits) #t)))
|
