hedgewars/uWorld.pas
changeset 154 5667e6f38704
parent 146 458f4f58c1b6
child 161 d8870bbf960e
--- 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;