hedgewars/uMisc.pas
changeset 3784 75aa91bea32b
parent 3779 3351a017d4ad
child 3859 ed3b6b3e9d6a
--- a/hedgewars/uMisc.pas	Sat Aug 28 05:35:02 2010 +0200
+++ b/hedgewars/uMisc.pas	Sun Aug 29 16:48:20 2010 +0200
@@ -376,7 +376,7 @@
 end;
 
 procedure SendStat(sit: TStatInfoType; s: shortstring);
-const stc: array [TStatInfoType] of char = 'rDkKHT';
+const stc: array [TStatInfoType] of char = 'rDkKHTPsSB';
 var buf: shortstring;
 begin
 buf:= 'i' + stc[sit] + s;