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

5 files changed, 88 insertions, 37 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;

 

diff --git a/Game/Output/Languages/English.ini b/Game/Output/Languages/English.ini
index ee27a924..8973abac 100644
--- a/Game/Output/Languages/English.ini
+++ b/Game/Output/Languages/English.ini
@@ -118,17 +118,13 @@ PLUGIN_MEDLEYSURPRISEBLIND_DESC = 5-song medley (1st picked, rest random) withou
 PLUGIN_MEDLEYSURPRISEBLIND_NAME = Blind Medley Surprise

 PLUGIN_MEHRALS500_DESC = Um zu gewinnen, muss man am Ende mindestens 500 Punkte Vorsprung haben.

 PLUGIN_MEHRALS500_NAME = Sieg 500+

-PLUGIN_MORE1000_DESC = Ziel: 1000 Punkte Vorsprung zum Sieg. Ansonsten gewinnt höchste Punktzahl.

 PLUGIN_MORE1000_DESC = Random song, first to 1000-point lead wins

-PLUGIN_MORE1000_NAME = 

 PLUGIN_MORE1000_NAME = Lead by 1000

 PLUGIN_MORE2000_DESC = Ziel: 2000 Punkte Vorsprung zum Sieg. Ansonsten gewinnt höchste Punktzahl.

 PLUGIN_MORE2000_NAME = 2K Vorsprung

 PLUGIN_MORE3000_DESC = Ziel: 3000 Punkte Vorsprung zum Sieg. Ansonsten gewinnt höchste Punktzahl.

 PLUGIN_MORE3000_NAME = 3K Vorsprung

-PLUGIN_MORE500_DESC = Ziel: 500 Punkte Vorsprung zum Sieg. Ansonsten gewinnt höchste Punktzahl.

 PLUGIN_MORE500_DESC = Random song, first to 500-point lead wins

-PLUGIN_MORE500_NAME = 

 PLUGIN_MORE500_NAME = Lead by 500

 PLUGIN_MORETHAN1000_DESC = Wer mehr als 1000 Punkte zurückliegt, fliegt raus.

 PLUGIN_MORETHAN1000_NAME = Rückstand 1K

@@ -496,6 +492,14 @@ KPPLUS = Increase all notes by 1 semitone
 KPMINUS = Decrease all notes by 1 semitone

 SHIFT_KPPLUS = Increase all notes by 12 semitones (1 octave)

 SHIFT_KPMINUS = Decrease all notes by 12 semitones (1 octave)

+CTRL_ALT_PAGEUP = Increase all notes by 1 semitone

+CTRL_ALT_PAGEDOWN = Decrease all notes by 1 semitone

+CTRL_SHIFT_ALT_PAGEUP = Increase all notes by 12 semitones (1 octave)

+CTRL_SHIFT_ALT_PAGEDOWN = Decrease all notes by 12 semitones (1 octave)

+CTRL_PAGEUP = Increase all notes of actual line by 1 semitone

+CTRL_PAGEDOWN = Decrease all notes of actual line by 1 semitone

+CTRL_SHIFT_PAGEUP = Increase all notes of actual line by 12 semitones (1 octave)

+CTRL_SHIFT_PAGEDOWN = Decrease all notes of actual line by 12 semitones (1 octave)

 #-------------------------------------------------------#

 SEC_042 = Voice Pitch Recording

 N = Set note pitch of current note to the last detected voice pitch.

diff --git a/Game/Output/Languages/German.ini b/Game/Output/Languages/German.ini
index 6d9350f9..e01b6f95 100644
--- a/Game/Output/Languages/German.ini
+++ b/Game/Output/Languages/German.ini
@@ -118,17 +118,13 @@ PLUGIN_MEDLEYSURPRISEBLIND_DESC = Nur das erste Lied darf man aussuchen, blind.
 PLUGIN_MEDLEYSURPRISEBLIND_NAME = Medley Surprise 2

 PLUGIN_MEHRALS500_DESC = Um zu gewinnen, muss man am Ende mindestens 500 Punkte Vorsprung haben.

 PLUGIN_MEHRALS500_NAME = Sieg 500+

-PLUGIN_MORE1000_DESC = Ziel: 1000 Punkte Vorsprung zum Sieg. Ansonsten gewinnt höchste Punktzahl.

 PLUGIN_MORE1000_DESC = Erreiche einen Abstand von 1000 Punkten.

-PLUGIN_MORE1000_NAME = 1K Vorsprung

 PLUGIN_MORE1000_NAME = Mehr als 1000

 PLUGIN_MORE2000_DESC = Ziel: 2000 Punkte Vorsprung zum Sieg. Ansonsten gewinnt höchste Punktzahl.

 PLUGIN_MORE2000_NAME = 2K Vorsprung

 PLUGIN_MORE3000_DESC = Ziel: 3000 Punkte Vorsprung zum Sieg. Ansonsten gewinnt höchste Punktzahl.

 PLUGIN_MORE3000_NAME = 3K Vorsprung

-PLUGIN_MORE500_DESC = Ziel: 500 Punkte Vorsprung zum Sieg. Ansonsten gewinnt höchste Punktzahl.

 PLUGIN_MORE500_DESC = Erreiche einen Abstand von 500 Punkten.

-PLUGIN_MORE500_NAME = 500 Vorsprung

 PLUGIN_MORE500_NAME = Mehr als 500

 PLUGIN_MORETHAN1000_DESC = Wer mehr als 1000 Punkte zurückliegt, fliegt raus.

 PLUGIN_MORETHAN1000_NAME = Rückstand 1K

@@ -496,6 +492,14 @@ KPPLUS = Tonhöhe aller Noten um einen Halbtonschritt erhöhen
 KPMINUS = Tonhöhe aller Noten um einen Halbtonschritt verringern

 SHIFT_KPPLUS = Tonhöhe aller Noten um eine Oktave (12 Halbtonschritte) erhöhen

 SHIFT_KPMINUS = Tonhöhe aller Noten um eine Oktave (12 Halbtonschritte) verringern

+CTRL_ALT_PAGEUP = Tonhöhe aller Noten um einen Halbtonschritt erhöhen

+CTRL_ALT_PAGEDOWN = Tonhöhe aller Noten um einen Halbtonschritt verringern

+CTRL_SHIFT_ALT_PAGEUP = Tonhöhe aller Noten um eine Oktave (12 Halbtonschritte) erhöhen

+CTRL_SHIFT_ALT_PAGEDOWN = Tonhöhe aller Noten um eine Oktave (12 Halbtonschritte) verringern

+CTRL_PAGEUP = Tonhöhe aller Noten der aktuellen Zeile um einen Halbtonschritt erhöhen

+CTRL_PAGEDOWN = Tonhöhe aller Noten der aktuellen Zeile um einen Halbtonschritt verringern

+CTRL_SHIFT_PAGEUP = Tonhöhe aller Noten der aktuellen Zeile um eine Oktave (12 Halbtonschritte) erhöhen

+CTRL_SHIFT_PAGEDOWN = Tonhöhe aller Noten der aktuellen Zeile um eine Oktave (12 Halbtonschritte) verringern

 #-------------------------------------------------------#

 SEC_042 = Tonhöhen singen / Aufnahme

 N = Tonhöhe der markierten Note auf die zuletzt eingesungene Höhe setzen.

@@ -1513,4 +1517,4 @@ PAGEUP = MP3-Lautstärke erhöhen
 PAGEDOWN = MP3-Lautstärke reduzieren

 #-------------------------------------------------------#

 # ID_034: ScreenSongMenu Medley #

-#-------------------------------------------------------#

+#-------------------------------------------------------#
\ No newline at end of file
diff --git a/Game/Output/Languages/Languages.xls b/Game/Output/Languages/Languages.xls
index 375d721e..e08a035e 100644
--- a/Game/Output/Languages/Languages.xls
+++ b/Game/Output/Languages/Languages.xls
diff --git a/Game/Output/Languages/Magyar.ini b/Game/Output/Languages/Magyar.ini
index 7d110076..b2d10b09 100644
--- a/Game/Output/Languages/Magyar.ini
+++ b/Game/Output/Languages/Magyar.ini
@@ -79,16 +79,12 @@ PARTY_WIN_WHEREAMI = A parti győztese
 PLAYLIST_CATTEXT = Lista: %s

 PLUGIN_ATLEAST3500_DESC = 3500 pontot kell elérni

 PLUGIN_ATLEAST3500_NAME = 3500-tól

-PLUGIN_ATLEAST4500_DESC = 4500 pontot kell elérni

-PLUGIN_ATLEAST4500_NAME = 4500-tól

 PLUGIN_ATLEAST5000_DESC = 5000 pontot kell elérni

 PLUGIN_ATLEAST5000_NAME = 5000-től

 PLUGIN_ATLEAST7500_DESC = 7500 pontot kell elérni

 PLUGIN_ATLEAST7500_NAME = 7500-tól

 PLUGIN_BLIND_DESC = Dal a hangok mutatása nélkül

 PLUGIN_BLIND_NAME = Vakon

-PLUGIN_BLINDBIS5000_DESC = Dal a hangok mutatása nélkül 5000-ig

-PLUGIN_BLINDBIS5000_NAME = Vakon 5000-ig

 PLUGIN_BLIND_NOSCORE_DESC = Dal a hangok és pontszám mutatása nélkül

 PLUGIN_BLIND_NOSCORE_NAME = Vakon, pont nélkül

 PLUGIN_BLIND_NOSCORE2_DESC = Dal a hangok, a pontszám és a bónusz nélkül.

@@ -105,12 +101,11 @@ PLUGIN_HAUDENLUKAS_DESC = Töltsd meg a hangládát minél többször!
 PLUGIN_HAUDENLUKAS_NAME = Feltöltés

 PLUGIN_HDL_DESC = Maradj a piros jel felett, különben kiesel!

 PLUGIN_HDL_NAME = Sávtartó

-PLUGIN_IDONTSEEMYSCORE_DESC = Verseny, a pontszámokat nem mutatjuk.

-PLUGIN_IDONTSEEMYSCORE_NAME = Pont nélkül

 PLUGIN_JOKER_DESC = 4 vagy több jokerrel 5%-kal több pont jár.

 PLUGIN_JOKER_NAME = Jokeres

 PLUGIN_LINE-BONUS_DESC = Pont csak a hibátlan sorért jár

 PLUGIN_LINE-BONUS_NAME = Sorbónusz

+PLUGIN_LOCURA3000_DESC = 

 PLUGIN_MEDLEY_DESC = 5 dalrészlet

 PLUGIN_MEDLEY_NAME = Válogatás

 PLUGIN_MEDLEYBLIND_DESC = 5 dalrészlet, vakon

@@ -146,20 +141,12 @@ PLUGIN_RANDPOINTS_DESC = A pontszámok néha felcserélődnek
 PLUGIN_RANDPOINTS_NAME = Véletlen

 PLUGIN_REGULA_DESC = Az utolsó helyen álló 10 %-kal több pontot kap.

 PLUGIN_REGULA_NAME = Szolidaritás

-PLUGIN_SPEED_DESC = 1 pont jár minden ezres határ elérésekor

-PLUGIN_SPEED_NAME = Határvadászat

 PLUGIN_TEAMDUELL_DESC = Az egész csapat énekel

 PLUGIN_TEAMDUELL_NAME = Körbejár a mikrofon

 PLUGIN_UNTIL5000_DESC = Az nyer, aki először eléri az 5000 pontot.

 PLUGIN_UNTIL5000_NAME = 5000-ig

-PLUGIN_UNTIL5000BLIND_DESC = Vak játék: az nyer, aki először eléri az 5000 pontot.

-PLUGIN_UNTIL5000BLIND_NAME = 5000-ig vakon

-PLUGIN_UNTIL5000BLINDSCORE_DESC = Pont nélkül: az nyer, aki először eléri az 5000 pontot.

-PLUGIN_UNTIL5000BLINDSCORE_NAME = 5000-ig pont nélk.

 PLUGIN_ZIEL_DESC = 1 pont jár minden ezres elérésekor

 PLUGIN_ZIEL_NAME = 1000 pontos határ

-PLUGIN_CANTHEARMUSIC_NAME=Zene nélkül

-PLUGIN_CANTHEARMUSIC_DESC=Néhányszor eltűnik a zene - csak a hangotok marad.

 POPUP_AWESOME = Hihetetlen!

 POPUP_AWFUL = Szörnyű!

 POPUP_BAD = Rossz!

@@ -505,8 +492,21 @@ KPPLUS = Minden hang növelése 1 félhanggal
 KPMINUS = Minden hang csökkentése 1 félhanggal

 SHIFT_KPPLUS = Minden hang emelése 12 félhanggal (1 oktávval)

 SHIFT_KPMINUS = Minden hang csökkentése 12 félhanggal (1 oktávval)

-#-------------------------------------------------------#

-SEC_042 = Hang helyzete

+CTRL_ALT_PAGEUP = Minden hang növelése 1 félhanggal

+CTRL_ALT_PAGEDOWN = Minden hang csökkentése 1 félhanggal

+CTRL_SHIFT_ALT_PAGEUP = Minden hang emelése 12 félhanggal (1 oktávval)

+CTRL_SHIFT_ALT_PAGEDOWN = Minden hang csökkentése 12 félhanggal (1 oktávval)

+CTRL_PAGEUP = Increase all notes of actual line by 1 semitone

+CTRL_PAGEDOWN = Decrease all notes of actual line by 1 semitone

+CTRL_SHIFT_PAGEUP = Increase all notes of actual line by 12 semitones (1 octave)

+CTRL_SHIFT_PAGEDOWN = Decrease all notes of actual line by 12 semitones (1 octave)

+#-------------------------------------------------------#

+SEC_042 = Voice Pitch Recording

+N = Set note pitch of current note to the last detected voice pitch.

+SHIFT_N = Record voice pitch for actual line.

+ALT_N = Start voice pitch recording from current position.

+#-------------------------------------------------------#

+SEC_043 = Hang helyzete

 SHIFT_DELETE = Sor törlése

 CTRL_DELETE = Hang törlése

 CTRL_SLASH = Hangok osztása kettővel