First working rewrite

1 files changed, 13 insertions, 5 deletions

diff --git a/examples/bot.pl6 b/examples/bot.pl6
index 4fd1a26..70dbaa3 100644
--- a/examples/bot.pl6
+++ b/examples/bot.pl6
@@ -1,11 +1,19 @@
-use v6;
 use lib 'lib';
 use IRC::Client;
+use IRC::Client::Plugin;
+
+class MyPlug does IRC::Client::Plugin {
+    method irc-privmsg-channel ($msg) {
+        return $.IRC_NOT_HANDLED unless $msg.text ~~ /^'say' \s+ $<cmd>=(.+)/;
+        $msg.reply: "How about: $<cmd>.uc()";
+    }
+}
 
 my $irc = IRC::Client.new(
     :nick('IRCBot' ~ now.Int)
-    :debug
-    :channels<#zofbot>
-    :host<irc.freenode.net>
-    #:port<5667>
+    :debug<1>
+    # :channels<#zofbot>
+    # :host<irc.freenode.net>
+    :port<5667>
+    :plugins(MyPlug.new)
 ).run;