441 lines
20 KiB
Common Lisp
441 lines
20 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
|
||
;;;; 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)))))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; The Outside World™
|
||
;;; ———————————————————————————————————
|
||
(defun casino-entrance-trigger (&optional map)
|
||
(list :map (🌍:merge-maps map *casino-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))
|
||
`((:return-2 ,(list :map (merge-maps map *casino-map*)))))))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Casino!
|
||
;;; ———————————————————————————————————
|
||
(defun casino-exit-trigger (&optional map)
|
||
(list :map (🌍:merge-maps map *outdoors-map*)))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; 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, friend..?")
|
||
(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, kamarado."
|
||
:en "I'm giving into the void. It's quite peaceful down here, pal.")
|
||
(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)))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Main-menu data
|
||
;;; ———————————————————————————————————
|
||
(defun submenu ()
|
||
`((:en "IDK"
|
||
:selection 100 :selected t)
|
||
(:en "GO BACK"
|
||
:return nil)))
|
||
|
||
|
||
(defun main-menu ()
|
||
`((:en "PLAY" :eo "EKLUDI"
|
||
:selection 100 :selected t
|
||
:return ,(🌍:make-overworld-state *casino-map*))
|
||
(:en "SUBMENU" :eo "SUBMENUO" :row 1
|
||
:return ,(📋:make-menu-state (submenu)))
|
||
(:en "TERURE" :eo "BADLY" :row 1)
|
||
(:en "QUIT" :eo "REZIGNI" :row 2
|
||
:return nil)))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; 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!
|