--- 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