- when (95) {
- ref $_ and splice @$_, -2 for @{ $FORMAT[11] }; # only 8 moderefs
- splice @FORMAT, 12, 2; # no reserved byte
+ $offsetbase = 0xF400;
+ when (95) {}
+ splice @FORMAT, 6, 2;
+ ref $_ and splice(@$_, -8, 2) for @{ $FORMAT[9] }; # no multifood
+ splice @FORMAT, 10, 2; # no reserved byte
+ when (94) {}
+ when (90) {
+ $FORMAT[5] = 'C/a'; # length-preceding name
+ splice @FORMAT, 10, 2; # no default sprite
+ ref $_ and do {
+ $_->[5] = $_->[7]; # no tron; deathmatch instead
+ $_->[7] = $_->[9]; # foodmatch instead
+ $_->[9] = 'linkmatch'; # replaces timematch
+ $_->[11] = $_->[13]; # race
+ $_->[13] = $_->[15]; # ctf
+ $_->[15] = 'domination';
+ } for @{ $FORMAT[9] }; # no multifood
+ push @LEVELFORM, "object$_" => ['C',
+ map {$_ => 'C'} qw(x1 y1 x2 y2)
+ ] for qw(lines boxes);