140 lines
3.7 KiB
C++
140 lines
3.7 KiB
C++
#include "stdafx.h"
|
|
#include "../Logger.h"
|
|
#include "../lua/lua.hpp"
|
|
#include "../ScriptEngine.h"
|
|
|
|
// "system" functions
|
|
// âûçûâàåòñÿ ñêðèïòîì, ïðîâåðÿåò, äîëæåí ëè ñêðèïò îñòàíîâèòüñÿ
|
|
int sys_should_exit( lua_State *L )
|
|
{
|
|
ScriptEngine *se = ScriptEngine::getInstance();
|
|
if( !se )
|
|
{
|
|
log_error( LOG_ERROR, "sys_should_exit(): ScriptEngine ptr == NULL!\n" );
|
|
lua_pushboolean( L, 1 );
|
|
return 1;
|
|
}
|
|
if( se->should_stop ) lua_pushboolean( L, 1 );
|
|
else lua_pushboolean( L, 0 );
|
|
return 1; // âîçâðàùàåò îäíî çíà÷åíèå
|
|
}
|
|
|
|
// sys_register_onChat( function_name )
|
|
// ðåãèñòðèðóåò ôóíêöèþ function_name êàê îáðàáîò÷èê ÷àò-ñîîáùåíèé
|
|
// îáðàáîò÷èê äîëæåí èìåòü ïðîòîòèï Lua
|
|
// function onChat( senderObjectID, chatChannelID, chatText, senderName )
|
|
int sys_register_onChat( lua_State *L )
|
|
{
|
|
ScriptEngine *se = ScriptEngine::getInstance();
|
|
if( se == NULL )
|
|
{
|
|
log_error( LOG_ERROR, "sys_register_onChat(): ptr to ScriptEngine == NULL!\n" );
|
|
return 0;
|
|
}
|
|
// ïîëó÷èì ïåðâûé àðóìåíò Lua ôóíêöèè sys_register_onChat êàê ñòðîêó
|
|
const char *funcName = lua_tolstring( L, 1, NULL );
|
|
// funcName ìîæåò áûòü NULL, åñëè ïåðâûé àðãóìåíò íå áûë ñòðîêîé. òîãäà îáðàáîò÷èê îòìåíèòñÿ
|
|
// çàðåãàåì îáðàáîò÷èê
|
|
se->set_onChat_handler( funcName );
|
|
return 0;
|
|
}
|
|
|
|
|
|
// âûâîäèò â ëîã (è òàêæå â êîíñîëü) ñïèñîê çíà÷åíèé, ðàçäåëåíûõ çàïÿòûìè
|
|
int l2h_print( lua_State *L )
|
|
{
|
|
int nArgs = lua_gettop( L );
|
|
if( nArgs > 0 )
|
|
{
|
|
int i;
|
|
for( i=1; i<=nArgs; i++ )
|
|
{
|
|
int typ = lua_type( L, i );
|
|
switch( typ )
|
|
{
|
|
case LUA_TNIL: log_error_np( LOG_OK, "NULL" ); break;
|
|
case LUA_TNUMBER:
|
|
{
|
|
double d = lua_tonumber( L, i );
|
|
double floor_d = floor( d * 100 ); // 10012.00
|
|
__int64 int_d = (__int64)floor_d; // 10012
|
|
__int64 eds_cnt = int_d % 100; // 12
|
|
if( eds_cnt ) log_error_np( LOG_OK, "%0.2f", d ); // original double
|
|
else log_error_np( LOG_OK, "%I64d", int_d/100 ); // rounded integer
|
|
} break;
|
|
case LUA_TBOOLEAN:
|
|
{
|
|
lua_toboolean( L, i ) ? log_error_np( LOG_OK, "true" ) : log_error_np( LOG_OK, "false" );
|
|
} break;
|
|
case LUA_TSTRING: log_error_np( LOG_OK, "%s", lua_tostring( L, i ) ); break;
|
|
case LUA_TTABLE: { log_error_np( LOG_OK, "(table)" ); /*lua_pop( L, i );*/ } break;
|
|
case LUA_TFUNCTION: { log_error_np( LOG_OK, "(function)" ); /*lua_pop( L, i );*/ } break;
|
|
default: lua_pop( L, i ); break;
|
|
}
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int l2h_console_enable( lua_State *L )
|
|
{
|
|
int n = lua_gettop( L ); // number of arguments
|
|
if( n > 0 )
|
|
{
|
|
if( lua_type( L, 1 ) == LUA_TBOOLEAN )
|
|
{
|
|
int enable = lua_toboolean( L, 1 );
|
|
ErrorLogger_EnableLoggingToConsole( enable ? true : false );
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int l2h_delay( lua_State *L )
|
|
{
|
|
int n = lua_gettop( L ); // number of arguments
|
|
//log_error_np( LOG_OK, "delay_lua: %d args\n", n );
|
|
if( n >= 1 )
|
|
{
|
|
if( lua_type( L, 1 ) == LUA_TNUMBER )
|
|
{
|
|
int msec = (int)lua_tonumber( L, 1 );
|
|
//log_error_np( LOG_OK, "delay_lua( %d );\n", msec );
|
|
Sleep( (DWORD)msec );
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
int l2h_soundAlert( lua_State *L )
|
|
{
|
|
int nArgs = lua_gettop( L );
|
|
TCHAR fileName[256] = {0};
|
|
if( nArgs == 0 )
|
|
{
|
|
GetWindowsDirectory( fileName, 255 );
|
|
_tcscat( fileName, _T("\\Media\\ringin.wav") );
|
|
}
|
|
else
|
|
{
|
|
const char *astr = lua_tolstring( L, 1, NULL );
|
|
MultiByteToWideChar( CP_ACP, 0, astr, -1, fileName, 255 );
|
|
}
|
|
PlaySound( fileName, NULL, SND_FILENAME|SND_ASYNC );
|
|
return 0;
|
|
}
|
|
|
|
int l2h_time( lua_State *L )
|
|
{
|
|
unsigned int secs = (unsigned int)time( NULL );
|
|
lua_pushnumber( L, secs );
|
|
return 1;
|
|
}
|
|
|
|
int l2h_timeMsec( lua_State *L )
|
|
{
|
|
unsigned int msecs = GetTickCount();
|
|
lua_pushnumber( L, msecs );
|
|
return 1;
|
|
}
|