diff -r 959da8402cac -r bfd378dfc4e7 hedgewars/uMisc.pas --- a/hedgewars/uMisc.pas Wed Sep 16 12:48:27 2009 +0000 +++ b/hedgewars/uMisc.pas Wed Sep 16 14:44:40 2009 +0000 @@ -99,9 +99,8 @@ {$WARNINGS ON} var - cSendEmptyPacketTime : LongWord = 2000; cSendCursorPosTime : LongWord = 50; - ShowCrosshair : boolean; + ShowCrosshair : boolean; cDrownSpeed, cMaxWindSpeed, cWindSpeed, @@ -275,8 +274,10 @@ procedure SendStat(sit: TStatInfoType; s: shortstring); const stc: array [TStatInfoType] of char = 'rDkKH'; +var buf: shortstring; begin -SendIPC('i' + stc[sit] + s) +buf:= 'i' + stc[sit] + s; +SendIPCRaw(@buf[0], length(buf) + 1) end; function Str2PChar(const s: shortstring): PChar;