hedgewars/uIO.pas
changeset 12789 28782e03b8f0
parent 12736 7cbb0241d31c
child 12855 1b2b84315d27
child 12893 9cb98c97fbcb
equal deleted inserted replaced
12788:8aa82e350b8e 12789:28782e03b8f0
   489             else
   489             else
   490                 begin
   490                 begin
   491                 TargetPoint.X:= CursorPoint.X - WorldDx;
   491                 TargetPoint.X:= CursorPoint.X - WorldDx;
   492                 TargetPoint.Y:= cScreenHeight - CursorPoint.Y - WorldDy;
   492                 TargetPoint.Y:= cScreenHeight - CursorPoint.Y - WorldDy;
   493                 end;
   493                 end;
   494             TargetPoint.X:= CalcWorldWrap(TargetPoint.X, 0);
   494             if (WorldEdge <> weBounce) then
       
   495                 TargetPoint.X:= CalcWorldWrap(TargetPoint.X, 0);
   495             SendIPCXY('p', TargetPoint.X, TargetPoint.Y);
   496             SendIPCXY('p', TargetPoint.X, TargetPoint.Y);
   496             end
   497             end
   497         else
   498         else
   498             begin
   499             begin
   499             TargetPoint.X:= CalcWorldWrap(TargetPoint.X, 0);
   500             TargetPoint.X:= CalcWorldWrap(TargetPoint.X, 0);