#include "hud.h"

#include "utils.h"

#include "parsemsg.h"

extern float *GetClientColor( int clientIndex );

#define MAX_LINES 5

#define MAX_CHARS_PER_LINE 256 // it can be less than this, depending on char size

#define MAX_LINE_WIDTH ( ScreenWidth - 40 )

#define LINE_START 10

static char g_szLineBuffer[MAX_LINES + 1][MAX_CHARS_PER_LINE];

static float *g_pflNameColors[MAX_LINES + 1];

static int g_iNameLengths[MAX_LINES + 1];

static float flScrollTime = 0; // the time at which the lines next scroll up

static int Y_START = 0;

static int line_height = 0;

DECLARE_MESSAGE( m_SayText, SayText );

int CHudSayText :: Init( void )

{

gHUD.AddHudElem( this );

HOOK_MESSAGE( SayText );

InitHUDData();

m_HUD_saytext = CVAR_REGISTER( "hud_saytext", "1", 0 );

m_HUD_saytext_time = CVAR_REGISTER( "hud_saytext_time", "5", 0 );

m_iFlags |= HUD_INTERMISSION; // is always drawn during an intermission

return 1;

}

void CHudSayText :: InitHUDData( void )

{

memset( g_szLineBuffer, 0, sizeof g_szLineBuffer );

memset( g_pflNameColors, 0, sizeof g_pflNameColors );

memset( g_iNameLengths, 0, sizeof g_iNameLengths );

}

int CHudSayText :: VidInit( void )

{

return 1;

}

int ScrollTextUp( void )

{

ConsolePrint( g_szLineBuffer[0] ); // move the first line into the console buffer

g_szLineBuffer[MAX_LINES][0] = 0;

memmove( g_szLineBuffer[0], g_szLineBuffer[1], sizeof( g_szLineBuffer ) - sizeof( g_szLineBuffer[0] ));

memmove( &g_pflNameColors[0], &g_pflNameColors[1], sizeof( g_pflNameColors ) - sizeof( g_pflNameColors[0] ));

memmove( &g_iNameLengths[0], &g_iNameLengths[1], sizeof( g_iNameLengths ) - sizeof( g_iNameLengths[0] ));

g_szLineBuffer[MAX_LINES-1][0] = 0;

if( g_szLineBuffer[0][0] == ' ' )

{

// also scroll up following lines

g_szLineBuffer[0][0] = 2;

return 1 + ScrollTextUp();

}

return 1;

}

int CHudSayText :: Draw( float flTime )

{

if( !m_HUD_saytext->value )

return 1;

int y = Y_START;

// make sure the scrolltime is within reasonable bounds, to guard against the clock being reset

flScrollTime = Q_min( flScrollTime, flTime + m_HUD_saytext_time->value );

// make sure the scrolltime is within reasonable bounds, to guard against the clock being reset

flScrollTime = Q_min( flScrollTime, flTime + m_HUD_saytext_time->value );

if( flScrollTime <= flTime )

{

if( *g_szLineBuffer[0] )

{

flScrollTime = flTime + m_HUD_saytext_time->value;

// push the console up

ScrollTextUp();

}

else

{

// buffer is empty, just disable drawing of this section

m_iFlags &= ~HUD_ACTIVE;

}

}

for( int i = 0; i < MAX_LINES; i++ )

{

if( *g_szLineBuffer[i] )

{

if( *g_szLineBuffer[i] == 2 && g_pflNameColors[i] )

{

// it's a saytext string

static char buf[MAX_PLAYER_NAME_LENGTH+32];

// draw the first x characters in the player color

Q_strncpy( buf, g_szLineBuffer[i], sizeof( buf ));

buf[Q_min( g_iNameLengths[i], MAX_PLAYER_NAME_LENGTH+31)] = 0;

DrawSetTextColor( g_pflNameColors[i][0], g_pflNameColors[i][1], g_pflNameColors[i][2] );

int x = DrawConsoleString( LINE_START, y, buf );

// color is reset after each string draw

DrawConsoleString( x, y, g_szLineBuffer[i] + g_iNameLengths[i] );

}

else

{

// normal draw

DrawConsoleString( LINE_START, y, g_szLineBuffer[i] );

}

}

y += line_height;

}

return 1;

}

int CHudSayText :: MsgFunc_SayText( const char *pszName, int iSize, void *pbuf )

{

BEGIN_READ( pszName, pbuf, iSize );

int client_index = READ_BYTE(); // the client who spoke the message

SayTextPrint( READ_STRING(), iSize - 1, client_index );

END_READ();

return 1;

}

void CHudSayText :: SayTextPrint( const char *pszBuf, int iBufSize, int clientIndex )

{

int i;

// find an empty string slot

for( i = 0; i < MAX_LINES; i++ )

{

if( !*g_szLineBuffer[i] )

break;

}

if( i == MAX_LINES )

{

// force scroll buffer up

ScrollTextUp();

i = MAX_LINES - 1;

}

g_iNameLengths[i] = 0;

g_pflNameColors[i] = NULL;

// if it's a say message, search for the players name in the string

if( *pszBuf == 2 && clientIndex > 0 )

{

GetPlayerInfo( clientIndex, &g_PlayerInfoList[clientIndex] );

const char *pName = g_PlayerInfoList[clientIndex].name;

if( pName )

{

const char *nameInString = Q_strstr( pszBuf, pName );

if( nameInString )

{

g_iNameLengths[i] = Q_strlen( pName ) + (nameInString - pszBuf);

g_pflNameColors[i] = GetClientColor( clientIndex );

}

}

}

Q_strncpy( g_szLineBuffer[i], pszBuf, Q_max( iBufSize - 1, MAX_CHARS_PER_LINE - 1 ));

// make sure the text fits in one line

EnsureTextFitsInOneLineAndWrapIfHaveTo( i );

// Set scroll time

if( i == 0 )

{

flScrollTime = gHUD.m_flTime + m_HUD_saytext_time->value;

}

m_iFlags |= HUD_ACTIVE;

PlaySound( "misc/talk.wav", 1 );

if( ScreenHeight >= 480 )

Y_START = ScreenHeight - 60;

else

Y_START = ScreenHeight - 45;

Y_START -= (line_height * (MAX_LINES+1));

}

void CHudSayText :: EnsureTextFitsInOneLineAndWrapIfHaveTo( int line )

{

int line_width = 0;

GetConsoleStringSize( g_szLineBuffer[line], &line_width, &line_height );

if(( line_width + LINE_START ) > MAX_LINE_WIDTH )

{

// string is too long to fit on line

// scan the string until we find what word is too long, and wrap the end of the sentence after the word

int length = LINE_START;

int tmp_len = 0;

char *last_break = NULL;

for( char *x = g_szLineBuffer[line]; *x != 0; x++ )

{

// check for a color change, if so skip past it

if( x[0] == '/' && x[1] == '(' )

{

x += 2;

// skip forward until past mode specifier

while( *x != 0 && *x != ')' )

x++;

if( *x != 0 )

x++;

if( *x == 0 )

break;

}

char buf[2];

buf[1] = 0;

// store each line break, except for the very first character

if( *x == ' ' && x != g_szLineBuffer[line] )

last_break = x;

buf[0] = *x; // get the length of the current character

GetConsoleStringSize( buf, &tmp_len, &line_height );

length += tmp_len;

if( length > MAX_LINE_WIDTH )

{

// needs to be broken up

if( !last_break )

last_break = x-1;

x = last_break;

// find an empty string slot

int j;

do

{

for( j = 0; j < MAX_LINES; j++ )

{

if( !*g_szLineBuffer[j] )

break;

}

if( j == MAX_LINES )

{

// need to make more room to display text, scroll stuff up then fix the pointers

int linesmoved = ScrollTextUp();

line -= linesmoved;

last_break = last_break - ( sizeof( g_szLineBuffer[0] ) * linesmoved );

}

} while( j == MAX_LINES );

// copy remaining string into next buffer, making sure it starts with a space character

if( *last_break == ' ' )

{

int linelen = Q_strlen( g_szLineBuffer[j] );

int remaininglen = Q_strlen( last_break );

if(( linelen - remaininglen ) <= MAX_CHARS_PER_LINE )

Q_strcat( g_szLineBuffer[j], last_break );

}

else

{

if(( Q_strlen( g_szLineBuffer[j] ) - Q_strlen( last_break ) - 2 ) < MAX_CHARS_PER_LINE )

{

Q_strcat( g_szLineBuffer[j], " " );

Q_strcat( g_szLineBuffer[j], last_break );

}

}

*last_break = 0; // cut off the last string

EnsureTextFitsInOneLineAndWrapIfHaveTo( j );

break;

}

}

}

}