long lwnd  =  MYP2HCAST luaL_optinteger( L,  1 ,  0 ); // раз косяк
        lua_pushnumber( L, ( long) msg.hwnd); // два косяк
        lua_pushnumber( L, msg.wParam); // три косяк
        lua_pushnumber( L, msg.lParam); // четыре косяк

  

static int global_PeekMessage(lua_State *L) {
    MSG msg;
    BOOL rc;
    long lwnd = MYP2HCAST luaL_optinteger( L, 1, 0); // раз косяк
    UINT mfmin = ( UINT) luaL_optinteger( L, 2, 0);
    UINT mfmax = ( UINT) luaL_optinteger( L, 3, 0);
    UINT rmmsg = ( UINT) luaL_optinteger( L, 4, PM_NOREMOVE);

    rc = PeekMessage( &msg, ( HWND) lwnd, mfmin, mfmax, rmmsg);

    lua_pushnumber( L, rc);
    if( rc) {
        lua_pushnumber( L, ( long) msg.hwnd); // два косяк
        lua_pushnumber( L, msg.message);
        lua_pushnumber( L, msg.wParam); // три косяк
        lua_pushnumber( L, msg.lParam); // четыре косяк
        lua_pushnumber( L, msg.time);
        lua_pushnumber( L, msg.pt.x);
        lua_pushnumber( L, msg.pt.y);
    } else {
        lua_pushnil( L);
        lua_pushnil( L);
        lua_pushnil( L);
        lua_pushnil( L);
        lua_pushnil( L);
        lua_pushnil( L);
        lua_pushnil( L);
    }

    return( 8);
}

   switch(msg)
   {
   case WM_QUIK_CLIENT_CONNECT:
      if(connections_allowed)
      {
         HWND hwndClient = (HWND)wparam;
         client_list.push_back(hwndClient);
         SendMessage(hwndClient, WM_QUIK_SERVER_CONNECT, (WPARAM)hwndServer, 0);
      }
      return 0;
   case WM_QUIK_SERVER_STOP:
      connections_allowed = false;
      foreach(hwndClient in client_list)
         SendMessage(hwndClient, WM_QUIK_SERVER_DISCONNECT, (WPARAM)hwndServer, 0);
      client_list.clear();
      DestroyWindow(hwndServer);
      return 0;
   case WM_DESTROY:
      PostQuitMessage(0);
      return 0;
   // и так далее
   }

function OnStop()
  is_run = false
end

function OnParam()
end

function main()
  is_run = true
  a = 0
  while is_run do
    a = a + 1
  end
end

function     OnStop ()
  is_run    =       false
end

function     main ()
  is_run    =       true   
  a   =      0   
  while    is_run    do   
    a   =   a   +      1   
  end   
end