ASTUmine

arg = { ... }
length = tonumber(arg[1])
if #arg == 0 then
    length = 1
end
if #arg == 2 then
    up = true
else
    up = false
end
ores = {14, -- Gold
        15, -- Iron
        16, -- Coal
        21, -- Lapis Lazuli
        49, -- Obsidian
        56, -- Dimond
        73, -- Redstone
        129, -- Emerald
        247, -- uranium
        253,
        2501,
        901,
        910}

orex = { nil }
orey = { nil }
orez = { nil }

beenx = { nil }
beeny = { nil }
beenz = { nil }

oredists = { nil }

local mine = true
count = 0
scanned = false
closest = 0
local detectID = peripheral.wrap("right")

local function isFull()
        for n=16,1,-1 do
                if turtle.getItemCount(n) < 1 then
                        turtle.select(1)
                        return false
                end
        end
        return true
end

local function OreDown()
    if not turtle.detectDown() then
            return false
    end
    id = detectID.IDetectDown()
    num = #ores
    for i = 1,num do
        test = ores[i]
        if (id == test) then
            return true
        end
    end
    return false
end

local function OreUp()
    if not turtle.detectUp() then
            return false
    end
    id = detectID.IDetectUp()
    num = #ores
    for i = 1,num do
        test = ores[i]
        if (id == test) then
            return true
        end
    end
    return false
end

local function OreNorth()
    capi.facef(2)
    if not turtle.detect() then
            return false
    end
    id = detectID.IDetect()
    num = #ores
    for i = 1,num do
        test = ores[i]
        if (id == test) then
            return true
        end
    end
    return false
end

local function OreSouth()
    capi.facef(0)
    if not turtle.detect() then
            return false
    end
    id = detectID.IDetect()
    num = #ores
    for i = 1,num do
        test = ores[i]
        if (id == test) then
            return true
        end
    end
    return false
end

local function OreEast()
    capi.facef(3)
    if not turtle.detect() then
            return false
    end
    id = detectID.IDetect()
    num = #ores
    for i = 1,num do
        test = ores[i]
        if (id == test) then
            return true
        end
    end
    return false
end

local function OreWest()
    capi.facef(1)
    if not turtle.detect() then
            return false
    end
    id = detectID.IDetect()
    num = #ores
    for i = 1,num do
        test = ores[i]
        if (id == test) then
            return true
        end
    end
    return false
end

local function Scan()
    scanned = true
    x,z,y,f = capi.relpos()
    if OreUp() then
        n = table.maxn(orex)
        scanned = false
        for i = 1,n do
            if ((orex[i] == x) and (orey[i] == y) and (orez[i] == z+1)) then
                scanned = true
            end
        end
        if not scanned then
            table.insert(orex, x)
            table.insert(orey, y)
            table.insert(orez, z+1)
        end
    end
    if OreDown() then
        n = table.maxn(orex)
        scanned = false
        for i = 1,n do
            if ((orex[i] == x) and (orey[i] == y) and (orez[i] == z-1)) then
                scanned = true
            end
        end
        if not scanned then
            table.insert(orex, x)
            table.insert(orey, y)
            table.insert(orez, z-1)
        end
    end
    if  OreSouth() then
        n = table.maxn(orex)
        scanned = false
        for i = 1,n do
            if ((orex[i] == x) and (orey[i] == y+1) and (orez[i] == z)) then
                scanned = true
            end
        end
        if not scanned then
            table.insert(orex, x)
            table.insert(orey, y+1)
            table.insert(orez, z)
        end
    end
    if  OreWest() then
        n = table.maxn(orex)
        scanned = false
        for i = 1,n do
            if ((orex[i] == x-1) and (orey[i] == y) and (orez[i] == z)) then
                scanned = true
            end
        end
        if not scanned then
            table.insert(orex, x-1)
            table.insert(orey, y)
            table.insert(orez, z)
        end
    end
    if OreNorth() then
        n = table.maxn(orex)
        scanned = false
        for i = 1,n do
            if ((orex[i] == x) and (orey[i] == y-1) and (orez[i] == z)) then
                scanned = true
            end
        end
        if not scanned then
            table.insert(orex, x)
            table.insert(orey, y-1)
            table.insert(orez, z)
        end
    end
    if  OreEast() then
        n = table.maxn(orex)
        scanned = false
        for i = 1,n do
            if ((orex[i] == x+1) and (orey[i] == y) and (orez[i] == z)) then
                scanned = true
            end
        end
        if not scanned then
            table.insert(orex, x+1)
            table.insert(orey, y)
            table.insert(orez, z)
        end
    end
    if orex[1] == nil then
        return false
    end
    capi.facef(f)
    return true
    end

function Mine()
    Scan()
    n = table.maxn(orex)
    if orex[1] == nil then
        return false
    end
    while n > 0 do
        k = 1
        for i = 1,n do
            oredists[i] = capi.distance(orex[i], orey[i], orez[i], false)
        end
        for j = 1,(n-1) do
            if oredists[k] ~= nil then
                if oredists[j] < oredists[k] then
                    k = j
                end
            end
        end
        capi.CartesiangoTo(tonumber(orex[k]), tonumber(orey[k]), tonumber(orez[k]))
        count = count + 1
        table.remove(orex, k)
        table.remove(orey, k)
        table.remove(orez, k)
        table.remove(oredists, k)
        Scan()
        n = table.maxn(orex)
    end
    return true
end

capi.safeMove(false)
capi.zeropos()
capi.facef(2)
capi.chestlocation()
capi.facef(0)
for j = 1,length do
    Mine()
    if up then
        turtle.digUp()
    end
    capi.CartesiangoTo(0,j,0)
end
capi.CartesiangoTo(0,0,0)
print("mined "..count.." ore")
capi.returnsupplies()

 capi.safeMove(true)