--- cf.schmorp.de/maps/perl/schmorp-neko.ext	2006/09/08 17:33:55	1.29
+++ cf.schmorp.de/maps/perl/schmorp-neko.ext	2006/09/13 00:29:46	1.31
@@ -71,7 +71,7 @@
 
          } else {
             # check for fish in his inv and steal it
-            if (my $fish = (grep $_->archetype->name eq "fishfood", $pl->inv)[0]) {
+            if (my $fish = (grep $_->arch->name eq "fishfood", $pl->inv)[0]) {
                # add force
                my $gave_fish = cf::object::new "force";
                $gave_fish->slaying ("schmorp-neko-gave-fish");
@@ -127,7 +127,7 @@
          $hitter->message ("You feel dumb.");
       }
    } else {
-      $hitter->hp (-1);
+      $hitter->stats->hp (-1);
       $hitter->kill_object;
    }