--- deliantra/server/ext/schmorp-neko.ext	2007/08/02 01:19:34	1.6
+++ deliantra/server/ext/schmorp-neko.ext	2008/05/04 08:55:52	1.8
@@ -2,20 +2,6 @@
 
 # archetype nekosan
 
-sub teleport {
-   my ($pl, $map, $x, $y) = @_;
-
-   my $portal = cf::object::new "exit";
-
-   $portal->slaying   ($map);
-   $portal->stats->hp ($x);
-   $portal->stats->sp ($y);
-
-   $portal->apply ($pl);
-
-   $portal->destroy;
-}
-
 sub find_target_player {
    my ($obj) = @_;
 
@@ -76,7 +62,7 @@
                my $gave_fish = cf::object::new "force";
                $gave_fish->slaying ("schmorp-neko-gave-fish");
                $gave_fish->speed (0);
-               $gave_fish->insert_ob_in_ob ($pl);
+               $pl->insert ($gave_fish);
 
                # remove fish
                $fish->destroy;
@@ -121,7 +107,7 @@
       if ($hitter->{neko_attack} > 512) {
          $hitter->{neko_attack} -= 128;
          $hitter->message ("Neko-san is suddenly gone!");
-         teleport $hitter, "/scorn/misc/scorn_illusions", 15, 7;
+         $hitter->goto ("/scorn/misc/scorn_illusions", 15, 7);
          $hitter->message ("You hear strange noises all around you...");
          $hitter->message ("You feel dumb.");
       }