diff options
Diffstat (limited to 'src/base/USingScores.pas')
| -rw-r--r-- | src/base/USingScores.pas | 6 |
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 |