CC OreFinder

p=peripheral.wrap("left")

s=peripheral.wrap("right")

maxDmg=249

whitelist="appliedenergistics2:quartz_ore/0thermalfoundation:ore/0thermalfoundation:ore/1"

blocks={}

nesw={"north","east","south","west"}

neswNum={}

neswNum["north"]=1

neswNum["east"]=2

neswNum["south"]=3

neswNum["west"]=4

neiCoords={{x=1,y=0,z=0},{x=-1,y=0,z=0},{x=0,y=1,z=0},{x=0,y=-1,z=0},{x=0,y=0,z=1},{x=0,y=0,z=-1}}

neswChart={north={north=0,east=1,south=2,west=3},east={north=3,east=0,south=1,west=2},south={north=2,east=3,south=0,west=1},west={north=1,east=2,south=3,west=0}}

function fingerprint(block)

    return block.name.."/"..block.metadata

 

function equip(slot)

if turtle.getSelectedSlot()~=slot then

    turtle.select(slot)

turtle.equipLeft()

 

function sDig()

    while turtle.detectUp() do

        turtle.digUp()

    end

    while turtle.detect() do

        --p.swing()

        turtle.dig()

    end

    while turtle.detectDown() do

        turtle.digDown()

    end

 

function sDigUp()

    if turtle.getItemDetail(1) ~=nil then

        if turtle.getItemDetail(1).damage < maxDmg and string.find(turtle.getItemDetail(1).name,"pickaxe") then

            while turtle.detectUp() do

                p.swing()

            end

        end

    end

 

function getDistance(b)

    return math.pow(posify(b.x)+posify(b.y)+posify(b.z),0.5)

 

function sort(a,b)

    return getDistance(a)<getDistance(b)

 

function posify(val)

    return math.sqrt(val*val)

 

function getFacing()

    rotate={x=1,z=1}

    blocks=s.scan()

    facing=blocks[#blocks/2+0.5].state.facing

    if facing=="south" then rotate.z=-1 end

    if facing=="west" then rotate.x=-1 end

    return rotate, facing

 

function getOres()

    blocks=s.scan()

    ores={}

    for i=1,#blocks do

        if string.find(whitelist,fingerprint(blocks[i]))~=nil then

            table.insert(ores,blocks[i])

        end

    end

    table.sort(ores,sort)

    print(fingerprint(ores[1]))

    return ores

 

function goToBlock(block)

    path=""

    r = getFacing()

    if block.x~=0 then

        if block.x>0 then

            path=path.."e"

            path=path..string.rep("kf",block.x)

        end

        if block.x<0 then

            path=path.."w"..string.rep("kf",posify(block.x))

        end

    end

    if block.z~=0 then

        if block.z>0 then

            path=path.."s"..string.rep("kf",block.z)

        end

        if block.z<0 then

            path=path.."n"..string.rep("kf",posify(block.z))

        end

    end

    if block.y~=0 then

        if block.y>0 then

            path=path..string.rep("ju",block.y)

        end

        if block.y<0 then

            path=path..string.rep("gd",posify(block.y))

        end

    end

    executeDrive(path)

 

function sTurn(val)

    if val==1 or val=="right" then

        turtle.turnRight()

    end

    if val==2 or val=="back" then

        turtle.turnLeft()

        turtle.turnLeft()

    end

    if val==3 or val=="left" then

        turtle.turnLeft()

    end

    if val=="north" or val=="east" or val=="south" or val=="west" then

        getFacing()

        sTurn(neswChart[facing][val])

    end

 

function executeDrive(path)

    print(path)

    for ip=1,#path do

        lts=string.sub(path,ip,ip)

        if lts=="f" then turtle.forward() end

        if lts=="u" then turtle.up() end

        if lts=="d" then turtle.down() end

        if lts=="b" then sForward(-1) end

        if lts=="r" then sTurn(1) end

        if lts=="l" then sTurn(3) end

        if lts=="n" then sTurn("north") end

        if lts=="s" then sTurn("south") end

        if lts=="e" then sTurn("east") end

        if lts=="w" then sTurn("west") end

        if lts=="k" then turtle.dig() end

        if lts=="j" then turtle.digUp() end

        if lts=="g" then turtle.digDown() end

        if lts=="p" then

            while turtle.placeDown()==false do

                sleep(waitDelay)

            end

        end

    end

 

function dump()

    if turtle.getItemCount(16)>0 then

        turtle.select(1)

        turtle.placeUp()

        for ic=2,16 do

            turtle.select(ic)

            turtle.dropUp()

        end

        turtle.select(1)

        turtle.digDown()

    end

 

function getNeighbors(block,blocks)

    nei={}

    for i=1,#blocks do

        if blocks[i].name=="minecraft:air" then

            if blocks[i].x==neiCoords[1].x and blocks[i].y==neiCoords[1].y and blocks[i].z==neiCoords[1].z or blocks[i].x==neiCoords[2].x and blocks[i].y==neiCoords[2].y and blocks[i].z==neiCoords[2].z or blocks[i].x==neiCoords[3].x and blocks[i].y==neiCoords[3].y and blocks[i].z==neiCoords[3].z or blocks[i].x==neiCoords[4].x and blocks[i].y==neiCoords[4].y and blocks[i].z==neiCoords[4].z or blocks[i].x==neiCoords[5].x and blocks[i].y==neiCoords[5].y and blocks[i].z==neiCoords[5].z or blocks[i].x==neiCoords[6].x and blocks[i].y==neiCoords[6].y and blocks[i].z==neiCoords[6].z then

                table.insert(nei,blocks[i])

            end

        end

       

    end

 

function mineStuff()

    while #getOres()>0 do

        ores=getOres()

        if #ores>0 then

            print(ores[1].x.."/"..ores[1].y.."/"..ores[1].z.."/"..ores[1].name.."/"..getDistance(ores[1]))

            goToBlock(ores[1])

            dump()

        else

            executeDrive("df")

        end

    end

mineStuff()