aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--src/base/UMain.pas17
-rw-r--r--src/screens/UScreenSing.pas3
2 files changed, 14 insertions, 6 deletions
diff --git a/src/base/UMain.pas b/src/base/UMain.pas
index 0c86563d..f9ac4ebe 100644
--- a/src/base/UMain.pas
+++ b/src/base/UMain.pas
@@ -1013,13 +1013,18 @@ procedure ClearScores(PlayerNum: integer);
begin
with Player[PlayerNum] do
begin
- Score := 0;
- ScoreInt := 0;
- ScoreLine := 0;
- ScoreLineInt := 0;
- ScoreGolden := 0;
- ScoreGoldenInt := 0;
+ Score := 0;
+ ScoreLine := 0;
+ ScoreGolden := 0;
+
+ ScoreInt := 0;
+ ScoreLineInt := 0;
+ ScoreGoldenInt:= 0;
ScoreTotalInt := 0;
+
+ ScoreLast := 0;
+
+ LastSentencePerfect := False;
end;
end;
diff --git a/src/screens/UScreenSing.pas b/src/screens/UScreenSing.pas
index 1aa9dcde..3eb3742d 100644
--- a/src/screens/UScreenSing.pas
+++ b/src/screens/UScreenSing.pas
@@ -844,6 +844,9 @@ begin
// to prevent drawing closed video
VideoLoaded := False;
+
+ //Kill all Stars and Effects
+ GoldenRec.KillAll;
if (Ini.SavePlayback = 1) then
begin