# HG changeset patch
# User unc0rr
# Date 1302629317 -14400
# Node ID cb822f8d52ffd6a314420cb9a2a3111544129bcf
# Parent  2fb6555011d3f039b98bcd64dc4824f359b11631
Show winners in console in a special form so this information could be easily parsed

diff -r 2fb6555011d3 -r cb822f8d52ff hedgewars/uStats.pas
--- a/hedgewars/uStats.pas	Mon Apr 11 18:23:43 2011 +0200
+++ b/hedgewars/uStats.pas	Tue Apr 12 21:28:37 2011 +0400
@@ -66,16 +66,16 @@
 
 if Gear^.Health <= Gear^.Damage then
     begin
-    inc(CurrentHedgehog^.stats.StepKills);
+    inc(Attacker^.stats.StepKills);
     inc(Kills);
     inc(KillsTotal);
-    inc(CurrentHedgehog^.Team^.stats.Kills);
-    if (CurrentHedgehog^.Team^.TeamName =
+    inc(Attacker^.Team^.stats.Kills);
+    if (Attacker^.Team^.TeamName =
             Gear^.Hedgehog^.Team^.TeamName) then begin
-        inc(CurrentHedgehog^.Team^.stats.TeamKills);
-        inc(CurrentHedgehog^.Team^.stats.TeamDamage, Gear^.Damage);
+        inc(Attacker^.Team^.stats.TeamKills);
+        inc(Attacker^.Team^.stats.TeamDamage, Gear^.Damage);
     end;
-    if CurrentHedgehog^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(KillsClan);
+    if Attacker^.Team^.Clan = Gear^.Hedgehog^.Team^.Clan then inc(KillsClan);
     end;
 
 inc(Gear^.Hedgehog^.stats.StepDamageRecv, Gear^.Damage);
@@ -184,6 +184,7 @@
     maxTurnSkipsName : shortstring;
     maxTeamDamage : Longword;
     maxTeamDamageName : shortstring;
+    winnersClan : PClan;
 begin
 msd:= 0; msdhh:= nil;
 msk:= 0; mskhh:= nil;
@@ -191,6 +192,7 @@
 maxTeamKills := 0;
 maxTurnSkips := 0;
 maxTeamDamage := 0;
+winnersClan:= nil;
 
 for t:= 0 to Pred(TeamsCount) do
     with TeamsArray[t]^ do
@@ -216,6 +218,7 @@
 
         { send player stats for winner teams }
         if Clan^.ClanHealth > 0 then begin
+            winnersClan:= Clan;
             SendStat(siPlayerKills, IntToStr(Clan^.Color) + ' ' +
                 IntToStr(stats.Kills) + ' ' + TeamName);
         end;
@@ -259,6 +262,16 @@
     SendStat(siMaxTeamDamage, IntToStr(maxTeamDamage) + ' ' + maxTeamDamageName);
 
 if KilledHHs > 0 then SendStat(siKilledHHs, IntToStr(KilledHHs));
+
+// now to console
+if winnersClan <> nil then 
+    begin
+    writeln('WINNERS');
+    for t:= 0 to winnersClan^.TeamsNumber - 1 do
+        writeln(winnersClan^.Teams[t]^.TeamName);
+    writeln;
+    end else
+    writeln('DRAW');
 end;
 
 procedure initModule;