View difference between Paste ID: 11qTwuK8 and mfLC8Wg2

--- chtreefarm
+-- chfirfarm
 -- refill fuel in slot FUEL_SLOT
--- requires at least farmLength saplings in slot SAPLING_SLOT
+-- requires at least 4 saplings in slot SAPLING_SLOT
--- wood deposit at the beginning of the farm, saplings deposit at the end
+-- 2x2 planting area in front (and to the right) of the turtle
 -- must start with 4 saplings planted in the planting area or even the tree can be already grown
 -- wood deposit anywhere behind the turtle, but there has to be some stopping block
 -- auxiliary sapling storage somewhere below the starting turtle position (directly under it) where fallen saplings should be collected
 -- if the turtle stops at the wood deposit, it means it's full and needs to be emptied
 
-local MIN_FUEL_FOR_STEP = 26
+
-local args = {...}
+
-local farmLength = tonumber(args[1])
+
 local SAPLING_TMP_SLOT = 3
 local MIN_SAPLINGS = 5
 local SAPLINGS_BUFFER = 64
-local treesChopped = 0
+
-local saplingsPlanted = 0
+local MAX_WOOD = 620
 local MIN_FUEL_FOR_CYCLE = 360
-local farmingStarted = false
+local MAX_WOOD_STORAGE_DISTANCE = 32
 local REPEATED_DETECTION_COUNT = 3
 local REPEATED_DETECTION_TICK = 1
 local NEXT_DETECTION_TICK = 1
-		turtle.forward()
+local TREE_GROW_SLEEP_TIME = 40
 local posX = 0
-		if orient==0 then
+
-			posX = posX+1
+
 local distanceTraveled = 0
-		if orient==2 then
+local auxiliaryDepth = 0
-			posX = posX-1
+
 function forward(n)
 	for i=1,n do
 		if turtle.forward() then
 			distanceTraveled = distanceTraveled + 1
 			if orient==0 then
 				posX = posX+1
 			end
 			if orient==2 then
 				posX = posX-1
 			end
 		else
 			return false
 		end
 	end
 	return true
 end
 function back(n)
-function transferSaplings()
+
-	result = true
+		if turtle.back() then
 			distanceTraveled = distanceTraveled + 1
-		if not i==SAPLING_SLOT then
+			if orient==0 then
 				posX = posX-1
-			if turtle.compareTo(SAPLING_SLOT) and turtle.getItemCount(i)>0 then
+
-				turtle.transferTo(SAPLING_SLOT)
+			if orient==2 then
 				posX = posX+1
 			end
 		else
 			return false
-	if turtle.getItemCount(SAPLING_SLOT) < 2 then
+
-		print("Not enough saplings in slot "..SAPLING_SLOT.."\n")
+
-		-- result = false
+
-		while turtle.getItemCount(SAPLING_SLOT) < 2 do
+
 function left()
 	turtle.turnLeft()
 	orient = orient-1
 	while orient<0 do
 		orient = orient+4
-function stripLeaves()
+
 end
-	if turtle.detectUp() then
+
 	turtle.turnRight()
 	orient = orient+1
-	for i=1,3 do
+
-		right()
+
-		if turtle.detect() then
+
-			turtle.dig()
+
 function reorderSaplings()
 	local saplingsReordered = 0
-	transferSaplings()
+
 		if i~=SAPLING_SLOT then
 			turtle.select(i)
 			os.sleep(0.1)
-function chop()
+			if turtle.compareTo(SAPLING_SLOT) and (turtle.getItemCount(i)>0) then
 				while (turtle.getItemCount(i)>0) and (turtle.getItemCount(SAPLING_SLOT)<64) and (turtle.transferTo(SAPLING_SLOT,1)) do
-	while turtle.detect() do
+					saplingsReordered = saplingsReordered + 1
 					os.sleep(0.1)
 				end
-		stripLeaves()
+
 		end
 	end
 	print("reordered "..saplingsReordered.." saplings")
 end
 function dumpExcessSaplings()
 	for i = 1,16 do
 		if (i~=SAPLING_SLOT) and (i~=FUEL_SLOT) then
 			turtle.select(i)
 			if turtle.compareTo(SAPLING_SLOT) and (turtle.getItemCount(i)>0) then
 				turtle.drop()
 			end
-	if height>2 then
+
-		treesChopped = treesChopped + 1
+
 end
 
-function plant()
+function checkSaplings()
 	reorderSaplings()
-	if turtle.getItemCount(SAPLING_SLOT) < 2 then
+	if turtle.getItemCount(SAPLING_SLOT) < MIN_SAPLINGS then
-		if not transferSaplings() then
+		print("insufficient saplings, waiting for decaying leaves...")
 		os.sleep(60)
 		print("refilling saplings from auxiliary storage...")
 		while turtle.down() do
 			auxiliaryDepth = auxiliaryDepth + 1
 			distanceTraveled = distanceTraveled + 1
-	os.sleep(0.5)
+
-	if turtle.detect() and turtle.compare() then
+
-		saplingsPlanted = saplingsPlanted + 1
+
 		if turtle.suckDown(SAPLINGS_BUFFER) then
 			print("some saplings found in auxiliary storage")
 		else
 			print("getting more saplings failed")
-function waitForTree()
+
 		reorderSaplings()
-	local waitingTime = 0
+		if turtle.getItemCount(SAPLING_SLOT) >= SAPLINGS_BUFFER then
 			print("returning excess saplings...")
 			dumpExcessSaplings()
-	while treeDetectedCount < 7 do -- because sometimes turtle does not compare reliably
+
 		while auxiliaryDepth>0 do
 			turtle.up()
 			auxiliaryDepth = auxiliaryDepth - 1
 			distanceTraveled = distanceTraveled + 1
 		end
 	end
-		waitingTime = waitingTime + 2
+	if turtle.getItemCount(SAPLING_SLOT) < MIN_SAPLINGS then
-		if waitingTime > 30 and turtle.detectUp() then
+		print("Not enough saplings in slot "..SAPLING_SLOT..", waiting for saplings...\n")
-			height = 0
+		while turtle.getItemCount(SAPLING_SLOT) < MIN_SAPLINGS do
-			while turtle.detectUp() do
+
-				turtle.select(SAPLING_TMP_SLOT)
+
-				turtle.digUp()
+
-				if turtle.up() then
+
-					height = height + 1
+
-					distanceTraveled = distanceTraveled + 1
+
-					turtle.dig()
+
 function chop() --needs 5 saplings and 80 fuel
 	print("chopping tree...")
-			for i=1,height do
+
-				turtle.down()
+	turtle.select(WOOD_SLOT)
-				distanceTraveled = distanceTraveled + 1
+	turtle.dig()
 	forward(1)
 
 	while turtle.detect() or turtle.detectUp() do
 		turtle.select(WOOD_SLOT)
-function handleTree()
+
-	if not turtle.detect() then
+
-		if not plant() then
+
 			height = height + 1
 			distanceTraveled = distanceTraveled + 1
 		end
-		waitForTree()
+
-		chop()
+
-		if not plant() then
+	turtle.dig() --just in case
 	forward(1)
 	left()
 
 	--just in case
 	while turtle.detectUp() do
-function dumpWood()
+
 		turtle.dig()
-		if (not i==SAPLING_SLOT) and (not i==FUEL_SLOT) then
+
 		if turtle.up() then
-			if not turtle.compareTo(SAPLING_SLOT) and turtle.getItemCount(i)>0 then
+
 			distanceTraveled = distanceTraveled + 1
 		end
 	end
 
 	for i=1,height do
 		turtle.select(WOOD_SLOT)
-function step()
+
 		turtle.digDown()
-	forward(2)
+
-	if posX <= 0 then
+
-		right()
+
-		right()
+		turtle.suck()
 		distanceTraveled = distanceTraveled + 1
-		cycleCount = cycleCount + 1
+
-		print("cycles finished: "..cycleCount)
+	turtle.select(WOOD_SLOT)
-		print("saplings planted: "..saplingsPlanted)
+	turtle.dig()
-		print("trees chopped: "..treesChopped)
+	-- replant while repositioning
-		print("distance traveled: "..distanceTraveled)
+	print("replanting saplings...")
-		os.sleep(10)
+
-	elseif posX >= farmLength then
+	turtle.suck()
-		right()
+
-		right()
+
 	right()
 	back(1)
-		transferSaplings()
+
-		os.sleep(10)
+	turtle.suck()
-	elseif (posX % 4) == orient then
+
-		right()
+
-		result = handleTree()
+	left()
-		left()
+
-	elseif (posX % 4) == (2-orient) then
+	turtle.suck()
-		left()
+
-		result = handleTree()
+
-		right()
+	back(1)
 	turtle.select(SAPLING_TMP_SLOT)
 	turtle.suck()
 	turtle.select(SAPLING_SLOT)
 	turtle.place()
 end
-	if turtle.getFuelLevel() < MIN_FUEL_FOR_STEP then
+
 function checkTreeIsReallyThere()
 	local result = false
 	if turtle.up() then
-	if turtle.getFuelLevel() < MIN_FUEL_FOR_STEP then
+
 		turtle.select(SAPLING_SLOT)
 		os.sleep(2)
 		if turtle.detect() and (turtle.getItemCount(SAPLING_SLOT)>0) and (not turtle.compare()) then
 			result = true
 		end
-if farmLength==nil or farmLength<2 then
+
-	print("Farm length too short.\n")
+		distanceTraveled = distanceTraveled + 2
-	return
+	else -- couldn't move up, assume there are tree leaves
 		result = true
-if turtle.getItemCount(SAPLING_SLOT) < farmLength then
+
-	print("Not enough saplings in slot "..SAPLING_SLOT.."\n")
+
-	return
+
 
 function waitForTree() -- needs at least 1 sapling
 	print("waiting for tree...")
-	if not checkFuel() then
+	local result = false
-		print("Not enough fuel\n")
+
-		os.sleep(10)
+	os.sleep(TREE_GROW_SLEEP_TIME)
-		while not checkFuel() do
+	while treeDetectedCount < REPEATED_DETECTION_COUNT do -- because sometimes the turtle does not compare reliably
 		turtle.select(SAPLING_SLOT)
 		os.sleep(1)
 		if turtle.compare() then
 			if treeDetectedCount>0 then
-	if not step() then
+				print("correcting invalid tree detection/comparison ("..treeDetectedCount..")")
-		print("Step unsuccessfull, exiting.\n")
+
 			treeDetectedCount = 0
 		else
 			treeDetectedCount = treeDetectedCount + 1
 			left()
 			os.sleep(REPEATED_DETECTION_TICK)
 			right()
 		end
 		os.sleep(NEXT_DETECTION_TICK)
 	end
 	os.sleep(1)
 	if treeDetectedCount < REPEATED_DETECTION_COUNT then
 		print("correct tree detection failed")
 	else
 		if checkTreeIsReallyThere() then
 			print("tree detected")
 			result = true
 		else
 			print("tree detected, but not found")
 		end
 	end
 	return result
 end
 function dumpWood() -- dump everything that is not a sapling
 	while back(1) and (posX>(0-MAX_WOOD_STORAGE_DISTANCE)) do
 	end
 
 	for i = 1,16 do
 		if (i~=SAPLING_SLOT) and (i~=FUEL_SLOT) then
 			turtle.select(i)
 			if not turtle.compareTo(SAPLING_SLOT) then
 				turtle.dropDown()
 				if turtle.getItemCount(i)>0 then
 					print("cannot dump wood, storage probably full...")
 					while turtle.getItemCount(i)>0 do
 						turtle.dropDown()
 						os.sleep(10)
 					end
 				end
 			end
 		end
 	end
 
 	forward(0-posX)
 end
 function checkWood()
 	print("checking wood amount...")
 	local woodAmount = 0
 	for i = 1,16 do
 		if (i~=SAPLING_SLOT) and (i~=FUEL_SLOT) then
 			turtle.select(i)
 			if not turtle.compareTo(SAPLING_SLOT) then
 				woodAmount = woodAmount + turtle.getItemCount(i)
 			end
 		end
 	end
 	if woodAmount > MAX_WOOD then
 		print("going to dump "..woodAmount.." of wood...")
 		dumpWood()
 	else
 		print("holding "..woodAmount.." of wood")
 	end
 end
 function checkFuel()
 	local result = true
 	if turtle.getFuelLevel() < MIN_FUEL_FOR_CYCLE then
 		turtle.select(FUEL_SLOT)
 		turtle.refuel()
 	end
 	if turtle.getFuelLevel() < MIN_FUEL_FOR_CYCLE then
 		result = false
 	end
 	return result
 end
 function cycle()
 	local result = true
 
 	checkSaplings()
 	checkFuel()
 
 	while not waitForTree() do
 		os.sleep(1)
 	end
 	chop()
 
 	checkWood()
 
 	cycleCount = cycleCount + 1
 	print("cycles finished: "..cycleCount)
 	print("distance traveled: "..distanceTraveled)
 	print("waiting between cycles...")
 	os.sleep(2)
 
 	return result
 end
 
 if turtle.getItemCount(SAPLING_SLOT) < MIN_SAPLINGS then
 	print("Not enough saplings in slot "..SAPLING_SLOT..", exiting.\n")
 	return false
 end
 
 while true do
 	if not cycle() then
 		print("Cycle unsuccessfull, exiting.\n")
 		return false
 	end
 end