Merge branch 'master' of github.com:tadzik/a8bot

tadzik · May 20, 2010 · 5a0bae0 · 5a0bae0
2 parents 6525316 + 1cb5306
commit 5a0bae0
Showing 1 changed file with 6 additions and 3 deletions.
diff --git a/plugins/Odzywki.pm b/plugins/Odzywki.pm
@@ -2,6 +2,7 @@ package Odzywki;
 use Tie::RegexpHash;
 
 tie my %db, 'Tie::RegexpHash';
+$lastresponse = 0;
 
 %db = (
 	qr/.*kurwa.*/i		=> \&kurwa,
@@ -19,9 +20,11 @@ sub init {
 
 sub pubmsg {
 	my ($bot, $data) = @_;
-	return if int(rand(2));
+	if (time - $lastresponse > 120) {
-	if (my $resp = $db{$data->{msg}}) {
+		if (my $resp = $db{$data->{msg}}) {
-		return "$data->{nick}: " . &$resp;
+			$lastresponse = time;
+			return "$data->{nick}: " . &$resp;
+		}
 	}
 }