sub world {
my $self = shift;
- # ERA: 0 1 2 3 4 5 6 7
- my @worlds = qw(badlands space 0 0 jungle 0 0 twilight);
- return $worlds[$self->era] || "?";
+ # ERA: 0 1 2 3 4 5 6 7
+ my @worlds = qw(badlands platform install ashworld jungle desert ice twilight);
+ 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;
}
}
+=head1 scmap
+
+From replay:
+
+ old/screptomap somereplay.rep | ./scmap -m=ppm > map.ppm
+
+From map:
+
+ ./scmtomap starcraft/maps/ladder/'(4)Lost Temple.scm'
+ ./scmap -m=ppm < file000001.xxx > map.ppm
+
+=cut