X-Git-Url: http://git.shiar.net/perl/schtarr.git/blobdiff_plain/605710e6364f9256d6b3bf8b6370083a571e3330..11ca89eec765302e50eec7595b65382b04d16e6b:/scmap diff --git a/scmap b/scmap index 28ade8c..06b5ebe 100755 --- 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); - return $worlds[$self->era] || "?"; + return $worlds[$self->era & 7] || "?"; } # MTXM TILE