View difference between Paste ID: wkKgw4CC and 11qTwuK8

--- chfirfarm
+-- monstercleanup
--- refill fuel in slot FUEL_SLOT
+-- sweeps a (MAX_X+1) x (MAX_Y+1) area, kills monsters and plants torches (chunks must be loaded!)
--- requires at least 4 saplings in slot SAPLING_SLOT
+-- plant turtle ONE BLOCK ABOVE ground/floor so that torches could be placed under the turtle !!!
--- 2x2 planting area in front (and to the right) of the turtle
+-- plant turtle to the left bottom corner of the desired cleaning area (this will be the 0,0 position)
--- must start with 4 saplings planted in the planting area or even the tree can be already grown
+-- X coordinate increases to the right, Y coordinate increases to the front
--- wood deposit anywhere behind the turtle, but there has to be some stopping block
+-- turtle will need to be refueled to minimum of approx. (MAX_X+2)*(MAX_Y+2) (1 coal=80)
--- auxiliary sapling storage somewhere below the starting turtle position (directly under it) where fallen saplings should be collected
+-- load slots with torches (or whatever you want to be placed under the turtle as it sweeps the area)
--- if the turtle stops at the wood deposit, it means it's full and needs to be emptied
+-- you will need about 2 torches per 100m^2 (+borders)
 
 local MAX_X = 58
-local FUEL_SLOT = 1
+local MAX_Y = 58
-local SAPLING_SLOT = 2
+
-local SAPLING_TMP_SLOT = 3
+local posY = 0
-local MIN_SAPLINGS = 5
+local orient = 0 -- orientation relative to original placement: 0 = front, 1 = right, 2 = back, 3 = left
-local SAPLINGS_BUFFER = 64
+local slotIndex = 1
-local WOOD_SLOT = 4
+
-local MAX_WOOD = 620
+-- ------------------------------------------------------------------------------------------------------------
-local MIN_FUEL_FOR_CYCLE = 360
+
-local MAX_WOOD_STORAGE_DISTANCE = 32
+
-local REPEATED_DETECTION_COUNT = 3
+
-local REPEATED_DETECTION_TICK = 1
+
-local NEXT_DETECTION_TICK = 1
+
-local TREE_GROW_SLEEP_TIME = 40
+
 end
-local orient = 0
+
-local cycleCount = 0
+-- ------------------------------------------------------------------------------------------------------------
-local distanceTraveled = 0
+
-local auxiliaryDepth = 0
+
 	orient = orient+1
-function forward(n)
+
-	for i=1,n do
+
-		if turtle.forward() then
+
-			distanceTraveled = distanceTraveled + 1
+
-			if orient==0 then
+
-				posX = posX+1
+-- ------------------------------------------------------------------------------------------------------------
-			end
+function killMonsters()
-			if orient==2 then
+
-				posX = posX-1
+	turtle.attack()
-			end
+	turtle.attack()
 	turtle.attackUp()
-			return false
+	turtle.attackUp()
 	turtle.attackDown()
 	turtle.attackDown()
-	return true
+	turtle.dig()
 	turtle.digDown()
-function back(n)
+	os.sleep(0.7)
-	for i=1,n do
+
-		if turtle.back() then
+
-			distanceTraveled = distanceTraveled + 1
+-- ------------------------------------------------------------------------------------------------------------
-			if orient==0 then
+function forward()
-				posX = posX-1
+	while not turtle.forward() do
-			end
+		killMonsters()
-			if orient==2 then
+
-				posX = posX+1
+	if orient==0 then
-			end
+		posY = posY+1
 	end
-			return false
+	if orient==1 then
 		posX = posX+1
 	end
-	return true
+	if orient==2 then
 		posY = posY-1
 	end
 	if orient==3 then
 		posX = posX-1
 	end
 end
 
 -- ------------------------------------------------------------------------------------------------------------
 function cleanupPlaceTorch()
 	while turtle.getItemCount(slotIndex)==0 and slotIndex<16 do
 		slotIndex = slotIndex + 1
 	end
 	if turtle.getItemCount(slotIndex) > 0 then
 		while not turtle.placeDown() do
 			killMonsters()
-function reorderSaplings()
+
-	local saplingsReordered = 0
+
-	for i = 1,16 do
+
-		if i~=SAPLING_SLOT then
+
-			turtle.select(i)
+-- ------------------------------------------------------------------------------------------------------------
-			os.sleep(0.1)
+function cleanupStepAction()
-			if turtle.compareTo(SAPLING_SLOT) and (turtle.getItemCount(i)>0) then
+	-- kill monsters all around
-				while (turtle.getItemCount(i)>0) and (turtle.getItemCount(SAPLING_SLOT)<64) and (turtle.transferTo(SAPLING_SLOT,1)) do
+	for i=1,4 do
-					saplingsReordered = saplingsReordered + 1
+		killMonsters()
-					os.sleep(0.1)
+		turtle.turnRight()
-				end
+
-			end
+
 	if (posX % 10 == 0 and posY % 10 == 0) or ((posX+5) % 10 == 0 and (posY+5) % 10 == 0) then
 		cleanupPlaceTorch()
-	print("reordered "..saplingsReordered.." saplings")
+
 
-function dumpExcessSaplings()
+
-	for i = 1,16 do
+
-		if (i~=SAPLING_SLOT) and (i~=FUEL_SLOT) then
+-- ------------------------------------------------------------------------------------------------------------
-			turtle.select(i)
+function cleanupStepMove()
-			if turtle.compareTo(SAPLING_SLOT) and (turtle.getItemCount(i)>0) then
+
-				turtle.drop()
+
-			end
+	if orient==0 then
 		if posY<MAX_Y then
 			forward()
 		elseif posX<MAX_X then
 			right()
-function checkSaplings()
+			forward()
-	reorderSaplings()
+
-	if turtle.getItemCount(SAPLING_SLOT) < MIN_SAPLINGS then
+
-		print("insufficient saplings, waiting for decaying leaves...")
+			result = false
-		os.sleep(60)
+
-		print("refilling saplings from auxiliary storage...")
+	elseif orient==2 then
-		while turtle.down() do
+		if posY>0 then
-			auxiliaryDepth = auxiliaryDepth + 1
+			forward()
-			distanceTraveled = distanceTraveled + 1
+		elseif posX<MAX_X then
 			left()
 			forward()
-		turtle.select(SAPLING_TMP_SLOT)
+
-		if turtle.suckDown(SAPLINGS_BUFFER) then
+
-			print("some saplings found in auxiliary storage")
+			result = false
 		end
-			print("getting more saplings failed")
+
 
-		reorderSaplings()
+
-		if turtle.getItemCount(SAPLING_SLOT) >= SAPLINGS_BUFFER then
+
-			print("returning excess saplings...")
+
-			dumpExcessSaplings()
+-- ------------------------------------------------------------------------------------------------------------
 function cleanupFinish()
-		while auxiliaryDepth>0 do
+	-- move back to starting position
-			turtle.up()
+	while orient~=3 do
-			auxiliaryDepth = auxiliaryDepth - 1
+		right()
-			distanceTraveled = distanceTraveled + 1
+
 	while posX>0 do
 		forward()
-	if turtle.getItemCount(SAPLING_SLOT) < MIN_SAPLINGS then
+
-		print("Not enough saplings in slot "..SAPLING_SLOT..", waiting for saplings...\n")
+	while orient~=2 do
-		while turtle.getItemCount(SAPLING_SLOT) < MIN_SAPLINGS do
+		left()
-			os.sleep(10)
+
 	while posY>0 do
 		forward()
 	end
 end
 
 -- ------------------------------------------------------------------------------------------------------------
-function chop() --needs 5 saplings and 80 fuel
+function main()
-	print("chopping tree...")
+	local cycle = true
-	local height = 0
+	while cycle do
-	turtle.select(WOOD_SLOT)
+		cleanupStepAction()
-	turtle.dig()
+		cycle = cleanupStepMove() -- returns false if finished
-	forward(1)
+
 	cleanupFinish() -- move back to starting position
-	while turtle.detect() or turtle.detectUp() do
+
-		turtle.select(WOOD_SLOT)
+
-		turtle.dig()
+
-		turtle.digUp()
+-- ============================================================================================================
-		if turtle.up() then
+
-			height = height + 1
+main()