[HUN] Minecraft, computercraft turtle. v0.9

  --Automata banyaszo Turtle v0.9--
            --By Matteo--
           --2012. 11.18--

--[[
----------------------------------------
0.1 -Banyaszas.
0.2 -Minden inditasnal tankol.
2012.11.19
0.3 -HotFIX: ha nincs elotte block
      akkor is banyasz maga felett.
0.4 -Fordulokent elmegy es
      kiuriti magat a chest-be.
0.5 -Ha soder hullik ra, erzekeli
      es kibanyassza.
    -Csak akkor tankol, ha 2000 ala
      esik az uzemanyag szint.
0.6 -Maga alatt is banyasz.
      A tankolas fordulonkent van, nem
      indulasonkent.
2012.11.20
0.7 -Install parancsal, megcsinalja
      maganak a dokkolo helyet. 6x6
      3chest 2tabla tartalom leirassal.
    -Tankolas opcio pontositva. Akkor
      tankol, ha 100 ala esik az
      uzemanyag szint. Masodik chestbol
      kiveszi maganak a szenet, ha a
      slot1 ben 30 ala esik a szen.
2012.11.24
0.8 -HotFix: Tankilasok finomitva.
     -Ha menetkozben kifogy, egyet
      tankol.
    -Install resznel leellenorzi a
     slotok darabszamat. Ha hianyzik
     kiirja, hogy mi és honnan.
    -Indulasnal kulon parancs resz.
    -Program menet, sorrend pontositva.
2012.11.25
0.9 -Fokent kulalak es felhasznalo
     barat javitasok.
    -Min es max hatar a szelesseg es
      hosszusagnal.
    -Csak szamot lehet mar megadni.
    -"Menuk" jobban el vannak rendezve
    -Ha tankol, de kifogyott a szen,
      jelzi es var.
    -Ha nem tud elolre lepni, leellenorzi
      az uzemanyagszintet, ha kell tankol.
----------------------------------------
Kijavitando hibak:
  -Ha az "uritesi" savban neki megy
   valaminek, ott urit.
  -MOB okat nem erzekeli.
  -Ha valahol leall kezzel kell a
   helyere vinni. (GPS megirasa kell)
----------------------------------------
]]--


--[[ Functions ]]--

function clear()
  term.clear()
  term.setCursorPos(1,1)
end



function printF()
  print("  --Automata banyaszo Turtle v0.9--")
  print("            --By Matteo--")
  term.setCursorPos(1,5)

end

function telepitAera()
  clear()
  turtle.select(1)
  while szendarab ~= 3 do
    printF()
    print("1. Lepes")
    print("")
    szendarab = turtle.getItemCount(1)
    szenkell = 3 - szendarab
    print("Elso sor, elso slotba, rakj 3db darab szenet.")
    print("Meg ennyi kell: "..szenkell)
    term.setCursorPos(1,10)
    print("Ha beraktad, folytatodik a telepites")
    sleep(0.5)
    clear()
  end

  ladadarab = turtle.getItemCount(2)
  turtle.select(2)
  while ladadarab ~= 3 do
    printF()
    print("2. Lepes")
    print("")
    ladadarab = turtle.getItemCount(2)
    ladakell = 3 - ladadarab
    print("Elso sor, masodik slotba, rakj 3db ladat (chest).")
    print("Meg ennyi kell: ".. ladakell)
    term.setCursorPos(1,10)
    print("Ha beraktad, folytatodik a telepites")
    sleep(0.5)
    clear()
  end

  signdarab = turtle.getItemCount(3)
  turtle.select(3)
  while signdarab ~= 1 do
    printF()
    print("3. Lepes")
    print("")
    signdarab = turtle.getItemCount(3)
    signkell = 1 - signdarab
    print("Elso sor, harmadik slotba, rakj egy tablat (sign).")
    print("Meg ennyi kell: ".. signkell)
    term.setCursorPos(1,10)
    print("Ha beraktad, folytatodik a telepites")
    sleep(0.5)
    clear()
  end

  signdarab = turtle.getItemCount(4)
  turtle.select(4)
  while signdarab ~= 1 do
    printF()
    print("4. Lepes")
    print("")
    signdarab = turtle.getItemCount(4)
    signkell = 1 - signdarab
    print("Elso sor, negyedik slotba, rakj egy tablat (sign).")
    print("Meg ennyi kell: ".. signkell)
    term.setCursorPos(1,10)
    print("Ha beraktad, folytatodik a telepites")
    sleep(0.5)
    clear()
  end

  if fuel == 0 then
    while turtle.getItemCount(1) == 0 do
      printF()
      print("Kerlek ellenorizd, hogy az 1-es slotban van-e szenem.")
      print("Rakj 2db szenet es nyomj egy entert")
      read()
      clear()
    end
    turtle.select(1)
    print("Tankoltam.")
    turtle.refuel(1)
    sleep(1)
    end
   clear()
   printF()
   print("Epites elkezdodott, kerlek vard meg mig kesz lesz.")
   for i = 1, 4, 2 do

     for i = 1, 5 do
       lepesE()
     end
       turnL()

     for i = 1, 5 do
       lepesE()
     end
     turnR()
   end
   itemInstall()
end



function itemGo()
 turtle.turnLeft()
 turtle.forward()
 turtle.turnRight()
end



function itemInstall()
  turtle.turnRight()
  turtle.select(2)
  for i = 1, 3 do
    lepesE()
  end
  for i = 1, 2 do
    turtle.place()
    itemGo()
  end
  turtle.select(3)
  turtle.place([[Kibanyaszott
block-ok
-------->]])
  itemGo()
  turtle.select(2)
  turtle.place()
  itemGo()
  turtle.select(4)
  turtle.place([[Uzemanyag nekem
(szen)
------->]])
  turtle.turnRight()
  for i = 1, 4 do
    turtle.forward()
  end
  turtle.turnLeft()
  dropAll()
  turtle.turnRight()
  turtle.turnRight()
  for i = 1, 3 do
    turtle.forward()
  end
  turtle.turnRight()
  clear()
  banyaszas()
end



function reFuel()
fuel = turtle.getFuelLevel()
  if fuel < 100 then
    turtle.select(1)
    while not turtle.refuel(1) do
      clear()
      printF()
      print("Nincs szen az egyse slotban")
      sleep(3)
     end
    print("Tankoltam.")
  end
end



function getFuel()
  local fuelslot = turtle.getItemCount(1)
  turtle.turnRight()
  turtle.select(1)
  turtle.turnLeft()
  if fuelslot < 10 then
    for i = 1, 3 do
      turtle.forward()
    end
    turtle.turnRight()
    while not turtle.suck() do
      clear()
      printF()
      print("Nincs a ladaban szen. Kerlek toltsd fel")
      print("Ha feltoltotted, kiveszem.")
      sleep(3)
    end
    clear()
    printF()
    turtle.turnRight()
    for i = 1, 3 do
      turtle.forward()
    end
  end
end



function dropAll()
  local slot = 2

  while slot ~= 17 do
    turtle.select(slot)
    turtle.drop()
    slot = slot+1
  end
end



function targetC()
  lepes = 0
  turtle.turnRight()
  while turtle.forward() do
    clear()
    printF()
    lepes = lepes + 1
    print("Lepesek a chest-ig: "..lepes)
  end

  while not turtle.forward() do
    dropAll()
    turtle.turnLeft()
    getFuel()
    turtle.turnLeft()
  end
  clear()
  printF()
  print("Ennyit megyek vissza: "..lepes)

  for i = 2, lepes do
    turtle.forward()
  end

  turtle.turnRight()
end



function digDown()

  while turtle.detectDown() do
    turtle.digDown()
  end
end



function lepesE()

  while not turtle.forward() do
    turtle.dig()
     if turtle.getFuelLevel() == 0 then
       turtle.select(1)
       reFuel()
     end
  end
  sleep(0.4)

  while turtle.detectUp() do
    turtle.digUp()
    sleep(0.4)
  end
end



function turnL()
  turtle.turnLeft()
  lepesE()
  turtle.turnLeft()
end



function turnR()
  turtle.turnRight()
  lepesE()
  turtle.turnRight()
end


function banyaszas()
  while true do
    clear()
    local fuel = turtle.getFuelLevel()
    printF()
    term.setCursorPos(1,5)
    print("Online")
    print("Uzemanyag szint: "..fuel)
    print("")
    write("Szelesseg: ")
    szeles = read()
    if szeles < "51" and szeles > "1" then
      write("Hossz: ")
      local hosszu = read()
      if hosszu < "51" and hosszu > "1" then
        hosszu = hosszu-1
        szeles = szeles-1
        for i = 1, szeles, 2 do

          for i = 1, hosszu do
            digDown()
            lepesE()
            digDown()
          end
            turnL()

          for i = 1, hosszu do
            digDown()
            lepesE()
            digDown()
          end

          reFuel()
          turnR()
          targetC()
        end
        term.clear()
        term.setCursorPos(1,1)
      else
        clear()
        printF()
        print("")
        print("Hosszusagnak 2 es 50 kozottinek kell lennie")
        sleep(3)
        banyaszas()
      end
    else
      clear()
      printF()
      print("")
      print("Szelesseg 2 es 50 kozott kell lennie")
      sleep(3)
      banyaszas()
    end
  end
end

--[[ Main program ]]--


while true do
  clear()
  printF()
  print("")
  term.setCursorPos(1,12)
  print("Parancsok: help")
  term.setCursorPos(1,5)
  write("Program: ")
  program = read()
  if program == "install" then
    clear()
    printF()
    print("A kovetkezo dolgok legyenek nalad:")
    print(" - 5db szen")
    print(" - 3db lada (chest)")
    print(" - 2db tabla (sign)")
    print("Ha ezek megvannak kerlek, nyomj egy entert.")
    read("")
    clear()
    telepitAera()
  elseif program == "help" then
    clear()
    printF()
    print("install: Dokkolo epites.")
    print("banya:   Banyaszo program.")
    term.setCursorPos(1,12)
    print("Tovabb lepeshez nyomj egy [entert]")
    read("")
    clear()
  elseif program == "banya" then
    banyaszas()
  else
    clear()
    printF()
    print("Helytelen parancs, kerlek hasznald a [help] parancsot")
    print("Tovabb lepeshez nyomj egy [entert]")
    read("")
  end
end