[KOPAC] by XpresS

-- ********************************************
-- Kopac by XpresS
-- Verzia: v 0.8
-- ComputerCraft (c)
-- ********************************************
args = { ... }
if not (#args == 2) then
  print('***************************************')
  print('KOPAC >> Pouzitie: kop <dlzka> <sirka>')
  print('***************************************')
  return
elseif not (tonumber(args[2]) % 2 == 0) then
  print('Sirka musi byt kladne cislo kvoli uspore paliva v navratovej faze.')
  return
end

dlzka = tonumber(args[1])
sirka = tonumber(args[2])

tor = false
if turtle.getItemCount(15) > 0 then tor = true end

rada = 0

function k()
  while turtle.detect() do
   if turtle.dig() then
    sleep(0.1)
   else
    return false
   end
  end
  return true
end

function kN()
  while turtle.detectUp() do
   if turtle.digUp() then
    sleep(0.1)
   else
    return false
   end
  end
  return true
end

function kD()
  while turtle.detectDown() do
   if turtle.digDown() then
    sleep(0.1)
   else
    return false
   end
  end
  return true
end

function kV()
  k()
  while not turtle.forward() do
    sleep(0.1)
    k()
  end
end

function kop(dlzka)
  for ki=1, dlzka - 1 do
    kV()
    kN()
    kD()
    if (rada % 6 == 0 or rada == 1) and (ki % 6 == 0 or ki==1) and tor then torch() end
  end
end

function nabij(lvl)
    poc = 0
    turtle.select(16)
    while turtle.getFuelLevel() < lvl do
      if poc > 1 and poc < 3 then print('Vloz palivo pre '..lvl ..' krokov do 16. slotu!') end
      turtle.refuel(1)
      poc = poc + 1
      sleep(0.2)
    end
    turtle.select(1)
end

function vyloz(torche)
 for s=1,14 do
   turtle.select(s)
   turtle.drop()
 end
 if tor == false then
   turtle.select(15)
   turtle.drop()
 end
 turtle.select(1)
end

function torch()
  turtle.select(15)
  turtle.placeDown()
  turtle.select(1)
end

pruchody = sirka / 2

for x = 1, pruchody do
  rada = rada + 1
  print('rada: '..rada)
  pocetkroku = (dlzka * 2) + (rada * 2) + 5
  nabij(pocetkroku)
  kV()
  kV()
  turtle.turnRight()
  for rad = 1, rada - 1 do
    kV()
  end
  turtle.turnLeft()
  kN()
  kD()
  kop(dlzka)
  turtle.turnRight()
  kV()
  kN()
  kD()
  turtle.turnRight()
  rada = rada + 1
  print('Aktualna Rada: '..rada)
  kop(dlzka)
  turtle.turnRight()
  for rada = 1, rada - 1 do
    kV()
  end
  turtle.turnLeft()
  kV()
  kV()
  vyloz(tor)
  turtle.turnLeft()
  turtle.turnLeft()
end

print('***************************************')
print('KOPAC >> Uloha bola dokoncena.')
print('KOPAC >> Prosim zadaj dalsi prikaz pomocou')
print('KOPAC >> kopac <dlzka> <sirka>')
print('***************************************')
sleep(0.5)