1HEADmaster

1 files changed, 1153 insertions, 0 deletions

diff --git a/common/GameUI/scriptobject.cpp b/common/GameUI/scriptobject.cpp
new file mode 100644
index 0000000..e83f5fd
--- /dev/null
+++ b/common/GameUI/scriptobject.cpp
@@ -0,0 +1,1153 @@
+//========= Copyright Valve Corporation, All rights reserved. ============//
+//
+// Purpose: 
+//
+// $NoKeywords: $
+//
+//===========================================================================//
+// CScriptObject and CDescription class definitions
+// 
+#include "scriptobject.h"
+#include <time.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <vgui_controls/Label.h>
+#include "filesystem.h"
+#include "tier1/convar.h"
+#include "cdll_int.h"
+
+// memdbgon must be the last include file in a .cpp file!!!
+#include "tier0/memdbgon.h"
+
+using namespace vgui;
+static char token[ 1024 ];
+
+extern IVEngineClient *engine;
+
+void StripFloatTrailingZeros(char *str)
+{
+	// scan for a '.'
+	char *period = strchr(str, '.');
+	if (!period)
+		return;
+
+	// start at the end and scan back to the period
+	char *end = 0;
+	for ( end = str + strlen(str) - 1; end > period; --end )
+	{
+		if (*end == '0')
+		{
+			*end = '\0';
+		}
+		else
+		{
+			// we've hit a real value, stop truncating
+			break;
+		}
+	}
+
+	// if we've made it up to the period, kill that to
+	if ( *end == '.' )
+	{
+		*end = '\0';
+	}
+}
+
+/////////////////////
+objtypedesc_t objtypes[] =
+{
+	{ O_BOOL  , "BOOL" }, 
+	{ O_NUMBER, "NUMBER" }, 
+	{ O_LIST  , "LIST" }, 
+	{ O_STRING, "STRING" },
+	{ O_OBSOLETE  , "OBSOLETE" }, 
+	{ O_SLIDER , "SLIDER" }, 
+	{ O_CATEGORY, "CATEGORY" }, 
+};
+
+mpcontrol_t::mpcontrol_t( Panel *parent, char const *panelName )
+: Panel( parent, panelName )
+{
+	type = O_BADTYPE;
+	pControl = NULL;
+	pPrompt = NULL;
+	pScrObj = NULL;
+
+	next = NULL;
+
+	SetPaintBackgroundEnabled( false );
+}
+
+void mpcontrol_t::OnSizeChanged( int wide, int tall )
+{
+	int inset = 4;
+
+	if ( pPrompt )
+	{
+		int w = wide / 2;
+
+		if ( pControl )
+		{
+			pControl->SetBounds( w + 20, inset, w - 20, tall - 2 * inset );
+		}
+		pPrompt->SetBounds( 0, inset, w + 20, tall - 2 * inset  );
+	}
+	else
+	{
+		if ( pControl )
+		{
+			pControl->SetBounds( 0, inset, wide, tall - 2 * inset  );
+		}
+	}
+}
+
+CScriptListItem::CScriptListItem()
+{
+	pNext = NULL;
+	memset( szItemText, 0, 128 ); 
+	memset( szValue, 0, 256 );
+}
+
+CScriptListItem::CScriptListItem( char const *strItem, char const *strValue )
+{
+	pNext = NULL;
+	Q_strncpy( szItemText, strItem, sizeof( szItemText ) );
+	Q_strncpy( szValue   , strValue, sizeof( szValue ) );
+}
+
+CScriptObject::CScriptObject( void )
+{
+	type = O_BOOL;
+	bSetInfo = false;  // Prepend "Setinfo" to keyvalue pair in config?
+	pNext = NULL;
+	pListItems = NULL;
+	tooltip[0] = '\0';
+}
+
+CScriptObject::~CScriptObject()
+{
+	RemoveAndDeleteAllItems();
+}
+
+void CScriptObject::RemoveAndDeleteAllItems( void )
+{
+	CScriptListItem *p, *n;
+
+	p = pListItems;
+	while ( p )
+	{
+		n = p->pNext;
+		delete p;
+		p = n;
+	}
+	pListItems = NULL;
+}
+
+void CScriptObject::SetCurValue( char const *strValue )
+{ 
+	Q_strncpy( curValue, strValue, sizeof( curValue ) );
+
+	fcurValue = (float)atof( curValue ); 
+
+	if ( type == O_NUMBER || type == O_BOOL || type == O_SLIDER )
+	{
+		StripFloatTrailingZeros( curValue );
+	}
+}
+
+void CScriptObject::AddItem( CScriptListItem *pItem )
+{
+	// Link it into the end of the list;
+	CScriptListItem *p;
+	p = pListItems;
+	if ( !p )
+	{
+		pListItems = pItem;
+		pItem->pNext = NULL;
+		return;
+	}
+
+	while ( p )
+	{
+		if ( !p->pNext )
+		{
+			p->pNext = pItem;
+			pItem->pNext = NULL;
+			return;
+		}
+		p = p->pNext;
+	}
+}
+
+/*
+===================
+UTIL_StripInvalidCharacters
+
+Removes any possible formatting codes and double quote characters from the input string
+===================
+*/
+void UTIL_StripInvalidCharacters( char *pszInput, int maxlen )
+{
+	char szOutput[4096];
+	char *pIn, *pOut;
+	
+	pIn = pszInput;
+	pOut = szOutput;
+
+	*pOut = '\0';
+
+	while ( *pIn )
+	{
+		if ( ( *pIn != '"' ) &&
+			 ( *pIn != '%' ) )
+		{
+			*pOut++ = *pIn;
+		}
+		pIn++;
+	}
+
+	*pOut = '\0';
+
+	// Copy back over, in place
+	Q_strncpy( pszInput, szOutput, maxlen );
+}
+
+void FixupString( char *inString, int maxlen )
+{
+	char szBuffer[ 4096 ];
+	Q_strncpy( szBuffer, inString, sizeof( szBuffer ) );
+	UTIL_StripInvalidCharacters( szBuffer, sizeof( szBuffer ) );
+	Q_strncpy( inString, szBuffer, maxlen );
+}
+
+/*
+===================
+CleanFloat
+
+Removes any ".000" from the end of floats
+===================
+*/
+char * CleanFloat( float val )
+{
+	static int curstring  = 0;
+	static char string[2][32];
+	curstring = ( curstring + 1 ) % 2;
+
+	Q_snprintf( string[curstring], sizeof( string[curstring] ), "%f", val );
+
+	char * str = string[curstring];
+
+	char * tmp = str;
+	if ( !str || !*str || !strchr( str, '.' ) )
+		return str;
+
+	while ( *tmp )
+		++tmp;
+	--tmp;
+
+	while ( *tmp == '0' && tmp > str )
+	{
+		*tmp = 0;
+		--tmp;
+	}
+
+	if ( *tmp == '.' )
+	{
+		*tmp = 0;
+	}
+
+	return str;
+}
+
+void CScriptObject::WriteToScriptFile( FileHandle_t fp )
+{
+	if ( type == O_OBSOLETE )
+		return;
+
+	FixupString( cvarname, sizeof( cvarname ) );
+	g_pFullFileSystem->FPrintf( fp, "\t\"%s\"\r\n", cvarname );
+
+	g_pFullFileSystem->FPrintf( fp, "\t{\r\n" );
+
+	CScriptListItem *pItem;
+
+	FixupString( prompt, sizeof( prompt ) );
+	FixupString( tooltip, sizeof( tooltip ) );
+
+	switch ( type )
+	{
+	case O_BOOL:
+		g_pFullFileSystem->FPrintf( fp, "\t\t\"%s\"\r\n", prompt );
+		if ( tooltip && tooltip[0] )
+		{
+			g_pFullFileSystem->FPrintf( fp, "\t\t\"%s\"\r\n", tooltip );
+		}
+		g_pFullFileSystem->FPrintf( fp, "\t\t{ BOOL }\r\n" );
+		g_pFullFileSystem->FPrintf( fp, "\t\t{ \"%i\" }\r\n", (int)fcurValue ? 1 : 0 );
+		break;
+	case O_NUMBER:
+		g_pFullFileSystem->FPrintf( fp, "\t\t\"%s\"\r\n", prompt );
+		if ( tooltip && tooltip[0] )
+		{
+			g_pFullFileSystem->FPrintf( fp, "\t\t\"%s\"\r\n", tooltip );
+		}
+		g_pFullFileSystem->FPrintf( fp, "\t\t{ NUMBER %s %s }\r\n", CleanFloat(fMin), CleanFloat(fMax) );
+		g_pFullFileSystem->FPrintf( fp, "\t\t{ \"%s\" }\r\n", CleanFloat(fcurValue) );
+		break;
+	case O_STRING:
+		g_pFullFileSystem->FPrintf( fp, "\t\t\"%s\"\r\n", prompt );
+		if ( tooltip && tooltip[0] )
+		{
+			g_pFullFileSystem->FPrintf( fp, "\t\t\"%s\"\r\n", tooltip );
+		}
+		g_pFullFileSystem->FPrintf( fp, "\t\t{ STRING }\r\n" );
+		FixupString( curValue, sizeof( curValue ) );
+		g_pFullFileSystem->FPrintf( fp, "\t\t{ \"%s\" }\r\n", curValue );
+		break;
+	case O_LIST:
+		g_pFullFileSystem->FPrintf( fp, "\t\t\"%s\"\r\n", prompt );
+		if ( tooltip && tooltip[0] )
+		{
+			g_pFullFileSystem->FPrintf( fp, "\t\t\"%s\"\r\n", tooltip );
+		}
+		g_pFullFileSystem->FPrintf( fp, "\t\t{\r\n\t\t\tLIST\r\n" );
+		
+		pItem = pListItems;
+		while ( pItem )
+		{
+			UTIL_StripInvalidCharacters( pItem->szItemText, sizeof( pItem->szItemText ) );
+			UTIL_StripInvalidCharacters( pItem->szValue, sizeof( pItem->szValue ) );
+			g_pFullFileSystem->FPrintf( fp, "\t\t\t\"%s\" \"%s\"\r\n",
+				pItem->szItemText, pItem->szValue );
+
+			pItem = pItem->pNext;
+		}
+
+		g_pFullFileSystem->FPrintf( fp, "\t\t}\r\n");
+		g_pFullFileSystem->FPrintf( fp, "\t\t{ \"%s\" }\r\n", CleanFloat(fcurValue) );
+		break;
+	case O_SLIDER:
+		g_pFullFileSystem->FPrintf( fp, "\t\t\"%s\"\r\n", prompt );
+		if ( tooltip && tooltip[0] )
+		{
+			g_pFullFileSystem->FPrintf( fp, "\t\t\"%s\"\r\n", tooltip );
+		}
+		g_pFullFileSystem->FPrintf( fp, "\t\t{ SLIDER %s %s }\r\n", CleanFloat(fMin), CleanFloat(fMax) );
+		g_pFullFileSystem->FPrintf( fp, "\t\t{ \"%s\" }\r\n", CleanFloat(fcurValue) );
+		break;
+	case O_CATEGORY:
+		g_pFullFileSystem->FPrintf( fp, "\t\t\"%s\"\r\n", prompt );
+		if ( tooltip && tooltip[0] )
+		{
+			g_pFullFileSystem->FPrintf( fp, "\t\t\"%s\"\r\n", tooltip );
+		}
+		g_pFullFileSystem->FPrintf( fp, "\t\t{ CATEGORY }\r\n" );
+		break;
+	}
+
+	if ( bSetInfo )
+		g_pFullFileSystem->FPrintf( fp, "\t\tSetInfo\r\n" );
+
+	g_pFullFileSystem->FPrintf( fp, "\t}\r\n\r\n" );
+}
+
+void CScriptObject::WriteToFile( FileHandle_t fp )
+{
+	if ( type == O_OBSOLETE || type == O_CATEGORY )
+		return;
+
+	FixupString( cvarname, sizeof( cvarname ) );
+	g_pFullFileSystem->FPrintf( fp, "\"%s\"\t\t", cvarname );
+
+	CScriptListItem *pItem;
+	float fVal;
+
+	switch ( type )
+	{
+	case O_BOOL:
+		g_pFullFileSystem->FPrintf( fp, "\"%s\"\r\n", fcurValue != 0.0 ? "1" : "0" );
+		break;
+	case O_NUMBER:
+	case O_SLIDER:
+		fVal = fcurValue;
+		if ( fMin != -1.0 )
+			fVal = max( fVal, fMin );
+		if ( fMax != -1.0 )
+			fVal = min( fVal, fMax );
+		g_pFullFileSystem->FPrintf( fp, "\"%f\"\r\n", fVal );
+		break;
+	case O_STRING:
+		FixupString( curValue, sizeof( curValue ) );
+		g_pFullFileSystem->FPrintf( fp, "\"%s\"\r\n", curValue );
+		break;
+	case O_LIST:
+		pItem = pListItems;
+		while ( pItem )
+		{
+			if ( !Q_stricmp( pItem->szValue, curValue ) )
+				break;
+
+			pItem = pItem->pNext;
+		}
+
+		if ( pItem )
+		{
+			UTIL_StripInvalidCharacters( pItem->szValue, sizeof( pItem->szValue ) );
+			g_pFullFileSystem->FPrintf( fp, "\"%s\"\r\n", pItem->szValue );
+		}
+		else  //Couln't find index
+		{
+			g_pFullFileSystem->FPrintf( fp, "\"0\"\r\n" );
+		}
+		break;
+	}
+}
+
+void CScriptObject::WriteToConfig( void )
+{
+	if ( type == O_OBSOLETE || type == O_CATEGORY )
+		return;
+
+	char *pszKey;
+	char szValue[2048];
+
+	pszKey = ( char * )cvarname;
+
+	CScriptListItem *pItem;
+	float fVal;
+
+	switch ( type )
+	{
+	case O_BOOL:
+		Q_snprintf( szValue, sizeof( szValue ), "%s", fcurValue != 0.0 ? "1" : "0" );
+		break;
+	case O_NUMBER:
+	case O_SLIDER:
+		fVal = fcurValue;
+		if ( fMin != -1.0 )
+			fVal = max( fVal, fMin );
+		if ( fMax != -1.0 )
+			fVal = min( fVal, fMax );
+		Q_snprintf( szValue, sizeof( szValue ), "%f", fVal );
+		break;
+	case O_STRING:
+		Q_snprintf( szValue, sizeof( szValue ), "\"%s\"", (char *)curValue );
+		UTIL_StripInvalidCharacters( szValue, sizeof( szValue ) );
+		break;
+	case O_LIST:
+		pItem = pListItems;
+		while ( pItem )
+		{
+			if ( !Q_stricmp( pItem->szValue, curValue ) )
+				break;
+
+			pItem = pItem->pNext;
+		}
+
+		if ( pItem )
+		{
+			Q_snprintf( szValue, sizeof( szValue ), "%s", pItem->szValue );
+			UTIL_StripInvalidCharacters( szValue, sizeof( szValue ) );
+		}
+		else  //Couldn't find index
+		{
+			Q_strncpy( szValue, "0", sizeof( szValue ) );
+		}
+		break;
+	}
+
+	char command[ 256 ];
+	if ( bSetInfo )
+	{
+		Q_snprintf( command, sizeof(command), "setinfo %s \"%s\"\n", pszKey, szValue );
+	}
+	else
+	{
+		Q_snprintf( command, sizeof(command), "%s \"%s\"\n", pszKey, szValue );
+	}
+
+	engine->ClientCmd_Unrestricted( command );
+
+	//	CFG_SetKey( g_szCurrentConfigFile, pszKey, szValue, bSetInfo );
+}
+
+
+objtype_t CScriptObject::GetType( char *pszType )
+{
+	int i;
+	int nTypes;
+
+	nTypes = sizeof( objtypes ) / sizeof( objtypedesc_t);
+
+	for ( i = 0; i < nTypes; i++ )
+	{
+		if ( !stricmp( objtypes[i].szDescription, pszType ) )
+			return objtypes[i].type;
+	}
+
+	return O_BADTYPE;
+}
+
+bool CScriptObject::ReadFromBuffer( const char **pBuffer, bool isNewObject )
+{
+	// Get the first token.
+	// The cvar we are setting
+	*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+	if ( strlen( token ) <= 0 )
+		return false;
+
+	if ( isNewObject )
+	{
+		Q_strncpy( cvarname, token, sizeof( cvarname ) );
+	}
+
+	// Parse the {
+	*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+	if ( strlen( token ) <= 0 )
+		return false;
+
+	if ( strcmp( token, "{" ) )
+	{
+		Msg( "Expecting '{', got '%s'", token );
+		return false;
+	}
+
+	// Parse the Prompt
+	*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+	if ( strlen( token ) <= 0 )
+		return false;
+
+	if ( isNewObject )
+	{
+		Q_strncpy( prompt, token, sizeof( prompt ) );
+	}
+
+	*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+	if ( strlen( token ) <= 0 )
+		return false;
+
+	// If it's not a {, consider it the optional tooltip
+	if ( strcmp( token, "{" ) )
+	{
+		Q_strncpy( tooltip, token, sizeof( tooltip ) );
+
+		// Parse the next {
+		*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+		if ( strlen( token ) <= 0 )
+			return false;
+	}
+
+	if ( strcmp( token, "{" ) )
+	{
+		Msg( "Expecting '{', got '%s'", token );
+		return false;
+	}
+
+	// Now parse the type:
+	*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+	if ( strlen( token ) <= 0 )
+		return false;
+
+	objtype_t newType = GetType( token );
+	if ( isNewObject )
+	{
+		type = newType;
+	}
+	if ( newType == O_BADTYPE )
+	{
+		Msg( "Type '%s' unknown", token );
+		return false;
+	}
+
+	// If it's a category, we're done.
+	if ( newType == O_CATEGORY )
+	{
+		// Parse the }
+		*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+		if ( strlen( token ) <= 0 )
+			return false;
+		if ( strcmp( token, "}" ) )
+		{
+			Msg( "Expecting '{', got '%s'", token );
+			return false;
+		}
+
+		// Parse the final }
+		*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+		if ( strlen( token ) <= 0 )
+			return false;
+		if ( strcmp( token, "}" ) )
+		{
+			Msg( "Expecting '{', got '%s'", token );
+			return false;
+		}
+		return true;
+	}
+
+	switch ( newType )
+	{
+	case O_OBSOLETE:
+	case O_BOOL:
+		// Parse the next {
+		*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+		if ( strlen( token ) <= 0 )
+			return false;
+
+		if ( strcmp( token, "}" ) )
+		{
+			Msg( "Expecting '{', got '%s'", token );
+			return false;
+		}
+		break;
+	case O_NUMBER:
+	case O_SLIDER:
+		// Parse the Min
+		*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+		if ( strlen( token ) <= 0 )
+			return false;
+	
+		if ( isNewObject )
+		{
+			fMin = (float)atof( token );
+		}
+
+		// Parse the Min
+		*pBuffer = engine->ParseFile( *pBuffer, token , sizeof( token ));
+		if ( strlen( token ) <= 0 )
+			return false;
+	
+		if ( isNewObject )
+		{
+			fMax = (float)atof( token );
+		}
+
+		// Parse the next {
+		*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+		if ( strlen( token ) <= 0 )
+			return false;
+
+		if ( strcmp( token, "}" ) )
+		{
+			Msg( "Expecting '{', got '%s'", token );
+			return false;
+		}
+		break;
+	case O_STRING:
+		// Parse the next {
+		*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+		if ( strlen( token ) <= 0 )
+			return false;
+
+		if ( strcmp( token, "}" ) )
+		{
+			Msg( "Expecting '{', got '%s'", token );
+			return false;
+		}
+		break;
+	case O_LIST:
+		// Parse items until we get the }
+		while ( 1 )
+		{
+			// Parse the next {
+			*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+			if ( strlen( token ) <= 0 )
+				return false;
+
+			// Done?
+			if ( !strcmp( token, "}" ) )
+				break;
+
+			//
+			// Add the item to a list somewhere
+			// AddItem( token )
+			char strItem[ 128 ];
+			char strValue[128];
+
+			Q_strncpy( strItem, token, sizeof( strItem ) );
+
+			// Parse the value
+				*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+			if ( strlen( token ) <= 0 )
+				return false;
+
+			Q_strncpy( strValue, token, sizeof( strValue ) );
+
+			if ( isNewObject )
+			{
+				CScriptListItem *pItem;
+				pItem = new CScriptListItem( strItem, strValue );
+
+				AddItem( pItem );
+			}
+		}
+		break;
+	}
+
+	//
+	// Now read in the default value
+
+	// Parse the {
+		*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+	if ( strlen( token ) <= 0 )
+		return false;
+
+	if ( strcmp( token, "{" ) )
+	{
+		Msg( "Expecting '{', got '%s'", token );
+		return false;
+	}
+
+	// Parse the default
+		*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+	//if ( strlen( token ) <= 0 )
+	//	return false;
+
+	// Set the values
+	Q_strncpy( defValue, token, sizeof( defValue ) );
+	fdefValue = (float)atof( token );
+
+	if (type == O_NUMBER || type == O_SLIDER)
+	{
+		StripFloatTrailingZeros( defValue );
+	}
+
+	SetCurValue( defValue );
+
+	// Parse the }
+		*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+	if ( strlen( token ) <= 0 )
+		return false;
+
+	if ( strcmp( token, "}" ) )
+	{
+		Msg( "Expecting '{', got '%s'", token );
+		return false;
+	}
+
+	// Parse the final }
+		*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+	if ( strlen( token ) <= 0 )
+		return false;
+
+	if ( !stricmp( token, "SetInfo" ) )
+	{
+		bSetInfo = true;
+		// Parse the final }
+		*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+		if ( strlen( token ) <= 0 )
+			return false;
+	}
+
+	if ( strcmp( token, "}" ) )
+	{
+		Msg( "Expecting '{', got '%s'", token );
+		return false;
+	}
+	
+	return true;
+}
+
+/////////////////////////
+CDescription::CDescription( void )
+{
+	pObjList = NULL;
+}
+
+CDescription::~CDescription()
+{
+	CScriptObject *p, *n;
+
+	p = pObjList;
+	while ( p )
+	{
+		n = p->pNext;
+		p->pNext = NULL;
+		p->MarkForDeletion();
+		//delete p;
+		p = n;
+	}
+
+	pObjList = NULL;
+	
+	if ( m_pszHintText )
+		free( m_pszHintText );
+	if ( m_pszDescriptionType )
+		free( m_pszDescriptionType );
+}
+
+CScriptObject * CDescription::FindObject( const char *pszObjectName )
+{
+	if ( !pszObjectName )
+		return NULL;
+
+	CScriptObject *p;
+	p = pObjList;
+	while ( p )
+	{
+		if ( !stricmp( pszObjectName, p->cvarname ) )
+			return p;
+		p = p->pNext;
+	}
+	return NULL;
+}
+
+void CDescription::AddObject( CScriptObject *pObj )
+{
+	CScriptObject *p;
+	p = pObjList;
+	if ( !p )
+	{
+		pObjList = pObj;
+		pObj->pNext = NULL;
+		return;
+	}
+
+	while ( p )
+	{
+		if ( !p->pNext )
+		{
+			p->pNext = pObj;
+			pObj->pNext = NULL;
+			return;
+		}
+		p = p->pNext;
+	}
+}
+
+bool CDescription::ReadFromBuffer( const char **pBuffer, bool bAllowNewObject )
+{
+	// Get the first token.
+	*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+	if ( strlen( token ) <= 0 )
+		return false;
+
+	// Read VERSION #
+	if ( stricmp ( token, "VERSION" ) )
+	{
+		Msg( "Expecting 'VERSION', got '%s'", token );
+		return false;
+	}
+
+	// Parse in the version #
+	// Get the first token.
+	*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+	if ( strlen( token ) <= 0 )
+	{
+		Msg( "Expecting version #" );
+		return false;
+	}
+
+	float fVer;
+	fVer = (float)atof( token );
+
+	if ( fVer != SCRIPT_VERSION )
+	{
+		Msg( "Version mismatch, expecting %f, got %f", SCRIPT_VERSION, fVer );
+		return false;
+	}
+
+	// Get the "DESCRIPTION"
+	*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+	if ( strlen( token ) <= 0 )
+		return false;
+
+	// Read DESCRIPTION
+	if ( stricmp ( token, "DESCRIPTION" ) )
+	{
+		Msg( "Expecting 'DESCRIPTION', got '%s'", token );
+		return false;
+	}
+
+	// Parse in the description type
+	*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+	if ( strlen( token ) <= 0 )
+	{
+		Msg( "Expecting '%s'", m_pszDescriptionType );
+		return false;
+	}
+
+	if ( stricmp ( token, m_pszDescriptionType ) )
+	{
+		Msg( "Expecting %s, got %s", m_pszDescriptionType, token );
+		return false;
+	}
+
+	// Parse the {
+	*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+	if ( strlen( token ) <= 0 )
+		return false;
+
+	if ( strcmp( token, "{" ) )
+	{
+		Msg( "Expecting '{', got '%s'", token );
+		return false;
+	}
+
+	const char *pStart;
+	CScriptObject *pObj;
+	// Now read in the objects and link them in
+	while ( 1 )
+	{
+		pStart = *pBuffer;
+
+		// Get the first token.
+		*pBuffer = engine->ParseFile( *pBuffer, token, sizeof( token ) );
+		if ( strlen( token ) <= 0 )
+			return false;
+
+		// Read "cvar name" or  } when done
+		if ( !stricmp ( token, "}" ) )
+			break;
+
+		// Unget the token
+		*pBuffer = pStart;
+
+		// Create a new object
+		bool mustAdd = bAllowNewObject;
+		pObj = FindObject( token );
+		if ( pObj )
+		{
+			pObj->ReadFromBuffer( &pStart, false );
+			mustAdd = false; // already in list
+		}
+		else
+		{
+			pObj = new CScriptObject();
+			if ( !pObj )
+			{
+				Msg( "Couldn't create script object" );
+				return false;
+			}
+
+			if ( !pObj->ReadFromBuffer( &pStart, true ) )
+			{
+				delete pObj;
+				return false;
+			}
+
+			// throw away the object if we're not adding it.
+			if ( !mustAdd )
+			{
+				delete pObj;
+			}
+		}
+
+		*pBuffer = pStart;
+
+		// Add to list
+		// Fixme, move to end of list first
+		if ( mustAdd )
+		{
+			AddObject( pObj );
+		}
+	}
+
+	return true;
+}
+
+bool CDescription::InitFromFile( const char *pszFileName, bool bAllowNewObject /*= true*/ )
+{
+
+	// Load file into memory
+	FileHandle_t file = g_pFullFileSystem->Open( pszFileName, "rb" );
+	if ( !file )
+		return false;
+
+	int len =g_pFullFileSystem->Size( file );
+
+	// read the file
+	byte *buffer = new unsigned char[ len ];
+	Assert( buffer );
+	g_pFullFileSystem->Read( buffer, len, file );
+	g_pFullFileSystem->Close( file );
+
+	const char *pBuffer = (const char*)buffer;
+	
+	ReadFromBuffer( &pBuffer, bAllowNewObject );
+
+	delete[] buffer;
+
+	return true;
+}
+
+void CDescription::WriteToFile( FileHandle_t fp )
+{
+	CScriptObject *pObj;
+
+	WriteFileHeader( fp );
+
+	pObj = pObjList;
+	while ( pObj )
+	{
+		pObj->WriteToFile( fp );
+		pObj = pObj->pNext;
+	}
+}
+
+void CDescription::WriteToConfig( void )
+{
+	CScriptObject *pObj;
+
+	pObj = pObjList;
+	while ( pObj )
+	{
+		pObj->WriteToConfig();
+		pObj = pObj->pNext;
+	}
+}
+
+void CDescription::WriteToScriptFile( FileHandle_t fp )
+{
+	CScriptObject *pObj;
+
+	WriteScriptHeader( fp );
+
+	pObj = pObjList;
+	while ( pObj )
+	{
+		pObj->WriteToScriptFile( fp );
+		pObj = pObj->pNext;
+	}
+
+	g_pFullFileSystem->FPrintf( fp, "}\r\n" );
+}
+
+void CDescription::TransferCurrentValues( const char *pszConfigFile )
+{
+	char szValue[ 1024 ];
+
+	CScriptObject *pObj;
+
+	pObj = pObjList;
+	while ( pObj )
+	{
+
+		/*
+			TODO: if/when prefixed keys are implemented
+		  const char *value;
+		if ( pObj->bSetInfo )
+		{
+			value = engine->LocalPlayerInfo_ValueForKey( pObj->cvarname ); // use LocalPlayerInfo because PlayerInfo strips keys prefixed with "_"
+		}
+		else
+		{
+			value = engine->pfnGetCvarString( pObj->cvarname );
+		}
+		*/
+
+		ConVarRef var( pObj->cvarname, true );
+		if ( !var.IsValid() )
+		{
+			if ( pObj->type != O_CATEGORY )
+			{
+				DevMsg( "Could not find '%s'\n", pObj->cvarname );
+			}
+			pObj = pObj->pNext;
+			continue;
+		}
+		const char *value = var.GetString();
+
+		if ( value && value[ 0 ] )
+		//if ( CFG_GetValue( pszConfigFile, pObj->cvarname, szValue ) )
+		{
+			Q_strncpy( szValue, value, sizeof( szValue ) );
+
+			// Fill in better default value
+			// 
+			Q_strncpy( pObj->curValue,  szValue, sizeof( pObj->curValue ) );
+			pObj->fcurValue = (float)atof( szValue );
+
+			Q_strncpy( pObj->defValue, szValue, sizeof( pObj->defValue ) );
+			pObj->fdefValue = (float)atof( szValue );
+		}
+
+		pObj = pObj->pNext;
+	}
+}
+
+void CDescription::setDescription( const char *pszDesc )
+{ 
+	m_pszDescriptionType = strdup( pszDesc );
+}
+
+void CDescription::setHint( const char *pszHint )
+{ 
+	m_pszHintText = strdup( pszHint );
+}
+
+//-----------------------------------------------------------------------------
+// Purpose: Constructor, load/save client settings object
+//-----------------------------------------------------------------------------
+CInfoDescription::CInfoDescription( void )
+	: CDescription(  )
+{
+	setHint( "// NOTE:  THIS FILE IS AUTOMATICALLY REGENERATED, \r\n\
+//DO NOT EDIT THIS HEADER, YOUR COMMENTS WILL BE LOST IF YOU DO\r\n\
+// User options script\r\n\
+//\r\n\
+// Format:\r\n\
+//  Version [float]\r\n\
+//  Options description followed by \r\n\
+//  Options defaults\r\n\
+//\r\n\
+// Option description syntax:\r\n\
+//\r\n\
+//  \"cvar\" { \"Prompt\" { type [ type info ] } { default } }\r\n\
+//\r\n\
+//  type = \r\n\
+//   BOOL   (a yes/no toggle)\r\n\
+//   STRING\r\n\
+//   NUMBER\r\n\
+//   LIST\r\n\
+//\r\n\
+// type info:\r\n\
+// BOOL                 no type info\r\n\
+// NUMBER       min max range, use -1 -1 for no limits\r\n\
+// STRING       no type info\r\n\
+// LIST         "" delimited list of options value pairs\r\n\
+//\r\n\
+//\r\n\
+// default depends on type\r\n\
+// BOOL is \"0\" or \"1\"\r\n\
+// NUMBER is \"value\"\r\n\
+// STRING is \"value\"\r\n\
+// LIST is \"index\", where index \"0\" is the first element of the list\r\n\r\n\r\n" );
+
+	setDescription( "INFO_OPTIONS" );
+}
+
+//-----------------------------------------------------------------------------
+// Purpose: 
+//-----------------------------------------------------------------------------
+void CInfoDescription::WriteScriptHeader( FileHandle_t fp )
+{
+    char am_pm[] = "AM";
+	tm newtime;
+	VCRHook_LocalTime( &newtime );
+
+	g_pFullFileSystem->FPrintf( fp, (char *)getHint() );
+
+// Write out the comment and Cvar Info:
+	g_pFullFileSystem->FPrintf( fp, "// Half-Life User Info Configuration Layout Script (stores last settings chosen, too)\r\n" );
+	g_pFullFileSystem->FPrintf( fp, "// File generated:  %.19s %s\r\n", asctime( &newtime ), am_pm );
+	g_pFullFileSystem->FPrintf( fp, "//\r\n//\r\n// Cvar\t-\tSetting\r\n\r\n" );
+	g_pFullFileSystem->FPrintf( fp, "VERSION %.1f\r\n\r\n", SCRIPT_VERSION );
+	g_pFullFileSystem->FPrintf( fp, "DESCRIPTION INFO_OPTIONS\r\n{\r\n" );
+}
+
+//-----------------------------------------------------------------------------
+// Purpose: 
+//-----------------------------------------------------------------------------
+void CInfoDescription::WriteFileHeader( FileHandle_t fp )
+{
+    char am_pm[] = "AM";
+	tm newtime;
+	VCRHook_LocalTime( &newtime );
+
+	g_pFullFileSystem->FPrintf( fp, "// Half-Life User Info Configuration Settings\r\n" );
+	g_pFullFileSystem->FPrintf( fp, "// DO NOT EDIT, GENERATED BY HALF-LIFE\r\n" );
+	g_pFullFileSystem->FPrintf( fp, "// File generated:  %.19s %s\r\n", asctime( &newtime ), am_pm );
+	g_pFullFileSystem->FPrintf( fp, "//\r\n//\r\n// Cvar\t-\tSetting\r\n\r\n" );
+}
+
+//-----------------------------------------------------------------------------
\ No newline at end of file