Mine Builder

write("1. Slot: Cobblestone\n")
write("2. Slot: Torch\n\n")

l = 100
b = 4
w = 100

write("Left(1) or Right(2): ")
d = read()

if d == "1" then
  d = 1
else
  d = 2
end

local f = 0
local fa = 11
local z = 0

function vorne()
  while not turtle.forward() do
    turtle.dig()
  end
  turtle.digUp()
  turtle.placeDown()
end

function laenge()
  for i=1,l do
    vorne()
    fackel()
  end
end

function breite()
  for j=1,b do
    vorne()
    z = z+1
    fackel()
  end
end

function drehen()
  if d == 1 then
    turtle.turnLeft()
    breite()
    turtle.turnLeft()
    d = 2
  else
    turtle.turnRight()
    breite()
    turtle.turnRight()
    d = 1
  end
end

function fackel()
  if f>=fa then
    turtle.turnRight()
    turtle.turnRight()
    turtle.select(2)
    turtle.place()
    turtle.select(1)
    turtle.turnRight()
    turtle.turnRight()
    f = 0
  else
    f = f+1
  end
end

function voll()
  if turtle.getItemCount(13)>0 then
    while not turtle.up() do
      turtle.digUp()
    end
    if d=="rechts" then
      turtle.turnLeft()
    else
      turtle.turnRight()
    end
    for m=1,z do
      while not turtle.forward() do
        turtle.dig()
      end
    end
    if d=="rechts" then
      turtle.turnRight()
    else
      turtle.turnLeft()
    end
    while not turtle.down() do
      turtle.digDown()
    end
    abladen()
    while not turtle.up() do
      turtle.digUp()
    end
    nachfuellen()
    if d=="rechts" then
      turtle.turnRight()
    else
      turtle.turnLeft()
    end
    for m=1,z do
      while not turtle.forward() do
        turtle.dig()
      end
    end
    if d=="rechts" then
      turtle.turnLeft()
    else
      turtle.turnRight()
    end
    while not turtle.down() do
      turtle.digDown()
    end
  end
end

function abladen()
  turtle.drop(48)
  for n=3,16 do
    turtle.select(n)
    turtle.drop()
  end
  turtle.select(1)
end

function nachfuellen()
  turtle.select(2)
  turtle.drop()
  turtle.suck()
  turtle.suck()
  turtle.select(3)
  turtle.drop()
  turtle.select(1)
end

for k=1,w do
  laenge()
  drehen()
  laenge()
  voll()
  drehen()
end