table.Spilt + garrysmod

local table = table
local math = math
local pairs = pairs

local clamp = math.Clamp
local count = table.Count

function table.SplitByCount(tbl, sli)
    if !tbl then print("table.SplitByCount failed table argument wasn't provided.") return end
    if !sli then print("table.SplitByCount failed slices argument wasn't provided.") return end

    local num = count(tbl) / sli
    local oldTable, newTable = tbl, {}

    tbl = {}

    for k, v in pairs(oldTable) do
        tbl[1 + count(tbl)] = { key = k, value = v }
    end

    local _num = 1
    for i = 1, num do
        for _i = 1, sli do
            if !newTable[_i] then newTable[_i] = {} end

            if tbl[_num] then
                newTable[_i][tbl[_num].key] = tbl[_num].value
                _num = _num + 1
            end
        end
    end

    return newTable
end