X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=demos%2Fircbot.scm;h=9905dab03c8a5c2cc189d94468dc3330d972b7c5;hb=794d4fb9628dc3013b94b8c6fa80c02cc664fac9;hp=0aef0d5430cc93c9849973c7f33727f76f920758;hpb=39fce509440e467188270625bf728b1c57ef9e26;p=8sync.git

diff --git a/demos/ircbot.scm b/demos/ircbot.scm
index 0aef0d5..9905dab 100755
--- a/demos/ircbot.scm
+++ b/demos/ircbot.scm
@@ -33,11 +33,14 @@
      (match action
        ("botsnack"
         (irc-format socket "PRIVMSG ~a :Yippie! *does a dance!*" channel))
+       ((or "hello" "hello!" "hello." "greetings" "greetings." "greetings!"
+            "hei" "hei." "hei!")
+        (irc-format socket "PRIVMSG ~a :Oh hi ~a!" channel speaker))
        ;; Add yours here
        (_
         (irc-format socket "PRIVMSG ~a :*stupid puppy look*" channel))))
-    (_ 
-     (cond 
+    (_
+     (cond
       (is-action
        (format #t "~a emoted ~s in channel ~a\n"
                speaker message channel))