de

function zapravt()

    if turtle.getFuelLevel()<30 then
       turtle.select(u)
       turtle.refuel(1)
       turtle.select(i)
    end
end

function fakel()
     turtle.turnRight()
     vpered()
     turtle.turnLeft()
     turtle.select(f)
     turtle.place()
     turtle.turnLeft()
     vpered()
     turtle.turnRight()
end


function vpered()
    if turtle.detect() then
        turtle.select(i)
        turtle.dig()
    end
    turtle.forward()
end
function vverh()
    if  turtle.detectUp() then
        turtle.select(i)
        turtle.digUp()
    end
    turtle.up()
end

 function vniz()
    if turtle.detectDown() then
        turtle.select(i)
        turtle.digDown()
    end
    turtle.down()
end
--put vverh
function ustanovit()
    if not turtle.detect() then
        turtle.select(z)
        turtle.place()
        fakel()
    end
end

function srubit()
    ustanovit()
    vverh()
    if not turtle.detect() then
        turtle.select(sa)
        turtle.place()
    end
    turtle.select(d)
    if turtle.compare() then
        turtle.select(i)
        turtle.dig()
        turtle.select(sa)
        turtle.place()
        turtle.select(i)
        vverh()
        for a=1, 8 do
            turtle.dig()
            vverh()
        end
  else
     for a=1, 9 do
         vverh()
     end
  end
end



--put vniz
function ustanovitn()
    if not turtle.detect() then
        turtle.select(z)
        turtle.place()
        vverh()
        turtle.select(sa)
        turtle.place()
        vniz()
        fakel()
    end
end

function srubitn()
    turtle.select(i)
    for a=1, 8 do
        if not a==8 then
           if turtle.detect() then
              turtle.dig()
           end
           vniz()
        else
        vniz()
        turtle.select(d)
           if turtle.compare() then
               turtle.dig()
               turtle.select(sa)
               turtle.place()
           end
           vniz()
           ustanovitn()
        end
    end
end


        -- inventar
u=1 --ugol
su=2 --sunduk
z=3 --zemlja
f=4 --fakel
sa=5 --sagenec
d=6 --dub
i=7 --lut

-- osnovnaja programma

turtle.turnLeft()
h2=2
while turtle.detect() do
      read()
      for h=1, h2 do
          zapravt()
          srubit()
      end
      turtle.turnRight()
      for v=1, 6 do
          vpered()
       end
       turtle.turnLeft()
       for h=1, h2 do
           zapravt()
           srubitn()
           if not h==h2 then
              vniz()
           end
       end
       turtle.turnLeft()
       for v=1, 6 do
           vpered()
       end
       turtle.turnRight()
end