View difference between Paste ID: bgWmf8Ja and MFrcBNS9

 --{program="aTreeFarm",version="1.04b",date="2018-01-07"}
 ---------------------------------------
 -- aTreeFarm           by Kaikaku
 -- 2018-01-07, v1.04   bugfix (turtle start position)
 -- 2018-01-05, v1.03   bugfix (turtle digged drop chest)
 -- 2017-12-02, v1.02   start with craft fuel and empty to allow tHome
 -- 2015-01-31, v1.01   fixed initial refuelling
 -- 2015-01-31, v1.00   finalized UI + counter
 -- 2015-01-30, v0.80   auto set-up option
 -- 2015-01-26, v0.70   preparing for video
 -- 2014-01-12, v0.61   replant limited tries
 -- 2014-01-04, v0.60   redstone stop
 -- 2013-12-15, v0.51   initial
 ---------------------------------------
 
 
 ---------------------------------------
 ---- DESCRIPTION ----------------------
 ---------------------------------------
 -- Turtle-automated tree farm.
 -- Details see information during program
 --   execution or YouTube video.
 
 
 ---------------------------------------
 ---- PARAMETERS -----------------------
 ---------------------------------------
 local cVersion  ="1.04"
 local cPrgName  ="aTreeFarm"
 local cMinFuel  = 960*2      -- 2 stacks of planks
 
 local minRandomCheckSapling=0.1 -- below this will check replant
 local actRandomCheckSapling=minRandomCheckSapling*2
 local cIncreaseCheckSapling_Sapling=0.02
 local cIncreaseCheckSapling_Stub=0.04
 local cMaxCheckSapling=0.6
 local strC="tReeTreESdig!diG;-)FaRmKaIKAKUudIgYdIgyTreEAndsOrRygUYsd"
 
 local cSlotChest=16           -- chest for crafty turtle
 local cCraftRefuelMaxItems=32 -- use how many logs to refuel at max
 local cSlotRefuel=2           -- where to put fuel
 local cExtraDigUp=1           -- go how many extra levels to reach jungle branches
 local cLoopEnd=56             -- one loop
 local cWaitingTime=20         -- if redstone signal in back is on
 
 ---------------------------------------
 ---- VARIABLES ------------------------
 ---------------------------------------
 local strC_now=""
 local strC_next=""
 
 local tmpResult=""
 local blnAskForParameters=true
 local blnShowUsage=false
 local blnAutoSetup=false
 local strSimpleCheck="Press enter to start:"
 local intCounter=0
 local maxCounter=0
 
 ---------------------------------------
 ---- tArgs ----------------------------
 ---------------------------------------
 local tArgs = {...}
 if #tArgs >= 1 then -- no error check
   blnAskForParameters=false
   if tArgs[1]=="help" then blnShowUsage=true end
   if tArgs[1]=="setup" then blnAutoSetup=true end
   if tArgs[1]=="set-up" then blnAutoSetup=true end
   if tonumber(tArgs[1])~=nil then
     maxCounter=tonumber(tArgs[1])
   end
 end
 
 if blnShowUsage then
   print("+-------------------------------------+")
   print("  "..cPrgName..", by Kaikaku")
   print("+-------------------------------------+")
   print("Usage: aTreeFarm [setup/set-up]")
   print("   or: aTreeFarm [maxCounter]")
   print("setup or set-up:")
   print("   Will start auto set-up")
   print("maxCounter:")
   print("   0=will farm infinitely")
   print("   x=will farm x rounds")
   print("More details on YouTube ;)")
   return
 end
 
 ---------------------------------------
 -- BASIC FUNCTIONS FOR TURTLE CONTROL -
 ---------------------------------------
 local function gf(n)
   if n==nil then n=1 end
   for i=1,n,1 do while not turtle.forward() do end end
 end
 local function gb(n)
   if n==nil then n=1 end
   for i=1,n,1 do while not turtle.back() do end end
 end
 local function gu(n)
   if n==nil then n=1 end
   for i=1,n,1 do while not turtle.up() do end end
 end
 local function gd(n)
   if n==nil then n=1 end
   for i=1,n,1 do while not turtle.down() do end end
 end
 local function gl(n)
   if n==nil then n=1 end
   for i=1,n,1 do while not turtle.turnLeft() do end end
 end
 local function gr(n)
   if n==nil then n=1 end
   for i=1,n,1 do while not turtle.turnRight() do end end
 end
 local function pf(n)
   -- moves backwards if n>1
   if n==nil then n=1 end
   for i=1,n,1 do if i~=1 then gb() end turtle.place() end
 end
 local function pu()  turtle.placeUp()    end
 local function pd()  turtle.placeDown()  end
 local function df()  return turtle.dig() end
 local function du()  turtle.digUp()      end
 local function dd()  turtle.digDown()    end
 local function sf()  turtle.suck()       end
 local function su()  turtle.suckUp()     end
 local function sd(n)
   if n==nil then
     while turtle.suckDown() do end
   else
     for i=1,n do
 	  turtle.suckDown()
 	end
   end
 end
 local function Df()  turtle.drop()      end
 local function Du(n) if n==nil then n=64 end turtle.dropUp(n) end
 local function Dd(n) if n==nil then n=64 end turtle.dropDown(n) end
 local function ss(s) turtle.select(s)   end
 
 local function askForInputText(textt)
   local at=""
   -- check prompting texts
   if textt==nil then textt="Enter text:" end
 
   -- ask for input
   write(textt)
   at=read()
   return at
 end
 
 local function checkFuel()
   local tmp=turtle.getFuelLevel()
   return tmp
 end
 
 function checkRefuel(minFuel, slotFuel)
   if slotFuel==nil then slotFuel=2 end
   if minFuel==nil then minFuel=1000 end
   local tmpFuel=0 tmpFuel2=0
   local tmpItems=65 --turtle.getItemCount(slotFuel)
   local cSleep=5
 
   -- step 1 check if more fuel is required
   tmpFuel=turtle.getFuelLevel()
   tmpFuel2=tmpFuel-1 -- triggers print at least once
   if tmpFuel<minFuel then
 	ss(slotFuel)
 	-- step 2 refuel loop
 	while tmpFuel<minFuel do
 	  -- step 2.1 need to update fuel level?
 	  if tmpFuel2~=tmpFuel then --tmpItems~=turtle.getItemCount(slotFuel) then
 	    -- fuel still too low and there have been items consumed
         print("Need more fuel ("..tmpFuel.."/"..minFuel..") in slot "..slotFuel)
 		if turtle.getItemCount(2)<64 then
             turtle.turnLeft()
             turtle.turnLeft()
             sf(64 - turtle.getItemCount(15))
             turtle.turnRight()
             turtle.turnRight() end
 	  end
 	  -- step 2.2 try to refuel
-	  if tmpItems>0 then
+      for i=3,15,1 do
-	    -- try to refuel this items
+
-	    turtle.refuel()
+
-	  else
+
-	    os.sleep(cSleep)
+
 	  -- step 2.3 update variables
 	  tmpItems=turtle.getItemCount(slotFuel)
 	  tmpFuel2=tmpFuel
 	  tmpFuel=turtle.getFuelLevel()
     end
   end
   -- step 3 either no need to refuel
   --        or successfully refuelled
   print("Fuel level ok  ("..tmpFuel.."/"..minFuel..")")
 end
 
 
 ---------------------------------------
 ---- functions ------------------------
 ---------------------------------------
 
 local function cutTree()
 local tmpExtraDigUp=cExtraDigUp
 
   ---- assumptions
   -- turtle faces trunk one block below bottom
   ---- variables
   local intUpCount = 0
   local intFace = 0 -- -1=left, 1=right
   local blnDigSomething=false
 
   term.write("  cutting tree: ")
 
   -- get into tree column
   df()
   while not turtle.forward() do df() end
   gr() df() gl() df() gl() df()
   local intFace=-1
 
   -- cut and go up
   repeat
     blnDigSomething=false
     du()
     while not turtle.up() do du() end
     blnDigSomething=df() or blnDigSomething
     if intFace==-1 then
       gr()
       blnDigSomething=df() or blnDigSomething
       gr()
     elseif intFace==1 then
       gl()
       blnDigSomething=df() or blnDigSomething
       gl()
     end
     intFace=intFace * -1
     blnDigSomething=df() or blnDigSomething
     intUpCount = intUpCount +1
     term.write(".")
 
 	-- check for 2 conditions
 	-- either
 	-- 1) nothing above the turtle
 	-- or
 	-- 2) nothing dig on the other columns blnDigSomething
 	if not (turtle.detectUp() or blnDigSomething) then
 	  tmpExtraDigUp=tmpExtraDigUp-1
     else
       tmpExtraDigUp=cExtraDigUp -- restore it
 	end
   until tmpExtraDigUp<0 --not (turtle.detectUp() or blnDigSomething) ----- NOT kai_2
 
   -- go off tree column
   if intFace==-1 then
     gl()
   elseif intFace==1 then
     gr()
   end
   df()
   while not turtle.forward() do df() end
   gl()
   intFace = 0
 
   intFace = 1 -- 1=forward,-1=backwards
   -- go back down
   -- hint: only digging front and back in order
   --       to not cut into larger neighbouring,
   --       as this may leave upper tree parts left
   for i = 1,intUpCount+1 do
     dd() df() gl(2)	df()
 	intFace=intFace* -1
     while not turtle.down() do dd() end
   end
   if intFace==1 then
     gl()
   elseif intFace==-1 then
     gr()
   end
   sf() df() term.write(".")
   print(" done!")
 
   -- plant new
   plantTree()
   while not turtle.up() do du() end
   sd()
 end
 
 ---------------------------------------
 function plantTree()
 local tmpCount=0
   ---- assumptions
   -- turtle faces place to plant
 
   -- check for enough saplings
   sf()
   if turtle.getItemCount(1) > 1 then
     -- plant
     print("  plant new sapling")
     while not turtle.place() do
 	  print("  hard to plant here...")
 	  tmpCount=tmpCount+1
 	  if tmpCount>3 then break end
 	  os.sleep(1)
 	end  -- NOT kai_2
   else
     -- error
     print("  Out of saplings...") -- prog name
     os.sleep(5)
 	actRandomCheckSapling=cMaxCheckSapling
     return
   end
 end
 
 ---------------------------------------
 local function replantStub()
   ss(2) -- compare with wood in slot 2
   if turtle.compare() then
     -- assumption: there is only a stub left, so replant
 	-- if there is a tree on top of it, it will be harvested next round
 	print("  Replanting a stub")
 	df() ss(1)
 	if pf() then
 	  actRandomCheckSapling=actRandomCheckSapling+cIncreaseCheckSapling_Stub
 	else
 	  print("    failure!")
 	end
   else
     ss(1)
     end
   end
   local function eS(sI,sA,eA)
   local sO=""
   local sR=""
   if sA==nil then sA=1 end
   if eA==nil then eA=string.len(sI) end
   for i=sA,eA,1 do
 	sO=string.sub(sI,i,i)
 	if sR~="" then break end
     if sO=="a" then
       gl()
     elseif sO=="d" then
       gr()
 	else
       while not turtle.forward() do df() end
     end
   end
   return sR
 end
 
 ---------------------------------------
 local function randomReplant()
 local intSuccess=0
   if turtle.getItemCount(1) > 10 then
 	-- try to plant
     while not turtle.down() do dd() end
 	sf() gl() sf()
 	if turtle.place() then
 	  actRandomCheckSapling=actRandomCheckSapling+cIncreaseCheckSapling_Sapling
 	else
 	  if turtle.detect() then replantStub() end
 	end
 	gl() sf() gl() sf()
 	if turtle.place() then
 	  actRandomCheckSapling=actRandomCheckSapling+cIncreaseCheckSapling_Sapling
 	else
 	  if turtle.detect() then replantStub() end
 	end
 	gl() sf()
     while not turtle.up() do du() end
 	-- ensure min probability and max 100%
 	actRandomCheckSapling=math.max(actRandomCheckSapling-0.01,minRandomCheckSapling)
 	actRandomCheckSapling=math.min(actRandomCheckSapling,cMaxCheckSapling)
     print((actRandomCheckSapling*100).."% check probability")
   else
     -- extra suck
     while not turtle.down() do dd() end
 	sf() gr() sf() gr() sf() gr() sf() gr()	sf()
 	while not turtle.up() do du() end
 	sd()
   end
 end
 
 ---------------------------------------
 local function craftFuel()
 local tmpFuelItems=turtle.getItemCount(15)
 
   -- step 1 need fuel?
   if (turtle.getFuelLevel()<cMinFuel) and (turtle.getItemCount(cSlotChest)==1) then
   -- no refuelling if not exactly 1 item in slot cSlotChest (=chest)
     print("Auto refuel    ("..turtle.getFuelLevel().."/"..cMinFuel..") ...")
 
 	-- step 2 enough mats to refuel?
     --        assumption: slot 2 has wood
 	if tmpFuelItems>1 then
 	  -- step 2 store away stuff!
       ss(cSlotChest) while not turtle.placeUp() do du() end
 
 	  for i=1,15,1 do
 	    ss(i)
 		if i~=2 then
 		  Du()
 		else
 		  -- cCraftRefuelMaxItems
 		  Du(math.max(1,turtle.getItemCount(2)-cCraftRefuelMaxItems)) -- to keep the wood
 		end
 	  end
 
       -- step 3 get coal from chest behind
       if tmpFuelItems<64 then
       	turtle.turnLeft()
 	  	turtle.turnLeft()
 	  	sf(64 - tmpFuelItems)
 		turtle.turnRight()
 		turtle.turnRight() end
 
 
       -- step 4 refuel!
       for i=1,16,1 do
 	   	ss(i)
 		turtle.refuel()
 	  end
 	  print("New fuel level ("..turtle.getFuelLevel().."/"..cMinFuel..")")
 
       -- step 5 get back stuff!
       ss(1) --su(64)
 	  while turtle.suckUp() do end
 	  ss(cSlotChest) du() ss(1)
     else
 		if tmpFuelItems<64 then
         	turtle.turnLeft()
         	turtle.turnLeft()
         	sf(64 - tmpFuelItems)
         	turtle.turnRight()
         	turtle.turnRight() end
 	end
   end
 end
 
 
 ---------------------------------------
 local function emptyTurtle()
   print("  Drop what I've harvested!")
   while not turtle.down() do dd() end
   ss(2)
 
   if turtle.compareTo(1) then
     print("Error: Ups, in slot 2 is the same as in slot 1??")
     --Dd()
   else
     -- if slot 2 has other item (wood) than slot 1
 	--   keep one of them for comparison
 	if turtle.getItemCount(2)>1 then
       Dd(math.max(turtle.getItemCount(2)-1,0))
 	end
   end
   for i=3,15,1 do
     -- assumption slot 16 contains a chest
     ss(i) Dd()
   end
   os.sleep(0)
   ss(1)
 end
 
 ---------------------------------------
 ---- main -----------------------------
 ---------------------------------------
 -- step 0 info and initial check
 term.clear() term.setCursorPos(1,1)
 repeat
  print("+-------------------------------------+")
  print("| aTreeFarm "..cVersion..", by Kaikaku (1/2)    |")
  print("+-------------------------------------+")
  print("| Farm set-up: Place crafty felling   |")
  print("|   turtle down (e.g. bottom left     |")
  print("|   corner of chunk). Run program with|")
  print("|   parameter 'setup' (one time).     |")
  print("| Materials for auto set-up:          |")
  print("|   slot 3: chest   (1)               |")
  print("|   slot 4: cobble  (47)              |")
  print("|   slot 5: torches (8)               |")
  print("+-------------------------------------+")
 
 if blnAutoSetup then
   if turtle.getItemCount(3)~=1 or turtle.getItemCount(4)<47 or turtle.getItemCount(5)<8 then
   -- inventory not ready for set-up
     strSimpleCheck="Fill in slots 3-5 and press enter:"
   else
     strSimpleCheck="Press enter to start:"
   end
 else
   strSimpleCheck="Press enter to start:"
 end
 if not blnAskForParameters and strSimpleCheck=="Press enter to start:" then break end
 until askForInputText(strSimpleCheck)=="" and strSimpleCheck=="Press enter to start:"
 
 
 
 term.clear() term.setCursorPos(1,1)
 repeat
  print("+-------------------------------------+")
  print("| aTreeFarm "..cVersion..", by Kaikaku (2/2)    |")
  print("+-------------------------------------+")
  print("| Running the farm:                   |")
  print("|   Felling turtle sits above chest   |")
  print("|   (as after running set-up). Turtle |")
  print("|   needs some initial fuel to start. |")
  print("| Turtle inventory:                   |")
  print("|   slot  1: saplings          (20+x) |")
  print("|   slot  2: wood from sapling (1+x)  |")
  print("|   slot 16: chest             (1)    |")
  print("+-------------------------------------+")
 
 if turtle.getItemCount(1)<11 or turtle.getItemCount(2)==0 or turtle.getItemCount(16)~=1 then
   -- inventory not ready
   strSimpleCheck="Provide materials and press enter:"
 else
   strSimpleCheck="Press enter to start:"
 end
 --strSimpleCheck="Press enter to start:"
 if not blnAskForParameters and strSimpleCheck=="Press enter to start:" then break end
 if blnAutoSetup then strSimpleCheck="Press enter to start:" end
 until askForInputText(strSimpleCheck)=="" and strSimpleCheck=="Press enter to start:"
 
 
 ---------------------------------------
 ---- set-up farm ----------------------
 ---------------------------------------
 -- set-up = not running the farm
 if blnAutoSetup then
   write("Setting up tree farm...")
   checkRefuel(cMinFuel,cSlotRefuel)
   -- chest
   gf(3) gr() gf(3) gl() ss(3) dd() pd()
   -- path
   ss(4)
   for i=1,9,1 do gf() dd() pd() end gr()
   for i=1,3,1 do gf() dd() pd() end gr()
   for i=1,6,1 do gf() dd() pd() end gl()
   for i=1,3,1 do gf() dd() pd() end gl()
   for i=1,6,1 do gf() dd() pd() end gr()
   for i=1,3,1 do gf() dd() pd() end gr()
   for i=1,9,1 do gf() dd() pd() end gr()
   for i=1,8,1 do gf() dd() pd() end
   -- torches
   ss(5) gf(2) gl() pf() gu() gb(10) pd()
   gl() gf(5) pd() gf() pd() gf(5) pd() gr() gf(11) pd()
   gb(3) gr() gf(3) pd() gf(5) pd() gf(2) gr() gb(2) gd()
   print(" done!")
   print("You can now run the tree farm with: ",cPrgName)
   return
 end
 
 
 ---------------------------------------
 ---- tree farm ------------------------
 ---------------------------------------
 strC_next=string.sub(strC,1,1)
 
 -- initial up
 while not turtle.up() do du() end
 
 while true do
 
   -- step 6 need to craft some fuel?
   craftFuel()
 
   -- step 7 empty into chest
   emptyTurtle()
 
   -- step 0 check exit
   if maxCounter>0 then
     if intCounter==maxCounter then
 	  print("Completed all ",maxCounter,"  farming rounds.")
 	  print("I'm awaiting new commands, master!")
 	  --while not turtle.up() do du() end
 	  return
 	end
   end
 
   -- step 1 check fuel
   checkRefuel(cMinFuel,cSlotRefuel)
 
   -- step 2 wait if redstone signal
   while rs.getInput("back") do
     print("Waiting due to redstone signal ",cWaitingTime,"s.")
     os.sleep(cWaitingTime)
   end
 
   -- step 3 new round
   while not turtle.up() do du() end
   ss(1)
   intCounter=intCounter+1
   print("Starting round ",intCounter," with "..turtle.getItemCount(1).." saplings.")
 
   for i=1,cLoopEnd,1 do
 
     -- update commands
 	strC_now=strC_next
 	if i<cLoopEnd then
       strC_next=string.sub(strC,i+1,i+1)
     else
 	  strC_next=string.sub(strC,1,1)
 	end
 
     -- step 4 one step on the road
     tmpResult=eS(strC,i,i)
 	if tmpResult~="" then
 	  print("found special command: "..tmpResult)
 	end
 
 	-- step 5 check for blocks
 	-- step 5.1 check left hand side
 	if strC_now~="a" and strC_next~="a" then
 	  -- now  a=>just turned left
 	  -- next a=>will turned left
 	  gl()
 	  if turtle.detect() then cutTree() end
 	  gr()
 	end
 	-- step 5.2 check right hand side
 	if strC_now~="d" and strC_next~="d" then
 	  -- now  d=>just turned right
 	  -- next d=>will turn right
 	  gr()
 	  if turtle.detect() then cutTree() end
 	  gl()
 	end
 	sd()
 
 	if math.random()<=actRandomCheckSapling then
 	  if strC_now~="d" and strC_now~="a" then
 	    randomReplant()
 	  end
 	end
   end
 end