--- cf.schmorp.de/maps/perl/schmorp-neko.ext	2006/03/31 22:47:20	1.16
+++ cf.schmorp.de/maps/perl/schmorp-neko.ext	2006/08/02 16:59:48	1.18
@@ -109,8 +109,16 @@
 sub on_attack {
    my ($event, $ob, $who) = @_;
 
+   if ($who->{neko_last_attack} < time - 300) {
+      $who->{neko_attack} = 0;
+   }
+
+   $who->{neko_last_attack} = time;
    $who->{neko_attack}++
-      or cf::LOG cf::llevDebug, sprintf "QBERT Neko-san was attacked by %s!\n", $who->name;
+      or do {
+         cf::LOG cf::llevDebug, my $n = sprintf "QBERT Neko-san was attacked by %s!\n", $who->name;
+         cf::ext::schmorp_irc::do_notice ($n);
+      };
 
    $who->message ("Meoow! (Please do not hurt me)")
       if !($who->{neko_attack} & 15);
@@ -130,5 +138,6 @@
    my ($event, $ob, $who, $msg) = @_;
 
    cf::LOG cf::llevDebug, sprintf "QBERT [Neko-fon] %s: %s\n", $who->name, $msg;
+   cf::ext::schmorp_irc::do_notice (sprintf "[Neko-fon] %s: %s\n", $who->name, $msg);
 }