civilwargeeky

Quarry 3.7.0 Beta 1 - PlugHoles edition

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