--- a/hedgewars/uWorld.pas Mon Sep 18 18:07:41 2006 +0000
+++ b/hedgewars/uWorld.pas Wed Sep 20 15:33:47 2006 +0000
@@ -346,7 +346,6 @@
procedure MoveCamera;
const PrevSentPointTime: LongWord = 0;
-var s: string[9];
begin
if not (CurrentTeam.ExtDriven and isCursorVisible) then SDL_GetMouseState(@CursorPoint.X, @CursorPoint.Y);
if (FollowGear <> nil) then
@@ -366,11 +365,7 @@
begin
if (not CurrentTeam.ExtDriven)and(GameTicks >= PrevSentPointTime + cSendCursorPosTime) then
begin
- s[0]:= #5;
- s[1]:= 'P';
- PSmallInt(@s[2])^:= CursorPoint.X - WorldDx;
- PSmallInt(@s[4])^:= CursorPoint.Y - WorldDy;
- SendIPC(s);
+ SendIPCXY('P', CursorPoint.X - WorldDx, CursorPoint.Y - WorldDy);
PrevSentPointTime:= GameTicks
end;
end;