diff --git a/PBot/Interpreter.pm b/PBot/Interpreter.pm index b54ef337..31fb97eb 100644 --- a/PBot/Interpreter.pm +++ b/PBot/Interpreter.pm @@ -295,7 +295,7 @@ sub interpret { 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)) { - my $delay = (rand 10) + 8; + my $delay = (rand 10) + 5; my $message = { 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?" @@ -566,8 +566,7 @@ sub handle_result { } if ($use_output_queue) { - my $delay = (rand 5) + 5; # initial delay for reading/processing user's message - $delay += (length $line) / 7; # additional delay of 7 characters per second typing speed + my $delay = (rand 10) + 5; my $message = { nick => $stuff->{nick}, user => $stuff->{user}, host => $stuff->{host}, command => $stuff->{command}, message => $line, checkflood => 1