| … | |
… | |
| 316 | } elsif ($o->{more}) { |
316 | } elsif ($o->{more}) { |
| 317 | # linked faces |
317 | # linked faces |
| 318 | do { |
318 | do { |
| 319 | my $tile = $TC->{$o->{face}} |
319 | my $tile = $TC->{$o->{face}} |
| 320 | or (warn "no gfx found for arch '$a->{_name}' at ($x*|$y*)\n"), next; |
320 | or (warn "no gfx found for arch '$a->{_name}' at ($x*|$y*)\n"), next; |
| 321 | push @ov, [$x + $o->{x}, $y + $o->{y}, |
321 | push @ov, [$x + $o->{x}, $y + $o->{y}, $tile->{idx}]; |
| 322 | $tile->{idx} + $o->{x} + $o->{y} * $tile->{w}]; |
|
|
| 323 | } while $o = $o->{more}; |
322 | } while $o = $o->{more}; |
| 324 | |
323 | |
| 325 | } else { |
324 | } else { |
| 326 | # single face |
325 | # single face |
| 327 | push @$os, $tile->{idx}; |
326 | push @$os, $tile->{idx}; |
