load song with "note length"-error anyway;

added option "LoadFaultySongs" (for song devs)

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

1 files changed, 11 insertions, 0 deletions

diff --git a/Game/Code/Classes/UIni.pas b/Game/Code/Classes/UIni.pas
index 9007744c..02b9c5ef 100644
--- a/Game/Code/Classes/UIni.pas
+++ b/Game/Code/Classes/UIni.pas
@@ -22,6 +22,7 @@ type
     Tabs_at_startup:integer; //Tabs at Startup fix

     Sorting:        integer;

     Debug:          integer;

+    LoadFaultySongs:integer;

 

     // Graphics

     Screens:        integer;

@@ -118,6 +119,7 @@ const
   sArtist2 = 7;

 

   IDebug:         array[0..1] of string = ('Off', 'On');

+  ILoadFaultySongs: array[0..1] of string = ('Off', 'On');

 

   IScreens:       array[0..1] of string = ('1', '2');

   IFullScreen:    array[0..1] of string = ('Off', 'On');

@@ -246,6 +248,11 @@ begin
   for Pet := 0 to High(IDebug) do

     if Tekst = IDebug[Pet] then Ini.Debug := Pet;

 

+  // Load faulty songs

+  Tekst := IniFile.ReadString('Game', 'LoadFaultySongs', ILoadFaultySongs[0]);

+  for Pet := 0 to High(IDebug) do

+    if Tekst = IDebug[Pet] then Ini.LoadFaultySongs := Pet;

+

   //if Ini.Debug = 1 then SongPath := 'E:\UltraStar 03\Songs\';

 

   // Screens

@@ -621,6 +628,10 @@ begin
     Tekst := IDebug[Ini.Debug];

     IniFile.WriteString('Game',     'Debug',   Tekst);

 

+    // Load faulty songs

+    Tekst := IDebug[Ini.Debug];

+    IniFile.WriteString('Game',     'LoadFaultySongs',   Tekst);

+

     // Screens

     Tekst := IScreens[Ini.Screens];

     IniFile.WriteString('Graphics', 'Screens', Tekst);