X-Git-Url: http://git.shiar.nl/wormy.git/blobdiff_plain/6c599c66b38654aef23387cc2d4800dc10ea74f5..be83045f108e6bada8bdbd32d6ed5fa00de60f7a:/parse-wormedit

diff --git a/parse-wormedit b/parse-wormedit
index 6eb7915..4fd22e7 100755
--- a/parse-wormedit
+++ b/parse-wormedit
@@ -263,6 +263,14 @@ sub read {
 	$data->{moderef}->{offset}->{single} == $offsetbase
 		or warn "First singleplayer level is not in front\n";
 
+	my $slots = sum(
+		$data->{moderef}->{end}->{single} > 0,  # singleplayer slot if any levels
+		$data->{moderef}->{end}->{peaworm},     # one for each peaworm arena
+		$data->{moderef}->{end}->{tron},        # idem for tron
+	);
+	$data->{hinames} = [ unpack '(x2a3)*', substr($data->{leveldata}, -5 * $slots) ];
+	$data->{format} = '86s';
+
 	my @VARMODES = (
 		[qw'single  single'],
 		[qw'multi   peaworm tron deathmatch foodmatch multifood timematch'],
@@ -273,7 +281,9 @@ sub read {
 	$data->{levels} = [];
 	for my $modes (@VARMODES) {
 		my $variant = shift @$modes;
-		$offset = min(map { $data->{moderef}->{offset}->{$_} } @$modes) - $offsetbase;
+		$offset = min(grep {$_} map { $data->{moderef}->{offset}->{$_} } @$modes)
+			or next;
+		$offset -= $offsetbase;
 		my $amount = $variant eq 'single' ? 100 : max(map { $data->{moderef}->{end}->{$_} } @$modes);
 
 		my @varform = @LEVELFORM;
@@ -317,16 +327,44 @@ sub read {
 			$offset += ++$size;
 			last if ++$data->{levelcount}->{$variant} >= $amount;
 		}
+
+		if ($variant eq 'single') {
+			$offset++;
+			$data->{finish}->{code} =
+			my $code = substr delete($data->{leveldata}), $offset, -5*$slots;
+
+			my %FINISHCODE = (
+				0 => chr 0xC9, # ret
+				1 => join('',
+					chr 0x21,  # ld hl, MESSAGE
+					pack('v', $offsetbase + $offset + 9),
+					(map {chr}
+						0xCD, 0x37, 0x4A,  # call _puts
+						0xC3, 0xAA, 0x55,  # jp _getkey
+					),
+				),
+				2 => join('',
+					(map {chr}
+						0x21, 0, 0x1C,  # ld hl, $POS
+						0x22, 0x7C, 0xC3, # ld (_penCol), hl
+						0x21,  # ld hl, MESSAGE
+					),
+					pack('v', $offsetbase + $offset + 15),
+					(map {chr}
+						0xCD, 0xA5, 0x4A, # call _vputs
+						0xC3, 0xAA, 0x55, # jp _getkey
+					),
+				),
+			);
+			while (my ($finish, $match) = each %FINISHCODE) {
+				$match eq substr $code, 0, length $match or next;
+				$data->{finish}->{type} = $finish or last;
+				$data->{finish}->{message} = unpack 'Z*', substr($code, length $match);
+				last;
+			}
+		}
 	}
 
-	my $slots = sum(
-		$data->{moderef}->{end}->{single} > 0,  # singleplayer slot if any levels
-		$data->{moderef}->{end}->{peaworm},     # one for each peaworm arena
-		$data->{moderef}->{end}->{tron},        # idem for tron
-	);
-	$data->{hinames} = [ unpack '(x2a3)*', substr($data->{leveldata}, -5 * $slots) ];
-	$data->{finish}->{code} = substr delete($data->{leveldata}), $offset, -5 * $slots; #XXX
-	$data->{format} = '86s';
 	return $data;
 }