stripmine lua compcraft

print "Ganze bloecke in slot 16 legen"
print "Truhen in slot 15 legen"
print "Fackeln in slot 14 legen optional slot wird NICHT ENTLEERT)"
print "Laenge?BITTE NICHT ZU LANG!!!"
l = tonumber(read())
print "Seitenganglaenge?BITTE NICHT ZU LANG!!!"
g = tonumber(read())

x = l/3

function haupg()
 for h==1,l do
  while not turtle.forward() do
   turtle.dig()
   os.sleep(0.5)
  end
  while turtle.detectDown()==false do
   turtle.select(16)
   turtle.placeDown()
   os.sleep(0.5)
   turtle.select(1)
  end
 turtle.dig()
 turtle.forward()
 turtle.digUp()
 turtle.select(14)
 turtle.placeUp()
 end
 turtle.back()
 turtle.select(15)
 turtle.place()
 turtle.select(1)
 turtle.drop()
 turtle.select(2)
 turtle.drop()
 turtle.select(3)
 turtle.drop()
 turtle.select(4)
 turtle.drop()
 turtle.select(5)
 turtle.drop()
 turtle.select(6)
 turtle.drop()
 turtle.select(7)
 turtle.drop()
 turtle.select(8)
 turtle.drop()
 turtle.select(9)
 turtle.drop()
 turtle.select(10)
 turtle.drop()
 turtle.select(11)
 turtle.drop()
 turtle.select(12)
 turtle.drop()
 turtle.select(13)
 turtle.drop()
 turtle.select(1)
end
function gangL()
 turtle.turnLeft()
 for j==1,g do
  while not turtle.forward do
   turtle.dig()
   os.sleep(0.5)
  end
  while turtle.detectDown()==false do
   turtle.select(16)
   turtle.placeDown()
   os.sleep(0.5)
   turtle.select(1)
  end
 turtle.dig()
 turtle.forward()
 turtle.digUp()
 turtle.select(14)
 turtle.placeUp()
 end
 turtle.dig()
 turtle.select(15)
 turtle.place()
 turtle.select(1)
 turtle.drop()
 turtle.select(2)
 turtle.drop()
 turtle.select(3)
 turtle.drop()
 turtle.select(4)
 turtle.drop()
 turtle.select(5)
 turtle.drop()
 turtle.select(6)
 turtle.drop()
 turtle.select(7)
 turtle.drop()
 turtle.select(8)
 turtle.drop()
 turtle.select(9)
 turtle.drop()
 turtle.select(10)
 turtle.drop()
 turtle.select(11)
 turtle.drop()
 turtle.select(12)
 turtle.drop()
 turtle.select(13)
 turtle.drop()
 turtle.select(1)
 turtle.turnLeft()
 turtle.turnLeft()
 for j==0,g do
  turtle.forward()
 end
 turtle.turnLeft()
end
function gangR()
 turtle.turnRight()
 while not turtle.forward() do
  turtle.dig()
  os.sleep(0.5)
 end
 while turtle.detectDown()==false do
   turtle.select(16)
   turtle.placeDown()
   os.sleep(0.5)
   turtle.select(1)
  end
 for i==1,g do
  turtle.dig()
  turtle.forward()
  turtle.digUp()
 end
 turtle.dig()
 turtle.select(15)
 turtle.place()
 turtle.select(1)
 turtle.drop()
 turtle.select(2)
 turtle.drop()
 turtle.select(3)
 turtle.drop()
 turtle.select(4)
 turtle.drop()
 turtle.select(5)
 turtle.drop()
 turtle.select(6)
 turtle.drop()
 turtle.select(7)
 turtle.drop()
 turtle.select(8)
 turtle.drop()
 turtle.select(9)
 turtle.drop()
 turtle.select(10)
 turtle.drop()
 turtle.select(11)
 turtle.drop()
 turtle.select(12)
 turtle.drop()
 turtle.select(13)
 turtle.drop()
 turtle.select(1)
 turtle.turnLeft()
 turtle.turnLeft()
 for i==1,g do
  turtle.forward()
 end
 turtle.turnRight()
end
function ng()
 when not turtle.forward() do
  turtle.dig()
  os.sleep(0.5)
 end
 while turtle.detectDown()==false do
   turtle.select(16)
   turtle.placeDown()
   os.sleep(0.5)
   turtle.select(1)
  end
 turtle.turnLeft()
 turtle.turnLeft()
 turtle.forward()
 turtle.forward()
 turtle.forward()
 turtle.forward()
 turtle.turnLeft()
 turtle.turnLeft()
end

haupg()
for h==1,x do
 gangL
 gangR
 ng
end

print "FERTIG!"