aboutsummaryrefslogtreecommitdiffstats
path: root/src/base/USingScores.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/base/USingScores.pas')
-rw-r--r--src/base/USingScores.pas6
1 files changed, 3 insertions, 3 deletions
diff --git a/src/base/USingScores.pas b/src/base/USingScores.pas
index e4c28701..59cdaf67 100644
--- a/src/base/USingScores.pas
+++ b/src/base/USingScores.pas
@@ -425,13 +425,13 @@ begin
aPlayers[Cur.Player].ScoreDisplayed := aPlayers[Cur.Player].ScoreDisplayed + Cur.ScoreDiff - Cur.ScoreGiven;
//Change Bars Position
- lTempA := ( aPlayers[Cur.Player].RBTarget + (Cur.ScoreDiff - Cur.ScoreGiven) );
- lTempB := ( Cur.ScoreDiff * (Cur.Rating / 20 - 0.26) );
+ lTempA := ( (Cur.ScoreDiff - Cur.ScoreGiven) );
+ lTempB := ( Cur.ScoreDiff );
if ( lTempA > 0 ) AND
( lTempB > 0 ) THEN
begin
- aPlayers[Cur.Player].RBTarget := lTempA / lTempB;
+ aPlayers[Cur.Player].RBTarget := aPlayers[Cur.Player].RBTarget + lTempA / lTempB * (Cur.Rating / 20 - 0.26);
end;
If (aPlayers[Cur.Player].RBTarget > 1) then