hedgewars/uWorld.pas
changeset 7503 deaeac102355
parent 7442 9bb6abdb5675
parent 7468 1333ca7554dc
child 7644 ed7fecd0f5fd
equal deleted inserted replaced
7447:01111960a48d 7503:deaeac102355
  1643 {$IFNDEF MOBILE}
  1643 {$IFNDEF MOBILE}
  1644 if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu))) and cHasFocus and (GameState <> gsConfirm) then
  1644 if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu))) and cHasFocus and (GameState <> gsConfirm) then
  1645     uCursor.updatePosition();
  1645     uCursor.updatePosition();
  1646 {$ENDIF}
  1646 {$ENDIF}
  1647 z:= round(200/zoom);
  1647 z:= round(200/zoom);
  1648 if not PlacingHogs and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) then
  1648 if not PlacingHogs and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) and autoCameraOn then
  1649     if (not autoCameraOn) then
       
  1650         FollowGear:= nil
       
  1651     else
       
  1652     if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then
  1649     if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then
  1653         begin
  1650         begin
  1654         FollowGear:= nil;
  1651         FollowGear:= nil;
  1655         prevPoint:= CursorPoint;
  1652         prevPoint:= CursorPoint;
  1656         exit
  1653         exit