added check popup at startup if LoadFaultySongs=Off and if there are some defective songs. the user has now the ability to load them anyway.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2611 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 7 insertions, 3 deletions

diff --git a/Game/Code/Classes/UFiles.pas b/Game/Code/Classes/UFiles.pas
index a8fa8076..16ff7c63 100644
--- a/Game/Code/Classes/UFiles.pas
+++ b/Game/Code/Classes/UFiles.pas
@@ -49,8 +49,10 @@ var
   // variables available for all procedures

   Base:       array[0..1] of integer;

   Rel:        array[0..1] of integer;

-  Mult:     integer = 1;

-  MultBPM:  integer = 4;

+  Mult:       integer = 1;

+  MultBPM:    integer = 4;

+

+  CheckOK:    boolean;

 

 implementation

 uses TextGL, UIni, UMain;

@@ -805,6 +807,7 @@ var
   isNewSentence: boolean;

 begin

   Result := false;

+  CheckOK := true;

 

   if not FileExists(Name) then begin

     Log.LogError('File not found: "' + Name + '"', 'LoadSong');

@@ -1028,7 +1031,8 @@ begin
     exit;

   end;

 

-  Result := CheckSong;

+  CheckOK := CheckSong;

+  Result := CheckOK;

 end;

 

 //--------------------