--- cf.schmorp.de/maps/perl/follow.ext	2006/08/25 15:12:21	1.21
+++ cf.schmorp.de/maps/perl/follow.ext	2006/09/08 16:22:14	1.23
@@ -15,9 +15,9 @@
 
    my $portal = cf::object::new "exit";
 
-   $portal->set_slaying ($map);
-   $portal->set_hp      ($x);
-   $portal->set_sp      ($y);
+   $portal->slaying ($map);
+   $portal->hp      ($x);
+   $portal->sp      ($y);
 
    $portal->apply ($pl->ob);
 
@@ -41,7 +41,7 @@
 
          my $map;
 
-         if ($map = cf::map::map $mine->[0]
+         if ($map = cf::map::find $mine->[0]
              and !grep $_->flag (cf::FLAG_UNIQUE) && $_->flag (cf::FLAG_IS_FLOOR),
                        $map->at ($mine->[1], $mine->[2])) {
             teleport $who, @$mine;