diff options
Diffstat (limited to 'mklevelinfo.pl')
-rw-r--r-- | mklevelinfo.pl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/mklevelinfo.pl b/mklevelinfo.pl index 5cc633f..e3c1492 100644 --- a/mklevelinfo.pl +++ b/mklevelinfo.pl @@ -69,10 +69,26 @@ EOF return $range; } +@lvnames = ( + "Nothing To It", + "Electrocution", + "Dumbwaiter", + "Hellstones", + "Figurits Revenge", + "Walls", + "Zig-Zag", + "Spellbound", + "Blackout", + "HereThereEverywhere", + "Hatchlings", + "Hurricane" +); + for $level (-610,-609,0..11) { $addr = 0xa000 + $level * 0x40; for $offset (sort { $a <=> $b } keys %struct) { my ($size, $label, $comment) = @{$struct{$offset}}; + $comment = "Descriptor for $lvnames[$level]. $comment" if $level >= 0 && $offset == 0; if($level == 0 && $offset == 0) { $comment = "64-byte level descriptors, 12 of them (1 per level). " . $comment; } |