Added response to "wew"

This commit is contained in:
Aero 2016-07-17 17:29:02 -04:00
parent c30057d480
commit 9376dbdcc7
1 changed files with 3 additions and 1 deletions

View File

@ -46,7 +46,9 @@ sub said {
return;
}
if ($msg->{body} eq 'wew') {
$self->say(channel => $irc_chan, body => "lad");
}
my $chattiness = $redis->get("$redis_prefix:chattiness");
if (rand 100 < $chattiness) {
# generate a shitpost