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

// table l2c_getParty()
int l2c_getParty( lua_State *L )
{
	IL2Client *cl = L2C_func_getClient( L );
	if( !cl )
	{
		lua_createtable( L, 0, 0 );
		return 1;
	}
	UserParty *pty = cl->get_Party();
	if( !pty )
	{
		lua_createtable( L, 0, 0 );
		return 1;
	}
	pty->Lock(); // really?
	int cnt = pty->getCount();
	int i;
	lua_createtable( L, 0, 0 );
	int tableIndex = 1;
	char aname[256] = {0};
	for( i=0; i<cnt; i++ )
	{
		L2Player *pl = pty->getPartyPlayer( i );
		if( !pl ) continue;
		//
		lua_pushnumber( L, tableIndex );
		//
		lua_createtable( L, 0, 0 );
		//
		lua_pushstring( L, "objectID" );
		lua_pushnumber( L, pl->objectID );
		lua_settable( L, -3 );
		//
		lua_pushstring( L, "name" );
		sprintf( aname, "%S", pl->charName );
		lua_pushstring( L, aname );
		lua_settable( L, -3 );
		//
		lua_pushstring( L, "level" );
		lua_pushnumber( L, pl->level );
		lua_settable( L, -3 );
		//
		lua_pushstring( L, "curHp" );
		lua_pushnumber( L, pl->curHp );
		lua_settable( L, -3 );
		lua_pushstring( L, "maxHp" );
		lua_pushnumber( L, pl->maxHp );
		lua_settable( L, -3 );
		lua_pushstring( L, "curMp" );
		lua_pushnumber( L, pl->curMp );
		lua_settable( L, -3 );
		lua_pushstring( L, "maxMp" );
		lua_pushnumber( L, pl->maxMp );
		lua_settable( L, -3 );
		lua_pushstring( L, "curCp" );
		lua_pushnumber( L, pl->curCp );
		lua_settable( L, -3 );
		lua_pushstring( L, "maxCp" );
		lua_pushnumber( L, pl->maxCp );
		lua_settable( L, -3 );
		//
		lua_pushstring( L, "classID" );
		lua_pushnumber( L, pl->classID );
		lua_settable( L, -3 );
		//
		lua_pushstring( L, "targetObjectID" );
		lua_pushnumber( L, pl->targetObjectID );
		lua_settable( L, -3 );
		//
		lua_settable( L, -3 );
		tableIndex++;
	}
	pty->Unlock();
	return 1;
}

// table l2c_getPartyMemberBuffs( int objectID )
int l2c_getPartyMemberBuffs( lua_State *L )
{
	IL2Client *cl = L2C_func_getClient( L );
	if( !cl )
	{
		lua_createtable( L, 0, 0 );
		return 1;
	}
	int nArgs = lua_gettop( L );
	if( nArgs < 1 )
	{
		lua_createtable( L, 0, 0 );
		return 1;
	}
	unsigned int objectID = (unsigned int)lua_tonumber( L, 1 );
	if( objectID == 0 )
	{
		lua_createtable( L, 0, 0 );
		return 1;
	}
	UserParty *pty = cl->get_Party();
	if( !pty )
	{
		lua_createtable( L, 0, 0 );
		return 1;
	}
	if( pty->getCount() < 1 )
	{
		lua_createtable( L, 0, 0 );
		return 1;
	}
	int idx = -1;
	pty->Lock();
	if( !pty->isInParty( objectID, &idx ) )
	{
		pty->Unlock();
		lua_createtable( L, 0, 0 );
		return 1;
	}
	if( idx == -1 )
	{
		pty->Unlock();
		lua_createtable( L, 0, 0 );
		return 1;
	}
	UserBuffs *buffs = pty->getPartyPlayerBuffs( idx );
	if( !buffs )
	{
		pty->Unlock();
		lua_createtable( L, 0, 0 );
		return 1;
	}
	// at last, we can push buffs :)
	lua_createtable( L, 0, 0 );
	int tableIndex = 1;
	int i = 0;
	for( i=0; i<UserBuffs::USER_MAX_BUFFS; i++ )
	{
		if( buffs->buff[i].skillID == 0 ) continue;
		//
		lua_pushnumber( L, tableIndex );
		//
		lua_createtable( L, 0, 0 );
		//
		lua_pushstring( L, "skillID" );
		lua_pushnumber( L, buffs->buff[i].skillID );
		lua_settable( L, -3 );
		lua_pushstring( L, "skillLvl" );
		lua_pushnumber( L, buffs->buff[i].skillLvl );
		lua_settable( L, -3 );
		lua_pushstring( L, "durationSecs" );
		lua_pushnumber( L, buffs->buff[i].duration );
		lua_settable( L, -3 );
		// skill name
		wchar_t wstr[256] = {0};
		char skillName[256] = {0};
		DBLayer_getSkillName( buffs->buff[i].skillID, wstr, 256 );
		WideCharToMultiByte( CP_ACP, 0, wstr, -1, skillName, 255, NULL, NULL );
		lua_pushstring( L, "skillName" );
		lua_pushstring( L, skillName );
		lua_settable( L, -3 );
		//
		lua_settable( L, -3 );
		//
		tableIndex++;
	}
	for( i=0; i<UserBuffs::USER_MAX_SHORT_BUFFS; i++ )
	{
		if( buffs->short_buff[i].skillID == 0 ) continue;
		//
		lua_pushnumber( L, tableIndex );
		//
		lua_createtable( L, 0, 0 );
		//
		lua_pushstring( L, "skillID" );
		lua_pushnumber( L, buffs->short_buff[i].skillID );
		lua_settable( L, -3 );
		lua_pushstring( L, "skillLvl" );
		lua_pushnumber( L, buffs->short_buff[i].skillLvl );
		lua_settable( L, -3 );
		lua_pushstring( L, "durationSecs" );
		lua_pushnumber( L, buffs->short_buff[i].duration );
		lua_settable( L, -3 );
		// skill name
		wchar_t wstr[256] = {0};
		char skillName[256] = {0};
		DBLayer_getSkillName( buffs->short_buff[i].skillID, wstr, 256 );
		WideCharToMultiByte( CP_ACP, 0, wstr, -1, skillName, 255, NULL, NULL );
		lua_pushstring( L, "skillName" );
		lua_pushstring( L, skillName );
		lua_settable( L, -3 );
		//
		lua_settable( L, -3 );
		//
		tableIndex++;
	}
	//
	pty->Unlock();
	return 1;
}

// l2c_partySendInvite( string name, int loot )
int l2c_partySendInvite( lua_State *L )
{
	IL2Client *cl = L2C_func_getClient( L ); if( !cl ) return 0;
	int nArgs = lua_gettop( L );
	if( nArgs < 2 ) return 0;
	const char *aname = lua_tolstring( L, 1, NULL );
	int loot = (int)lua_tonumber( L, 2 );
	wchar_t name[256] = {0};
	MultiByteToWideChar( CP_ACP, 0, aname, -1, name, 255 );
	cl->game_Party_InvitePlayer( name, (unsigned int)loot );
	return 0;
}

// l2c_partyLeave()
int l2c_partyLeave( lua_State *L )
{
	IL2Client *cl = L2C_func_getClient( L ); if( !cl ) return 0;
	UserParty *pty = cl->get_Party();
	if( pty->getCount() < 1 ) return 0; // no party?
	cl->game_Party_Leave(); // ok, leave paarty
	return 0;
}

// l2c_partyKickMember( string name )
int l2c_partyKickMember( lua_State *L )
{
	IL2Client *cl = L2C_func_getClient( L ); if( !cl ) return 0;
	UserParty *pty = cl->get_Party();
	if( pty->getCount() < 1 ) return 0; // no party?
	int nArgs = lua_gettop( L );
	if( nArgs < 1 ) return 0;
	const char *aname = lua_tolstring( L, 1, NULL );
	wchar_t name[256] = {0};
	MultiByteToWideChar( CP_ACP, 0, aname, -1, name, 255 );
	cl->game_Party_KickPlayer( name );
	return 0;
}

// l2c_partyChangeLeader( string name )
int l2c_partyChangeLeader( lua_State *L )
{
	IL2Client *cl = L2C_func_getClient( L ); if( !cl ) return 0;
	UserParty *pty = cl->get_Party();
	if( pty->getCount() < 1 ) return 0; // no party?
	int nArgs = lua_gettop( L );
	if( nArgs < 1 ) return 0;
	const char *aname = lua_tolstring( L, 1, NULL );
	wchar_t name[256] = {0};
	MultiByteToWideChar( CP_ACP, 0, aname, -1, name, 255 );
	cl->game_Party_ChangeLeader( name );
	return 0;
}