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] || "?";
}