;;; 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>))