recognize team in replay's player data

diff --git a/screp b/screp
index 93eb14fe56449aaf977e6663cc2b70839a182a0e..dbd264c22916e8e239f22cf86b6fe462bfc053cf 100755 (executable)
--- 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"