# HG changeset patch # User unc0rr # Date 1341523504 -14400 # Node ID ddb196c41387bf2eceea44c02fae4159b7db8e83 # Parent d70478d265ec1674c11f9d16c906c9dfaddbede5 It is global var diff -r d70478d265ec -r ddb196c41387 hedgewars/uWorld.pas --- a/hedgewars/uWorld.pas Thu Jul 05 20:53:55 2012 +0400 +++ b/hedgewars/uWorld.pas Fri Jul 06 01:25:04 2012 +0400 @@ -1589,9 +1589,10 @@ isFirstFrame:= false end; +var PrevSentPointTime: LongWord = 0; + procedure MoveCamera; var EdgesDist, wdy, shs,z: LongInt; - PrevSentPointTime: LongWord = 0; begin {$IFNDEF MOBILE} if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu))) and cHasFocus and (GameState <> gsConfirm) then @@ -1601,7 +1602,7 @@ if not PlacingHogs and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) then if (not autoCameraOn) then FollowGear:= nil - else + else if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then begin FollowGear:= nil; @@ -1814,6 +1815,7 @@ Frames:= 0; WorldDx:= -512; WorldDy:= -256; + PrevSentPointTime:= 0; FPS:= 0; CountTicks:= 0;