diff options
| author | brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-12-30 07:56:51 +0000 |
|---|---|---|
| committer | brunzelchen <brunzelchen@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-12-30 07:56:51 +0000 |
| commit | bb64e99825121cfe68d1139fff855dd44a43674a (patch) | |
| tree | 317065156a8b3ccc933e8a517a15b7043dfdab87 /Game/Code | |
| parent | 7f0f49979ee27f76d8dff3786194df1f43d4300f (diff) | |
| download | usdx-bb64e99825121cfe68d1139fff855dd44a43674a.tar.gz usdx-bb64e99825121cfe68d1139fff855dd44a43674a.tar.xz usdx-bb64e99825121cfe68d1139fff855dd44a43674a.zip | |
increase/decrease just one line of a song
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/1.0.1 Challenge MOD@2782 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Game/Code')
| -rw-r--r-- | Game/Code/Screens/UScreenEditSub.pas | 67 |
1 files changed, 55 insertions, 12 deletions
diff --git a/Game/Code/Screens/UScreenEditSub.pas b/Game/Code/Screens/UScreenEditSub.pas index 941a6a1b..fe6993f7 100644 --- a/Game/Code/Screens/UScreenEditSub.pas +++ b/Game/Code/Screens/UScreenEditSub.pas @@ -115,6 +115,7 @@ type procedure DeleteSentence;
procedure TransposeNote(Transpose: integer);
procedure ChangeWholeTone(Tone: integer);
+ procedure ChangeWholeToneActLine(Tone: integer);
procedure MoveAllToEnd(Move: integer);
procedure MoveTextToRight;
procedure MarkSrc;
@@ -1376,19 +1377,49 @@ begin //MP3-Volume Up
SDLK_PAGEUP:
begin
- if (MP3Volume<100) then
- MP3Volume := MP3Volume+5;
+ if (SDL_ModState = 0) then
+ begin
+ if (MP3Volume<100) then
+ MP3Volume := MP3Volume+5;
Music.SetMusicVolume(MP3Volume);
Text[TextDebug].Text := 'MP3 Volume: ' + IntToStr(MP3Volume) + '%';
+ end;
+
+ // Increase tone of all notes
+ if (SDL_ModState = KMOD_LCTRL or KMOD_LALT) then
+ ChangeWholeTone(1);
+ if (SDL_ModState = KMOD_LCTRL or KMOD_LSHIFT or KMOD_LALT) then
+ ChangeWholeTone(12);
+
+ // Increase tone of all notes of actual line
+ if (SDL_ModState = KMOD_LCTRL) then
+ ChangeWholeToneActLine(1);
+ if (SDL_ModState = KMOD_LCTRL or KMOD_LSHIFT) then
+ ChangeWholeToneActLine(12);
end;
//MP3-Volume Down
SDLK_PAGEDOWN:
begin
- if (MP3Volume>0) then
- MP3Volume := MP3Volume-5;
+ if (SDL_ModState = 0) then
+ begin
+ if (MP3Volume>0) then
+ MP3Volume := MP3Volume-5;
Music.SetMusicVolume(MP3Volume);
Text[TextDebug].Text := 'MP3 Volume: ' + IntToStr(MP3Volume) + '%';
+ end;
+
+ // Decrease tone of all notes
+ if (SDL_ModState = KMOD_LCTRL or KMOD_LALT) then
+ ChangeWholeTone(-1);
+ if (SDL_ModState = KMOD_LCTRL or KMOD_LSHIFT or KMOD_LALT) then
+ ChangeWholeTone(-12);
+
+ // Decrease tone of all notes of actual line
+ if (SDL_ModState = KMOD_LCTRL) then
+ ChangeWholeToneActLine(-1);
+ if (SDL_ModState = KMOD_LCTRL or KMOD_LSHIFT) then
+ ChangeWholeToneActLine(-12);
end;
end;
end;
@@ -2257,21 +2288,33 @@ end; procedure TScreenEditSub.ChangeWholeTone(Tone: integer);
var
- P: integer;
C: integer;
N: integer;
begin
- for P := 0 to Length(Czesci) - 1 do
- begin
- for C := 0 to Czesci[P].High do
+
+ for C := 0 to Czesci[CP].High do
begin
- if (Length(Czesci[P].Czesc[C].Nuta)>0) then
+ if (Length(Czesci[CP].Czesc[C].Nuta)>0) then
begin
- Czesci[P].Czesc[C].BaseNote := Czesci[P].Czesc[C].BaseNote + Tone;
- for N := 0 to Czesci[P].Czesc[C].HighNut do
- Czesci[P].Czesc[C].Nuta[N].Ton := Czesci[P].Czesc[C].Nuta[N].Ton + Tone;
+ Czesci[CP].Czesc[C].BaseNote := Czesci[CP].Czesc[C].BaseNote + Tone;
+ for N := 0 to Czesci[CP].Czesc[C].HighNut do
+ Czesci[CP].Czesc[C].Nuta[N].Ton := Czesci[CP].Czesc[C].Nuta[N].Ton + Tone;
end;
end;
+end;
+
+procedure TScreenEditSub.ChangeWholeToneActLine(Tone: integer);
+var
+ C: integer;
+ N: integer;
+
+begin
+ C := Czesci[CP].Akt;
+ if (Length(Czesci[CP].Czesc[C].Nuta)>0) then
+ begin
+ Czesci[CP].Czesc[C].BaseNote := Czesci[CP].Czesc[C].BaseNote + Tone;
+ for N := 0 to Czesci[CP].Czesc[C].HighNut do
+ Czesci[CP].Czesc[C].Nuta[N].Ton := Czesci[CP].Czesc[C].Nuta[N].Ton + Tone;
end;
end;
|