--- a/hedgewars/uIO.pas	Sun Jun 09 01:18:58 2013 +0300
+++ b/hedgewars/uIO.pas	Mon Jun 10 15:18:03 2013 +0300
@@ -212,7 +212,7 @@
 end;
 
 procedure SendStat(sit: TStatInfoType; s: shortstring);
-const stc: array [TStatInfoType] of char = ('r', 'D', 'k', 'K', 'H', 'T', 'P', 's', 'S', 'B', 'c', 'g');
+const stc: array [TStatInfoType] of char = ('r', 'D', 'k', 'K', 'H', 'T', 'P', 's', 'S', 'B', 'c', 'g', 'p');
 var buf: shortstring;
 begin
 buf:= 'i' + stc[sit] + s;