aboutsummaryrefslogtreecommitdiffstats
path: root/Game/Code/Classes
diff options
context:
space:
mode:
Diffstat (limited to 'Game/Code/Classes')
-rw-r--r--Game/Code/Classes/UPlaylist.pas7
-rw-r--r--Game/Code/Classes/USong.pas2
2 files changed, 7 insertions, 2 deletions
diff --git a/Game/Code/Classes/UPlaylist.pas b/Game/Code/Classes/UPlaylist.pas
index 8d981065..2c09c493 100644
--- a/Game/Code/Classes/UPlaylist.pas
+++ b/Game/Code/Classes/UPlaylist.pas
@@ -9,6 +9,9 @@ interface
{$I switches.inc}
+uses
+ USong;
+
type
TPlaylistItem = record
Artist: String;
@@ -33,7 +36,7 @@ type
private
public
- Mode: Byte; //Current Playlist Mode for SongScreen
+ Mode: TSingMode; //Current Playlist Mode for SongScreen
CurPlayList: Cardinal;
CurItem: Cardinal;
@@ -262,7 +265,7 @@ begin
//Set CatSongsMode + Playlist Mode
CatSongs.CatNumShow := -3;
- Mode := 2;
+ Mode := smPlayListRandom;
//Set CurPlaylist
CurPlaylist := Index;
diff --git a/Game/Code/Classes/USong.pas b/Game/Code/Classes/USong.pas
index 6af16a1a..728f5055 100644
--- a/Game/Code/Classes/USong.pas
+++ b/Game/Code/Classes/USong.pas
@@ -33,6 +33,8 @@ uses
type
+ TSingMode = ( smNormal, smPartyMode, smPlaylistRandom );
+
TBPM = record
BPM: real;
StartBeat: real;