Initial MSVC 2008 projects workspace

2012-02-01 05:25:08 +00:00
commit 03de3bdc95
1446 changed files with 476853 additions and 0 deletions
--- a/l2detect/se_funcs/sef_chat.cpp
+++ b/l2detect/se_funcs/sef_chat.cpp
@@ -0,0 +1,140 @@
+#include "stdafx.h"
+#include "../Logger.h"
+#include "../lua/lua.hpp"
+#include "../ScriptEngine.h"
+#include "../GameClient.h"
+extern class GameClient *g_game_client;
+#include "../PacketInjector.h"
+
+int l2c_say( lua_State *L )
+{
+	int nArgs = lua_gettop( L );
+	if( nArgs == 0 ) return 0;
+	if( !g_game_client ) 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 );
+	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 );
+		PGen_Say2C( ichannel, text, NULL );
+		free( text );
+	}
+	return 0;
+}
+
+int l2c_sayPm( lua_State *L )
+{
+	int nArgs = lua_gettop( L );
+	if( nArgs < 2 ) return 0;
+	if( !g_game_client ) 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 );
+	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;
+		PGen_Say2C( 2, text, tto ); // public final static int TELL = 2;
+		free( text );
+	}
+	return 0;
+}
+
+// l2c_npcDlg( string bypassActionName )
+int l2c_npcDlg( lua_State *L )
+{
+	int nArgs = lua_gettop( L );
+	if( nArgs < 1 ) return 0;
+	if( !g_game_client ) 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 = g_game_client->ai.get_last_NPC_HTML( &last_npc_html_oid );
+	if( !last_html ) 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, "l2c_npcDlg(): not found requested NPCDLG [%s]\n", areq );
+		return 0;
+	}
+	while( (ps > last_html) && ((*ps) != L'<') ) ps--;
+	if( ps == last_html )
+	{
+		log_error( LOG_ERROR, "l2c_npcDlg(): 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, "l2c_npcDlg(): got bypassStr [%S]\n", bypassStr );
+	if( wcsstr( bypassStr, L"bypass -h " ) == bypassStr )
+	{
+		PGen_RequestBypassToserver( bypassStr + 10 /*wcslen( L"bypass -h " )*/ );
+	}
+	else if( wcsstr( bypassStr, L"link " ) == bypassStr )
+	{
+		PGen_RequestLinkHtml( bypassStr + 5 /*wcslen( L"link " )*/ );
+	}
+	else
+	{
+		log_error( LOG_WARNING, "l2c_npcDlg(): bypassStr must start with \"bypass -h \"!\n" );
+	}
+	//
+	return 0;
+}
+
+// l2c_npcDlgClear()
+int l2c_npcDlgClear( lua_State *L )
+{
+	UNREFERENCED_PARAMETER( L );
+	if( !g_game_client ) return 0;
+	g_game_client->ai.clear_last_NPC_HTML();
+	return 0;
+}
+
+// bool l2c_npcDlgExists()
+int l2c_npcDlgExists( lua_State *L )
+{
+	if( !g_game_client )
+	{
+		lua_pushboolean( L, 0 );
+		return 0;
+	}
+	wchar_t *html = g_game_client->ai.get_last_NPC_HTML( NULL );
+	lua_pushboolean( L, html ? 1 : 0 );
+	return 1;
+}
+