--- deliantra/server/ext/minesweeper.ext	2006/12/21 22:41:34	1.2
+++ deliantra/server/ext/minesweeper.ext	2007/01/13 23:06:13	1.4
@@ -1,4 +1,4 @@
-#! perl
+#! perl # MANDATORY
 
 use Scalar::Util;
 
@@ -9,7 +9,7 @@
 
    if (my $teleport = $ob->{options}{"teleport_$status"}) {
       my ($x, $y, $damned) = split /,/, $teleport;
-      my $pl = cf::player::find $ob->{player};
+      my $pl = cf::player::find_active $ob->{player};
 
       $pl->ob->transfer ($x, $y);
       $pl->savebed ($pl->ob->map->path, $x, $y)