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, 22 insertions, 2 deletions

diff --git a/Game/Code/Screens/UScreenPopup.pas b/Game/Code/Screens/UScreenPopup.pas
index e7d6ce00..aaed32ed 100644
--- a/Game/Code/Screens/UScreenPopup.pas
+++ b/Game/Code/Screens/UScreenPopup.pas
@@ -85,7 +85,7 @@ var
 

 implementation

 

-uses Classes, TextGL, UGraphic, UMain, UIni, UTexture, ULanguage, UParty, UPlaylist, UDisplay;

+uses Classes, TextGL, UGraphic, USongs, UMain, UIni, UTexture, ULanguage, UParty, UPlaylist, UDisplay;

 

 function TScreenPopupCheck.ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean;

 begin

@@ -121,11 +121,31 @@ begin
                    ScreenSingModi.Finish;

                end;

 

-               Display.CheckOK:=True;

+               //Hack to load faulty songs in main screen

+               if (Display.NextScreenWithCheck = NIL) then

+               begin

+                 if (Display.ActualScreen = @ScreenMain) and (ScreenMain.ShowNumErrors) then

+                 begin

+                   Ini.LoadFaultySongs := 1;

+                   Songs.LoadSongList();

+                   UGraphic.UnLoadScreens();

+                   UGraphic.LoadScreens( true );

+                   ScreenSong.Refresh(true);

+                   PlaylistMan.LoadPlayLists;

+                   Ini.LoadFaultySongs := 0;

+                   ScreenMain.ShowNumErrors := false;

+                   FadeTo(@ScreenMain);

+                 end else

+                   Display.CheckOK:=True;

+               end else

+                Display.CheckOK:=True;

              end;

           1: begin

                Display.CheckOK:=False;

                Display.NextScreenWithCheck:=NIL;

+

+               if (Display.ActualScreen = @ScreenMain) and (ScreenMain.ShowNumErrors) then

+                 ScreenMain.ShowNumErrors := false;

              end;

           end;

           Visible:=False;