View difference between Paste ID: gPaNKdXX and CRtmrjLu

 args = {...}
 rednet.open("right")
-if not fs.isDir("locations") then
+-- Make sure turtle is positioned correctly
-    fs.makeDir("locations")
+term.clear()
 term.setCursorPos(1,1)
 doAutorestart = fs.exists("GPSExcavateCurrentpos") and #args == 0
-local function getDirection()
+
-    local f = 0
+if doAutorestart then
-    local x, y, z = gps.locate(5,false)
+    print("Auto restarting... because no arguments have been deliverd and GPSExcavateCurrentpos does exist.")
-    y = nil
+else
-    if args[1] == "special" then
+    print("I am set up to dig a rectangle downward in a forward-left direction. There should be a refuel chest to my right and a dropoff chest behind me. Is this how I am set up?")
-        if turtle.detect() then
+    print("\(y/n\)")
-            if not turtle.dig() then
+    while true do
-                error("Tried to dig bedrock.")
+        local event, character = os.pullEvent()
         if event == "char" and character == "y" then
             print("Initializing...")
-        while not turtle.forward() do
+            sleep(1)
-            turtle.attack()
+            break
         elseif event == "char" and character == "n" then
             print("Please set up correctly.")
-        if not turtle.forward() then
+            error()
-            error("I am against a wall.")
+
     end
 end
-    local newx, newy, newz = gps.locate(5,false)
+
-    newy = nil
+local function forward() --Forward movement
-    turtle.back()
+    --Move forward
-    if newz > z then
+    local i = 0 --Iterator for bedrock/strong player detection
-        f = 0
+    while not turtle.forward() do
-    elseif newx < x then
+        if not turtle.dig() then --Detect blocks
-        f = 1
+            i = i + 1
-    elseif newz < z then
+            turtle.attack() --Detect entities
-        f = 2
+            if i == 30 then
-    elseif newx > x then
+                return false --If movement fails
-        f = 3
+
         end
-    return f
+
     --Clear above and below
-local function gotox(x,newx,f)
+    if turtle.detectUp() then
-    if f == 0 then
+        turtle.digUp()
-        turtle.turnRight()
+
-    elseif f == 2 then
+    if turtle.detectDown() then
-        turtle.turnLeft()
+        turtle.digDown()
-    elseif f == 3 then
+
-        turtle.turnRight()
+    --Position tracking
-        turtle.turnRight()
+    if currentpos.f == 0 then
         currentpos.z = currentpos.z + 1
-    if newx < x then
+    elseif currentpos.f == 1 then
-        local j = x - newx
+        currentpos.x = currentpos.x - 1
-        for i=1,j do
+    elseif currentpos.f == 2 then
-            if args[1] == "special" then
+        currentpos.z = currentpos.z - 1
-                local i = 0
+    elseif currentpos.f == 3 then
-                while not turtle.forward() do
+        currentpos.x = currentpos.x + 1
-                    if not turtle.dig() then
+
-                        i = i + 1
+        running = false
-                        turtle.attack()
+        error("Something went wrong with the direction :P")
-                        if i == 30 then
+
-                            error("Path blocked.")
+    return true
 end
 local function turnRight() --Right turn with position tracking
     turtle.turnRight()
     if currentpos.f < 3 then
-                if not turtle.forward() then
+        currentpos.f = currentpos.f + 1
-                    error("Path blocked.")
+
         currentpos.f = 0
     end
 end
-    elseif newx > x then
+local function turnLeft() --Left turn with position tracking
-        local j = newx - x
+    turtle.turnLeft()
-        turtle.turnRight()
+    if currentpos.f > 0 then
-        turtle.turnRight()
+        currentpos.f = currentpos.f - 1
-        for i=1,j do
+
-            if args[1] == "special" then
+        currentpos.f = 3
-                local i = 0
+
-                while not turtle.forward() do
+
-                    if not turtle.dig() then
+local function down() --Downward movement
-                        i = i + 1
+    --Move down
-                        turtle.attack()
+    local i = 0 --Iterator for bedrock detection
-                        if i == 30 then
+    while not turtle.down() do
-                            error("Path blocked.")
+        if not turtle.digDown() then --Detect blocks
             i = i + 1
             turtle.attackDown() --Detect entities
             if i == 25 then
                 return false --If movement fails
-                if not turtle.forward() then
+
-                    error("Path blocked.")
+
     end
     --Position tracking
     currentpos.y = currentpos.y - 1
-        turtle.turnLeft()
+    return true
-        turtle.turnLeft()
+
 local function mineDown() --Moves one layer downward
-        if f == 0 then
+    if currentpos.y == edge.y + 2 then --If close to bottom (2 blocks away)
-        turtle.turnLeft()
+        if not down() then --If downward movement fails
-    elseif f == 2 then
+            shell.run("goto", storagepos.x,storagepos.y,storagepos.z) --Return to storage
-        turtle.turnRight()
+            running = false
-    elseif f == 3 then
+            error("I think I tried to dig bedrock.")
-        turtle.turnLeft()
+
-        turtle.turnLeft()
+    elseif currentpos.y == edge.y + 3 then --If close to bottom (3 blocks away)
         for i=1,2 do
             if not down() then --If downward movement fails
-local function gotoy(y,newy)
+                shell.run("goto", storagepos.x,storagepos.y,storagepos.z) --Return to storage
-    if newy > y then
+                running = false
-        local j = newy - y
+                error("I think I tried to dig bedrock.")
-        for i=1,j do
+
-            if args[1] == "special" then
+
-                local i = 0
+    else --If far enough from bottom
-                while not turtle.up() do
+        for i=1,3 do
-                    if not turtle.digUp() then
+            if not down() then --If downward movement fails
-                        i = i + 1
+                shell.run("goto", storagepos.x,storagepos.y,storagepos.z) --Return to storage
-                        turtle.attackUp()
+                running = false
-                        if i == 30 then
+                error("I think I tried to dig bedrock.")
-                            error("Path blocked.")
+
         end
     end
 end
 local function getFuelLevel() --Check if fuel level is unlimited
-                if not turtle.up() then
+    local fuelLevel = turtle.getFuelLevel()
-                    error("Path blocked.")
+    if type(fuelLevel) == "string" then
         fuelLevel = 9001e9001
     end
     return fuelLevel
-    elseif newy < y then
+
-        local j = y - newy
+local function findDistance(x,y,z,newx,newy,newz) --Find how many blocks to travel to get somewhere (non-diagonally)
-        for i=1,j do
+
-            if args[1] == "special" then
+
-                local i = 0
+
-                while not turtle.down() do
+
-                    if not turtle.digDown() then
+
-                        i = i + 1
+
-                        turtle.attackDown()
+
-                        if i == 30 then
+
-                            error("Path blocked.")
+
     if y > newy then
         yDist = y - newy
     elseif y < newy then
         yDist = newy - y
-                if not turtle.down() then
+
-                    error("Path blocked.")
+
         zDist = z - newz
     elseif z < newz then
         zDist = newz - z
     end
     distance = xDist + yDist + zDist
-local function gotoz(z,newz,f)
+
-    if f == 1 then
+
-        turtle.turnLeft()
+local function saveLoc()
-    elseif f == 2 then
+    --Write variables to savefile
-        turtle.turnLeft()
+    local fPos = fs.open("GPSExcavateCurrentpos","w")
-        turtle.turnLeft()
+    fPos.writeLine(currentpos.x)
-    elseif f == 3 then
+    fPos.writeLine(currentpos.y)
-        turtle.turnRight()
+    fPos.writeLine(currentpos.z)
     fPos.writeLine(currentpos.f)
-    if newz > z then
+    fPos.writeLine(storagepos.x)
-        local j = newz - z
+    fPos.writeLine(storagepos.y)
-        for i=1,j do
+    fPos.writeLine(storagepos.z)
-            if args[1] == "special" then
+    fPos.writeLine(edge.x)
-                local i = 0
+    fPos.writeLine(edge.y)
-                while not turtle.forward() do
+    fPos.writeLine(edge.z)
-                    if not turtle.dig() then
+    fPos.writeLine(backwards)
-                        i = i + 1
+    fPos.writeLine(totalMined)
-                        turtle.attack()
+    fPos.writeLine(lastSlot)
-                        if i == 30 then
+    fPos.close()
-                            error("Path blocked.")
+
 local function detectUnwanted()
     local unwantedSlots = 0
     for i=1, lastSlot do
         turtle.select(i)
-                if not turtle.forward() then
+        if turtle.compareTo(13) or turtle.compareTo(14) or turtle.compareTo(15) or turtle.compareTo(16) then
-                    error("Path blocked.")
+            unwantedSlots = unwantedSlots + 1
         end
     end
     turtle.select(1)
-    elseif newz < z then
+    return unwantedSlots
-        turtle.turnRight()
+
-        turtle.turnRight()
+local function dropUnwanted()
-        local j = z - newz
+    local freeSlots = 0
-        for i=1,j do
+    turtle.turnLeft()
-            if args[1] == "special" then
+    turtle.turnLeft()
-                local i = 0
+    for i=1, lastSlot do
-                while not turtle.forward() do
+        turtle.select(i)
-                    if not turtle.dig() then
+        if turtle.compareTo(13) or turtle.compareTo(14) or turtle.compareTo(15) or turtle.compareTo(16) then
-                        i = i + 1
+            turtle.drop()
-                        turtle.attack()
+
-                        if i == 30 then
+
-                            error("Path blocked.")
+    turtle.turnLeft()
     turtle.turnLeft()
     turtle.select(1)
 end
 local function dropAll() --Drop mined resources, display amounts
-                if not turtle.forward() then
+    local mined = 0
-                    error("Path blocked.")
+    turtle.turnRight()
     turtle.turnRight()
     for i=1,lastSlot do
         turtle.select(i)
-        turtle.turnLeft()
+        mined = mined + turtle.getItemCount(i)
-        turtle.turnLeft()
+        turtle.drop()
     end
-    if f == 1 then
+    --This will send to rednet soon
-        turtle.turnRight()
+    totalMined = totalMined + mined
-    elseif f == 2 then
+    print("Minerals mined this run: "..mined)
-        turtle.turnRight()
+    print("Total mined: "..totalMined)
-        turtle.turnRight()
+    turtle.select(1)
-    elseif f == 3 then
+    turtle.turnRight()
-        turtle.turnLeft()
+    turtle.turnRight()
 end
 local function refuel() --Refuel if needed
-local function findDistance(x,y,z,newx,newy,newz)
+    turtle.turnRight()
     turtle.select(1)
     while getFuelLevel() < findDistance(currentpos.x,currentpos.y,currentpos.z,0,0,0) + 400 do --Enough to make it back to where he was digging and dig a bit
         turtle.suck()
         if turtle.getItemCount(1) == 0 then --If no fuel is in the box
             print("Please put fuel in my top-left slot, then press space.")
             while true do
                 local event, character = os.pullEvent()
                 if event == "key" and character == 57 then
                     print("Refueling...")
                     sleep(1)
                     break
                 end
             end
         end
         if not turtle.refuel() then --If item isn't fuel
             print("This is not fuel! Please remove it, then press space.")
             while true do
                 local event, character = os.pullEvent()
                 if event == "key" and character == 57 then
                     print("Refueling...")
                     sleep(1)
                     break
                 end
-if args[1] ~= "special" then
+
-    rednet.open("right")
+
     end
     turtle.turnLeft()
-x, y, z, f, newx, newy, newz, newf = 0, 0, 0, 0, 0, 0, 0, 0
+
 local function dropRefuel()
-if #args == 1 then
+    print("Dropping & refueling")
-    local location = args[1]
+    shell.run("goto", storagepos.x,storagepos.y,storagepos.z) --Return to storage
-    if fs.exists("locations/"..location) then
+    dropAll()
-        local fLocation = fs.open("locations/"..location,"r")
+    refuel()
-        newx = tonumber(fLocation.readLine())
+    shell.run("goto","special",currentpos.x,currentpos.y,currentpos.z,currentpos.f,0,0,0,0) --Return to where he left off
-        newy = tonumber(fLocation.readLine())
+
-        newz = tonumber(fLocation.readLine())
+local function excavate() --The actual excavation process
-        fLocation.close()
+    while running do --Make sure stop signal hasn't been sent
-        print("Going to "..location.."...")
+        turtle.select(1)
         if currentpos.x == 0 and currentpos.y == 0 and currentpos.z == 0 then --To start off a layer down
-        error("Unknown location.")
+            down()
             turtle.digDown()
-elseif #args == 2 and tonumber(args[1]) and tonumber(args[2]) then
+
-    newx, newz = tonumber(args[1]), tonumber(args[2])
+        if ( currentpos.x == edge.x and currentpos.y == edge.y + 1 and currentpos.z == edge.z or currentpos.x == edge.x and currentpos.y == edge.y + 1 and currentpos.z == 0 ) and not backwards or ( currentpos.x == 0 and currentpos.y == edge.y + 1 and currentpos.z == 0 or currentpos.x == 0 and currentpos.y == edge.y + 1 and currentpos.z == edge.z ) and backwards then --Very long check to see if at the end of process
-    print("Going to x: "..newx..", z: "..newz.."...")
+            if lastSlot ~= 16 and detectUnwanted()  then
-elseif #args == 3 and tonumber(args[1]) and tonumber(args[2]) and tonumber(args[3])then
+                dropUnwanted()
-    newx, newy, newz = tonumber(args[1]), tonumber(args[2]), tonumber(args[3])
+
-    print("Going to x: "..newx..", y: "..newy..", z: "..newz.."...")
+            shell.run("goto", storagepos.x,storagepos.y,storagepos.z) --Return to storage
-elseif #args == 4 and tonumber(args[1]) and tonumber(args[2]) and tonumber(args[3]) and tonumber(args[4]) then
+            dropAll()
-    newx, newy, newz, newf = tonumber(args[1]), tonumber(args[2]), tonumber(args[3]), tonumber(args[4])
+            print("Done digging a hole! Whew, that was hard work.")
-    print("Going to x: "..newx..", y: "..newy..", z: "..newz..", f: "..newf.."...")
+            done = true --Record that turtle is finished digging
-elseif #args == 9 and args[1] == "special" and tonumber(args[2]) and tonumber(args[3]) and tonumber(args[4]) and tonumber(args[5]) and tonumber(args[6]) and tonumber(args[6]) and tonumber(args[7]) and tonumber(args[8]) and tonumber(args[9]) then
+            running = false --Stop other "stopping" loop
-    newx, newy, newz, newf = tonumber(args[2]), tonumber(args[3]), tonumber(args[4]), tonumber(args[5])
+            break
-    x, y, z, f = tonumber(args[6]), tonumber(args[7]), tonumber(args[8]), tonumber(args[9])
+
-elseif #args == 5 and args[1] == "add" and tonumber(args[3]) and tonumber(args[4]) and tonumber(args[5]) then
+        if turtle.getItemCount(lastSlot) > 0 then --Check if inventory is full or fuel is low
-    local location, xname, yname, zname = args[2], args[3], args[4], args[5]
+            if lastSlot ~= 16 then
-    if not fs.exists("locations/"..location) then
+                if detectUnwanted() < 3 then
-        local fLocation = fs.open("locations/"..location,"w")
+                    dropUnwanted()
-        fLocation.writeLine(xname)
+                    dropRefuel()
-        fLocation.writeLine(yname)
+                else
-        fLocation.writeLine(zname)
+                    dropUnwanted()
-        fLocation.close()
+
-        print("Location \""..location.."\" added.")
+                if turtle.getItemCount(lastSlot) > 0 then
                     turtle.select(lastSlot)
-        print("This location already exists. Would you like to replace it?\n\(y/n\)")
+                    while turtle.getItemCount(lastSlot) > 0 do
-        while true do
+                        for i=1, lastSlot do
-            event, character = os.pullEvent()
+                            turtle.transferTo(i)
-            if event == "char" and character == "y" then
+
-                local fLocation = fs.open("locations/"..location,"w")
+
-                fLocation.writeLine(xname)
+                    turtle.select(1)
-                fLocation.writeLine(yname)
+
-                fLocation.writeLine(zname)
+
-                fLocation.close()
+                dropRefuel()
-                print("Location changed.")
+
-                break
+
-            elseif event == "char" and character == "n" then
+        if getFuelLevel() < (findDistance(currentpos.x,currentpos.y,currentpos.z,0,0,0) + 16) then
-                print("Location not changed.")
+            if lastSlot ~= 16 then
-                break
+                dropUnwanted()
             end
             dropRefuel()
         end
         if ( currentpos.x == edge.x and currentpos.z == edge.z or currentpos.x == edge.x and currentpos.z == 0 ) and not backwards then --If at the end of a layer
-else
+            mineDown()
-    print("To goto coords, use: \"goto <x> <z>\" or \"goto <x> <y> <z>\"")
+            turnRight()
-    print("To goto a set location, use: \"goto <name>\"")
+            turnRight()
-    print("To set a new location, use: \"goto add <name> <x> <y> <z>\"")
+            backwards = true --Switching directions
             turtle.digDown()
         elseif ( currentpos.x == 0 and currentpos.z == 0 or currentpos.x == 0 and currentpos.z == edge.z ) and backwards then --If at the end of a layer
             mineDown()
-if args[1] ~= "special" then
+            turnLeft()
-    x, y, z = gps.locate(5,false)
+            turnLeft()
             backwards = false --Switching directions
-if not x or not y or not z then
+            turtle.digDown()
-    error("Out of GPS range")
+        elseif currentpos.z == edge.z then --If at edge, turn around and do next line
             if backwards then
-local distance = findDistance(x,y,z,newx,newy,newz)
+                turnRight()
-local fuelLevel = turtle.getFuelLevel()
+                forward()
-if type(fuelLevel) == "string" then
+                turnRight()
-    fuelLevel = 9001e9001
+
                 turnLeft()
-if distance > fuelLevel then
+                forward()
-    error("Not enough fuel to travel so far!")
+                turnLeft()
             end
         elseif currentpos.z == 0 and currentpos.x ~= 0 then --If at edge, turn around and do next line
             if backwards then
-if args[1] ~= "special" then
+                turnLeft()
-    turtle.up()
+                forward()
-    turtle.up()
+                turnLeft()
-    turtle.up()
+
-    f = getDirection()
+                turnRight()
                 forward()
                 turnRight()
-if newy > y then
+
-    gotoy(y,newy)
+
         if not forward() then --If movement fails
-if newx ~= x then
+            shell.run("goto", storagepos.x,storagepos.y,storagepos.z) --Return to storage
-    gotox(x,newx,f)
+            running = false
             error("I think I tried to dig bedrock.")
-if newz ~= z then
+
-    gotoz(z,newz,f)
+        saveLoc()
     end
-if newy < y then
+
-    gotoy(y,newy)
+local function stop() --Ability to stop turtle mid-excavation. This will wait until current action is done, then exit the excavate function
     while running do
-if newf ~= f then
+        local event, data, message = os.pullEvent()
-    if f == 1 then
+        if event == "char" and data == "p" then --If direct keypress
-        turtle.turnLeft()
+            print("Stopping...")
-    elseif f == 2 then
+            running = false
-        turtle.turnLeft()
+            break
-        turtle.turnLeft()
+        elseif event == "rednet_message" and message == "stop" then --If rednet stop signal
-    elseif f == 3 then
+            print("Stopping...")
-        turtle.turnRight()
+            running = false
             id = tonumber(data)
-    if newf == 1 then
+            break
-        turtle.turnRight()
+
-    elseif newf == 2 then
+
-        turtle.turnLeft()
+
-        turtle.turnLeft()
+local function restart() --To restart from previous digging
-    elseif newf == 3 then
+    print("Restarting from saved position...")
-        turtle.turnLeft()
+    if not fs.exists("GPSExcavateCurrentpos") then -- Check for save file
         error("Could not find saved position!")
     end
     --Read save file, change variables
-if args[1] ~= "special" then
+    local fPos = fs.open("GPSExcavateCurrentpos","r")
-    turtle.down()
+    currentpos.x = tonumber(fPos.readLine())
-    turtle.down()
+    currentpos.y = tonumber(fPos.readLine())
-    turtle.down()
+    currentpos.z = tonumber(fPos.readLine())
-    print("Done traveling!")
+    currentpos.f = tonumber(fPos.readLine())
     storagepos.x = tonumber(fPos.readLine())
     storagepos.y = tonumber(fPos.readLine())
-if args[1] ~= "special" then
+    storagepos.z = tonumber(fPos.readLine())
-    rednet.close("right")
+    edge.x = tonumber(fPos.readLine())
     edge.y = tonumber(fPos.readLine())
-args, x, y, z, f, newx, newy, newz, newf = nil, nil, nil, nil, nil, nil, nil, nil, nil
+    edge.z = tonumber(fPos.readLine())
     local backwardsString = fPos.readLine()
     if backwardsString == "true" then
         backwards = true
     else
         backwards = false
     end
     totalMined = tonumber(fPos.readLine())
     lastSlot = tonumber(fPos.readLine())
     fPos.close()
     shell.run("goto", storagepos.x,storagepos.y,storagepos.z) --Return to storage
     shell.run("goto","special",currentpos.x,currentpos.y,currentpos.z,currentpos.f,0,0,0,0) --Go to position where turtle left off
     restarting = true
     print("Let the diggy-hole recommence!")
 end
 
 totalMined = 0 --Total mined out blocks over course of excavation
 restarting = false --Whether turtle is restarting from save
 done = false --Whether turtle has completed excavation
 running = true --Whether turtle is currently digging
 backwards = false --Which direction turtle is digging the layers currently
 currentpos = {} --Current position. It's a table just because it is easier, no real need for it
 storagepos = {} --Storage position. It's a table just because it is easier, no real need for it
 edge = {} --Boundaries of hole. Same deal as currentpos, no real reason to have it as a table
 id = -1 --Id of computer that sent the rednet message. This is so that it can reply when it has stopped
 w, l, d = 0, 0, 0 --Width, length, depth of hole. This is just for input of numbers
 currentpos.x, currentpos.y, currentpos.z, currentpos.f = 0, 0, 0, 0 --Initialise pieces of currentpos
 lastSlot = 16 --Slot in which to make sure there are no blocks: this is to keep any comparing slots free
 
 if doAutorestart or #args == 1 and args[1] == "restart" then --If restarting from save
     restart()
 elseif #args == 2 and tonumber(args[1]) > 1 and tonumber(args[2]) > 2 then --If a square hole is wanted
     w = tonumber(args[1])
     l = w
     d = tonumber(args[2])
 elseif #args == 3 and tonumber(args[1]) > 1 and tonumber(args[2]) > 1 and tonumber(args[3]) > 2 then --If a non-square hole is wanted
     w = tonumber(args[1])
     l = tonumber(args[2])
     d = tonumber(args[3])
 else --If arguments improperly input, print usage
     print("Usage: \"GPSExcavate <side> <depth>\" or \"GPSExcavate <width> <length> <depth>\"")
     print("Note: depth must be at least 3.")
     print("To restart digging, use: \"GPSExcavate restart\"")
     error()
 end
 if not restarting then
     -- get storage position
     local x, y, z = gps.locate(5)
     if not x then --If gps.locate didn't work, it won't return anything. So check to see if it did.
         error("Failed to get my location!")
     else
         storagepos.x = x
         storagepos.y = y
         storagepos.z = z
         print("storagepos is (" .. storagepos.x .. ", " .. storagepos.y .. ", " .. storagepos.z .. ")")
     end
 
     --Input edge locations
     edge.x = w - 1
     edge.y = -(d - 1)
     edge.z = l - 1
 
     saveLoc()
     print("Let the diggy-hole commence! Digging a hole "..w.." by "..l.." by "..d.." meters.")
 end
 print("Press \"p\" to save and stop at any time.")
 parallel.waitForAll(excavate,stop) --Actual running of program. This is to enable stopping mid-digging
 if not done then --If turtle was stopped before the end
     print("Saving position and dimensions...")
     sleep(1)
     saveLoc()
     print("Position and dimensions saved. Returning to base...")
     shell.run("goto", storagepos.x,storagepos.y,storagepos.z) --Return to storage
     dropAll()
     print("Excavation stopped.")
     if id ~= -1 then --If stop signal was sent by rednet, reply when done returning
         rednet.send(id,"stopped")
     end
 else --Get rid of save file if turtle is done excavating. I will find a way to have rednet in here too
     fs.delete("GPSExcavateCurrentpos")
 end
 print("Next hole please? :D")
  --Delete variables so they don't persist
 args, currentpos, edge, id, done, restarting, running, w, l, d, backwards, lastSlot = nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil
 rednet.close("right")