From 075cb824a31c5e6e1cc6ee6f0087ac5598ba003a Mon Sep 17 00:00:00 2001 From: brunzelchen Date: Mon, 28 Jun 2010 15:42:13 +0000 Subject: - new option "PossibleScore": show max possible score in singscreen (toggle on/off with "S") - fade the "ball" also - fixed screensong preview volume - update of acinerella git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2565 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Screens/UScreenSong.pas | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'Game/Code/Screens/UScreenSong.pas') diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas index 596eec57..56590166 100644 --- a/Game/Code/Screens/UScreenSong.pas +++ b/Game/Code/Screens/UScreenSong.pas @@ -2452,7 +2452,7 @@ begin try acGetFrame(Czas.Teraz); - Blend := (CoverTime-1.75)/Ini.PreviewFading; + Blend := (CoverTime-1.75)/2; if Blend<0 then Blend := 0 else if Blend>1 then @@ -2855,7 +2855,7 @@ end; procedure TScreenSong.ChangeMusic; begin //When Music Preview is avtivated -> then Change Music - if (Ini.PreviewVolume <> 0) then + if (Ini.PreviewVolume >= 0) then begin if (NOT CatSongs.Song[Interaction].Main) AND(CatSongs.VisibleSongs > 0) then begin @@ -2929,7 +2929,7 @@ end; procedure TScreenSong.StartVideoPreview; begin - if (Ini.PreviewVolume <> 0) and (Ini.MovieSize < 3) then + if (Ini.PreviewVolume >= 0) and (Ini.MovieSize < 3) then begin if (NOT CatSongs.Song[Interaction].Main) AND (CatSongs.VisibleSongs > 0) then begin -- cgit v1.2.3