hedgewars/uMisc.pas
changeset 2382 bfd378dfc4e7
parent 2376 ece7b87f1334
child 2389 bc3e45a4d5fb
--- 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;