xml->lua for files that use %

2007-02-10 22:28:07 +00:00
parent 070779520f
commit b9acd66239
1 changed files with 23 additions and 0 deletions
@@ -0,0 +1,23 @@
+local children = {
+	Def.BitmapText {
+		Font="Common normal";
+		Text=ProductVersion();
+		OnCommand=cmd(x,SCREEN_RIGHT-20;y,SCREEN_TOP+20;horizalign,right;diffuse,0.6,0.6,0.6,1;zoom,0.5;shadowlength,2);
+	};
+	Def.BitmapText {
+		Font="Common normal";
+		Text="";
+		OnCommand=cmd(x,SCREEN_LEFT+20;y,SCREEN_TOP+20;horizalign,left;diffuse,0.6,0.6,0.6,1;zoom,0.5;shadowlength,2;playcommand,"Set");
+		SetCommand=function(self)
+			local fmt = THEME:GetString( "ScreenTitleMenu", "%d songs in %d groups, %d courses in %d groups" )
+			local text = string.format( fmt, SONGMAN:GetNumSongs(), SONGMAN:GetNumSongGroups(), SONGMAN:GetNumCourses(), SONGMAN:GetNumCourseGroups() )
+
+			if PREFSMAN:GetPreference("UseUnlockSystem") then
+				text = text .. string.format(", %d unlocks", UNLOCKMAN:GetNumUnlocks() )
+			end
+			self:settext( text )
+		end;
+	};
+}
+
+return Def.ActorFrame { children = children };