From 7a08105b029d22762039d9b6c66494cab85cfc49 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sat, 29 Sep 2007 03:38:24 +0000
Subject: removed debug code from previous checkin.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@447 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UDraw.pas       | 10 ++++++++--
 Game/Code/Classes/USingScores.pas | 15 +++++++++------
 2 files changed, 17 insertions(+), 8 deletions(-)

(limited to 'Game/Code')

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