Make rsr a little better again

Here come the huge lazy commits.

(Sourced from shakesoda/stepmania.)

Themes/rsr/BGAnimations/ScreenSystemLayer aux/default.lua

@@ -0,0 +1,21 @@
+local bShow = 0;
+local t = Def.ActorFrame {};
+t[#t+1] = Def.ActorFrame {
+	InitCommand=cmd(visible,false);
+	ToggleConsoleDisplayMessageCommand=function(self)
+		bShow = 1 - bShow;
+		self:visible( bShow == 1 );
+	end;
+	-- Grid
+	LoadActor("_8") .. {
+		InitCommand=cmd(x,SCREEN_CENTER_X;y,SCREEN_CENTER_Y;zoomto,SCREEN_WIDTH,SCREEN_HEIGHT;customtexturerect,0,0,SCREEN_WIDTH/8,SCREEN_HEIGHT/8;diffuse,Color.Black;diffusealpha,0.05);
+	};
+	LoadActor("_16") .. {
+		InitCommand=cmd(x,SCREEN_CENTER_X;y,SCREEN_CENTER_Y;zoomto,SCREEN_WIDTH,SCREEN_HEIGHT;customtexturerect,0,0,SCREEN_WIDTH/16,SCREEN_HEIGHT/16;diffuse,Color.Blue;diffusealpha,0.1);
+	};
+	LoadActor("_32") .. {
+		InitCommand=cmd(x,SCREEN_CENTER_X;y,SCREEN_CENTER_Y;zoomto,SCREEN_WIDTH,SCREEN_HEIGHT;customtexturerect,0,0,SCREEN_WIDTH/32,SCREEN_HEIGHT/32;diffuse,Color.White;diffusealpha,0.125);
+	};
+--]]
+};
+return t;

Themes/rsr/BGAnimations/ScreenWithMenuElements background/default.lua

@@ -20,11 +20,22 @@ end --]]
 
 --
 t[#t+1] = Def.ActorFrame {
-	InitCommand=cmd(x,SCREEN_CENTER_X;y,SCREEN_CENTER_Y);
+	Def.Quad {
-	LoadActor("VOL1-29-NTSC") .. {
+		InitCommand=cmd(FullScreen;diffuse,color("#1C1C1C"));
-		InitCommand=cmd(scaletoclipped,SCREEN_WIDTH,SCREEN_HEIGHT);
-		OnCommand=cmd(diffusealpha,0.75);
 	};
+	LoadActor( THEME:GetPathG("_texture","checkerboard") ) .. {
+		InitCommand=cmd(FullScreen;
+						customtexturerect,0,0,SCREEN_WIDTH/64,SCREEN_HEIGHT/64;
+						Center);
+		OnCommand=cmd(texcoordvelocity,0.25,0;diffusealpha,0.025);
+	};
+	Def.Quad {
+		InitCommand=cmd(FullScreen;diffuse,Color.Orange;diffusealpha,0.6);
+		OnCommand=cmd(fadeleft,1;cropleft,0.45;diffuseshift;effectperiod,5;
+					  effectcolor2,Color.Alpha(Color.Orange,0.3);
+					  effectcolor1,Color.Alpha(Color.Orange,0.8)
+		);
+	}
 };
 --
 local bShow = 0;

Themes/rsr/Graphics/ScreenSelectStyle Scroll.lua

@@ -0,0 +1,11 @@
+local gc = Var("GameCommand");
+local t = Def.ActorFrame {};
+t[#t+1] = Def.ActorFrame { 
+	LoadFont("Common Normal") .. {
+		Text=gc:GetName();
+		InitCommand=cmd(shadowlength,1.5);
+	};
+	GainFocusCommand=cmd(visible,true);
+	LoseFocusCommand=cmd(visible,false);
+};
+return t

Themes/rsr/Sounds/ScreenWithMenuElements music.redir

@@ -0,0 +1 @@
+_phantasma

Themes/rsr/Sounds/_phantasma (loop).sm

@@ -0,0 +1,5 @@
+#TITLE:Phantasma Plant;
+#OFFSET:0.000;
+#BPMS:0.000=86.000;
+#STOPS:;
+