hedgewars/uWorld.pas
changeset 5848 103e3a80daa6
parent 5800 3a04c30e5ac7
child 5851 e6151aca2d7c
equal deleted inserted replaced
5847:9fd9d159ca32 5848:103e3a80daa6
  1194         exit
  1194         exit
  1195     end
  1195     end
  1196     else
  1196     else
  1197     begin
  1197     begin
  1198         CursorPoint.X:= (prevPoint.X * 7 + hwRound(FollowGear^.X) + hwSign(FollowGear^.dX) * 100 + WorldDx) div 8;
  1198         CursorPoint.X:= (prevPoint.X * 7 + hwRound(FollowGear^.X) + hwSign(FollowGear^.dX) * 100 + WorldDx) div 8;
  1199         CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y) + WorldDy)) div 8;
  1199         CursorPoint.Y:= (prevPoint.Y * 7 + cScreenHeight - (hwRound(FollowGear^.Y)+ hwSign(FollowGear^.dX) * 100 + WorldDy)) div 8;
  1200     end;
  1200     end;
  1201 
  1201 
  1202 wdy:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine - cVisibleWater;
  1202 wdy:= trunc(cScreenHeight / cScaleFactor) + cScreenHeight div 2 - cWaterLine - cVisibleWater;
  1203 if WorldDy < wdy then WorldDy:= wdy;
  1203 if WorldDy < wdy then WorldDy:= wdy;
  1204 
  1204