Computercraft - Auto Birch Wood Farmer Code

local function loadSettings()

                file = io.open( "settings.txt", "r" )
                while true do
                                line = file:read()
                                if line == nil then break end
                          
                                if line == "true" then
                                                shouldOutput = true
                                else
                                                shouldOutput = false
                                end
                          
                                line = file:read()
                                if line == nil then break end
                                doWidth = tonumber(line)
                          
                                line = file:read()
                                if line == nil then break end
                                doLenght = tonumber(line)
                                
                                line = file:read()
                                if line == nil then break end
                                waitFsap = tonumber(line)
                                
                                line = file:read()
                                if line == nil then break end
                                chestPlaced = tonumber(line)
                                
                                line = file:read()
                                if line == nil then break end
                                sapling = tonumber(line)
                                
                                line = file:read()
                                if line == nil then break end
                                dirt = tonumber(line)
                                
                                line = file:read()
                                if line == nil then break end
                                fuel = tonumber(line)
                          
                                file:close()
          
                                return true
                end
          
                file:close()
          
                return false

end

local function createSettings()

                term.clear()
                term.setCursorPos( 1,1 )
                print( "Set the settings." )
				term.setCursorPos(1,1)
                write( "Output Redstone on cycle: " )
                term.setCursorPos(1,2)
                local str = string.lower( read() )
                if str == "1" or str == "yes" or str == "true" then
                                shouldOutput = true
                else
                                shouldOutput = false
                end
				term.setCursorPos(1,4)
                write("How many rows?")
                term.setCursorPos(1,5)
                doWidth = tonumber(read())

				term.setCursorPos(1,7)
                write("How many trees per row? ")
                term.setCursorPos(1,8)
                doLenght = tonumber(read())
				
				term.setCursorPos(1,9)
				write("Wait for all saplings to fall?")
				term.setCursorPos(1,10)
				waitFsap = read()
				
				term.clear()
				term.setCursorPos(1,1)
				write("Is there a chest placed behind the turtle for storage?")
				term.setCursorPos(1,4)
				chestPlaced = read()
				
				
				term.clear()
				term.setCursorPos(1,1)
				write("In what slot is your sapling (1-16)?")
				term.setCursorPos(1,2)
				sapling = tonumber(read())
				
				term.setCursorPos(1,4)
				write("In what slot is the dirt (1-16)?")
				term.setCursorPos(1,5)
				dirt = tonumber(read())
				
				term.setCursorPos(1,7)
				term.write("In what slot is the fuel (1-16)?")
				term.setCursorPos(1,8)
				fuel = tonumber(read())
                
                
          
                file = io.open("settings.txt", "w")
                if file == nil then
                                --error? could be locked
                                return
                end
          
                if shouldOutput then
                                file:write( "true" )
                                file:write( "n" )
                else
                                file:write( "false" )
                                file:write( "n" )
                end
          
                file:write( doWidth )
                file:write( "n" )
                file:write( doLenght )
                file:write( "n" )
                file:write( waitFsap )
                file:write( "n" )
                file:write( sapling )
                file:write( "n" )
                file:write( dirt )
                file:write( "n" )
                file:write( fuel )
                file:write( "n" )
          
                file:close()
          
                term.clear()
                term.setCursorPos( 1,1 )
                print( "Ready to start!" )


end







term.clear()
term.setCursorPos( 1,1 )
print( "X90 Tree Farmer Logger program starting..." )

if fs.exists( "settings.txt" ) then
                if not loadSettings() then
                                createSettings()
                end
          
                term.clear()
                term.setCursorPos( 1,1 )
                print( "Ready to cycle" )

else
                createSettings()
end





	function goForward (times)
		for i=1, times do
		if turtle.detect() then
				turtle.dig()
				turtle.forward()
				if turtle.detectUp() then
					while turtle.detectUp() do
					turtle.digUp()
					turtle.up()
					end
					while not turtle.detectDown() do
					turtle.down()
					end
					if i==times then
					turtle.digDown()
					
						if string.lower(waitFsap) == "true" or string.lower(waitFsap) == "1" or string.lower(waitFsap) == "yes" then
						sleep(15)
						end
					
					else
					turtle.up()
					end
				end
		else
		turtle.forward()
		end
		end
	end


	function checkStock()
	saplingCount = turtle.getItemCount(sapling)
	fuelCount = turtle.getItemCount(fuel)
	dirtCount = turtle.getItemCount(dirt)

	
while saplingCount < (doLenght*doWidth)+1 do
			term.setCursorPos(1, 2)
	
	saplingCount = turtle.getItemCount(sapling)
	
	saplingNeeded = ((doLenght*doWidth)+1)-saplingCount
	term.clear()
	print("There are currently only "..saplingCount.." saplings in slot "..sapling..", please add another "..saplingNeeded)
			sleep (0.5)
end
while dirtCount < (doLenght*doWidth)+1 do
			term.setCursorPos(1, 2)
	
	dirtCount = turtle.getItemCount(dirt)
	
	dirtNeeded = ((doLenght*doWidth)+1)-dirtCount
	term.clear()
	print("There are currently only "..dirtCount.." dirt in slot "..dirt..", please add another "..dirtNeeded)
			sleep (0.5)
end
while fuelCount < (doWidth)+1 do
			term.setCursorPos(1, 2)
	
	fuelCount = turtle.getItemCount(fuel)
	
	fuelNeeded = (doWidth+1)-fuelCount
	term.clear()
	print("There are currently only "..fuelCount.." fuel in slot "..fuel..", please add another "..fuelNeeded)
			sleep (0.5)
end
	
	print("Stock levels sufficient, starting")
	
end
	

	function xFarmTree ()
	
		if turtle.detectDown() then
					turtle.select(sapling)
					if turtle.compareDown() then
					print("Sapling not mature yet.")
					else
					print("Unknown object, lets destroy it!")
					turtle.digDown()				
					end
		end		
				
					turtle.select(sapling)
					if turtle.compareDown() == false then 
					turtle.down()
					turtle.select(dirt)
						if turtle.compareDown() then
							turtle.up()
							turtle.select(sapling)
							turtle.placeDown()
						else
							turtle.digDown()
							turtle.select(dirt)
							turtle.placeDown()
							turtle.up()
							turtle.select(sapling)
							turtle.placeDown()
						end
					end
						
		
			
	end
	

	
	function checkFuel ()
		movementLenght = (doLenght*3)*(doWidth*3)
		if turtle.getFuelLevel() < movementLenght then
		print("Turtle is refueling")
		print("New fuel level is: " + turtle.getFuelLevel())	
		turtle.refuel(fuel)
		else
		print("Turtle has a sufficient fuel level");
		end
	end

	
	function turtleStart ()
	checkFuel()
	turtle.up()
	end
	
function turtleShutD ()
	
	if doWidth%2 == 1 or doWidth == 2 then
		
		if doWidth == 2 then
		else
		goForward((doLenght*3)+3)
		turtle.turnLeft()
		goForward(doWidth*3)
		turtle.turnLeft()
		end
		
	else
	goForward(doLenght*3)
	turtle.turnLeft()
	goForward(doWidth*3)
	turtle.turnLeft()
	end
	
	
	--Start Sorting Inventory
	
	for i=1, 16 do 
	
		turtle.select(i)
		if turtle.compareTo(dirt) then
			slot = dirt
			
			shouldMove = turtle.getItemSpace(slot)
			canMove = turtle.getItemCount(i)
			
				if canMove > shouldMove then
					quantity = shouldMove
				else
					quantity = canMove
				end
			
			turtle.transferTo(slot, quantity)
		
		elseif turtle.compareTo(fuel) then
			slot = fuel
			
			shouldMove = turtle.getItemSpace(slot)
			canMove = turtle.getItemCount(i)
			
				if canMove > shouldMove then
					quantity = shouldMove
				else
					quantity = canMove
				end
			
			turtle.transferTo(slot, quantity)
		
		elseif turtle.compareTo(sapling) then
			slot = sapling
			
			shouldMove = turtle.getItemSpace(slot)
			canMove = turtle.getItemCount(i)
			
				if canMove > shouldMove then
					quantity = shouldMove
				else
					quantity = canMove
				end
			
			turtle.transferTo(slot, quantity)
		
		end
	
	
	end
	
	print("Inventory sorting done.")
	--End Sorting	
	
	turtle.down()
	if chestPlaced == "1" or string.lower(chestPlaced) =="true" or string.lower(chestPlaced) == "yes" then
	turtle.turnLeft()
	turtle.turnLeft()
		print("Will now store goods into chest")
		for i=1,16 do

			if tonumber(i) == tonumber(sapling) then
			print("This is the saplings slot, skipping slot")
			elseif tonumber(i) == tonumber(fuel) then
			print("This is the fuel slot, skipping slot")
			elseif tonumber(i) == tonumber(dirt) then
			print("This is the dirt slot, skipping slot")
			else
			
			
				if turtle.getItemCount(i) > 0 then
				turtle.select(i)
				turtle.drop()
				print("Storing slot "..i.." done")
				else
				print("Slot "..i.." is empty, skipping")
				end
			end
			

		end
		print("Storing done, now going into idle mode.")
		turtle.turnLeft()
		turtle.turnLeft()
	
	else
	print("There is no chest, going into idle mode")
	end
end
	
	
--Start the farming process
function harvest ()	
	checkStock()
	turtleStart()
	heading=1
	heading = false
	for i=1, doWidth do
	

		for i=1, doLenght do
		goForward(3)
		xFarmTree()
	
		end
-- end the farming
	goForward(3)
	

	if not heading then
	turtle.turnLeft()
		goForward(3)
	turtle.turnLeft()
	else
	turtle.turnRight()
		goForward(3)
	turtle.turnRight()
	end
	
	heading = not heading
	
	end
	turtleShutD(heading)
end	
	
	
	
	
	
	
while true do
                event, p1, p2 = os.pullEvent()
          
                if event == "rednet_message" and p2 == "start" then
                                print("Computerized harvest starting.")
                                harvest()
                end
          
                if event == "char" and p1 == "r" then
                                print("Manual harvest starting.")
                                harvest()
                end
end	
	--Need to test to see if current code is working as expected.
	--Need to implement a proper shutdown function, IE. Where the turtle returns to start point.
	--Need to optimize code when finished with beta release.
	--Need to implement a rednet server option.
	--Need to implpement a feature to save the settings.