From 8c649b5959469659555b162d55a736d69ec7725d Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 21 Sep 2008 17:41:16 +0000
Subject: Repaired ratingbar algo, it was broken after some changes to avoid
 division by zero errors. Still needs some finetuning according sensibility.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1392 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 src/base/USingScores.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/base')

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
-- 
cgit v1.2.3