int CLuaFunctionDefs::GetKeyBoundToFunction ( lua_State* luaVM )
{
    SString strKey = "", strHitState = "";
    CScriptArgReader argStream ( luaVM );

    CLuaMain* pLuaMain = m_pLuaManager->GetVirtualMachine ( luaVM );
    if ( pLuaMain )
    {
        if ( argStream.NextIsFunction ( ) )
        {
            CLuaFunctionRef iLuaFunction = luaM_toref ( luaVM, 1 );
            // get the key
            list < CScriptKeyBind* > ::const_iterator iter =  m_pClientGame->GetScriptKeyBinds ()->IterBegin ();
            for ( ; iter !=  m_pClientGame->GetScriptKeyBinds ()->IterEnd (); iter++ )
            {
                CScriptKeyBind* pScriptKeyBind = *iter;
                if ( !pScriptKeyBind->IsBeingDeleted () )
                {
                    switch ( pScriptKeyBind->GetType () )
                    {
                        case SCRIPT_KEY_BIND_FUNCTION:
                        {
                            CScriptKeyFunctionBind* pBind = static_cast < CScriptKeyFunctionBind* > ( pScriptKeyBind );
                            // ACHTUNG: DOES IT FIND THE CORRECT LUA REF HERE?
                            if ( iLuaFunction == pBind->m_iLuaFunction )
                            {
                                lua_pushstring ( luaVM, pBind->boundKey->szKey );
                                return 1;
                            }
                            break;
                        }
                        case SCRIPT_KEY_BIND_CONTROL_FUNCTION:
                        {
                            CScriptControlFunctionBind* pBind = static_cast < CScriptControlFunctionBind* > ( pScriptKeyBind );
                            // ACHTUNG: DOES IT FIND THE CORRECT LUA REF HERE?
                            if ( iLuaFunction == pBind->m_iLuaFunction )
                            {
                                lua_pushstring ( luaVM, pBind->boundControl->szControl );
                                return 1;
                            }
                            break;
                        }
                        default:
                            break;
                    }
                }
            }
            lua_pushboolean ( luaVM, false );
            return 1;
        }
        else
            m_pScriptDebugging->LogBadType ( luaVM );
    }
    lua_pushboolean ( luaVM, false );
    return 1;
}
示例#2
0
bool CScriptKeyBinds::ProcessKey ( const char* szKey, bool bHitState, eScriptKeyBindType bindType )
{
    m_bProcessingKey = true;
    SScriptBindableKey * pKey = NULL;
    SScriptBindableGTAControl * pControl = NULL;
    if ( bindType == SCRIPT_KEY_BIND_FUNCTION )
    {
        pKey = GetBindableFromKey ( szKey );
        if ( !pKey )
            return false;
    }
    else if ( bindType == SCRIPT_KEY_BIND_CONTROL_FUNCTION )
    {
        pControl = GetBindableFromControl ( szKey );
        if ( !pControl )
            return false;
    }

    bool bFound = false;
    CScriptKeyBind * pKeyBind = NULL;
    list < CScriptKeyBind* > cloneList = m_List;
    list < CScriptKeyBind* > ::iterator iter = cloneList.begin ();
    for ( ; iter != cloneList.end () ; ++iter )
    {
        pKeyBind = *iter;
        if ( !pKeyBind->IsBeingDeleted () && pKeyBind->GetType () == bindType )
        {
            switch ( bindType )
            {
                case SCRIPT_KEY_BIND_FUNCTION:
                {
                    CScriptKeyFunctionBind* pBind = static_cast < CScriptKeyFunctionBind* > ( pKeyBind );
                    if ( pBind->boundKey == pKey )
                    {
                        if ( pBind->bHitState == bHitState )
                        {
                            Call ( pBind );
                            bFound = true;
                        }
                    }

                    break;
                }
                case SCRIPT_KEY_BIND_CONTROL_FUNCTION:
                {
                    CScriptControlFunctionBind* pBind = static_cast < CScriptControlFunctionBind* > ( pKeyBind );
                    if ( pBind->boundControl == pControl )
                    {
                        if ( pBind->bHitState == bHitState )
                        {
                            Call ( pBind );                            
                            bFound = true;
                        }
                    }

                    break;
                }
            }
        }
    }
    m_bProcessingKey = false;
    RemoveDeletedBinds ();
    return bFound;
}
int CLuaFunctionDefs::GetFunctionsBoundToKey ( lua_State* luaVM )
{
    SString strKey = "", strHitState = "";
    CScriptArgReader argStream ( luaVM );
    argStream.ReadString ( strKey );
    argStream.ReadString ( strHitState, "" );

    if ( !argStream.HasErrors ( ) )
    {
        CLuaMain* pLuaMain = m_pLuaManager->GetVirtualMachine ( luaVM );
        if ( pLuaMain )
        {
            const char* szHitState = strHitState == "" ? NULL : strHitState.c_str();

            bool bCheckHitState = false, bHitState = true;
            if ( szHitState )
            {
                if ( stricmp ( szHitState, "down" ) == 0 )
                    bCheckHitState = true, bHitState = true;
                else if ( stricmp ( szHitState, "up" ) == 0 )
                    bCheckHitState = true, bHitState = false;
            }

            // Create a new table
            lua_newtable ( luaVM );

            // Add all the bound functions to it
            unsigned int uiIndex = 0;
            list < CScriptKeyBind* > ::const_iterator iter = m_pClientGame->GetScriptKeyBinds ()->IterBegin ();
            for ( ; iter != m_pClientGame->GetScriptKeyBinds ()->IterEnd (); iter++ )
            {
                CScriptKeyBind* pScriptKeyBind = *iter;
                if ( !pScriptKeyBind->IsBeingDeleted () )
                {
                    switch ( pScriptKeyBind->GetType () )
                    {
                        case SCRIPT_KEY_BIND_FUNCTION:
                        {
                            CScriptKeyFunctionBind* pBind = static_cast < CScriptKeyFunctionBind* > ( pScriptKeyBind );
                            if ( !bCheckHitState || pBind->bHitState == bHitState )
                            {
                                if ( strcmp ( strKey, pBind->boundKey->szKey ) == 0 )
                                {
                                    lua_pushnumber ( luaVM, ++uiIndex );
                                    lua_rawgeti ( luaVM, LUA_REGISTRYINDEX, pBind->m_iLuaFunction.ToInt () );
                                    lua_settable ( luaVM, -3 );
                                }
                            }
                            break;
                        }
                        case SCRIPT_KEY_BIND_CONTROL_FUNCTION:
                        {
                            CScriptControlFunctionBind* pBind = static_cast < CScriptControlFunctionBind* > ( pScriptKeyBind );
                            if ( !bCheckHitState || pBind->bHitState == bHitState )
                            {
                                if ( strcmp ( strKey, pBind->boundControl->szControl ) == 0 )
                                {
                                    lua_pushnumber ( luaVM, ++uiIndex );
                                    lua_rawgeti ( luaVM, LUA_REGISTRYINDEX, pBind->m_iLuaFunction.ToInt () );
                                    lua_settable ( luaVM, -3 );
                                }
                            }
                            break;
                        }
                        default:
                            break;
                    }
                }
            }
            return 1;
        }
    }
    else
        m_pScriptDebugging->LogCustom ( luaVM, argStream.GetFullErrorMessage() );

    lua_pushboolean ( luaVM, false );
    return 1;
}
示例#4
0
int CLuaFunctionDefs::GetFunctionsBoundToKey ( lua_State* luaVM )
{
    CLuaMain* pLuaMain = m_pLuaManager->GetVirtualMachine ( luaVM );
    if ( pLuaMain )
    {
        if ( lua_type ( luaVM, 1 ) == LUA_TSTRING )
        {
            const char* szKey = lua_tostring ( luaVM, 1 );
            const char* szHitState = NULL;
            if ( lua_type ( luaVM, 2 ) )
            {
                szHitState = lua_tostring ( luaVM, 2 );
            }

            bool bCheckHitState = false, bHitState = true;
            if ( szHitState )
            {
                if ( stricmp ( szHitState, "down" ) == 0 )
                    bCheckHitState = true, bHitState = true;
                else if ( stricmp ( szHitState, "up" ) == 0 )
                    bCheckHitState = true, bHitState = false;
            }

            // Create a new table
            lua_newtable ( luaVM );

            // Add all the bound functions to it
            unsigned int uiIndex = 0;
            list < CScriptKeyBind* > ::const_iterator iter = m_pClientGame->GetScriptKeyBinds ()->IterBegin ();
            for ( ; iter != m_pClientGame->GetScriptKeyBinds ()->IterEnd (); iter++ )
            {
                CScriptKeyBind* pScriptKeyBind = *iter;
                if ( !pScriptKeyBind->IsBeingDeleted () )
                {
                    switch ( pScriptKeyBind->GetType () )
                    {
                        case SCRIPT_KEY_BIND_FUNCTION:
                        {
                            CScriptKeyFunctionBind* pBind = static_cast < CScriptKeyFunctionBind* > ( pScriptKeyBind );
                            if ( !bCheckHitState || pBind->bHitState == bHitState )
                            {
                                if ( strcmp ( szKey, pBind->boundKey->szKey ) == 0 )
                                {
                                    lua_pushnumber ( luaVM, ++uiIndex );
                                    lua_rawgeti ( luaVM, LUA_REGISTRYINDEX, pBind->m_iLuaFunction );
                                    lua_settable ( luaVM, -3 );
                                }
                            }
                            break;
                        }
                        case SCRIPT_KEY_BIND_CONTROL_FUNCTION:
                        {
                            CScriptControlFunctionBind* pBind = static_cast < CScriptControlFunctionBind* > ( pScriptKeyBind );
                            if ( !bCheckHitState || pBind->bHitState == bHitState )
                            {
                                if ( strcmp ( szKey, pBind->boundControl->szControl ) == 0 )
                                {
                                    lua_pushnumber ( luaVM, ++uiIndex );
                                    lua_rawgeti ( luaVM, LUA_REGISTRYINDEX, pBind->m_iLuaFunction );
                                    lua_settable ( luaVM, -3 );
                                }
                            }
                            break;
                        }
                        default:
                            break;
                    }
                }
            }
            return 1;
        }
        else
            m_pScriptDebugging->LogBadType ( luaVM, "getFunctionsBoundToKey" );
    }

    lua_pushboolean ( luaVM, false );
    return 1;
}