diff options
Diffstat (limited to 'Game/Code/Screens')
| -rw-r--r-- | Game/Code/Screens/UScreenSong.pas | 127 |
1 files changed, 58 insertions, 69 deletions
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas index 1a5b41b8..2ce06d7a 100644 --- a/Game/Code/Screens/UScreenSong.pas +++ b/Game/Code/Screens/UScreenSong.pas @@ -381,7 +381,6 @@ begin end
else if (Mode = 1) then //PartyMode -> Show Menu
begin
- //Is this Right?
if (Ini.PartyPopup = 1) then
ScreenSongMenu.MenuShow(SM_Party_Main)
else
@@ -427,93 +426,83 @@ begin SDLK_DOWN:
begin
- if (Mode = 0) then
- begin
-{ if Length(Songs.Song) > 0 then begin
- Music.PlayChange;
- InteractNext;
- Music.Close;
- if Music.Open(CatSongs.Song[Interaction].Path + CatSongs.Song[Interaction].Mp3) then Music.Play;
- SetScroll;
- end;}
-
- //Cat Change Hack
- if Ini.Tabs_at_startup = 1 then
+ if (Mode = 0) then
+ begin
+ //Only Change Cat when not in Playlist or Search Mode
+ if (CatSongs.CatNumShow > -2) then
begin
- I := Interaction;
- if I <= 0 then I := 1;
-
- while not catsongs.Song[I].Main do
+ //Cat Change Hack
+ if Ini.Tabs_at_startup = 1 then
begin
- Inc (I);
- if (I > high(catsongs.Song)) then
- I := low(catsongs.Song);
- end;
+ I := Interaction;
+ if I <= 0 then I := 1;
- Interaction := I;
+ while not catsongs.Song[I].Main do
+ begin
+ Inc (I);
+ if (I > high(catsongs.Song)) then
+ I := low(catsongs.Song);
+ end;
- //Show Cat in Top Left Mod
- ShowCatTL (Interaction);
+ Interaction := I;
- CatSongs.ClickCategoryButton(Interaction);
- SelectNext;
- FixSelected;
+ //Show Cat in Top Left Mod
+ ShowCatTL (Interaction);
- //Play Music:
- Music.PlayChange;
- ChangeMusic;
+ CatSongs.ClickCategoryButton(Interaction);
+ SelectNext;
+ FixSelected;
- end;
+ //Play Music:
+ Music.PlayChange;
+ ChangeMusic;
- //
- //Cat Change Hack End}
- end;
+ end;
+
+ //
+ //Cat Change Hack End}
+ end;
+ end;
end;
SDLK_UP:
begin
- if (Mode = 0) then
- begin
-{ if Length(Songs.Song) > 0 then begin
- Music.PlayChange;
- InteractPrev;
- Music.Close;
- if Music.Open(CatSongs.Song[Interaction].Path + CatSongs.Song[Interaction].Mp3) then Music.Play;
- SetScroll;
- end;}
- //Cat Change Hack
- if Ini.Tabs_at_startup = 1 then
+ if (Mode = 0) then
+ begin
+ //Only Change Cat when not in Playlist or Search Mode
+ if (CatSongs.CatNumShow > -2) then
begin
- I := Interaction;
- I2 := 0;
- if I <= 0 then I := 1;
-
- while not catsongs.Song[I].Main or (I2 = 0) do
+ //Cat Change Hack
+ if Ini.Tabs_at_startup = 1 then
begin
- if catsongs.Song[I].Main then
- Inc(I2);
- Dec (I);
- if (I < low(catsongs.Song)) then
- I := high(catsongs.Song);
- end;
+ I := Interaction;
+ I2 := 0;
+ if I <= 0 then I := 1;
- Interaction := I;
+ while not catsongs.Song[I].Main or (I2 = 0) do
+ begin
+ if catsongs.Song[I].Main then
+ Inc(I2);
+ Dec (I);
+ if (I < low(catsongs.Song)) then
+ I := high(catsongs.Song);
+ end;
- //Show Cat in Top Left Mod
- ShowCatTL (I);
+ Interaction := I;
- CatSongs.ClickCategoryButton(I);
- SelectNext;
- FixSelected;
+ //Show Cat in Top Left Mod
+ ShowCatTL (I);
- //Play Music:
- Music.PlayChange;
- ChangeMusic;
+ CatSongs.ClickCategoryButton(I);
+ SelectNext;
+ FixSelected;
+ //Play Music:
+ Music.PlayChange;
+ ChangeMusic;
+ end;
end;
-
- //
- //Cat Change Hack End}
- end;
+ //Cat Change Hack End}
+ end;
end;
SDLK_RIGHT:
|