computercraft

write("forward move:")
df=read()
write("left move:")
dl=read()

function go_l()
    turtle.turnLeft()
end

function go_r()
    turtle.turnRight()
end

function go_f()
    if not turtle.forward() then
        dfssdff=1
        while(dfssdff == 1) do
            turtle.dig()
            turtle.attack()
            if turtle.forward() then
                dfssdff=0
            end
        end
    end
end

function dig()
    turtle.dig()
end

function dig_u()
    turtle.digUp()
end

function dig_d()
    turtle.digDown()
end

function out_res()
    turtle.select(1)
    dig_d()
    turtle.placeDown()
    for rttty=1,16 do
        turtle.select(rttty)
        turtle.dropDown()
    end
    turtle.select(1)
    dig_d()
end

function RednetOpen()
    local sModemSide = nil
        for n,sSide in ipairs( rs.getSides() ) do
            if peripheral.getType( sSide ) == "modem" then
                sModemSide = sSide
                rednet.open(sModemSide)
                print("Rednet opened.")
                break
            end
        end
        if sModemSide == nil then
            print( "Program stopped.")
            print( "No modem attached." )
            error()
    end
end


print("I go...")

for r=1,dl do

    for i=1,df do

        go_f()
        go_l()
        dig()
        go_r()
        go_r()
        dig()
        go_l()

    end
    out_res()

    go_l()
    go_f()
    go_f()
    go_f()
    go_l()

    for i=1,df do

        go_f()
        go_l()
        dig()
        go_r()
        go_r()
        dig()
        go_l()

    end
    out_res()

    go_r()
    go_f()
    go_f()
    go_f()
    go_r()

end

print("i end")