flora-search-aurora/flora-search-aurora.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
;;;; A simple TUI-game made for the text-flavoured LibreJam of 2023-06!
;;;; See: https://jamgaroo.xyz/jams/2

(ql:quickload '(alexandria assoc-utils cl-charms cl-tiled str))

(load "util.lisp")
(load "input.lisp")
(load "display.lisp")
(load "ui.lisp")
(load "overworld.util.lisp")
(load "overworld.tiled.lisp")
(load "overworld.lisp")
(load "dialogue.lisp")

(defpackage :flora-search-aurora
  (:nicknames :fsa :✿)
  (:export #:main)
  (:use :cl
   :flora-search-aurora.input :flora-search-aurora.display
   :flora-search-aurora.overworld :flora-search-aurora.dialogue
   :flora-search-aurora.ui))

(in-package :flora-search-aurora)

(defun literary-girl-dialogue-2 (map)
  (print "OWO"))

(defun literary-girl-dialogue (map)
  (lambda (matrix &key (map map)
                    (dialogue (💬:start-dialogue
                                (💬:say "literary-girl" "Blah blah, testing. A multi-lined one. For real! jjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjjj akls djlaks jdlaksj dlakjsd")
                                (💬:say "player" "ktp ktp jes jes?"))))
    (🌍:overworld-state-draw matrix map)
    (💬:dialogue-state matrix :map map :dialogue dialogue)))


(defun state-loop
    (states &key (last-matrix (make-screen-matrix)) (matrix (make-screen-matrix)) (state-params nil))
  "Begin the game’s loop, which executes (henceforthly called) state-functions over and over again
until Hell freezes over and a new king reigns supreme.
Given a list of state-functions, STATES, it will execute the first function.
Each state-function must take at least a single parameter, a matrix of characters. A state-function
should edit this matrix in-place, replacing its elements with characters that will later be printed
to the terminal.
What the state-function returns is pretty important, having different repercussions:
  * NIL       —  The function is removed from STATES, and so the next function in STATES will start
                 getting executed instead.
  * NIL; List —  The function is popped off STATES and the list is used as the new parameters for
                 the next function in STATES.
  * Function  —  The function is pushed to the front of STATES, and so is executed instead of the
                 current function.
  * List      —  The current function (front of STATES) continues to be executed with the given
                 list as a parameters list.
Make note to add a delay w SLEEP to your state functions, or… well, y’know. Your computer will
overheat, or something ¯\_(ツ)_/¯"
  (when states
    (multiple-value-bind (state-result new-state-params)
        (apply (car states) (cons matrix state-params)) ;; Run the latest-added update/draw loop
      (✎:print-screen-matrix (✎:matrix-delta last-matrix matrix)) ;; Print its results.
      (force-output)
      (state-loop
          (cond ((functionp state-result)
                 (cons state-result states))
                ((not state-result)
                 (cdr states))
                ('t states))
          :last-matrix matrix
          :state-params
          (cond ((not state-result)
                 new-state-params)
                ((listp state-result)
                 state-result))))))


(defun make-main-menu-state ()
  "Return a state-function for the game’s main menu, for use with STATE-LOOP."
  (let ((main-menu
          `(((LABEL . "PLAY")
             (SELECTION . 100) (SELECTED . T)
             (FUNCTION . ,#'make-main-overworld-state))
            ((LABEL . "SUBMENU")
             (FUNCTION . ,#'make-options-menu-state))
            ((LABEL . "QUIT") (RETURN . NIL)))))
    (lambda (matrix)
      (📋:menu-state matrix main-menu))))


(defun make-options-menu-state ()
  "Return a state-function for the options menu, for use with STATE-LOOP."
  (let ((options-menu
          `(((LABEL . "IDK")
             (SELECTION . 100) (SELECTED . T)
             (FUNCTION . ,(lambda () (print "¯\_(ツ)_/¯"))))
            ((LABEL . "GO BACK")
             (RETURN . ,NIL)))))
    (lambda (matrix)
      (📋:menu-state matrix options-menu))))


(defun make-main-overworld-state ()
  "Return a state-function for the game’s overworld (the majority of the game), for use
with STATE-LOOP."
  (lambda (matrix &rest args)
    (apply #'🌍:overworld-state
           (append (list matrix)
                   '(:map-path #p"/home/jaidyn/.local/src/games/flora search aurora/res/map.tmx")
                   args))))


(defun main ()
  "A pathetic fascimile of a main loop. What does it do? WHAST DOES TI DODOO?"
  (cl-charms:with-curses ()
    (cl-charms:enable-raw-input :interpret-control-characters 't)
    (✎:hide-cursor)
    (✎:clear-screen)
    (state-loop (list (make-main-menu-state)))))


(main) ;; — Knock-knock
;; — Who’s there?
;; — Yo momma!
;; — “Yo momma” who?
;; — Yo momma’s a sweet lady, and I’d like to take her out for some tea!