removed a bunch of debugging from usdx startup.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@738 b956fd51-792f-4845-bead-9b4dfca2ff2c

4 files changed, 17 insertions, 25 deletions

diff --git a/Game/Code/Classes/UFiles.pas b/Game/Code/Classes/UFiles.pas
index e4f83b7a..274bf404 100644
--- a/Game/Code/Classes/UFiles.pas
+++ b/Game/Code/Classes/UFiles.pas
@@ -128,8 +128,6 @@ begin
       Identifier  := Uppercase(Trim(Copy(Line, 2, Temp - 2))); //Uppercase is for Case Insensitive Checks
       Value       := Trim(Copy(Line, Temp + 1,Length(Line) - Temp));
 
-      Log.LogError('Identifier: '+Identifier+' - '+ Value );
-
       //Check the Identifier (If Value is given)
       if (Length(Value) <> 0) then
       begin
@@ -332,8 +330,6 @@ Result := False;
   //Reset LineNo
   FileLineNo := 0;
 
-  writeln( 'Assign File : ' + Song.Path + Song.FileName );
-
   //Open File and set File Pointer to the beginning
   AssignFile(SongFile, Song.Path + Song.FileName);
   
diff --git a/Game/Code/Classes/UIni.pas b/Game/Code/Classes/UIni.pas
index 0e84c506..abbef723 100644
--- a/Game/Code/Classes/UIni.pas
+++ b/Game/Code/Classes/UIni.pas
@@ -415,10 +415,8 @@ begin
       //Search for Skins for this Theme
       for Pet := low(Skin.Skin) to high(Skin.Skin) do
       begin
-        writeln( 'forloop' );
         if UpperCase(Skin.Skin[Pet].Theme) = Tekst then
         begin
-        writeln( 'match' );
           SetLength(ITheme, Length(ITheme)+1);
           ITheme[High(ITheme)] := GetFileName(SR.Name);
           break;
diff --git a/Game/Code/Classes/ULog.pas b/Game/Code/Classes/ULog.pas
index 50e9bf68..01eff5f4 100644
--- a/Game/Code/Classes/ULog.pas
+++ b/Game/Code/Classes/ULog.pas
@@ -189,8 +189,6 @@ begin
       FileErrorO := false;
     end;
   end;
-  {$DEFINE DEBUG} //How can i check if this is set in *.dpr file o0
-  //If Debug => Write to Console Output
   {$IFDEF DEBUG}
   WriteLn('Error: ' + Text);
   {$ENDIF}
@@ -230,7 +228,7 @@ begin
 
   //If Debug => Write to Console Output
   {$IFDEF DEBUG}
-  WriteLn(Log2 + ': ' + Log1);
+//   WriteLn(Log2 + ': ' + Log1);
   {$ENDIF}
 end;
 
@@ -260,21 +258,21 @@ end;
 procedure TLog.LogBuffer(const buf: Pointer; const bufLength: Integer; filename: string);
 var
   f : TFileStream;
-begin

-  f := nil;

-

-  try

-    f := TFileStream.Create( filename, fmCreate);

-    f.Write( buf^, bufLength);

-    f.Free;

-  except

-    on e : Exception do begin

-      Log.LogError('TLog.LogBuffer: Failed to log buffer into file "' + filename + '". ErrMsg: ' + e.Message);

-      f.Free;

-    end;

-  end;

-end;

-

+begin
+  f := nil;
+
+  try
+    f := TFileStream.Create( filename, fmCreate);
+    f.Write( buf^, bufLength);
+    f.Free;
+  except
+    on e : Exception do begin
+      Log.LogError('TLog.LogBuffer: Failed to log buffer into file "' + filename + '". ErrMsg: ' + e.Message);
+      f.Free;
+    end;
+  end;
+end;
+
 end.
 
 
diff --git a/Game/Code/Classes/UTexture.pas b/Game/Code/Classes/UTexture.pas
index 8701673e..f57c9c15 100644
--- a/Game/Code/Classes/UTexture.pas
+++ b/Game/Code/Classes/UTexture.pas
@@ -1,6 +1,6 @@
 unit UTexture;
 // added for easier debug disabling
-{$define blindydebug}
+{$undefine blindydebug}
 
 // Plain (alpha = 1)
 // Transparent