diff --git a/flora-search-aurora.lisp b/flora-search-aurora.lisp index 285d2af..1f9862a 100644 --- a/flora-search-aurora.lisp +++ b/flora-search-aurora.lisp @@ -43,20 +43,20 @@ of a new item. The attributes set for the entity item should be: 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!)")))) + (💬: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) @@ -78,7 +78,7 @@ properties of an entity (editable from Tiled)." (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)))))) + collect (💬:mumble 'player :en en-line :eo eo-line)))))) (defun monologue-interact (map interactee-id) @@ -86,12 +86,12 @@ properties of an entity (editable from Tiled)." 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)))))) + (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) @@ -104,7 +104,7 @@ dialogue, among which one will be selected randomly." (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))))) + map (start-dialogue (💬:say interactee-id :en en-line :eo eo-line))))) (defun move-trigger (map trigger-plist) @@ -117,13 +117,13 @@ Useful for making barriers the player character refuses to traverse." (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)))))))) + (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) @@ -138,13 +138,13 @@ Useful for making barriers the player character refuses to traverse." 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))))) + (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) @@ -165,7 +165,7 @@ messages embedded in the Tiled map data." (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)))))) + collect (💬:say entity :en en-line :eo eo-line)))))) (defun to-person-use (&optional map item-plist) @@ -182,9 +182,9 @@ run the :USE function of the nearest entity, if it has any." (nconc (list :drop 1) (make-dialogue-state - map - (start-dialogue (mumble 'player :en "(They don't seem to want it.)" - :eo "(Ĝi verŝajne ne volas tion.)"))))))) + map + (start-dialogue (💬:mumble 'player :en "(They don't seem to want it.)" + :eo "(Ĝi verŝajne ne volas tion.)"))))))) @@ -196,14 +196,14 @@ run the :USE function of the nearest entity, if it has any." (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`")))) + (💬: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`")))) @@ -214,45 +214,45 @@ run the :USE function of the nearest entity, if it has any." (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!") + (💬: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!"))) + (💬: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."))))) + (💬: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\'")))) + (💬: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) @@ -267,44 +267,44 @@ run the :USE function of the nearest entity, if it has any." (…: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<") - (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 "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 "o<") - (say 'player :eo "Kial vi ankoraŭ forpuŝas min ĉi tiom?" - :en "Why do you still push me away this much?") - (say sasha :eo "Puŝas? Bona ideo, mi falpuŝu vin al la maro!" - :en "Push? Good idea, I'll push you off this cliff!") - (say 'player :eo "Vi ankoraŭ kompenas nenion ajn, Saŝa." - :en "You still don't get it at all, Sasha.") - (say 'player :eo "... kaj ne puŝu min, bonvole!!" - :en "... and please don't push me!!" - :face "@o@"))) + (💬:face sasha "v-v" "vov") + (💬:face 'player ":w;" ":o;") + (💬:say sasha :eo "Pŝ!" + :en "Psh!") + (💬:say sasha :eo "Ankoraŭ estas la malĝusta koloro, do..!" + :en "It's still the wrong colour, so..!" + :face "o<") + (💬:say 'player :eo "Kial vi ankoraŭ forpuŝas min ĉi tiom?" + :en "Why do you still push me away this much?") + (💬:say sasha :eo "Puŝas? Bona ideo, mi falpuŝu vin al la maro!" + :en "Push? Good idea, I'll push you off this cliff!") + (💬:say 'player :eo "Vi ankoraŭ kompenas nenion ajn, Saŝa." + :en "You still don't get it at all, Sasha.") + (💬:say 'player :eo "... kaj ne puŝu min, bonvole!!" + :en "... and please don't push me!!" + :face "@o@"))) (defun childhood-friend-dialogue-bracelet-good-end (sasha) (start-dialogue - (face sasha "=v=\"" "=v=\"") - (say sasha :eo "Nu, dankon..." - :en "Well, thanks...") - (say sasha :eo "[SAŜA prenas ĈIRKAŬMANON de vi.]" - :en "[SASHA takes BRACELET from you.]") - (face sasha "w>") - (say 'player :eo "Mi ĝojas, ke finfine estos via." - :en "I'm glad it's finally yours.") - (say sasha :eo "Mi suportos ĝin ĉiutage!" - :en "I'll wear it every day!" - :face "^o^") - (say sasha :eo "... ho. Fek! Nu!" - :en "... wait. Shit!" - :face "o<") - (face 'player "` `" "`o`") - (mumble 'player :eo "(Mi supozas, ke la kerno de homo ne tro multe sanĝiĝas...)" - :en "(At the end of the day, I guess people can't change too much...)") - (mumble 'player :eo "(Sed tamen." - :en "(But y'know what? This is good enough for me.)") - (face 'player "^w^" "^o^") - (mumble 'player :eo "(Ĉi tio sufiĉas al mi!)" - :en "(This is good enough for me!)"))) + (💬:face sasha "=v=\"" "=v=\"") + (💬:say sasha :eo "Nu, dankon..." + :en "Well, thanks...") + (💬:say sasha :eo "[SAŜA prenas ĈIRKAŬMANON de vi.]" + :en "[SASHA takes BRACELET from you.]") + (💬:face sasha "w>") + (💬:say 'player :eo "Mi ĝojas, ke finfine estos via." + :en "I'm glad it's finally yours.") + (💬:say sasha :eo "Mi suportos ĝin ĉiutage!" + :en "I'll wear it every day!" + :face "^o^") + (💬:say sasha :eo "... ho. Fek! Nu!" + :en "... wait. Shit!" + :face "o<") + (💬:face 'player "` `" "`o`") + (💬:mumble 'player :eo "(Mi supozas, ke la kerno de homo ne tro multe sanĝiĝas...)" + :en "(At the end of the day, I guess people can't change too much...)") + (💬:mumble 'player :eo "(Sed tamen." + :en "(But y'know what? This is good enough for me.)") + (💬:face 'player "^w^" "^o^") + (💬:mumble 'player :eo "(Ĉi tio sufiĉas al mi!)" + :en "(This is good enough for me!)"))) (defun childhood-friend-dialogue-bracelet (map sasha) @@ -446,43 +446,43 @@ avoid triggering this." (defun flashback-childhood-friend-dialogue-intro (sasha) (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 "Kvazaŭ ni povus esti tiel!" - :en "As if!") - (face sasha "<-<" "o<") - (say 'player :eo "Bedaŭron..." - :en "Sorry...") + (💬: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 "Kvazaŭ ni povus esti tiel!" + :en "As if!") + (💬:face sasha "<-<" "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!") + (💬: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)))) @@ -490,28 +490,28 @@ avoid triggering this." (defun flashback-childhood-friend-dialogue-bracelet (map sasha) (start-dialogue - (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 "_<" ">o<") - (say 'boozy-lady :eo "Plia biero por mi, sinjoro!!" - :en "Jkjk. One more for me, barkeep!!") - (say 'casino-bartender - :eo "Bone, momenton!!" - :en "Sure thing, lady!" - :face "xD "))) + (💬:face 'player "^_^" "^o^") + (💬:say 'boozy-lady :eo "Ooo, brile! Ĝi belasss" + :en "Ooo, shiny! It's prettyy") + (💬:say 'boozy-lady :eo "Ĉu por mji?" + :en "Is it for mi?") + (💬:say 'player :eo "Estos via, se vi ĵuras ne plu drinki ĉi-nokte." + :en "It's yours, if you promise to slow your roll a bit.") + (💬:say 'boozy-lady :eo "Jeŝ! Ne pluuu!" + :en "Okieeee!" + :face "= w =") + (💬:say 'boozy-lady :eo "[MAJA prenas ĈIRKAŬMANON de vi.]" + :en "[MAJA takes BRACELET from you.]" + :face "= w =") + (💬:face 'player ">_<" ">o<") + (💬:say 'boozy-lady :eo "Plia biero por mi, sinjoro!!" + :en "Jkjk. One more for me, barkeep!!") + (💬:say 'casino-bartender + :eo "Bone, momenton!!" + :en "Sure thing, lady!" + :face "xD "))) (defun boozy-lady-use (map item-plist &optional entity-id) @@ -612,77 +612,77 @@ avoid triggering this." (…: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...")))))) + (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) @@ -732,20 +732,20 @@ avoid triggering this." (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^")))) + (💬: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) @@ -759,33 +759,33 @@ avoid triggering this." (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!!")))) + (💬: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) @@ -796,65 +796,65 @@ avoid triggering this." (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")) + (💬: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...")) + (💬: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 "