PasteShr

New Paste Browse

computercraft turtle programs
--Announcement: In an attempt to add a tunnel boring feature to this, I ended up breaking it so auto refueling no longer works. Version 2.0 is in the works (K6HvcJmD) but many features do not function and I'm taking a break from fixing it, but feel free to edit it if you'd like.

--Note: Computer craft has an issue where turtles will break if left in unloaded chunks, keep near the turtle or use a worldspike.

--This is version 1.2.4, updates will replace the current pastebin with the newer version once they're done!
--Added a boring mode that mines a single layer, good for underground strip mining.

--How to use:
--Place a chest to the left of the turtle for fuel and a chest behind it for a place to drop off items.
--"Quarry or bore?" Type "quarry" for a quarry or "bore" to mine a single layer. Make sure you type in all lowercase.
--"Rows" If looking from above, this is how many blocks it will mine in the 'y' axis.
computercraft turtle programs How to dowload it? computercraft turtle programs
--"Columns" If looking from above, this is how many blocks it will mine in the 'x' axis.
--"Current 'y' level?" The 'y' level of the turtle.
--"Toss garbage blocks?" Type "yes" to toss out stone, gravel, dirt, etc. Make sure you type in all lowercase.

term.clear()
term.setCursorPos(1,1)
io.write("Quarry or bore? ")
quarrybore = io.read()
term.clear()
term.setCursorPos(1,1)
computercraft turtle programs How to dowload it? computercraft turtle programs
io.write("Rows: ")
rows = io.read()
io.write("Columns: ")
columns = io.read()
iniY = 2
if quarrybore == "quarry" then
	term.clear()
	term.setCursorPos(1,1)
	io.write("Current 'y' level: ")
	iniY = io.read()
computercraft turtle programs How to use it? computercraft turtle programs
end
term.clear()
term.setCursorPos(1,1)
io.write("Toss garbage blocks? ")
tossGarbage = io.read()
term.clear()
term.setCursorPos(1,1)

posX = 0
posY = 0
computercraft turtle programs How to get it for free? computercraft turtle programs
posZ = 0

rotation = 0

fullSlots = 0

function info()
	term.clear()
	term.setCursorPos(1,1)
	print("---------------------------------------")
computercraft turtle programs How to use it? computercraft turtle programs
	print("Mining size: " .. rows .. " by " .. columns)
--	print("Total distance: " .. posX + posY + posZ)
--	print("X: " .. posX)
--	print("Y: " .. posY)
--	print("Z: " .. posZ)
--	print("Orientation: " .. rotation)
	if tossGarbage == "yes" then
		print("Toss garbage: Yes")
	else
		print("Toss garbage: No")
computercraft turtle programs How to get it? computercraft turtle programs
	end
	print("")
end

function rotate()
	if rotation == 0 then
		turtle.turnLeft()
	elseif rotation == 1 then
		turtle.turnLeft()
		turtle.turnLeft()
computercraft turtle programs How to get it? computercraft turtle programs
	elseif rotation == 2 then
		turtle.turnRight()
	end
end

function recover()
	rotate()
	local step = 0
	for step = posY - 1, 0, -1 do
		turtle.up()
computercraft turtle programs How to get it? computercraft turtle programs
	end
	for step = posX - 1, 0, -1 do
		turtle.forward()
	end
	turtle.turnLeft()
	for step = posZ - 1, 0, -1 do
		turtle.forward()
	end
end

computercraft turtle programs How to get it? computercraft turtle programs
function resume()
	turtle.turnLeft()
	turtle.turnLeft()
	local step = 0
	for step = 0, posZ - 1, 1 do
		turtle.forward()
	end
	turtle.turnRight()
	for step = 0, posX - 1, 1 do
		turtle.forward()
computercraft turtle programs PasteShr computercraft turtle programs
	end
	for step = 0, posY - 1, 1 do
		turtle.down()
	end
	if rotation == 0 then
		turtle.turnLeft()
	elseif rotation == 2 then
		turtle.turnRight()
	elseif rotation == 3 then
		turtle.turnRight()
computercraft turtle programs How to use it? computercraft turtle programs
		turtle.turnRight()
	end
end

function empty()
	recover()
	if quarrybore == "bore" then
		turtle.down()
	end	
	local search = 0
computercraft turtle programs How to get it? computercraft turtle programs
	for search = 16, 1, -1 do
		turtle.select(search)
		turtle.drop()
	end
	
		end
		turtle.turnLeft()
		resume()
	
	if done ~= 1 then
computercraft turtle programs PasteShr computercraft turtle programs
		if quarrybore == "bore" then
			turtle.up()
		end	
		resume()
	end

function checkFull()
	fullSlots = 0
	local search = 0
	for search = 16, 1, -1 do
computercraft turtle programs How to get it? computercraft turtle programs
		turtle.select(search)
		if turtle.getItemCount() > 0 then
			if tossGarbage == "yes" then
				if turtle.getItemDetail().name == "minecraft:cobblestone" then
					turtle.drop()
				elseif turtle.getItemDetail().name == "minecraft:stone" then
					turtle.drop()
				elseif turtle.getItemDetail().name == "minecraft:dirt" then
					turtle.drop()
				elseif turtle.getItemDetail().name == "minecraft:gravel" then
computercraft turtle programs How to get it for free? computercraft turtle programs
					turtle.drop()
				elseif turtle.getItemDetail().name == "chisel:marble2" then
					turtle.drop()
				elseif turtle.getItemDetail().name == "chisel:limestone2" then
					turtle.drop()
				elseif turtle.getItemDetail().name == "minecraft:netherrack" then
					turtle.drop()
				elseif turtle.getItemDetail().name == "natura:nether_tainted_soil" then
					turtle.drop()
				end
computercraft turtle programs PasteShr computercraft turtle programs
			end
		end
		if turtle.getItemCount() > 0 then
			fullSlots = fullSlots + 1
		end
	end
	if fullSlots == 16 then
		empty()
	end
end
computercraft turtle programs How to dowload it? computercraft turtle programs

function nextRow()
	if turn == 0 then
		turtle.turnRight()
		rotation = 1
		digStraight()
		turtle.turnRight()
		rotation = 2
		turn = 1
	elseif turn == 1 then
computercraft turtle programs How to dowload it? computercraft turtle programs
		turtle.turnLeft()
		rotation = 1
		digStraight()
		turtle.turnLeft()
		rotation = 0
		turn = 0 
	elseif turn == 2 then
		turtle.turnRight()
		rotation = 3
		digStraight()
computercraft turtle programs PasteShr computercraft turtle programs
		turtle.turnRight()
		rotation = 0
		turn = 3
	elseif turn == 3 then
		turtle.turnLeft()
		rotation = 3
		digStraight()
		turtle.turnLeft()
		rotation = 2
		turn = 2
computercraft turtle programs PasteShr computercraft turtle programs
	end
end

function digDown()
	local step = 0
	for step = 2, 0, -1 do
		turtle.digDown()
		if turtle.down() == true then
			posY = posY + 1
		end
computercraft turtle programs How to get it? computercraft turtle programs
		info()
	end
end

function digStraight()
	turtle.digDown()
	turtle.dig()
	turtle.dig()
	turtle.forward()
	if rotation == 0 then
computercraft turtle programs PasteShr computercraft turtle programs
		posZ = posZ + 1
	elseif rotation == 1 then
		posX = posX + 1
	elseif rotation == 2 then
		posZ = posZ - 1
	elseif rotation == 3 then
		posX = posX - 1
	end
	turtle.digUp()
	info()
computercraft turtle programs PasteShr computercraft turtle programs
end

function quarry()
	turn = 0
	done = 0
	iniY = tonumber (iniY)
	turtle.digUp()
	turtle.up()
	posY = posY - 1
	while posY < iniY - 2 do
computercraft turtle programs How to get it? computercraft turtle programs
		if quarrybore == "quarry" then
			digDown()
		end
		for c = columns, 1, -1 do
			for r = rows, 2, -1 do
				digStraight()
			end
			checkFull()
			if c == 1 then
				turtle.turnRight()
computercraft turtle programs How to get it? computercraft turtle programs
				turtle.turnRight()
				if rotation == 0 then
					rotation = 2
				elseif rotation == 2 then
					rotation = 0
				end
				if turn == 0 then
					turn = 2
				elseif turn == 1 then
					turn = 3
computercraft turtle programs PasteShr computercraft turtle programs
				elseif turn == 2 then
					turn = 0
				elseif turn == 3 then
					turn = 1
				end
			elseif c > 1 then
				nextRow()
			end
		end
		if quarrybore == "bore" then
computercraft turtle programs PasteShr computercraft turtle programs
			posY = posY + 1
		end
	end
	turtle.digDown()
	done = 1
	empty()
	term.clear()
	term.setCursorPos(1,1)
	print("Thank you for using Gambit's quarry program!")
	print("---------------------------------------")
computercraft turtle programs How to get it for free? computercraft turtle programs
end

quarry()
computercraft turtle programs

Paste Settings

Paste Title : [Optional]

Paste Folder : [Optional]

Syntax Highlighting : [Optional]

Paste Expiration : [Optional]

Paste Status : [Optional]

Password : [Optional]

Description: [Optional]

Tags: [Optional]

Encrypt Paste (?)

You are currently not logged in, this means you can not edit or delete anything you paste. Sign Up or Login

Recent Pastes

star glitcher script 2019
Plaintext | 1 | 1 minute ago
rinfinite yield
Plaintext | 1 | 1 minute ago
stallionsdens supply crates
Plaintext | 1 | 1 minute ago
aristois kick item
Plaintext | 1 | 1 minute ago
authenticating with nucleus failed fxserver
Plaintext | 1 | 1 minute ago
chyoa overlord
Plaintext | 5 | 6 minutes ago
boxxcryptor benjamin fleischer
Plaintext | 5 | 6 minutes ago

Paste Settings

Site Languages