View difference between Paste ID: mfLC8Wg2 and LpjREvn8

--- chtreefarmtest: slightly modified Treefarm by itsmartin (from pastebin.com/tyykzGqj)
+-- chtreefarm
---
+-- refill fuel in slot FUEL_SLOT
--- Place fuel in slot 14, saplings in slot 15 and 1 dirt in slot 16.
+-- requires at least farmLength saplings in slot SAPLING_SLOT
--- See http://youtu.be/nJYxL_sg96U for setup
+-- wood deposit at the beginning of the farm, saplings deposit at the end
 
-function forwardBy(n)
+local FUEL_SLOT = 1
 local SAPLING_SLOT = 2
 local SAPLING_TMP_SLOT = 3
 local WOOD_SLOT = 4
 local MIN_FUEL_FOR_STEP = 26
 local args = {...}
-function moveHomeFarm()
+local farmLength = tonumber(args[1])
-	forwardBy(5)
+local posX = 0
 local orient = 0
-	forwardBy(5)
+local cycleCount = 0
 local treesChopped = 0
 local saplingsPlanted = 0
 local distanceTraveled = 0
 local farmingStarted = false
-function plantSapling()
+
-	turtle.select(16)
+function forward(n)
 	for i=1,n do
-	turtle.up()
+
-	turtle.select(15)
+		distanceTraveled = distanceTraveled + 1
 		if orient==0 then
 			posX = posX+1
 		end
-function waitForSaplings()
+		if orient==2 then
-	turtle.select(15)
+			posX = posX-1
-	while turtle.getItemCount(15) < 2 do
+
 	end
-		sleep(2)
+
 function left()
 	turtle.turnLeft()
 	orient = orient-1
 	while orient<0 do
 		orient = orient+4
-	local treeFoundCount = 0
+
-	turtle.up()
+
-	while treeFoundCount<10 do
+function right()
-		while treeFoundCount<10 do
+
-			os.sleep(2)
+	orient = orient+1
-			sleep(2)
+	while orient>3 do
-			while not turtle.detect() do
+		orient = orient-4
-				os.sleep(2)
+
-				sleep(2)
+
 function transferSaplings()
-			treeFoundCount = treeFoundCount + 1
+	result = true
 	for i = 1,16 do
 		if not i==SAPLING_SLOT then
-		turtle.select(15)
+			turtle.select(i)
 			if turtle.compareTo(SAPLING_SLOT) and turtle.getItemCount(i)>0 then
-		sleep(2)
+				turtle.transferTo(SAPLING_SLOT)
 			end
-			treeFoundCount = 0
+
-			turtle.up()
+
 
 	if turtle.getItemCount(SAPLING_SLOT) < 2 then
-	turtle.select(16)
+		print("Not enough saplings in slot "..SAPLING_SLOT.."\n")
-	turtle.down()
+		-- result = false
-	turtle.dig()
+		while turtle.getItemCount(SAPLING_SLOT) < 2 do
-	turtle.forward()
+			os.sleep(10)
 		end
 	end
-function cutTree()
+	return result
-	turtle.select(1)
+
-	turtle.digUp()
+function stripLeaves()
-	turtle.up()
+	turtle.select(SAPLING_TMP_SLOT)
-	local count = 1
+	if turtle.detectUp() then
-	while count<12 and turtle.compareUp() and turtle.detectUp() do
+
 	end
-		turtle.up()
+	for i=1,3 do
-		count = count + 1
+		right()
 		if turtle.detect() then
-	for i=1,count do
+			turtle.dig()
 		end
 	end
 	transferSaplings()
 	right()
-function moveFarmDeposit()
+
 
-	forwardBy(4)
+function chop()
 	local height = 0
-	forwardBy(4)
+	while turtle.detect() do
-	turtle.select(1)
+		turtle.select(WOOD_SLOT)
-	turtle.dropDown()
+		turtle.dig()
 		stripLeaves()
-	forwardBy(9)
+		if turtle.up() then
 			height = height + 1
 			distanceTraveled = distanceTraveled + 1
 		end
 	end
 	turtle.select(SAPLING_TMP_SLOT)
-	if turtle.getFuelLevel() < 50 then
+	for i=1,height do
-		turtle.select(14)
+		turtle.digDown()
 		turtle.down()
-		if turtle.getFuelLevel() < 50 then
+		distanceTraveled = distanceTraveled + 1
-			write("Not enough fuel\n")
+
-			return
+	if height>2 then
 		treesChopped = treesChopped + 1
 	end
 end
-	if turtle.getItemCount(16) < 1 then
+function plant()
-		write("Dirt goes in slot 16\n")
+	turtle.select(SAPLING_SLOT)
-		return
+	if turtle.getItemCount(SAPLING_SLOT) < 2 then
 		if not transferSaplings() then
-	if turtle.getItemCount(15) < 2 then
+			return false
-		write("Multiple saplings go in slot 15\n")
+
-		return
+
 
 	turtle.place()
-	waitForSaplings()
+	os.sleep(0.5)
-	moveHomeFarm()
+	if turtle.detect() and turtle.compare() then
-	plantSapling()
+		saplingsPlanted = saplingsPlanted + 1
-	waitForTree()
+
-	cutTree()
+	os.sleep(2)
-	moveFarmDeposit()
+	return true
 end
 function waitForTree()
 	local treeDetectedCount = 0
 	local waitingTime = 0
 	local height = 0
 	turtle.select(SAPLING_SLOT)
 	while treeDetectedCount < 7 do -- because sometimes turtle does not compare reliably
 		if turtle.compare() then
 			treeDetectedCount = 0
 		else
 			treeDetectedCount = treeDetectedCount + 1
 		end
 		os.sleep(2)
 		waitingTime = waitingTime + 2
 		if waitingTime > 30 and turtle.detectUp() then
 			height = 0
 			while turtle.detectUp() do
 				turtle.select(SAPLING_TMP_SLOT)
 				turtle.digUp()
 				if turtle.up() then
 					height = height + 1
 					distanceTraveled = distanceTraveled + 1
 					turtle.dig()
 				end
 			end
 			for i=1,height do
 				turtle.down()
 				distanceTraveled = distanceTraveled + 1
 			end
 		end
 	end
 end
 function handleTree()
 	if not turtle.detect() then
 		if not plant() then
 			return false
 		end
 	else
 		waitForTree()
 		chop()
 		if not plant() then
 			return false
 		end
 	end
 	return true
 end
 function dumpWood()
 	for i = 1,16 do
 		if (not i==SAPLING_SLOT) and (not i==FUEL_SLOT) then
 			turtle.select(i)
 			if not turtle.compareTo(SAPLING_SLOT) and turtle.getItemCount(i)>0 then
 				turtle.dropDown()
 			end
 		end
 	end
 end
 
 function step()
 	local result = true
 	forward(2)
 	if posX <= 0 then
 		right()
 		right()
 		dumpWood()
 		cycleCount = cycleCount + 1
 		print("cycles finished: "..cycleCount)
 		print("saplings planted: "..saplingsPlanted)
 		print("trees chopped: "..treesChopped)
 		print("distance traveled: "..distanceTraveled)
 		os.sleep(10)
 	elseif posX >= farmLength then
 		right()
 		right()
 		turtle.select(SAPLING_TMP_SLOT)
 		turtle.suckDown()
 		transferSaplings()
 		os.sleep(10)
 	elseif (posX % 4) == orient then
 		right()
 		result = handleTree()
 		left()
 	elseif (posX % 4) == (2-orient) then
 		left()
 		result = handleTree()
 		right()
 	end
 	return result
 end
 function checkFuel()
 	local result = true
 	if turtle.getFuelLevel() < MIN_FUEL_FOR_STEP then
 		turtle.select(FUEL_SLOT)
 		turtle.refuel()
 	end
 	if turtle.getFuelLevel() < MIN_FUEL_FOR_STEP then
 		result = false
 	end
 	return result
 end
 
 if farmLength==nil or farmLength<2 then
 	print("Farm length too short.\n")
 	return
 end
 if turtle.getItemCount(SAPLING_SLOT) < farmLength then
 	print("Not enough saplings in slot "..SAPLING_SLOT.."\n")
 	return
 end
 
 while true do
 	if not checkFuel() then
 		print("Not enough fuel\n")
 		os.sleep(10)
 		while not checkFuel() do
 			os.sleep(10)
 		end
 		return false
 	end
 	if not step() then
 		print("Step unsuccessfull, exiting.\n")
 		return false
 	end
 	os.sleep(1)
 end