diff options
| -rw-r--r-- | lib/Crawl/Bot/Plugin/Logging.pm | 18 |
1 files changed, 17 insertions, 1 deletions
diff --git a/lib/Crawl/Bot/Plugin/Logging.pm b/lib/Crawl/Bot/Plugin/Logging.pm index 0326337..cea86cd 100644 --- a/lib/Crawl/Bot/Plugin/Logging.pm +++ b/lib/Crawl/Bot/Plugin/Logging.pm @@ -73,12 +73,28 @@ sub said { $self->log_message("<$args->{who}> $args->{body}"); } elsif ($args->{channel} ne "msg" and $args->{who} =~ /^(?:Gretell|Henzell|\|amethyst)$/ - and $args->{body} =~ /(\S+) .*became the Champion of Cheibriados/) + and $args->{body} =~ /^(\S+) .*became the Champion of Cheibriados/) { $self->say( channel => $args->{channel}, body => "Did I ever mention that $1 is one of my favourite people?" ); + } elsif ($args->{channel} ne "msg" + and $args->{who} =~ /^(?:Gretell|Henzell|\|amethyst)$/ + and $args->{body} =~ /^(\S+) .*abandoned Cheibriados\./) + { + $self->say( + channel => $args->{channel}, + body => "Fine, $1, I didn't like you either!" + ); + } elsif ($args->{channel} ne "msg" + and $args->{who} =~ /^(?:Gretell|Henzell|\|amethyst)$/ + and $args->{body} =~ /^(Chei\S+) .*became the Champion of [^C]/) + { + $self->say( + channel => $args->{channel}, + body => "Did I ever mention that $1 is a heretic?" + ); } return; |