local t = Def.ActorFrame {
	FOV=90;
	InitCommand=cmd(runcommandsonleaves,cmd(ztest,true));
};

t[#t+1] = LoadActor("frame") .. {
	InitCommand=cmd(diffusealpha,0.8);
};


t[#t+1] = Def.TextBanner {
	InitCommand=cmd(x,-230;Load,"TextBannerHighScores");
	SetCommand=function(self, params)
		if params.Song then
			self:SetFromSong( params.Song );
			self:diffuse( SONGMAN:GetSongColor(params.Song) );
		else
			self:SetFromString( params.Course:GetTitle() );
			self:diffuse( SONGMAN:GetCourseColor(params.Course) );
		end
	end;
};

local NumColumns = THEME:GetMetric(Var "LoadingScreen", "NumColumns");

local c;
local Scores = Def.ActorFrame {
	InitCommand = function(self)
		c = self:GetChildren();
	end;
};
t[#t+1] = Scores;

for idx=1,NumColumns do
	local x_pos = 35 + 83 * (idx-1);
	Scores[#Scores+1] = LoadFont(Var "LoadingScreen","Name") .. {
		Name = idx .. "Name";
		InitCommand=cmd(x,x_pos;y,8;shadowlength,1;maxwidth,68);
		OnCommand=cmd(zoom,0.75);
	};
	Scores[#Scores+1] = LoadFont(Var "LoadingScreen","Score") .. {
		Name = idx .. "Score";
		InitCommand=cmd(x,x_pos;y,-9;shadowlength,1;maxwidth,68);
		OnCommand=cmd(zoom,0.75);
	};
	Scores[#Scores+1] = LoadActor("empty") .. {
		Name = idx .. "Empty";
		InitCommand=cmd(x,x_pos);
		OnCommand=cmd(zoom,0.75);
	};
	
end

local sNoScoreName = THEME:GetMetric("Common", "NoScoreName");

Scores.SetCommand=function(self, params)
	local pProfile = PROFILEMAN:GetMachineProfile();

	for name, child in pairs(c) do
		child:visible(false);
	end
	for idx=1,NumColumns do
		c[idx .. "Empty"]:visible(true);
	end

	local Current = params.Song or params.Course;
	if Current then
		for idx, CurrentItem in pairs(params.Entries) do
			if CurrentItem then
				local hsl = pProfile:GetHighScoreList(Current, CurrentItem);
				local hs = hsl and hsl:GetHighScores();

				local name = c[idx .. "Name"];
				local score = c[idx .. "Score"];
				local empty = c[idx .. "Empty"];
				
				name:visible( true );
				score:visible( true );
				empty:visible( false );
				
				if hs and #hs > 0 then
					name:settext( hs[1]:GetName() );
					score:settext( FormatPercentScore( hs[1]:GetPercentDP() ) );
				else
					name:settext( sNoScoreName );
					score:settext( FormatPercentScore( 0 ) );
				end
			end
		end;
	end
end;

return t;