lineage2/l2-unlegits
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
6b8be35686
l2-unlegits/l2detect/se_funcs/sef_world.cpp

392 lines
11 KiB
C++
Raw Blame History

#include "stdafx.h"
#include "../Logger.h"
#include "../lua/lua.hpp"
#include "../ScriptEngine.h"
#include "../GameClient.h"
#include "../PacketInjector.h"
extern class GameClient *g_game_client;
int l2c_getVisibleChars( lua_State *L )
{
if( !g_game_client ) return 0;
CharArray_Lock();
unsigned int charCount = CharArray_GetCount();
lua_createtable( L, 0, 0 );
unsigned int i;
unsigned int nPassed = 0;
unsigned int tableIndex = 1;
for( i=0; i<CHARARRAY_MAX_CHARS; i++ )
{
if( chars_array[i]->isUnused() ) continue;
nPassed++;
//
lua_pushnumber( L, tableIndex );
lua_pushnumber( L, chars_array[i]->objectID );
lua_settable( L, -3 );
tableIndex++;
//
if( nPassed >= charCount ) break;
}
CharArray_Unlock();
return 1;
}
int l2c_getVisibleMobs( lua_State *L )
{
if( !g_game_client ) return 0;
NpcArray_Lock();
lua_createtable( L, 0, 0 );
unsigned int i;
unsigned int tableIndex = 1;
for( i=0; i<NPCA_MAX_NPCS; i++ )
{
if( npc_array[i]->isUnused() ) continue;
if( !npc_array[i]->isAttackable ) continue;
//
lua_pushnumber( L, tableIndex );
lua_pushnumber( L, npc_array[i]->objectID );
lua_settable( L, -3 );
tableIndex++;
}
NpcArray_Unlock();
return 1;
}
int l2c_getVisibleNpcs( lua_State *L )
{
if( !g_game_client ) return 0;
NpcArray_Lock();
lua_createtable( L, 0, 0 );
unsigned int i;
unsigned int tableIndex = 1;
for( i=0; i<NPCA_MAX_NPCS; i++ )
{
if( npc_array[i]->isUnused() ) continue;
if( npc_array[i]->isAttackable ) continue;
//
lua_pushnumber( L, tableIndex );
lua_pushnumber( L, npc_array[i]->objectID );
lua_settable( L, -3 );
tableIndex++;
}
NpcArray_Unlock();
return 1;
}
int l2c_getVisibleItems( lua_State *L )
{
if( !g_game_client ) return 0;
GIArray *a = GIArray::getInstance();
a->Lock();
unsigned int count = a->getCount();
lua_createtable( L, 0, 0 );
unsigned int i;
unsigned int nPassed = 0;
unsigned int tableIndex = 1;
for( i=0; i<GIArray::GA_MAX_ITEMS; i++ )
{
if( a->gi_array[i]->isUnused() ) continue;
nPassed++;
//
lua_pushnumber( L, tableIndex );
lua_pushnumber( L, a->gi_array[i]->objectID );
lua_settable( L, -3 );
tableIndex++;
//
if( nPassed >= count ) break;
}
a->Unlock();
return 1;
}
int l2c_getCharObjectIdByName( lua_State *L )
{
int nArgs = lua_gettop( L );
if( nArgs < 1 ) { lua_pushnil( L ); return 1; }
if( !g_game_client ) { lua_pushnil( L ); return 1; }
const char *aname = lua_tolstring( L, 1, NULL );
if( !aname ) { lua_pushnil( L ); return 1; }
wchar_t wname[128] = {0};
memset( wname, 0, sizeof(wname) );
MultiByteToWideChar( CP_ACP, 0, aname, -1, wname, 127 );
unsigned int nPassed = 0, i = 0, nChars = CharArray_GetCount();
if( nChars > 0 )
{
CharArray_Lock();
for( i=0; i<CHARARRAY_MAX_CHARS; i++ )
{
if( chars_array[i]->isUnused() ) continue;
nPassed++;
if( _wcsicmp( wname, chars_array[i]->charName ) == 0 )
{
CharArray_Unlock();
lua_pushnumber( L, chars_array[i]->objectID );
return 1;
}
if( nPassed >= nChars ) break;
}
CharArray_Unlock();
}
lua_pushnil( L );
return 1;
}
int l2c_getNpcObjectIdByName( lua_State *L )
{
int nArgs = lua_gettop( L );
if( nArgs < 1 ) { lua_pushnil( L ); return 1; }
if( !g_game_client ) { lua_pushnil( L ); return 1; }
const char *aname = lua_tolstring( L, 1, NULL );
if( !aname ) { lua_pushnil( L ); return 1; }
wchar_t wname[128] = {0};
memset( wname, 0, sizeof(wname) );
MultiByteToWideChar( CP_ACP, 0, aname, -1, wname, 127 );
unsigned int i = 0;
NpcArray_Lock();
for( i=0; i<NPCA_MAX_NPCS; i++ )
{
if( npc_array[i]->isUnused() ) continue;
if( _wcsicmp( wname, npc_array[i]->charName ) == 0 )
{
NpcArray_Unlock();
lua_pushnumber( L, npc_array[i]->objectID );
return 1;
}
}
NpcArray_Unlock();
lua_pushnil( L );
return 1;
}
int l2c_getObjectInfoByObjectId( lua_State *L )
{
int nArgs = lua_gettop( L );
if( nArgs < 1 ) { lua_pushnil( L ); return 1; }
if( !g_game_client ) { lua_pushnil( L ); return 1; }
unsigned int objectID = (unsigned int)lua_tonumber( L, 1 );
L2OBJECT_TYPE objType = L2OT_NONE;
int idx = -1;
if( WorldObjectTree_GetInfoByObjectID( objectID, &objType, &idx ) )
{
char ansi[256] = {0};
switch( objType )
{
case L2OT_PC:
{
if( chars_array[idx] == NULL ) { lua_pushnil( L ); return 1; }
CharArray_Lock();
lua_createtable( L, 0, 0 );
//
lua_pushstring( L, "type" );
lua_pushstring( L, "pc" );
lua_settable( L, -3 );
//
lua_pushstring( L, "objectID" );
lua_pushnumber( L, chars_array[idx]->objectID );
lua_settable( L, -3 );
// heading
lua_pushstring( L, "heading" );
lua_pushnumber( L, chars_array[idx]->heading );
lua_settable( L, -3 );
lua_pushstring( L, "targetObjectID" );
lua_pushnumber( L, chars_array[idx]->targetObjectID );
lua_settable( L, -3 );
lua_pushstring( L, "pvpFlag" );
lua_pushnumber( L, chars_array[idx]->pvpFlag );
lua_settable( L, -3 );
lua_pushstring( L, "karma" );
lua_pushnumber( L, chars_array[idx]->karma );
lua_settable( L, -3 );
//
lua_pushstring( L, "x" );
lua_pushnumber( L, chars_array[idx]->x );
lua_settable( L, -3 );
lua_pushstring( L, "y" );
lua_pushnumber( L, chars_array[idx]->y );
lua_settable( L, -3 );
lua_pushstring( L, "z" );
lua_pushnumber( L, chars_array[idx]->z );
lua_settable( L, -3 );
lua_pushstring( L, "xDst" );
lua_pushnumber( L, chars_array[idx]->xDst );
lua_settable( L, -3 );
lua_pushstring( L, "yDst" );
lua_pushnumber( L, chars_array[idx]->yDst );
lua_settable( L, -3 );
lua_pushstring( L, "zDst" );
lua_pushnumber( L, chars_array[idx]->zDst );
lua_settable( L, -3 );
//
lua_pushstring( L, "name" );
sprintf( ansi, "%S", chars_array[idx]->charName );
lua_pushstring( L, ansi );
lua_settable( L, -3 );
lua_pushstring( L, "title" );
sprintf( ansi, "%S", chars_array[idx]->charTitle );
lua_pushstring( L, ansi );
lua_settable( L, -3 );
//
lua_pushstring( L, "curHp" );
lua_pushnumber( L, chars_array[idx]->curHp );
lua_settable( L, -3 );
lua_pushstring( L, "maxHp" );
lua_pushnumber( L, chars_array[idx]->maxHp );
lua_settable( L, -3 );
lua_pushstring( L, "isAlikeDead" );
lua_pushboolean( L, chars_array[idx]->isAlikeDead );
lua_settable( L, -3 );
// player specific
lua_pushstring( L, "classID" );
lua_pushnumber( L, chars_array[idx]->classID );
lua_settable( L, -3 );
CharArray_Unlock();
} break;
case L2OT_NPC:
{
if( npc_array[idx] == NULL ) { lua_pushnil( L ); return 1; }
NpcArray_Lock();
lua_createtable( L, 0, 0 );
//
lua_pushstring( L, "type" );
if( npc_array[idx]->isAttackable ) lua_pushstring( L, "mob" );
else lua_pushstring( L, "npc" );
lua_settable( L, -3 );
//
lua_pushstring( L, "objectID" );
lua_pushnumber( L, npc_array[idx]->objectID );
lua_settable( L, -3 );
// heading
lua_pushstring( L, "heading" );
lua_pushnumber( L, npc_array[idx]->heading );
lua_settable( L, -3 );
//
lua_pushstring( L, "x" );
lua_pushnumber( L, npc_array[idx]->x );
lua_settable( L, -3 );
lua_pushstring( L, "y" );
lua_pushnumber( L, npc_array[idx]->y );
lua_settable( L, -3 );
lua_pushstring( L, "z" );
lua_pushnumber( L, npc_array[idx]->z );
lua_settable( L, -3 );
lua_pushstring( L, "xDst" );
lua_pushnumber( L, npc_array[idx]->xDst );
lua_settable( L, -3 );
lua_pushstring( L, "yDst" );
lua_pushnumber( L, npc_array[idx]->yDst );
lua_settable( L, -3 );
lua_pushstring( L, "zDst" );
lua_pushnumber( L, npc_array[idx]->zDst );
lua_settable( L, -3 );
//
lua_pushstring( L, "name" );
sprintf( ansi, "%S", npc_array[idx]->charName );
lua_pushstring( L, ansi );
lua_settable( L, -3 );
lua_pushstring( L, "title" );
sprintf( ansi, "%S", npc_array[idx]->charTitle );
lua_pushstring( L, ansi );
lua_settable( L, -3 );
//
lua_pushstring( L, "curHp" );
lua_pushnumber( L, npc_array[idx]->curHp );
lua_settable( L, -3 );
lua_pushstring( L, "maxHp" );
lua_pushnumber( L, npc_array[idx]->maxHp );
lua_settable( L, -3 );
lua_pushstring( L, "isAlikeDead" );
lua_pushboolean( L, npc_array[idx]->isAlikeDead );
lua_settable( L, -3 );
// npc specific
lua_pushstring( L, "templateID" );
lua_pushnumber( L, npc_array[idx]->templateID );
lua_settable( L, -3 );
NpcArray_Unlock();
} break;
case L2OT_ITEM:
{
GIArray *a = GIArray::getInstance();
if( a->gi_array[idx] == NULL ) { lua_pushnil( L ); return 1; }
a->Lock();
lua_createtable( L, 0, 0 );
//
lua_pushstring( L, "type" );
lua_pushstring( L, "item" );
lua_settable( L, -3 );
//
lua_pushstring( L, "objectID" );
lua_pushnumber( L, a->gi_array[idx]->objectID );
lua_settable( L, -3 );
//
lua_pushstring( L, "x" );
lua_pushnumber( L, a->gi_array[idx]->x );
lua_settable( L, -3 );
lua_pushstring( L, "y" );
lua_pushnumber( L, a->gi_array[idx]->y );
lua_settable( L, -3 );
lua_pushstring( L, "z" );
lua_pushnumber( L, a->gi_array[idx]->z );
lua_settable( L, -3 );
//
lua_pushstring( L, "name" );
char itemName[512] = {0};
L2Data_DB_GetItemNamePicByID( a->gi_array[idx]->itemID, itemName, NULL );
lua_pushstring( L, itemName ); // at last
lua_settable( L, -3 );
// item specific
lua_pushstring( L, "itemID" );
lua_pushnumber( L, a->gi_array[idx]->itemID );
lua_settable( L, -3 );
lua_pushstring( L, "stackable" );
lua_pushboolean( L, a->gi_array[idx]->stackable );
lua_settable( L, -3 );
lua_pushstring( L, "count" );
lua_pushnumber( L, (lua_Number)a->gi_array[idx]->count );
lua_settable( L, -3 );
a->Unlock();
} break;
default: lua_pushnil( L ); break;
}
}
else
{
lua_pushnil( L );
}
return 1;
}
// boolean l2c_isCharDead( int objectID )
int l2c_isCharDead( lua_State *L )
{
// get number of arguments
int nArgs = lua_gettop( L );
if( nArgs < 1 ) { lua_pushnil( L ); return 1; }
if( !g_game_client ) { lua_pushnil( L ); return 1; }
// convert 1st argument to number
unsigned int objectID = (unsigned int)lua_tonumber( L, 1 );
L2OBJECT_TYPE objType = L2OT_NONE;
int idx = -1;
int return_value = 1; // default - dead
// find objectID in world
if( WorldObjectTree_GetInfoByObjectID( objectID, &objType, &idx ) )
{
switch( objType )
{
case L2OT_PC:
{
L2Player *pl = chars_array[idx];
if( pl ) return_value = pl->isAlikeDead; // may be alive
} break;
case L2OT_NPC:
{
L2Npc *pnpc = npc_array[idx];
if( pnpc ) return_value = pnpc->isAlikeDead; // may be alive
} break;
default: return_value = 1; break; // items are always "dead"
}
}
lua_pushboolean( L, return_value );
return 1;
}
Reference in New Issue View Git Blame Copy Permalink