From 174244a5ddf10da145779f6fe0ad1c5bc398fa6a Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 8 Oct 2007 09:08:17 +0000
Subject: fixed bad build build#USDX-DELPHI-31 oops...

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@473 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UMusic.pas  | 7 ++++---
 Game/Code/Classes/URecord.pas | 3 ++-
 2 files changed, 6 insertions(+), 4 deletions(-)

(limited to 'Game')

diff --git a/Game/Code/Classes/UMusic.pas b/Game/Code/Classes/UMusic.pas
index bdd0be83..3c43615b 100644
--- a/Game/Code/Classes/UMusic.pas
+++ b/Game/Code/Classes/UMusic.pas
@@ -97,12 +97,12 @@ type
 
       //Custom Sounds
       CustomSounds: array of TCustomSoundEntry;
+      Loaded:   boolean;
+      Loop:     boolean;
 
 
       function FFMPeg_StreamCreateFile(abool : boolean; aFileName : pchar ): THandle;
 
-      Loaded:   boolean;
-      Loop:     boolean;
     public
       Bass:               hStream;
       procedure InitializePlayback;
@@ -670,7 +670,8 @@ begin
   {$IFDEF useBASS}
   // TODO : jb_linux replace with something other than bass
 
-  if not BASS_RecordInit(RecordI) then begin
+  if not BASS_RecordInit(RecordI) then
+  begin
     Error := BASS_ErrorGetCode;
 
     ErrorMsg := IntToStr(Error);
diff --git a/Game/Code/Classes/URecord.pas b/Game/Code/Classes/URecord.pas
index d22e20d3..b553504d 100644
--- a/Game/Code/Classes/URecord.pas
+++ b/Game/Code/Classes/URecord.pas
@@ -76,6 +76,7 @@ var
   Recording:  TRecord;
 
 implementation
+
 uses UMain;
 
 procedure TSound.ProcessNewBuffer;
@@ -308,7 +309,7 @@ begin
       Repeat
         Inc(No)
       Until not IsDuplicate(Descr + ' (' + InttoStr(No) + ')');
-      
+
       //Set Description
       Descr := Descr + ' (' + InttoStr(No) + ')';
     end;
-- 
cgit v1.2.3