//========= Copyright Valve Corporation, All rights reserved. ============//
//
// Purpose: 
//
//=============================================================================//

#include "cbase.h"
#include "hudelement.h"
#include "hud_numericdisplay.h"
#include <vgui_controls/Panel.h>
#include "hud.h"
#include "hud_suitpower.h"
#include "hud_macros.h"
#include "iclientmode.h"
#include <vgui_controls/AnimationController.h>
#include <vgui/ISurface.h>
#include <vgui/ILocalize.h>
#include "KeyValues.h"
#include "filesystem.h"

// memdbgon must be the last include file in a .cpp file!!!
#include "tier0/memdbgon.h"

struct creditname_t
{
	char szCreditName[256];
	char szFontName[256];
	float flYPos;
	float flXPos;
	bool bActive;
	float flTime;
	float flTimeAdd;
	float flTimeStart;
	int iSlot;

#ifdef MAPBASE
	// New credits stuff
	CCopyableUtlVector<int> cColorOverride;

	// Images
	int iImageID = -1;
	float flImageScale = 1.0f;
#endif
};

#define CREDITS_FILE "scripts/credits.txt"

enum
{
	LOGO_FADEIN = 0,
	LOGO_FADEHOLD,
	LOGO_FADEOUT,
	LOGO_FADEOFF,
};

#define CREDITS_LOGO 1
#define CREDITS_INTRO 2
#define CREDITS_OUTRO 3
#ifdef MAPBASE
#define CREDITS_PRECACHE 4
#endif

bool g_bRollingCredits = false;

int g_iCreditsPixelHeight = 0;

//-----------------------------------------------------------------------------
// Purpose: Shows the flashlight icon
//-----------------------------------------------------------------------------
class CHudCredits : public CHudElement, public vgui::Panel
{
	DECLARE_CLASS_SIMPLE( CHudCredits, vgui::Panel );

public:
	CHudCredits( const char *pElementName );
	virtual void Init( void );
	virtual void LevelShutdown( void );

	int GetStringPixelWidth ( wchar_t *pString, vgui::HFont hFont );

	void MsgFunc_CreditsMsg( bf_read &msg );
	void MsgFunc_LogoTimeMsg( bf_read &msg );

	virtual bool	ShouldDraw( void ) 
	{ 
		g_bRollingCredits = IsActive();

		if ( g_bRollingCredits && m_iCreditsType == CREDITS_INTRO )
			 g_bRollingCredits = false;

		return IsActive(); 
	}

protected:
	virtual void Paint();
	virtual void ApplySchemeSettings( vgui::IScheme *pScheme );

private:

	void	Clear();

	void ReadNames( KeyValues *pKeyValue );
	void ReadParams( KeyValues *pKeyValue );
	void PrepareCredits( const char *pKeyName );
	void DrawOutroCreditsName( void );
	void DrawIntroCreditsName( void );
	void DrawLogo( void );
#ifdef MAPBASE
	void DrawOutroCreditFont( const char *pCreditName, float flYPos, vgui::HFont hTFont, const Color &cColor, int iScreenWidth, int iDivisor = 2 );
	void DrawOutroCreditTexture( int iImageID, float flYPos, float flImageScale, const Color &cColor, int iScreenWidth, int iDivisor = 2 );
#endif

	void PrepareLogo( float flTime );
	void PrepareOutroCredits( void );
	void PrepareIntroCredits( void );

#ifdef MAPBASE
	void PrecacheCredits();
#endif

	float FadeBlend( float fadein, float fadeout, float hold, float localTime );

	void PrepareLine( vgui::HFont hFont, char const *pchLine );

#ifdef MAPBASE
	int GetOrAllocateImageID( const char *szFileName );
#endif

	CPanelAnimationVar( vgui::HFont, m_hTextFont, "TextFont", "Default" );
	CPanelAnimationVar( Color, m_TextColor, "TextColor", "FgColor" );

	CUtlVector<creditname_t> m_CreditsList;

	float m_flScrollTime;
	float m_flSeparation;
#ifdef MAPBASE
	int		m_iEndLines;
	float	m_flEndLinesFadeHoldTime;
	bool	m_bAllowColumns;
	CUtlDict<int, int> m_ImageDict;
#endif
	float m_flFadeTime;
	bool  m_bLastOneInPlace;
	int   m_Alpha;

	int   m_iCreditsType;
	int	  m_iLogoState;

	float m_flFadeInTime;
	float m_flFadeHoldTime;
	float m_flFadeOutTime;
	float m_flNextStartTime;
	float m_flPauseBetweenWaves;

	float m_flLogoTimeMod;
	float m_flLogoTime;
	float m_flLogoDesiredLength;

	float m_flX;
	float m_flY;

	char m_szLogo[256];
	char m_szLogo2[256];

	Color m_cColor;

#ifdef MAPBASE
	char m_szCreditsFile[MAX_PATH];

	char m_szLogoFont[64];
	char m_szLogo2Font[64];
	Color m_cLogoColor;
	Color m_cLogo2Color;
#endif
};	


void CHudCredits::PrepareCredits( const char *pKeyName )
{
	Clear();

	KeyValues *pKV= new KeyValues( "CreditsFile" );
#ifdef MAPBASE
	if ( !pKV->LoadFromFile( filesystem, m_szCreditsFile, "MOD" ) )
#else
	if ( !pKV->LoadFromFile( filesystem, CREDITS_FILE, "MOD" ) )
#endif
	{
		pKV->deleteThis();

		Assert( !"env_credits couldn't be initialized!" );
		return;
	}

	KeyValues *pKVSubkey;
	if ( pKeyName )
	{
		pKVSubkey = pKV->FindKey( pKeyName );
		ReadNames( pKVSubkey );
	}

	pKVSubkey = pKV->FindKey( "CreditsParams" );
	ReadParams( pKVSubkey );

	pKV->deleteThis();
}

using namespace vgui;

DECLARE_HUDELEMENT( CHudCredits );
DECLARE_HUD_MESSAGE( CHudCredits, CreditsMsg );
DECLARE_HUD_MESSAGE( CHudCredits, LogoTimeMsg );

//-----------------------------------------------------------------------------
// Purpose: Constructor
//-----------------------------------------------------------------------------
CHudCredits::CHudCredits( const char *pElementName ) : CHudElement( pElementName ), BaseClass( NULL, "HudCredits" )
{
	vgui::Panel *pParent = g_pClientMode->GetViewport();
	SetParent( pParent );
}

void CHudCredits::LevelShutdown()
{
	Clear();
}

void CHudCredits::Clear( void )
{
	SetActive( false );
	m_CreditsList.RemoveAll();
	m_bLastOneInPlace = false;
	m_Alpha = m_TextColor[3];
	m_iLogoState = LOGO_FADEOFF;

#ifdef MAPBASE
	if ( surface() )
	{
		for (int i = m_ImageDict.Count()-1; i >= 0; i--)
		{
			if (m_ImageDict[i] != -1)
			{
				surface()->DestroyTextureID( m_ImageDict[i] );
				m_ImageDict.RemoveAt( i );
			}
		}
	}
#endif
}

//-----------------------------------------------------------------------------
// Purpose: 
//-----------------------------------------------------------------------------
void CHudCredits::Init()
{
	HOOK_HUD_MESSAGE( CHudCredits, CreditsMsg );
	HOOK_HUD_MESSAGE( CHudCredits, LogoTimeMsg );
	SetActive( false );
}

void CHudCredits::ReadNames( KeyValues *pKeyValue )
{
	if ( pKeyValue == NULL )
	{
		Assert( !"CHudCredits couldn't be initialized!" );
		return;
	}

	// Now try and parse out each act busy anim
	KeyValues *pKVNames = pKeyValue->GetFirstSubKey();
	
	while ( pKVNames )
	{
		creditname_t Credits;
		V_strcpy_safe( Credits.szCreditName, pKVNames->GetName() );
#ifdef MAPBASE
		V_strcpy_safe( Credits.szFontName, pKVNames->GetString( (const char *)NULL, "Default" ) );
#else
		V_strcpy_safe( Credits.szFontName, pKeyValue->GetString( Credits.szCreditName, "Default" ) );
#endif

		m_CreditsList.AddToTail( Credits );
		pKVNames = pKVNames->GetNextKey();
	}
}

void CHudCredits::ReadParams( KeyValues *pKeyValue )
{
	if ( pKeyValue == NULL )
	{
		Assert( !"CHudCredits couldn't be initialized!" );
		return;
	}

	m_flScrollTime = pKeyValue->GetFloat( "scrolltime", 57 );
	m_flSeparation = pKeyValue->GetFloat( "separation", 5 );
#ifdef MAPBASE
	m_iEndLines = pKeyValue->GetInt( "endlines", 1 );
	m_flEndLinesFadeHoldTime = pKeyValue->GetFloat( "endlines_fadeholdtime", ( IsConsole() ? 2.0f : 10.0f ) ); // "360 certification requires that we not hold a static image too long."
	m_bAllowColumns = pKeyValue->GetBool( "allow_columns", false );
#endif

	m_flFadeInTime = pKeyValue->GetFloat( "fadeintime", 1 );
	m_flFadeHoldTime = pKeyValue->GetFloat( "fadeholdtime", 3 );
	m_flFadeOutTime = pKeyValue->GetFloat( "fadeouttime", 2 );
	m_flNextStartTime = pKeyValue->GetFloat( "nextfadetime", 2 );
	m_flPauseBetweenWaves = pKeyValue->GetFloat( "pausebetweenwaves", 2 );

	m_flLogoTimeMod = pKeyValue->GetFloat( "logotime", 2 );

	m_flX = pKeyValue->GetFloat( "posx", 2 );
	m_flY = pKeyValue->GetFloat( "posy", 2 );

	m_cColor = pKeyValue->GetColor( "color" );

	Q_strncpy( m_szLogo, pKeyValue->GetString( "logo", "HALF-LIFE'" ), sizeof( m_szLogo ) );
	Q_strncpy( m_szLogo2, pKeyValue->GetString( "logo2", "" ), sizeof( m_szLogo2 ) );

#ifdef MAPBASE
	Q_strncpy( m_szLogoFont, pKeyValue->GetString( "logofont", "" ), sizeof( m_szLogoFont ) );
	Q_strncpy( m_szLogo2Font, pKeyValue->GetString( "logo2font", "" ), sizeof( m_szLogo2Font ) );

	m_cLogoColor = pKeyValue->GetColor( "logocolor" );
	m_cLogo2Color = pKeyValue->GetColor( "logo2color" );
#endif
}

int CHudCredits::GetStringPixelWidth( wchar_t *pString, vgui::HFont hFont )
{
	int iLength = 0;

	for ( wchar_t *wch = pString; *wch != 0; wch++ )
	{
		iLength += surface()->GetCharacterWidth( hFont, *wch );
	}

	return iLength;
}

void CHudCredits::DrawOutroCreditsName( void )
{
	if ( m_CreditsList.Count() == 0 )
		 return;

	// fill the screen
	int iWidth, iTall;
	GetHudSize(iWidth, iTall);
	SetSize( iWidth, iTall );

	for ( int i = 0; i < m_CreditsList.Count(); i++ )
	{
		creditname_t *pCredit = &m_CreditsList[i];

		if ( pCredit == NULL )
			 continue;

#ifdef MAPBASE
		vgui::HScheme scheme = GetScheme();
#else
		vgui::HScheme scheme = vgui::scheme()->GetScheme( "ClientScheme" );
#endif
		vgui::HFont m_hTFont = INVALID_FONT;

		int iFontTall = 1;

#ifdef MAPBASE
		if (pCredit->iImageID != -1)
		{
			// Get the size of the tallest image if there's multiple
			int iFontWide;
			if (m_bAllowColumns && V_strstr( pCredit->szCreditName, "\t" ))
			{
				CUtlStringList outStrings;
				V_SplitString( pCredit->szCreditName, "\t", outStrings );
				FOR_EACH_VEC( outStrings, i )
				{
					int iTempTall;
					surface()->DrawGetTextureSize( GetOrAllocateImageID( outStrings[i] ), iFontWide, iTempTall );
					if (iTempTall > iFontTall)
						iFontTall = iTempTall;
				}
				outStrings.PurgeAndDeleteElements();
			}
			else
			{
				surface()->DrawGetTextureSize( GetOrAllocateImageID( pCredit->szCreditName ), iFontWide, iFontTall );
			}

			iFontTall = ((float)iFontTall * pCredit->flImageScale);
		}
		else
#endif
		{
			m_hTFont = vgui::scheme()->GetIScheme( scheme )->GetFont( pCredit->szFontName, true );
			iFontTall = surface()->GetFontTall( m_hTFont );
		}

		if ( pCredit->flYPos < -iFontTall ||  pCredit->flYPos > iTall )
		{
			pCredit->bActive = false;
		}
		else
		{
			pCredit->bActive = true;
		}

		Color cColor = m_TextColor;

#ifdef MAPBASE
		if (pCredit->cColorOverride.Count() > 0)
			cColor.SetRawColor( pCredit->cColorOverride[0] );

		// Some lines should stick around and fade out
		if ( i >= m_CreditsList.Count()-m_iEndLines )
#else
		//HACKHACK
		//Last one stays on screen and fades out
		if ( i == m_CreditsList.Count()-1 )
#endif
		{
			if ( m_bLastOneInPlace == false )
			{
				pCredit->flYPos -= gpGlobals->frametime * ( (float)g_iCreditsPixelHeight / m_flScrollTime );
		
				if ( (int)pCredit->flYPos + ( iFontTall / 2 ) <= iTall / 2 )
				{
					m_bLastOneInPlace = true;
					
#ifdef MAPBASE
					m_flFadeTime = gpGlobals->curtime + m_flEndLinesFadeHoldTime;
#else
					// 360 certification requires that we not hold a static image too long.
					m_flFadeTime = gpGlobals->curtime + ( IsConsole() ? 2.0f : 10.0f );
#endif
				}
			}
			else
			{
				if ( m_flFadeTime <= gpGlobals->curtime )
				{
					if ( m_Alpha > 0 )
					{
						m_Alpha -= gpGlobals->frametime * ( m_flScrollTime * 2 );

						if ( m_Alpha <= 0 )
						{
							pCredit->bActive = false;
							engine->ClientCmd( "creditsdone" );
						}
					}
				}

				cColor[3] = MAX( 0, m_Alpha );
			}
		}
		else
		{
			pCredit->flYPos -= gpGlobals->frametime * ( (float)g_iCreditsPixelHeight / m_flScrollTime );
		}
		
		if ( pCredit->bActive == false )
			 continue;
			
#ifdef MAPBASE
		// Credits separated by tabs should appear divided
		if (m_bAllowColumns && V_strstr( pCredit->szCreditName, "\t" ))
		{
			CUtlStringList outStrings;
			V_SplitString( pCredit->szCreditName, "\t", outStrings );
			int iDivisor = 1 + outStrings.Count();
			if (pCredit->iImageID != -1)
			{
				FOR_EACH_VEC( outStrings, i )
				{
					if (i < pCredit->cColorOverride.Count())
					{
						// Change color to this particular column's color
						cColor.SetRawColor( pCredit->cColorOverride[i] );
					}

					int iImageID = GetOrAllocateImageID( outStrings[i] );

					// Center the image if needed
					int iImageWide, iImageTall = 1;
					surface()->DrawGetTextureSize( iImageID, iImageWide, iImageTall );
					if (iImageTall < iFontTall)
					{
						DrawOutroCreditTexture( iImageID, pCredit->flYPos + ((iFontTall * 0.5f) - (iImageTall * 0.5f)), pCredit->flImageScale, cColor, iWidth*(i + 1), iDivisor );
					}
					else
					{
						DrawOutroCreditTexture( iImageID, pCredit->flYPos, pCredit->flImageScale, cColor, iWidth*(i + 1), iDivisor );
					}
				}
			}
			else
			{
				FOR_EACH_VEC( outStrings, i )
				{
					if (i < pCredit->cColorOverride.Count())
					{
						// Change color to this particular column's color
						cColor.SetRawColor( pCredit->cColorOverride[i] );
					}

					DrawOutroCreditFont( outStrings[i], pCredit->flYPos, m_hTFont, cColor, iWidth*(i + 1), iDivisor );
				}
			}
			outStrings.PurgeAndDeleteElements();
		}
		else if (pCredit->iImageID != -1)
		{
			DrawOutroCreditTexture( pCredit->iImageID, pCredit->flYPos, pCredit->flImageScale, cColor, iWidth, 2 );
		}
		else
		{
			DrawOutroCreditFont( pCredit->szCreditName, pCredit->flYPos, m_hTFont, cColor, iWidth, 2 );
		}
#else
		surface()->DrawSetTextFont( m_hTFont );
		surface()->DrawSetTextColor( cColor[0], cColor[1], cColor[2], cColor[3]  );
		
		wchar_t unicode[256];
		
		if ( pCredit->szCreditName[0] == '#' )
		{
			g_pVGuiLocalize->ConstructString( unicode, sizeof(unicode), g_pVGuiLocalize->Find(pCredit->szCreditName), 0 );
		}
		else
		{
			g_pVGuiLocalize->ConvertANSIToUnicode( pCredit->szCreditName, unicode, sizeof( unicode ) );
		}

		int iStringWidth = GetStringPixelWidth( unicode, m_hTFont ); 

		surface()->DrawSetTextPos( ( iWidth / 2 ) - ( iStringWidth / 2 ), pCredit->flYPos );
		surface()->DrawUnicodeString( unicode );
#endif
	}
}

#ifdef MAPBASE
void CHudCredits::DrawOutroCreditFont( const char *pCreditName, float flYPos, vgui::HFont hTFont, const Color &cColor, int iScreenWidth, int iDivisor )
{
	surface()->DrawSetTextFont( hTFont );
	surface()->DrawSetTextColor( cColor[0], cColor[1], cColor[2], cColor[3]  );
	
	wchar_t unicode[256];
	
	if ( pCreditName[0] == '#' )
	{
		g_pVGuiLocalize->ConstructString( unicode, sizeof(unicode), g_pVGuiLocalize->Find(pCreditName), 0 );
	}
	else
	{
		g_pVGuiLocalize->ConvertANSIToUnicode( pCreditName, unicode, sizeof( unicode ) );
	}

	int iStringWidth = GetStringPixelWidth( unicode, hTFont );

	// ((iScreenWidth*iMultiplier) / iDivisor)
	// When needed, just multiply iScreenWidth before sending to the function
	surface()->DrawSetTextPos( (iScreenWidth / iDivisor) - (iStringWidth / 2), flYPos );
	surface()->DrawUnicodeString( unicode );
}

void CHudCredits::DrawOutroCreditTexture( int iImageID, float flYPos, float flImageScale, const Color &cColor, int iScreenWidth, int iDivisor )
{
	int iImageWide, iImageTall;
	surface()->DrawGetTextureSize( iImageID, iImageWide, iImageTall );

	// Scale for resolution
	flImageScale *= ((float)GetTall() / 900.0f);

	iImageWide = ((float)(iImageWide) * flImageScale);
	iImageTall = ((float)(iImageTall) * flImageScale);

	iImageWide /= 2;
	//iImageTall /= 2;
	iScreenWidth /= iDivisor;

	surface()->DrawSetColor( cColor );
	surface()->DrawSetTexture( iImageID );
	surface()->DrawTexturedRect( iScreenWidth - iImageWide, flYPos, iScreenWidth + iImageWide, flYPos + iImageTall );
}
#endif

void CHudCredits::DrawLogo( void )
{
	if( m_iLogoState == LOGO_FADEOFF )
	{
		SetActive( false );
		return;
	}

	switch( m_iLogoState )
	{
		case LOGO_FADEIN:
		{
			float flDeltaTime = ( m_flFadeTime - gpGlobals->curtime );

			m_Alpha = MAX( 0, RemapValClamped( flDeltaTime, 5.0f, 0, -128, 255 ) );

			if ( flDeltaTime <= 0.0f )
			{
				m_iLogoState = LOGO_FADEHOLD;
				m_flFadeTime = gpGlobals->curtime + m_flLogoDesiredLength;
			}

			break;
		}

		case LOGO_FADEHOLD:
		{
			if ( m_flFadeTime <= gpGlobals->curtime )
			{
				m_iLogoState = LOGO_FADEOUT;
				m_flFadeTime = gpGlobals->curtime + 2.0f;
			}
			break;
		}

		case LOGO_FADEOUT:
		{
			float flDeltaTime = ( m_flFadeTime - gpGlobals->curtime );

			m_Alpha = RemapValClamped( flDeltaTime, 0.0f, 2.0f, 0, 255 );

			if ( flDeltaTime <= 0.0f )
			{
				m_iLogoState = LOGO_FADEOFF;
				SetActive( false );
			}

			break;
		}
	}

	// fill the screen
	int iWidth, iTall;
	GetHudSize(iWidth, iTall);
	SetSize( iWidth, iTall );

	char szLogoFont[64];

#ifdef MAPBASE
	if (m_szLogoFont[0] != '\0')
	{
		// Custom logo font
		Q_strncpy( szLogoFont, m_szLogoFont, sizeof( szLogoFont ) );
	}
	else
#endif
	if ( IsXbox() )
	{
		Q_snprintf( szLogoFont, sizeof( szLogoFont ), "WeaponIcons_Small" );
	}
	else if ( hl2_episodic.GetBool() )
	{
		Q_snprintf( szLogoFont, sizeof( szLogoFont ), "ClientTitleFont" );
	}
	else
	{
		Q_snprintf( szLogoFont, sizeof( szLogoFont ), "WeaponIcons" );
	}

#ifdef MAPBASE
	vgui::HScheme scheme = GetScheme();
#else
	vgui::HScheme scheme = vgui::scheme()->GetScheme( "ClientScheme" );
#endif
	vgui::HFont m_hTFont = vgui::scheme()->GetIScheme(scheme)->GetFont( szLogoFont );

	int iFontTall = surface()->GetFontTall ( m_hTFont );

	Color cColor = m_TextColor;
	cColor[3] = m_Alpha;

#ifdef MAPBASE
	if (m_cLogoColor.a() > 0)
		cColor = m_cLogoColor;
#endif
				
	surface()->DrawSetTextFont( m_hTFont );
	surface()->DrawSetTextColor( cColor[0], cColor[1], cColor[2], cColor[3]  );
	
	wchar_t unicode[256];
	g_pVGuiLocalize->ConvertANSIToUnicode( m_szLogo, unicode, sizeof( unicode ) );

	int iStringWidth = GetStringPixelWidth( unicode, m_hTFont ); 

	surface()->DrawSetTextPos( ( iWidth / 2 ) - ( iStringWidth / 2 ), ( iTall / 2 ) - ( iFontTall / 2 ) );
	surface()->DrawUnicodeString( unicode );

	if ( Q_strlen( m_szLogo2 ) > 0 )
	{
#ifdef MAPBASE
		if (m_szLogo2Font[0] != '\0')
		{
			m_hTFont = vgui::scheme()->GetIScheme( scheme )->GetFont( m_szLogo2Font );
			iFontTall = surface()->GetFontTall( m_hTFont );
			surface()->DrawSetTextFont( m_hTFont );
		}
		if (m_cLogo2Color.a() > 0)
		{
			surface()->DrawSetTextColor( m_cLogo2Color[0], m_cLogo2Color[1], m_cLogo2Color[2], m_cLogo2Color[3] );
		}
#endif

		g_pVGuiLocalize->ConvertANSIToUnicode( m_szLogo2, unicode, sizeof( unicode ) );

		iStringWidth = GetStringPixelWidth( unicode, m_hTFont ); 

		surface()->DrawSetTextPos( ( iWidth / 2 ) - ( iStringWidth / 2 ), ( iTall / 2 ) + ( iFontTall / 2 ));
		surface()->DrawUnicodeString( unicode );
	}
}

//-----------------------------------------------------------------------------
// Purpose: 
//-----------------------------------------------------------------------------
float CHudCredits::FadeBlend( float fadein, float fadeout, float hold, float localTime )
{
	float fadeTime = fadein + hold;
	float fadeBlend;

	if ( localTime < 0 )
		return 0;

	if ( localTime < fadein )
	{
		fadeBlend = 1 - ((fadein - localTime) / fadein);
	}
	else if ( localTime > fadeTime )
	{
		if ( fadeout > 0 )
			fadeBlend = 1 - ((localTime - fadeTime) / fadeout);
		else
			fadeBlend = 0;
	}
	else
		fadeBlend = 1;

	if ( fadeBlend < 0 )
		 fadeBlend = 0;

	return fadeBlend;
}

void CHudCredits::DrawIntroCreditsName( void )
{
	if ( m_CreditsList.Count() == 0 )
		 return;
	
	// fill the screen
	int iWidth, iTall;
	GetHudSize(iWidth, iTall);
	SetSize( iWidth, iTall );

	for ( int i = 0; i < m_CreditsList.Count(); i++ )
	{
		creditname_t *pCredit = &m_CreditsList[i];

		if ( pCredit == NULL )
			 continue;

		if ( pCredit->bActive == false )
			 continue;

#ifdef MAPBASE
		vgui::HScheme scheme = GetScheme();
#else
		vgui::HScheme scheme = vgui::scheme()->GetScheme( "ClientScheme" );
#endif
		vgui::HFont m_hTFont = vgui::scheme()->GetIScheme(scheme)->GetFont( pCredit->szFontName );

		float localTime = gpGlobals->curtime - pCredit->flTimeStart;

		surface()->DrawSetTextFont( m_hTFont );
#ifdef MAPBASE
		Color cColor = m_cColor;
		if (pCredit->cColorOverride.Count() > 0)
			cColor.SetRawColor( pCredit->cColorOverride[0] );

		surface()->DrawSetTextColor( cColor[0], cColor[1], cColor[2], FadeBlend( m_flFadeInTime, m_flFadeOutTime, m_flFadeHoldTime + pCredit->flTimeAdd, localTime ) * cColor[3] );
#else
		surface()->DrawSetTextColor( m_cColor[0], m_cColor[1], m_cColor[2], FadeBlend( m_flFadeInTime, m_flFadeOutTime, m_flFadeHoldTime + pCredit->flTimeAdd, localTime ) * m_cColor[3] );
#endif
		
		wchar_t unicode[256];
		g_pVGuiLocalize->ConvertANSIToUnicode( pCredit->szCreditName, unicode, sizeof( unicode ) );

		surface()->DrawSetTextPos( XRES( pCredit->flXPos ), YRES( pCredit->flYPos ) );
		surface()->DrawUnicodeString( unicode );
		
		if ( m_flLogoTime > gpGlobals->curtime )
			 continue;
		
		if ( pCredit->flTime - m_flNextStartTime <= gpGlobals->curtime )
		{
			if ( m_CreditsList.IsValidIndex( i + 3 ) )
			{
				creditname_t *pNextCredits = &m_CreditsList[i + 3];

				if ( pNextCredits && pNextCredits->flTime == 0.0f )
				{
					pNextCredits->bActive = true;

					if ( i < 3 )
					{
						pNextCredits->flTimeAdd = ( i + 1.0f );
						pNextCredits->flTime = gpGlobals->curtime + m_flFadeInTime + m_flFadeOutTime + m_flFadeHoldTime + pNextCredits->flTimeAdd;
					}
					else
					{
						pNextCredits->flTimeAdd = m_flPauseBetweenWaves;
						pNextCredits->flTime = gpGlobals->curtime + m_flFadeInTime + m_flFadeOutTime + m_flFadeHoldTime + pNextCredits->flTimeAdd;
					}

					pNextCredits->flTimeStart = gpGlobals->curtime;

					pNextCredits->iSlot = pCredit->iSlot;
				}
			}
		}

		if ( pCredit->flTime <= gpGlobals->curtime )
		{
			pCredit->bActive = false;

			if ( i == m_CreditsList.Count()-1 )
			{
				Clear();
			}
		}
	}
}

void CHudCredits::ApplySchemeSettings( IScheme *pScheme )
{
	BaseClass::ApplySchemeSettings( pScheme );

	SetVisible( ShouldDraw() );

	SetBgColor( Color(0, 0, 0, 0) );
}

void CHudCredits::Paint()
{
	if ( m_iCreditsType == CREDITS_LOGO )
	{
		DrawLogo();
	}
	else if ( m_iCreditsType == CREDITS_INTRO )
	{
		DrawIntroCreditsName();
	}
	else if ( m_iCreditsType == CREDITS_OUTRO )
	{
		DrawOutroCreditsName();
	}
}

void CHudCredits::PrepareLogo( float flTime )
{
	// Only showing the logo. Just load the CreditsParams section.
	PrepareCredits( NULL );

	m_Alpha = 0;
	m_flLogoDesiredLength = flTime;
	m_flFadeTime = gpGlobals->curtime + 5.0f;
	m_iLogoState = LOGO_FADEIN;
	SetActive( true );
}

void CHudCredits::PrepareLine( vgui::HFont hFont, char const *pchLine )
{
	Assert( pchLine );

	wchar_t unicode[256];

	if ( pchLine[0] == '#' )
	{
		g_pVGuiLocalize->ConstructString( unicode, sizeof(unicode), g_pVGuiLocalize->Find(pchLine), 0 );
	}
	else
	{
		g_pVGuiLocalize->ConvertANSIToUnicode( pchLine, unicode, sizeof( unicode ) );
	}

	surface()->PrecacheFontCharacters( hFont, unicode );
}

void CHudCredits::PrepareOutroCredits( void )
{
	PrepareCredits( "OutroCreditsNames" );
	
	if ( m_CreditsList.Count() == 0 )
		 return;

	// fill the screen
	int iWidth, iTall;
	GetHudSize(iWidth, iTall);
	SetSize( iWidth, iTall );

	int iHeight = iTall;

#ifdef MAPBASE
	if (m_iEndLines <= 0)
	{
		// We need a credit to fade out at the end so we know when the credits are done.
		// Add a dummy credit to act as the "end line".
		creditname_t DummyCredit;
		V_strcpy_safe( DummyCredit.szCreditName, "");
		V_strcpy_safe( DummyCredit.szFontName, "Default" );

		m_CreditsList.AddToTail(DummyCredit);
		m_iEndLines = 1;
	}
#endif

	for ( int i = 0; i < m_CreditsList.Count(); i++ )
	{
		creditname_t *pCredit = &m_CreditsList[i];

		if ( pCredit == NULL )
			 continue;

#ifdef MAPBASE
		vgui::HScheme scheme = GetScheme();
#else
		vgui::HScheme scheme = vgui::scheme()->GetScheme( "ClientScheme" );
#endif

#ifdef MAPBASE
		if (pCredit->szFontName[0] == '$')
		{
			if (V_strncmp( pCredit->szFontName + 1, "Image", 5 ) == 0)
			{
				if (pCredit->szFontName[6] == ';')
				{
					CUtlStringList outStrings;
					V_SplitString( pCredit->szFontName, ";", outStrings );
					FOR_EACH_VEC( outStrings, i )
					{
						switch (i)
						{
							// Get scale
							case 1:
								pCredit->flImageScale = atof( outStrings[i] );
								break;

							// Get color
							case 2:
								char *pToken = strtok( outStrings[i], "," );
								if (pToken)
								{
									// Multiple colors for multiple columns
									while (pToken != NULL)
									{
										int tmp[4];
										UTIL_StringToIntArray( tmp, 4, pToken );
										pCredit->cColorOverride.AddToTail( Color( tmp[0], tmp[1], tmp[2], tmp[3] ).GetRawColor() );

										pToken = strtok( NULL, "," );
									}
								}
								else
								{
									int tmp[4];
									UTIL_StringToIntArray( tmp, 4, outStrings[i] );
									pCredit->cColorOverride.AddToTail( Color( tmp[0], tmp[1], tmp[2], tmp[3] ).GetRawColor() );
								}
								break;
						}
					}
					outStrings.PurgeAndDeleteElements();
				}

				// Get the size of the tallest image if there's multiple
				int iFontWide, iFontTall = 1;
				if (m_bAllowColumns && V_strstr( pCredit->szCreditName, "\t" ))
				{
					CUtlStringList outStrings;
					V_SplitString( pCredit->szCreditName, "\t", outStrings );
					FOR_EACH_VEC( outStrings, i )
					{
						pCredit->iImageID = GetOrAllocateImageID( outStrings[i] );

						int iTempTall;
						surface()->DrawGetTextureSize( pCredit->iImageID, iFontWide, iTempTall );
						if (iTempTall > iFontTall)
							iFontTall = iTempTall;
					}
					outStrings.PurgeAndDeleteElements();
				}
				else
				{
					pCredit->iImageID = GetOrAllocateImageID( pCredit->szCreditName );
					surface()->DrawGetTextureSize( pCredit->iImageID, iFontWide, iFontTall );
				}

				pCredit->flYPos = iHeight;
				pCredit->bActive = false;

				iHeight += ((float)iFontTall * pCredit->flImageScale * ((float)GetTall() / 900.0f)) + m_flSeparation;

				//Msg( "'%s' is image type (image scale is %f)\n", pCredit->szCreditName, pCredit->flImageScale );
			}
			else
			{
				//Msg( "'%s' is not an image type\n", pCredit->szFontName + 1 );
			}
		}
		else
#endif
		{
#ifdef MAPBASE
			if (V_strstr( pCredit->szFontName, ";" ))
			{
				CUtlStringList outStrings;
				V_SplitString( pCredit->szFontName, ";", outStrings );
				FOR_EACH_VEC( outStrings, i )
				{
					switch (i)
					{
						// Get color
						case 1:
							char *pToken = strtok( outStrings[i], "," );
							if (pToken)
							{
								// Multiple colors for multiple columns
								while (pToken != NULL)
								{
									int tmp[4];
									UTIL_StringToIntArray( tmp, 4, pToken );
									pCredit->cColorOverride.AddToTail( Color( tmp[0], tmp[1], tmp[2], tmp[3] ).GetRawColor() );

									pToken = strtok( NULL, "," );
								}
							}
							else
							{
								int tmp[4];
								UTIL_StringToIntArray( tmp, 4, outStrings[i] );
								pCredit->cColorOverride.AddToTail( Color( tmp[0], tmp[1], tmp[2], tmp[3] ).GetRawColor() );
							}
							break;
					}
				}

				Q_strncpy( pCredit->szFontName, outStrings[0], sizeof( pCredit->szFontName ) );
				outStrings.PurgeAndDeleteElements();
			}
#endif

			vgui::HFont m_hTFont = vgui::scheme()->GetIScheme( scheme )->GetFont( pCredit->szFontName, true );

			pCredit->flYPos = iHeight;
			pCredit->bActive = false;

			iHeight += surface()->GetFontTall ( m_hTFont ) + m_flSeparation;

			PrepareLine( m_hTFont, pCredit->szCreditName );
		}
	}

#ifdef MAPBASE
	// Check if the last line has a color override. If it does, use that as the alpha for the fadeout
	if (m_CreditsList.Tail().cColorOverride.Count() > 0)
	{
		Color clr;
		clr.SetRawColor( m_CreditsList.Tail().cColorOverride[0] );
		m_Alpha = clr.a();
	}
#endif

	SetActive( true );

	g_iCreditsPixelHeight = iHeight;
}

void CHudCredits::PrepareIntroCredits( void )
{
	PrepareCredits( "IntroCreditsNames" );

	int iSlot = 0;

	for ( int i = 0; i < m_CreditsList.Count(); i++ )
	{
		creditname_t *pCredit = &m_CreditsList[i];

		if ( pCredit == NULL )
			 continue;

#ifdef MAPBASE
		if (V_strstr( pCredit->szFontName, ";" ))
		{
			CUtlStringList outStrings;
			V_SplitString( pCredit->szFontName, ";", outStrings );
			FOR_EACH_VEC( outStrings, i )
			{
				switch (i)
				{
					// Get color
					case 1:
						// TODO: Columns?
						int tmp[4];
						UTIL_StringToIntArray( tmp, 4, outStrings[i] );
						pCredit->cColorOverride.AddToTail( Color( tmp[0], tmp[1], tmp[2], tmp[3] ).GetRawColor() );
						break;
				}
			}

			Q_strncpy( pCredit->szFontName, outStrings[0], sizeof( pCredit->szFontName ) );
			outStrings.PurgeAndDeleteElements();
		}
#endif

#ifdef MAPBASE
		vgui::HScheme scheme = GetScheme();
#else
		vgui::HScheme scheme = vgui::scheme()->GetScheme( "ClientScheme" );
#endif
		vgui::HFont m_hTFont = vgui::scheme()->GetIScheme(scheme)->GetFont( pCredit->szFontName );

		pCredit->flYPos = m_flY + ( iSlot * surface()->GetFontTall ( m_hTFont ) );
		pCredit->flXPos = m_flX;
				
		if ( i < 3 )
		{
			pCredit->bActive = true;
			pCredit->iSlot = iSlot;
			pCredit->flTime = gpGlobals->curtime + m_flFadeInTime + m_flFadeOutTime + m_flFadeHoldTime;
			pCredit->flTimeStart = gpGlobals->curtime;
			m_flLogoTime = pCredit->flTime + m_flLogoTimeMod;
		}
		else
		{
			pCredit->bActive = false;
			pCredit->flTime = 0.0f;
		}

		iSlot = ( iSlot + 1 ) % 3;

		PrepareLine( m_hTFont, pCredit->szCreditName );
	}

	SetActive( true );
}

#ifdef MAPBASE
void CHudCredits::PrecacheCredits()
{
	PrepareCredits( "OutroCreditsNames" );
	
	if ( m_CreditsList.Count() == 0 )
		 return;

	for ( int i = 0; i < m_CreditsList.Count(); i++ )
	{
		creditname_t *pCredit = &m_CreditsList[i];

		if ( pCredit == NULL )
			 continue;

		if (pCredit->szFontName[0] == '$')
		{
			if (V_strncmp( pCredit->szFontName + 1, "Image", 5 ) == 0)
			{
				if (m_bAllowColumns && V_strstr( pCredit->szCreditName, "\t" ))
				{
					CUtlStringList outStrings;
					V_SplitString( pCredit->szCreditName, "\t", outStrings );
					FOR_EACH_VEC( outStrings, i )
					{
						GetOrAllocateImageID( outStrings[i] );
					}
					outStrings.PurgeAndDeleteElements();
				}
				else
				{
					GetOrAllocateImageID( pCredit->szCreditName );
				}
			}
			else
			{
				//Msg( "'%s' is not an image type\n", pCredit->szFontName + 1 );
			}
		}
	}

	m_CreditsList.RemoveAll();
}

int CHudCredits::GetOrAllocateImageID( const char *szFileName )
{
	int iIndex = m_ImageDict.Find( szFileName );
	if (iIndex == m_ImageDict.InvalidIndex())
	{
		iIndex = surface()->CreateNewTextureID();
		m_ImageDict.Insert( szFileName, iIndex );
		surface()->DrawSetTextureFile( iIndex, szFileName, true, false );
		return iIndex;
	}
	return m_ImageDict[iIndex];
}
#endif

void CHudCredits::MsgFunc_CreditsMsg( bf_read &msg )
{
	m_iCreditsType = msg.ReadByte();

#ifdef MAPBASE
	msg.ReadString(m_szCreditsFile, sizeof(m_szCreditsFile));

	if (m_szCreditsFile[0] == '\0')
		Q_strncpy(m_szCreditsFile, CREDITS_FILE, sizeof(m_szCreditsFile));
#endif

	switch ( m_iCreditsType )
	{
		case CREDITS_LOGO:
		{
			PrepareLogo( 5.0f );
			break;
		}
		case CREDITS_INTRO:
		{
			PrepareIntroCredits();
			break;
		}
		case CREDITS_OUTRO:
		{
			PrepareOutroCredits();
			break;
		}
#ifdef MAPBASE
		case CREDITS_PRECACHE:
		{
			PrecacheCredits();
			break;
		}
#endif
	}
}

void CHudCredits::MsgFunc_LogoTimeMsg( bf_read &msg )
{
	m_iCreditsType = CREDITS_LOGO;
#ifdef MAPBASE
	float flLogoTime = msg.ReadFloat();
	msg.ReadString(m_szCreditsFile, sizeof(m_szCreditsFile));

	if (m_szCreditsFile[0] == '\0')
		Q_strncpy(m_szCreditsFile, CREDITS_FILE, sizeof(m_szCreditsFile));

	PrepareLogo(flLogoTime);
#else
	PrepareLogo( msg.ReadFloat() );
#endif
}