PasteShr

New Paste Browse

computercraft quarry
--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 quarry How to get it for free? computercraft quarry
--"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 quarry How to get it for free? computercraft quarry
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 quarry How to get it? computercraft quarry
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 quarry How to get it? computercraft quarry
posZ = 0

rotation = 0

fullSlots = 0

function info()
	term.clear()
	term.setCursorPos(1,1)
	print("---------------------------------------")
computercraft quarry How to get it for free? computercraft quarry
	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 quarry How to dowload it? computercraft quarry
	end
	print("")
end

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

function recover()
	rotate()
	local step = 0
	for step = posY - 1, 0, -1 do
		turtle.up()
computercraft quarry How to dowload it? computercraft quarry
	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 quarry How to dowload it? computercraft quarry
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 quarry How to get it? computercraft quarry
	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 quarry How to use it? computercraft quarry
		turtle.turnRight()
	end
end

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

function checkFull()
	fullSlots = 0
	local search = 0
	for search = 16, 1, -1 do
computercraft quarry How to use it? computercraft quarry
		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 quarry How to use it? computercraft quarry
					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 quarry How to get it? computercraft quarry
			end
		end
		if turtle.getItemCount() > 0 then
			fullSlots = fullSlots + 1
		end
	end
	if fullSlots == 16 then
		empty()
	end
end
computercraft quarry How to use it? computercraft quarry

function nextRow()
	if turn == 0 then
		turtle.turnRight()
		rotation = 1
		digStraight()
		turtle.turnRight()
		rotation = 2
		turn = 1
	elseif turn == 1 then
computercraft quarry How to use it? computercraft quarry
		turtle.turnLeft()
		rotation = 1
		digStraight()
		turtle.turnLeft()
		rotation = 0
		turn = 0 
	elseif turn == 2 then
		turtle.turnRight()
		rotation = 3
		digStraight()
computercraft quarry How to use it? computercraft quarry
		turtle.turnRight()
		rotation = 0
		turn = 3
	elseif turn == 3 then
		turtle.turnLeft()
		rotation = 3
		digStraight()
		turtle.turnLeft()
		rotation = 2
		turn = 2
computercraft quarry How to use it? computercraft quarry
	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 quarry How to use it? computercraft quarry
		info()
	end
end

function digStraight()
	turtle.digDown()
	turtle.dig()
	turtle.dig()
	turtle.forward()
	if rotation == 0 then
computercraft quarry How to dowload it? computercraft quarry
		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 quarry How to get it for free? computercraft quarry
end

function quarry()
	turn = 0
	done = 0
	iniY = tonumber (iniY)
	turtle.digUp()
	turtle.up()
	posY = posY - 1
	while posY < iniY - 2 do
computercraft quarry PasteShr computercraft quarry
		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 quarry How to use it? computercraft quarry
				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 quarry How to dowload it? computercraft quarry
				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 quarry How to use it? computercraft quarry
			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 quarry How to get it? computercraft quarry
end

quarry()
computercraft quarry

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

krunker pro settings
Plaintext | 0 | 1 minute ago
booga booga kill script
Plaintext | 0 | 1 minute ago
kolbot pickit
Plaintext | 0 | 1 minute ago
fe trolling
Plaintext | 0 | 1 minute ago
gear codes for kohls admin house
Plaintext | 0 | 1 minute ago
diep.io mod script
Plaintext | 1 | 6 minutes ago
fencing script roblox
Plaintext | 1 | 6 minutes ago

Paste Settings

Site Languages