--- deliantra/server/ext/schmorp-neko.ext	2007/09/30 16:24:30	1.7
+++ 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) = @_;
 
@@ -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.");
       }