--- 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;