--- a/hedgewars/uMisc.pas	Tue Dec 19 17:20:14 2006 +0000
+++ b/hedgewars/uMisc.pas	Thu Jan 04 16:27:45 2007 +0000
@@ -101,6 +101,7 @@
 procedure SetKB(n: Longword);
 procedure SendKB;
 procedure SetLittle(var r: Double);
+procedure SendStat(sit: TStatInfoType; s: shortstring);
 
 var CursorPoint: TPoint;
     TargetPoint: TPoint = (X: NoPointX; Y: 0);
@@ -218,6 +219,12 @@
 Result:= '(x: ' + inttostr(rect.x) + '; y: ' + inttostr(rect.y) + '; w: ' + inttostr(rect.w) + '; h: ' + inttostr(rect.h) + ')'
 end;
 
+procedure SendStat(sit: TStatInfoType; s: shortstring);
+const stc: array [TStatInfoType] of char = 'r';
+begin
+SendIPC('i' + stc[sit] + s)
+end;
+
 initialization
 AssignFile(f, 'debug.txt');
 rewrite(f);