Jaidyn Ann
b61739aa24
That is, a new “Trigger” Tiled object-type has been made, which is just a rectangle with an associated function. If the rectangle is stepped upon (uwu step on me owo), the function is triggered. Y’know, standard RPG stuffs.
343 lines
15 KiB
Common Lisp
343 lines
15 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
|
||
|
||
(ql:quickload '(alexandria anaphora 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")
|
||
(load "engine.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)
|
||
|
||
|
||
(defmacro getf-act (map act)
|
||
`(getf (gethash :acts ,map) ,act))
|
||
|
||
|
||
(defmacro getf-know (map idea)
|
||
`(getf (gethash :knows ,map) ,idea))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Childhood friend (Sasha) arc
|
||
;;; ———————————————————————————————————
|
||
(defun childhood-friend-greetings (map)
|
||
(if (getf-act map :sasha-greetings)
|
||
(incf (getf-act map :sasha-greetings))
|
||
(setf (getf-act map :sasha-greetings) 0))
|
||
(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 sentas strange!"
|
||
:en "God! The way you look at me gives me the creeps!")
|
||
(: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)
|
||
(make-dialogue-state map (childhood-friend-dialogue map)))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Random casino NPCs
|
||
;;; ———————————————————————————————————
|
||
(defun boozy-lady-dialogue (&optional map)
|
||
(let ((messages
|
||
'((:eo "SaaaAAAl' belul', ĉu vjifik...vekfj/?"
|
||
:en "HeeeEey sweet-cheeks, u wan sum..?")
|
||
(:eo "Iu prenu bieron por tiu ĉi BELULO--!"
|
||
:en "Someone get this HUNK a beer--!")
|
||
(:eo "Kara, ĉu vi volus iri... min?"
|
||
:en "Baby, wanna take a ride on my... me?")
|
||
(:eo "Restu kun miii! <3"
|
||
:en "Stay a whileee! <3")
|
||
(:eo "Mia sino malvarmassss! Hlepu min, karulo~"
|
||
:en "My lap's coldd! Gimem some help, sweetie.")
|
||
(:eo "Lasu panjon instrui vin *hik* boooone"
|
||
:en "Let momma show you a good *hic* timeee")
|
||
(:eo "kaj mi diris RIKAŜIKA! DIN-DON!"
|
||
:en "and I said BAZINGA! CA-CHOW!"))))
|
||
(start-dialogue
|
||
(apply #'say (append '("boozy-lady")
|
||
(nth (random (length messages)) messages))))))
|
||
|
||
|
||
(defun boozy-lady-interact (map)
|
||
(make-dialogue-state map (boozy-lady-dialogue map)))
|
||
|
||
|
||
(defun boozy-friend-interact (map)
|
||
(make-dialogue-state
|
||
map
|
||
(start-dialogue
|
||
(say "boozy-friend" :eo "Kial ŝi ĉiufoje tiom ebriiĝas?"
|
||
:en "I swear, she gets like this every time.")
|
||
(say "boozy-friend" :eo "Kia ĝeno, tiom hontindas...!"
|
||
:en "It's so embarrasing..."))))
|
||
|
||
|
||
(defun casino-attendant-interact (map)
|
||
(make-dialogue-state
|
||
map
|
||
(start-dialogue
|
||
(say "casino-attendant" :eo "Bonvenon, estimata sinjoro!"
|
||
:en "Welcome in, good sir!")
|
||
(say "casino-attendant" :eo "Ĝuu la ludadon, kaj sorto ridetu al vi!"
|
||
:en "Have fun; may lady luck blow you a kiss!"))))
|
||
|
||
|
||
(defun casino-bartender-interact (map)
|
||
(make-dialogue-state
|
||
map
|
||
(start-dialogue
|
||
(say "casino-bartender" :eo "Pffff, ŝi tiom amuzas!"
|
||
:en "Pffff, this broad's a riot!"
|
||
:face "xD ~")
|
||
(say "casino-bartender" :eo "Fojfoje mi ja ŝatas mian fakon, mdr."
|
||
:en "Sometimes I really do like my job. lol"
|
||
:face "=w=~"))))
|
||
|
||
|
||
(defun bruh-trigger (&optional map)
|
||
(print "YAAAAAAA"))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Destitute Gambler arc
|
||
;;; ———————————————————————————————————
|
||
(defun bad-gambler-greetings (map)
|
||
(if (getf-act map :gambler-greetings)
|
||
(incf (getf-act map :gambler-greetings))
|
||
(setf (getf-act map :gambler-greetings) 0))
|
||
(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)
|
||
(make-dialogue-state map (bad-gambler-dialogue map)))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Main-menu data
|
||
;;; ———————————————————————————————————
|
||
(defparameter *submenu* `(((LABEL :en "IDK") (selection . 100) (selected t))
|
||
((LABEL :en "GO BACK") (return . nil))))
|
||
|
||
|
||
(defparameter *main-menu* `(((LABEL :en "PLAY" :eo "EKLUDI")
|
||
(selection . 100) (selected . t)
|
||
(return . ,(🌍:make-overworld-state
|
||
(format nil "~Ares/casino.tmx" (uiop:getcwd)))))
|
||
((LABEL :en "SUBMENU" :eo "SUBMENUO")
|
||
(return . ,(📋:make-menu-state *submenu*)))
|
||
((LABEL :en "QUIT" :eo "REZIGNI")
|
||
(return . nil))))
|
||
|
||
|
||
|
||
;;; ———————————————————————————————————
|
||
;;; Invocation station! 🚆
|
||
;;; ———————————————————————————————————
|
||
(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*))))
|
||
|
||
|
||
(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!
|