1 files changed, 64 insertions, 0 deletions
diff --git a/test-subject/credits.scm b/test-subject/credits.scm
new file mode 100644
index 0000000..98c9257
--- /dev/null
+++ b/test-subject/credits.scm
@@ -0,0 +1,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)))