digpaste.lua

-- Dig Dense Construction Paste from Building Gadgets
-- pastebin get 27YjaxJh digpaste


function stringhas( s, pattern )
local found = false
    local anfang, ende = string.find( s, pattern, 1, true )
    if  ( anfang ~= nil ) then
        found = true
    end
return found
end


function Check( pattern )
local found = false
local detect, what = turtle.inspect()
if detect then
    if stringhas( what.name, pattern ) then
        found = true
    end
end
return found
end


if os.getComputerLabel() == nil then
  os.setComputerLabel("ConstructionPasteDigger")
end

-- copy this program to startup when its not "startup"
-- to make it resistant against chunk reloads (ie return from nether)

me = fs.getName( shell.getRunningProgram() )

if( me ~=  "startup") then
    print( "Overwriting startup with "..me )
    if( fs.exists("startup") ) then
        fs.delete("startup")
    end
    fs.copy( me, "startup" )
end

while true do

signal = false

-- prevent "Too long without yielding error" by sleeping

sleep( 0.5 )

if signal == false then signal = rs.getInput("top") end
if signal == false then signal = rs.getInput("front") end
if signal == false then signal = rs.getInput("left") end
if signal == false then signal = rs.getInput("right") end
if signal == false then signal = rs.getInput("back") end
if signal == false then signal = rs.getInput("bottom") end


if signal == false then

if turtle.detect() then

    if Check( "construction_block_dense" ) then


        turtle.dig()
        turtle.dropUp()

    end

else

-- prevent "Too long without yielding error" by sleeping

 sleep(0.5)

end
end
end