--- a/hedgewars/uTeams.pas	Tue Dec 19 17:20:14 2006 +0000
+++ b/hedgewars/uTeams.pas	Thu Jan 04 16:27:45 2007 +0000
@@ -77,6 +77,7 @@
 function CheckForWin: boolean;
 var team, AliveTeam: PTeam;
     AliveCount: Longword;
+    s: shortstring;
 begin
 Result:= false;
 AliveCount:= 0;
@@ -99,10 +100,13 @@
 if AliveCount = 0 then
    begin // draw
    AddCaption(trmsg[sidDraw], $FFFFFF, capgrpGameState);
+   SendStat(siGameResult, trmsg[sidDraw]);
    AddGear(0, 0, gtATFinishGame, 0, 0, 0, 2000)
    end else // win
    begin
-   AddCaption(Format(trmsg[sidWinner], AliveTeam.TeamName), $FFFFFF, capgrpGameState);
+   s:= Format(trmsg[sidWinner], AliveTeam.TeamName);
+   AddCaption(s, $FFFFFF, capgrpGameState);
+   SendStat(siGameResult, s);
    AddGear(0, 0, gtATFinishGame, 0, 0, 0, 2000)
    end;
 end;