hedgewars/uWorld.pas
changeset 10562 3388822b3914
parent 10533 57b4d411f77d
child 10627 07ff179b0d97
equal deleted inserted replaced
10560:9f09196d92a6 10562:3388822b3914
  1870         prevPoint:= CursorPoint;
  1870         prevPoint:= CursorPoint;
  1871         exit
  1871         exit
  1872         end
  1872         end
  1873     else
  1873     else
  1874         begin
  1874         begin
  1875         if abs(prevPoint.X - WorldDx - hwRound(FollowGear^.X)) > rightX - leftX - 100 then
  1875         if abs(prevPoint.X - WorldDx - hwRound(FollowGear^.X)) > LongInt(rightX) - leftX - 100 then
  1876             begin
  1876             begin
  1877             if (prevPoint.X - WorldDx) * 2 < LongInt(rightX + leftX) then
  1877             if (prevPoint.X - WorldDx) * 2 < LongInt((rightX + leftX)) then
  1878                 cameraJump:= rightX - leftX
  1878                 cameraJump:= LongInt(rightX) - leftX
  1879                 else
  1879                 else
  1880                 cameraJump:= leftX - rightX;
  1880                 cameraJump:= LongInt(leftX) - rightX;
  1881             WorldDx:= WorldDx - cameraJump;
  1881             WorldDx:= WorldDx - cameraJump;
  1882             end;
  1882             end;
  1883 
  1883 
  1884         CursorPoint.X:= (prevPoint.X * 7 + hwRound(FollowGear^.X) + hwSign(FollowGear^.dX) * z + WorldDx) div 8;
  1884         CursorPoint.X:= (prevPoint.X * 7 + hwRound(FollowGear^.X) + hwSign(FollowGear^.dX) * z + WorldDx) div 8;
  1885 
  1885