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

per-channel chattiness setting

This commit is contained in:
Al Beano 2016-09-04 12:07:33 +01:00
parent 3af1c91939
commit e81c1b1bc2
2 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
MarkovBot.pl
View File

@ -45,7 +45,7 @@ sub said {
my %subs = %{getCommandSubs()};
if (defined $subs{$bare}) {
my $ret = $subs{$bare}->(\@command);
my $ret = $subs{$bare}->(\@command, $msg->{"channel"});
$self->say( channel => $msg->{"channel"}, body => decode("UTF-8", $ret) ) unless $ret eq "___null___";
}
@ -77,7 +77,7 @@ sub said {
);
}
my $chattiness = $redis->get("$redis_prefix:chattiness");
my $chattiness = $redis->get("$redis_prefix:".config("irc_server").":$msg->{channel}:chattiness");
my $rand = rand 100;
if ($rand < $chattiness) {
# generate a shitpost
@ -111,10 +111,14 @@ sub said {
}
# Set base chattiness value on first run
# Chattiness is stored per channel like this:
# prefix:irc.foo.bar:#baz:chattiness
my $redis = redis();
my $p = config("redis_prefix");
if (!$redis->get("$p:chattiness")) {
$redis->set("$p:chattiness", 10);
for my $chan ( @{config("irc_channels")} ) {
if (!$redis->get("$p:".config("irc_server").":$chan:chattiness")) {
$redis->set("$p:".config("irc_server").":$chan:chattiness", 10);
}
}
MarkovBot->new(

3
MarkovBot/Commands.pm
View File

@ -41,6 +41,7 @@ sub commandUnignore() {
sub commandShitposting() {
my $command = shift;
my $chan = shift;
if (scalar( @{$command} ) != 2 || !looks_like_number $command->[1]
|| $command->[1] > 100 || $command->[1] < 0) {
@ -49,7 +50,7 @@ sub commandShitposting() {
my $redis = redis();
my $p = config("redis_prefix");
$redis->set("$p:chattiness", $command->[1]);
$redis->set("$p:".config("irc_server").":$chan:chattiness", $command->[1]);
}
sub getCommandSubs() {