CopyBlock

local p
for i,v in pairs(rs.getSides()) do
    if peripheral.getType(v) == "adventure map interface" then
        p = peripheral.wrap(v)
        break
    end
end

function loadChunk(_x, _y, _z, sx, sy, sz, slow)
    local chunk = {}

    local world = p.getWorld(p.getPeripheralWorldID())
    _x = _x - 1
    _z = _z - 1

    for x = 0, sx-1 do
        chunk[x] = {}
        for y = 0, sy-1 do
            chunk[x][y] = {}
            for z = 0, sz-1 do
                local id = world.getBlockID(x + _x, y + _y, z + _z)
                local md = world.getMetadata(x + _x, y + _y, z + _z)
                chunk[x][y][z] = {id, md}
                if slow and id ~= 0 then
                    world.setBlockWithoutNotify(x + _x, y + _y, z + _z, 0, 0)
                    sleep(0)
                end
            end
        end
    end

    if slow then
        buildChunk(chunk, _x, _y, _z)
    end

    return chunk
end

function buildChunk(chunk, px, py, pz, slow)

    local world = p.getWorld(p.getPeripheralWorldID())

    for x, _y in pairs(chunk) do
        for y, _z in pairs(_y) do
            for z, block in pairs(_z) do
                world.setBlockWithoutNotify(px + x - 1, py + y, pz + z - 1, unpack(block))
                if slow and block[1] ~= 0 then sleep(0) end
            end
        end
    end

end

function clearChunk(_x, _y, _z, sx, sy, sz, slow)
    local world = p.getWorld(p.getPeripheralWorldID())
    _x = _x - 1
    _z = _z - 1

    for x = 0, sx-1 do
        for y = 0, sy-1 do
            for z = 0, sz-1 do
                if slow and world.getBlockID(x + _x, y + _y, z + _z) ~= 0 then
                    sleep(0)
                end
                world.setBlockWithoutNotify(x + _x, y + _y, z + _z, 0, 0)
            end
        end
    end
end