From e41eb2d03db9b2c1914b359a02733cb24e02e671 Mon Sep 17 00:00:00 2001
From: Chris Danford <chrisdanford@users.sourceforge.net>
Date: Mon, 10 Aug 2009 06:38:45 +0000
Subject: [PATCH] uppercase words in StepsType lua string values to match other
 types

---
 stepmania/src/GameConstantsAndTypes.cpp | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/stepmania/src/GameConstantsAndTypes.cpp b/stepmania/src/GameConstantsAndTypes.cpp
index 09aa61ec0d..6c9779dd11 100644
--- a/stepmania/src/GameConstantsAndTypes.cpp
+++ b/stepmania/src/GameConstantsAndTypes.cpp
@@ -46,8 +46,23 @@ LuaXType( RadarCategory );
 RString StepsTypeToString( StepsType st )
 {
 	RString s = GAMEMAN->GetStepsTypeInfo( st ).szName; // "dance-single"
+	
 	/* foo-bar -> Foo_Bar */
 	s.Replace('-','_');
+
+	bool bCapitalizeNextLetter = true;
+	for( int i=0; i<(int)s.length(); i++ )
+	{
+		if( bCapitalizeNextLetter )
+		{
+			s[i] = toupper(s[i]);
+			bCapitalizeNextLetter = false;
+		}
+
+		if( s[i] == '_' )
+			bCapitalizeNextLetter = true;
+	}
+
 	return s;
 }
 namespace StringConversion { template<> RString ToString<StepsType>( const StepsType &value ) { return StepsTypeToString(value); } }