| … | |
… | |
| 264 | |
264 | |
| 265 | my $as = $map->get ($x, $y); |
265 | my $as = $map->get ($x, $y); |
| 266 | |
266 | |
| 267 | my $exit; |
267 | my $exit; |
| 268 | for my $arch (@$as) { |
268 | for my $arch (@$as) { |
| 269 | if ($arch->{_virtual}) { |
269 | my ($rx, $ry, $rarch) = devirtualize ($map, $x, $y, $arch, $as); |
| 270 | $arch = $arch->{_virtual}; |
|
|
| 271 | } |
|
|
| 272 | if (arch_is_exit ($arch)) { |
270 | if (arch_is_exit ($rarch)) { |
| 273 | $exit = $arch; |
271 | $exit = $rarch; |
| 274 | } |
272 | } |
| 275 | } |
273 | } |
| 276 | |
274 | |
| 277 | if ($exit and $exit->{slaying} !~ /^!/) { |
275 | if ($exit and $exit->{slaying} !~ /^!/) { |
| 278 | my $dest = map2abs ($exit->{slaying}, $mape); |
276 | my $dest = map2abs ($exit->{slaying}, $mape); |
| … | |
… | |
| 827 | my $mode = $self->get_mode; |
825 | my $mode = $self->get_mode; |
| 828 | |
826 | |
| 829 | my $exit; |
827 | my $exit; |
| 830 | my $conns = []; |
828 | my $conns = []; |
| 831 | for (@$as) { |
829 | for (@$as) { |
|
|
830 | if ($_->{_virtual}) { #FIXME: implement virtual handling for connect |
|
|
831 | return; |
|
|
832 | } |
| 832 | if (arch_is_connector ($_)) { |
833 | if (arch_is_connector ($_)) { |
| 833 | push @$conns, $_; |
834 | push @$conns, $_; |
| 834 | } |
835 | } |
| 835 | if (arch_is_exit ($_)) { |
836 | if (arch_is_exit ($_)) { |
| 836 | $exit = $_; |
837 | $exit = $_; |
