mehr pudding weniger bugs
This commit is contained in:
parent
a18968e8a2
commit
ef1223d6a4
1 changed files with 2 additions and 2 deletions
|
@ -76,10 +76,10 @@ sub on_msg {
|
|||
$conn->privmsg($conn->{channel}, "$nick: " . pudding);
|
||||
$conn->{lastpudding} = time();
|
||||
} else {
|
||||
my $wait = 24 * 3600 * (rand()-0.5);
|
||||
my $wait = 24 * 3600 * (0.5 + 0.5*rand());
|
||||
my (undef, undef, undef, undef, undef, undef, $wday) = localtime(time());
|
||||
if ($wday == $conn->{specialwday}) {
|
||||
$wait = 6 * 3600 * (rand()-0.5);
|
||||
$wait = 6 * 3600 * (0.5 + 0.5*rand());
|
||||
}
|
||||
if (time() > $conn->{lastpudding} + $wait) {
|
||||
print "=> $conn->{channel}\n";
|
||||
|
|
Reference in a new issue