| … | |
… | |
| 70 | if ($map ne $his->[0] || $x != $his->[1] || $y != $his->[2]) { |
70 | if ($map ne $his->[0] || $x != $his->[1] || $y != $his->[2]) { |
| 71 | @$mine = @$his; |
71 | @$mine = @$his; |
| 72 | @$his = ($map, $x, $y); |
72 | @$his = ($map, $x, $y); |
| 73 | } |
73 | } |
| 74 | |
74 | |
|
|
75 | my $map; |
|
|
76 | |
|
|
77 | if ($map = cf::map::map $mine->[0] |
|
|
78 | and !grep $_->flag (cf::FLAG_UNIQUE), $map->at ($mine->[1], $mine->[2])) { |
| 75 | teleport $who, @$mine; |
79 | teleport $who, @$mine; |
|
|
80 | } else { |
|
|
81 | delete $follow{$name}; |
|
|
82 | $who->ob->message ("$target is gone where you can't follow..."); |
|
|
83 | } |
| 76 | } else { |
84 | } else { |
| 77 | warn "follow: $name or $v->[0] is gone, removing from follow list\n"; |
|
|
| 78 | delete $follow{$name}; |
85 | delete $follow{$name}; |
|
|
86 | $who->ob->message ("$name or $target is gone..."); |
| 79 | } |
87 | } |
| 80 | } |
88 | } |
| 81 | } |
89 | } |
| 82 | |
90 | |
| 83 | |
91 | |
