Branchmine prototype #4

p=0
i=0
a=0
d=0

function drop()
n=0
	for n=5,13 do
		turtle.select(n)
		turtle.drop(64)
	end
end

function turnround()
	turtle.turnRight()
	turtle.turnRight()
end

function refuel()
	if turtle.getFuelLevel() < 20 then
		turtle.select(16)
		turtle.refuel(4)
		os.sleep(0.5)
	end
end

function gravelup()
	turtle.digUp()
	turtle.select(4)
	while turtle.compareUp() == true do
		turtle.digUp()
		os.sleep(0.5)
	end
	turtle.select(1)
end

function gravel()
	turtle.dig()
	turtle.select(4)
	while turtle.compare() == true do
		turtle.dig()
		os.sleep(0.5)
	end
	turtle.select(1)
end

function filter()
slot=0
	for slot=1,4 do
		if turtle.getItemCount(slot) >30 then
			turtle.select(slot)
			turtle.drop(20)
		end
	end
	turtle.select(1)
end

function dump()
	if turtle.getItemCount(13) > 0 then
		turnround()
		turtle.forward()
		turtle.turnRight()
		turtle.select(14)
		turtle.place()
		drop()
		turtle.turnRight()
		turtle.forward()
	end
end

function torch()
p=p+1
	if p == 6 then
		turtle.turnRight()
		turtle.forward()
		turtle.turnRight()
		turtle.forward()
		turtle.select(15)
		turtle.placeUp()
		turnround()
		turtle.forward()
		turtle.turnLeft()
		turtle.forward()
		turtle.turnRight()
		p=0
	end
end

function dig()
	gravel()
	turtle.forward()
	gravelup()
	turtle.digDown()
	turtle.turnLeft()
	gravel()
	turtle.forward()
	gravelup()
	turtle.digDown()
	turnround()
	turtle.forward()
	gravel()
	turtle.forward()
	gravelup()
	turtle.digDown()
	turnround()
	turtle.forward()
	turtle.turnRight()
end

function branch()
	turtle.turnLeft()
	for d=1,dist do
		refuel()
		dig()
		filter()
		torch()
		dump()
	end
	turnround()
	for d=1,dist do
		turtle.forward()
	end
	turtle.turnLeft()
end

function level()
	for a=1,4 do
		for i=1,14 do
			refuel()
			dig()
			filter()
			torch()
			dump()
			if i == 1 then
				branch()
			end
			if i == 7 then
				branch()
			end
			if i == 13 then
				branch()
			end

		end
		turtle.turnRight()
		i=0
	end
	a=0
end

function descend()
b=0
	level()
	for b=1,7 do
		turtle.digDown()
		turtle.down()
	end
end


print("Hello, and welcome to the branch mine program.")
term.write("How far do you want each branch ?: ")
dist=read()
term.write("How many lvls do you want?: ")
down=read()

f=0

for f=1,down do
	descend()
end


print("branch program complete, enjoy your day")