aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Screens
diff options
context:
space:
mode:
authorwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-03-30 12:19:08 +0000
committerwhiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-03-30 12:19:08 +0000
commit563375e18e4aeba0152a9761f1f84d66aaeb27d2 (patch)
tree9ee360c245e5688ac5ecc1b48cd4f9ffb137eb4e /Game/Code/Screens
parente0e16a3b1d28cf51fecf669d42465cf2a65728f3 (diff)
downloadusdx-563375e18e4aeba0152a9761f1f84d66aaeb27d2.tar.gz
usdx-563375e18e4aeba0152a9761f1f84d66aaeb27d2.tar.xz
usdx-563375e18e4aeba0152a9761f1f84d66aaeb27d2.zip
Finished Code for Plugin Sound PlayBack
Removed Debug Message from ULanguage git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@50 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--Game/Code/Screens/UScreenSong.pas26
1 files changed, 25 insertions, 1 deletions
diff --git a/Game/Code/Screens/UScreenSong.pas b/Game/Code/Screens/UScreenSong.pas
index 9202717d..694ecc39 100644
--- a/Game/Code/Screens/UScreenSong.pas
+++ b/Game/Code/Screens/UScreenSong.pas
@@ -149,7 +149,7 @@ var I, I2: Integer;
//showmessage(CatSongs.Song[Cat].Path + CatSongs.Song[Cat].Cover);
//Static[StaticCat].Texture := Texture.GetTexture(Button[Cat].Texture.Name, 'Plain', true);
- Static[StaticCat].Texture := Texture.GetTexture(CatSongs.Song[Cat].Path + CatSongs.Song[Cat].Cover, 'Plain', true);
+ Static[StaticCat].Texture := Texture.GetTexture(Button[Cat].Texture.Name, 'Plain', true);
//Texture.GetTexture(Button[Cat].Texture.Name, 'Plain', false);
//Button[Cat].
//Cover
@@ -198,6 +198,30 @@ begin
SDL_ModState := SDL_GetModState and (KMOD_LSHIFT + KMOD_RSHIFT
+ KMOD_LCTRL + KMOD_RCTRL + KMOD_LALT + KMOD_RALT);
+ {//Jump To
+ if (SDL_ModState = KMOD_LALT) AND (PressedKey > SDLK_A) AND (PressedKey < SDLK_Z) then
+ begin
+ Letter := UpCase(Chr(ScanCode));
+ Log.LogError(Letter);
+ I2 := Length(CatSongs.Song);
+ For I := 1 to high(CatSongs.Song) do
+ begin
+ if (CatSongs.Song[(I + Interaction) mod I2].Visible) AND (Length(CatSongs.Song[(I + Interaction) mod I2].Title)>0) AND (UpCase(CatSongs.Song[(I + Interaction) mod I2].Title[1]) = Letter) then
+ begin
+ SkipTo(CatSongs.VisibleIndex((I + Interaction) mod I2));
+
+ Music.PlayChange;
+
+ ChangeMusic;
+ SetScroll4;
+ UpdateLCD;
+ //Break and Exit
+ Exit;
+ end;
+ end;
+ Exit;
+ end; }
+
case PressedKey of
SDLK_ESCAPE :
begin