--- deliantra/maps/perl/follow.ext	2006/08/30 13:04:23	1.22
+++ deliantra/maps/perl/follow.ext	2006/12/12 16:59:34	1.25
@@ -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->stats->hp ($x);
+   $portal->stats->sp ($y);
 
    $portal->apply ($pl->ob);
 
@@ -58,7 +58,7 @@
    $_[0]->w->stop unless keys %follow;
 });
 
-cf::register_command follow => 0, sub {
+cf::register_command follow => sub {
    my ($who, $args) = @_;
 
    my $name = $who->name;