This is the code I have for the excavation program atm, I haven't tested it since cleanup, since my turtles are still excavating using the previous version atm.
I am new to the forums, so I am not familiar with all the programs on here, but I am pretty fond of the simple 'copy/paste' functions I have written below, they are
so much easier to use than the basic API
-- DEFAULT CONFIG OF THIS PROGRAM, THOUGH COMMAND LINE PARAMETERS CAN BE USED
-- FOR THE DIRECTION PARAMETERS USE THE VAlUES DECLARED IN THE COPY/PASTED CODE BELOW
args={...}
numShafts = args[1] or 16
blocksBetweenShafts = args[2] or 3
firstShaftOffset = args[3] or 4
centerRadius = args[4] or 4
numComponents = args[5] or 6
fuelSuckDir = args[6] or 3
fuelDropDir = args[7] or 4
itemDropDir = args[8] or 4
-- START OF COPY/PASTED CODE EXTENDING THE FUNCTIONALITY OF THE BASIC API
-- SOME OF THESE FUNCTIONS MIGHT BE REDUNDANT FOR THIS PROGRAM
forward = 1
back = 2
up = 3
down = 4
right = 5
left = 6
function turnTo(dir)
if dir==back then
turtle.turnLeft()
turtle.turnLeft()
elseif dir==right then
turtle.turnRight()
elseif dir==left then
turtle.turnLeft()
end
end
function turnFrom(dir)
if dir==back then
turtle.turnLeft()
turtle.turnLeft()
elseif dir==right then
turtle.turnLeft()
elseif dir==left then
turtle.turnRight()
end
end
function turnedDir(dir)
if dir==right or dir==left or dir==back then
return forward
else
return dir
end
end
function reverseDir(dir)
if dir==forward then
return back
elseif dir==back then
return forward
elseif dir==up then
return down
elseif dir==down then
return up
elseif dir==right then
return left
elseif dir==left then
return right
end
end
function move(dir, steps)
steps = steps or 1
turnTo(dir)
local tDir=turnedDir(dir)
for i=1,steps,1 do
success=false
while not success do
if tDir==forward then
success=turtle.forward()
elseif tDir==up then
success=turtle.up()
elseif tDir==down then
success=turtle.down()
end
end
end
turnFrom(dir)
return true
end
function dig(dir)
turnTo(dir)
local tDir=turnedDir(dir)
while detect(tDir) do
if tDir==forward then
turtle.dig()
elseif tDir==up then
turtle.digUp()
elseif tDir==down then
turtle.digDown()
end
end
turnFrom(dir)
end
function digAndMove(dir, steps)
steps = steps or 1
turnTo(dir)
local tDir=turnedDir(dir)
for i=1,steps,1 do
while detect(tDir) do
dig(tDir)
sleep(0.25)
end
move(tDir)
end
turnFrom(dir)
end
function place(dir, slot)
turtle.select(slot)
turnTo(dir)
local tDir=turnedDir(dir)
if tDir==forward then
turtle.place()
elseif tDir==up then
turtle.placeUp()
elseif tDir==down then
turtle.placeDown()
end
turnFrom(dir)
end
function detect(dir)
block = false
turnTo(dir)
local tDir=turnedDir(dir)
if tDir==forward then
block = turtle.detect()
elseif tDir==up then
block = turtle.detectUp()
elseif tDir==down then
block = turtle.detectDown()
end
turnFrom(dir)
return block
end
function compare(dir, slot)
same = false
turtle.select(slot)
turnTo(dir)
local tDir=turnedDir(dir)
if tDir==forward then
same = turtle.compare()
elseif tDir==up then
same = turtle.compareUp()
elseif tDir==down then
same = turtle.compareDown()
end
turnFrom(dir)
return same
end
function compareAndReplace(dir, compareSlot, replaceSlot)
replaced = false
turnTo(dir)
local tDir=turnedDir(dir)
if not compare(tDir, compareSlot) then
replaced = true
dig(tDir)
place(tDir, replaceSlot)
end
turnFrom(dir)
return replaced
end
function drop(dir, num)
turnTo(dir)
local tDir=turnedDir(dir)
if tDir==forward then
turtle.drop(num)
elseif tDir==up then
turtle.dropUp(num)
elseif tDir==down then
turtle.dropDown(num)
end
turnFrom(dir)
end
function suck(dir)
turnTo(dir)
local tDir=turnedDir(dir)
if tDir==forward then
turtle.suck()
elseif tDir==up then
turtle.suckUp()
elseif tDir==down then
turtle.suckDown()
end
turnFrom(dir)
end
function refuel(suckDir, dropDir, fuelSlot, requiredFuel)
turtle.select(fuelSlot)
while turtle.getFuelLevel() < requiredFuel do
suck(up)
turtle.refuel()
drop(down)
end
end
-- END OF COPY/PASTED CODE EXTENDING THE FUNCTIONALITY OF THE BASIC API
local excavate
local check
function moveToShaft(num, interval, offset)
digAndMove(forward, offset+((interval+1)*(num-1)))
end
function returnFromShaft(num, interval, offset)
digAndMove(forward, offset+((interval+1)*(num-1)))
turnTo(back)
end
function dropoff(dir)
for i=1,numComp do
turtle.select(i)
drop(down, turtle.getItemCount(i)-1)
end
for i=numComp+1,16 do
turtle.select(i)
drop(down)
end
end
function moveToNextTunnel(radius, fuelSuckDir, fuelDropDir)
refuel(fuelSuckDir, fuelDropDir, 1, 2*radius)
turtle.turnLeft()
if radius>0 then
digAndMove(forward, radius)
turtle.turnLeft()
digAndMove(forward, radius)
turtle.turnRight()
end
end
function isSpecial(dir, components)
turnTo(dir)
local tDir=turnedDir(dir)
for i=1, components do
if compare(tDir, i) then
turnFrom(dir)
return false
end
end
turnFrom(dir)
return true
end
function check(dir, components)
turnTo(dir)
local tDir=turnedDir(dir)
if detect(tDir) then
if isSpecial(tDir, components) then
digAndMove(tDir)
excavate(components)
digAndMove(reverseDir(tDir))
end
end
turnFrom(dir)
end
function checkAround(components)
for i=1,4 do
turtle.turnLeft()
check(forward, components)
end
end
function excavate(components)
check(up, components)
check(down, components)
checkAround(components)
end
function checkSides(vDir, components)
check(vDir, components)
check(left, components)
check(right, components)
end
function excavateShaft(dir, num, interval, offset, radius, components)
turnTo(dir)
for i=1,(radius+(offset+((interval+1)*(num-1)))) do
digAndMove(forward)
checkSides(up, components)
end
digAndMove(down)
turnTo(back)
for i=1,(radius+(offset+((interval+1)*(num-1)))) do
digAndMove(forward)
checkSides(down, components)
end
turnFrom(dir)
digAndMove(up)
end
function excavateShafts(num, interval, offset, radius, components, fuelSuckDir, fuelDropDir, itemDropDir)
for i=1, num do
refuel(fuelSuckDir, fuelDropDir, (100+(2*(offset+((interval+1)*(num-1))))+(4*(radius+(offset+((interval+1)*(num-1)))))))
moveToShaft(i, interval, offset)
excavateShaft(left, i, interval, offset, radius, components)
returnFromShaft(i, interval, offset)
dropoff(itemDropDir)
refuel(fuelSuckDir, fuelDropDir, (100+(2*(offset+((interval+1)*(num-1))))+(4*(radius+(offset+((interval+1)*(num-1)))))))
moveToShaft(i, interval, offset)
excavateShaft(right, i, interval, offset, radius, components)
returnFromShaft(i, interval, offset)
dropoff(itemDropDir)
end
end
function excavateAllShafts(num, interval, offset, radius, components, fuelSuckDir, fuelDropDir, itemDropDir)
for i=1,4 do
excavateShafts(num, interval, offset, radius, components, fuelSuckDir, fuelDropDir, itemDropDir)
moveToNextTunnel(radius, fuelSuckDir, fuelDropDir)
end
end
excavateAllShafts(numShafts, blocksBetweenShafts, firstShaftOffset, centerRadius, numComponents, fuelSuckDir, fuelDropDir, itemDropDir)
