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;