aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code
diff options
context:
space:
mode:
authorwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-05-08 19:23:02 +0000
committerwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-05-08 19:23:02 +0000
commit5270a02d1dea4f660349f0414d63c3b969def187 (patch)
treeaf05012856faa32d0721f82d9c85c093d221fad4 /Game/Code
parentb61e647b67ac0d449d764b89b117a3ac8b603403 (diff)
downloadusdx-5270a02d1dea4f660349f0414d63c3b969def187.tar.gz
usdx-5270a02d1dea4f660349f0414d63c3b969def187.tar.xz
usdx-5270a02d1dea4f660349f0414d63c3b969def187.zip
Added Ability to Leave Song Screen in Party Mode with Popup.
Show Menu directly in Songscreen in PartyMode git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@181 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code')
-rw-r--r--Game/Code/Screens/UScreenSong.pas18
1 files changed, 17 insertions, 1 deletions
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index 139d6984..296b6d2f 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -63,6 +63,7 @@ type
function ParseInput(PressedKey: Cardinal; ScanCode: byte; PressedDown: Boolean): Boolean; override;
function Draw: boolean; override;
procedure onShow; override;
+ procedure onHide; override;
procedure SelectNext;
procedure SelectPrev;
procedure UpdateLCD;
@@ -298,6 +299,12 @@ begin
// Music.Open(Skin.SkinPath + 'Menu Music 3.mp3');
// Music.Play;
end;
+ end
+ //When in party Mode then Ask before Close
+ else if (Mode = 1) then
+ begin
+ Music.PlayBack;
+ CheckFadeTo(@ScreenMain,'MSG_END_PARTY');
end;
end;
SDLK_RETURN:
@@ -1198,12 +1205,21 @@ begin
//Party Mode
else if (Mode = 1) then
begin
+
SelectRandomSong;
+ //Show Mennu direct in PartyMode
+ ScreenSongMenu.MenuShow(SM_Party_Main);
end;
SetJoker;
end;
+procedure TScreenSong.onHide;
+begin
+ //When hide then Stop Music (For Party Mode Popup on Exit)
+ Music.Stop;
+end;
+
procedure TScreenSong.DrawExtensions;
begin
//Draw Song Menu
@@ -1631,7 +1647,7 @@ end;
procedure TScreenSong.StartSong;
begin
CatSongs.Selected := Interaction;
- Music.Stop;
+ //Music.Stop;
//Party Mode
if (Mode = 1) then
begin