きこり【タートル】

きこりプログラムー。
白樺想定です。

□□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□□
□□■□□■□□■□□■□□■□□
□□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□□
□□■□□■□□■□□■□□■□□
□□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□□
□□■□□■□□■□□■□□■□□
□□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□□
□□■□□■□□■□□■□□■□□
□□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□□
□□□□□□□□□□□□□□□□□
日

■が木。日がタートル。
タートルの高さは木の植えてある地面の上でおkです。
ただ、木の葉ドロップの苗木は回収できないです。
きこり。

function move_up()
turtle.digUp()
turtle.up()
end
function cut_tree()
h=1
while(h<=6 and turtle.detectUp()) do
move_up()
h=h+1
end
for i=1,h do
turtle.down()
end
end
function forward(n)
for i=1,n do
turtle.forward()
end
end
function back(n)
for i=1,n do
turtle.back()
end
end
function next(n)
forward(n)
turtle.dig()
turtle.forward()
end
function cut_line()
for i=1,4 do
cut_tree()
next(2)
end
cut_tree()
end
function cut_all()
for j=1,2 do
cut_line()
turtle.turnRight()
next(2)
turtle.turnRight()
cut_line()
turtle.turnLeft()
next(3)
turtle.turnLeft()
end
end

forward(14)
turtle.turnRight()
next(1)
cut_all()
back(2)
turtle.turnLeft()

植林

function move_up()
turtle.digUp()
turtle.up()
end
function forward(n)
for i=1,n do
turtle.forward()
end
end
function back(n)
for i=1,n do
turtle.back()
end
end
function put_line()
for i=1,4 do
turtle.placeDown()
forward(3)
end
turtle.placeDown()
end
function put_all()
for j=1,2 do
put_line()
turtle.turnRight()
forward(3)
turtle.turnRight()
put_line()
turtle.turnLeft()
forward(4)
turtle.turnLeft()
end
end

turtle.up()
forward(14)
turtle.turnRight()
forward(2)
put_all()
back(2)
turtle.turnLeft()
turtle.down()