KYGiZ0sr

1--Defining things
2civilTable = nil; _G.civilTable = {}; setmetatable(civilTable, {__index = getfenv()}); setfenv(1,civilTable)
3originalDay = os.day() --Used in logging
4numResumed = 0 --Number of times turtle has been resumed
5-------Defaults for Arguments----------
6--Arguments assignable by text
7x,y,z = 3,3,3 --These are just in case tonumber fails
8inverted = false --False goes from top down, true goes from bottom up [Default false]
9rednetEnabled = false --Default rednet on or off  [Default false]
10--Arguments assignable by tArgs
11dropSide = "front" --Side it will eject to when full or done [Default "front"]
12careAboutResources = true --Will not stop mining once inventory full if false [Default true]
13doCheckFuel = true --Perform fuel check [Default true]
14doRefuel = false --Whenever it comes to start location will attempt to refuel from inventory [Default false]
15keepOpen = 1 --How many inventory slots it will attempt to keep open at all times [Default 1]
16fuelSafety = "moderate" --How much fuel it will ask for: safe, moderate, and loose [Default moderate]
17excessFuelAmount = math.huge --How much fuel the turtle will get maximum. Limited by turtle.getFuelLimit in recent CC [Default math.huge]
18fuelMultiplier = 1 --How much extra fuel turtle will ask for when it does need fuel [Default 1]
19saveFile = "Civil_Quarry_Restore" --Where it saves restore data [Default "Civil_Quarry_Restore"]
20autoResume = true --If true, turtle will auto-restart when loaded. [Default true]
21startupRename = "oldStartup.quarry" --What the startup is temporarily renamed to [Default "oldStartup.quarry"]
22startupName = "startup" --What the turtle auto-resumes with [Default "startup"]
23doBackup = true --If it will keep backups for session persistence [Default true]
24uniqueExtras = 8 --How many different items (besides cobble) the turtle expects. [Default 8]
25maxTries = 200 --How many times turtle will try to dig a block before it "counts" bedrock [Default 200]
26gpsEnabled = false -- If option is enabled, will attempt to find position via GPS api [Default false]
27gpsTimeout = 3 --The number of seconds the program will wait to get GPS coords. Not in arguments [Default 3]
28legacyRednet = false --Use this if playing 1.4.7
29logging = true --Whether or not the turtle will log mining runs. [Default ...still deciding]
30logFolder = "Quarry_Logs" --What folder the turtle will store logs in [Default "Quarry_Logs"]
31logExtension = "" --The extension of the file (e.g. ".txt") [Default ""]
32flatBedrock = false --If true, will go down to bedrock to set startDown [Default false]
33startDown = 0 --How many blocks to start down from the top of the mine [Default 0]
34preciseTotals = false --If true, will record exact totals and names for all materials [Default false]
35goLeftNotRight = false --Quarry to left, not right (parameter is "left") [Default false]
36oreQuarry = false --Enables ore quarry functionality [Default false]
37oreQuarryBlacklistName = "oreQuarryBlacklist.txt" --This is the file that will be parsed for item names [Default "oreQuarryBlacklist"]
38dumpCompareItems = true --If ore quarry, the turtle will dump items compared to (like cobblestone) [Default true]
39frontChest = false --If oreQuarry and chest checking, you can turn this on to make turtle check in front of itself for chests as well [Default false]
40lavaBuffer = 500 --If using a lava bucket, this is the buffer it will wait for before checking for lava [Default 500]
41inventoryMax = 16 --The max number of slots in the turtle inventory [Default 16] (Not assignable by parameter)
42quadEnabled = false --Whether or not to request a quadRotor when out of fuel [Default false]
43quadTimeout = 60 * 5 --How long the turtle will wait for a quadRotor [Default 5 minutes]
44--Standard number slots for fuel (you shouldn't care)
45fuelTable = { --Will add in this amount of fuel to requirement.
46safe = 1000,
47moderate = 200,
48loose = 0 } --Default 1000, 200, 0
49--Standard rednet channels
50channels = {
51send = os.getComputerID() + 1  ,
52receive = os.getComputerID() + 101 ,
53confirm = "Turtle Quarry Receiver",
54message = "Civil's Quarry",
55fingerprint = "quarry"
56}
57 
58--AVERAGE USER: YOU DON'T CARE BELOW THIS POINT
59 
60local help_paragraph = [[
61Welcome!: Welcome to quarry help. Below are help entries for all parameters. Examples and tips are at the bottom.
62-default: This will force no prompts. If you use this and nothing else, only defaults will be used.
63-dim: [length] [width] [height] This sets the dimensions for the quarry
64-invert: [t/f] If true, quarry will be inverted (go up instead of down)
65-rednet: [t/f] If true and you have a wireless modem on the turtle, will attempt to make a rednet connection for sending important information to a screen
66-restore / -resume: If your quarry stopped in the middle of its run, use this to resume at the point where the turtle was. Not guarenteed to work properly. For more accurate location finding, check out the -GPS parameter
67-autoResume / autoRestore: Turtle will automatically resume if stopped. Replaces startup
68-oreQuarry: [t/f] If true, the turtle will use ore quarry mode. It will not mine the blocks that are placed in the turtle initially. So if you put in stone, it will ignore stone blocks and only mine ores.
69-oreQuarry: [t/f] If you are using a newer version of CC, you won't have to put in any compare blocks. (CC 1.64+)
70-blacklist: [file name] If using oreQuarry, this is the blacklist file it will read. Example --
71  minecraft:stone
72  minecraft:sand
73  ThermalExpansion:Sponge
74  ThermalFoundation:Storage
75  
76  Note: If you have bspkrsCore, look 
77  for "UniqueNames.txt" in your config
78-file: [file name] Will load a file of parameters. One parameter per line. # is a comment line (See the forum thread for more detailed directions)
79-atChest: [force] This is for use with "-restore," this will tell the restarting turtle that it is at its home chest, so that if it had gotten lost, it now knows where it is.
80-doRefuel: [t/f] If true, the turtle will refuel itself with coal and planks it finds on its mining run
81-doCheckFuel: [t/f] If you for some reason don't want the program to check fuel usage, set to false. This is honestly a hold-over from when the refueling algorithm was awful...
82-overfuel: [number] When fuel is below required, fuel usage is multiplied by this. Large numbers permit more quarries without refueling
83-fuelMultiplier: [number] See overfuel
84-uniqueExtras: [number] The expected number of slots filled with low-stacking items like ore. Higher numbers request more fuel.
85-maxFuel: [number] How much the turtle will fuel to max (limited by turtle in most cases)
86-chest: [side] This specifies what side the chest at the end will be on. You can say "top", "bottom", "front", "left", or "right"
87-enderChest: [slot] This one is special. If you use "-enderChest true" then it will use an enderChest in the default slot. However, you can also do "-enderChest [slot]" then it will take the ender chest from whatever slot you tell it to. Like 7... or 14... or whatever.
88-fuelChest: [slot] See the above, but for a fueling chest. Reccommend use with -maxFuel and -doCheckFuel false
89-lava: [slot] If using an oreQuarry, will fill itself with lava it finds to maxFuel
90-lavaBuffer: [number] The amount of fuel below maxFuel the turtle will wait for before using lava again
91-GPS: [force] If you use "-GPS" and there is a GPS network, then the turtle will record its first two positions to precisly calculate its position if it has to restart. This will only take two GPS readings
92-quad: [t/f] This forces the use of GPS. Make sure you have a network set up. This will request to be refueled by a quadrotor from Lyqyd's mod if the turtle is out of fuel
93-quadTimeout: [number] The amount of time the turtle will wait for a quadRotor
94-sendChannel: [number] This is what channel your turtle will send rednet messages on
95-receiveChannel: [number] This is what channel your turtle will receive rednet messages on
96-legacyRednet: [t/f] Check true if using 1.4.7
97-startY: [current Y coord] Randomly encountering bedrock? This is the parameter for you! Just give it what y coordinate you are at right now. If it is not within bedrock range, it will never say it found bedrock
98-startupRename: [file name] What to rename any existing startup to.
99-startupName: [file name] What the turtle will save its startup file to.
100-extraDropItems: [force] If oreQuarry then this will prompt the user for extra items to drop, but not compare to (like cobblestone)
101-dumpCompareItems: [t/f] If oreQuarry and this is true, the turtle will dump off compare blocks instead of storing them in a chest
102-oldOreQuarry: [t/f] If you are using new CC versions, you can use this to use the old oreQuarry.
103-compareChest: [slot] If using oldOreQuarry, this will allow you to check for dungeon chests and suck from them.
104-frontChest: [t/f] If using oreQuarry/oldOreQuarry, this will check in front of itself for chests as well.
105-left: [t/f] If true, turtle will quarry to the left instead of the right
106-maxTries: [number] This is the number of times the turtle will try to dig before deciding its run into bedrock.
107-forcePrompt: [parameter] Whatever parameter you specify, it will always prompt you, like it does now for invert and dim.
108-logging: [t/f] If true, will record information about its mining run in a folder at the end of the mining run
109-preciseTotals: [t/f] If true (and turtle.inspect exists), it will log a detailed record of every block the turtle mines and send it over rednet
110-doBackup: [t/f] If false, will not back up important information and cannot restore, but will not make an annoying file (Actually I don't really know why anyone would use this...)
111-saveFile: [word] This is what the backup file will be called
112-logFolder: [word] The folder that quarry logs will be stored in
113-logExtension: [word] The extension given to each quarry log (e.g. ".txt" or ".notepad" or whatever)
114-keepOpen: [number] This is the number of the slots the turtle will make sure are open. It will check every time it mines
115-careAboutResources: [t/f] Who cares about the materials! If set to false, it will just keep mining when its inventory is full
116-startDown: [number] If you set this, the turtle will go down this many blocks from the start before starting its quarry
117  =
118  C _ |
119      |
120      |
121      |
122      |_ _ _ _ >
123-flatBedrock: [t/f] If true, turtle will find bedrock and "zero" itself so it ends on bedrock level
124-promptAll: This is the opposite of -Default, it prompts for everything
125-listParams: This will list out all your selected parameters and end quarry. Good for testing
126-manualPos: [xPos] [zPos] [yPos] [facing] This is for advanced use. If the server reset when the turtle was in the middle of a 100x100x100 quarry, fear not, you can now manually set the position of the turtle. yPos is always positive. The turtle's starting position is 0, 1, 1, 0. Facing is measured 0 - 3. 0 is forward, and it progresses clockwise. Example- "-manualPos 65 30 30 2"
127-version: Displays the current quarry version and stops the program
128-help: Thats what this is :D
129Examples: Everything below is examples and tips for use
130Important Note:
131  None of the above parameters are necessary. They all have default values, and the above are just if you want to change them.
132Examples [1]:
133  Want to just start a quarry from the interface, without going through menus? It's easy! Just use some parameters. Assume you called the program "quarry." To start a 10x6x3 quarry, you just type in "quarry -dim 10 6 3 -default".
134  You just told it to start a quarry with dimensions 10x6x3, and "-default" means it won't prompt you about invert or rednet. Wasn't that easy?
135Examples [2]:
136  Okay, so you've got the basics of this now, so if you want, you can type in really long strings of stuff to make the quarry do exactly what you want. Now, say you want a 40x20x9, but you want it to go down to diamond level, and you're on the surface (at y = 64). You also want it to send rednet messages to your computer so you can see how its doing.
137Examples [2] [cont.]:
138  Oh yeah! You also want it to use an ender chest in slot 12 and restart if the server crashes. Yeah, you can do that. You would type
139  "quarry -dim 40x20x9 -invert false -startDown 45 -rednet true -enderChest 12 -restore"
140  BAM. Now you can just let that turtle do it's thing
141Tips:
142  The order of the parameters doesn't matter. "quarry -invert false -rednet true" is the same as "quarry -rednet true -invert false"
143  
144  Capitalization doesn't matter. "quarry -iNVErt FALSe" does the same thing as "quarry -invert false"
145Tips [cont.]:
146  For [t/f] parameters, you can also use "yes" and "no" so "quarry -invert yes"
147  
148  For [t/f] parameters, it only cares about the first letter. So you can use "quarry -invert t" or "quarry -invert y"
149Tips [cont.]:
150  If you are playing with fuel turned off, the program will automatically change settings for you so you don't have to :D
151  
152  If you want, you can load this program onto a computer, and use "quarry -help" so you can have help with the parameters whenever you want.
153Internal Config:
154  At the top of this program is an internal configuration file. If there is some setup that you use all the time, you can just change the config value at the top and run "quarry -default" for a quick setup.
155  
156  You can also use this if there are settings that you don't like the default value of.
157]]
158--NOTE: BIOS 114 MEANS YOU FORGOT A COLON
159--NOTE: THIS ALSO BREAKS IF YOU REMOVE "REDUNDANT" WHITESPACE
160--Parsing help for display
161--[[The way the help table works:
162All help indexes are numbered. There is a help[i].title that contains the title,
163and the other lines are in help[i][1] - help[i][#help[i] ]
164Different lines (e.g. other than first) start with a space.
165As of now, the words are not wrapped, fix that later]]
166local help = {}
167local i = 0
168local titlePattern = ".-%:" --Find the beginning of the line, then characters, then a ":"
169local textPattern = "%:.+" --Find a ":", then characters until the end of the line
170for a in help_paragraph:gmatch("\n?.-\n") do --Matches in between newlines
171  local current = string.sub(a,1,-2).."" --Concatenate Trick
172  if string.sub(current,1,1) ~= " " then
173    i = i + 1
174    help[i] = {}
175    help[i].title = string.sub(string.match(current, titlePattern),1,-2)..""
176    help[i][1] = string.sub(string.match(current,textPattern) or " ",3,-1)
177  elseif string.sub(current,1,1) == " " then
178    table.insert(help[i], string.sub(current,2, -1).."")
179  end
180end
181 
182local supportsRednet
183if peripheral.find then
184  supportsRednet = peripheral.find("modem") or false
185else
186  supportsRednet = (peripheral.getType("right") == "modem") or false
187end
188 
189--Pre-defining variables that need to be saved
190      xPos,yPos,zPos,facing,percent,mined,moved,relxPos, rowCheck, connected, isInPath, layersDone, attacked, startY, chestFull, gotoDest, atChest, fuelLevel, numDropOffs, allowedItems, compareSlots, dumpSlots, selectedSlot, extraDropItems, oldOreQuarry, specialSlots, relzPos, eventInsertionPoint
191    = 0,   1,   1,   0,     0,      0,    0,    1,       true   ,  false,     true,     1,          0,        0,      false,     "",       false,   0,         0,           {},             {},           {},      1,            false,          false,        {explicit = {}},    0, 1
192 
193--These are slot options that need to exist as variables for parameters to work.
194  enderChest, fuelChest, lavaBucket, compareChest
195= false,      false,     false,      false
196 
197local chestID, lavaID, lavaMeta = "minecraft:chest", "minecraft:flowing_lava", 0
198 
199local statusString
200 
201--Initializing various inventory management tables
202for i=1, inventoryMax do
203  allowedItems[i] = 0 --Number of items allowed in slot when dropping items
204  dumpSlots[i] = false --Does this slot contain junk items?
205end --compareSlots is a table of the compare slots, not all slots with a condition
206totals = {cobble = 0, fuel = 0, other = 0} -- Total for display (cannot go inside function), this goes up here because many functions use it
207 
208local function newSpecialSlot(index, value, explicit) --If isn't explicit, it will move whatever is already in the slot around to make room.
209  value = tonumber(value) or 0 --We only want numerical indexes
210  local flag = false --Used in slot moving, moved slot is returned for ease of use
211  local function check(num) return num >= 1 and num <= inventoryMax end
212  if not check(value) then error("from newSpecialSlot: number "..value.." out of range",2) end
213  local function getFirstFree(start)
214    for i=1, math.max(inventoryMax-value,value-1) do
215      for a=-1,1,2 do
216        local num = value + (a*i)
217        if check(num) and not specialSlots[num] then return num end
218      end
219    end
220    return false
221  end
222  if specialSlots[value] and specialSlots[value] ~= index then --If we aren't trying to override the same slot :P
223    if not explicit then
224      value = getFirstFree(value) or error("from newSpecialSlots: all slots full, could not add")
225    elseif explicit and not specialSlots.explicit[value] then --Moving around other slots
226      flag = getFirstFree(value)
227      if not flag then error("from newSpecialSlots: could not add explicit in slot: "..index.." "..value.." Taken by "..specialSlots[value],2) end
228      specialSlots[flag] = specialSlots[value]
229      specialSlots[specialSlots[value]] = flag --These will get set to the new thing later
230    else
231      error('You cannot put a "'..index..'" in the same slot as a "'..specialSlots.explicit[value]..'" (Slot '..value..")",0) --Show the user an understandable error :)
232    end
233  end
234  specialSlots[index] = value
235  specialSlots[value] = index
236  if explicit then
237    specialSlots.explicit[value] = index
238  end
239  return value, flag
240end
241 
242function resetDumpSlots()
243    for i=1, inventoryMax do
244      if oldOreQuarry then
245        if turtle.getItemCount(i) > 0 and i~= specialSlots.enderChest then
246          dumpSlots[i] = true
247        else
248          dumpSlots[i] = false
249        end
250      else
251        dumpSlots[i] = false
252      end
253    end
254    if not oldOreQuarry and specialSlots.enderChest == 1 then
255      dumpSlots[2] = true
256    elseif not oldOreQuarry then
257      dumpSlots[1] = true
258    end
259end
260 
261local function copyTable(tab) if type(tab) ~= "table" then error("copyTable received "..type(tab)..", expected table",2) end local toRet = {}; for a, b in pairs(tab) do toRet[a] = b end; return toRet end --This goes up here because it is a basic utility
262 
263--NOTE: rowCheck is a bit. true = "right", false = "left"
264 
265local foundBedrock = false
266 
267local checkFuel, checkFuelLimit
268if turtle then --Function inits
269  checkFuel = turtle.getFuelLevel
270  if turtle.getFuelLevel() == "unlimited" then --Fuel is disabled --Unlimited screws up my calculations
271    checkFuel = function() return math.huge end --Infinite Fuel
272  end --There is no "else" because it will already return the regular getFuel
273  if turtle.getFuelLimit then
274    checkFuelLimit = function() return math.min(turtle.getFuelLimit(), excessFuelAmount) end --Return the limiting one
275    if turtle.getFuelLimit() == "unlimited" then
276      checkFuelLimit = function() return math.huge end
277    end
278  else
279    checkFuelLimit = function() return excessFuelAmount end --If the function doesn't exist
280  end
281 
282 
283  turtle.select(1) --To ensure this is correct
284end
285 
286 
287function select(slot)
288  if slot ~= selectedSlot and slot > 0 and slot <= inventoryMax then
289    selectedSlot = slot
290    return turtle.select(slot), selectedSlot
291  end
292end
293 
294 
295 -----------------------------------------------------------------
296--Input Phase
297local function screen(xPos,yPos)
298xPos, yPos = xPos or 1, yPos or 1
299term.setCursorPos(xPos,yPos); term.clear(); end
300local function screenLine(xPos,yPos)
301term.setCursorPos(xPos,yPos); term.clearLine(); end
302 
303screen(1,1)
304print("----- Welcome to Quarry! -----")
305print("")
306 
307local sides = {top = "top", right = "right", left = "left", bottom = "bottom", front = "front"} --Used to whitelist sides
308local tArgs --Will be set in initializeArgs
309local originalArgs = {...}
310local changedT, tArgsWithUpper, forcePrompts = {}, {}, {}
311changedT.new = function(key, value, name) table.insert(changedT,{key, value, name}); if name then changedT[name] = #changedT end end --Numeric list of lists
312changedT.remove = function(num) changedT[num or #changedT].hidden = true end --Note actually remove, just hide :)
313local function capitalize(text) return (string.upper(string.sub(text,1,1))..string.sub(text,2,-1)) end
314local function initializeArgs()
315  tArgs = copyTable(originalArgs) --"Reset" tArgs
316  for i=1, #tArgs do --My signature key-value pair system, now with upper
317    tArgsWithUpper[i] = tArgs[i]
318    tArgsWithUpper[tArgsWithUpper[i]] = i
319    tArgs[i] = tArgs[i]:lower()
320    tArgs[tArgs[i]] = i
321    if tArgs[i] == "-forceprompt" and i ~= #tArgs then --If the prompt exists then add it to the list of prompts
322      forcePrompts[tArgs[i+1]:lower()] = true
323    end
324  end
325end
326initializeArgs()
327 
328local restoreFound, restoreFoundSwitch = false --Initializing so they are in scope
329function parseParam(name, displayText, formatString, forcePrompt, trigger, variableOverride, variableExists) --Beware confusion, all ye who enter here
330  --[[ Guide to Variables
331    originalValue: what the variable was before the function
332    givenValue: This is the value after the parameter. So -invert fAlSe, givenValue is "fAlSe"
333  ]]
334  if variableExists ~= false then variableExists = true end --Almost all params should have the variable exist. Some don't exist unless invoked
335  if trigger == nil then trigger = true end --Defaults to being able to run
336  if not trigger then return end --This is what the trigger is for. Will not run if trigger not there
337  if restoreFoundSwitch or tArgs["-default"] then forcePrompt = false end --Don't want to prompt if these. Default is no variable because resuming
338  if not restoreFoundSwitch and (tArgs["-promptall"] or forcePrompts[name:lower()]) then forcePrompt = true end --Won't prompt if resuming, can prompt all or checks list of prompts
339  local toGetText = name:lower() --Because all params are now lowered
340  local formatType = formatString:match("^%a+"):lower() or error("Format String Unknown: "..formatString) --Type of format string
341  local args = formatString:match(" (.+)") or "".."" --Everything in formatString after the type
342  local variable = variableOverride or name --Goes first to the override for name
343  local func = loadstring("return "..variable) --Note to future self: If you want to remove loadstring, this breaks on tables. You will have to remove tables or figure something else out
344  setfenv(func,getfenv(1))
345  local originalValue = assert(func)() --This is the default value, for checking to add to changed table
346  if originalValue == nil and variableExists then error("From addParam, \""..variable.."\" returned nil",2) end --I may have gotten a wrong variable name
347  local givenValue, toRet, values --Initializing for use
348  if tArgs["-"..toGetText] then
349    givenValue = tArgsWithUpper[tArgs["-"..toGetText]+1] --This is the value after the desired parameter
350  elseif forcePrompt then
351    write(displayText.."? ")
352    givenValue = io.read()
353  end
354  if formatType == "force" then --This is the one exception. Should return true if givenValue is nothing
355    toRet = (tArgs["-"..toGetText] and true) or false --Will return true if param exists, otherwise false
356  end
357  if not (givenValue or toRet) or (type(givenValue) == "string" and #givenValue == 0) then return end --Don't do anything if you aren't given anything. Leave it as default, except for "force". Also don't want empty strings
358  if formatType == "boolean" then --All the format strings will be basically be put through a switch statement
359    toRet = givenValue:sub(1,1):lower() ~= "n" and givenValue:sub(1,1):lower() ~= "f" --Accepts anything but false or no
360  elseif formatType == "string" then
361    toRet = givenValue:match("^[%w%./]+") --Basically anything not a space or control character etc
362  elseif formatType == "number" or formatType == "float" then
363    toRet = tonumber(givenValue) --Note this is a local, not the above so we don't change anything
364    if not toRet then return end --We need a number... Otherwise compare errors
365    if formatType == "number" then toRet = math.floor(toRet) end --Get proper integers
366    local startNum, endNum = formatString:match("(%d+)%-(%d+)") --Gets range of numbers
367    startNum, endNum = tonumber(startNum), tonumber(endNum)
368    if not ((toRet >= startNum) and (toRet <= endNum)) then return end --Can't use these
369  elseif formatType == "side" then
370    local exclusionTab = {} --Ignore the wizardry here. Just getting arguments without format string
371    for a in args:gmatch("%S+") do exclusionTab[a] = true end --This makes a list of the sides to not include
372    if not exclusionTab[givenValue] then toRet = sides[givenValue] end --If side is not excluded
373  elseif formatType == "list" then
374    toRet = {}
375    for a in args:gmatch("[^,]") do
376      table.insert(toRet,a)
377    end
378  elseif formatType == "slot" then
379    if givenValue:sub(1,1):lower() == "n" or givenValue:sub(1,1):lower() == "f" then --Copied from boolean
380      toRet = false
381    else
382      local userNumber, correction = givenValue:match("^%d+$") --This makes sure the value is a number | Locally initialize correction
383      toRet, correction = newSpecialSlot(variable, tonumber(userNumber or args), userNumber) --If givenValue was "true", it won't be explicit and will use default number
384      if correction then changedT[changedT[specialSlots[correction]]][2] = tostring(correction) end --This changes the value field of the changedT index taken from the named pointer (which is the value in specialSlots under correction)
385    end
386  elseif formatType == "force" then --Do nothing, everything is already done
387  else error("Improper formatType",2)
388  end
389  if toRet == nil then return end --Don't want to set variables to nil... That's bad
390  tempParam = toRet --This is what loadstring will see :D
391  local func = loadstring(variable.." = tempParam")
392  setfenv(func, getfenv(1)) --Note to future self: If you want to remove loadstring, this breaks on tables. You will have to remove tables or figure something else out
393  func()
394  tempParam = nil --Cleanup of global
395  if toRet ~= originalValue and displayText ~= "" then
396    changedT.new(displayText, tostring(toRet), variable)
397  end
398  return toRet
399end
400 
401local paramLookup = {}
402local function addParam(...)
403  local args = {...}
404  if not paramLookup[args[1]] then
405    local toRet = copyTable(args)
406    for i=2, table.maxn(toRet) do --Have to do this because table.remove breaks on nil
407      toRet[i-1] = toRet[i]
408    end
409    table.remove(toRet)
410    paramLookup[args[1]] = toRet
411  end
412  return parseParam(unpack(args, 1, table.maxn(args)))
413end
414 
415local function paramAlias(original, alias)
416  local a = paramLookup[original]
417  if a then
418    if a[5] == nil then a[5] = original end --This is variableOverride because the originals won't put a variable override
419    return parseParam(alias, unpack(a, 1, table.maxn(a)))
420  else
421    error("In paramAlias: '"..original.."' did not exist",2)
422  end
423end
424 
425--Check if it is a turtle
426if not(turtle or tArgs["help"] or tArgs["-help"] or tArgs["-?"] or tArgs["?"]) then --If all of these are false then
427  print("This is not a turtle, you might be looking for the \"Companion Rednet Program\" \nCheck My forum thread for that")
428  print("Press 'q' to quit, or any other key to start help ")
429  if ({os.pullEvent("char")})[2] ~= "q" then tArgs.help = true else error("",0) end
430end
431 
432if tArgs["help"] or tArgs["-help"] or tArgs["-?"] or tArgs["?"] then
433  print("You have selected help, press any key to continue"); print("Use arrow keys to navigate, q to quit"); os.pullEvent("key")
434  local pos = 1
435  local key = 0
436  while pos <= #help and key ~= keys.q do
437    if pos < 1 then pos = 1 end
438    screen(1,1)
439    print(help[pos].title)
440    for a=1, #help[pos] do print(help[pos][a]) end
441    repeat
442      _, key = os.pullEvent("key")
443    until key == 200 or key == 208 or key == keys.q
444    if key == 200 then pos = pos - 1 end
445    if key == 208 then pos = pos + 1 end
446  end
447  error("",0)
448end
449 
450if tArgs["-version"] or tArgs["version"] then
451  print("QUARRY VERSION: ",VERSION)
452  error("",0) --Exit not so gracefully
453end
454 
455--Loading custom parameter lists
456local function split(str, sep)
457  assert(#sep == 1, "Split seperator too long. Got '"..sep.."'")
458  if not str:match(sep) then return {str} end --So everything else isn't pointless
459  local toRet = {}
460  toRet[1] = str:match("^([^"..sep.."]-)"..sep)
461  for i in str:gmatch(sep.."([^"..sep.."]*)") do --Matches not seperator chars
462    toRet[#toRet+1] = i
463  end
464  return toRet
465end
466 
467if addParam("file","Custom Parameters","string", false, nil, "parameterFile", false) and parameterFile then --This will not load when resuming because there is no "file" parameter when resuming.
468  if not fs.exists(parameterFile) then
469    print("WARNING: '"..parameterFile.."' DOES NOT EXIST. FILE NOT LOADED")
470    sleep(3)
471    changedT.remove()
472  else
473    local file = fs.open(parameterFile, "r")
474    local text = file.readAll()
475    file.close()
476    text = text.."\n" --So that all replacements work properly
477    text = text:gsub("#[^\n]-\n","") --Replace program codes/comment lines+
478    local commands = {} --Contains all the parameters
479    local append = table.insert
480    for _, a in pairs(split(text,"\n")) do
481      local words = split(a," ")
482      if not a:match("-") then --This means only one command per line
483        append(originalArgs,"-"..words[1])
484        for i=2, #words do
485          append(originalArgs, words[i])
486        end
487      else --Otherwise the dashes are already ordered where we want!
488        for i=1, #words do
489          append(originalArgs, words[i])
490        end
491      end
492    end
493    initializeArgs() --Manipulate the args again, because we modified them
494    print("Finished loading file: ",tArgs[tArgs["-file"]+1])
495    sleep(0.5) --Give em a sec
496  end
497end
498 
499 
500 
501--Saving
502addParam("doBackup", "Backup Save File", "boolean")
503addParam("saveFile", "Save File Name", "string")
504 
505restoreFound = fs.exists(saveFile)
506restoreFoundSwitch = (tArgs["-restore"] or tArgs["-resume"] or tArgs["-atchest"]) and restoreFound and doBackup
507if restoreFoundSwitch then
508  local file = fs.open(saveFile,"r")
509  local test = file.readAll() ~= ""
510  file.close()
511  if test then
512    local temp = shell and copyTable(shell) --For whatever reason, the shell table doesn't survive resuming. shell and ... so that copyTable doesn't error
513    os.run(getfenv(1),saveFile) --This is where the actual magic happens
514    shell = temp
515    numResumed = numResumed + 1
516    if checkFuel() ~= math.huge then --If turtle uses fuel
517      if fuelLevel - checkFuel() == 1 then
518        if facing == 0 then xPos = xPos + 1
519        elseif facing == 2 then xPos = xPos - 1
520        elseif facing == 1 then zPos = zPos + 1
521        elseif facing == 3 then zPos = zPos - 1 end
522      elseif fuelLevel - checkFuel() ~= 0 then
523        print("Very Strange Fuel in Restore Section...")
524        print("Current: ",checkFuel())
525        print("Saved: ",fuelLevel)
526        print("Difference: ",fuelLevel - checkFuel())
527        os.pullEvent("char")
528      end
529     end
530    if gpsEnabled then --If it had saved gps coordinates
531      print("Found GPS Start Coordinates")
532      local currLoc = {gps.locate(gpsTimeout)} or {}
533      local backupPos = {xPos, yPos, zPos} --This is for comparing to later
534      if #currLoc > 0 and #gpsStartPos > 0 and #gpsSecondPos > 0 then --Cover all the different positions I'm using
535        print("GPS Position Successfully Read")
536        if currLoc[1] == gpsStartPos[1] and currLoc[3] == gpsStartPos[3] then --X coord, y coord, z coord in that order
537          xPos, yPos, zPos = 0,1,1
538          if facing ~= 0 then turnTo(0) end
539          print("Is at start")
540        else
541          if inverted then --yPos setting
542          ------------------------------------------------FIX THIS
543          end
544          local a, b = copyTable(gpsStartPos), copyTable(gpsSecondPos) --For convenience
545          local flag = true --So we can account for left quarry
546          if b[3] - a[3] == -1 then--If went north (-Z)
547            a[1] = a[1] - 1 --Shift x one to west to create a "zero"
548            xPos, zPos = -currLoc[3] + a[3], currLoc[1] + -a[1]
549          elseif b[1] - a[1] == 1 then--If went east (+X)
550            a[3] = a[3] - 1 --Shift z up one to north to create a "zero"
551            xPos, zPos = currLoc[1] + -a[1], currLoc[3] + -a[3]
552          elseif b[3] - a[3] == 1 then--If went south (+Z)
553            a[1] = a[1] + 1 --Shift x one to east to create a "zero"
554            xPos, zPos = currLoc[3] + a[3], -currLoc[1] + a[3]
555          elseif b[1] - a[1] == -1 then--If went west (-X)
556            a[3] = a[3] + 1 --Shift z down one to south to create a "zero"
557            xPos, zPos = -currLoc[1] + a[1], -currLoc[3] + a[3]
558          else
559            flag = false
560            print("Improper Coordinates")
561            print("GPS Locate Failed, Using Standard Methods")        ----Maybe clean this up a bit to use flags instead.
562          end
563          if flag and goLeftNotRight then --This accounts for left quarry (barred to left only because there might be errors in a regular, causing neg/0
564            zPos = math.abs(zPos-1) + 1
565          end
566        end
567        print("X Pos: ",xPos)
568        print("Y Pos: ",yPos)
569        print("Z Pos: ",zPos)
570        print("Facing: ",facing)
571        for i=1, 3, 2 do --We want 1 and 3, but 2 could be coming back to start.
572          if backupPos[i] ~= currLoc[i] then
573            events = {} --We want to remove event queue if not in proper place, so won't turn at end of row or things.
574          end
575        end
576      else
577        print("GPS Locate Failed, Using Standard Methods")
578      end
579    print("Restore File read successfully. Starting in 3"); sleep(3)
580    end
581  else
582    fs.delete(saveFile)
583    print("Restore file was empty, sorry, aborting")
584    error("",0)
585  end
586else --If turtle is just starting
587  events = {} --This is the event queue :D
588  originalFuel = checkFuel() --For use in logging. To see how much fuel is REALLY used
589end
590 
591--Dimensions
592if tArgs["-dim"] then
593  local a,b,c = x,y,z
594  local num = tArgs["-dim"]
595  x = tonumber(tArgs[num + 1]) or x; z = tonumber(tArgs[num + 2]) or z; y = tonumber(tArgs[num + 3]) or y
596  if a ~= x then changedT.new("Length", x) end
597  if c ~= z then changedT.new("Width", z) end
598  if b ~= y then changedT.new("Height", y) end
599elseif not (tArgs["-default"] or restoreFoundSwitch) then
600  print("What dimensions?")
601  print("")
602  --This will protect from negatives, letters, and decimals
603  term.write("Length? ")
604  x = math.floor(math.abs(tonumber(io.read()) or x))
605  term.write("Width? ")
606  z = math.floor(math.abs(tonumber(io.read()) or z))
607  term.write("Height? ")
608  y = math.floor(math.abs(tonumber(io.read()) or y))
609  changedT.new("Length",x); changedT.new("Width",z); changedT.new("Height",y)
610end
611--Params: parameter/variable name, display name, type, force prompt, boolean condition, variable name override
612--Invert
613addParam("flatBedrock","Go to bedrock", "boolean") --Not done before GPS because GPS only runs on restart
614addParam("invert", "Inverted","boolean", true, not flatBedrock, "inverted") --Not flat bedrock, because invert will be set to false
615addParam("startDown","Start Down","number 1-256", nil, not flatBedrock)
616addParam("left","Left Quarry","boolean", nil, nil, "goLeftNotRight")
617--Inventory
618addParam("chest", "Chest Drop Side", "side front", nil, nil, "dropSide")
619addParam("enderChest","Ender Chest Slot","slot 16") --Note: All slots can be 16 and they will auto-assign, but I feel it is less confusing if they are always the same
620addParam("fuelChest","Fuel Chest Slot","slot 15")
621--Rednet
622addParam("rednet", "Rednet Enabled","boolean",true, supportsRednet, "rednetEnabled")
623addParam("sendChannel", "Rednet Send Channel", "number 1-65535", false, supportsRednet, "channels.send")
624addParam("receiveChannel","Rednet Receive Channel", "number 1-65535", false, supportsRednet, "channels.receive")
625addParam("fingerprint","Sending Fingerprint", "string", false, supportsRednet, "channels.fingerprint")
626addParam("legacyRednet","Legacy Rednet","boolean", false, supportsRednet)
627--Quad Rotor --Must be before GPS
628if addParam("quad", "Quad Rotor Enabled","boolean",nil, rednetEnabled, "quadEnabled") then --This returns true if param found :3
629  gpsEnabled = true
630end
631addParam("quadTimeout","Quad Rotor Timeout","number 1-1000000", nil, quadEnabled) --The amount of time to wait for a quadRotor
632--GPS
633addParam("gps", "GPS Location Services", "force", nil, (not restoreFoundSwitch) and supportsRednet and not quadEnabled, "gpsEnabled" ) --Has these triggers so that does not record position if restarted.
634if gpsEnabled and not restoreFoundSwitch then
635  gpsStartPos = {gps.locate(gpsTimeout)} --Stores position in array
636  gpsEnabled = #gpsStartPos > 0 --Checks if location received properly. If not, position is not saved
637  if quadEnabled and not gpsEnabled then
638    error("You have no GPS network. You may not use Quad Rotors",0)
639  end
640end
641--Fuel
642addParam("uniqueExtras","Unique Items", "number 0-15")
643addParam("doRefuel", "Refuel from Inventory","boolean", nil, checkFuel() ~= math.huge) --math.huge due to my changes
644addParam("doCheckFuel", "Check Fuel", "boolean", doCheckFuel and fuelChest, checkFuel() ~= math.huge) --Will prompt if doCheckFuel and fuelChest are on. Probably don't want
645excessFuelAmount = excessFuelAmount or math.huge --Math.huge apparently doesn't save properly (Without saving, this is the config, on save it is actually set to nil if math.huge)
646addParam("maxFuel", "Max Fuel", "number 1-999999999", maxFuel == checkFuelLimit() and fuelChest, checkFuel() ~= math.huge, "excessFuelAmount") --Will prompt if fuel chest and the limit isn't changed
647addParam("fuelMultiplier", "Fuel Multiplier", "float 1-9001", nil, checkFuel() ~= math.huge)
648paramAlias("fuelMultiplier","fuelRequestMultiplier")
649paramAlias("fuelMultiplier","overFuel")
650--Logging
651addParam("logging", "Logging", "boolean")
652addParam("logFolder", "Log Folder", "string")
653addParam("logExtension","Log Extension", "string")
654--Misc
655addParam("startY", "Start Y","number 1-256")
656addParam("maxTries","Tries Before Bedrock", "number 1-9001")
657--Inventory
658addParam("keepOpen", "Slots to Keep Open", "number 1-15")
659addParam("careAboutResources", "Care About Resources","boolean")
660addParam("preciseTotals","Precise Totals","boolean", rednetEnabled and turtle.inspect, turtle.getItemDetail ~= nil)
661if preciseTotals and not restoreFoundSwitch then
662  exactTotals = {} --Don't want to initialize if we aren't using this
663end
664--Auto Startup
665addParam("autoResume", "Auto Resume", "boolean", nil, doBackup)
666paramAlias("autoResume","autoRestart")
667addParam("startupRename", "Startup Rename","string", nil, autoResume)
668addParam("startupName", "Startup File", "string", nil, autoResume)
669--Ore Quarry
670addParam("oreQuarry", "Ore Quarry", "boolean" )
671if oreQuarry and not turtle.inspect then
672  oldOreQuarry = true
673  oreQuarry = false
674end
675addParam("lavaBucket","Lava Bucket Slot", "slot 14", nil, oreQuarry)
676paramAlias("lavaBucket","lava")
677paramAlias("lavaBucket","lavaRefuel")
678addParam("lavaBuffer","Lava Buffer","number 1-19999", nil, lavaBucket)
679--Old Ore
680addParam("oldOreQuarry", "Old Ore Quarry", "boolean")
681addParam("dumpCompareItems", "Dump Compare Items", "boolean", nil, oldOreQuarry) --Do not dump compare items if not oreQuarry
682addParam("extraDropItems", "", "force", nil, oldOreQuarry) --Prompt for extra dropItems
683paramAlias("extraDropItems","extraDumpItems") --changed to Dump
684addParam("compareChest","Compare Chest Slot","slot 13", nil, oldOreQuarry)
685addParam("frontChest","Front Chest Check","boolean", nil, compareChest or turtle.insepect) --Does not need oreQuarry, but is similar (does need inspect if not compareChest)
686--New Ore
687addParam("blacklist","Ore Blacklist", "string", nil, oreQuarry, "oreQuarryBlacklistName")
688paramAlias("blacklist","blacklistFile")
689--Mod Related
690 
691--Extra
692if tArgs["-testparams"] then
693  screen()
694  print("KEY: VALUE (VARIABLE)")
695  for key, val in ipairs(changedT) do
696    if not val.hidden then
697      print(val[1],": ",val[2],"  (",val[3] or "",")")
698    end
699  end
700  error("Done",0)
701end
702  
703 
704--for flatBedrock
705if flatBedrock then
706  inverted = false
707end
708 
709--Auto Startup functions
710local function doAutoResumeStuff()
711  if fs.exists(startupName) then
712    if fs.exists(startupRename) then fs.delete(startupRename) end
713    fs.move(startupName, startupRename)
714  end
715  local file = fs.open(startupName,"w") --Startup File
716  file.writeLine( --The below is on the left because spacing
717[[
718--This is an auto-generated startup
719--Made by civilwargeeky's Variable Size Quarry
720print("Now Resuming Quarry")
721print("Press any key to quit. You have 5 seconds.")
722function deleteStuff()
723  fs.delete("]]..startupName..[[")
724  if fs.exists("]]..startupRename..[[") then
725    fs.move("]]..startupRename.."\",\""..startupName..[[")
726  end
727end
728local event
729if fs.exists("]]..saveFile..[[") then
730  for i=5,1,-1 do
731    print(i)
732    os.startTimer(1)
733    event = os.pullEvent()
734    if event == "key" then break end
735  end
736  if event == "timer" then
737    os.run({},"]]..shell.getRunningProgram()..[[","-resume")
738  else
739 
740    deleteStuff()
741  end
742else
743  print("Never mind, no save file found")
744  deleteStuff()
745end
746  ]])
747  file.close()
748end
749if autoResume and not restoreFoundSwitch then --Don't do for restore because would overwrite renamed thing. Can't edit mid-run because no shell in restarted
750  doAutoResumeStuff()
751end
752--oreQuarry blacklist
753local blacklist = { "minecraft:air",  "minecraft:bedrock", "minecraft:cobblestone", "minecraft:dirt", "minecraft:ice", "minecraft:ladder", "minecraft:netherrack", "minecraft:sand", "minecraft:sandstone",
754  "minecraft:snow", "minecraft:snow_layer", "minecraft:stone", "minecraft:gravel", "minecraft:grass", "minecraft:torch" }
755for a,b in pairs(copyTable(blacklist)) do
756  blacklist[b], blacklist[a] = true, nil --Switch
757end
758if fs.exists(oreQuarryBlacklistName) then --Loading user-defined blacklist
759  local file = fs.open(oreQuarryBlacklistName, "r")
760  blacklist = {}
761  for a in file:readAll():gmatch("[^,\n]+") do
762    blacklist[a:match("[%w_.]+:[%w_.]+")] = true --Grab only the actual characters, not whitespaces
763  end
764  file:close()
765end
766 
767--Manual Position
768if tArgs["-manualpos"] then --Gives current coordinates in xPos,zPos,yPos, facing
769  local a = tArgs["-manualpos"]
770  xPos, zPos, yPos, facing = tonumber(tArgs[a+1]) or xPos, tonumber(tArgs[a+2]) or zPos, tonumber(tArgs[a+3]) or yPos, tonumber(tArgs[a+4]) or facing
771  changedT.new("xPos",xPos); changedT.new("zPos",zPos); changedT.new("yPos",yPos); changedT.new("facing",facing)
772  restoreFoundSwitch = true --So it doesn't do beginning of quarry behavior
773  for i=0,4 do tArgs[a+i] = "" end --Get rid of this argument from future restores
774end
775if addParam("atChest", "Is at Chest", "force") then --This sets position to 0,1,1, facing forward, and queues the turtle to go back to proper row.
776  local neededLayer = math.floor((yPos+1)/3)*3-1 --Make it a proper layer, +- because mining rows are 2, 5, etc.
777  if neededLayer > 2 and neededLayer%3 ~= 2 then --If turtle was not on a proper mining layer
778    print("Last known pos was not in proper layer, restarting quarry")
779    sleep(4)
780    neededLayer = 2
781  end
782  xPos, zPos, yPos, facing, rowCheck, layersDone = 0,1,1, 0, true, math.ceil(neededLayer/3)
783  doAutoResumeStuff() --This was probably deleted when they hit a key to launch with -atChest
784  events = {{"goto",1,1,neededLayer, 0}}
785end
786 
787 
788local function saveProgress(extras) --Session persistence
789exclusions = { modem = true, shell = true, _ENV = true}
790if doBackup then
791local toWrite = ""
792for a,b in pairs(getfenv(1)) do
793  if not exclusions[a] then
794      --print(a ,"   ", b, "   ", type(b)) --Debug
795    if type(b) == "string" then b = "\""..b.."\"" end
796    if type(b) == "table" then b = textutils.serialize(b) end
797    if type(b) ~= "function" then
798      toWrite = toWrite..a.." = "..tostring(b).."\n"
799    end
800  end
801end
802toWrite = toWrite.."doCheckFuel = false\n" --It has already used fuel, so calculation unnecessary
803local file
804repeat
805  file = fs.open(saveFile,"w")
806until file
807file.write(toWrite)
808if type(extras) == "table" then
809  for a, b in pairs(extras) do
810    file.write(a.." = "..tostring(b).."\n")
811  end
812end
813if checkFuel() ~= math.huge then --Used for location comparing
814  file.write("fuelLevel = "..tostring(checkFuel()).."\n")
815end
816file.close()
817end
818end
819 
820local area = x*z
821local volume = x*y*z
822local lastHeight = y%3
823layers = math.ceil(y/3)
824local yMult = layers --This is basically a smart y/3 for movement
825local moveVolume = (area * yMult) --Kept for display percent
826--Calculating Needed Fuel--
827do --Because many local variables unneeded elsewhere
828  local changeYFuel = 2*(y + startDown)
829  local dropOffSupplies = 2*(x + z + y + startDown) --Assumes turtle as far away as possible, and coming back
830  local frequency = math.ceil(((moveVolume/(64*(15-uniqueExtras) + uniqueExtras)) ) ) --This is complicated: volume / inventory space of turtle, defined as 64*full stacks + 1 * unique stacks.
831                                                                                     --max of 15 full stacks because once one item is picked up, slot is "full". Ceil to count for initial back and forth
832  if enderChest then frequency = 0 end --Never goes back to start
833  neededFuel = moveVolume + changeYFuel + (frequency * dropOffSupplies) + ((x + z) * layers) --x + z *layers because turtle has to come back from far corner every layer
834  neededFuel = neededFuel + fuelTable[fuelSafety] --For safety
835end
836 
837if neededFuel > checkFuelLimit() and doCheckFuel then--Checks for if refueling goes over turtle fuel limit
838  if not (doRefuel or fuelChest) then
839    screen()
840    print("Turtle cannot hold enough fuel\n")
841    print("Options: \n1. Select a smaller size \n2. Enable Mid-Run Refueling (RECOMMENDED) \n3. Turn fuel checking off (only if fuel chest) \n4. Do nothing")
842    local _, key = os.pullEvent("char")
843    if key == "1" then
844      screen(); print("Okay"); error("",0)
845    elseif key == "3" then
846      doCheckFuel = false
847    elseif key == "4" then
848      --pass
849    else --Not for number two because this is default
850      doRefuel = true
851    end
852  end
853  neededFuel = checkFuelLimit()-checkFuel()-1
854end
855 
856 
857--Getting Fuel
858local hasRefueled --This is for oldOreQuarry prompting
859if doCheckFuel and checkFuel() < neededFuel then
860  neededFuel = math.min(math.floor(neededFuel * fuelMultiplier), checkFuelLimit()-checkFuel()-1) --Does the same as above, but not verbose because optional
861  hasRefueled = true
862  print("Not enough fuel")
863  print("Current: ",checkFuel()," Needed: ",neededFuel)
864  print("Starting SmartFuel...")
865  sleep(2) --So they can read everything.
866  term.clear()
867  local oneFuel, neededFuelItems = 0,0 --Initializing Variables
868  local currSlot = 0
869  local function output(text, x, y) --For displaying fuel statistics
870    local currX, currY = term.getCursorPos()
871    term.setCursorPos(x,y)
872    term.clearLine()
873    term.write(text)
874    term.setCursorPos(currX,currY)
875  end
876  local function roundTo(num, target) --For stacks of fuel and turtle slots when undergoing addition/subtraction
877    if num >= target then return target elseif num < 0 then return 0 else return num end
878  end
879  local function updateScreen()
880    output("Welcome to SmartFuel! Now Refueling...", 1,1)
881    output("Fuel Request Multiplier: "..tostring(fuelMultiplier).."x",1,2)
882    output("Currently taking fuel from slot "..currSlot,1,3)
883    output("Current single fuel: "..tostring(oneFuel or 0),1,4)
884    output("Current estimate of needed fuel: ",1,4)
885    output("Single Items: "..math.ceil(neededFuelItems),4,6)
886    output("Stacks:       "..math.ceil(neededFuelItems / 64),4,7)
887    output("Needed Fuel: "..tostring(neededFuel),1,12)
888    output("Current Fuel: "..tostring(checkFuel()),1,13)
889  end
890  while checkFuel() < neededFuel do
891    currSlot = currSlot + 1
892    select(currSlot)
893    if currSlot ~= 1 and not turtle.refuel(0) then --If it's not the first slot, and not fuel, go back to start
894      currSlot = 1; select(currSlot)
895    end
896    updateScreen()
897    while turtle.getItemCount(currSlot) == 0 do
898      sleep(1.5)
899    end
900    repeat --TODO: Probably unnecessary loop, remove later
901      local previous = checkFuel()
902      turtle.refuel(1)
903      oneFuel = checkFuel() - previous
904      updateScreen()
905    until (oneFuel or 0) > 0 --Not an if to prevent errors if fuel taken out prematurely.
906    neededFuelItems = math.ceil((neededFuel - checkFuel()) / oneFuel)
907    turtle.refuel(roundTo(neededFuelItems, 64)) --Change because can only think about 64 at once.
908    if turtle.getItemCount(roundTo(currSlot + 1, inventoryMax)) == 0 then --Resets if no more fuel
909      currSlot = 0
910    end
911    neededFuelItems = math.ceil((neededFuel - checkFuel()) / oneFuel) --This line is not repeated uselessly, it's for the display function
912  end
913  select(1)
914end
915--Ender Chest Obtaining
916function promptSpecialSlot(specialSlot, name, limit)
917  local function isInRange(toCheck, lower, upper) return toCheck <= upper and toCheck >= lower end
918  while not isInRange(turtle.getItemCount(specialSlots[specialSlot]), 1, limit or 1) do
919    screen(1,1)
920    print("You have decided to use a ",name,"!")
921    print("Please place one ",name," in slot ",specialSlots[specialSlot])
922    sleep(1)
923  end
924  print(name," in slot ",specialSlots[specialSlot], " checks out")
925end
926function checkSpecialSlot(specialSlot, name, allowed)
927 if restoreFoundSwitch and turtle.getItemCount(specialSlots[specialSlot]) == 0 then --If the turtle was stopped while dropping off items.
928    select(specialSlots[specialSlot])
929    turtle.dig()
930    select(1)
931  end
932  promptSpecialSlot(specialSlot, name, allowed)
933  allowedItems[specialSlots[specialSlot]] = 1
934  sleep(1)
935end
936if enderChest then
937  checkSpecialSlot("enderChest","Ender Chest")
938end
939if fuelChest then
940  checkSpecialSlot("fuelChest","Fuel Chest")
941end
942if lavaBucket then
943  checkSpecialSlot("lavaBucket","Empty Bucket")
944  select(specialSlots.lavaBucket)
945  if turtle.refuel(1) then --Just in case they actually put in a lava bucket >:(
946    print("No! You're supposed to put in an empty bucket") --This doubles as emptying the lava bucket if mid-run
947    sleep(2)
948  end
949  select(1)
950end
951if compareChest then
952  checkSpecialSlot("compareChest","Chest", 64)
953end
954 
955--Setting which slots are marked as compare slots
956if oldOreQuarry then
957  if not restoreFoundSwitch then --We don't want to reset compare blocks every restart
958    local counter = 0
959    for i=1, inventoryMax do if turtle.getItemCount(i) > 0 and not specialSlots[i] then counter = counter+1 end end --If the slot has items, but isn't enderChest slot if it is enabled
960 
961    screen(1,1)
962    print("You have selected an Ore Quarry!")
963    if counter == 0 or hasRefueled then --If there are no compare slots, or the turtle has refueled, and probably has fuel in inventory
964      print("Please place your compare blocks in the first slots\n")
965 
966      print("Press Enter when done")
967      repeat until ({os.pullEvent("key")})[2] == 28 --Should wait for enter key to be pressed
968    else
969      print("Registering slots as compare slots")
970      sleep(1)
971    end
972    for i=1, inventoryMax do
973      if turtle.getItemCount(i) > 0 then
974        if not specialSlots[i] then
975          table.insert(compareSlots, i) --Compare slots are ones compared to while mining. Conditions are because we Don't want to compare to enderChest
976          allowedItems[i] = 1 --Blacklist is for dropping off items. The number is maximum items allowed in slot when dropping off
977          dumpSlots[i] = true --We also want to ignore all excess of these items, like dirt
978        end
979      end
980    end
981    if extraDropItems then
982      screen(1,1)
983      print("Put in extra drop items now\n")
984      print("Press Enter when done")
985      repeat until ({os.pullEvent("key")})[2] == 28 --Should wait for enter key to be pressed
986      for i=1,inventoryMax do
987        if not dumpSlots[i] and turtle.getItemCount(i) > 0 then --I don't want to modify from above, so I check it hasn't been assigned.
988          dumpSlots[i] = true
989          allowedItems[i] = 1
990        end
991      end
992    end
993    --This is could go very wrong if this isn't here
994    if #compareSlots >= inventoryMax-keepOpen then screen(1,1); error("You have more quarry compare items than keep open slots, the turtle will continuously come back to start. Please fix.",0) end
995  end
996  local counter = 0
997  for a, b in pairs(compareSlots) do if  turtle.getItemCount(b) > 0 then counter = counter + 1 end end
998  if counter == 0 then
999    screen(1,1)
1000    print("You have an ore quarry without any compare slots. Continue? y/n")
1001    if ({os.pullEvent("char")})[2] ~= "y" then error("",0) end
1002  end
1003elseif not oreQuarry then --This was screwing up dumpCompareItems
1004  dumpCompareItems = false --If not an ore quarry, this should definitely be false
1005  if specialSlots.enderChest == 1 then
1006    dumpSlots[2] = true
1007  else
1008    dumpSlots[1] = true
1009  end
1010end
1011 
1012--Rednet Handshake
1013function newMessageID()
1014  return math.random(1,2000000000)
1015end
1016function sendMessage(send, receive, message)
1017  if legacyRednet then
1018    if type(message) == "table" then message = textutils.serialize(message) end
1019    return modem.transmit(send, receive, message)
1020  end
1021  return modem.transmit(send , receive, {fingerprint = channels.fingerprint, id = newMessageID(), message = message})
1022end
1023if rednetEnabled then
1024  screen(1,1)
1025  print("Rednet is Enabled")
1026  print("The Channel to open is "..channels.send)
1027  if peripheral.find then
1028    modem = peripheral.find("modem")
1029  else
1030    modem = peripheral.wrap("right")
1031  end
1032  modem.open(channels.receive)
1033  local i = 0
1034    repeat
1035      local id = os.startTimer(3)
1036      i=i+1
1037      print("Sending Initial Message "..i)
1038      sendMessage(channels.send, channels.receive, channels.message)
1039      local message = {} --Have to initialize as table to prevent index nil
1040      repeat
1041        local event, idCheck, channel,_,locMessage, distance = os.pullEvent()
1042        if locMessage then message = locMessage end
1043        if legacyRednet then --For that one guy that uses 1.4.7
1044          message = {message = message}
1045        end
1046      until (event == "timer" and idCheck == id) or (event == "modem_message" and channel == channels.receive and type(message) == "table")
1047    until message.message == channels.confirm
1048  connected = true
1049  print("Connection Confirmed!")
1050  sleep(1.5)
1051end
1052function biometrics(isAtBedrock, requestQuad)
1053  if not rednetEnabled then return end --This function won't work if rednet not enabled :P
1054  local toSend = { label = os.getComputerLabel() or "No Label", id = os.getComputerID(),
1055    percent = percent, zPos = relzPos, xPos = relxPos, yPos = yPos,
1056    layersDone = layersDone, x = x, z = z, layers = layers,
1057    openSlots = getNumOpenSlots(), mined = mined, moved = moved,
1058    chestFull = chestFull, isAtChest = (xPos == 0 and yPos == 1 and zPos == 1),
1059    isGoingToNextLayer = (gotoDest == "layerStart"), foundBedrock = foundBedrock,
1060    fuel = checkFuel(), volume = volume, status = statusString,
1061    }
1062  if requestQuad and isInPath then --If we are requesting a quadRotor to send help
1063    if not gps.locate(gpsTimeout) then
1064      print("\nOH NOES! Trying to reach quadrotor, but can't get GPS position!")
1065      sleep(1)
1066    else
1067      toSend.firstPos = gpsStartPos
1068      toSend.secondPos = gpsSecondPos
1069      toSend.emergencyLocation = {gps.locate(gpsTimeout)}
1070    end
1071  end
1072  sendMessage(channels.send, channels.receive, toSend)
1073  id = os.startTimer(0.1)
1074  local event, received
1075  repeat
1076    local locEvent, idCheck, confirm, _, locMessage, distance = os.pullEvent()
1077    event, received = locEvent, locMessage or {message = ""}
1078    if legacyRednet and type(received) == "string" then
1079      received = {message = received}
1080    end
1081  until (event == "timer" and idCheck == id) or (event == "modem_message" and confirm == channels.receive and type(received) == "table")
1082  if event == "modem_message" then connected = true else connected = false end
1083  local message = received.message:lower()
1084  if message == "stop" or message == "quit" or message == "kill" then
1085    count(true)
1086    display()
1087    error("Rednet said to stop...",0)
1088  end
1089  if message == "return" then
1090    endingProcedure()
1091    error('Rednet said go back to start...',0)
1092  end
1093  if message == "drop" then
1094    dropOff()
1095  end
1096  if message == "pause" then
1097    print("\nTurtle is paused. Send 'resume' or press any character to resume")
1098    statusString = "Paused"
1099    toSend.status = statusString
1100    os.startTimer(3)
1101    repeat --The turtle sends out periodic messages, which will clear the receiver's queue and send a message (if it exists)
1102     --This may be a bit overkill, sending the whole message again, but whatever.
1103      local event, idCheck, confirm, _, message, distance = os.pullEvent()
1104      if event == "timer" then os.startTimer(3); sendMessage(channels.send, channels.receive, toSend) end --Only send messages on the timer. This prevents ridiculous spam
1105    until (event == "modem_message" and confirm == channels.receive and (message.message == "resume" or message.message == "unpause" or message.message == "pause")) or (event == "char")
1106    statusString = nil
1107  end
1108  if message == "refuel" then
1109    print("\nEngaging in emergency refueling")
1110    emergencyRefuel(true)
1111  end
1112 
1113end
1114--Showing changes to settings
1115screen(1,1)
1116print("Your selected settings:")
1117if #changedT == 0 then
1118  print("Completely Default")
1119  else
1120  for i=1, #changedT do
1121    if not changedT[i].hidden then
1122      print(changedT[i][1],": ",changedT[i][2]) --Name and Value
1123    end
1124  end
1125end
1126print("\nStarting in 3"); sleep(1); print("2"); sleep(1); print("1"); sleep(1.5) --Dramatic pause at end
1127 
1128 
1129 
1130----------------------------------------------------------------
1131--Define ALL THE FUNCTIONS
1132--Event System Functions
1133function eventSetInsertionPoint(num)
1134  eventInsertionPoint = num or 1
1135end
1136function eventAddAt(pos, ...)
1137  return table.insert(events,pos, {...}) or true
1138end
1139function eventAdd(...) --Just a wrapper
1140  return eventAddAt(eventInsertionPoint, ...)
1141end
1142function eventGet(pos)
1143  return events[tonumber(pos) or #events]
1144end
1145function eventPop(pos)
1146  return table.remove(events,tonumber(pos) or #events) or false --This will return value popped, tonumber returns nil if fail, so default to end
1147end
1148function eventRun(value, ...)
1149  local argsList = {...}
1150  if type(value) == "string" then
1151    if value:sub(-1) ~= ")" then --So supports both "up()" and "up"
1152      value = value .. "("
1153      for a, b in pairs(argsList) do --Appending arguments
1154        local toAppend
1155        if type(b) == "table" then toAppend = textutils.serialize(b)
1156        elseif type(b) == "string" then toAppend = "\""..tostring(b).."\"" --They weren't getting strings around them
1157        else toAppend = tostring(b) end
1158        value = value .. (toAppend or "true") .. ", "
1159      end
1160      if value:sub(-1) ~= "(" then --If no args, do not want to cut off
1161        value = value:sub(1,-3)..""
1162      end
1163      value = value .. ")"
1164    end
1165    --print(value) --Debug
1166    local func = loadstring(value)
1167    setfenv(func, getfenv(1))
1168    return func()
1169  end
1170end
1171function eventClear(pos)
1172  if pos then events[pos] = nil else events = {} end
1173end
1174function runAllEvents()
1175  while #events > 0 do
1176    local toRun = eventGet()
1177    --print(toRun[1]) --Debug
1178    eventRun(unpack(toRun))
1179    eventPop()
1180  end
1181end
1182 
1183--Display Related Functions
1184function display() --This is just the last screen that displays at the end
1185  screen(1,1)
1186  print("Total Blocks Mined: "..mined)
1187  print("Current Fuel Level: "..checkFuel())
1188  print("Cobble: "..totals.cobble)
1189  print("Usable Fuel: "..totals.fuel)
1190  print("Other: "..totals.other)
1191  if rednetEnabled then
1192    print("")
1193    print("Sent Stop Message")
1194    if legacyRednet then --This was the traditional stopping signal
1195      print("Sent Legacy Stop")
1196      sendMessage(channels.send, channels.receive, "stop")
1197    end
1198    local finalTable = {mined = mined, cobble = totals.cobble, fuelblocks = totals.fuel,
1199        other = totals.other, fuel = checkFuel(), isDone = true }
1200    if preciseTotals then
1201      finalTable.preciseTotals = exactTotals --This table doubles as a flag.
1202    end
1203    sendMessage(channels.send,channels.receive, finalTable)
1204    modem.close(channels.receive)
1205  end
1206  if doBackup then
1207    fs.delete(saveFile)
1208    if autoResume then --Getting rid of the original startup files and replacing
1209      fs.delete(startupName)
1210      if fs.exists(startupRename) then
1211        fs.move(startupRename, startupName)
1212      end
1213    end
1214  end
1215end
1216function updateDisplay() --Runs in Mine(), display information to the screen in a certain place
1217screen(1,1)
1218print("Blocks Mined")
1219print(mined)
1220print("Percent Complete")
1221print(percent.."%")
1222print("Fuel")
1223print(checkFuel())
1224  -- screen(1,1)
1225  -- print("Xpos: ")
1226  -- print(xPos)
1227  -- print("RelXPos: ")
1228  -- print(relxPos)
1229  -- print("Z Pos: ")
1230  -- print(zPos)
1231  -- print("Y pos: ")
1232  -- print(yPos)
1233if rednetEnabled then
1234screenLine(1,7)
1235print("Connected: "..tostring(connected))
1236end
1237end
1238--Utility functions
1239local function pad(str, length, side)
1240  toRet = ""
1241  if side == "right" then
1242    toRet = str
1243  end
1244  for i=1, length-#str do
1245    toRet = toRet.." "
1246  end
1247  if side == "left" then
1248    toRet = toRet..str
1249  end
1250  return toRet
1251end
1252function logMiningRun(textExtension, extras) --Logging mining runs
1253  if not logging then return end
1254  local number, name = 0
1255  if not fs.isDir(logFolder) then
1256    fs.delete(logFolder)
1257    fs.makeDir(logFolder)
1258  end
1259  repeat
1260    number = number + 1 --Number will be at least 2
1261    name = logFolder.."/Quarry_Log_"..tostring(number)..(textExtension or "")
1262  until not fs.exists(name)
1263  local handle = fs.open(name,"w")
1264  local function write(...)
1265    for a, b in ipairs({...}) do
1266      handle.write(tostring(b))
1267    end
1268    handle.write("\n")
1269  end
1270  local function boolToText(bool) if bool then return "Yes" else return "No" end end
1271  write("Welcome to the Quarry Logs!")
1272  write("Entry Number: ",number)
1273  write("Quarry Version: ",VERSION)
1274  write("Dimensions (X Z Y): ",x," ",z," ", y)
1275  write("Blocks Mined: ", mined)
1276  write("  Cobble: ", totals.cobble)
1277  write("  Usable Fuel: ", totals.fuel)
1278  write("  Other: ",totals.other)
1279  write("Total Fuel Used: ",  (originalFuel or (neededFuel + checkFuel()))- checkFuel()) --Protect against errors with some precision
1280  write("Expected Fuel Use: ", neededFuel)
1281  write("Days to complete mining run: ",os.day()-originalDay)
1282  write("Day Started: ", originalDay)
1283  write("Number of times resumed: ", numResumed)
1284  write("Was an ore quarry? ",boolToText(oreQuarry or oldOreQuarry))
1285  write("Was inverted? ",boolToText(invert))
1286  write("Was using rednet? ",boolToText(rednetEnabled))
1287  write("Chest was on the ",dropSide," side")
1288  if startDown > 0 then write("Started ",startDown," blocks down") end
1289  if exactTotals then
1290    write("\n==DETAILED TOTALS==")
1291    for a,b in pairs(exactTotals) do
1292      write(pad(a, 15, "right"),":",pad(tostring(b),({term.getSize()})[1]-15-1, "left"))
1293    end
1294  end
1295  handle.close()
1296end
1297--Inventory related functions
1298function isFull(slots) --Checks if there are more than "slots" used inventory slots.
1299  slots = slots or inventoryMax
1300  local numUsed = 0
1301  sleep(0)
1302  for i=1, inventoryMax do
1303    if turtle.getItemCount(i) > 0 then numUsed = numUsed + 1 end
1304  end
1305  if numUsed > slots then
1306    return true
1307  end
1308  return false
1309end
1310function countUsedSlots() --Returns number of slots with items in them, as well as a table of item counts
1311  local toRet, toRetTab = 0, {}
1312  for i=1, inventoryMax do
1313    local a = turtle.getItemCount(i)
1314    if a > 0 then toRet = toRet + 1 end
1315    table.insert(toRetTab, a)
1316  end
1317  return toRet, toRetTab
1318end
1319function getSlotsTable() --Just get the table from above
1320  local _, toRet = countUsedSlots()
1321  return toRet
1322end
1323function getChangedSlots(tab1, tab2) --Returns a table of changed slots. Format is {slotNumber, numberChanged}
1324  local toRet = {}
1325  for i=1, math.min(#tab1, #tab2) do
1326    diff = math.abs(tab2[i]-tab1[i])
1327    if diff > 0 then
1328      table.insert(toRet, {i, diff})
1329    end
1330  end
1331  return toRet
1332end
1333function getFirstChanged(tab1, tab2) --Just a wrapper. Probably not needed
1334  local a = getChangedSlots(tab1,tab2)
1335  return (a[1] or {"none"})[1]
1336end
1337 
1338function getRep(which, list) --Gets a representative slot of a type. Expectation is a sequential table of types
1339  for a,b in pairs(list) do
1340    if b == which then return a end
1341  end
1342  return false
1343end
1344function assignTypes(types, count) --The parameters allow a preexisting table to be used, like a table from the original compareSlots...
1345  types, count = types or {1}, count or 1 --Table of types and current highest type
1346  for i=1, inventoryMax do
1347    if turtle.getItemCount(i) > 0 and not specialSlots[i] then --Not special slots so we don't count ender chests
1348      select(i)
1349      for k=1, count do
1350        if turtle.compareTo(getRep(k, types)) then types[i] = k end
1351      end
1352      if not types[i] then
1353        count = count + 1
1354        types[i] = count
1355      end
1356      if oreQuarry then
1357        if blacklist[turtle.getItemDetail().name] then
1358          dumpSlots[i] = true
1359        else
1360          dumpSlots[i] = false
1361        end
1362      end
1363    end
1364  end
1365  select(1)
1366  return types, count
1367end
1368function getTableOfType(which, list) --Returns a table of all the slots of which type
1369  local toRet = {}
1370  for a, b in pairs(list) do
1371    if b == which then
1372      table.insert(toRet, a)
1373    end
1374  end
1375  return toRet
1376end
1377 
1378--This is so the turtle will properly get types, otherwise getRep of a type might not be a dumpSlot, even though it should be.
1379if not restoreFoundSwitch then --We only want this to happen once
1380  if oldOreQuarry then --If its not ore quarry, this screws up type assigning
1381    initialTypes, initialCount = assignTypes()
1382  else
1383    initialTypes, initialCount = {1}, 1
1384  end
1385end
1386 
1387function count(add) --Done any time inventory dropped and at end, true=add, false=nothing, nil=subtract
1388  local mod = -1
1389  if add then mod = 1 end
1390  if add == false then mod = 0 end
1391  slot = {}        --1: Filler 2: Fuel 3:Other --[1] is type, [2] is number
1392  for i=1, inventoryMax do
1393    slot[i] = {}
1394    slot[i][2] = turtle.getItemCount(i)
1395  end
1396 
1397  local function iterate(toSet , rawTypes, set)
1398    for _, a in pairs(getTableOfType(toSet, rawTypes)) do --Get all slots matching type
1399      slot[a][1] = set --Set official type to "set"
1400    end
1401  end
1402 
1403  --This assigns "dumb" types to all slots based on comparing, then based on knowledge of dump type slots, changes all slots matching a dump type to one. Otherwise, if the slot contains fuel, it is 2, else 3
1404  local rawTypes, numTypes = assignTypes(copyTable(initialTypes), initialCount) --This gets increasingly numbered types, copyTable because assignTypes will modify it
1405 
1406  for i=1, numTypes do
1407    if (select(getRep(i, rawTypes)) or true) and turtle.refuel(0) then --Selects the rep slot, checks if it is fuel
1408      iterate(i, rawTypes, 2) --This type is fuel
1409    elseif dumpSlots[getRep(i,(oreQuarry and rawTypes) or initialTypes)] then --If the rep of this slot is a dump item. This is initial types so that the rep is in dump slots. rawTypes if oreQuarry to get newly assigned dumps
1410      iterate(i, rawTypes, 1) --This type is cobble/filler
1411    else
1412      iterate(i, rawTypes, 3) --This type is other
1413    end
1414  end
1415 
1416  for i=1,inventoryMax do
1417    if not specialSlots[i] then --Do nothing for specialSlots!
1418      if exactTotals and slot[i][2] > 0 then
1419        local data = turtle.getItemDetail(i)
1420        exactTotals[data.name] = (exactTotals[data.name] or 0) + (data.count * mod)
1421      end
1422      if slot[i][1] == 1 then totals.cobble = totals.cobble + (slot[i][2] * mod)
1423      elseif slot[i][1] == 2 then totals.fuel = totals.fuel + (slot[i][2] * mod)
1424      elseif slot[i][1] == 3 then totals.other = totals.other + (slot[i][2] * mod) end
1425    end
1426  end
1427 
1428  select(1)
1429end
1430 
1431--Refuel Functions
1432function emergencyRefuel(forceBasic)
1433  local continueEvac = true --This turns false if more fuel is acquired
1434  if fuelChest then --This is pretty much the only place that this will be used
1435    if not fuelChestPhase then --Since I want to do things with return of enderRefuel, I will just make a special system. All of this is for backup safety.
1436      fuelChestPhase = 0 --Global variable will be saved
1437      fuelChestProperFacing = facing
1438    end
1439    if fuelChestPhase == 0 then
1440      turnTo(coterminal(fuelChestProperFacing+2))
1441      dig(false)
1442      fuelChestPhase = 1
1443      saveProgress()
1444    end
1445    if fuelChestPhase == 1 then
1446      select(specialSlots.fuelChest)
1447      turtle.place()
1448      fuelChestPhase = 2
1449      saveProgress()
1450    end
1451    if fuelChestPhase == 2 then
1452      if not enderRefuel() then --Returns false if slots are full
1453        select(specialSlots.fuelChest)
1454        turtle.drop() --Somehow stuff got in here...
1455      end
1456      fuelChestPhase = 3
1457      saveProgress()
1458    end
1459    if fuelChestPhase == 3 then
1460      select(specialSlots.fuelChest)
1461      dig(false)
1462      select(1)
1463      fuelChestPhase = 4
1464      saveProgress()
1465    end
1466    if fuelChestPhase == 4 then
1467      turnTo(fuelChestProperFacing)
1468      fuelChestProperFacing = nil --Getting rid of saved values
1469      fuelChestPhase = nil
1470      continueEvac = false
1471    end
1472  elseif quadEnabled then --Ask for a quadRotor
1473    screen()
1474    print("Attempting an emergency Quad Rotor refuel")
1475    print("The turtle will soon send a message, then wait ",quadTimeout," seconds before moving on")
1476    print("Press any key to break timer")
1477    biometrics(nil, true)
1478    local timer, counter, counterID, event, id  = os.startTimer(quadTimeout), 0, os.startTimer(1)
1479    local startInventory = getSlotsTable()
1480    repeat
1481      if id == counterID then counter = counter + 1; counterID = os.startTimer(1) end
1482      screenLine(1,6)
1483      print("Seconds elapsed: ",counter)
1484      event, id = os.pullEvent() --Waits for a key or fuel or the timer
1485    until (event == "timer" and id == timer) or event == "key" or event == "turtle_inventory" --Key event just makes turtle go back to start
1486    if event == "turtle_inventory" then --If fuel was actually delivered
1487      local slot = getFirstChanged(startInventory, getSlotsTable())
1488      select(slot)
1489      local initialFuel = checkFuel()
1490      midRunRefuel(slot)
1491      if checkFuel() > initialFuel then
1492        print("Fuel delivered! Evac aborted")
1493        continueEvac = false
1494      else
1495        print("What did you send the turtle? Not fuel >:(")
1496        print("Continuing evac")
1497      end
1498      sleep(1)
1499    end
1500  elseif doRefuel or forceBasic then --Attempt an emergency refueling
1501    screen()
1502    print("Attempting an emergency refuel")
1503    print("Fuel Level:    ",checkFuel())
1504    print("Distance Back: ",(xPos+zPos+yPos+1))
1505    print("Categorizing Items")
1506    count(false) --Do not add count, but categorize
1507    local fuelSwitch, initialFuel = false, checkFuel() --Fuel switch so we don't go over limit (in emergency...)
1508    print("Going through available fuel slots")
1509    for i=1, inventoryMax do
1510      if fuelSwitch then break end
1511      if turtle.getItemCount(i) > 0 and slot[i][1] == 2 then --If there are items and type 2 (fuel)
1512        select(i)
1513        fuelSwitch = midRunRefuel(i) --See above "function drop" for usage
1514      end
1515    end
1516    select(1) --Cleanup
1517    print("Done fueling")
1518    if checkFuel() > initialFuel then
1519      continueEvac = false
1520      print("Evac Aborted")
1521    else
1522      print("Evac is a go, returning to base")
1523      sleep(1.5) --Pause for reading
1524    end
1525  end
1526  return continueEvac
1527end
1528 
1529function lavaRefuel(suckDir)
1530  if checkFuel() + lavaBuffer >= checkFuelLimit() then return false end -- we don't want to constantly over-fuel the turtle.
1531  local suckFunc
1532  if suckDir == "up" then suckFunc = turtle.placeUp
1533  elseif suckDir == "down" then suckFunc = turtle.placeDown
1534  else suckFunc = turtle.place end
1535  
1536  select(specialSlots.lavaBucket)
1537  if suckFunc() then
1538    midRunRefuel(specialSlots.lavaBucket, 0) --0 forces it to refuel, even though allowed items[slot] is 1
1539  end
1540  select(1)
1541  return true
1542end
1543 
1544--Mining functions
1545function dig(doAdd, mineFunc, inspectFunc, suckDir) --Note, turtle will not bother comparing if not given an inspectFunc
1546  if doAdd == nil then doAdd = true end
1547  mineFunc = mineFunc or turtle.dig
1548  local function retTab(tab) if type(tab) == "table" then return tab end end --Please ignore the stupid one-line trickery. I felt special writing that. (Unless it breaks, then its cool)
1549    --Mine if not in blacklist. inspectFunc returns success and (table or string) so retTab filters out the string and the extra table prevents errors.
1550  local mineFlag = false
1551  if oreQuarry and inspectFunc then
1552    local worked, data = inspectFunc()
1553    if data then
1554      mineFlag = not blacklist[data.name]
1555      if data.name == chestID then
1556        emptyChest(suckDir)
1557      end
1558      if lavaBucket and data.name == lavaID and data.metadata == lavaMeta then
1559        lavaRefuel(suckDir)
1560      end
1561    end
1562  end
1563  if not oreQuarry or not inspectFunc or mineFlag then --Mines if not oreQuarry, or if the inspect passed
1564   if mineFunc() then
1565     if doAdd then
1566       mined = mined + 1
1567     end
1568     return true
1569   else
1570     return false
1571   end
1572  end
1573  return true --This only runs if oreQuarry but item not in blacklist. true means succeeded in duty, not necessarily dug block
1574end
1575 
1576function digUp(doAdd, ignoreInspect)--Regular functions :) I switch definitions for optimization (I think)
1577  return dig(doAdd, turtle.digUp, (not ignoreInspect and turtle.inspectUp) or nil, "up")
1578end
1579function digDown(doAdd, ignoreInspect)
1580  return dig(doAdd, turtle.digDown, (not ignoreInspect and turtle.inspectDown) or nil, "down")
1581end
1582if inverted then --If inverted, switch the options
1583  digUp, digDown = digDown, digUp
1584end
1585 
1586function smartDig(doDigUp, doDigDown) --This function is used only in mine when oldOreQuarry
1587  if inverted then doDigUp, doDigDown = doDigDown, doDigUp end --Switching for invert
1588  local blockAbove, blockBelow = doDigUp and turtle.detectUp(), doDigDown and turtle.detectDown() --These control whether or not the turtle digs
1589  local index = 1
1590  for i=1, #compareSlots do
1591    if not (blockAbove or blockBelow) then break end --We don't want to go selecting if there is nothing to dig
1592    index = i --To access out of scope
1593    select(compareSlots[i])
1594    if blockAbove and turtle.compareUp() then blockAbove = false end
1595    if blockBelow and turtle.compareDown() then blockBelow = false end
1596  end
1597  if compareChest then
1598    local flag = false
1599    select(specialSlots.compareChest)
1600    if turtle.compareUp() then emptyChest("up") end --Impressively, this actually works with session persistence. I'm gooood (apparently :P )
1601    if turtle.compareDown() then emptyChest("down") end --Looking over the code, I see no reason why that works... Oh well.
1602  end
1603  table.insert(compareSlots, 1, table.remove(compareSlots, index)) --This is so the last selected slot is the first slot checked, saving a select call
1604  if blockAbove then dig(true, turtle.digUp) end
1605  if blockBelow then dig(true, turtle.digDown) end
1606end
1607 
1608function relxCalc()
1609  if layersDone % 2 == 1 then
1610    relzPos = zPos
1611  else
1612    relzPos = (z-zPos) + 1
1613  end
1614  if relzPos % 2 == 1 then
1615    relxPos = xPos
1616  else
1617    relxPos = (x-xPos)+1
1618  end
1619  if layersDone % 2 == 0 and z % 2 == 1 then
1620    relxPos = (x-relxPos)+1
1621  end
1622end
1623function horizontalMove(movement, posAdd, doAdd)
1624  if doAdd == nil then doAdd = true end
1625  if movement() then
1626    if doAdd then
1627      moved = moved + 1
1628    end
1629    if facing == 0 then
1630      xPos = xPos + 1
1631    elseif facing == 1 then
1632      zPos = zPos + 1
1633    elseif facing == 2 then
1634      xPos = xPos - 1
1635    elseif facing == 3 then
1636      zPos = zPos - 1
1637    else
1638      error("Function forward, facing should be 0 - 3, got "..tostring(facing),2)
1639    end
1640    relxCalc()
1641    return true
1642  end
1643  return false
1644end
1645function forward(doAdd)
1646  return horizontalMove(turtle.forward, 1, doAdd)
1647end
1648function back(doAdd)
1649  return horizontalMove(turtle.back, -1, doAdd)
1650end
1651function verticalMove(moveFunc, yDiff, digFunc, attackFunc)
1652  local count = 0
1653  while not moveFunc() do
1654    if not digFunc(true, true) then --True True is doAdd, and ignoreInspect
1655      attackFunc()
1656      sleep(0.5)
1657      count = count + 1
1658      if count > maxTries and yPos > (startY-7) then bedrock() end
1659    end
1660  end
1661  yPos = yDiff + yPos
1662  saveProgress()
1663  biometrics()
1664  return true
1665end
1666function up() --Uses other function if inverted
1667  verticalMove(inverted and turtle.down or turtle.up, -1, digUp, attackUp) --Other functions deal with invert already
1668end
1669function down()
1670  verticalMove(inverted and turtle.up or turtle.down, 1, digDown, attackDown)
1671end
1672 
1673 
1674function right(num)
1675  num = num or 1
1676  for i=1, num do
1677    facing = coterminal(facing+1)
1678    saveProgress()
1679    if not goLeftNotRight then turtle.turnRight() --Normally
1680    else turtle.turnLeft() end --Left Quarry
1681  end
1682end
1683function left(num)
1684  num = num or 1
1685  for i=1, num do
1686  facing = coterminal(facing-1)
1687  saveProgress()
1688  if not goLeftNotRight then turtle.turnLeft() --Normally
1689  else turtle.turnRight() end --Left Quarry
1690end
1691end
1692 
1693function attack(doAdd, func)
1694  doAdd = doAdd or true
1695  func = func or turtle.attack
1696  if func() then
1697    if doAdd then
1698      attacked = attacked + 1
1699    end
1700    return true
1701  end
1702  return false
1703end
1704function attackUp(doAdd)
1705  if inverted then
1706    return attack(doAdd, turtle.attackDown)
1707  else
1708    return attack(doAdd, turtle.attackUp)
1709  end
1710end
1711function attackDown(doAdd)
1712  if inverted then
1713    return attack(doAdd, turtle.attackUp)
1714  else
1715    return attack(doAdd, turtle.attackDown)
1716  end
1717end
1718 
1719function detect(func)
1720  func = func or turtle.detect
1721  return func()
1722end
1723function detectUp(ignoreInvert)
1724  if inverted and not ignoreInvert then return detect(turtle.detectDown)
1725  else return detect(turtle.detectUp) end
1726end
1727function detectDown(ignoreInvert)
1728  if inverted and not ignoreInvert then return detect(turtle.detectUp)
1729  else return detect(turtle.detectDown) end
1730end
1731 
1732 
1733 
1734function mine(doDigDown, doDigUp, outOfPath,doCheckInv) -- Basic Move Forward
1735  if doCheckInv == nil then doCheckInv = true end
1736  if doDigDown == nil then doDigDown = true end
1737  if doDigUp == nil then doDigUp = true end
1738  if outOfPath == nil then outOfPath = false end
1739  isInPath = (not outOfPath) --For rednet
1740  if not outOfPath and (checkFuel() <= xPos + zPos + yPos + 5) then --If the turtle can just barely get back to the start, we need to get it there. We don't want this to activate coming back though...
1741    local continueEvac = false --It will be set true unless at start
1742    if xPos ~= 0 then
1743      continueEvac = emergencyRefuel() --This is a huge list of things to do in an emergency
1744    end
1745    if continueEvac then
1746      eventClear() --Clear any annoying events for evac
1747      local currPos = yPos
1748      endingProcedure() --End the program
1749      print("Turtle ran low on fuel so was brought back to start for you :)\n\nTo resume where you left off, use '-startDown "..tostring(currPos-1).."' when you start")
1750      error("",0)
1751    end
1752  end
1753  if frontChest and not outOfPath then
1754    if turtle.inspect then
1755      local check, data = turtle.inspect()
1756      if check and data.name == chestID then
1757        emptyChest("front")
1758      end
1759    else
1760      local flag = false
1761      select(specialSlots.compareChest)
1762      if turtle.compare() then flag = true end
1763      select(1)
1764      if flag then
1765        emptyChest("front")
1766      end
1767    end
1768  end
1769  
1770  local count = 0
1771  if not outOfPath then dig() end  --This speeds up the quarry by a decent amount if there are more mineable blocks than air
1772  while not forward(not outOfPath) do
1773    sleep(0) --Calls coroutine.yield to prevent errors
1774    count = count + 1
1775    if not dig() then
1776      attack()
1777    end
1778    if count > 10 then
1779      attack()
1780      sleep(0.2)
1781    end
1782    if count > maxTries then
1783      if checkFuel() == 0 then --Don't worry about inf fuel because I modified this function
1784        saveProgress({doCheckFuel = true, doRefuel = true}) --This is emergency because this should never really happen.
1785        os.reboot()
1786      elseif yPos > (startY-7) and turtle.detect() then --If it is near bedrock
1787        bedrock()
1788      else --Otherwise just sleep for a bit to avoid sheeps
1789        sleep(1)
1790      end
1791    end
1792  end
1793  checkSanity() --Not kidding... This is necessary
1794  saveProgress(tab)
1795 
1796  if not oldOreQuarry then
1797    if doDigUp then--The digging up and down part
1798      sleep(0) --Calls coroutine.yield
1799      if not digUp(true) and detectUp() then --This is relative: will dig down first on invert
1800        if not attackUp() then
1801          if yPos > (startY-7) then bedrock() end --Checking for bedrock, but respecting user wishes
1802        end
1803      end
1804    end
1805    if doDigDown then
1806     digDown(true) --This needs to be absolute as well
1807    end
1808  else --If oldQuarry
1809    smartDig(doDigUp,doDigDown)
1810  end
1811  percent = math.ceil(moved/moveVolume*100)
1812  updateDisplay()
1813  if doCheckInv and careAboutResources then
1814    if isFull(inventoryMax-keepOpen) then
1815      if not ((oreQuarry or oldOreQuarry) and dumpCompareItems) then
1816        dropOff()
1817      else
1818        local currInv = getSlotsTable()
1819        drop(nil, false, true) --This also takes care of counting.
1820        if #getChangedSlots(currInv, getSlotsTable()) <= 2 then --This is so if the inventory is full of useful stuff, it still has to drop it
1821          dropOff()
1822        end
1823      end
1824    end
1825  end
1826  biometrics()
1827end
1828--Insanity Checking
1829function checkSanity()
1830  if not isInPath then --I don't really care if its not in the path.
1831    return true
1832  end
1833  if not (facing == 0 or facing == 2) and #events == 0 then --If mining and not facing proper direction and not in a turn
1834    turnTo(0)
1835    rowCheck = true
1836  end
1837  if xPos < 0 or xPos > x or zPos < 0 or zPos > z or yPos < 0 then
1838    saveProgress()
1839    print("I have gone outside boundaries, attempting to fix (maybe)")
1840    if xPos > x then goto(x, zPos, yPos, 2) end --I could do this with some fancy math, but this is much easier
1841    if xPos < 0 then goto(1, zPos, yPos, 0) end
1842    if zPos > z then goto(xPos, z, yPos, 3) end
1843    if zPos < 0 then goto(xPos, 1, yPos, 1) end
1844    relxCalc() --Get relxPos properly
1845    eventClear()
1846 
1847    --[[
1848    print("Oops. Detected that quarry was outside of predefined boundaries.")
1849    print("Please go to my forum thread and report this with a short description of what happened")
1850    print("If you could also run \"pastebin put Civil_Quarry_Restore\" and give me that code it would be great")
1851    error("",0)]]
1852  end
1853end
1854 
1855local function fromBoolean(input) --Like a calculator
1856if input then return 1 end
1857return 0
1858end
1859local function multBoolean(first,second) --Boolean multiplication
1860return (fromBoolean(first) * fromBoolean(second)) == 1
1861end
1862function coterminal(num, limit) --I knew this would come in handy :D
1863limit = limit or 4 --This is for facing
1864return math.abs((limit*fromBoolean(num < 0))-(math.abs(num)%limit))
1865end
1866if tArgs["-manualpos"] then
1867  facing = coterminal(facing) --Done to improve support for "-manualPos"
1868  if facing == 0 then rowCheck = true elseif facing == 2 then rowCheck = false end --Ditto
1869  relxCalc() --Ditto
1870end
1871 
1872--Direction: Front = 0, Right = 1, Back = 2, Left = 3
1873function turnTo(num)
1874  num = num or facing
1875  num = coterminal(num) --Prevent errors
1876  local turnRight = true
1877  if facing-num == 1 or facing-num == -3 then turnRight = false end --0 - 1 = -3, 1 - 0 = 1, 2 - 1 = 1
1878  while facing ~= num do          --The above is used to smartly turn
1879    if turnRight then
1880      right()
1881    else
1882      left()
1883    end
1884  end
1885end
1886function goto(x,z,y, toFace, destination)
1887  --Will first go to desired z pos, then x pos, y pos varies
1888  x = x or 1; y = y or 1; z = z or 1; toFace = toFace or facing
1889  gotoDest = destination or "" --This is used by biometrics.
1890  statusString = "Going to ".. (destination or "somewhere")
1891  --Possible destinations: layerStart, quarryStart
1892  if yPos > y then --Will go up first if below position
1893    while yPos~=y do up() end
1894  end
1895  if zPos > z then
1896    turnTo(3)
1897  elseif zPos < z then
1898    turnTo(1)
1899  end
1900  while zPos ~= z do mine(false,false,true,false) end
1901  if xPos > x then
1902    turnTo(2)
1903  elseif xPos < x then
1904    turnTo(0)
1905  end
1906  while xPos ~= x do mine(false,false,true,false) end
1907  if yPos < y then --Will go down after if above position
1908    while yPos~=y do down() end
1909  end
1910  turnTo(toFace)
1911  saveProgress()
1912  gotoDest = ""
1913  statusString = nil
1914end
1915function getNumOpenSlots()
1916  local toRet = 0
1917  for i=1, inventoryMax do
1918    if turtle.getItemCount(i) == 0 then
1919      toRet = toRet + 1
1920    end
1921  end
1922  return toRet
1923end
1924function emptyChest(suckDirection)
1925  eventAdd("emptyChest",suckDirection)
1926  eventSetInsertionPoint(2) --Because dropOff adds events we want to run first
1927  local suckFunc
1928  if suckDirection == "up" then
1929    suckFunc = turtle.suckUp
1930  elseif suckDirection == "down" then
1931    suckFunc = turtle.suckDown
1932  else
1933    suckFunc = turtle.suck
1934  end
1935  repeat
1936    if inventoryMax - countUsedSlots() <= 0 then --If there are no slots open, need to empty
1937      dropOff()
1938    end
1939  until not suckFunc()
1940  eventClear()
1941  eventSetInsertionPoint()
1942end
1943 
1944--Ideas: Bring in inventory change-checking functions, count blocks that have been put in, so it will wait until all blocks have been put in.
1945local function waitDrop(slot, allowed, whereDrop) --This will just drop, but wait if it can't
1946  allowed = allowed or 0
1947  while turtle.getItemCount(slot) > allowed do --No more half items stuck in slot!
1948    local tries = 1
1949    while not whereDrop(turtle.getItemCount(slot)-allowed) do --Drop off only the amount needed
1950      screen(1,1)
1951      print("Chest Full, Try "..tries)
1952      chestFull = true
1953      biometrics()--To send that the chest is full
1954      tries = tries + 1
1955      sleep(2)
1956    end
1957    chestFull = false
1958  end
1959end
1960 
1961function midRunRefuel(i, allowed)
1962  allowed = allowed or allowedItems[i]
1963  local numToRefuel = turtle.getItemCount(i)-allowed
1964  if checkFuel() >= checkFuelLimit() then return true end --If it doesn't need fuel, then signal to not take more
1965  local firstCheck = checkFuel()
1966  if numToRefuel > 0 then turtle.refuel(1)  --This is so we can see how many fuel we need.
1967    else return false end --Bandaid solution: If won't refuel, don't try.
1968  local singleFuel
1969  if checkFuel() - firstCheck > 0 then singleFuel = checkFuel() - firstCheck else singleFuel = math.huge end --If fuel is 0, we want it to be huge so the below will result in 0 being taken
1970  --Refuel      The lesser of   max allowable or         remaining fuel space         /    either inf or a single fuel (which can be 0)
1971  turtle.refuel(math.min(numToRefuel-1, math.ceil((checkFuelLimit()-checkFuel()) / singleFuel))) --The refueling part of the the doRefuel option
1972  if checkFuel() >= checkFuelLimit() then return true end --Do not need any more fuel
1973  return false --Turtle can still be fueled
1974end
1975 
1976function enderRefuel() --Assumes a) An enderchest is in front of it b) It needs fuel
1977  local slot
1978  for a,b in ipairs(getSlotsTable()) do
1979    if b == 0 then slot = a; break end
1980  end
1981  if not slot then return false end --No room for fueling
1982  select(slot)
1983  repeat
1984    print("Required Fuel: ",checkFuelLimit())
1985    print("Current Fuel: ",checkFuel())
1986    local tries = 0
1987    while not turtle.suck() do
1988      sleep(1)
1989      statusString = "No Fuel in Ender Chest"
1990      biometrics() --Let user know that fuel chest is empty
1991      print(statusString,". Try: ",tries)
1992      tries = tries + 1
1993    end
1994    statusString = nil
1995  until midRunRefuel(slot, 0) --Returns true when should not refuel any more
1996  if not turtle.drop() then turtle.dropDown() end --If cannot put fuel back, just drop it, full fuel chest = user has too much fuel already
1997  return true -- :D
1998end
1999 
2000 
2001function drop(side, final, compareDump)
2002  side = sides[side] or "front"
2003  local dropFunc, detectFunc, dropFacing = turtle.drop, turtle.detect, facing+2
2004  if side == "top" then dropFunc, detectFunc = turtle.dropUp, turtle.detectUp end
2005  if side == "bottom" then dropFunc, detectFunc = turtle.dropDown, turtle.detectDown end
2006  if side == "right" then turnTo(1); dropFacing = 0 end
2007  if side == "left" then turnTo(3); dropFacing = 0 end
2008  local properFacing = facing --Capture the proper direction to be facing
2009 
2010  count(true) --Count number of items before drop. True means add. This is before chest detect, because could be final
2011 
2012  while not compareDump and not detectFunc() do
2013    if final then return end --If final, we don't need a chest to be placed, but there can be
2014    chestFull = true
2015    biometrics() --Let the user know there is a problem with chest
2016    screen(1,1) --Clear screen
2017    print("Waiting for chest placement on ",side," side (when facing quarry)")
2018    sleep(2)
2019  end
2020  chestFull = false
2021 
2022  local fuelSwitch = false --If doRefuel, this can switch so it won't overfuel
2023  for i=1,inventoryMax do
2024    --if final then allowedItems[i] = 0 end --0 items allowed in all slots if final ----It is already set to 1, so just remove comment if want change
2025    if turtle.getItemCount(i) > 0 then --Saves time, stops bugs
2026      if slot[i][1] == 1 and dumpCompareItems then turnTo(dropFacing) --Turn around to drop junk, not store it. dumpComapareItems is global config
2027      else turnTo(properFacing) --Turn back to proper position... or do nothing if already there
2028      end
2029      select(i)
2030      if slot[i][1] == 2 then --Intelligently refuels to fuel limit
2031        if doRefuel and not fuelSwitch then --Not in the conditional because we don't want to waitDrop excess fuel. Not a break so we can drop junk
2032          fuelSwitch = midRunRefuel(i)
2033        else
2034          waitDrop(i, allowedItems[i], dropFunc)
2035        end
2036        if fuelSwitch then
2037          waitDrop(i, allowedItems[i], dropFunc)
2038        end
2039      elseif not compareDump or (compareDump and slot[i][1] == 1) then --This stops all wanted items from being dropped off in a compareDump
2040        waitDrop(i, allowedItems[i], dropFunc)
2041      end
2042    end
2043  end
2044 
2045  if compareDump then
2046    for i=2, inventoryMax do
2047      if not specialSlots[i] then --We don't want to move buckets and things into earlier slots
2048        select(i)
2049        for j=1, i-1 do
2050          if turtle.getItemCount(i) == 0 then break end
2051          turtle.transferTo(j)
2052        end
2053      end
2054    end
2055    select(1)
2056  end
2057  if oldOreQuarry or compareDump then count(nil) end--Subtract the items still there if oreQuarry
2058  resetDumpSlots() --So that slots gone aren't counted as dump slots next
2059 
2060  select(1) --For fanciness sake
2061 
2062end
2063 
2064function dropOff() --Not local because called in mine()
2065  local currX,currZ,currY,currFacing = xPos, zPos, yPos, facing
2066  if careAboutResources then
2067    if not enderChest then --Regularly
2068      eventAdd("goto", 1,1,currY,2, "drop off") --Need this step for "-startDown"
2069      eventAdd('goto(0,1,1,2,"drop off")')
2070      eventAdd("drop", dropSide,false)
2071      eventAdd("turnTo(0)")
2072      eventAdd("mine",false,false,true,false)
2073      eventAdd("goto(1,1,1, 0)")
2074      eventAdd("goto", 1, 1, currY, 0)
2075      eventAdd("goto", currX,currZ,currY,currFacing)
2076    else --If using an enderChest
2077      if turtle.getItemCount(specialSlots.enderChest) ~= 1 then eventAdd("promptSpecialSlot('enderChest','Ender Chest')") end
2078      eventAdd("turnTo",currFacing-2)
2079      eventAdd("dig",false)
2080      eventAdd("select",specialSlots.enderChest)
2081      eventAdd("turtle.place")
2082      eventAdd("drop","front",false)
2083      eventAdd("turnTo",currFacing-2)
2084      eventAdd("select", specialSlots.enderChest)
2085      eventAdd("dig",false)
2086      eventAdd("turnTo",currFacing)
2087      eventAdd("select(1)")
2088    end
2089    runAllEvents()
2090    numDropOffs = numDropOffs + 1 --Analytics tracking
2091  end
2092  return true
2093end
2094function endingProcedure() --Used both at the end and in "biometrics"
2095  eventAdd("goto",1,1,yPos,2,"quarryStart") --Allows for startDown variable
2096  eventAdd("goto",0,1,1,2, "quarryStart") --Go back to base
2097  runAllEvents()
2098  --Output to a chest or sit there
2099  if enderChest then
2100    if dropSide == "right" then eventAdd("turnTo(1)") end --Turn to proper drop side
2101    if dropSide == "left" then eventAdd("turnTo(3)") end
2102    eventAdd("dig(false)") --This gets rid of a block in front of the turtle.
2103    eventAdd("select",specialSlots.enderChest)
2104    eventAdd("turtle.place")
2105    eventAdd("select(1)")
2106  end
2107  eventAdd("drop",dropSide, true)
2108  eventAdd("turnTo(0)")
2109 
2110  --Display was moved above to be used in bedrock function
2111  eventAdd("display")
2112  --Log current mining run
2113  eventAdd("logMiningRun",logExtension)
2114  toQuit = true --I'll use this flag to clean up (legacy)
2115  runAllEvents()
2116end
2117function bedrock()
2118  foundBedrock = true --Let everyone know
2119  if rednetEnabled then biometrics() end
2120  if checkFuel() == 0 then error("No Fuel",0) end
2121  local origin = {x = xPos, y = yPos, z = zPos}
2122  print("Bedrock Detected")
2123  if turtle.detectUp() and not turtle.digUp() then
2124    print("Block Above")
2125    turnTo(facing+2)
2126    repeat
2127      if not forward(false) then --Tries to go back out the way it came
2128        if not attck() then --Just making sure not mob-blocked
2129          if not dig() then --Now we know its bedrock
2130            turnTo(facing+1) --Try going a different direction
2131          end
2132        end
2133      end
2134    until not turtle.detectUp() or turtle.digUp() --These should be absolute and we don't care about about counting resources here.
2135  end
2136  up() --Go up two to avoid any bedrock.
2137  up()
2138  eventClear() --Get rid of any excess events that may be run. Don't want that.
2139  endingProcedure()
2140  print("\nFound bedrock at these coordinates: ")
2141  print(origin.x," Was position in row\n",origin.z," Was row in layer\n",origin.y," Blocks down from start")
2142  error("",0)
2143end
2144 
2145function endOfRowTurn(startZ, wasFacing, mineFunctionTable)
2146local halfFacing = ((layersDone % 2 == 1) and 1) or 3
2147local toFace = coterminal(wasFacing + 2) --Opposite side
2148if zPos == startZ then
2149  if facing ~= halfFacing then turnTo(halfFacing) end
2150  mine(unpack(mineFunctionTable or {}))
2151end
2152if facing ~= toFace then
2153  turnTo(toFace)
2154end
2155end
2156 
2157 
2158-------------------------------------------------------------------------------------
2159--Pre-Mining Stuff dealing with session persistence
2160runAllEvents()
2161if toQuit then error("",0) end --This means that it was stopped coming for its last drop
2162 
2163local doDigDown, doDigUp = (lastHeight ~= 1), (lastHeight == 0) --Used in lastHeight
2164if not restoreFoundSwitch then --Regularly
2165  --Check if it is a mining turtle
2166  if not isMiningTurtle then
2167    local a, b = turtle.dig()
2168    if a then
2169      mined = mined + 1
2170      isMiningTurtle = true
2171    elseif b == "Nothing to dig with" or b == "No tool to dig with" then
2172      print("This is not a mining turtle. To make a mining turtle, craft me together with a diamond pickaxe")
2173      error("",0)
2174    end
2175  end
2176  
2177  if checkFuel() == 0 then --Some people forget to start their turtles with fuel
2178    screen(1,1)
2179    print("I have no fuel and doCheckFuel is off!")
2180    print("Starting emergency fueling procedures!\n")
2181    emergencyRefuel()
2182    if checkFuel() == 0 then
2183      print("I have no fuel and can't get more!")
2184      print("Try using -doRefuel or -fuelChest")
2185      print("I have no choice but to quit.")
2186      error("",0)
2187    end
2188  end
2189  
2190  mine(false,false,true) --Get into quarry by going forward one
2191  if gpsEnabled and not restoreFoundSwitch then --The initial locate is done in the arguments. This is so I can figure out what quadrant the turtle is in.
2192    gpsSecondPos = {gps.locate(gpsTimeout)} --Note: Does not run this if it has already been restarted.
2193  end
2194  for i = 1, startDown do
2195    eventAdd("down") --Add a bunch of down events to get to where it needs to be.
2196  end
2197  runAllEvents()
2198  if flatBedrock then
2199    while (detectDown() and digDown(false, true)) or not detectDown() do --None of these functions are non-invert protected because inverse always false here
2200      down()
2201      startDown = startDown + 1
2202    end
2203    startDown = startDown - y + 1
2204    for i=1, y-2 do
2205      up() --It has hit bedrock, now go back up for proper 3 wide mining
2206    end
2207  elseif not(y == 1 or y == 2) then
2208    down() --Go down to align properly. If y is one or two, it doesn't need to do this.
2209  end
2210else --restore found
2211  if not(layersDone == layers and not doDigDown) then digDown() end
2212  if not(layersDone == layers and not doDigUp) then digUp() end  --Get blocks missed before stopped
2213end
2214--Mining Loops--------------------------------------------------------------------------
2215select(1)
2216while layersDone <= layers do -------------Height---------
2217local lastLayer = layersDone == layers --If this is the last layer
2218local secondToLastLayer = (layersDone + 1) == layers --This is a check for going down at the end of a layer.
2219moved = moved + 1 --To account for the first position in row as "moved"
2220if not(layersDone == layers and not doDigDown) then digDown() end --This is because it doesn't mine first block in layer
2221if not restoreFoundSwitch and layersDone % 2 == 1 then rowCheck = true end
2222relxCalc()
2223while relzPos <= z do -------------Width----------
2224while relxPos < x do ------------Length---------
2225mine(not lastLayer or (doDigDown and lastLayer), not lastLayer or (doDigUp and lastLayer)) --This will be the idiom that I use for the mine function
2226end ---------------Length End-------
2227if relzPos ~= z then --If not on last row of section
2228  local func
2229  if rowCheck == true then --Switching to next row
2230  func = "right"; rowCheck = false; else func = false; rowCheck = true end --Which way to turn
2231    eventAdd("endOfRowTurn", zPos, facing , {not lastLayer or (doDigDown and lastLayer), not lastLayer or (doDigUp and lastLayer)}) --The table is passed to the mine function
2232    runAllEvents()
2233else break
2234end
2235end ---------------Width End--------
2236if layersDone % 2 == 0 then --Will only go back to start on non-even layers
2237  eventAdd("goto",1,1,yPos,0, "layerStart") --Goto start of layer
2238else
2239  eventAdd("turnTo",coterminal(facing-2))
2240end
2241if not lastLayer then --If there is another layer
2242  for i=1, 2+fromBoolean(not(lastHeight~=0 and secondToLastLayer)) do eventAdd("down()") end --The fromBoolean stuff means that if lastheight is 1 and last and layer, will only go down two
2243end
2244eventAdd("relxCalc")
2245layersDone = layersDone + 1
2246restoreFoundSwitch = false --This is done so that rowCheck works properly upon restore
2247runAllEvents()
2248end ---------------Height End-------
2249 
2250endingProcedure() --This takes care of getting to start, dropping in chest, and displaying ending screen