| … | |
… | |
| 56 | my ($map, $x, $y) = @{ $queue->[0] }; |
56 | my ($map, $x, $y) = @{ $queue->[0] }; |
| 57 | |
57 | |
| 58 | $map->load; |
58 | $map->load; |
| 59 | |
59 | |
| 60 | if ( |
60 | if ( |
|
|
61 | !$map->valid |
| 61 | $map->path !~ /^(\{link\}|\/)/ |
62 | or $map->path !~ /^(\{link\}|\/)/ |
| 62 | or grep $_->flag (cf::FLAG_IS_FLOOR) && ($_->flag (cf::FLAG_UNIQUE) || $_->type == cf::SHOP_FLOOR), |
63 | or grep $_->flag (cf::FLAG_IS_FLOOR) && ($_->flag (cf::FLAG_UNIQUE) || $_->type == cf::SHOP_FLOOR), |
| 63 | $map->at ($x, $y) |
64 | $map->at ($x, $y)) |
| 64 | ) { |
65 | ) { |
| 65 | $who->message ("You can't follow " . $target->name . " anymore!"); |
66 | $who->message ("You can't follow " . $target->name . " anymore!"); |
| 66 | unfollow $who->name; |
67 | unfollow $who->name; |
| 67 | } elsif (!$who->blocked ($map, $x, $y)) { |
68 | } elsif (!$who->blocked ($map, $x, $y)) { |
| 68 | shift @$queue; |
69 | shift @$queue; |
