static int timerfirsttread = 0; // таймер для первого потока.
void LUAHook(lua_State* L, lua_Debug* ar)
{
    timerfirsttread++;
    if (timerfirsttread > 16) //сколько будет работать первый поток.
    {
        timerfirsttread = 0;
        lua_yield(L, 0);
    }
};

int my_yield(lua_State* L)
{
    int args = lua_gettop(L);
    args++;
    lua_State* L1 = lua_newthread(L);
    lua_pushthread(L1);
    return lua_yield(L, args);
    /* Когда функция C вызывает lua_yield таким образом, запущенная сопрограмма приостанавливает
    свое выполнение, и вызов lua_resume этой запущенной процедуры возвращается. */
};

int yield(lua_State* L)
{
    return lua_yield(L, 0);
    /* Параметр res - это число значений из стека,
    которые передаются как результаты lua_resume. */
};

const char* LUA = R"(
function foo(x)
    x = x or 3
    print(" func foo "..x.. " \n")
    for i = 1, x do
        print(" func foo "..i.."\n")
        yield()
    end
end

function main()
    for i = 1, 320 do
        x = i * 6
        print(" func main "..i.."\n")
        if i == 1 then
            my_yield(foo,40)
        end
    end
end
)";

int main(int argc, char* argv[])
{
    lua_State* L = luaL_newstate(); /*Функция создает новое Lua состояние. Она вызывает lua_newstate с функцией-*/
    luaL_openlibs(L);
    lua_State* L1 = NULL;
    lua_register(L, "my_yield", my_yield);
    lua_register(L, "yield",  yield);
    cout << "\n";
    checkerror(L, LUA);
    lua_getglobal(L, "main");
    lua_resume(L, NULL, 0); /* Запускает и продолжает сопрограмму в данном потоке L. */
    L1 = lua_tothread(L, -1);
    lua_pop(L, 1);
    lua_xmove(L, L1, lua_gettop(L));
    lua_remove(L1, 1);
    int args = lua_gettop(L1); // cout << args << endl; //Аргументы.

    for (int i = 1; i > args; i++)
    {
        lua_pushvalue(L1, i);
    }

    args--;

    res1 = lua_resume(L1, L, args);    
    lua_xmove(L, L1, 1);

    while (LUA_OK != lua_status(L)) //пока поток main не завершен.    
    {
        if (LUA_YIELD == lua_status(L1)) //если поток 2 на паузе.
        {
            lua_sethook(L, LUAHook, LUA_MASKCOUNT, 6); //Пауза после 6 итерации.
            lua_resume(L, L1, 0); //main
        }

        if (LUA_YIELD == lua_status(L)) //если поток main на паузе.
        {
            lua_sethook(L, LUAHook, LUA_MASKCOUNT, 0); //отключить хук.
            lua_resume(L1, L, 0); //foo
        }

        if (LUA_OK == lua_status(L1)) //если поток foo  завершен.
        {
            lua_sethook(L, LUAHook, LUA_MASKCOUNT, 0); //отключить хук.
            lua_resume(L, NULL, 0);
            lua_settop(L1, 0);
        }

        if (LUA_OK == lua_status(L)) //если поток main  завершен.    
        {
            break;
        }
    };

    lua_close(L);
    return 0;
};