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