[HUN] Minecraft, computercraft turtle. v1.0.2

  --Automata banyaszo Turtle v1.0.2--
            --By Matteo--
          --MC: LeslieHUN--
           --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.
 1.0-Menu rendszer berakva
 2012.12.26
 1.0.1
    -MOB erzekeles
    -Installnal itemnek nem kell pontosan
     annyinak lennie, = helyett <
    -Szemet kiszedve.
 2012.12.27
 1.0.2
    -MOB-okat mar a tankolasi resznel is
     erzekeli.
    -Chest be rakasi resz atalakitva,
     pontositva.
    -Atlathatobb parancssor.
    -szel., hossz. nal pontositva az
     ertek. Mostmar csak szamot lehet
     megadni. Kulon hibajelzes mas
     karakterekre.
----------------------------------------
Kijavitando hibak:
  -Ha valahol leall kezzel kell a
   helyere vinni. (GPS megirasa kell)
  -goto program irasa 10%-nal tart.
  -8 block-onkent rakjon le egy fakjat.
   (By Zendor :)
----------------------------------------
]]--


--[[ Functions ]]--

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



function printF()
    term.setCursorPos(2,1)
    print("--Automata banyaszo Turtle v1.0.2--")
    term.setCursorPos(13,2)
    print("--By Matteo--")
    term.setCursorPos(33,12)
    print("V1.0.2")
    term.setCursorPos(1,5)
end

function telepitAera()      --Install resz kialakitasa
    clear()
    turtle.select(1)
    szendarab = turtle.getItemCount(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.4)
        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.4)
        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.4)
        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.4)
        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()       --Install resznel a mozgas
    turtle.turnLeft()
    turtle.forward()
    turtle.turnRight()
end



function itemInstall()      --Chestek, tablak lerakasa
    turtle.turnRight()
    turtle.select(2)
    for i = 1, 3 do
        lepesE()
    end
    for i = 1, 2 do
        while not turtle.place() do
            clear()
            printF()
            print("Nem tudom lehelyezni a ladat")
            sleep(1)
        end
        itemGo()
    end
    turtle.select(3)
    while not turtle.place([[Kibanyaszott
block-ok
-------->]]) do
        clear()
        printF()
        print("Nem tudom lehelyezni a tablat")
        sleep(1)
    end
    itemGo()
    turtle.select(2)
    while not turtle.place() do
        clear()
        printF()
        print("Nem tudom lehelyezni a ladat")
        sleep(1)
    end
        itemGo()
    turtle.select(4)
    while not turtle.place([[Uzemanyag nekem
(szen,fa)
------->]]) do
        clear()
        printF()
        print("Nem tudom lehelyezni a tablat")
        sleep(1)
    end
    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()       --Tankolasi menet
    fuel = turtle.getFuelLevel()
    if fuel < 100 then
    turtle.select(1)
    while not turtle.refuel(1) do
        clear()
        printF()
        print("Nincs szen az egyes slotban")
        sleep(3)
    end
        fuel = turtle.getFuelLevel()
        print("Tankoltam.")
        print("Uzemanyag szint: "..fuel)
    end
end



function getFuel()      --Lepakolas utan, uzemanyag ellenorzes es feltankolas
    local fuelslot = turtle.getItemCount(1)
    local loopback = 0
    turtle.select(1)
    if fuelslot < 10 then
        turtle.turnRight()
        while loopback ~= 3 do
            if turtle.forward() == false then
                turtle.attack()
            else
                loopback = loopback + 1
            end
        end
        turtle.turnRight()
        while not turtle.suck() do
            clear()
            printF()
            print("Nincs a ladaban szen. Kerlek toltsd fel,")
            print("A ladaban minimum 10 db szen legyen mindig.")
            print("Ha feltoltotted, kiveszem.")
            sleep(3)
        end
        local loopback = 0
        turtle.turnRight()
        while loopback ~= 3 do
            if turtle.forward() == false then
                turtle.attack()
            else
                loopback = loopback + 1
            end
        end
        turtle.turnRight()
    end
end



function dropAll()      --Chestnel minden slotot kiurit kiveve az egyest.
    local slot = 2
    while slot ~= 17 do
        turtle.select(slot)
        turtle.drop()
        slot = slot+1
    end
end



function targetC()      --Banyatol a chastig
    local loop = true
    while loop do
        if turtle.forward() == true then
            clear()
            printF()
            lepes = lepes + 1
            print("Lepesek a chest-ig: "..lepes)
        else
            if turtle.detect() == true then     --Erzekeli a MOB okat
                dropAll()
                turtle.turnLeft()
                turtle.turnLeft()
                getFuel()
                loop = false
            else
                turtle.attack()
            end
        end
    end
    clear()
    printF()
    print("Ennyit megyek vissza: "..lepes)
    local loopvissza = 0
    while loopvissza ~= lepes do
        if turtle.forward() == false then
            turtle.attack()
        else
            loopvissza = loopvissza + 1
        end
    end
    turtle.turnRight()
--[[  for i = 2, lepes + 1 do //erzekeles nelkul
    while not turtle.forward() do
      turtle.attack()

    end
  end]]
end



function digDown()      --Lefele asas, ha van alatta valami.
    while turtle.detectDown() do
        turtle.digDown()
    end
end



function lepesE()       --Banyaszas kozbeni lepesek.
    while not turtle.forward() do
        turtle.dig()
        if turtle.getFuelLevel() < 10 then
            turtle.select(1)
            reFuel()
        end
    end
    sleep(0.4)
    while turtle.detectUp() do
        turtle.digUp()
        sleep(0.4)
    end
end



function turnL()        --Balra megfordulas
    turtle.turnLeft()
    lepesE()
    turtle.turnLeft()
end



function turnR()        --Jobbra megfordulas
    turtle.turnRight()
    lepesE()
    turtle.turnRight()
end


function banyaszas()        --Banyaszas menete
    while true do
        clear()
        local fuel = turtle.getFuelLevel()
        printF()
        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 folytatom")
                sleep(.5)
                clear()
            end
            printF()
            turtle.select(1)
            turtle.refuel(1)
            print("Tankoltam.")
            sleep(1)
            clear()
        end
        printF()
        term.setCursorPos(1,5)
        local fuel2 = turtle.getFuelLevel()
        print("Online")
        print("Uzemanyag szint: "..fuel2)
        print("")
        write("Szelesseg: ")
        local szeles = tonumber(read())     --read-be mit adtunk meg, szamokat vagy betuket
        if szeles == nil then       --Szam vizsgalat
            clear()
            printF()
            print("Szelessegnek, csak szamot lehet megadni!")
            sleep(3)
            banyaszas()
        end
        local szeles = szeles + 0
        if (szeles < 51) and (szeles > 1) then
            write("Hossz: ")
            local hosszu = tonumber(read())
            if hosszu == nil then
                clear()
                printF()
                print("Hosszusagnak, csak szamot lehet megadni!")
                sleep(3)
                banyaszas()
            end
            local hosszu = hosszu + 0
            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()
                    lepes = 0  --//athelyezve targetC() bol
                    turtle.turnRight()  --//athelyezve targetC() bol
                    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

function helpP()        --Help menu
    clear()
    printF()
    print("Install        : Dokkolo epites.")
    print("Banya program  : Banyaszo program.")
    print("Help           : Menu leirasok.")
    print("Leiras         : Leiras a programrol")
    print("")
    print("Tovabb lepeshez nyomj egy entert")
    read("")
end

function InstallP()     --Install menu
    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()
end

--[[ Main program ]]--


--[[while true do                   //v0.9 es menu nelkuli
  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
]]--

--[[ Menu ]]--

--[[ Local Variables ]]--

local termWidth, termHeight = term.getSize()
local selectedItem = 1
local runing = true

--[[ Menu Metods ]]--           --Melyik menu mi legyen
function Choice1()
    InstallP()
end

function Choice2()
    banyaszas()
end

function Exit()
    runing = false
end

function Help()
    helpP()
--[[  print(visszaMenu)

  event, key = os.pullEvent("key")
  onKeyPressed(key, visszaMenu)]]--
end

function Leiras()       --Leiras menu
    clear()
    printF()
    term.setCursorPos(1,4)
    print([[A program a banyaszasra keszult. A turtle horizontalis pozicioban, 3block magassabban banyasz.
Azert igy mert, a legtobb gyemantot igy lehet gyujteni a kb 9-12 bolck magassagban.]])
    print("")
    print("")
    print("--Press Enter Key to Continue--")
    read("")
    print([[ A programot kizarolag hobbi celbol keszitettem.
Modositas nelkul szabadon terjesztheto. Terjesztesnel fel kell tuntetni a keszitot illetve a verziot.

Keszlitette: K.Laszlo Alias -Matteo-
Minecraft nev: LeslieHUN]])
    print("")
    print("--Press Enter Key to Continue--")
    read("")
end

--[[//hamarosan also menuk
function tovabb()
 main()
end

function vissza()
 main()
end
]]--

--[[ Menu Definitions ]]--

local mainMenu = {              --Menuk szerkezete, funkcioi
    [1] = { text = "   Install   ", handler = Choice1 },
    [2] = { text = "Banya program", handler = Choice2 },
    [3] = { text = "    Help     ", handler = Help },
    [4] = { text = "   Leiras    ", handler = Leiras },
    [5] = { text = "    Exit     ", handler = Exit }
}

--[[local visszaMenu = { --//also menuk
 [1] = { text = "Tovabb", handler = tovabb },
 [2] = { text = "Vissza", handler = vissza }
}
]]--
--[[ Printing Methods ]]--

function printMenu ( menu )         --Menu megjelenitese es cursor mozgatasa
    for i = 1, #menu do
        if i == selectedItem then
            term.setCursorPos(10,(i+5))
            print(">> "..menu[i].text.." <<")
        else
            term.setCursorPos(10,(i+5))
            print("   "..menu[i].text)
        end
    end
end

--[[ Handler Method ]]--

function onKeyPressed( key, menu )          --Menunel, gombok erzekelese.
    if key == keys.enter then
        onItemSelected(menu)
    elseif key == keys.up then
        if selectedItem > 1 then
            selectedItem = selectedItem - 1
        end
    elseif key == keys.down then
        if selectedItem < #menu then
            selectedItem = selectedItem + 1
        end
    end
end

function onItemSelected( menu )
    menu[selectedItem].handler()
end

--[[ Main Methods ]]--

function main()             --Main menu futtatasa
    while runing do
        clear()
        printF()
        term.setCursorPos(10,5)
        printMenu(mainMenu)
        event, key = os.pullEvent("key")
        onKeyPressed(key,mainMenu)
    end
end

main()