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/Classes/ULyrics.pas | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'Game/Code/Classes/ULyrics.pas') diff --git a/Game/Code/Classes/ULyrics.pas b/Game/Code/Classes/ULyrics.pas index c6a5e635..0b301260 100644 --- a/Game/Code/Classes/ULyrics.pas +++ b/Game/Code/Classes/ULyrics.pas @@ -316,7 +316,8 @@ begin end; 3: // slide begin - for W := 0 to High(Word) do begin + for W := 0 to High(Word) do + begin if not Word[W].Selected then DrawNormal(W) else @@ -329,12 +330,13 @@ begin DrawNormal(W); for W := 0 to High(Word) do - if Word[W].Selected then begin + if Word[W].Selected then + begin Tex_Ball.X := (Word[W].X - 10) + Word[W].Done * Word[W].Width; Tex_Ball.Y := YR -12 - 10*sin(Word[W].Done * pi); Tex_Ball.W := 20; Tex_Ball.H := 20; - DrawTexture(Tex_Ball); + DrawTexture(Tex_Ball, Alpha); end; end; end; // case -- cgit v1.2.3