[HUN] Minecraft, computercraft turtle. v0.7

  --Automata banyaszo Turtle v0.7--
            --By Leslie--
           --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.
----------------------------------------
]]--

function telepitAera()
 for i = 1, 6, 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, 5 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.turnRight()
  for i = 1, 5 do
    turtle.forward()
  end
  turtle.turnRight()
end



function reFuel()
fuel = turtle.getFuelLevel()
  if fuel < 100 then
    turtle.select(1)
    turtle.refuel(10)
    print("Tankoltam.")
  end
end



function getFuel()
  local fuelslot = turtle.getItemCount(1)
  turtle.turnRight()
  turtle.select(1)
  turtle.turnLeft()
  if fuelslot < 30 then
    for i = 1, 3 do
      turtle.forward()
    end
    turtle.turnRight()
    turtle.suck(34)
    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()
  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


--Main program--

while true do
  local fuel = turtle.getFuelLevel()
  print("Online")
  print("Ha a dokkolo helyet szeretned kialakitani, a [Hosszusag] reszhez ird be, hogy [install]")
  print("Uzemanyag szint: "..fuel)
  local hossz = 0
  local szeles = 0
  write("Szelesseg: ")
  local szeles = read()
  if fuel > 100 then
    if szeles == "test" then
      telepitAera()
    elseif szeles == "install" then
      print("Kerlek az egyes slotomba rakj 30db szenet. A kettes slotba 3db chest-et. A harmas es negyes slotba 1-1 tablat (sign) Ha keszen vagy nyomj egy entert, hogy kialakitsam a dokkolo helyemet.")
      read()
      telepitAera()
    else
      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
    end
  else
    print("Nincs uzemanyagom. Kerlek rakj szenet az egyes slotomba. Ha megvagy nyomj egy entert.")
    read("")
    turtle.select(1)
    turtle.refuel(10)
  end
  term.clear()
  term.setCursorPos(1,1)
end