| … | |
… | |
| 73 | } |
73 | } |
| 74 | |
74 | |
| 75 | my $map; |
75 | my $map; |
| 76 | |
76 | |
| 77 | if ($map = cf::map::map $mine->[0] |
77 | if ($map = cf::map::map $mine->[0] |
| 78 | and !grep $_->flag (cf::FLAG_UNIQUE), $map->at ($mine->[1], $mine->[2])) { |
78 | and !grep $_->flag (cf::FLAG_UNIQUE) && $_->flag (cf::FLAG_IS_FLOOR), |
|
|
79 | $map->at ($mine->[1], $mine->[2])) { |
| 79 | teleport $who, @$mine; |
80 | teleport $who, @$mine; |
| 80 | } else { |
81 | } else { |
| 81 | delete $follow{$name}; |
82 | delete $follow{$name}; |
| 82 | $who->ob->message ("$target is gone where you can't follow..."); |
83 | $who->ob->message ("$target is gone where you can't follow..."); |
| 83 | } |
84 | } |
