View difference between Paste ID: 7eru6x78 and T4dbE7We

 --This code is developed by me (onix331) and is available under the GNU General Public License (Version 3)
 --For all CC-Versions Universal
 --See http://opensource.org/licenses/GPL-3.0
 --Have fun
 
 space = 16--Defines the space of the turtle (If an update comes out and I don't update the program)
 ver = "2.8"--For updates
 status = "---"--You can modify the init-status that will be transferred to the host at the beginning
 
 --It is usually not necessary to modify the next variables
 
 fw = 0--Unnecessary to know:P
 chest = 0--If the turtle has stopped at a chest
 stop = 0--If the turtle has stopped at a chest
 shaftrun = 0--How many shafts the turtle has run
 senderId = 65534--Because RedNet is a bitch:D
 gravel = 3--Used to avoid gavel, sand, etc.
 
 function startturtle()
 	function smartfuel()--Check for fuel and asks for refueling
 		clear()
 		local fuelneeded = (length * count) * 2 + count * 3 --Calculate Fuel for mining blocks
 		local movefuelneeded = ((length * count) * 2 + count) * 0.6  --Calculate Fuel for movement
 		local fuelneeded = fuelneeded + movefuelneeded
 		if turtle.getFuelLevel() < fuelneeded then
 			insert = fuelneeded - turtle.getFuelLevel()
 			print ("Current fuel-level is too low (", turtle.getFuelLevel(), ")")
 			print ("Needed:" , fuelneeded)
 			print ("Please insert ", insert, " fuel anywhere")
 			print ("When done, press ENTER")
 			debugfuel = turtle.getFuelLevel()
 			while true do
 				local sEvent, param = os.pullEvent("key")
 				if sEvent == "key" then
 					if param == 28 then
 						for i = 1, space do
 							for i = 1, 64 do
 								clear()
 								if turtle.getFuelLevel() < fuelneeded then
 									shell.run("refuel")
 								else
 									turtle.select(1)
 									break
 								end
 							end
 							if debugfuel > turtle.getFuelLevel() then
 								turtle.select(debugi)
 							else
 								debugi = i
 								turtle.select(i)
 							end
 						end
 						turtle.select(1)
 						break
 					end
 				end
 			end
 		if turtle.getFuelLevel() < fuelneeded then
 			smartfuel()
 		end
 		end
 	end
 
 	function pair()
 		print ("Sending pairing requests")
 		local i = 0
 		rednet.broadcast("pair")
 		os.sleep(0.1)
 		rednet.broadcast("pair")
 		os.sleep(0.1)
 		rednet.broadcast("pair")
 		os.sleep(0.1)
 		rednet.broadcast("pair")
 		os.sleep(0.1)
 		rednet.broadcast("pair")
 		os.sleep(0.1)
 		rednet.broadcast("pair")
 		os.sleep(0.1)
 		senderId, message, protocol = rednet.receive()
 		if message=="succesfull" then
 			print("Succesfull paired, continuing...")
 			os.sleep(0.1)
 		end
 	end
 
 	function clear()--To clear the screen
 		term.clear()
 		term.setCursorPos(1,1)
 	end
 
 	function sendinitial()--Send the initial data
 		if enablerednet=="y" then
 			os.sleep(1)
 			rednet.send(senderId, length)
 			os.sleep(0.1)
 			rednet.send(senderId, count)
 			os.sleep(0.1)
 			rednet.send(senderId, direction)
 			os.sleep(0.1)
 		end
 	end
 
 	function senddata()--To send all the data
 		if enablerednet=="y" then
 			rednet.send(senderId, lengthleft)
 			rednet.send(senderId, count)
 			rednet.send(senderId, turtle.getFuelLevel())
 			rednet.send(senderId, status)
 		end
 	end
 
 	function main()--Main Program
 		smartfuel()
 		if enablerednet=="y" then
 			pair()
 			sendinitial()
 		end
 		status = "Called main"
 		senddata()
 		if called==1 then
 			called = 0
 			countn = countn - 1
 		end
 		while true do
 			if tonumber(count)>=1 then
 				senddata()
 				fw = 1
 				move()
 				turnaround()
 				fw = 0
 				move()
 				count = count - 1
 				checkspace()
 			else
 				break
 			end
 		end
 	end
 
 	function returnmining()--To return to the latest shaft
 		status = "Return to mine..."
 		senddata()
 		chest = 0
 		stop = 1
 		if direction=="r" then
 			turtle.turnRight()
 			for i = 0, shaftrun do
 				turtle.forward()
 				turtle.forward()
 				turtle.forward()
 			end
 			turtle.turnLeft()
 			main()
 		elseif direction=="l" then
 			turtle.turnLeft()
 			for i = 0, shaftrun do
 				turtle.forward()
 				turtle.forward()
 				turtle.forward()
 			end
 			turtle.turnRight()
 			main()
 		end
 	end
 
 	function checkl() --To check if length is valid (>0, not a String), also transforms the string into a number
 		length = tonumber(length)
 		if length==nil then
 			print ("Invalid number!")
 			length = read()
 			checkl()
 		elseif length <= 0 then
 			print ("Invalid number!")
 			length = read()
 			checkl()
 		end
 	end
 
 	function checka()--To check if count is valid (>0, not a String), also transforms the string into a number
 		count = tonumber(count)
 		if count==nil then
 			print ("Invalid number!")
 			count = read()
 			checka()
 		elseif count <= 0 then
 			print ("Invalid number!")
 			count = read()
 			checka()
 		end
 	end
 
 	function checkr()--To check if direction is valid ((r) or (l))
 		if direction=="r" then
 			print ("")
 		elseif direction=="l" then
 			print ("")
 		else
 			print ("Invalid input!")
 			direction = io.read()
 			checkr()
 		end
 	end
 
 	function checkfue()--To check if fuel is valid (ok))
 		if fuel=="ok" then
 			print ("")
 		else
 			print ("Invalid input!")
 			fuel = io.read()
 			checkfue()
 		end
 	end
 
 	function checkred()--To check if enablerednet is valid ((y) or (n))
 		if enablerednet=="y" then
 			print ("")
 		elseif enablerednet=="n" then
 			print ("")
 		else
 			print ("Invalid input!")
 			enablerednet = io.read()
 			checkred()
 		end
 	end
 
 	function move()--Basic movement function
 		status = "Moving..."
 		for i = 1, length do
 			senddata()
 			for i = 1, gravel do
 				turtle.dig()
 			end
 			turtle.forward()
 			if fw==1 then
 				lengthleft = lengthleft - 1
 			end
 			turtle.digDown()
 			for i = 1, gravel do
 				turtle.digUp()
 			end
 			for i = 1, gravel do
 				turtle.digDown()
 			end
 		end
 	end
 
 	function turnaround()--Turns the turtle at 90 degrees
 		status = "Turning around..."
 		senddata()
 		turtle.turnRight()
 		turtle.turnRight()
 	end
 
 	function nextshaftr()--Next shaft (right)
 		status = "Going to next shaft..."
 		senddata()
 		countn = countn - 1
 		if countn>=2 then
 			shaftrun = shaftrun + 1
 			lengthleft = lengthleftstore
 			turtle.turnLeft()
 			turtle.dig()
 			turtle.digUp()
 			turtle.digDown()
 			turtle.forward()
 			turtle.dig()
 			turtle.digUp()
 			turtle.digDown()
 			turtle.forward()
 			senddata()
 			turtle.dig()
 			turtle.digUp()
 			turtle.digDown()
 			turtle.forward()
 			turtle.digUp()
 			turtle.digDown()
 			turtle.turnLeft()
 		end
 	end
 
 	function nextshaftl()--Next shaft (left)
 		status = "Going to next shaft..."
 		senddata()
 		countn = countn - 1
 		if countn>=2 then
 			shaftrun = shaftrun + 1
 			lengthleft = lengthleftstore
 			turtle.turnRight()
 			turtle.dig()
 			turtle.digUp()
 			turtle.digDown()
 			turtle.forward()
 			turtle.dig()
 			turtle.digUp()
 			turtle.digDown()
 			turtle.forward()
 			senddata()
 			turtle.dig()
 			turtle.digUp()
 			turtle.digDown()
 			turtle.forward()
 			turtle.digUp()
 			turtle.digDown()
 			turtle.turnRight()
 		end
 	end
 
 	function returnpoint()--Return to initial point (Chest)
 		status = "Returning to chest..."
 		senddata()
 		if direction=="r" then
 			turtle.turnRight()
 			for i = 1, shaftrun do
 				turtle.forward()
 				turtle.forward()
 				senddata()
 				turtle.forward()
 			end
 			if stop==1 then
 				turtle.forward()
 				turtle.forward()
 				senddata()
 				turtle.forward()
 			end
 			turtle.turnLeft()
 			status = "Dropping things in chest..."
 			senddata()
 			for i = 1, space do
 				turtle.select(i)
 				turtle.drop()
 			end
 			turtle.select(1)
 		elseif direction=="l" then
 			turtle.turnLeft()
 			for i = 1, shaftrun do
 				turtle.forward()
 				turtle.forward()
 				senddata()
 				turtle.forward()
 			end
 			if stop==1 then
 				turtle.forward()
 				turtle.forward()
 				senddata()
 				turtle.forward()
 			end
 			turtle.turnRight()
 			status = "Dropping things in chest..."
 			senddata()
 			for i = 1, space do
 				turtle.select(i)
 				turtle.drop()
 			end
 			turtle.select(1)
 		end
 		turnaround()
 		if chest==1 then
 			returnmining()
 		end
 	end
 
 	function checkspace()--Check for space and if necessary, return to initial point to the chest
 		status = "Checking space"
 		senddata()
 		local spaceleft = 0
 		for i = 1, space do
 			if turtle.getItemSpace(i) > 10 then
 				spaceleft = spaceleft + 1
 			end
 		end
 		if spaceleft < 3 then
 			chest = 1
 			called = 1
 			status = "Inventory full, returning to chest"
 			returnpoint()
 		elseif direction=="r" then
 			nextshaftr()
 		else
 			nextshaftl()
 		end
 	end
 
 	--Print header
 	clear()
 	print ("Strip-mining-program by onix331")
 	print ("Version ", ver)
 	os.sleep(2)
 
 	--Start user input and define some variables
 	clear()
 	print ("Length of the single shaft(s):(Type help for help)")
 	length = read()
 	if length=="help" then
 		print ("How long the shafts the turtle will mine be")
 		length = read()
 		checkl()
 	else
 		checkl()
 	end
 	lengthleft = length
 	lengthleftstore = length
 
 	clear()
 	print ("Count of the shafts:(Type help for help)")
 	count = read()
 	if count=="help" then
 		print ("How much shafts the turtle will mine")
 		count = read()
 		checka()
 	else
 	end
 	countn = count
 	countn = countn + 1
 
 	clear()
 	print ("Direction of the shafts (Left (l), Right (r):(Type help for help)")
 	direction = read()
 	if direction=="help" then
 		print ("In which direction the shafts will go")
 		direction = read()
 		checkr()
 	else
 		checkr()
 	end
 
 	clear()
 	print ("Use rednet? (Yes (y), No (n):(Type help for help)")
 	enablerednet = read()
 	if enablerednet=="help" then
 		print ("If RedNet and a hostcomputer should be used (See my thread at http://www.computercraft.info/forums2/index.php?/topic/19835-mining-turtle-stripmining/page__fromsearch__1")
 		enablerednet = read()
 	else
 		checkred()
 		end
 	if enablerednet=="y" then
 		rednet.open("right")--Defines the place of the modem (Usually right on the turtle)
 	end
 
 	--Print user inputs
 	clear()
 	print ("Input of Length:")
 	print (length)
 	print ("Input of count")
 	print (count)
 	print ("Direction of the shafts:")
 	if direction=="r" then
 		print (direction, "ight")
 	else
 		print (direction, "eft")
 	end
 
 	print ("3")
 	os.sleep(1)
 	print ("2")
 	os.sleep(1)
 	print ("1")
 
 
 	--Fire up the main program
 	main()
 
 	returnpoint()
 
 	status = "Done!"
 	senddata()--Sends the status "Done!" to the host
 	print ("Done!")
 end
 
 function startcomputer()
 rednet.open("right")
 ver = "2.8"--For updates
 status = "---"--Because i can
 
 function clear()--To clear the screen and set the cursor to 1,1
 	term.clear()
 	term.setCursorPos(1,1)
 end
 
 	function receive()
 		senderId, length, protocol = rednet.receive()
 		storedlength = length
 		senderId, count, protocol = rednet.receive()
 		storedcount = count
 		senderId, direction, protocol = rednet.receive()
 		storeddirection = direction
 
 		while true do
 			clear()
 			print("Length of the shaft(s): ", storedlength)
 			print("Count of the shaft(s): ", storedcount)
 			print("Direction of the shaft(s): ", storeddirection, "ight")
 			print("Length of the shaft left: ", length)
 			print("Shafts left: ", count)
 			print("Fuel: ", fuel)
 			print("Status: ", status)
 			if status=="Done!" then
 				break
 			else
 				senderId, length, protocol = rednet.receive()
 				senderId, count, protocol = rednet.receive()
 				senderId, fuel, protocol = rednet.receive()
 				senderId, status, protocol = rednet.receive()
 			end
 		end
 	end
 
 	function pair()
 		senderId, message, protocol = rednet.receive()
 		if message=="pair" then--To pair to the turtle
 			for i = 1, 10 do
 				rednet.send(senderId, "succesfull")
 				os.sleep(0.1)
 			end
 			print("Succesfull paired, continuing...")
 		end
 		clear()
 		receive()
 	end
 
 
 	clear()
 	print ("Strip-mining-program by onix331")
 	print ("Version ", ver)
 	print ("Place of the modem can be modified in the program, right is recommended")
 	print ("Trying to receive pair request")
 
 	pair()
 
 	print ("Done!")
 end
 
 if turtle then--To find out if program is run on a turtle or computer
 	startturtle()
 else
 	startcomputer()
 end