redwoodFarm

--[[
redwoodFarm v0.1 by bigougit
youtube.com/user/bigougit
http://twitter.com/bigougit

This program is for mining
or felling turtles only.

To install in-game, make sure
that http = true in your
computercraft config.

To install, open your turtle
and type:
pastebin get AfDQfiwf redwoodFarm

The turtle needs 5 sapplings
and 1 log to start. This
program only handles 2x2
trees like redwoods .

Place sapplings in slot 1
and logs in slot 2. The
turtle will use logs for
fuel as needed.

--]]

local continue = true
local treeCount = 0
local moved = 0
local fakeTrees = 0

turtle.select(1)
term.clear()
term.setCursorPos(1,1)

--return how many items in [slot]
local function sCount(slot)
  return turtle.getItemCount(slot)
end

function stack(slot)

  local room = turtle.getItemSpace(slot)
  local s = 0
  while room > 0 do
    s = s + 1
    if s >= 16 then
      room = 0
    end
    if s ~= slot then
      turtle.select(s)
      if turtle.compareTo(slot) then
        if sCount(s) >= room then
          turtle.transferTo(slot, room)
          room = 0
        else
          local temp = sCount(s)
          turtle.transferTo(slot,temp)
          room = room - temp
        end
      end
    end
  end
  turtle.select(slot)
end

local function dispStats(message)
  term.clear()
  term.setCursorPos(1,1)
  print("Bigougit's tree farming program.")
  print("Trees farmed:    "..treeCount)
  print("Fakes trees:     "..fakeTrees)
  if message ~= nil then
    print(message)
  end
end

function fuel(slot, need)
  local iCount = sCount(slot)
  --stack(slot)
  local cont = true
  while cont do
    if turtle.getFuelLevel() < need then
      if iCount > 1 then
        turtle.select(slot)
        turtle.refuel(1)
        if iCount == sCount(slot) then
          cont = false
        else
          iCount = sCount(slot)
        end
      else
        cont = false
      end
    else
      return true
    end
  end
  if turtle.getFuelLevel() < need then
    return false
  else
    return true
  end
end

function chop()
  if turtle.getFuelLevel() < 100 then
    print("need more fuel")
    return false
  end

  turtle.dig()
  turtle.forward()

  count = 0

  while turtle.detectUp() do
    turtle.dig()
    turtle.digUp()
    turtle.up()
    count = count + 1
    moved = moved + 1
   --print(count)
  end

  turtle.turnRight()
  turtle.dig()
  turtle.forward()
  turtle.turnLeft()
  turtle.dig()


  while count > 0 do
    turtle.dig()
    turtle.digDown()
    turtle.down()
    count = count - 1
    --print(count)
  end
  turtle.dig()
end

function plant()
  turtle.select(1)
  while sCount(1) <= 4 do
    dispStats("Need more sapplings.")
  end
  turtle.place()
  turtle.turnLeft()
  turtle.forward()
  turtle.turnRight()
  turtle.place()
  turtle.turnRight()
  turtle.place()
  turtle.turnLeft()
  turtle.back()
  turtle.place()
end

-- start of main program

dispStats(nil)
stack(1)
while ( sCount(1) <= 1 ) do
  dispStats("Need at least 2 sapplings in first slot to start.")
  sleep(2)
  term.clear()
  term.setCursorPos(1,1)
end

dispStats(nil)

if not turtle.detect() then
  turtle.place()
end

while continue do
  turtle.select(2)
  if turtle.compare() then
    if fuel(2, 18) then
      dispStats("Chopping Tree...")
      turtle.select(2)
      chop()
      plant()
    end
   -- stack(1)
   -- stack(2)
    turtle.select(1)
    if sCount(1) > 1 then
      turtle.place()
    end
    if moved > 0 then
      treeCount = treeCount + 1
      stack(1)
      stack(2)
      turtle.select(2)
    else
      --turtle.dig()
      fakeTrees = fakeTrees + 1
    end
    moved = 0
  end
  while not turtle.compare() do
    dispStats("Waiting for tree to grow.")
    redstone.setOutput("bottom",true)
    sleep(0.5)
    redstone.setOutput("bottom",false)
    sleep(5)
  end
  while sCount(1) <= 1 do
    dispStats("Need at least 2 sapplings in first slot to start.")
    sleep(2)
    term.clear()
    term.setCursorPos(1,1)
  end
  dispStats(nil)
  turtle.select(1)
  if not turtle.detect() then
    turtle.place()
  end
  turtle.select(2)
  sleep(.5)
end