--- deliantra/server/ext/follow.ext	2007/01/07 02:39:14	1.8
+++ deliantra/server/ext/follow.ext	2007/10/08 14:00:29	1.11
@@ -25,7 +25,8 @@
             my $map;
 
             if ($map = cf::map::find $mine->[0]
-                and !grep $_->flag (cf::FLAG_UNIQUE) && $_->flag (cf::FLAG_IS_FLOOR),
+                and $map =~ /^\// # short-gap fix
+                and !grep +($_->flag (cf::FLAG_UNIQUE) || $_->type == cf::SHOP_FLOOR) && $_->flag (cf::FLAG_IS_FLOOR),
                           $map->at ($mine->[1], $mine->[2])) {
                $who->ob->goto (@$mine);
             } else {
@@ -49,7 +50,7 @@
 
    if ($args ne "" && $name ne $args) {
       if (my $other = cf::player::find_active $args) {
-         if ($other->ob->map eq $who->map
+         if ($other->ob->map == $who->map
              && abs ($other->ob->x - $who->x) <= 1
              && abs ($other->ob->y - $who->y) <= 1) {
             $who->message ("Following player '$args', to stop, type: 'follow");