diff options
author | B. Watson <yalhcru@gmail.com> | 2016-09-02 01:15:28 -0400 |
---|---|---|
committer | B. Watson <yalhcru@gmail.com> | 2016-09-02 01:15:28 -0400 |
commit | 44d935410e8e4b9d998ae516bc7175391750c9b6 (patch) | |
tree | 4fc04dd7c8ad19b6c6e30205d7012fb2a50d307a /mklevelinfo.pl | |
parent | 909f27681c8e8869b54fc81bcb83c001ccf63ae3 (diff) | |
download | jumpmanjr-44d935410e8e4b9d998ae516bc7175391750c9b6.tar.gz |
renumber levels so they match the displayed level number (1-based, 1st level = level01)
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) { |