| … | |
… | |
| 427 | |
427 | |
| 428 | # get head from _virtual tile, returning x, y, z and @$stack |
428 | # get head from _virtual tile, returning x, y, z and @$stack |
| 429 | sub get_head { |
429 | sub get_head { |
| 430 | my ($self, $virtual) = @_; |
430 | my ($self, $virtual) = @_; |
| 431 | |
431 | |
| 432 | my ($x, $y) = @$self{qw(_virtual_x _virtual_y)} |
432 | my ($x, $y) = @$virtual{qw(_virtual_x _virtual_y)} |
| 433 | or return; |
433 | or return; |
| 434 | |
434 | |
| 435 | my $stack = $self->{map}{map}[$x][$y] |
435 | my $stack = $self->{map}{map}[$x][$y] |
| 436 | or return; |
436 | or return; |
| 437 | |
437 | |
