git.shiar.nl
/
perl
/
schtarr.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
fix debug messages during replay parsing
[perl/schtarr.git]
/
scmap
diff --git
a/scmap
b/scmap
index 3e7cee029284064e03abd8195d74a5c6a98f4896..06b5ebecb1b1bd3d2a790d642097435670ac5121 100755
(executable)
--- a/
scmap
+++ b/
scmap
@@
-47,9
+47,9
@@
if ($SHOWMAP eq "head") {
sub world {
my $self = shift;
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
}
# MTXM TILE
@@
-83,7
+83,13
@@
if (defined $mapsep{$SHOWMAP}) {
my $tile = $tileset->tileavg($_);
my $div = 1;#$tile->{walk} > 1 ? 1 : 1.8;
my @rgb = map {int($_ / $div)} @{ $tile->{col} };
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;
# $rgb[2] += 128;
$rgb[0] *= 3;
$rgb[1] *= 3;
@@
-101,3
+107,15
@@
if (defined $mapsep{$SHOWMAP}) {
}
}
}
}
+=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