aboutsummaryrefslogtreecommitdiffstats
path: root/src/base/UMain.pas
diff options
context:
space:
mode:
Diffstat (limited to 'src/base/UMain.pas')
-rw-r--r--src/base/UMain.pas37
1 files changed, 19 insertions, 18 deletions
diff --git a/src/base/UMain.pas b/src/base/UMain.pas
index 95e696fa..66a0823b 100644
--- a/src/base/UMain.pas
+++ b/src/base/UMain.pas
@@ -61,16 +61,16 @@ type
PPLayer = ^TPlayer;
TPlayer = record
- Name: string;
+ Name: string;
// Index in Teaminfo record
- TeamID: byte;
- PlayerID: byte;
+ TeamID: byte;
+ PlayerID: byte;
// Scores
- Score: real;
- ScoreLine: real;
- ScoreGolden: real;
+ Score: real;
+ ScoreLine: real;
+ ScoreGolden: real;
ScoreInt: integer;
ScoreLineInt: integer;
@@ -78,14 +78,14 @@ type
ScoreTotalInt: integer;
// LineBonus
- ScoreLast: real; //Last Line Score
+ ScoreLast: real; // Last Line Score
// PerfectLineTwinkle (effect)
LastSentencePerfect: boolean;
- HighNote: integer; // index of last note (= High(Note)?)
- LengthNote: integer; // number of notes (= Length(Note)?).
- Note: array of TPlayerNote;
+ HighNote: integer; // index of last note (= High(Note)?)
+ LengthNote: integer; // number of notes (= Length(Note)?).
+ Note: array of TPlayerNote;
end;
var
@@ -105,10 +105,10 @@ var
ResourcesPath: string;
PlayListPath: string;
- Done: boolean;
+ Done: boolean;
// FIXME: ConversionFileName should not be global
ConversionFileName: string;
- Restart: boolean;
+ Restart: boolean;
// player and music info
Player: array of TPlayer;
@@ -833,7 +833,8 @@ begin
// TODO: add duet mode support
// use Lines[LineSetIndex] with LineSetIndex depending on the current player
- // count min and max sentence range for checking (detection is delayed to the notes we see on the screen)
+ // count min and max sentence range for checking
+ // (detection is delayed to the notes we see on the screen)
SentenceMin := Lines[0].Current-1;
if (SentenceMin < 0) then
SentenceMin := 0;
@@ -851,8 +852,8 @@ begin
// check if line is active
if ((CurrentLineFragment.Start <= LyricsState.CurrentBeatD) and
(CurrentLineFragment.Start + CurrentLineFragment.Length-1 >= LyricsState.CurrentBeatD)) and
- (CurrentLineFragment.NoteType <> ntFreestyle) and // but ignore FreeStyle notes
- (CurrentLineFragment.Length > 0) then // and make sure the note lengths is at least 1
+ (CurrentLineFragment.NoteType <> ntFreestyle) and // but ignore FreeStyle notes
+ (CurrentLineFragment.Length > 0) then // and make sure the note length is at least 1
begin
SentenceDetected := SentenceIndex;
NoteAvailable := true;
@@ -935,7 +936,7 @@ begin
// FIXME: is this correct? Why do we add the points for a whole line
// if just one note is correct?
case CurrentLineFragment.NoteType of
- ntNormal: CurrentPlayer.Score := CurrentPlayer.Score + MaxLinePoints;
+ ntNormal: CurrentPlayer.Score := CurrentPlayer.Score + MaxLinePoints;
ntGolden: CurrentPlayer.ScoreGolden := CurrentPlayer.ScoreGolden + MaxLinePoints;
end;
@@ -956,7 +957,7 @@ begin
// we will add a new note
NewNote := true;
- // if previous note (if any) was the same, extend prrevious note
+ // if previous note (if any) was the same, extend previous note
if ((CurrentPlayer.LengthNote > 0) and
(LastPlayerNote <> nil) and
(LastPlayerNote.Tone = CurrentSound.Tone) and
@@ -998,7 +999,7 @@ begin
Inc(LastPlayerNote.Length);
end;
- // check for perfect note and then lit the star (on Draw)
+ // check for perfect note and then light the star (on Draw)
for LineFragmentIndex := 0 to Line.HighNote do
begin
CurrentLineFragment := @Line.Note[LineFragmentIndex];