… | |
… | |
39 | @$his = ($map, $x, $y); |
39 | @$his = ($map, $x, $y); |
40 | } |
40 | } |
41 | |
41 | |
42 | my $map; |
42 | my $map; |
43 | |
43 | |
44 | if ($map = cf::map::map $mine->[0] |
44 | if ($map = cf::map::find $mine->[0] |
45 | and !grep $_->flag (cf::FLAG_UNIQUE) && $_->flag (cf::FLAG_IS_FLOOR), |
45 | and !grep $_->flag (cf::FLAG_UNIQUE) && $_->flag (cf::FLAG_IS_FLOOR), |
46 | $map->at ($mine->[1], $mine->[2])) { |
46 | $map->at ($mine->[1], $mine->[2])) { |
47 | teleport $who, @$mine; |
47 | teleport $who, @$mine; |
48 | } else { |
48 | } else { |
49 | delete $follow{$name}; |
49 | delete $follow{$name}; |