;;; 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 death)
  #:use-module (chickadee audio)
  #: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 (engine shell)
  #:use-module (scenes credits)
  #:use-module (oop goops)
  #:export (death))

(define-class <death> (<scene>))

(define-asset death-font
  (load-tile-font "assets/fonts/bubblemad_8x8.png" 8 8
                  " !\"©_%❤'()*+,-./0123456789:←<=>?@abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"))

(define-asset music-death (load-music "assets/music/death.ogg"))

(define texts
  '("\
Life waits for no one, but
death is patient."

    "\
You have died.  Your points
don't matter."

    "\
Death is inevitable."

    "\
The void resumes."

    "\
It did not last."

    "\
You were busy, but none of that
matters any more."

    "\
You were mortal after all."

    "\
Nobody outruns the clock."

    "\
Life goes on, but you end here."

    "\
This is no longer your battle
to fight.  Let go."

    "\
Life is hard, but thankfully
quite short."))

(set! *random-state* (random-state-from-platform))

(define-method (populate (death <death>))
  (cons
   (make <label>
     #:name 'press-enter
     #:font death-font
     #:text "Press any key to quit."
     #:position (vec2 72.0 50.0))
   (let* ((text (list-ref texts (random (length texts))))
          (parts (string-split text #\newline)))
     (map (lambda (part i)
            (make <label>
              #:name 'death
              #:font death-font
              #:text part
              #:position (vec2 16.0 (- 150.0 (* 12 i)))))
          parts (iota (length parts))))))

(define-method (on-key-press (death <death>) key mods repeat?)
  (switch-scene (root-node)
                (credits)))

(define (death)
  (set-music-volume! 1.0)
  (stop-music)
  (play-music (load-music "assets/music/death.ogg") #:loop? #t)
  (make <death>))