From 3de159b0d467f57967642431f96b7d675b004b8e Mon Sep 17 00:00:00 2001
From: brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Mon, 25 Apr 2011 10:53:52 +0000
Subject: added song quality check

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2829 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Screens/UScreenEditSub.pas | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'Game/Code/Screens/UScreenEditSub.pas')

diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas
index b232ff19..31196d45 100644
--- a/Game/Code/Screens/UScreenEditSub.pas
+++ b/Game/Code/Screens/UScreenEditSub.pas
@@ -387,6 +387,9 @@ begin
           if SResult then
           begin
             Text[TextDebug].Text := Language.Translate('INFO_FILE_SAVED');
+            if not CheckSong then
+              ScreenPopupError.ShowPopup('This song contains some syntax errors!');
+              
             CatSongs.Song[SongIndex] := AktSong;
           end else
           begin
-- 
cgit v1.2.3