From 31ac6136d78c1d5ed79e770060dad1fa56c2c453 Mon Sep 17 00:00:00 2001 From: Christopher Allan Webber Date: Tue, 24 Nov 2015 15:06:12 -0600 Subject: [PATCH] Show off some greetings --- demos/ircbot.scm | 3 +++ 1 file changed, 3 insertions(+) diff --git a/demos/ircbot.scm b/demos/ircbot.scm index 202c18c..9905dab 100755 --- 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)))) -- 2.31.1