hedgewars/uWorld.pas
changeset 7468 1333ca7554dc
parent 7426 55b49cc1f33a
child 7503 deaeac102355
equal deleted inserted replaced
7465:c2dcf97ca664 7468:1333ca7554dc
  1612 {$IFNDEF MOBILE}
  1612 {$IFNDEF MOBILE}
  1613 if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu))) and cHasFocus and (GameState <> gsConfirm) then
  1613 if (not (CurrentTeam^.ExtDriven and isCursorVisible and (not bShowAmmoMenu))) and cHasFocus and (GameState <> gsConfirm) then
  1614     uCursor.updatePosition();
  1614     uCursor.updatePosition();
  1615 {$ENDIF}
  1615 {$ENDIF}
  1616 z:= round(200/zoom);
  1616 z:= round(200/zoom);
  1617 if not PlacingHogs and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) then
  1617 if not PlacingHogs and (FollowGear <> nil) and (not isCursorVisible) and (not bShowAmmoMenu) and (not fastUntilLag) and autoCameraOn then
  1618     if (not autoCameraOn) then
       
  1619         FollowGear:= nil
       
  1620     else
       
  1621     if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then
  1618     if ((abs(CursorPoint.X - prevPoint.X) + abs(CursorPoint.Y - prevpoint.Y)) > 4) then
  1622         begin
  1619         begin
  1623         FollowGear:= nil;
  1620         FollowGear:= nil;
  1624         prevPoint:= CursorPoint;
  1621         prevPoint:= CursorPoint;
  1625         exit
  1622         exit