#include "stdafx.h"
#include "Logger.h"
#include "SE_funcs.h"

int l2c_say( lua_State *L )
{
	int nArgs = lua_gettop( L );
	if( nArgs == 0 ) return 0;
	IL2Client *cl = L2C_func_getClient( L );
	if( !cl ) return 0;
	size_t len = 0;
	double dchannel = lua_tonumber( L, 1 );
	unsigned int ichannel = (unsigned int)dchannel;
	const char *mes = luaL_checklstring( L, 2, &len );
	//log_error_np( LOG_OK, "SE: l2c_say: %u len, [%s], channel %d\n", len, mes, ichannel );
	wchar_t *text = (wchar_t *)malloc( len*2 + 2 );
	if( text )
	{
		memset( text, 0, len*2+2 );
		MultiByteToWideChar( CP_ACP, 0, mes, -1, text, len );
		cl->game_Say( ichannel, text );
		free( text );
	}
	return 0;
}

int l2c_sayPm( lua_State *L )
{
	int nArgs = lua_gettop( L );
	if( nArgs < 2 ) return 0;
	IL2Client *cl = L2C_func_getClient( L );
	if( !cl ) return 0;
	size_t lenmes = 0;
	size_t lento = 0;
	const char *mes = luaL_checklstring( L, 1, &lenmes );
	const char *to = luaL_checklstring( L, 2, &lento );
	//log_error_np( LOG_OK, "SE: l2c_say_pm: [%s] [%s]\n", mes, to );
	wchar_t *text = (wchar_t *)malloc( lenmes*2 + 2 );
	if( text )
	{
		wchar_t tto[64] = {0};
		memset( text, 0, lenmes*2+2 );
		memset( tto, 0, sizeof(tto) );
		MultiByteToWideChar( CP_ACP, 0, mes, -1, text, lenmes );
		MultiByteToWideChar( CP_ACP, 0, to, -1, tto, 63 );
		tto[63] = 0;
		cl->game_SayPm( text, tto );
		free( text );
	}
	return 0;
}

// l2c_npcDlg( string bypassActionName )
int l2c_npcDlg( lua_State *L )
{
	int nArgs = lua_gettop( L );
	if( nArgs < 1 ) return 0;
	IL2Client *cl = L2C_func_getClient( L );
	if( !cl ) return 0;
	const char *abypass = lua_tolstring( L, 1, NULL );
	if( !abypass ) return 0;
	wchar_t bypass[256] = {0};
	MultiByteToWideChar( CP_ACP, 0, abypass, -1, bypass, 255 );
	if( bypass[0] == 0 ) return 0;
	//
	unsigned int last_npc_html_oid = 0;
	wchar_t *last_html = NULL;
	last_html = cl->get_last_NPC_HTML( &last_npc_html_oid );
	if( !last_html || (last_npc_html_oid == 0) ) return 0;
	// check current target - must match last NPC HTML oid
	UserInfo *pusr = cl->get_UserInfo();
	if( pusr->targetObjectID != last_npc_html_oid )
	{
		log_error( LOG_ERROR, "SE: NPCDLG: Tried to talk to NPC that is not on target! NPC must be targeted.\n" );
		return 0;
	}
	//
	wchar_t strtofind[512] = {0};
	swprintf( strtofind, 511, L">%s</a>", bypass );
	//log_error_np( LOG_OK, "NPCDLG: to find: [%S]\n", strtofind );
	wchar_t *ps = wcsstr( last_html, strtofind );
	if( !ps )
	{
		char areq[256] = {0};
		WideCharToMultiByte( CP_ACP, 0, bypass, -1, areq, 255, NULL, NULL );
		log_error( LOG_ERROR, "SE: not found requested NPCDLG [%s]\n", areq );
		return 0;
	}
	while( (ps > last_html) && ((*ps) != L'<') ) ps--;
	if( ps == last_html )
	{
		log_error( LOG_ERROR, "SE: not found bypass link to requested NPCDLG\n" );
		return 0;
	}
	//log_error_np( LOG_OK, "NPCDLG: found: [%S]\n", ps );
	wchar_t bypassStr[256];
	wchar_t *pbypassStr = bypassStr;
	(*pbypassStr) = 0;
	// now find first occurence of "
	while( (*ps) != L'\"' ) ps++;
	ps++;
	// now copy till second "
	while( (*ps) != L'\"' )
	{
		(*pbypassStr) = (*ps);
		ps++;
		pbypassStr++;
		(*pbypassStr) = 0;
	}
	log_error_np( LOG_OK, "NPCDLG: got bypassStr [%S]\n", bypassStr );
	cl->game_SendBypass( bypassStr );
	//
	return 0;
}

// l2c_npcDlgClear()
int l2c_npcDlgClear( lua_State *L )
{
	IL2Client *cl = L2C_func_getClient( L );
	if( !cl ) return 0;
	cl->clear_last_NPC_HTML();
	return 0;
}

// bool l2c_npcDlgExists()
int l2c_npcDlgExists( lua_State *L )
{
	IL2Client *cl = L2C_func_getClient( L );
	if( !cl )
	{
		lua_pushboolean( L, 0 );
		return 0;
	}
	wchar_t *html = cl->get_last_NPC_HTML( NULL );
	lua_pushboolean( L, html ? 1 : 0 );
	return 1;
}