Add (catch-8sync) stuff

[8sync.git] / demos / ircbot.scm

diff --git a/demos/ircbot.scm b/demos/ircbot.scm
index 202c18c2a866170b39cd71dff30496796020001f..9905dab03c8a5c2cc189d94468dc3330d972b7c5 100755 (executable)
--- a/demos/ircbot.scm
+++ b/demos/ircbot.scm
@@ -33,6 +33,9 @@
      (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))))