1

-- Pam's greenhouse farming turtle by _TheSettler_

-- User inputs
local isActive      = "true"
local fieldML       = 5
local fuelSlot      = 16
xmax = 10
ymax = 30
local mitPrintTime  = 3


local xLine         = "xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx"
local status        = "Booting"
local activeM       = " Active = "
local statusM       = " Status = "
local minFuel       = 1500
local triedRefuel   = false
local x, y, z, f
local n = 0

local function syncFile(file, cord)
  posOut = io.open(file, "w")
  posOut:write(cord)
  posOut:close()
end

local function abort(msg)
  syncFile()
  status("ERROR: "..msg)
  mitPrint(4, statusM, status)
  do return end
end

local function up(n)
  for i = 1, n do
        while not turtle.up() do
          turtle.digUp()
        end
        y = y + 1
        syncFile("data/y.txt", y)
  end
end

local function down(n)
  for i = 1, n do
        while not turtle.down() do
          turtle.digDown()
        end
        y = y - 1
        syncFile("data/y.txt", y)
  end
end

local function moveF(dir, n)
  if dir == 0 or 1 or 2 or 3 then
    print("dir was not 0-3 ", dir)
    while f ~= dir do
    turtle.turnRight()
    f = f + 1
      if f >= 4 then
      f = 0
      end
    end
  else
  abort("invalid dir")
  end
  f = dir
    if n ~= 0 then
      for i = 1, n do
         turtle.forward()
        if f == 0 then
        x = tonumber(f) + 1
        elseif f == 1 then
              y = tonumber(y) + 1
              elseif f == 2 then
              x = tonumber(x) - 1
              elseif f == 3 then
              y = tonumber(y) - 1
              end
      end
     else
      abort("invalid state for F")
          end
    syncFile("data/x.txt", x)
    syncFile("data/y.txt", y)
    syncFile("data/f.txt", f)
  end


local function getPos(file)
posIn = io.open(file, "r")
pos = posIn:read()
posIn:close()
return pos
end

local function background()
term.clear()
term.setCursorPos(2,1)
print(xLine)
term.setCursorPos(2,3)
print(xLine)
 term.setCursorPos(2,5)
print(xLine)
mitPrint(3, activeM, isActive, false)
mitPrint(5, statusM, status, false)
mitPrint(13,"Writen by _TheSettler_", " ", false)
end

function mitPrint(h, m1, m2, s)
m1 = tostring(m1)
m2 = tostring(m2)
m1l = string.len(m1)
m2l = string.len(m2)
len = 39 - m1l - m2l
len = len / 2
term.setCursorPos(len, h)
term.clearLine()
print(m1, m2)
  if s == false then
  else
  os.sleep(mitPrintTime)
  end
end

local function fuelCheck()
status = "Checking fuelLevel"
mitPrint(4, statusM, status)
fuel = turtle.getFuelLevel()
  if fuel < minFuel then
  status = "Fuel is to low"
  mitPrint(4, statusM, status)
  mitPrint(2, activeM, isActive)
   if triedRefuel == false then
    refuel()
   else
    isActive = "false"
    status = "Unable to refuel"
    mitPrint(4, statusM, status)
    mitPrint(2, activeM, isActive)
   end
  else
  status = "Confirmed fuel level"
  mitPrint(4, statusM, status)
  end
end

local function refuel()
status = "Refueling"
mitPrint(4, statusM, status)
turtle.select(fuelSlot)
space = turtle.getItemSpace()
turtle.suckDown(space)
count = turtle.getItemCount()
turtle.refuel(count)
status = "refuled"
mitPrint(4, statusM, status)
triedRefuel = true
fuelCheck()
end

local function setPos(nx, ny, nz, nf)
x = nx
y = ny
z = nz
f = nf
    syncFile("data/x.txt", x)
    syncFile("data/y.txt", y)
    syncFile("data/z.txt", z)
    syncFile("data/f.txt", f)
end

local function checkPos()
x = getPos("data/x.txt")
y = getPos("data/y.txt")
z = getPos("data/z.txt")
f = getPos("data/f.txt")
success, inspectData = turtle.inspectDown()
  if inspectData.name == "minecraft:chest" then
  setPos(0, 0, 0 ,0)
  status = "Parked on chest, set 0,0 "
  mitPrint(4, statusM, status)
  else
  status = "Not parked on chest"
  --navigateFromBoot()
  mitPrint(4, statusM, status)
  isActive = "false"
  end
end

local function navigateFromBoot()
    if x ~= 0 and y ~= 0 and f ~= 0 then
    moveF(2,x)
    moveF(3,y)
    end
end

local function checkActive()
    if isActive == "false" then
    status = "Turtle is not active"
    mitPrint(4, statusM, status)
    sleep(10000000)
    os.shutdown()
    end
end

local function go()
  while y ~= ymax do
    if turtle.detectUp() == true then
    status = "Field found"
    mitPrint(4, statusM, status)
    harvestLine()
    print("done harvest")
    moveF(0, 1)
    else
    x = getPos("data/x.txt")
    y = getPos("data/y.txt")
      if x == xmax then
      moveF(1,ymax)
      moveF(2, 1)
      else
      moveF(f,1)
      end
    end
  end
end

function harvestLine()
print("runn harvestline")
y = tonumber(getPos("data/y.txt"))
  if y == 0 then
  dir = 1
  elseif y == ymax then
  dir = 3
  else
  print("Error line 240")
  end

-- simplefied replant
turtle.digDown()
turtle.placeDown()

moveF(dir,1)
  fm = fieldML - 2
  for i = 1, fm do
  turtle.digDown()
  turtle.placeDown()
  moveF(dir, 1)
  i = i + 1
  end
d =  dir + 2
moveF(d, fieldML)
end




background()
checkPos()

while true do
fuelCheck()
checkActive()
go()
end