diff options
Diffstat (limited to 'src/screens/UScreenMain.pas')
-rw-r--r-- | src/screens/UScreenMain.pas | 23 |
1 files changed, 22 insertions, 1 deletions
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 |