#! /usr/local/bin/perl

# Read in my plane data

open(myplane, "plane") || die "No plane report";
planeline:while (<myplane>) {
    next planeline if (! /[0-9]% /);
    ($num, $nam, $foo) = unpack("A5 A12 A99", $_);
    $MY_PLANE{$num} = $nam;
}
close myplane;

line:while (<>) {
    next line if (! / takes /);
    ($nam, $rest) = split(/\(/);                        $nam =~ s/^ *//;
    ($num, $rest)   = split(/\)/, $rest);               $num =~ s/#//;
    ($dam, $rest)   = split(/\-/, $rest);               $dam =~ s/takes //;

    if ($MY_PLANE{$num}) {
        $MY_DAMAGE{$num} += $dam;
    }
    else {
        $HIS_PLANE{$num} = $nam;
        $HIS_DAMAGE{$num} += $dam;
    }
    $bounce{$num}++ if (/abort/);
    $down{$num}++ if (/shot down/);
}

print "Me\n";
foreach $num (sort keys %MY_DAMAGE) {
        printf("%-12.12s #%-4d - %3d%%  %d", $MY_PLANE{$num}, $num, $MY_DAMAGE{$num}, $bounce{$num});
        print "splashed" if ($down{$num});
        print "\n";
}
print "\n";
print "Them \n";
foreach $num (sort keys %HIS_DAMAGE) {
        printf("%-12.12s #%-4d - %3d%%  %d", $HIS_PLANE{$num}, $num, $HIS_DAMAGE{$num}, $bounce{$num});
        print "   splashed" if ($down{$num});
        print "\n";
}
