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;