From 4ec8eae5229e26b8ee648f5168d9b9c7f4e154eb Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 28 Feb 2010 21:09:28 +0000
Subject: 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
---
 Game/Code/Classes/UIni.pas | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'Game/Code/Classes/UIni.pas')

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