my $self = shift;
# ERA: 0 1 2 3 4 5 6 7
my @worlds = qw(badlands platform install ashworld jungle desert ice twilight);
- return $worlds[$self->era] || "?";
+ return $worlds[$self->era & 7] || "?";
}
# MTXM TILE
my $tile = $tileset->tileavg($_);
my $div = 1;#$tile->{walk} > 1 ? 1 : 1.8;
my @rgb = map {int($_ / $div)} @{ $tile->{col} };
- if (($tile->{walk} & 1) == 0 and $tile->{walk} < 10) {
+ if ($tile->{walk} & 16) {
+ $rgb[1] += 48; # green for ramps
+ }
+ elsif ($tile->{walk} & 8) {
+ $rgb[0] = 255; # red for obstructions
+ }
+ elsif (($tile->{walk} & 1) == 0) {
# $rgb[2] += 128;
$rgb[0] *= 3;
$rgb[1] *= 3;