if AIO.AddAddon() then
    local i = 0
    local function MsgOrderTest(player, x)
        if i ~= x then
            print("i~=x: "..tostring(i).." "..tostring(x))
        end
        i = i+1
    end
    AIO.RegisterEvent("MsgOrderTest", MsgOrderTest)

    -- test client->server
    for x = 0, 100000 do
        AIO.Msg():Add(x):Send()
    end
else
    local i = 0
    local function MsgOrderTest(player, x)
        if i ~= x then
            error("i~=x: "..tostring(i).." "..tostring(x))
        end
        i = i+1
    end
    AIO.RegisterEvent("MsgOrderTest", MsgOrderTest)

    -- test server->client
    local function OnLogin(msg, p)
        p:RegisterEvent(function(_,_,_,player)
            for x = 0, 100000 do
                AIO.Msg():Add(x):Send(player)
            end
        end, 0, 1)
    end
    AIO.AddOnInit(OnLogin)
end