--- cf.schmorp.de/maps/perl/schmorp-neko.ext	2006/02/08 21:06:42	1.6
+++ cf.schmorp.de/maps/perl/schmorp-neko.ext	2006/02/09 05:06:17	1.8
@@ -35,10 +35,11 @@
    $data->{activator}{neko_attack}++
       or cf::LOG cf::llevDebug, sprintf "QBERT Neko-san was attacked by %s!\n", $data->{activator}->name;
 
-   $data->{activator}->message ("Meoow! (You are hurting me)")
+   $data->{activator}->message ("Meoow! (Please do not hurt me)")
       if !($data->{activator}{neko_attack} & 15);
 
-   if ($data->{activator}{neko_attack} > 256) {
+   if ($data->{activator}{neko_attack} > 512) {
+      $data->{activator}{neko_attack} -= 128;
       $data->{activator}->message ("Neko-san is suddenly gone!");
       teleport $data->{activator}, "/scorn/misc/scorn_illusions", 15, 7;
       $data->{activator}->message ("You hear strange noises all around you...");
@@ -51,7 +52,7 @@
 sub on_say {
    my ($data) = @_;
 
-   cf::LOG cf::llevDebug, "QBERT [Neko-fon] $data->{message}\n";
+   cf::LOG cf::llevDebug, sprintf "QBERT [Neko-fon] %s: %s\n", $data->{activator}->name, $data->{message};
 
    0
 }