--- deliantra/maps/perl/invite.ext	2006/02/07 03:01:29	1.1
+++ deliantra/maps/perl/invite.ext	2006/02/07 03:04:46	1.2
@@ -25,9 +25,6 @@
 sub map_level {
    my ($map, $x, $y) = @_;
 
-   my $path = $map->path;
-   my $player = sprintf "%s/%s/", cf::localdir, cf::playerdir;
-   
    for my $x (0 .. $map->width - 1) {
       for my $y (0 .. $map->height - 1) {
          return 4
@@ -36,6 +33,9 @@
       }
    }
 
+   my $path = $map->path;
+   my $player = sprintf "%s/%s/", cf::localdir, cf::playerdir;
+   
    if ($player eq substr $path, 0, length $player) {
       1
    } elsif (grep $_->flag (cf::FLAG_UNIQUE) && $_->flag (cf::FLAG_IS_FLOOR),