* first usable implementation of the JukeBox mode, work in progress - you can start it by pressing "j" in the main menu

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

1 files changed, 30 insertions, 0 deletions

diff --git a/src/base/UNote.pas b/src/base/UNote.pas
index c82cc2e3..dc2c6922 100644
--- a/src/base/UNote.pas
+++ b/src/base/UNote.pas
@@ -44,6 +44,7 @@ uses
   ULyrics,
   URecord,
   UScreenSing,
+  UScreenJukebox,
   USong,
   UTime;
 
@@ -135,6 +136,8 @@ procedure NewNote(Screen: TScreenSing);       // detect note
 function  GetMidBeat(Time: real): real;
 function  GetTimeFromBeat(Beat: integer; SelfSong: TSong = nil): real;
 
+procedure SingJukebox(Screen: TScreenJukebox);
+
 implementation
 
 uses
@@ -325,6 +328,33 @@ begin
     NewBeatDetect(Screen);
 end;
 
+procedure SingJukebox(Screen: TScreenJukebox);
+var
+  Count:   integer;
+  CountGr: integer;
+  CP:      integer;
+begin
+  LyricsState.UpdateBeats();
+
+  // sentences routines
+  for CountGr := 0 to 0 do //High(Lines)
+  begin;
+    CP := CountGr;
+    // old parts
+    LyricsState.OldLine := Lines[CP].Current;
+
+    // choose current parts
+    for Count := 0 to Lines[CP].High do
+    begin
+      if LyricsState.CurrentBeat >= Lines[CP].Line[Count].Start then
+        Lines[CP].Current := Count;
+    end;
+  end; // for CountGr
+
+  // on sentence change...
+  Screen.onSentenceChange(Lines[0].Current);
+end; 
+
 procedure NewSentence(Screen: TScreenSing);
 var
   i: integer;