aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code
diff options
context:
space:
mode:
authorjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-09-29 03:38:24 +0000
committerjaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-09-29 03:38:24 +0000
commit7a08105b029d22762039d9b6c66494cab85cfc49 (patch)
tree45b4a5e719b54e196f24cd9c1ff357c9c1872ec9 /Game/Code
parent76616a7974a926ddee09ab605f89acc78321e728 (diff)
downloadusdx-7a08105b029d22762039d9b6c66494cab85cfc49.tar.gz
usdx-7a08105b029d22762039d9b6c66494cab85cfc49.tar.xz
usdx-7a08105b029d22762039d9b6c66494cab85cfc49.zip
removed debug code from previous checkin.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@447 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/Classes/UDraw.pas10
-rw-r--r--Game/Code/Classes/USingScores.pas15
2 files changed, 17 insertions, 8 deletions
diff --git a/Game/Code/Classes/UDraw.pas b/Game/Code/Classes/UDraw.pas
index 22b1263d..90a3875b 100644
--- a/Game/Code/Classes/UDraw.pas
+++ b/Game/Code/Classes/UDraw.pas
@@ -243,10 +243,13 @@ begin
lTmpA := (Right-Left);
lTmpB := (Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].Koniec - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote);
+ {$IFDEF FPC}
+(*
writeln( 'UDRAW (Right-Left) : ' + floattostr( lTmpA ) );
writeln( 'UDRAW : ' + floattostr( lTmpB ) );
writeln( '' );
-
+*)
+ {$ENFIF}
if ( lTmpA > 0 ) AND
( lTmpB > 0 ) THEN
@@ -476,10 +479,13 @@ begin
lTmpA := (Right-Left);
lTmpB := (Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].Koniec - Czesci[NrCzesci].Czesc[Czesci[NrCzesci].Akt].StartNote);
+ {$IFDEF FPC}
+{*
writeln( 'UDRAW (Right-Left) : ' + floattostr( lTmpA ) );
writeln( 'UDRAW : ' + floattostr( lTmpB ) );
writeln( '' );
-
+*}
+ {$ENDIF}
if ( lTmpA > 0 ) AND
( lTmpB > 0 ) THEN
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