ComputerCraft Minerv3.5

local version = "3.5"
local l = 0
local allitems = 0
local selectcounter = 0
local maxprogram = 3
local forwardcounter = 0
local fullblocksize = 0
local i = 0
local j = 0
local k = 0
local width = 0
local height = 0
local length = 0
local actx = 0
local acty = 0
local actz = 0
local actyaw = 0
local lastx = 0
local lasty = 0
local lastz = 0
local lastyaw = 0
local anwser = false
turtle.select(1)
--SAVE INIT--
  fs.makeDir("saves")
  if fs.exists("saves/fuelslot") ~= true then
    save(0, "saves/fuelslot")
    save(0, "saves/height")
    save(0, "saves/width")
    save(0, "saves/length")
    save(0, "saves/direction")
    save(0, "saves/fback")
    save(0, "saves/fbclear")
  end
--/SAVE INIT--
function load(name)
  local file = fs.open(name,"r")
  local data = file.readAll()
  file.close()
  return textutils.unserialize(data)
end
function save(table,name)
  local file = fs.open(name,"w")
  file.write(textutils.serialize(table))
  file.close()
end
function startMessage()
  print("----Welcome to the miner".. version .."----")
end
function items()
  for i = 1, 16 do
    actitem = turtle.getItemCount(i)
    allitems = allitems + actitem
  end
  return allitems
end
function clearInv()
  for i = 1,16 do
    turtle.select(i)
    turtle.drop(turtle.getItemCount(i))
  end
  turtle.select(1)
end
function clearterm()
  term.clear()
  term.setCursorPos(1,1)
end
function usefuel(slotnum)
  turtle.select(slotnum)
  turtle.refuel(1)
end
function setPositionVars()
  lastx = actx
  lasty = acty
  lastz = actz
  lastyaw = actyaw
end
function turtledig()
   forwardcounter = forwardcounter + 1
   blocksleft = fullblocksize - forwardcounter
   writeterm(blocksleft.." Blocks left until end", 0)
   writeterm(turtle.getFuelLevel().." Fuellevel", 1)
   blocksleft = 0
   turtle.dig()
   if turtle.getItemCount(16) > 0 then
    setPositionVars()
    findBack(0,0,0,0,true)

   end
end
function turtledigup()
   forwardcounter = forwardcounter + 1
   blocksleft = fullblocksize - forwardcounter
   writeterm(blocksleft.." Blocks left until end", 0)
   writeterm(turtle.getFuelLevel().." Fuellevel", 1)
   blocksleft = 0
   turtle.digUp()
   if turtle.getItemCount(16) > 0 then
      setPositionVars()
      findBack(0,0,0,0,true)
   end
end
function turtledigdown()
   forwardcounter = forwardcounter + 1
   blocksleft = fullblocksize - forwardcounter
   writeterm(blocksleft.." Blocks left until end", 0)
   writeterm(turtle.getFuelLevel().." Fuellevel", 1)
   blocksleft = 0
   turtle.digDown()
  if turtle.getItemCount(16) > 0 then
    setPositionVars()
    findBack(0,0,0,0,true)
   end
end
function turtleup()
  if turtle.up() == false then
      while turtle.up() == false do
         turtledigup()
      end
  end
  acty = acty + 1
  writeterm("x : ".. actx .. ", y : ".. acty .. ", z : ".. actz .. ", yaw : ".. actyaw, 2)
end
function turtledown()
  if turtle.down() == false then
      while turtle.down() == false do
         turtledigdown()
      end
  end
  acty = acty - 1
end
function goforward()
  if turtle.forward() == false then
      while turtle.forward() == false do
         turtledig()
      end
  end
  if actyaw == 0 then
    actx = actx + 1
  elseif actyaw == 1 then
    actz = actz - 1
  elseif actyaw == 2 then
    actx = actx - 1
  elseif actyaw == 3 then
    actz = actz + 1
  end
  writeterm("x : ".. actx .. ", y : ".. acty .. ", z : ".. actz .. ", yaw : ".. actyaw, 2)
end
function findBack(x, y, z, yaw, anwser)
  if anwser ~= true then
    anwser = false
  end
  if x < actx then
    while actyaw ~= 2 do
      turtleleft()
    end
  elseif x > actx then
    while actyaw ~= 0 do
      turtleleft()
    end
  end
  while actx ~= x do
    goforward()
  end
  if z > actz then
    while actyaw ~= 3 do
      turtleleft()
    end
  elseif z < actz then
    while actyaw ~= 1 do
      turtleleft()
    end
  end
  while actz ~= z do
    goforward()
  end
  if y < acty then
    while acty ~= y do
      turtledown()
    end
  elseif y > acty then
    while acty ~= y do
      turtleup()
    end
  end
  while actyaw ~= yaw do
      turtleleft()
    end
  if anwser == true then
    turtleleft()
    turtleleft()
    clearInv()
    turtleleft()
    turtleleft()
    findBack(lastx, lasty, lastz, lastyaw, false)
  end
end
function turtleright()
  turtle.turnRight()
  actyaw = actyaw + 1
  if actyaw > 3 then
    actyaw = 0
  end
  writeterm("x : ".. actx .. ", y : ".. acty .. ", z : ".. actz .. ", yaw : ".. actyaw, 2)
end
function turtleleft()
  turtle.turnLeft()
  actyaw = actyaw - 1
  if actyaw < 0 then
    actyaw = 3
  end
  writeterm("x : ".. actx .. ", y : ".. acty .. ", z : ".. actz .. ", yaw : ".. actyaw, 2)
end
function turnright()
  turtleright()
  turtledig()
  goforward()
  turtleright()
end
function turnleft()
  turtleleft()
  turtledig()
  goforward()
  turtleleft()
end
function manual()
        clearterm()
        startMessage()
        write("Fuel slot:")
        fuelslotnum = tonumber(read())
        usefuel(fuelslotnum)
        write("Heigth:")
        high = tonumber(read())
        write("Width:")
        width = tonumber(read())
        write("Length:")
        length = tonumber(read())
        write("up/down:")
        direction = read()
  clearterm()
  createterm()
  mine(high,width,length, fuelslotnum, direction)
end
function createterm()
  term.setCursorPos(1,6)
  term.clearLine()
  print("------X Blocks left until end------")
  print("------X Fuellevel------")
end
function writeterm(msg,cursorlevel)
  cursorlevel = 6 + cursorlevel
  term.setCursorPos(1,cursorlevel)
  term.clearLine()
  print("------"..msg.."------")
end
function control()
  clearterm()
startMessage()
print("[p] = stop")
print("[w] = forward")
print("[f] = down")
print("[r] = up")
  while true do
    local event, param1 = os.pullEvent("char")
    if param1 == "p" then
      break
    elseif param1 == "w" then
      goforward()
    elseif param1 == "d" then
      turtle.turnRight()
    elseif param1 == "a" then
      turtle.turnLeft()
    elseif param1 == "s" then
      turtle.back()
    elseif param1 == "f" then
      turtle.down()
    elseif param1 == "r" then
      turtle.up()
    end
  end
end
function path()
  new = load("saves/fuelslot")
  if new == 0 then
        clearterm()
        startMessage()
        write("Fuel slot (number 1-16):")
        fuelslotnum = tonumber(read())
        usefuel(fuelslotnum)
        write("Heigth (number):")
        high = tonumber(read())
        write("Width (number):")
        width = tonumber(read())
        write("Length (number):")
        length = tonumber(read())
        write("Direction (up/down):")
        direction = read()
        write("Walk back to start position (true/false):")
        fback = read()
        if fback == "true" then
          write("Walk back to start position & clear Inventory - buggy (true/false):")
          fbclear = read()
        end
        save(fuelslotnum, "saves/fuelslot")
        save(high, "saves/height")
        save(width, "saves/width")
        save(length, "saves/length")
        save(direction, "saves/direction")
        save(fback, "saves/fback")
        save(fbclear, "saves/fbclear")
        clearterm()
        startMessage()
        mainmenu()
  else
    fuelslotnum = load("saves/fuelslot")
    high = load("saves/height")
    width = load("saves/width")
    length = load("saves/length")
    direction = load("saves/direction")
    fback = load("saves/fback")
    fbclear = load("saves/fbclear")
    clearterm()
    createterm()
    mine(high,width,length, fuelslotnum, direction, fback, fbclear)
  end



end
function refuel()
  clearterm()
  startMessage()
  createterm()
  for i = 1,16 do
  if turtle.getItemCount(i) > 0 then
    for j = 1,turtle.getItemCount(i) do
      usefuel(i)
        writeterm("", 0)
        writeterm(turtle.getFuelLevel().." Fuellevel", 1)
    end
  end
  end
end
function mainmenu()
        print("Choose Program:")
        print("[Set own Path]")
        print(" Manual ")
        print(" Control Turtle ")
        print(" Refuel ")
        print()
        print("------"..turtle.getFuelLevel().." Fuellevel------")
        while true do
                local event1, param2 = os.pullEvent("key")
                if param2 == 200 then
                        selectcounter = selectcounter - 1
                       changeSelector(selectcounter)
                elseif param2 == 208 then
                        selectcounter = selectcounter + 1
                        changeSelector(selectcounter)
                elseif param2 == 28 then
                        if selectcounter == 0 then
                                path()
                        elseif selectcounter == 1 then
                                manual()
                        elseif selectcounter == 2 then
                                control()
                        elseif selectcounter == 3 then
                                refuel()
                        end
                end
        end
end
function changeSelector(selectcounter)
  if selectcounter < 0 then
                        selectcounter = maxprogram
                elseif selectcounter > maxprogram then
                        selectcounter = 0
                end
                if selectcounter == 0 then
                        term.setCursorPos(1,3)
                        term.clearLine()
                        print("[Set own path]")
                        term.setCursorPos(1,4)
                        term.clearLine()
                        print(" Manual ")
                        term.setCursorPos(1,5)
                        term.clearLine()
                        print(" Control Turtle ")
                        term.setCursorPos(1,6)
                        term.clearLine()
                        print(" Refuel ")
                elseif selectcounter == 1 then
                        term.setCursorPos(1,3)
                        term.clearLine()
                        print(" Set own path ")
                        term.setCursorPos(1,4)
                        term.clearLine()
                        print("[Manual]")
                        term.setCursorPos(1,5)
                        term.clearLine()
                        print(" Control Turtle ")
                        term.setCursorPos(1,6)
                        term.clearLine()
                        print(" Refuel ")
                elseif selectcounter == 2 then
                        term.setCursorPos(1,3)
                        term.clearLine()
                        print(" Set own path ")
                        term.setCursorPos(1,4)
                        term.clearLine()
                        print(" Manual ")
                        term.setCursorPos(1,5)
                        term.clearLine()
                        print("[Control Turtle]")
                        term.setCursorPos(1,6)
                        term.clearLine()
                        print(" Refuel ")
                elseif selectcounter == 3 then
                        term.setCursorPos(1,3)
                        term.clearLine()
                        print(" Set own path ")
                        term.setCursorPos(1,4)
                        term.clearLine()
                        print(" Manual ")
                        term.setCursorPos(1,5)
                        term.clearLine()
                        print(" Control Turtle ")
                        term.setCursorPos(1,6)
                        term.clearLine()
                        print("[Refuel]")
                end
end
function mine(high, width, length, fuelslotnum, direction, fback, fbclear)
l = 0
if fback == nil then
  fback = false
end
if fbclear == nil then
  fbclear = false
end
fullblocksize = high * width * length
  for i = 1, high do
    for j = 1, width do
      for k = 1, length do
        if turtle.refuel(1) == true then
          usefuel(fuelslotnum)
        end
        turtledig()
        goforward()
      end
      if j < width then
      l = l + 1
      if l < 2 then
        turnright()
      else
        turnleft()
      l = 0
      end
      end
    end
    if direction == "down" then
      turtledigdown()
      turtledown()
    else
      turtledigup()
      turtleup()
    end
    turtleleft()
    turtleleft()
  end
  if fback == "true" and fbclear == "false" then
    findBack(0,0,0,0)
  elseif fback == "true" and fbclear == "true" then
    findBack(0,0,0,1)
  end
  clearterm()
  startMessage()
  mainmenu()
end
--INIT
  clearterm()
  startMessage()
  mainmenu()

--/INIT