105 lines
4.6 KiB
Common Lisp
105 lines
4.6 KiB
Common Lisp
;;;; Copyright © 2023, Jaidyn Ann <jadedctrl@posteo.at>
|
||
;;;;
|
||
;;;; 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 <https://www.gnu.org/licenses/>.
|
||
|
||
;;;; FLORA-SEARCH-AURORA.INTERMISSION
|
||
;;;; Used to render flashy little transitions in-between scenes/maps/etc.
|
||
|
||
(in-package :flora-search-aurora.intermission)
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Intermission loop logic
|
||
;;; ———————————————————————————————————
|
||
(defun intermission-state-update (title subtitle side-text progress return)
|
||
"The input-taking/logic-handling component of the inventory state-function.
|
||
Part of INVENTORY-STATE."
|
||
(if (and (⌨:pressed-enter-p) (> progress 60))
|
||
return
|
||
(list :parameters
|
||
(list :title title
|
||
:subtitle subtitle
|
||
:side-text side-text
|
||
:return return
|
||
:progress (…:at-most 107 (+ progress .5))))))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Intermission loop drawing
|
||
;;; ———————————————————————————————————
|
||
(defun render-centered-line (matrix string &key (y 0))
|
||
"Given a STRING and a Y-position, render it to the MATRIX centered horizontally."
|
||
(✎:render-line
|
||
matrix
|
||
string
|
||
(list :y y
|
||
:x (floor (/ (- (second (array-dimensions matrix))
|
||
(length string))
|
||
2)))))
|
||
|
||
|
||
(defun intermission-state-draw (matrix title subtitle side-text progress)
|
||
"The drawing component of the inventory state-function.
|
||
Part of INVENTORY-STATE."
|
||
(let* ((title (…:getf-lang title))
|
||
(title-border (subseq (make-string (length title) :initial-element #\=)
|
||
0 (…:at-least 0 (…:at-most (length title)
|
||
(floor (- progress 35)))))))
|
||
;; Add a bit of a “blank” between scenes.
|
||
;; Why? Pacing, of course!
|
||
(when (> progress 35)
|
||
;; Render the title
|
||
(render-centered-line matrix title :y 1)
|
||
;; Render the borders surrounding the title
|
||
(render-centered-line matrix title-border :y 0)
|
||
(render-centered-line matrix title-border :y 2)
|
||
;; Now the sub-title…
|
||
(render-centered-line matrix (…:getf-lang subtitle) :y 4)
|
||
;; And the side-text…!
|
||
(✎:render-string matrix (…:getf-lang side-text) '(:x 15 :y 10) :width 47)
|
||
;; A little touch; a simple animation-ish line down the middle.
|
||
(✎:render-line
|
||
matrix
|
||
(subseq (make-string (second (array-dimensions matrix))
|
||
:initial-element #\~)
|
||
0 (…:at-least 0 (floor (- progress 35))))
|
||
'(:x 0 :y 9)))))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Intermission loop
|
||
;;; ———————————————————————————————————
|
||
(defun intermission-state (matrix &key title subtitle side-text progress return)
|
||
"A state-function for use with STATE-LOOP."
|
||
(sleep .02)
|
||
(intermission-state-draw matrix title subtitle side-text progress)
|
||
(intermission-state-update title subtitle side-text progress return))
|
||
|
||
|
||
(defun make-intermission-function (title subtitle side-text return)
|
||
"Return a state-function for intermission, for use with STATE-LOOP."
|
||
(lambda (matrix &key (title title) (subtitle subtitle) (side-text side-text) (return return) (progress 0))
|
||
(funcall #'intermission-state
|
||
matrix :title title :subtitle subtitle :side-text side-text :progress progress :return return)))
|
||
|
||
|
||
(defun make-intermission-state (title subtitle side-text return)
|
||
"Return a state-plist for intermission, for use with STATE-LOOP."
|
||
(list :parameters nil
|
||
:function
|
||
(make-intermission-function title subtitle side-text return)))
|
||
|