From cec78683f675492e7adad2d3ffff2fa306d43493 Mon Sep 17 00:00:00 2001 From: Christine Lemmer-Webber Date: Sat, 1 Oct 2022 21:39:47 -0400 Subject: [PATCH] You can now kiss the frog! --- worlds/bricabrac.scm | 23 +++++++++++++++++++++-- 1 file changed, 21 insertions(+), 2 deletions(-) diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm index 6dc4487..523546b 100644 --- a/worlds/bricabrac.scm +++ b/worlds/bricabrac.scm @@ -2555,6 +2555,24 @@ re-orients itself."))) a bit.")) #:exclude player)) +(define-actor () + ;; TODO: Add "open" verb, since obviously people will try that + ((cmd-kiss frog-cmd-kiss)) + (commands + #:allocation #:each-subclass + #:init-thunk (build-commands + (("kiss") ((direct-command cmd-kiss)))))) + +(define* (frog-cmd-kiss actor message #:key direct-obj) + (define player (message-from message)) + (define player-loc (mbody-val (<-wait player 'get-loc))) + (define player-name (mbody-val (<-wait player 'get-name))) + (<- (message-from message) 'tell + #:text '((p "You kiss the frog. She blushes and you get a distinctly " + "princess'y vibe off of her!"))) + (<- player-loc 'tell-room + #:text `((p ,player-name " kisses the frog! The frog blushes!")) + #:exclude player)) (define wedding @@ -2624,7 +2642,7 @@ To the south is the forest.")) #:read-text `(pre ,wedding-map-text) #:goes-by '("map" "wedding map")) ('wedding-entrance:frog - 'wedding-entrance + 'wedding-entrance #:name "a frog" #:desc "The frog is sitting on top of the hostess podium and doing her best to look dignified. Actually, to be honest, she's doing a pretty @@ -2636,7 +2654,8 @@ good job looking dignified. My gosh! What a dignified frog!" "Welcome, welcome! *Ribbit!*" "*Ribbit!* We've been waiting for you, come in come in!" "We're so happy you're here!" - "Hoo, this wedding took a lot of work to plan but it was WORTH IT!")) + "Hoo, this wedding took a lot of work to plan but it was WORTH IT!" + "A kiss? Well... I wouldn't object to it...")) ('wedding-entrance:podium 'wedding-entrance #:name "a hostess podium" -- 2.31.1