fix bizarre rng bug
This commit is contained in:
parent
6aac87f8c8
commit
3392e08441
|
@ -51,7 +51,8 @@ sub said {
|
||||||
$self->say(channel => config("irc_channel"), body => "lad");
|
$self->say(channel => config("irc_channel"), body => "lad");
|
||||||
}
|
}
|
||||||
my $chattiness = $redis->get("$redis_prefix:chattiness");
|
my $chattiness = $redis->get("$redis_prefix:chattiness");
|
||||||
if (rand 100 < $chattiness) {
|
my $rand = rand 100;
|
||||||
|
if ($rand < $chattiness) {
|
||||||
# generate a shitpost
|
# generate a shitpost
|
||||||
my @line = split " ", $msg->{body};
|
my @line = split " ", $msg->{body};
|
||||||
return unless scalar(@line) > 1;
|
return unless scalar(@line) > 1;
|
||||||
|
|
Loading…
Reference in New Issue