From 670a6fef7b1767ae2a0ceed3881eade1278fbac4 Mon Sep 17 00:00:00 2001
From: "B. Watson" <yalhcru@gmail.com>
Date: Fri, 2 Sep 2016 03:58:22 -0400
Subject: label all the map/bomb/etc data for all levels

---
 mklevelinfo.pl | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)

(limited to 'mklevelinfo.pl')

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;
 		}
-- 
cgit v1.2.3