aboutsummaryrefslogtreecommitdiff
path: root/mklevelinfo.pl
diff options
context:
space:
mode:
Diffstat (limited to 'mklevelinfo.pl')
-rw-r--r--mklevelinfo.pl16
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;
}