X-Git-Url: https://jxself.org/git/?p=mudsync.git;a=blobdiff_plain;f=worlds%2Fbricabrac.scm;h=a00e7acc781115d62d045df2983b66b2ab44f51d;hp=459686d1cd9a23737e750e3a1b57252261ded6c3;hb=HEAD;hpb=a78f66c9abbbacdf1dad9e117b180487bb6fb901

diff --git a/worlds/bricabrac.scm b/worlds/bricabrac.scm
index 459686d..523546b 100644
--- a/worlds/bricabrac.scm
+++ b/worlds/bricabrac.scm
@@ -2243,7 +2243,7 @@ comments, and so on flowing from node to node."
       (p
        (ul
         (li (b "Scheme") " "
-            (a "http://cs.au.dk/~hosc/local/HOSC-11-4-pp399-404.pdf"
+            (a "https://en.wikipedia.org/wiki/History_of_the_Scheme_programming_language"
                "was originally started ")
             " to explore the " (b "actor model")
             ". (It became more focused around studying the " (b "lambda calculus")
@@ -2555,6 +2555,24 @@ re-orients itself.")))
 a bit."))
       #:exclude player))
 
+(define-actor <frog> (<chatty-npc>)
+  ;; 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
-    <chatty-npc> 'wedding-entrance
+    <frog> '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
     <gameobj> 'wedding-entrance
     #:name "a hostess podium"