3
0
mirror of https://github.com/pragma-/pbot.git synced 2024-11-19 10:29:30 +01:00

Interpreter: slightly increase human-like delay

This commit is contained in:
Pragmatic Software 2019-06-01 18:55:08 -07:00
parent ff2beb1f14
commit ef96ba21cb

View File

@ -286,7 +286,7 @@ sub interpret {
my $botnick = $self->{pbot}->{registry}->get_value('irc', 'botnick'); my $botnick = $self->{pbot}->{registry}->get_value('irc', 'botnick');
if (defined $arguments && ($arguments =~ m/^(your|him|her|its|it|them|their)(self|selves)$/i || $arguments =~ m/^$botnick$/i)) { if (defined $arguments && ($arguments =~ m/^(your|him|her|its|it|them|their)(self|selves)$/i || $arguments =~ m/^$botnick$/i)) {
my $delay = (rand 10) + 5; my $delay = rand (10) + 5;
my $message = { my $message = {
nick => $stuff->{nick}, user => $stuff->{user}, host => $stuff->{host}, command => $stuff->{command}, checkflood => 1, nick => $stuff->{nick}, user => $stuff->{user}, host => $stuff->{host}, command => $stuff->{command}, checkflood => 1,
message => "$stuff->{nick}: Why would I want to do that to myself?" message => "$stuff->{nick}: Why would I want to do that to myself?"
@ -839,7 +839,7 @@ sub handle_result {
} }
if ($use_output_queue) { if ($use_output_queue) {
my $delay = (rand 10) + 5; my $delay = rand (10) + 5;
my $message = { my $message = {
nick => $stuff->{nick}, user => $stuff->{user}, host => $stuff->{host}, command => $stuff->{command}, nick => $stuff->{nick}, user => $stuff->{user}, host => $stuff->{host}, command => $stuff->{command},
message => $line, checkflood => 1 message => $line, checkflood => 1