new lyric effect: slide

a lot lyric fixes
change the resolution/fullscreen mode on exit the options menu
some code improvements


git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@957 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 8 insertions, 1 deletions

diff --git a/Game/Code/Classes/USong.pas b/Game/Code/Classes/USong.pas
index 0ac8e841..a3a72107 100644
--- a/Game/Code/Classes/USong.pas
+++ b/Game/Code/Classes/USong.pas
@@ -232,6 +232,7 @@ begin
       Lines[Count].NotesGAP   := self.NotesGAP;
       Lines[Count].Line[0].IlNut := 0;
       Lines[Count].Line[0].HighNote := -1;
+      Lines[Count].Line[0].LastLine := False;
     end;
 
   //  TempC := ':';
@@ -318,7 +319,11 @@ begin
       Read(SongFile, TempC);
       Inc(FileLineNo);
     end; // while}
-
+    
+    for Count := 0 to High(Lines) do begin
+      Lines[Count].Line[High(Lines[Count].Line)].LastLine := True;
+    end;
+    
     CloseFile(SongFile);
   except
     try
@@ -652,6 +657,8 @@ begin
   end
   else
     Lines[LineNumberP].Line[Lines[LineNumberP].High].Start := Param1;
+  
+  Lines[LineNumberP].Line[Lines[LineNumberP].High].LastLine := False;
 
   Base[LineNumberP] := 100; // high number
 end;