Miner.lua (master)

local function find(itemName)
    for curSlot = 1,16 do
        if turtle.getItemCount(curSlot) >= 1 then
            local data = turtle.getItemDetail(curSlot)
            if data.name == itemName then
                return curSlot
            end
        end
    end
    return false
end

local function pickSong()
    song = math.random(2)
    if song == 1 then
        return "hi ho"
    elseif song == 2 then
        return "gold"
    end
end

local function hi_ho(dist, voicebox)
    local line = dist % 19
    if line == 0 then
        voicebox.speak("Hi ho, hi ho")
    elseif line == 1 then
        voicebox.speak("It's off to work I go")
    elseif line == 2 then
        voicebox.speak("I dig dig dig dig dig dig dig")
    elseif line == 3 then
        voicebox.speak("in a mine the whole day through")
    elseif line == 4 then
        voicebox.speak("To dig dig dig dig dig dig dig")
    elseif line == 5 then
        voicebox.speak("Is what I'm made to do")
    elseif line == 6 then
        voicebox.speak("It ain't no trick to get rich quick")
    elseif line == 7 then
        voicebox.speak("If you dig dig dig with a shovel or a pick")
    elseif line == 8 then
        voicebox.speak("In a mine, in a mine")
    elseif line == 9 then
        voicebox.speak("In a mine, in a mine")
    elseif line == 10 then
        voicebox.speak("Where a million diamonds shine")
    elseif line == 11 then
        voicebox.speak("I dig dig dig dig dig dig dig")
    elseif line == 12 then
        voicebox.speak("from early morn to night")
    elseif line == 13 then
        voicebox.speak("I dig dig dig dig dig dig dig")
    elseif line == 14 then
        voicebox.speak("up everything in sight")
    elseif line == 15 then
        voicebox.speak("I dig up diamonds by the score")
    elseif line == 16 then
        voicebox.speak("A thousand emeralds, sometimes more")
    elseif line == 17 then
        voicebox.speak("I don't know what we dig them for")
    elseif line == 18 then
        voicebox.speak("I dig dig digga dig dig")
    end
end

local function traditionaDwarfishSong(voicebox)
    voicebox.speak("gold, gold, gold, gold")
end

local function sing(song, dist, voicebox)
    if song == "hi ho" then
        hi_ho(dist,voicebox)
    elseif song == "gold" then
        traditionaDwarfishSong(voicebox)
    end
end

local tArgs = { ... }
if #tArgs ~= 1 then
    print( "Usage: miner <distance>" )
    return
end

local maxDist = tonumber( tArgs[1] )
if maxDist < 1 then
    print( "Distance must be positive" )
    return
end

local function getFreeInventorySpace()
    local freeSpace = 16
    for curSlot = 1,16 do
        if turtle.getItemCount(curSlot) ~= 0 then
            freeSpace = freeSpace - 1
        end
    end
    return freeSpace
end

local function sortInventory()
    local inventory = {}
    for curSlot=1,16 do
        if turtle.getItemCount(curSlot) ~= 0 then
            inventory[curSlot] = turtle.getItemDetail(curSlot)
        else
            inventory[curSlot] = "empty"
        end
    end
    for slotA=1,16 do
        if inventory[slotA] ~= "empty" then
            for slotB=1,16 do
                if inventory[slotB] ~= "empty" then
                    if slotA ~= slotB then
                        if (inventory[slotA].name == inventory[slotB].name) and (inventory[slotA].damage == inventory[slotB].damage) then
                            if inventory[slotA].count + inventory[slotB].count <= 64 then
                                turtle.select(slotB)
                                turtle.transferTo(slotA)
                                inventory[slotB] = "empty"
                            end
                        end
                    end
                end
            end
        end
    end
end

local function digAround()
    while turtle.detectUp() do
        turtle.digUp()
    end
    if turtle.detectDown() then
        local success, data = turtle.inspectDown()
        if success then
            if not (data.name == "minecraft:cobblestone") and not (data.name == "minecraft:stone") and not (data.name == "minecraft:sand") and not (data.name == "minecraft:dirt") and not (data.name == "minecraft:gravel") and not (data.name == "chisel:marble2") and not (data.name == "chisel:limestone2") then
                turtle.digDown()
            end
        end

    end
    if find("minecraft:cobblestone") then
        turtle.select(find("minecraft:cobblestone"))
        turtle.placeDown()
    elseif find("minecraft:stone") then
        turtle.select(find("minecraft:stone"))
        turtle.placeDown()
    end
end

local function checkFuel(level)
    if (turtle.getFuelLevel() <= level) and (find("minecraft:coal")) then
        turtle.select(find("minecraft:coal"))
        turtle.refuel(1)
    end
end

local function returnToStart(travelled, continue)
    if continue then
        print("Returning to deposit items, then continuing")
    else
        print("Returning to deposit items; job done")
    end
    turtle.turnLeft()
    turtle.turnLeft()
    for curDist=0,travelled do
        checkFuel(10)
        local success, data = turtle.inspect()
        if success then
            if data.name ~= "minecraft:chest" then
                while not turtle.forward() do
                    turtle.dig()
                end
            end
        else
            while not turtle.forward() do
                turtle.dig()
            end
        end
    end

    local success, data = turtle.inspect()
    if success then
        if data.name == "minecraft:chest" then
            for curSlot = 1,16 do
                if turtle.getItemCount(curSlot) ~= 0 then
                    block = turtle.getItemDetail(curSlot)
                    if (block.name ~= "minecraft:coal") and (block.name ~= "minecraft:torch") and (block.name ~= "tconstruct:stone_torch") then
                        turtle.select(curSlot)
                        turtle.drop()
                    end
                end
            end
        end
    end

    if continue then
        turtle.turnLeft()
        turtle.turnLeft()
        for curDist=0,travelled-1 do
            checkFuel(10)
            local success, data = turtle.inspect()
            if success then
                if data.name ~= "minecraft:chest" then
                    while not turtle.forward() do
                        turtle.dig()
                    end
                end
            else
                while not turtle.forward() do
                    turtle.dig()
                end
            end
        end
    end
end

local travelDist = 0
local vocal = peripheral.find("speaker")
local song = pickSong()

while travelDist <= maxDist do
    sing(song,travelDist,vocal)
    checkFuel(10)
    if (find("minecraft:torch") == false) and (find("tconstruct:stone_torch") == false) then
        break
    end
    sortInventory()
    if getFreeInventorySpace() <= 1 then
        returnToStart(travelDist,true)
    end
    digAround()
    turtle.turnLeft()
    while not turtle.forward() do
        turtle.dig()
    end
    digAround()
    turtle.turnRight()
    turtle.turnRight()
    turtle.forward()
    while not turtle.forward() do
        turtle.dig()
    end
    digAround()
    turtle.turnLeft()
    turtle.turnLeft()
    turtle.forward()
    if (travelDist % 6 == 0) and ((find("minecraft:torch")) or (find("tconstruct:stone_torch"))) then
        if find("tconstruct:stone_torch") then
            turtle.select(find("tconstruct:stone_torch"))
        else
            turtle.select(find("minecraft:torch"))
        end
        turtle.place()
    end
    turtle.turnRight()
    if travelDist <= maxDist then
        while not turtle.forward() do
            turtle.dig()
        end
        travelDist = travelDist + 1
    end
end

returnToStart(travelDist,false)