hedgewars/uWorld.pas
changeset 110 330a2dbacd67
parent 109 ab0340f580c2
child 146 458f4f58c1b6
equal deleted inserted replaced
109:ab0340f580c2 110:330a2dbacd67
   364 
   364 
   365 if isCursorVisible then
   365 if isCursorVisible then
   366    begin
   366    begin
   367    if (not CurrentTeam.ExtDriven)and(GameTicks >= PrevSentPointTime + cSendCursorPosTime) then
   367    if (not CurrentTeam.ExtDriven)and(GameTicks >= PrevSentPointTime + cSendCursorPosTime) then
   368       begin
   368       begin
   369       s[0]:= #9;
   369       s[0]:= #5;
   370       s[1]:= 'P';
   370       s[1]:= 'P';
   371       PSmallInt(@s[2])^:= CursorPoint.X - WorldDx;
   371       PSmallInt(@s[2])^:= CursorPoint.X - WorldDx;
   372       PSmallInt(@s[4])^:= CursorPoint.Y - WorldDy;
   372       PSmallInt(@s[4])^:= CursorPoint.Y - WorldDy;
   373       SendIPC(s);
   373       SendIPC(s);
   374       PrevSentPointTime:= GameTicks
   374       PrevSentPointTime:= GameTicks