| … | |
… | |
| 17 | # along with gvpe; if not, write to the Free Software |
17 | # along with gvpe; if not, write to the Free Software |
| 18 | # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
18 | # Foundation, Inc. 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA |
| 19 | |
19 | |
| 20 | # tower of stars: missing craters? |
20 | # tower of stars: missing craters? |
| 21 | |
21 | |
| 22 | our $VERSION = '1.1'; |
22 | our $VERSION = '1.11'; |
| 23 | |
23 | |
| 24 | use strict; |
24 | use strict; |
| 25 | |
25 | |
| 26 | use Storable; |
26 | use Storable; |
| 27 | use List::Util qw(max); |
27 | use List::Util qw(max); |
| … | |
… | |
| 232 | or (warn "$mapname: arch '$a->{_name}' not found at ($x|$y)\n"), next; |
232 | or (warn "$mapname: arch '$a->{_name}' not found at ($x|$y)\n"), next; |
| 233 | |
233 | |
| 234 | my $smoothlevel = exists $a->{smoothlevel} ? $a->{smoothlevel} : $o->{smoothlevel}; |
234 | my $smoothlevel = exists $a->{smoothlevel} ? $a->{smoothlevel} : $o->{smoothlevel}; |
| 235 | my $is_floor = exists $a->{is_floor} ? $a->{is_floor} : $o->{is_floor}; |
235 | my $is_floor = exists $a->{is_floor} ? $a->{is_floor} : $o->{is_floor}; |
| 236 | my $level = $smoothlevel ? $smoothlevel |
236 | my $level = $smoothlevel ? $smoothlevel |
| 237 | : $is_floor ? 0 |
237 | : $is_floor ? $layer - 1000 |
| 238 | : 256 + $layer; |
238 | : $layer + 1000; |
| 239 | |
239 | |
| 240 | while ($o) { |
240 | while ($o) { |
| 241 | my $face = $a->{face} || $o->{face}; |
241 | my $face = $a->{face} || $o->{face}; |
| 242 | |
242 | |
| 243 | my $pb = tile $face |
243 | my $pb = tile $face |
