--- cf.schmorp.de/maps/perl/schmorp-neko.ext	2006/02/08 06:49:25	1.4
+++ cf.schmorp.de/maps/perl/schmorp-neko.ext	2006/02/08 21:06:42	1.6
@@ -22,10 +22,8 @@
    my ($data) = @_;
 
    if (my $pl = $data->{who}->nearest_player) {
-      if ($pl->exp >= 200000) {
-         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
@@ -35,7 +33,7 @@
    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)")
       if !($data->{activator}{neko_attack} & 15);
@@ -53,7 +51,7 @@
 sub on_say {
    my ($data) = @_;
 
-   cf::LOG cf::llevDebug, "QBERT [Neko-fon] $data->{message}";
+   cf::LOG cf::llevDebug, "QBERT [Neko-fon] $data->{message}\n";
 
    0
 }