aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--Game/Code/Menu/UMenu.pas12
-rw-r--r--Game/Code/Screens/UScreenMain.pas35
2 files changed, 23 insertions, 24 deletions
diff --git a/Game/Code/Menu/UMenu.pas b/Game/Code/Menu/UMenu.pas
index e6bb6b45..339402a2 100644
--- a/Game/Code/Menu/UMenu.pas
+++ b/Game/Code/Menu/UMenu.pas
@@ -9,7 +9,7 @@ interface
{$I switches.inc}
uses OpenGL12, SysUtils, UTexture, UMenuStatic, UMenuText, UMenuButton, UMenuSelect, UMenuSelectSlide,
- UMenuInteract, UThemes, UMenuButtonCollection, Math;
+ UMenuInteract, UThemes, UMenuButtonCollection, Math, UMusic;
type
{ Int16 = SmallInt;}
@@ -112,7 +112,8 @@ type
// function AddWidget(X, Y : UInt16; WidgetSrc : PSDL_Surface): Int16;
// procedure ClearWidgets(MinNumber : Int16);
- procedure FadeTo(Screen: PMenu);
+ procedure FadeTo(Screen: PMenu); overload;
+ procedure FadeTo(Screen: PMenu; aSound: TAudioPlaybackStream); overload;
//popup hack
procedure CheckFadeTo(Screen: PMenu; msg: String);
@@ -967,6 +968,13 @@ begin
Display.NextScreen := Screen;
end;
+procedure TMenu.FadeTo(Screen: PMenu; aSound: TAudioPlaybackStream);
+begin
+ FadeTo( Screen );
+ AudioPlayback.PlaySound( aSound );
+end;
+
+
//popup hack
procedure TMenu.CheckFadeTo(Screen: PMenu; msg: String);
begin
diff --git a/Game/Code/Screens/UScreenMain.pas b/Game/Code/Screens/UScreenMain.pas
index 5824d9fe..cc2ccc80 100644
--- a/Game/Code/Screens/UScreenMain.pas
+++ b/Game/Code/Screens/UScreenMain.pas
@@ -94,29 +94,25 @@ begin
//Credits_Y := 600;
//Credits_Alpha := 0;
//Credits_Visible := True;
- AudioPlayback.PlaySound(SoundLib.Start);
- FadeTo(@ScreenCredits);
+ FadeTo(@ScreenCredits , SoundLib.Start );
end;
end;
SDLK_M:
begin
if (Ini.Players >= 1) AND (Length(DLLMan.Plugins)>=1) then
begin
- AudioPlayback.PlaySound(SoundLib.Start);
- FadeTo(@ScreenPartyOptions);
+ FadeTo(@ScreenPartyOptions, SoundLib.Start);
end;
end;
SDLK_S:
begin
- AudioPlayback.PlaySound(SoundLib.Start);
- FadeTo(@ScreenStatMain);
+ FadeTo(@ScreenStatMain, SoundLib.Start);
end;
SDLK_E:
begin
- AudioPlayback.PlaySound(SoundLib.Start);
- FadeTo(@ScreenEdit);
+ FadeTo(@ScreenEdit, SoundLib.Start);
end;
SDLK_RETURN:
@@ -126,12 +122,11 @@ begin
begin
if (Songs.SongList.Count >= 1) then
begin
- AudioPlayback.PlaySound(SoundLib.Start);
if (Ini.Players >= 0) and (Ini.Players <= 3) then PlayersPlay := Ini.Players + 1;
if (Ini.Players = 4) then PlayersPlay := 6;
ScreenName.Goto_SingScreen := False;
- FadeTo(@ScreenName);
+ FadeTo(@ScreenName, SoundLib.Start);
end
else //show error message
ScreenPopupError.ShowPopup(Language.Translate('ERROR_NO_SONGS'));
@@ -144,8 +139,7 @@ begin
begin
if (Length(DLLMan.Plugins)>=1) then
begin
- AudioPlayback.PlaySound(SoundLib.Start);
- FadeTo(@ScreenPartyOptions);
+ FadeTo(@ScreenPartyOptions, SoundLib.Start);
end
else //show error message, No Plugins Loaded
ScreenPopupError.ShowPopup(Language.Translate('ERROR_NO_PLUGINS'));
@@ -157,22 +151,19 @@ begin
//Stats
if Interaction = 2 then
begin
- AudioPlayback.PlaySound(SoundLib.Start);
- FadeTo(@ScreenStatMain);
+ FadeTo(@ScreenStatMain, SoundLib.Start);
end;
//Editor
if Interaction = 3 then
begin
- AudioPlayback.PlaySound(SoundLib.Start);
- FadeTo(@ScreenEdit);
+ FadeTo(@ScreenEdit, SoundLib.Start);
end;
//Options
if Interaction = 4 then
begin
- AudioPlayback.PlaySound(SoundLib.Start);
- FadeTo(@ScreenOptions);
+ FadeTo(@ScreenOptions, SoundLib.Start);
end;
//Exit
@@ -214,7 +205,7 @@ begin
//----------------
- TextDescription := AddText(Theme.Main.TextDescription);
+ TextDescription := AddText(Theme.Main.TextDescription);
TextDescriptionLong := AddText(Theme.Main.TextDescriptionLong);
LoadFromTheme(Theme.Main);
@@ -238,7 +229,7 @@ end;
procedure TScreenMain.InteractNext;
begin
inherited InteractNext;
- Text[TextDescription].Text := Theme.Main.Description[Interaction];
+ Text[TextDescription].Text := Theme.Main.Description[Interaction];
Text[TextDescriptionLong].Text := Theme.Main.DescriptionLong[Interaction];
UpdateLCD;
Light.LightOne(1, 200);
@@ -247,7 +238,7 @@ end;
procedure TScreenMain.InteractPrev;
begin
inherited InteractPrev;
- Text[TextDescription].Text := Theme.Main.Description[Interaction];
+ Text[TextDescription].Text := Theme.Main.Description[Interaction];
Text[TextDescriptionLong].Text := Theme.Main.DescriptionLong[Interaction];
UpdateLCD;
Light.LightOne(0, 200);
@@ -256,7 +247,7 @@ end;
procedure TScreenMain.InteractDec;
begin
inherited InteractDec;
- Text[TextDescription].Text := Theme.Main.Description[Interaction];
+ Text[TextDescription].Text := Theme.Main.Description[Interaction];
Text[TextDescriptionLong].Text := Theme.Main.DescriptionLong[Interaction];
UpdateLCD;
Light.LightOne(0, 200);