aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--Lua/src/screens/UScreenMain.pas13
-rw-r--r--Lua/src/screens/UScreenSing.pas7
2 files changed, 16 insertions, 4 deletions
diff --git a/Lua/src/screens/UScreenMain.pas b/Lua/src/screens/UScreenMain.pas
index c0ab494e..c590930c 100644
--- a/Lua/src/screens/UScreenMain.pas
+++ b/Lua/src/screens/UScreenMain.pas
@@ -233,9 +233,16 @@ end;
procedure TScreenMain.onShow;
begin
inherited;
-{**
- * Start background music
- *}
+
+ {**
+ * Clean up TPartyGame here
+ * at the moment there is no better place for this
+ *}
+ Party.Clear;
+
+ {**
+ * Start background music
+ *}
SoundLib.StartBgMusic;
end;
diff --git a/Lua/src/screens/UScreenSing.pas b/Lua/src/screens/UScreenSing.pas
index 001fa8a3..1993c331 100644
--- a/Lua/src/screens/UScreenSing.pas
+++ b/Lua/src/screens/UScreenSing.pas
@@ -135,6 +135,7 @@ uses UGraphic,
URecord,
ULanguage,
UDisplay,
+ UParty,
Math;
// Method for input parsing. If False is returned, GetNextWindow
@@ -615,6 +616,9 @@ begin
if Lines[0].Line[P].TotalNotes = 0 then
Inc(NumEmptySentences);
+ ClearSettings;
+ Party.CallBeforeSing;
+
Log.LogStatus('End', 'onShow');
end;
@@ -770,7 +774,6 @@ begin
begin
Finish;
FadeOut := True;
- FadeTo(@ScreenScore);
end;
end;
end;
@@ -847,6 +850,8 @@ begin
end;
SetFontItalic(False);
+
+ Party.CallAfterSing;
end;
procedure TScreenSing.OnSentenceEnd(SentenceIndex: cardinal);