From 5a9b4134bdc9813ad7337848be7f0bfe91b079f0 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Wed, 25 Feb 2009 23:53:32 +0000
Subject: does this fix the score calculation?

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1606 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/screens/UScreenSing.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/screens')

diff --git a/src/screens/UScreenSing.pas b/src/screens/UScreenSing.pas
index b7e6b0ec..da0dc6c9 100644
--- a/src/screens/UScreenSing.pas
+++ b/src/screens/UScreenSing.pas
@@ -888,7 +888,7 @@ begin
       // apply line-bonus
       CurrentPlayer.ScoreLine :=
         CurrentPlayer.ScoreLine + LineBonus * LinePerfection;
-      CurrentPlayer.ScoreLineInt := Round(CurrentPlayer.ScoreLine / 10) * 10;
+      CurrentPlayer.ScoreLineInt := Floor(CurrentPlayer.ScoreLine / 10) * 10;
       // update total score
       CurrentPlayer.ScoreTotalInt :=
         CurrentPlayer.ScoreInt +
-- 
cgit v1.2.3