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);
+ # ERA: 0 1 2 3 4 5 6 7
+ my @worlds = qw(badlands platform install ashworld jungle desert ice twilight);
return $worlds[$self->era] || "?";
}
}
}
+=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