$nicetime | "; } + my $melink = ''; my $enemy = ''; - if (($ev eq 'K' or $ev eq 'KK') and defined $p1) { + $ev = 'KS' if ($ev eq 'K' and defined $p1 and $p1 eq $player); + if (defined $me and $me ne $player) { + my $sname_me = safe_name($me); + $melink = "$me "; + } + if (defined $p1) { my $sname_en = safe_name($p1); $enemy = "$p1"; } @@ -383,7 +440,6 @@ } $html .= "
Player | Team | Score | Deaths | Kills | |||
---|---|---|---|---|---|---|---|
Player | Team | Score | Deaths | Kills | Grabs | Caps | Returns | $n | " : "$n | "; + } + foreach $name (sort keys %player) { my $sname = safe_name($name); - my $score = exists $score{$name} ? $score{$name} : 0; - my $deaths = exists $deaths{$name} ? $deaths{$name} : 0; - my $kills = exists $kills{$name} ? $kills{$name} : 0; - $html .= <$name | $team_name[$team{$name}] | $score | $deaths | $kills | -END + $html .= "
$name | " . + "$team_name[$team{$name}] | " . + lookup(\%score, $name) . + lookup(\%deaths, $name) . + lookup(\%kills, $name) . + lookup(\%grabs, $name) . + lookup(\%caps, $name) . + lookup(\%returns, $name) . + "
Vehicles | Total used | $team_name[$team] $veh_name{$name}s | ${vehicle{"$team $name"}} | END + } + $html .= "
---|