--- a/hedgewars/uTeams.pas	Mon Nov 22 12:35:52 2010 +0100
+++ b/hedgewars/uTeams.pas	Mon Nov 22 21:43:31 2010 +0300
@@ -34,7 +34,6 @@
 procedure RestoreTeamsFromSave;
 function  CheckForWin: boolean;
 procedure TeamGoneEffect(var Team: TTeam);
-function  GetTeamStatString(p: PTeam): shortstring;
 
 implementation
 uses uLocale, uAmmos, uChat, uMobile, uVariables, uUtils, uIO, uCaptions, uCommands, uDebug;
@@ -406,13 +405,6 @@
                 end
 end;
 
-function GetTeamStatString(p: PTeam): shortstring;
-var s: ansistring;
-begin
-    s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':';
-    GetTeamStatString:= s;
-end;
-
 procedure chAddHH(var id: shortstring);
 var s: shortstring;
     Gear: PGear;