--- deliantra/server/ext/rent.ext	2007/01/04 18:38:22	1.3
+++ deliantra/server/ext/rent.ext	2007/01/04 18:39:14	1.4
@@ -14,18 +14,6 @@
    "/brest/apartments/brest_town_house"                  => [30000, "brest", "brecht"],
 );
 
-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->ob);
-   $portal->destroy;
-}
-
 # we have to special case some special cases :)
 sub reject_entry {
    my ($pl) = @_;