--- cf.schmorp.de/maps/perl/schmorp-neko.ext	2006/02/08 06:51:16	1.5
+++ cf.schmorp.de/maps/perl/schmorp-neko.ext	2006/02/09 05:06:17	1.8
@@ -22,8 +22,8 @@
    my ($data) = @_;
 
    if (my $pl = $data->{who}->nearest_player) {
-      my (undef, undef, undef, $dir, undef) = $data->{who}->direction ($pl);
-      $data->{who}->move ($data->{who}, $dir);
+      my (undef, undef, undef, $dir, undef) = $data->{who}->rangevector ($pl);
+      $data->{who}->move ($dir);
    }
 
    1
@@ -33,12 +33,13 @@
    my ($data) = @_;
 
    $data->{activator}{neko_attack}++
-      or cf::LOG cf::llevDebug, sprintf "QBERT Neko-san was attacked by %s!", $data->{activator}->name;
+      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}";
+   cf::LOG cf::llevDebug, sprintf "QBERT [Neko-fon] %s: %s\n", $data->{activator}->name, $data->{message};
 
    0
 }