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 5167e01484b48202cf1178361035c8b4657d7d5e..06b5ebecb1b1bd3d2a790d642097435670ac5121 100755
(executable)
--- a/
scmap
+++ b/
scmap
@@
-49,7
+49,7
@@
sub world {
my $self = shift;
# ERA: 0 1 2 3 4 5 6 7
my @worlds = qw(badlands platform install ashworld jungle desert ice twilight);
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
}
# 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;