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/base/UGraphic.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

(limited to 'src/base/UGraphic.pas')

diff --git a/src/base/UGraphic.pas b/src/base/UGraphic.pas
index 4f0c8c77..2c80b542 100644
--- a/src/base/UGraphic.pas
+++ b/src/base/UGraphic.pas
@@ -59,6 +59,7 @@ uses
   UScreenSong,
   UScreenSing,
   UScreenScore,
+  UScreenJukeBox,
   UScreenTop5,
   UScreenEditSub,
   UScreenEdit,
@@ -111,6 +112,7 @@ var
   ScreenLevel:        TScreenLevel;
   ScreenSong:         TScreenSong;
   ScreenSing:         TScreenSing;
+  ScreenJukebox:      TScreenJukebox;
   ScreenScore:        TScreenScore;
   ScreenTop5:         TScreenTop5;
   ScreenOptions:          TScreenOptions;
@@ -173,6 +175,7 @@ var
   FullScreen:     boolean;
 
   Tex_TimeProgress: TTexture;
+  Tex_JukeboxTimeProgress: TTexture;
 
   //Sing Bar Mod
   Tex_SingBar_Back:  TTexture;
@@ -372,6 +375,10 @@ begin
   //TimeBar mod
   Tex_TimeProgress := Texture.LoadTexture(Skin.GetTextureFileName('TimeBar'));
   //eoa TimeBar mod
+  
+  //JukeBox mod
+  Tex_JukeboxTimeProgress := Texture.LoadTexture(Skin.GetTextureFileName('JukeboxTimeBar'));
+  //end Jukebox Mod
 
   //SingBar Mod
   Tex_SingBar_Back  := Texture.LoadTexture(Skin.GetTextureFileName('SingBarBack'),  TEXTURE_TYPE_PLAIN, 0);
@@ -741,6 +748,8 @@ begin
   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Song', 3); Log.BenchmarkStart(3);
   ScreenSongMenu :=             TScreenSongMenu.Create;
   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Song Menu', 3); Log.BenchmarkStart(3);
+  ScreenJukebox :=             TScreenJukebox.Create;
+  Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Jukebox', 3); Log.BenchmarkStart(3);
   ScreenSing :=             TScreenSing.Create;
   Log.BenchmarkEnd(3); Log.LogBenchmark('====> Screen Sing', 3); Log.BenchmarkStart(3);
   ScreenScore :=            TScreenScore.Create;
@@ -819,6 +828,7 @@ begin
   ScreenLevel.Free;
   ScreenSong.Free;
   ScreenSing.Free;
+  ScreenJukebox.Free;
   ScreenScore.Free;
   ScreenTop5.Free;
   ScreenOptions.Free;
-- 
cgit v1.2.3