--- a/hedgewars/uMisc.pas	Mon Nov 22 12:35:52 2010 +0100
+++ b/hedgewars/uMisc.pas	Mon Nov 22 21:43:31 2010 +0300
@@ -27,6 +27,7 @@
 procedure movecursor(dx, dy: LongInt);
 function  doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface;
 procedure MakeScreenshot(filename: shortstring);
+function  GetTeamStatString(p: PTeam): shortstring;
 
 procedure initModule;
 procedure freeModule;
@@ -131,6 +132,13 @@
 end;
 
 
+function GetTeamStatString(p: PTeam): shortstring;
+var s: ansistring;
+begin
+    s:= p^.TeamName + ':' + IntToStr(p^.TeamHealth) + ':';
+    GetTeamStatString:= s;
+end;
+
 procedure initModule;
 begin
 end;