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

(in-package :flora-search-aurora)


;;; ———————————————————————————————————
;;; Trans-map entity interactions
;;; ———————————————————————————————————
(defun take-item (map entity-id)
  "Take an entity from the MAP :ENTITIES and place it in the player’s pockets.
That is, into MAP’s :ITEMS."
  (let ((item-plist (cdr (getf-entity map entity-id))))
    (when item-plist
      (setf (aget-item map entity-id) item-plist)
      (removef-entity map entity-id))))


(defun take-item-dialogue (item-plist)
  "Return some dialogue expressing surprise/dread or whatever at the collection
of a new item. The attributes set for the entity item should be:
  ID
  NAME-[EO|EN]
  DESC-[EO|EN]
  REMARK-[EO|EN]
  REACTION-FACE
  REACTION-TALKING
All are optional, save ID."
  (start-dialogue
   (face   'player (or (getf item-plist :reaction-face) "^_^")
                   (or (getf item-plist :reaction-talking) "^o^"))
   (mumble 'player :en (format nil "(Hey, it's a ~A! ~A!)"
                        (or (getf item-plist :name-en) (getf item-plist :id))
                        (or (getf item-plist :remark-en) "Nice!"))
                   :eo (format nil "(Ho, jen ~A! ~A)"
                               (or (getf item-plist :name-eo) (getf item-plist :id))
                               (or (getf item-plist :remark-eo) "Interese!")))
   (mumble 'player :en (if (getf item-plist :desc-en)
                           (format nil "~A" (getf item-plist :desc-en))
                           "(I'm glad I found it.)")
                   :eo (if (getf item-plist :desc-eo)
                           (format nil "~A" (getf item-plist :desc-eo))
                           "(Kia bonŝanco!)"))))


(defun take-item-interact (map interactee-id)
  "Try to “pick up” the interactee entity, then have the player react to the
pickup. See TAKE-ITEM-DIALOGUE for customizing the reaction dialogue.
Should be the `interact` function for takeable items."
  (let ((item-plist (cdr (getf-entity map interactee-id))))
    (when (take-item map interactee-id)
      (make-dialogue-state map (take-item-dialogue item-plist)))))


(defun description-interact (map interactee-id)
  "An interact-function that can be used for displaying simple descriptions of
items on the map. These descriptions can be set by the :DESC-EN and :DESC-EO
properties of an entity (editable from Tiled)."
  (let ((item-plist (cdr (getf-entity map interactee-id))))
    (make-dialogue-state
     map
     (apply #'start-dialogue
            (loop for en-line in (str:lines (getf item-plist :desc-en))
                  for eo-line in (str:lines (getf item-plist :desc-eo))
                  collect (mumble 'player :en en-line :eo eo-line))))))


(defun monologue-interact (map interactee-id)
  "An interact-function that can be used for displaying a monologue of a the
interactee — that is, they say the dialogue defined in the interactee’s
:SPEECH-EN and :SPEECH-EO properties."
  (let ((item-plist (cdr (getf-entity map interactee-id))))
   (make-dialogue-state
    map
    (apply #'start-dialogue
           (loop for en-line in (str:lines (getf item-plist :speech-en))
                 for eo-line in (str:lines (getf item-plist :speech-eo))
                 collect (say interactee-id :en en-line :eo eo-line))))))


(defun random-monologue-interact (map interactee-id)
  "An interact-function that can be used for displaying a random piece of
dialogue as a monologue of a the interactee — that is, they say the dialogue
defined in the interactee’s :SPEECH-EN and :SPEECH-EO properties.
Each line in :SPEECH-EN or :SPEECH-EO is treated as a seperate line of
dialogue, among which one will be selected randomly."
  (let* ((item-plist (cdr (getf-entity map interactee-id)))
         (eo-line (alexandria:random-elt (str:lines (getf item-plist :speech-eo))))
         (en-line (alexandria:random-elt (str:lines (getf item-plist :speech-en)))))
    (make-dialogue-state
      map (start-dialogue (say interactee-id :en en-line :eo eo-line)))))


(defun move-trigger (map trigger-plist)
  "A trigger function that forces the player to move either relatively or
absolutely, depending on the properties of TRIGGER-PLIST (:ΔX & ΔY or X & Y).
It will also display a monologue of the :DESC-* properties before movement.
Useful for making barriers the player character refuses to traverse."
  (make-dialogue-state
   map
   (apply
    #'start-dialogue
    (append
      (loop for en-line in (str:lines (getf trigger-plist :desc-en))
         for eo-line in (str:lines (getf trigger-plist :desc-eo))
         collect (mumble 'player :en en-line :eo eo-line))
      (list (move 'player (list :Δx (getf trigger-plist :Δx)
                                :Δy (getf trigger-plist :Δy)
                                :x (getf trigger-plist :x)
                                :y (getf trigger-plist :y))))))))


(defun entrance-trigger (map trigger-plist)
  "A trigger that can be used to move the user from one MAP to another, via the
:MAP property in a trigger’s Tiled entity."
  (list :parameters
        (list :map (🌍:merge-maps map (symbol-value (read-from-string (getf trigger-plist :map)))))))


(defun item-refusal-lines (string item)
  "Given an ITEM’s symbol ID, return all speech lines according it.
These are encoded in an entity’s :ITEM-SPEECH-[EN|EO] properties, with the ID at
the start of each line followed by a tab and the speech line."
  (mapcar #'cadr
   (remove-if-not
    (lambda (pair)
      (eq (…:string->symbol (car pair)) item))
    (mapcar
     (lambda (line)
       (str:split #\tab line))
     (str:lines string)))))


(defun refusal-use (map item-plist entity)
  "A generic use function for entities that can be used to display refusal
messages embedded in the Tiled map data."
  (let* ((refusal-en-lines (item-refusal-lines (getf-entity-data map entity :item-speech-en)
                                               (…:string->symbol (getf item-plist :id))))
         (refusal-eo-lines (item-refusal-lines (getf-entity-data map entity :item-speech-eo)
                                               (…:string->symbol (getf item-plist :id))))
         (en-lines (if (str:emptyp (str:unlines refusal-en-lines))
                       (str:lines (or (getf-entity-data map entity :item-default-en) "No thanks."))
                       refusal-en-lines))
         (eo-lines (if (str:emptyp (str:unlines refusal-eo-lines))
                       (str:lines (or (getf-entity-data map entity :item-default-eo) "Ne, dankon."))
                       refusal-eo-lines)))
    (make-dialogue-state
     map
     (apply #'start-dialogue
            (loop for eo-line in eo-lines
                  for en-line in en-lines
                  collect (say entity :en en-line :eo eo-line))))))


(defun to-person-use (&optional map item-plist)
  "A function ran by INVENTORY 🎒 when an item is “used”, which will try to
run the :USE function of the nearest entity, if it has any."
  (let ((nearby (car (entities-near-entity (getf-entity map 'player)
                                           (gethash :entities map)))))
    (if (and nearby (getf (cdr nearby) :use))
        (let ((use-result (funcall (…:string->symbol (getf (cdr nearby) :use))
                                   map item-plist (car nearby))))
          (typecase use-result
            (list (nconc (list :drop 1) use-result))
            (t use-result)))
        (nconc
         (list :drop 1
           (make-dialogue-state
             map
             (start-dialogue (mumble 'player :en "(They don't seem to want it.)"))))))))



;;; ———————————————————————————————————
;;; The Outside World™
;;; ———————————————————————————————————
(defun factory-window-interact (&optional map interactee-id)
  (make-dialogue-state
   map
   (start-dialogue
    (face 'player "` `" "`o`")
    (mumble 'player :eo "(Al ĉi tiu fenesto tute mankas vitro!)"
                    :en "(This window's got no pane at all!)")
    (mumble 'player :eo "(Mi kredeble povus grimpi tien, fakte...)"
                    :en "(I could probably fit my way in there, actually...)")
    (mumble 'player :eo "(... sed ĉu vere farindas?)"
                    :en "(... but should I?)"
                    :face "`o`"))))



;;; ———————————————————————————————————
;;; Random outdoors NPCs
;;; ———————————————————————————————————
(defun kvincent-greetings (map)
  (case (…:incf-0 (getf-act map :kvincent-greetings))
    (0
     (start-dialogue
      (face 'kvincent "@__@" ">OO<")
      (face 'player   ":w:" ":o:")
      (say  'kvincent :eo "AIIII! Ve! Ve! Diablo! Jen diablo!"
                      :en "AIIII! Woe is me! The Devil has come!")
      (say  'player   :eo "Kvincent, Kvincent! Trankviliĝu, trankviliĝu! Estas mi!"
                      :en "Kvincent, Kvincent! Calm down, it's just me!")

      (say  'kvincent :eo "... bedaŭron?"
                      :en "... pardon?")
      (face 'kvincent "@w@" "@o@")
      (say  'kvincent :eo "Hooo, vi tute ne estas diablo! Vi estas nura homo!"
                      :en "Ooooh, you're not the Devil! You're just a person!"
                      :face "@v@")
      (say  'player   :eo "Kompreneble!"
                      :en "Obviously not!")))
    (otherwise
     (start-dialogue
      (face 'player   "=w='" "=o='")
      (face 'kvincent "@__@" ">OO<")
      (say  'kvincent :eo "AJJJJ! Ve! Ve! Dia..."
                      :en "AIIII! Woe is me! Dev...")
      (say  'player   :eo "Mi ankoraŭ ne estas diablo!!"
                      :en "I'm still no demon!!")
      (face 'kvincent "@w@" "@o@")
      (say  'kvincent :eo "Ha, jes. Pardonu."
                      :en "Oh, right. Sorry.")))))


(defun kvincent-dialogue (map)
  (append (kvincent-greetings map)
          (start-dialogue
           (face 'player   "` `" "`o`")
           (say  'player   :eo "Ĉu ĉio enordas, Kvincent?"
                           :en "Everything alright, Kvincent?")
           (say  'kvincent :eo "Mi apenaŭ trovas fungojn, hodiaŭ... la dioj malbenis min!"
                           :en "I'm hardly finding any mushrooms... I've been cursed!")
           (say  'player   :eo "Nek mi povas trovi florojn! Kia malfacila tago."
                           :en "I can't find any flowers, either! Today sucks."
                           :face "vov\'"))))


(defun kvincent-interact (map &optional interactee-id)
  (make-dialogue-state map (kvincent-dialogue map)))



;;; ———————————————————————————————————
;;; Childhood friend (Sasha) arc
;;; ———————————————————————————————————
(defun childhood-friend-greetings (map)
  (…:incf-0 (getf-act map :sasha-greetings))
  (let ((sasha 'childhood-friend))
    (case (getf-act map :sasha-greetings)
       (0
        (💬:start-dialogue
         (💬:mumble sasha   :en "...")
         (💬:say    'player :eo "Kielas apud la mar'?"
                            :en "How's the view?")
         (💬:face   'player "<.<" "<o<")
         (💬:say    sasha   :eo "Kielas apud la ruinoj de via viv'?"
                            :en "How's your trainwreck of a life?")))
       (1
        (start-dialogue
         (mumble 'player  :en "...")
         (face   'player  "<w<")
         (say    sasha    :eo "Kial vi restas? Ĉu tiom solecas ke nur ideas ĝeni min?"
                          :en "Why are you still here? Are you so lonely you've only got me to bother?")
         (face   'player  ":w:" ":u:")
         (mumble 'player  :eo "(Ŝi parolas pri si mem, ĉu ne?)"
                          :en "(She's projecting, isn't she?)")))
       (2
        (start-dialogue
         (face   'player  ":w:" ":o:")
         (say    'player  :eo "Nu... Vi staris tie ĉi senmove dum la pastintaj tri tagoj..."
                          :en "So... You've stood around here for three days already, you've hardly moved...")
         (say    sasha    :eo "Pŝ! Do?! Mi simple havas multajn pripensindaĵojn! Mi tiom multe okupiĝas!"
                          :en "Pff! So what?! My mind's just busy! I've got a lot going on right now!"
                          :face "vov")
         (say    sasha    :eo "Ne ŝajnigu vin supera al mi, dum vi mem senespere sencelas!!"
                          :en "Don't act all haughty when you're such an aimless loser yourself!!"
                          :face ">o<")
         (face   'player  "=w=" "=u=")
         (mumble 'player  :eo "Eee.. pardonu."
                          :en "Well... sorry.")))
       (3
        (start-dialogue
         (say    'player  :eo "Nu, vere, mia celo sufiĉe klaras al mi. Jam baldaŭ redungiĝos."
                          :en "I'm not too aimless, actually. I've got good job prospects, right about now."
                          :face "<w<")
         (say    sasha    :eo "Mi tute ne prizorgas."
                          :en "I really don't care."))))))


(defun childhood-friend-partings ()
  (let ((partings
          '((:eo "Nu? Ĝis! Adiaŭ!"
             :en "Well? Bye! Ta-ta!")
            (:eo "Ve! Eĉ via rigardo malkomfortigas!"
             :en "God! You're such a creep!")
            (:eo "Lasu! Min! Sooooola!"
             :en "Leave me! The hell! Alooooone!")
            (:eo "Subvermo!"
             :en "Worm!"))))
    (start-dialogue
      (apply #'say (append '(childhood-friend)
                           (nth (random (length partings)) partings))))))


(defun childhood-friend-dialogue (map)
  (let ((greetings (getf-act map :sasha-greetings)))
    (cond ((or (not greetings)
               (< greetings 3))
           (childhood-friend-greetings map))
          ('t
           (childhood-friend-partings)))))


(defun childhood-friend-interact (map &optional interactee-id)
  (make-dialogue-state map (childhood-friend-dialogue map)))



;;; ———————————————————————————————————
;;; School prologue: Childhood friend
;;; ———————————————————————————————————
(defun flashback-school-trigger (map)
  "This is triggered right as the player enters the map — they literally can't
avoid triggering this."
  (take-item map 'bracelet)
  't)


(defun flashback-childhood-friend-interact (map &optional sasha)
  (make-dialogue-state
   map
   (start-dialogue
    (face   'player "` `" "`o`")
    (say    'player :eo "Ĉu ĉio enordas, Saŝa? Iom malfruas, ĉu ne?"
                    :en "Is everything OK, Sasha? It's a bit late, isn't it?")
    (face   sasha   "=_=" "=o=")
    (say    sasha   :eo "Ho, jes, mi simple ĵus eliris klubkunvenon."
                    :en "Yea, I just left a club-meeting, is all.")
    (say    'player :eo "Hodiaŭ ne estas klubotago..."
                    :en "Today isn't club day...")
    (say    sasha   :eo "Nu, estas escepte speciala klubo!"
                    :en "Well, whatever, it's a special club!"
                    :face "<o<")
    (say    sasha   :eo "Nu, kial VI restas? Ĉu ankoraŭ havas ne amikojn?"
                    :en "And what're YOU doing here? Still no friends?")
    (say    'player :eo "Ankoraŭ sole vin."
                    :en "Still just you.")
    (face   sasha   ":v:" ":o:")
    (mumble sasha   :en "...")
    (say    sasha   :eo "Nu..."
                    :en "Well...")
    (mumble sasha   :en "...")
    (face   sasha   "<-<" "<o<")
    (face   'player ":w:" ":u:")
    (say    sasha   :eo "Pŝ! Fermu la buŝon, vermo!"
                    :en "Ugh! Just shut up, you loser!")
    (face   sasha   ">->" ">o>")
    (say    sasha   :eo "Kvazaŭ ni povus esti tiel!"
                    :en "As if!")
    (face   sasha   "<-<" "<o<")
    (say    sasha   :eo "Simple lasu min al paco, fek'!!"
                    :en "Just get the hell out of my face!!"
                    :face ">o<")
    (say    'player :eo "Bedaŭron..."
                    :en "Sorry...")
    (move   'player '(:x 46 :y 11) :delay .05)
    (face   'player "^_^" "^o^")
    (say    'player :eo "Ho, jes!"
                    :en "Oh, yea!")
    (move   sasha  '(:x 36 :y 3) :delay .03)
    (move   'player '(:x 43 :y 4) :delay .05)
    (move   sasha  '(:x 37 :y 3))
    (say    'player :eo "Mi freŝe trovis ĉi tion, ĝi ŝajnis akorda al via stilo."
                    :en "I found this a while back, I thought you'd like it.")
    (face   sasha   ":w:" ":u:")
    (mumble 'player :eo "[Vi donas al SAŜA ĉirkaŭmanon belbrilan.]"
                    :en "[You give SASHA a shiny bracelet.]")
    (say    sasha   :eo "Ho, tio surprize afablis...."
                    :en "Oh, that's surprisingly nice...")
    (face   sasha   "<w<" "<o<")
    (face   'player ";w:" ";o:")
    (say    sasha   :eo "... jen la sola koloro, kiun mi malamas."
                    :en "... this is literally the one color I hate.")
    (say    sasha   :eo "Kial vi ne elektis bluan? Dio mia."
                    :en "You couldn't have gotten blue?")
    (say    sasha   :eo "Mi jam bone sciu, ne atendi bonon de vi."
                    :en "I should know not to expect so much from you...")
    (say    sasha   :eo "Bonaj \"amikoj\" ni estas, ja..."
                    :en "\"Friends\" my ass.")
    (face   'player "T_T" "ToT")
    (say    'player :eo "Je Dio, mi ne povas elteni plu. Mi rezignas."
                    :en "You know what? I give up.")
    (move   'player '(:x 41 :y 3) :delay .05)
    (face   sasha   ";_:")
    (mumble 'player :eo "[Vi prenas de SAŜA ĉirkaŭmanon belbrilan.]"
                    :en "[You take a shiny bracelet from SASHA.]")
    (move   'player '(:x 46 :y 5) :delay .05)
    (say    'player :eo "Mi rezignas."
                    :en "I can't take this anymore.")
    (move   'player '(:x 47 :y 9) :delay .05)
    (say    'player :eo "Vi teruras, Saŝa."
                    :en "You're the worst, Sasha.")
    (move   'player '(:x 51 :y 19))
    `((:parameters ,(list :map (merge-maps map *casino-map*)))))))



;;; ———————————————————————————————————
;;; Casino!
;;; ———————————————————————————————————

;;; ———————————————————————————————————
;;; Destitute Gambler arc
;;; ———————————————————————————————————
(defun bad-gambler-greetings (map)
  (…:incf-0 (getf-act map :gambler-greetings))
  (let ((gambler 'bad-gambler))
    (case (getf-act map :gambler-greetings)
       (0
        (start-dialogue
         (face   gambler "xD ")
         (mumble gambler :en "Hahaha... haha.")
         (say    gambler :eo "Kia spektalo! Hahaha!"
                         :en "Good one! Hahaha!"
                         :face "xDD")
         (say    gambler :en "Hahahaha! Hahahahaha!"
                         :face "x'D")
         (face   'player "^^'")
         (face   gambler ">V<" ">O<")
         (say    gambler :eo "Tiom amuze! Bona ŝerco!"
                         :en "Shit that's funny!"
                         :face ">V<")
         (face   'player "^^\"")
         (say    gambler :eo "Mi tute ruinigis mian vivon! MDR!"
                         :en "I totally fucked my life! LMAO!"
                         :face ">V<")
         (face   'player "o-o" "ouo")
         (say    gambler :en "HAHAHAHAHAHAHAHAHAHAAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAHAAHAHAHAHAHAHAHAHAHAHAHAHA")
         (face   gambler "=w=" "=w=")
         (mumble gambler :en "...")
         (mumble gambler :eo "Fek'."
                         :en "Fuck.")))
       (1
        (start-dialogue
         (say 'player :eo "Ĉu... ĉio enordas, samideano?"
                      :en "Everything alright, man..?")
         (say gambler :eo "Jes! Tutorde! Bonas!"
                      :en "Yup! For sure! All good!")
         (say gambler :eo "Mi simple trafis iujn monproblemojn, ne problemas."
                      :en "I've just hit a slight snag financially, it's no problem.")
         (say gambler :eo "Nur povas ne repagi monprunton."
                      :en "I just can't repay my mortgage.")
         (say gambler :eo "... kiun mi pruntis por repagi alian monprunton."
                      :en "... that I took out to pay back a loan.")
         (say gambler :eo "... kiun mi pruntis por subteni la kompanion de mia frato."
                      :en "... that I borrowed to support my bro's company.")
         (say gambler :eo "... kiu estas senpaga lernejo por handikapuloj."
                      :en "... that's a non-profit school for disabled kids.")
         (say gambler :eo "... danke al kiu mia filino povas edukiĝi bone."
                      :en "... thanks to which my daughter can receive a good education.")
         (say gambler :eo "Kial mi forĵetis la monon tie ĉi?! FEK'!!"
                      :en "Why'd I waste it all here?! FUCK!!"
                      :face ">O<")))
       (2
        (start-dialogue
         (say gambler :eo "Nu, ĉio enordas! Ni simple perdos la domon, jen ĉio."
                      :en "Anyways, all good! We'll just lose the house, that's all.")
         (say gambler :eo "Kompreneble, perdinte la domon, mia edzino lasos min, kunprenante la gefilojn..."
                      :en "Obviously, after losing the house, my wife'll take leave with the kids...")
         (say gambler :eo "Dommastrino sen domo ja ne sencas, do!"
                      :en "A house-mistress without a house is no mistress at all, of course!")
         (say gambler :eo "Kaj kromvirino sen edzino ja ne sencas, do lasos min ankaŭ ŝi..."
                      :en "And a side-piece without a 'main-piece' is no side-piece at all, so she'll leave me too...")
         (say gambler :eo "Neniu mono, neniu domo, neniu filo, neniu edzino, neniu kromvirino!"
                      :en "No money, no house, no children, no wife, no mistress!")
         (say gambler :eo "Neniu vivo!"
                      :en "No life!")))
       (3
        (start-dialogue
         (say  gambler :eo "Mi cedu al la vakuo. Tre komfortas ĉe la fundo, kara."
                       :en "I'm giving into the void. It's quite peaceful down here, buddy.")
         (say  gambler :eo "Mi lasu min falu entute, ĉu ne, kara amiko? Ĉu neee?"
                       :en "I should let go, right, pal? Righttt?")
         (face 'player ";w;" ";o;")
         (say  'player :eo "Ne tro senesperu -- sinjoro, restas al vi fuĝvojo, sendube!"
                       :en "Guy, there's still hope for you, somewhere!")
         (face gambler "=v=" "=v=")
         (say  gambler :eo "Mi ideas IAN fuĝvojon..."
                       :en "Five feet under, maybe..."))))))


(defun bad-gambler-partings (&optional map)
  (let ((messages
          '((:eo "... kaj ŝiaj mamoj tiom belis..."
             :en "... her titties were so nice, too...")
            (:eo "... vakuo, nenio, detruo..."
             :en "... emptiness, nothing, destruction...")
            (:eo "... vivo, bruo. morto, paco..."
             :en "... life, noise. death, peace...")
            (:eo "... laco, kaco, maĉo-veneno..."
             :en "... tired, weary, dreary...")
            (:eo "... tempo, tik-tok, malfruo..."
             :en "... time, tick-tock, too late...")
            (:eo "... finiĝo, ĉesiĝo, paciĝo..."
             :en "... endings, partings, peace-ings..."))))
    (start-dialogue
     (apply #'say (append '(bad-gambler)
                          (nth (random (length messages)) messages))))))


(defun bad-gambler-dialogue (map)
  (let ((greetings (getf-act map :gambler-greetings)))
    (cond ((or (not greetings)
               (< greetings 3))
           (bad-gambler-greetings map))
          ('t
           (bad-gambler-partings)))))


(defun bad-gambler-interact (map &optional interactee-id)
  (make-dialogue-state map (bad-gambler-dialogue map)))



;;; ———————————————————————————————————
;;; Casino prologue: Bad gambler!
;;; ———————————————————————————————————
(defun flashback-bad-gambler-dialogue ()
  (let ((gambler 'flashback-bad-gambler))
    (start-dialogue
      (say  gambler :eo "Kia spektalo! Hahaha!"
                    :en "How nice! Hahaha!")
      (face gambler ">v<" ">u<")
      (face 'player "o-o")
      (say  gambler :en "HAHAHAHAHAHAHAHAHAHAHAHA!")
      (face 'player "=w='")
      (say  gambler :eo "Hehe-Heŭreka! Ĉi-nokte, Sorto estas mia kromvirino!"
                    :en "Haha-Hot damn, lady luck's my mistress tonight!")
      (face gambler "^#^" "^O^")
      (say  gambler :eo "ĉu vi sciis, kara?"
                    :en "Guess what, buddy?")
      (say  gambler :eo "Por tiu ĉi ludo mi havas feke legendan vetaĵon!"
                    :en "I've got one hell of a chip for this game!")
      (face 'player "^_^" "^o^"))))


(defun flashback-bad-gambler-interact (map &optional interactee-id)
  (make-dialogue-state map (flashback-bad-gambler-dialogue)))


(defun flashback-casino-dialogue-intro ()
  (let ((father 'flashback-casino-father)
        (mother 'flashback-casino-mother)
        (dealer 'flashback-casino-dealer)
        (geezer 'flashback-casino-geezer)
        (gambler 'flashback-bad-gambler))
    (start-dialogue
     (say    dealer  :eo "Ĉu ĉiu pretas?"
                     :en "Everyone ready?")
     (say    geezer  :eo "Pretis jam antaŭ vi eĉ naskiĝis!"
                     :en "I've been ready since before you were born!")
     (say    gambler :eo "Ĉu necesas demandi?"
                     :en "Need you ask?")
     (say    father  :eo "Ni pretas, ankaŭ!"
                     :en "We're ready, too!")
     (say    'player :en "Eee...!"
                     :face ";w:")
     (say    father  :eo "Ho, jes, vi ne scipovas ludi."
                     :en "Oh, right, you still don't know how to play.")
     (say    father  :eo "Atendu momente, ĉiu, mi klarigos rapide!"
                     :en "Hold on, everyone, we'll be quick!")
     (say    father  :eo "Bone: Vikĉjo, atentu! Mi ne min ripetos!"
                     :eo "Alright, Vic! Listen up, 'cuz I'm not gonna repeat myself!")
     (say    father  :eo "La ludestro disdonas kartojn hazardkaŝe. La kartvaloro sekvas la numerojn, krom se estas kolora karto. Se estas kolora karto, la valoro sekvas la Epokon de la ludo. La unua Epoko estas Antaŭhistorio, kaj kompreneble plej valoras tiam la..."
                     :en "The dealer hands out cards randomly and discretely. The cards' value is based on their number, unless they're a coloured card, in which case the value is based on the Era of the game. The first Era is Pre-history, and of course the most imporant card in Pre-history is...")
     (face   'player "=w='" "=o='")
     (say    'player :eo "(Mi ĝojas festi kun ĉiu, sed ĉi tiu ludo sonas jam tro malsimpla por mi...)"
                     :en "(I'm glad to party like this with my folks, but this game sounds a bit complicated...)")
     (say    'player :eo "(Ĉu ne ni povus simple ludi Hanafudan?)"
                     :en "(Why can't we just play Hanafuda?)"
                     :face "=w='")
     (say    father  :eo "... kaj tiel oni venkas la markizon.")
     (say    father  :eo "Bone, jen ĉio!")
     (say    gambler :eo "Finfine!!"))))


(defun flashback-casino-dialogue-bet (map)
  (let ((father 'flashback-casino-father)
        (mother 'flashback-casino-mother)
        (dealer 'flashback-casino-dealer)
        (geezer 'flashback-casino-geezer)
        (gambler 'flashback-bad-gambler))
    (append
     (start-dialogue
      (say    gambler :eo "Jen, mi vetas ĉi tion!"
                      :en "Now, I'm putting this down!")
      (say    gambler :eo "Momenton..."
                      :en "Wait..."
                      :face "`o`")
      (say    gambler :eo "He?! Mi perdis la geeziĝan ringon?!"
                      :en "Wait... what?! I lost my wedding ring?!"
                      :face "O_O"))
     (if (aget-item map 'ring)
         (start-dialogue
          (face   'player "^_^" "^o^")
          (say    'player :eo "Ho! jen!"
                          :en "Ĉu estas tia ĉi?")
          (mumble 'player :eo "[Vi donas RINGON al HAZARDLUDEMULO]"
                          :en "[You give RING to GAMBLER]")
          (face   gambler "=w=" "=w=")
          (say    gambler :eo "..."
                          :en "...")
          (face   gambler ":W:" ":O:")
          (say    gambler :eo "Je dio!! Dankegon, kara!!"
                          :en "God damn!! Thank you, buddy!!")
          (say    gambler :eo "Mi preskaŭ tiom senesperis!"
                          :en "I almost gave into despair!")
          (face   gambler "^#^" "^O^")
          (say    gambler :eo "NUN mi pretas ludi."
                          :en "NOW I'm ready to play.")
          (mumble gambler :eo "[HAZARDLUDEMULO donas GEEDZIĜAN RINGON al TABLO]"
                          :en "[GAMBLER gives WEDDING RING to TABLE")
          (say    'player :eo "Ĉu vere?! Kio misas je vi!?!"
                          :en "Seriously?! What's wrong with you!?!"
                          :face ">O<")
          (face   'player ":w:'")
          (say    gambler :en "Live fast die hard, brother!"
                          :eo "Vivu akre mortu frue!"
                          :face "B-)")
          (say    mother  :eo "Vi provis, Vikĉjo..."
                          :en "You tried, Vic..."))
         (start-dialogue
          (say    gambler :eo "... bone do, tio ĉi sufiĉos."
                          :en "... fine then, this'll have to do."
                          :face "<v<")
          (mumble gambler :eo "[HAZARDLUDEMULO donas BIENPOSEDON al TABLO]"
                          :en "[GAMBLER gives LAND OWNERSHIP to TABLE]")
          (face   'player ":w:" ":0:")
          (say    'player :eo "Ĉu vi frenezas?! Ne tion faru!!"
                          :en "Are you crazy?! Don't do that!!")
          (say    mother  :eo "Lasu lin, Vikĉjo."
                          :en "Leave him, Vic.")
          (say    mother  :eo "La fonto de amuzo estas senzorga risko!"
                          :en "The root of all of joy is careless, unthinking risk!")
          (say    father  :eo "Tielas la animokerno de la kartoj."
                          :en "Such is the nature of the cards."))))))


(defun flashback-casino-outro (map)
  (start-dialogue
   (say 'flashback-casino-dealer
        :eo "Nu, ĉiu krom li, metu viajn vetaĵojn. Ni komencos je la Nula Epoko!"
        :en "As for the rest of you, place your bets. It's time for the Zeroth Era!")
   `((:parameters ,(list :map (merge-maps map *outdoors-map*))))))


(defun flashback-casino-dialogue (map)
  (append (flashback-casino-dialogue-intro)
          (flashback-casino-dialogue-bet map)
          (flashback-casino-outro map)))


(defun flashback-casino-seat-trigger (map &optional trigger-plist)
    (make-dialogue-state
     map
     (flashback-casino-dialogue map)))



;;; ———————————————————————————————————
;;; Main-menu data
;;; ———————————————————————————————————
(defun submenu ()
  `((:en "IDK"
     :selection 100 :selected t)
    (:en "GO BACK"
     :drop 1)))


(defun main-menu ()
  `((:en "PLAY" :eo "EKLUDI"
     :selection 100 :selected t
     :function ,(🌍:make-overworld-state *outdoors-map*))
    (:en "SUBMENU" :eo "SUBMENUO" :row 1
     :function ,(📋:make-menu-state (submenu)))
    (:en "TERURE" :eo "BADLY" :row 1)
    (:en "QUIT" :eo "REZIGNI" :row 2
     :drop 1)))



;;; ———————————————————————————————————
;;; Invocation station! Choo-choo! 🚆
;;; ———————————————————————————————————
(defun main ()
  "A pathetic fascimile of a main loop. What does it do? WHAST DOES TI DODOO?
What a mysteryyy! You’ll have to check out the engine to uncover it.
engine.lisp, that is. Cheers! :D"
  (⚙:main (list (📋:make-menu-state (main-menu)))))


;; — 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!