diff options
Diffstat (limited to 'scenes/credits.scm')
-rw-r--r-- | scenes/credits.scm | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/scenes/credits.scm b/scenes/credits.scm deleted file mode 100644 index c6159df..0000000 --- a/scenes/credits.scm +++ /dev/null @@ -1,47 +0,0 @@ -;;; The Inevitable Game -;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> -;;; -;;; This program is free software: you can redistribute it and/or -;;; modify it under the terms of the GNU General Public License as -;;; published by the Free Software Foundation, either version 3 of the -;;; License, or (at your option) any later version. -;;; -;;; This program is distributed in the hope that it will be useful, -;;; but WITHOUT ANY WARRANTY; without even the implied warranty of -;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -;;; General Public License for more details. -;;; -;;; You should have received a copy of the GNU General Public License -;;; along with this program. If not, see -;;; <http://www.gnu.org/licenses/>. - -(define-module (scenes credits) - #:use-module (chickadee) - #:use-module (chickadee math vector) - #:use-module (chickadee render font) - #:use-module (engine assets) - #:use-module (engine node) - #:use-module (engine node-2d) - #:use-module (engine scene) - #:use-module (scenes game) - #:use-module (oop goops) - #:export (credits)) - -(define-class <credits> (<scene>)) - -(define-asset credits-font - (load-tile-font "assets/fonts/bubblemad_8x8.png" 8 8 - " !\"©_%❤'()*+,-./0123456789:←<=>?@abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ")) - -(define-method (populate (credits <credits>)) - (list - (make <label> - #:name 'press-enter - #:font credits-font - #:text "Press any key to quit." - #:position (vec2 72.0 50.0)))) - -(define-method (on-key-press (credits <credits>) key mods repeat?) - (abort-game)) - -(define (credits) (make <credits>)) |