albino
/
shithead-ng
mirror of https://github.com/whiteisthenewblack/shithead-ng
1
1
Fork 0
Code Releases Activity

ayy lmao

This commit is contained in:
Al Beano 2016-09-03 12:43:07 +02:00
parent 3392e08441
commit 32c3328d2e
1 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
MarkovBot.pl
View File

@ -47,8 +47,27 @@ sub said {
return;
}
if ($msg->{body} eq 'wew') {
$self->say(channel => config("irc_channel"), body => "lad");
if ($msg->{body} =~ m/^(wew|lad)$/i) {
my $ret;
my @o = split("", $msg->{"body"});
my @r = split("", ($msg->{body} =~ m/wew/i) ? "lad" : "wew");
for my $i (0..2) {
if ($o[$i] eq uc $o[$i]) {
$ret .= uc $r[$i];
} else {
$ret .= lc $r[$i];
}
}
$self->say(
channel => config("irc_channel"),
body => $ret,
);
}
if ($msg->{body} =~ m/^ayy+$/) {
$self->say(
channel => config("irc_channel"),
body => "lmao",
);
}
my $chattiness = $redis->get("$redis_prefix:chattiness");
my $rand = rand 100;