diff -r 53ffc8853008 -r d8e68cbca7ee hedgewars/uWorld.pas --- a/hedgewars/uWorld.pas Mon Jun 04 21:32:30 2012 +0400 +++ b/hedgewars/uWorld.pas Thu Jun 07 17:42:32 2012 +0400 @@ -1516,9 +1516,6 @@ DrawTexture((cScreenWidth shr 1) - 60 - offsetY, offsetX, fpsTexture); end; - if CountTicks >= 1000 then - CountTicks:= 0; - // lag warning (?) inc(SoundTimerTicks, Lag); end; @@ -1635,7 +1632,10 @@ {$ENDIF} z:= round(200/zoom); if not PlacingHogs and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) then - if (not autoCameraOn) or ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then + if (not autoCameraOn) then + FollowGear:= nil + else + if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then begin FollowGear:= nil; prevPoint:= CursorPoint; @@ -1685,7 +1685,7 @@ EdgesDist:= cGearScrEdgesDist; // this generates the border around the screen that moves the camera when cursor is near it -if isCursorVisible or (FollowGear <> nil) then +if isCursorVisible or ((FollowGear <> nil) and autoCameraOn) then begin if CursorPoint.X < - cScreenWidth div 2 + EdgesDist then begin