[HUN] Minecraft, computercraft turtle. v0.8

  --Automata banyaszo Turtle v0.8--
            --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.
----------------------------------------
Kijavitando hibak:
  -Kell egy min és max határ.
  -Ha nem szamokat adunk meg, kifagy.
  -Ha az "uritesi" savban neki megy
   valaminek, ott urit.
  -MOB okat nem erzekeli.
  -Ha valahol leall kezzel kell a
   helyere vinni. (GPS megirasa kell)
----------------------------------------
]]--)

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



function printF()
  print("  --Automata banyaszo Turtle v0.8--")
  print("            --By Matteo--")
  print("")
end


function telepitAera()
  clear()
  szendarab = turtle.getItemCount(1)
  while szendarab == 0 do
    printF()
    szendarab = turtle.getItemCount(1)
    print("Nincs szen az 1. slotban")
    print("Ha kiegeszitetted, folytatodik a telepites")
    sleep(0.5)
    clear()
  end

  ladadarab = turtle.getItemCount(2)
  while ladadarab ~= 3 do
    printF()
    ladadarab = turtle.getItemCount(2)
    ladakell = 3 - ladadarab
    print("Nincs elegendo lada (chest) a 2. slotban")
    print("Meg ennyi kell: ".. ladakell)
    print("Ha kiegeszitetted, folytatodik a telepites")
    sleep(0.5)
    clear()
  end

  signdarab = turtle.getItemCount(3)
  while signdarab ~= 1 do
    printF()
    signdarab = turtle.getItemCount(3)
    signkell = 1 - signdarab
    print("Nincs elegendo tabla (sign) a 3. slotban")
    print("Meg ennyi kell: ".. signkell)
    print("Ha kiegeszitetted, folytatodik a telepites")
    sleep(0.5)
    clear()
  end

  signdarab = turtle.getItemCount(4)
  while signdarab ~= 1 do
    printF()
    signdarab = turtle.getItemCount(4)
    signkell = 1 - signdarab
    print("Nincs elegendo tabla (sign) a 4. slotban")
    print("Meg ennyi kell: ".. signkell)
    print("Ha kiegeszitetted, 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)
    turtle.refuel(1)
    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
    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
    lepes = lepes + 1
    print("Lepesek a chest-ig: "..lepes)
  end

  while not turtle.forward() do
    dropAll()
    turtle.turnLeft()
    getFuel()
    turtle.turnLeft()
  end

  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)
       turtle.refuel(1)
     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
    local fuel = turtle.getFuelLevel()
    printF()
    print("Online")
    print("Uzemanyag szint: "..fuel)
    local hossz = 0
    local szeles = 0
    write("Szelesseg: ")
    local szeles = read()
    write("Hossz: ")
    local hosszu = read()
    local hosszu = hosszu-1
    local 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)
  end
end

--Main program--


while true do
  clear()
  printF()
  print("")
  write("Program: ")
  program = read()
  if program == "install" then
    clear()
    printF()
    print("Kerlek az egyes slotomba rakj kb 2db szenet. A kettes slotba 3db ladat (chest). A harmas es negyes slotba 1-1 tablat (sign) Ha keszen vagy nyomj egy entert, hogy kialakitsam a dokkolo helyemet.")
    read()
    clear()
    telepitAera()
  elseif program == "help" then
    clear()
    printF()
    print("Kezdeshez hasznald az [install] parancsot")
    print("Banyaszo program ujra inditashoz, hasznald a [banya] parancsot")
    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