ernten3.lua

--- Ernten
function what()
    local data = turtle.getItemDetail()
        if data then
            return data.name
        else
            return "unknown"
        end
end

function tostop()
term.setCursorPos(19,1)
        term.blit("TO STOP: Clear Slot 1","fffffffffffffffffffff","000000000000000000000")
term.setCursorPos(1,12)



end

function dref(ru,min,mi)

dauer=ru*min+mi

      term.setCursorPos(1,1)
       dd=tostring(dauer)
    print(dd,"min to refuel             ")

     term.setCursorPos(1,12)
tostop()
end

function harvest()
    local success, data = turtle.inspectDown()
        if success then
            reif=tonumber(data.metadata)
                if reif==7 then
                    turtle.placeDown()
                    sleep(0.5)
                end
        end
end


function goarea(lg,br)
r=1
print(" ")
tostop()
    for x=1,br do
        for y=1,lg do
            term.setCursorPos(1,12)
            print("working at ",x,y,"     ")
                term.setCursorPos(1,12)

            harvest()
            if y<lg then
                if r==1 then
                    turtle.forward()
                else
                    turtle.back()
                end


            end
        end
                if x<br then
                turtle.turnRight()
                turtle.forward()
                turtle.turnLeft()
            end
            if r==1 then r=0
            else
                r=1
            end
    end

end
-----------
print ("Range  Area Range  Area ")
print (" 0     3x3    6    15x15")
print (" 1     5x5    7    17x17")
print (" 2     7x7    8    19x19")
print (" 3     9x9    9    21x21")
print (" 4    11x11  10    23x23")
print (" 5    13x13  11    25x25")

print ("Range Number ?")
el = tonumber(read())
sl =(el+1)*2+1
sb=sl


prit=sl*sb
print("Area = ",prit," Blocks")
sprit=prit+4

print ("pause between harvest in minutes?")
min = tonumber(read())
sek=min*60
tostop()
turtle.up()
turtle.forward()
    f=turtle.getFuelLevel()

    runden=math.floor(f/prit)
    dref(runden,min,0)

while true do
    turtle.select(1)
        if turtle.getItemCount(1)  == 0 then
            print("No Stick in Slot 1")
            turtle.back()
            turtle.down()
            break
        end

---- Refuel
        while f<sprit  do
            for u=2,16 do
                turtle.select(u)

                    if turtle.refuel(0) then
                            item= what()
                                    stck = turtle.getItemCount(i)


                            for t=1,stck do
                                f=turtle.getFuelLevel()
                                        if f<sprit then
                                                turtle.refuel(1)
                                        f=turtle.getFuelLevel()
                                        print("Refuel:",item)
                                                print("FuelLevel = ",f)
                                        end
                            end
                    end
            end
            turtle.select(1)
        end

---  AREA harvest
    goarea(sl,sb)


    turtle.turnRight()
    turtle.turnRight()
    f=turtle.getFuelLevel()

---  Messages


    local time = os.time()
    local Mtime = textutils.formatTime(time, true)

    print("Fuel =",f,"of required",sprit)

     turtle.select(1)

print(" ")

--- Waiting
runden=math.floor(f/prit)

        for m=1,sek do

            cd=sek-m
            mm=math.ceil(cd/60)-1
            ms=cd-mm*60
             tostop()
            dref(runden,min,mm)
            term.setCursorPos(1,12)
                if mm<0 then
                    print("waiting  00 : 00    ")
                    term.setCursorPos(1,12)
                else
                    print("waiting  ",mm,":",ms,"    ")
                end
            sleep(1)
                if turtle.getItemCount(1)  == 0 then
                    break
                end


        end
end