Merge pull request #910 from UltraStar-Deluxe/fix-scoreline-bonus

fix scoreline bonus only allowing values up to 990 instead of 1000
UltraStar-Deluxe · Oct 8, 2024 · e6bb354 · e6bb354
2 parents ef99cc2 + 64445c7
commit e6bb354
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/screens/controllers/UScreenSingController.pas b/src/screens/controllers/UScreenSingController.pas
@@ -1712,7 +1712,7 @@ procedure TScreenSingController.OnSentenceEnd(Track: integer; SentenceIndex: car
         // apply line-bonus
         CurrentPlayer.ScoreLine :=
           CurrentPlayer.ScoreLine + LineBonus * LinePerfection;
-        CurrentPlayer.ScoreLineInt := Floor(CurrentPlayer.ScoreLine / 10) * 10;
+        CurrentPlayer.ScoreLineInt := Floor(Round(CurrentPlayer.ScoreLine) / 10) * 10;
         // update total score
         CurrentPlayer.ScoreTotalInt :=
           CurrentPlayer.ScoreInt +