From ebac563f0f8f4fba120cee79e8e6a7973e394677 Mon Sep 17 00:00:00 2001
From: basisbit <basisbit@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Fri, 28 Aug 2015 01:45:23 +0000
Subject: * 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
---
 src/screens/UScreenMain.pas | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

(limited to 'src/screens/UScreenMain.pas')

diff --git a/src/screens/UScreenMain.pas b/src/screens/UScreenMain.pas
index aa313cf6..b5e3a8bb 100644
--- a/src/screens/UScreenMain.pas
+++ b/src/screens/UScreenMain.pas
@@ -85,9 +85,9 @@ function TScreenMain.ParseInput(PressedKey: Cardinal; CharCode: UCS4Char;
   PressedDown: boolean): boolean;
 var
   SDL_ModState: word;
+  I: integer;
 begin
   Result := true;
-
   { reset user interaction timer }
   UserInteractionTicks := SDL_GetTicks;
 
@@ -126,6 +126,27 @@ begin
         FadeTo(@ScreenEdit, SoundLib.Start);
         Exit;
       end;
+
+      Ord('J'): begin
+        //ScreenSong.Mode := smPartyJukebox;
+        AudioPlayback.PlaySound(SoundLib.Start);
+
+        SetLength(ScreenJukebox.JukeboxSongsList, 0);
+        SetLength(ScreenJukebox.JukeboxVisibleSongs, 0);
+
+        for I := 0 to High(CatSongs.Song) do
+        begin
+          if not (CatSongs.Song[I].Main) then
+            ScreenJukebox.AddSongToJukeboxList(I);
+        end;
+        ScreenJukebox.ActualInteraction := 0;
+        ScreenJukebox.CurrentSongList := 0;
+        ScreenJukebox.ListMin := 0;
+        ScreenJukebox.Interaction := 0;
+        ScreenJukebox.CurrentSongID := ScreenJukebox.JukeboxVisibleSongs[ScreenJukebox.CurrentSongList];
+
+        FadeTo(@ScreenJukebox);
+      end;
     end;
 
     // check special keys
-- 
cgit v1.2.3