$_->[13] = $_->[15]; # ctf
$_->[15] = 'domination';
} for @{ $FORMAT[9] }; # no multifood
- push @LEVELFORM, "object$_" => ['C',
+ push @LEVELFORM, "objects$_" => ['C',
+ type => "=$_",
map {$_ => 'C'} qw(x1 y1 x2 y2)
- ] for qw(lines boxes);
+ ] for 2, 3;
}
default {
die "Unsupported level version $version\n";
# add objects until terminator
$level->{objects} = [];
if ($version <= 91) {
- push @{ $level->{objects} }, { %$_, type => 2 } for map { $level->{$_} ? @{ $level->{$_} } : () } qw(objectlines);
- push @{ $level->{objects} }, { %$_, type => 3 } for map { $level->{$_} ? @{ $level->{$_} } : () } qw(objectboxes);
+ ref $_ eq 'ARRAY' and push @{ $level->{objects} }, @$_
+ for map { delete $level->{"objects$_"} } 2, 3;
$size += 1 + 4 * scalar @{ $level->{objects} };
}
else {