diff options
Diffstat (limited to '')
| -rw-r--r-- | Game/Code/Classes/USingScores.pas | 15 |
1 files changed, 9 insertions, 6 deletions
diff --git a/Game/Code/Classes/USingScores.pas b/Game/Code/Classes/USingScores.pas index 88b278b7..7625c17c 100644 --- a/Game/Code/Classes/USingScores.pas +++ b/Game/Code/Classes/USingScores.pas @@ -426,30 +426,33 @@ begin // TODO : JB_Lazarus - Exception=Invalid floating point operation
// AT THIS LINE !
+ {$IFDEF FPC}
+(*
writeln( 'USINGSCORES-aPlayers[Cur.Player].RBTarget : ' + floattostr( aPlayers[Cur.Player].RBTarget ) );
writeln( 'USINGSCORES-(Cur.ScoreDiff - Cur.ScoreGiven) : ' + floattostr( (Cur.ScoreDiff - Cur.ScoreGiven) ) );
writeln( 'USINGSCORES-Cur.ScoreDiff : ' + floattostr( Cur.ScoreDiff ) );
writeln( 'USINGSCORES-(Cur.Rating / 20 - 0.26) : ' + floattostr( (Cur.Rating / 20 - 0.26) ) );
writeln( '' );
+*)
+ {$ENDIF}
lTempA := ( aPlayers[Cur.Player].RBTarget + (Cur.ScoreDiff - Cur.ScoreGiven) );
lTempB := ( Cur.ScoreDiff * (Cur.Rating / 20 - 0.26) );
-
+
+ {$IFDEF FPC}
+(*
writeln( 'USINGSCORES-lTempA : ' + floattostr( lTempA ) );
writeln( 'USINGSCORES-lTempB : ' + floattostr( lTempB ) );
writeln( '----------------------------------------------------------' );
-
+*)
+ {$ENDIF}
if ( lTempA > 0 ) AND
( lTempB > 0 ) THEN
begin
- writeln( 'USINGSCORES-lTempA / lTempB :' + floattostr( lTempA / lTempB ) );
aPlayers[Cur.Player].RBTarget := lTempA / lTempB;
end;
- writeln( '----------------------------------------------------------' );
- writeln( '' );
-
If (aPlayers[Cur.Player].RBTarget > 1) then
aPlayers[Cur.Player].RBTarget := 1
else
|