From 1223a8bd5aee17e9a0f1f1a943aa264ddec30977 Mon Sep 17 00:00:00 2001 From: f1fth_freed0m Date: Fri, 7 Mar 2008 04:08:32 +0000 Subject: Translated some Variables Ilosc To Number Pet To Count Tekst To Text NrCzesciP To LineNumber NrCzesci To LineNumber AktSong To CurrentSong AktNuta To CurrentNote Some Translations In ModiSDK on TSentences Maybe Plugin Code Needs to be Updated git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@927 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/USong.pas | 86 ++++++++++++++++++++++----------------------- 1 file changed, 43 insertions(+), 43 deletions(-) (limited to 'Game/Code/Classes/USong.pas') diff --git a/Game/Code/Classes/USong.pas b/Game/Code/Classes/USong.pas index a97ea1c9..1196e995 100644 --- a/Game/Code/Classes/USong.pas +++ b/Game/Code/Classes/USong.pas @@ -50,8 +50,8 @@ type TSong = class FileLineNo : integer; //Line which is readed at Last, for error reporting - procedure ParseNote(NrCzesci: integer; TypeP: char; StartP, DurationP, NoteP: integer; LyricS: string); - procedure NewSentence(NrCzesciP: integer; Param1, Param2: integer); + procedure ParseNote(LineNumber: integer; TypeP: char; StartP, DurationP, NoteP: integer; LyricS: string); + procedure NewSentence(LineNumberP: integer; Param1, Param2: integer); function ReadTXTHeader( const aFileName : WideString ): boolean; public @@ -114,7 +114,7 @@ implementation uses TextGL, UIni, - UMusic, // needed for Lines .. ( whatever that is ) + UMusic, //needed for Lines UMain; //needed for Player constructor TSong.create( const aFileName : WideString ); @@ -160,9 +160,9 @@ function TSong.LoadSong(): boolean; var TempC: char; - Tekst: string; + Text: string; CP: integer; // Current Player (0 or 1) - Pet: integer; + Count: integer; Both: boolean; Param1: integer; Param2: integer; @@ -209,7 +209,7 @@ begin FileLineNo := 0; //Search for Note Begining repeat - ReadLn(SongFile, Tekst); + ReadLn(SongFile, Text); Inc(FileLineNo); if (EoF(SongFile)) then @@ -223,19 +223,19 @@ begin until ((TempC = ':') or (TempC = 'F') or (TempC = '*')); SetLength(Lines, 2); - for Pet := 0 to High(Lines) do begin - SetLength(Lines[Pet].Line, 1); - Lines[Pet].High := 0; - Lines[Pet].Ilosc := 1; - Lines[Pet].Current := 0; - Lines[Pet].Resolution := self.Resolution; - Lines[Pet].NotesGAP := self.NotesGAP; - Lines[Pet].Line[0].IlNut := 0; - Lines[Pet].Line[0].HighNote := -1; + for Count := 0 to High(Lines) do begin + SetLength(Lines[Count].Line, 1); + Lines[Count].High := 0; + Lines[Count].Number := 1; + Lines[Count].Current := 0; + Lines[Count].Resolution := self.Resolution; + Lines[Count].NotesGAP := self.NotesGAP; + Lines[Count].Line[0].IlNut := 0; + Lines[Count].Line[0].HighNote := -1; end; // TempC := ':'; - // TempC := Tekst[1]; // read from backup variable, don't use default ':' value + // TempC := Text[1]; // read from backup variable, don't use default ':' value while (TempC <> 'E') AND (not EOF(SongFile)) do begin @@ -281,8 +281,8 @@ begin Read(SongFile, self.BPM[High(self.BPM)].StartBeat); self.BPM[High(self.BPM)].StartBeat := self.BPM[High(self.BPM)].StartBeat + Rel[0]; - Read(SongFile, Tekst); - self.BPM[High(self.BPM)].BPM := StrToFloat(Tekst); + Read(SongFile, Text); + self.BPM[High(self.BPM)].BPM := StrToFloat(Text); self.BPM[High(self.BPM)].BPM := self.BPM[High(self.BPM)].BPM * Mult * MultBPM; end; @@ -299,14 +299,14 @@ begin end; //Total Notes Patch End end else begin - for Pet := 0 to High(Lines) do begin - Lines[Pet].Line[Lines[Pet].High].BaseNote := Base[Pet]; - Lines[Pet].Line[Lines[Pet].High].LyricWidth := glTextWidth(PChar(Lines[Pet].Line[Lines[Pet].High].Lyric)); + for Count := 0 to High(Lines) do begin + Lines[Count].Line[Lines[Count].High].BaseNote := Base[Count]; + Lines[Count].Line[Lines[Count].High].LyricWidth := glTextWidth(PChar(Lines[Count].Line[Lines[Count].High].Lyric)); //Total Notes Patch - Lines[Pet].Line[Lines[Pet].High].TotalNotes := 0; - for I := low(Lines[Pet].Line[Lines[Pet].High].Note) to high(Lines[Pet].Line[Lines[Pet].High].Note) do + Lines[Count].Line[Lines[Count].High].TotalNotes := 0; + for I := low(Lines[Count].Line[Lines[Count].High].Note) to high(Lines[Count].Line[Lines[Count].High].Note) do begin - Lines[Pet].Line[Lines[Pet].High].TotalNotes := Lines[Pet].Line[Lines[Pet].High].TotalNotes + Lines[Pet].Line[Lines[Pet].High].Note[I].Lenght * Lines[Pet].Line[Lines[Pet].High].Note[I].NoteType; + Lines[Count].Line[Lines[Count].High].TotalNotes := Lines[Count].Line[Lines[Count].High].TotalNotes + Lines[Count].Line[Lines[Count].High].Note[I].Lenght * Lines[Count].Line[Lines[Count].High].Note[I].NoteType; end; //Total Notes Patch End end; @@ -535,7 +535,7 @@ begin end; -procedure TSong.ParseNote(NrCzesci: integer; TypeP: char; StartP, DurationP, NoteP: integer; LyricS: string); +procedure TSong.ParseNote(LineNumber: integer; TypeP: char; StartP, DurationP, NoteP: integer; LyricS: string); var Space: boolean; begin @@ -578,7 +578,7 @@ begin end; end; // case - with Lines[NrCzesci].Line[Lines[NrCzesci].High] do begin + with Lines[LineNumber].Line[Lines[LineNumber].High] do begin SetLength(Note, Length(Note) + 1); IlNut := IlNut + 1; HighNote := HighNote + 1; @@ -587,7 +587,7 @@ begin Note[HighNote].Start := StartP; if IlNut = 1 then begin StartNote := Note[HighNote].Start; - if Lines[NrCzesci].Ilosc = 1 then + if Lines[LineNumber].Number = 1 then Start := -100; // Start := Note[HighNote].Start; end; @@ -602,10 +602,10 @@ begin '*': Note[HighNote].NoteType := 2; end; - Lines[NrCzesci].NoteType := Lines[NrCzesci].NoteType + Note[HighNote].Lenght * Note[HighNote].NoteType; + Lines[LineNumber].NoteType := Lines[LineNumber].NoteType + Note[HighNote].Lenght * Note[HighNote].NoteType; Note[HighNote].Tone := NoteP; - if Note[HighNote].Tone < Base[NrCzesci] then Base[NrCzesci] := Note[HighNote].Tone; + if Note[HighNote].Tone < Base[LineNumber] then Base[LineNumber] := Note[HighNote].Tone; Note[HighNote].ToneGamus := Note[HighNote].ToneGamus mod 12; Note[HighNote].Text := Copy(LyricS, 2, 100); @@ -618,39 +618,39 @@ begin end; // with end; -procedure TSong.NewSentence(NrCzesciP: integer; Param1, Param2: integer); +procedure TSong.NewSentence(LineNumberP: integer; Param1, Param2: integer); var I: Integer; begin // stara czesc //Alter Satz //Update Old Part - Lines[NrCzesciP].Line[Lines[NrCzesciP].High].BaseNote := Base[NrCzesciP]; - Lines[NrCzesciP].Line[Lines[NrCzesciP].High].LyricWidth := glTextWidth(PChar(Lines[NrCzesciP].Line[Lines[NrCzesciP].High].Lyric)); + Lines[LineNumberP].Line[Lines[LineNumberP].High].BaseNote := Base[LineNumberP]; + Lines[LineNumberP].Line[Lines[LineNumberP].High].LyricWidth := glTextWidth(PChar(Lines[LineNumberP].Line[Lines[LineNumberP].High].Lyric)); //Total Notes Patch - Lines[NrCzesciP].Line[Lines[NrCzesciP].High].TotalNotes := 0; - for I := low(Lines[NrCzesciP].Line[Lines[NrCzesciP].High].Note) to high(Lines[NrCzesciP].Line[Lines[NrCzesciP].High].Note) do + Lines[LineNumberP].Line[Lines[LineNumberP].High].TotalNotes := 0; + for I := low(Lines[LineNumberP].Line[Lines[LineNumberP].High].Note) to high(Lines[LineNumberP].Line[Lines[LineNumberP].High].Note) do begin - Lines[NrCzesciP].Line[Lines[NrCzesciP].High].TotalNotes := Lines[NrCzesciP].Line[Lines[NrCzesciP].High].TotalNotes + Lines[NrCzesciP].Line[Lines[NrCzesciP].High].Note[I].Lenght * Lines[NrCzesciP].Line[Lines[NrCzesciP].High].Note[I].NoteType; + Lines[LineNumberP].Line[Lines[LineNumberP].High].TotalNotes := Lines[LineNumberP].Line[Lines[LineNumberP].High].TotalNotes + Lines[LineNumberP].Line[Lines[LineNumberP].High].Note[I].Lenght * Lines[LineNumberP].Line[Lines[LineNumberP].High].Note[I].NoteType; end; //Total Notes Patch End // nowa czesc //Neuer Satz //Update New Part - SetLength(Lines[NrCzesciP].Line, Lines[NrCzesciP].Ilosc + 1); - Lines[NrCzesciP].High := Lines[NrCzesciP].High + 1; - Lines[NrCzesciP].Ilosc := Lines[NrCzesciP].Ilosc + 1; - Lines[NrCzesciP].Line[Lines[NrCzesciP].High].HighNote := -1; + SetLength(Lines[LineNumberP].Line, Lines[LineNumberP].Number + 1); + Lines[LineNumberP].High := Lines[LineNumberP].High + 1; + Lines[LineNumberP].Number := Lines[LineNumberP].Number + 1; + Lines[LineNumberP].Line[Lines[LineNumberP].High].HighNote := -1; if self.Relative then begin - Lines[NrCzesciP].Line[Lines[NrCzesciP].High].Start := Param1; - Rel[NrCzesciP] := Rel[NrCzesciP] + Param2; + Lines[LineNumberP].Line[Lines[LineNumberP].High].Start := Param1; + Rel[LineNumberP] := Rel[LineNumberP] + Param2; end else - Lines[NrCzesciP].Line[Lines[NrCzesciP].High].Start := Param1; + Lines[LineNumberP].Line[Lines[LineNumberP].High].Start := Param1; - Base[NrCzesciP] := 100; // high number + Base[LineNumberP] := 100; // high number end; procedure TSong.clear(); -- cgit v1.2.3