diff options
Diffstat (limited to 'mklevelinfo.pl')
| -rw-r--r-- | mklevelinfo.pl | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/mklevelinfo.pl b/mklevelinfo.pl index a95bc10..5cc633f 100644 --- a/mklevelinfo.pl +++ b/mklevelinfo.pl @@ -24,7 +24,7 @@ 32 => [ 2, 'sub_bomb', 'called when a bomb is picked up. $06E6 for most levels (just an RTS), or else a ROM subroutine' ], 34 => [ 2, 'sub_start', 'called at start of level, $06E6 for some levels, or else a ROM subroutine' ], 36 => [ 2, 'sub6', 'always $9740 aka game_main_loop' ], - 38 => [ 2, 'sub_eol', 'called at end of level (all bombs picked up). $06E6 for all but level07' ], + 38 => [ 2, 'sub_eol', 'called at end of level (all bombs picked up). $06E6 for all but level08' ], 40 => [ 6, 'offs', 'all zeroes' ], 46 => [ 1, 'colpf3', 'color (not sure what gets drawn in this color yet)' ], 47 => [ 1, 'colpf0', 'color for girders and up-ropes' ], @@ -33,7 +33,7 @@ 50 => [ 5, 'offs', 'unknown' ], 55 => [ 3, 'offs', 'unknown, always $00 $00 $00' ], 58 => [ 2, 'offs', 'unknown, not a ROM address' ], - 60 => [ 4, 'offs', 'unknown, level05 (walls) has $ff $ff $ff $ff, all others $00 $00 $00 $00' ], + 60 => [ 4, 'offs', 'unknown, level06 (walls) has $ff $ff $ff $ff, all others $00 $00 $00 $00' ], ); sub mkaddr { @@ -50,7 +50,7 @@ sub mkrange { my $ea = mkaddr($start + $len - 1); my $llab; if($level >= 0) { - my $ll = sprintf("%02d", $level); + my $ll = sprintf("%02d", $level + 1); $llab = "level$ll"; } else { if($level == -609) { |