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
                                broadcastLog = tonumber(line)
                                
                                line = file:read()
                                if line == nil then break end
                                receiverID = 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,10)
				write("Wait for all saplings to fall?")
				term.setCursorPos(1,11)
				waitFsap = read()
				
				term.clear()
				term.setCursorPos(1,1)
				write("Is there a chest placed behind the turtle for storage?")
				term.setCursorPos(1,3)
				chestPlaced = read()
				
				if peripheral.isPresent("right") then
				term.setCursorPos(1,5)
				write("Broadcast to receiver?")
				term.setCursorPos(1,6)
				broadcastLog = read()
				
					if chestPlaced == "true" or chestPlaced == "1" or chestPlaced == "yes" then
				term.setCursorPos(1,7)
				write("Receiver ID?")
				term.setCursorPos(1,8)
				receiverID = tonumber(read())
					else
				receiverID = 0	
					end
				else
				term.setCursorPos(1,4)
				print(" Sorry, but this turtle doesn't have a modem so it can't broadcast, Skipping this setting")
				broadcastLog = 0
				receiverID = 0
				end
				
				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

	os.setComputerLabel("X90Logger")

function broadcastMsg (message)
                	if string.lower(broadcastLog) == "yes" or string.lower(broadcastLog) == "true" or string.lower(broadcastLog) == "1" then
                	message = os.getComputerLabel()..":"..os.getComputerID().." "..message
                	rednet.send(receiverID, message)
                	end
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

	if string.lower(broadcastLog) == "yes" or string.lower(broadcastLog) == "true" or string.lower(broadcastLog) == "1" then
		rednet.open("right")
	end


	function getSaplings(times)
		for i=1, times do
			
			if turtle.detect() then
			turtle.dig()
			turtle.suck()
			end
			turtle.forward()
			turtle.suck()
		
		end
	end
	function goForward (times)
			if turtle.getFuelLevel() < times then
				turtle.refuel(fuel)
				MSG = "Turtle fuel level was low, so we refueled. New fuel level: "..turtle.getFuelLevel()
				print(MSG)
				broadcastMsg(MSG)
	
			end
		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
				MSG = "Chopping down tree :) I think?"
				print(MSG)
				broadcastMsg(MSG)
					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
						turtle.down()
						sleep(20)
						turtle.suckUp()
						turtle.suck()
						
						getSaplings(1)
						turtle.turnLeft()
						turtle.suck()
						
						getSaplings(1)
						
						turtle.turnLeft()
						turtle.suck()
						
						getSaplings(2)
						
						turtle.turnLeft()
						turtle.suck()
						getSaplings(2)
						turtle.turnLeft()
						turtle.suck()
						getSaplings(2)
						turtle.turnLeft()
						turtle.suck()
						getSaplings(1)
						turtle.turnRight()
						turtle.suck()
						turtle.back()
						turtle.suck()
						turtle.up()
						turtle.suckDown()
						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()
	MSG = "There are currently only "..saplingCount.." saplings in slot "..sapling..", please add another "..saplingNeeded
	print(MSG)
	broadcastMsg(MSG)
			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()
	MSG = "There are currently only "..dirtCount.." dirt in slot "..dirt..", please add another "..dirtNeeded
	print(MSG)
	broadcastMsg(MSG)
			sleep (0.5)
end
while fuelCount < (doWidth)+1 do
			term.setCursorPos(1, 2)
	
	fuelCount = turtle.getItemCount(fuel)
	
	fuelNeeded = (doWidth+1)-fuelCount
	term.clear()
	MSG = "There are currently only "..fuelCount.." fuel in slot "..fuel..", please add another "..fuelNeeded
	print(MSG)
	broadcastMsg(MSG)
			sleep (0.5)
end
	
	MSG = "Stock levels sufficient, starting"
	print(MSG)
	broadcastMsg(MSG)
	
end
	

	function xFarmTree ()
	
		if turtle.detectDown() then
					turtle.select(sapling)
					if turtle.compareDown() then
					MSG = "Sapling not mature yet."
					print(MSG)
					broadcastMsg(MSG)
					else
					MSG = "Unknown object, lets destroy it!"
					print(MSG)
					broadcastMsg(MSG)
					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)
							MSG = "Placing sapling."
							print(MSG)
							broadcastMsg(MSG)
							turtle.placeDown()
						end
					end
						
		
			
	end
	

	
	function checkFuel ()
		movementLenght = (doLenght*3)*(doWidth*3)
		if turtle.getFuelLevel() < movementLenght then
		turtle.refuel(fuel)
					MSG = "Turtle refueled, fuel level is: "..turtle.getFuelLevel()
					print(MSG)
					broadcastMsg(MSG)	
		else
					MSG = "Turtle has a sufficient fuel level"
					print(MSG)
					broadcastMsg(MSG)
		end
	end

	
	function turtleStart ()
	checkFuel()
	turtle.up()
	end
	
function turtleShutD ()
	
	if doWidth%2 == 1 or doWidth == 2 then
		
		if doWidth == 2 then
		turtle.turnRight()
		goForward((doWidth*3))
		turtle.turnLeft()
		else
		goForward((doLenght*3)+3)
		turtle.turnLeft()
		goForward(doWidth*3)
		turtle.turnLeft()
		end
		
	else
	turtle.turnRight()
	goForward(doLenght*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)
					MSG = "Transfered "..quantity.." items from "..i.." to "..slot
					print(MSG)
					broadcastMsg(MSG)
		
		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)
					MSG = "Transfered "..quantity.." items from "..i.." to "..slot
					print(MSG)
					broadcastMsg(MSG)
		
		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)
					MSG = "Transfered "..quantity.." items from "..i.." to "..slot
					print(MSG)
					broadcastMsg(MSG)
		
		end
	
	
	end
	
					MSG = "Inventory sorting done."
					print(MSG)
					broadcastMsg(MSG)
	--End Sorting	
	
	turtle.down()
	if chestPlaced == "1" or string.lower(chestPlaced) =="true" or string.lower(chestPlaced) == "yes" then
	turtle.turnLeft()
	turtle.turnLeft()
					MSG = "Will now store goods into chest"
					print(MSG)
					broadcastMsg(MSG)
		for i=1,16 do

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

		end
					MSG = "Storing done, now going into idle mode."
					print(MSG)
					broadcastMsg(MSG)
		turtle.turnLeft()
		turtle.turnLeft()
	
	else
					MSG = "There is no chest, going into idle mode"
					print(MSG)
					broadcastMsg(MSG)
	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
                                
					MSG = "Computerized harvest starting."
					print(MSG)
					broadcastMsg(MSG)
                                harvest()
                end
          
                if event == "char" and p1 == "r" then
                                
					MSG = "Manual harvest starting."
					print(MSG)
					broadcastMsg(MSG)
                                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.