From 9f1d6ca324242597369ac41c6f9fb29cb4aace1b Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Fri, 1 Jan 2016 22:53:55 +0000 Subject: mainly change sentence-related stuff git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@3161 b956fd51-792f-4845-bead-9b4dfca2ff2c --- src/screens/UScreenSing.pas | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'src/screens/UScreenSing.pas') diff --git a/src/screens/UScreenSing.pas b/src/screens/UScreenSing.pas index 38c4762d..b339199b 100644 --- a/src/screens/UScreenSing.pas +++ b/src/screens/UScreenSing.pas @@ -163,8 +163,8 @@ type procedure Finish; virtual; procedure Pause; // toggle pause - procedure OnSentenceEnd(SentenceIndex: cardinal); // for linebonus + singbar - procedure OnSentenceChange(SentenceIndex: cardinal); // for golden notes + procedure OnSentenceEnd(CP: integer; SentenceIndex: cardinal); // for linebonus + singbar + procedure OnSentenceChange(CP: integer; SentenceIndex: cardinal); // for golden notes end; implementation @@ -949,7 +949,9 @@ begin end; // kill all stars not killed yet (goldenstarstwinkle mod) - GoldenRec.SentenceChange; + GoldenRec.SentenceChange(0); + if (PlayersPlay <> 1) then + GoldenRec.SentenceChange(1); // set position of line bonus - line bonus end // set number of empty sentences for line bonus @@ -1324,7 +1326,7 @@ begin end; end; -procedure TScreenSing.OnSentenceEnd(SentenceIndex: cardinal); +procedure TScreenSing.OnSentenceEnd(CP: integer; SentenceIndex: cardinal); var PlayerIndex: byte; CurrentPlayer: PPLayer; @@ -1420,10 +1422,10 @@ end; // Called on sentence change // SentenceIndex: index of the new active sentence -procedure TScreenSing.OnSentenceChange(SentenceIndex: cardinal); +procedure TScreenSing.OnSentenceChange(CP: integer; SentenceIndex: cardinal); begin // goldenstarstwinkle - GoldenRec.SentenceChange; + GoldenRec.SentenceChange(CP); // fill lyrics queue and set upper line to the current sentence while (Lyrics.GetUpperLineIndex() < SentenceIndex) or -- cgit v1.2.3