From: Shiar <shiar@shiar.org>
Date: Mon, 31 Dec 2007 15:42:53 +0000 (+0000)
Subject: recognize team in replay's player data
X-Git-Url: http://git.shiar.nl/perl/schtarr.git/commitdiff_plain/76fd310606de1de6a1ffff64b2217eab74b65d28

recognize team in replay's player data
---

diff --git a/screp b/screp
index 93eb14f..dbd264c 100755
--- a/screp
+++ b/screp
@@ -457,7 +457,7 @@ for (0 .. 11) {
 	my $number = shift @playdata;
 	defined $player[$number] and warn "Player #$number redefined";
 	my ($data) = unpackhash("VcccZ25", shift @playdata, qw(
-		slot type race unknown name
+		slot type race team name
 	));
 	defined $race[$_] ? ($data->{race} = $race[$_]) :
 		warn "Unknown race #$_ for player $number"