Studna

--Program pro tezebni zelvu pro vykop jednokostkove vertikalni sachty
--Verze programu 1.3
--vytvoril SVty
--*****************************
function palivo()
if turtle.getFuelLevel() < 5 then
  turtle.select(16)
  turtle.refuel(1)
  turtle.select(1)
end
end

function nahoru()
for k=1,kop do
  while(turtle.detectUp()) do
    turtle.digUp()
    sleep(0.5)
  end
  turtle.up()
end
print("nahoru")
if zpet == "ano" then
  zpet = "ne"
  for i=1,kop do
    turtle.down()
    sleep(0.2)
  end
end
end

function dolu()
for i=1,kop do
  palivo()
  turtle.digDown()
  turtle.down()
  sleep(0.5)
end
if zpet == "ano" then
  zpet = "ne"
  for d=1,kop do
    turtle.up()
    sleep(0.2)
  end
end
end

cnt = 0
term.clear()
term.setCursorPos(1,1)
print("Tento program slouzi pro vykop jednokostkove sachty vertikalne od shora dolu nebo naopak.")
print("")
print("Pred spustenim programu prosim vlozte do 16 slotu palivo. Bude automaticky odebirano podle potreby")
print("Chcete kopat nahoru nebo dolu?")
print("Pomoc: Napiste pouze nahoru nebo dolu")
smer = (read())
print("Zvolili jste si smer " ..smer)
print("")
print("Ma se zelva po ukonceni prace sachtou vratit zpet?")
print("Pomoc: pouze ano nebo ne")
zpet = (read())
print("kolik kostek si prejete vykopat?")
kop = (read())
sleep(1)
turtle.select(1)

if smer == "nahoru" then
  nahoru()
elseif smer == "dolu" then
  dolu()
else
  print("Vlozene hodnoty nevyhovuji! Program bude ukoncen.")
  sleep(2)
  shell.exit()
end
print("Ukol splnen!!")
print("Program je ukoncen")