diff options
Diffstat (limited to 'medley_new/src/base/UNote.pas')
| -rw-r--r-- | medley_new/src/base/UNote.pas | 19 |
1 files changed, 18 insertions, 1 deletions
diff --git a/medley_new/src/base/UNote.pas b/medley_new/src/base/UNote.pas index ff9c6b57..bc22ac62 100644 --- a/medley_new/src/base/UNote.pas +++ b/medley_new/src/base/UNote.pas @@ -37,7 +37,6 @@ uses SysUtils, Classes, SDL, - UMusic, URecord, UTime, UDisplay, @@ -88,6 +87,21 @@ type Note: array of TPlayerNote; end; + TStats = record + Player: array of TPlayer; + SongArtist: String; + SongTitle: String; + end; + + TMedleyPlaylist = record + Song: array of integer; + NumMedleySongs: integer; + CurrentMedleySong: integer; + ApplausePlayed: boolean; + Stats: array of TStats; + NumPlayer: integer; + end; + {* Player and music info *} var {** @@ -107,6 +121,8 @@ var *} CurrentSong: TSong; + PlaylistMedley: TMedleyPlaylist; // playlist medley + const MAX_SONG_SCORE = 10000; // max. achievable points per song MAX_SONG_LINE_BONUS = 1000; // max. achievable line bonus per song @@ -133,6 +149,7 @@ uses UCovers, UCatCovers, UDataBase, + UMusic, UPlaylist, UParty, UConfig, |