--pastebin get q354743w botminer
--Last Update: 03.04.2023-20:27

term.clear()
term.setCursorPos(1,1)

local ignore = {"minecraft:stone",
				"minecraft:dirt",
				"minecraft:andesite",
				"minecraft:granite",
				"minecraft:diorite",
				"minecraft:gravel",
				"minecraft:deepslate",
				"minecraft:cobbled_deepslate",
				"minecraft:tuff",
				"minecraft:calcite",
				"minecraft:smooth_basalt",
				"minecraft:amethyst_block",
				"soul_ice:lightstone",
				"quark:limestone",
				"create:weathered_limestone",
				"create:limestone",
				"create:dolomite",
				"create:gabbro",
				"create:natural_scoria",
				"create:dark_scoria",
				"create:scoria",
				"appliedenergistics2:charged_quartz_ore",
				"minecraft:obsidian",
				"minecraft:sand",
				"minecraft:cobblestone",	
				"minecraft:grass_block",
				"minecraft:bedrock",
				"minecraft:oak_planks",
				"minecraft:chest",
				"minecraft:torch",					
				"computercraft:turtle_advanced",
				"computercraft:turtle_normal"}

local backupignore = {"minecraft:stone",
					"minecraft:chest",
					"minecraft:torch",
					"minecraft:cobblestone",
					"minecraft:sand",
					"minecraft:grass_block",
					"minecraft:dirt",
					"minecraft:gravel",
					"minecraft:obsidian",
					"minecraft:andesite",
					"minecraft:granite",
					"minecraft:diorite",
					"minecraft:bedrock",
					"computercraft:turtle_advanced",
					"computercraft:turtle_normal",
					"quark:marble",
					"quark:limestone",
					"quark:slate",
					"quark:deepslate",
					"forbidden_arcanus:dark_stone",
					"forbidden_arcanus:petrified_root",
					"silentgems:hardened_netherrack",
					"silentgems:hardened_end_stone",
					"create:weathered_limestone",
					"create:limestone",
					"create:dolomite",
					"create:gabbro",
					"create:natural_scoria",
					"create:dark_scoria",
					"create:scoria",
					"astralsorcery:marble_raw",
					"chisel:basalt2",
					"rustic:slate",
					"chisel:limestone2",
					"chisel:marble2",
					"chisel:stonebrick",
					"chisel:stonebrick1",
					"chisel:stonebrick2",
					"chisel:cobblestone"}


local modemFound = false
local programReset = false
local programInspect = false
local returnedStep = false
local skipShafts = false
local cancelProgram = false
local oreFound = false
local maxOreLimitHit = false

local posDforward = 0
local shaft = 0
local skipShaftsNum = 0
local amountOreTotal = 0
local startShaft = 1
local maxOres = 100 --max amount of ores in one vein; if reached bot will stop vein mining and return to shaft, at next drop off at chest bot will display message that the limit was hit.

local startTime = 0
local endTime = 0
local differenceTime = 0
local firstDropSlot = 1

local foundOre=""
local BotStatus = "Booting"

local monitorMessage =""

local posX = 0
local posY = 0
local posZ = 0
local posD = 0

local posXhome = 0
local posYhome = 0
local posZhome = 0
local posDhome = 0

local posXsave = {}
local posYsave = {}
local posZsave = {}
local posDsave = {}

local posXgps = 0
local posYgps = 0
local posZgps = 0
local posDgps = 0

local posXgps2 = 0
local posYgps2 = 0
local posZgps2 = 0

local posXgpshome = 0
local posYgpshome = 0
local posZgpshome = 0
local posDgpshome = 0

--Filnames: Config,DisplayID,GPS,DisplaySave
local filenames={"bmconfig","bmsave","bmgps","bmdispsave"}

local statusText = {"Running",  		--1
					"Need Fuel",		--2
					"Mining Vein", 		--3		+oreamount
					"Return Vein",		--4
					"Heading Home",		--5
					"Leaving Home", 	--6		after heading home
					"Deposit Stuff",	--7
					"Moved GPS-Home",	--8
					"At GPS-Home",		--9
					"No GPS!",			--10
					"Chest Full",		--11
					"Max Ore Limit",	--12
					"Chest Full"}		--13
local arg={...}
local saveTable = {}
local gpsTable = {}


local DisplayHeaderTable = {"BotID : ",
							"Fuel  : ",
							"PosX  : ",
							"PosY  : ",
							"PosZ  : ",
							"PosD  : ",
							"Shaft : ",
							"Status: "}
local DisplayDataTable = {}
local DisplayTable = {}

local configText = {"Length of Shafts",
					"Number of Shafts",
					"Slot for checking if full",
					"Minimum amount of Fuel",
					"Direction for Shafts 1=Right 3=Left",
					"Use GPS? 1=Yes 0=No",
					"Use Ender Chest Drop? 1=Yes 0=No",
					"Use Charged Certus detection? 1=Yes 0=No"}
local config={}
--Default config for 5x5 chunks loaded starting in the middle of the edge chunck
config[1] = 60 		--length of shafts
config[2] = 22   	--num of shafts
config[3] = 13  	--checkslot for full
config[4] = 500 	--minFuel
config[5] = 1		--Shaft direction 1=Right 3=Left
config[6] = 0		--GPS
config[7] = 0		--EnderChestDrop
config[8] = 0		--Charged Ore

function useArgs()
	readParams = 0
	while readParams < #arg do
		if string.lower(arg[readParams+1]) == "-skip" then
			if not (readParams+1 < #arg) or tonumber(readParams+2) == nil  then
				print('Bad Argument! Type "botminer -help" for help!')
				return false
			else
				skipShafts = true
				skipShaftsNum = tonumber(arg[readParams+2])
				readParams=readParams+2
			end
		elseif string.lower(arg[readParams+1]) == "-reset" then
			programReset = true
			readParams=readParams+1
		elseif string.lower(arg[readParams+1]) == "-inspect" then
			programInspect = true
			readParams=readParams+1
		elseif string.lower(arg[readParams+1]) == "-refuel" then
			firstDropSlot = 1
			while true do
				advRefuel()
			end
		elseif string.lower(arg[readParams+1]) == "-help" then
				print("Help-Page:")
				print("botminer -skip 3 -> Amount of shafts the bot will skip.")
				print("botminer -reset -> Will reset the config of the bot.")
				print("botminer -inspect -> Shows block name in front of bot.")
				return false
		else
			print('Bad Argument! Type "botminer -help" for help!')
			return false
		end
	end
	return true
end

function GPSfile()
	if not fs.exists(filenames[3]) then
		gpsTable = {posXgps, posYgps, posZgps, posDgps}
		f = fs.open(filenames[3], "w")
		f.write(textutils.serialize(gpsTable))
		f.close()
		createStartup(true)
		return false
	else
		f = fs.open(filenames[3], "r")
		gpsTable =textutils.unserialize(f.readAll())
		f.close()
		posXgpshome = gpsTable[1]
		posYgpshome = gpsTable[2]
		posZgpshome = gpsTable[3]
		posDgpshome = gpsTable[4]
		return true
	end
end

function DisplaySavefile()
	if not fs.exists(filenames[4]) then
		createStartup(true)
		return false
	else
		f = fs.open(filenames[4], "r")
		DisplayDataTable = textutils.unserialize(f.readAll())
		f.close()
		return true
	end
end

function bot_getGPSpos()
	posXgps, posYgps, posZgps = gps.locate()
	if not posXgps then return false end
	while turtle.forward() == false do
		turtle.dig()
		turtle.attack()
	end
	posXgps2, posYgps2, posZgps2 = gps.locate()
	if 	   posXgps < posXgps2 then 
		posDgps = 0 
	elseif posYgps < posYgps2 then 
		posDgps = 1 
	elseif posXgps > posXgps2 then 
		posDgps = 2 
	elseif posYgps > posYgps2 then 
		posDgps = 3 
	end
	while turtle.back() == false do 
		bot_turnRight()
		bot_turnRight()
		turtle.dig()
		turtle.attack()
		bot_turnRight()
		bot_turnRight()
	end
	return true
end

function bot_checkGPShome()
	if posXgps == posXgpshome then 
		if posYgps == posYgpshome then 
			if posZgps == posZgpshome then 
				if posDgps == posDgpshome then 
					return true
				else 
					return false
				end
			else 
				return false
			end
		else 
			return false
		end
	else 
		return false
	end
end

function bot_returnhomeGPS()
	
	posX = posXgps
	posY = posYgps
	posZ = posZgps
	posD = posDgps
	local calcXgps = posXgps - posXgpshome
	local calcYgps = posYgps - posYgpshome

	while posZ ~= posZgpshome do
		if posZ > posZgpshome then 
			bot_down()
		elseif posZ < posZgpshome then
			bot_up()
		end
	end
	if calcXgps <= calcYgps then
		if posX > posXgpshome then
			while posD ~= 2 do
				bot_turnRight()
			end
			while posX ~= posXgpshome do
				bot_forward()
			end
		elseif posX < posXgpshome then
			while posD ~= 0 do
				bot_turnRight()
			end
			while posX ~= posXgpshome do
				bot_forward()
			end
		end
		if posY > posYgpshome then
			while posD ~= 3 do
				bot_turnRight()
			end
			while posY ~= posYgpshome do
				bot_forward()
			end
		elseif posY < posYgpshome then
			while posD ~= 1 do
				bot_turnRight()
			end
			while posY ~= posYgpshome do
				bot_forward()
			end
		end
	elseif calcYgps <= calcXgps then
		if posY > posYgpshome then
			while posD ~= 3 do
				bot_turnRight()
			end
			while posY ~= posYgpshome do
				bot_forward()
			end
		elseif posY < posYgpshome then
			while posD ~= 1 do
				bot_turnRight()
			end
			while posY ~= posYgpshome do
				bot_forward()
			end
		end
		if posX > posXgpshome then
			while posD ~= 2 do
				bot_turnRight()
			end
			while posX ~= posXgpshome do
				bot_forward()
			end
		elseif posX < posXgpshome then
			while posD ~= 0 do
				bot_turnRight()
			end
			while posX ~= posXgpshome do
				bot_forward()
			end
		end	
	end
	while posD ~= posDgpshome do
		bot_turnRight()
	end
	
	posX = 0
	posY = 0
	posZ = 0
	posD = 0
end

function configFile()
	if not fs.exists(filenames[1]) then
		configInput()
		f = fs.open(filenames[1], "w")
		f.write(textutils.serialize(config))
		f.close()
	else
		f = fs.open(filenames[1], "r")
		config = textutils.unserialize(f.readAll())
		f.close()
	end
	for i=1, #config do
		config[i] = tonumber(config[i])
	end
end

function configInput()
	for i=1, #config do
		local IOinput = ""
		term.clear()
		term.setCursorPos(1,1)
		print("Default is for 5x5 chunks loaded;")
		print("starting at middle of edge chunk.")
		print(configText[i].." - Default: "..config[i])
		IOinput = tonumber(io.read())
		if type( IOinput ) == "number" then
			config[i] = IOinput
			print("Used input: "..config[i])
		else
			print("Used default value!")
		end
		sleep(1)
	end
	configCheck()
end

function configCheck()
	term.clear()
	term.setCursorPos(1,1)
	if config[1] < 1 then									--length
		print("Wrong Input at: "..configText[1].." Press ENTER!")
		io.read()
		configInput()
	elseif config[2] < 1 or config[2] > 99 then   			--shafts
		print("Wrong Input at: "..configText[2].." Press ENTER!")
		io.read()
		configInput()
	elseif config[3] < 1 or config[3] > 16 then 			--checkslot
		print("Wrong Input at: "..configText[3].." Press ENTER!")
		io.read()
		configInput()
	elseif config[4] < 1 then 								--minFuel
		print("Wrong Input at: "..configText[4].." Press ENTER!")
		io.read()
		configInput()
	elseif config[5] ~= 1 and config[5] ~= 3 then			--Shaft direction
		print("Wrong Input at: "..configText[5].." Press ENTER!")
		io.read()
		configInput()
	elseif config[6] ~= 0 and config[6] ~= 1 then			--GPS
		print("Wrong Input at: "..configText[6].." Press ENTER!")
		io.read()
		configInput()
	end
end

function wlanDisplay()
	for _,side in ipairs({"left", "right"}) do
		if peripheral.isPresent(side) and peripheral.getType(side) == "modem" then
			rednet.open(side)
			modemFound = true
			-- if not fs.exists(filenames[2]) then
				-- print("WLAN-Display-ID?")
				-- saveTable[1] = tonumber(io.read())
				-- f = fs.open(filenames[2], "w")
				-- f.write(textutils.serialize(saveTable))
				-- f.close()
			-- else
				-- f = fs.open(filenames[2], "r")
				-- saveTable =textutils.unserialize(f.readAll())
				-- f.close()
			-- end
			break
		end
	end
end

function displayUpdate(reboot)
	
	-- DisplayHeaderTable[1] = "BotID : "
	-- DisplayHeaderTable[2] = "Fuel  : "
	-- DisplayHeaderTable[3] = "PosX  : "
	-- DisplayHeaderTable[4] = "PosY  : "
	-- DisplayHeaderTable[5] = "PosZ  : "
	-- DisplayHeaderTable[6] = "PosD  : "
	-- DisplayHeaderTable[7] = "Shaft : "
	-- DisplayHeaderTable[8] = "Status: "
	
	--Prepare and save Display Data
	if reboot == false then 
		DisplayDataTable[1] =  os.getComputerID()
		DisplayDataTable[2] =  turtle.getFuelLevel()
		DisplayDataTable[3] =  posX
		DisplayDataTable[4] =  posY
		DisplayDataTable[5] =  posZ
		DisplayDataTable[6] =  posD
		DisplayDataTable[7] =  shaft
		DisplayDataTable[8] =  BotStatus
		DisplayDataTable[9] =  turtle.getFuelLimit()
		DisplayDataTable[10] = config[2] --num of shafts
	
		if fs.exists(filenames[4]) then fs.delete(filenames[4]) end
		f = fs.open(filenames[4], "w")
		f.write(textutils.serialize(DisplayDataTable))
		f.close()
	end
	
	
	--Display Info in Bot Terminal
	DisplayTable[1] = DisplayHeaderTable[1]..DisplayDataTable[1]
	DisplayTable[2] = DisplayHeaderTable[2]..DisplayDataTable[2].." / "..DisplayDataTable[9]
	DisplayTable[3] = DisplayHeaderTable[3]..DisplayDataTable[3]
	DisplayTable[4] = DisplayHeaderTable[4]..DisplayDataTable[4]
	DisplayTable[5] = DisplayHeaderTable[5]..DisplayDataTable[5]
	DisplayTable[6] = DisplayHeaderTable[6]..DisplayDataTable[6]
	DisplayTable[7] = DisplayHeaderTable[7]..DisplayDataTable[7].."/"..DisplayDataTable[10]
	DisplayTable[8] = DisplayHeaderTable[8]..DisplayDataTable[8] 
	
	term.clear()
	term.setCursorPos(1,1)
	for i=1, #DisplayTable do
		print(DisplayTable[i])
	end
	
	if modemFound then
		modemSend()
		-- modemReceive()
	end
end

function modemSend()
	local dataTable = {	tostring(DisplayDataTable[1]),
						tostring(DisplayDataTable[2]),
						tostring(DisplayDataTable[3]),
						tostring(DisplayDataTable[4]),
						tostring(DisplayDataTable[5]),
						tostring(DisplayDataTable[6]),
						tostring(DisplayDataTable[8]),
						tostring(DisplayDataTable[7]),
						tostring(DisplayDataTable[10])}
	
	--rednet.send(tonumber(saveTable[1]),textutils.serialize(dataTable),"BOT")
	rednet.broadcast(textutils.serialize(dataTable),"BOT")
end

-- function modemReceive()
	-- local senderId, message, protocol = rednet.receive("BOT",0.01)
	-- if senderId == saveTable[1] then
		-- monitorMessage = message
		-- if message == "cancel" then
			-- cancelProgram = true
		-- end
	-- else
		-- monitorMessage = ""
	-- end
-- end

function bot_digTunnel()
	while turtle.forward() == false do
		turtle.dig()
		turtle.attack()
	end
	if posD == 0 then 
		posX = posX+1
	elseif posD == 1 then 
		posY = posY+1
	elseif posD == 2 then 
		posX = posX-1
	elseif posD == 3 then 
		posY = posY-1
	end	
	displayUpdate(false)
	turtle.digUp()
end

function bot_returnTunnel() --WHY!!!!!!!!!!!!!!!!!!!
	while turtle.forward() == false do
		turtle.dig()
		turtle.attack()
	end
	posX = posX-1
	displayUpdate(false)
end

function bot_forward()
	while turtle.forward() == false do
		turtle.dig()
		turtle.attack()
	end
	if posD == 0 then 
		posX = posX+1
	elseif posD == 1 then 
		posY = posY+1
	elseif posD == 2 then 
		posX = posX-1
	elseif posD == 3 then 
		posY = posY-1
	end	
	displayUpdate(false)
end

function bot_back()
	while turtle.back() == false do 
		bot_turnRight()
		bot_turnRight()
		turtle.dig()
		turtle.attack()
		bot_turnRight()
		bot_turnRight()
	end
	if posD == 0 then 
		posX = posX-1
	elseif posD == 1 then 
		posY = posY-1
	elseif posD == 2 then 
		posX = posX+1
	elseif posD == 3 then 
		posY = posY+1
	end	
	displayUpdate(false)
end

function bot_up()
	while turtle.up() == false do
		turtle.digUp()
		turtle.attackUp()
	end
	posZ = posZ+1
	displayUpdate(false)
end

function bot_down()
	while turtle.down() == false do
		turtle.digDown()
		turtle.attackDown()
	end
	posZ = posZ-1
	displayUpdate(false)
end

function bot_turnRight()
	if turtle.turnRight() then
		posD = posD + 1
		if posD > 3 then 
			posD = 0
		end
	end
end

function bot_turnLeft()
	if turtle.turnLeft() then
		posD = posD - 1
		if posD < 0 then 
			posD = 3
		end
	end
end

function bot_checkoresUp()
	if turtle.detectUp() then
		local successUp, dataUp = turtle.inspectUp()
		if successUp then
			for i=1,#ignore do
				if dataUp.name == ignore[i] then
					if dataUp.name == "appliedenergistics2:charged_quartz_ore" then
						chargedOre()
					end
					return false
				end
			end
			foundOre = "Up"
			return true
		end
	end
end

function bot_checkoresDown()
	if turtle.detectDown() then
		local successDown, dataDown = turtle.inspectDown()
		if successDown then
			for i=1,#ignore do
				if dataDown.name == ignore[i] then
					if dataDown.name == "appliedenergistics2:charged_quartz_ore" then
						chargedOre()
					end
					return false
				end
			end
			foundOre = "Down"
			return true
		end
	end
end

function bot_checkoresRight()
	bot_turnRight()
	if turtle.detect() then
		local successRight, dataRight = turtle.inspect()
		if successRight then
			for i=1,#ignore do
				if dataRight.name == ignore[i] then
					if dataRight.name == "appliedenergistics2:charged_quartz_ore" then
						chargedOre()
					end
					bot_turnLeft()
					return false				
				end
			end
			foundOre = "Right"
			bot_turnLeft()
			return true
		end	
	end
	bot_turnLeft()
end

function bot_checkoresLeft()
	bot_turnLeft()
	if turtle.detect() then
		local successLeft, dataLeft = turtle.inspect()
		if successLeft then
			for i=1,#ignore do
				if dataLeft.name == ignore[i] then
					if dataLeft.name == "appliedenergistics2:charged_quartz_ore" then
						chargedOre()
					end
					bot_turnRight()
					return false				
				end
			end
			foundOre = "Left"
			bot_turnRight()
			return true
		end
	end
	bot_turnRight()
end

function bot_checkoresBack()
	bot_turnLeft()
	bot_turnLeft()
	if turtle.detect() then
		local successBack, dataBack = turtle.inspect()
		if successBack then
			for i=1,#ignore do
				if dataBack.name == ignore[i] then
					if dataBack.name == "appliedenergistics2:charged_quartz_ore" then
						chargedOre()
					end
					bot_turnRight()
					bot_turnRight()
					return false				
				end
			end
			foundOre = "Back"
			bot_turnRight()
			bot_turnRight()
			return true
		end
	end
	bot_turnRight()
	bot_turnRight()
end

function bot_checkoresFornt()
	if turtle.detect() then
		local successFront, dataFront = turtle.inspect()
		if successFront then
			for i=1,#ignore do
				if dataFront.name == ignore[i] then
					if dataFront.name == "appliedenergistics2:charged_quartz_ore" then
						chargedOre()
					end
					return false				
				end
			end
			foundOre = "Front"
			return true
		end
	end
end

function chargedOre()
	if config[8] == 1 then
		BotStatus = statusText[13]
		term.clear()
		term.setCursorPos(1,1)
		print("Found Charged Certus Quartz! Press ENTER.")
		io.read()
		BotStatus = statusText[1]
	end
end

function bot_savePos()
	table.insert(posXsave,posX)
	table.insert(posYsave,posY)
	table.insert(posZsave,posZ)
	table.insert(posDsave,posD)
end

function bot_turntoOre()
	if foundOre == "Right" then
		bot_turnRight()
	elseif foundOre == "Left" then
		bot_turnLeft()
	elseif foundOre == "Back" then
		bot_turnLeft()
		bot_turnLeft()
	end
end

function bot_digOre()
	if foundOre == "Up" then
		bot_up()
	elseif foundOre == "Down" then
		bot_down()
	elseif foundOre == "Right" then
		bot_forward()
	elseif foundOre == "Left" then
		bot_forward()
	elseif foundOre == "Front" then
		bot_forward()		
	end
end

function mineOresCheck()
	if returnedStep then
		returnedStep = false
		if bot_checkoresUp() or bot_checkoresDown() or bot_checkoresFornt() or bot_checkoresRight() or bot_checkoresLeft() or bot_checkoresBack() then
			oreFound = true
			return true
		else
			oreFound = false
			return false	
		end
	else
		if bot_checkoresUp() or bot_checkoresDown() or bot_checkoresFornt() or bot_checkoresRight() or bot_checkoresLeft() then
			oreFound = true
			return true
		else
			oreFound = false
			return false	
		end
	end
end

function bot_returnStep()
	--while posX ~= posXsave or posY ~= posYsave or posZ ~= posZsave or posD ~= posDsave do
		local x = #posXsave
		if posZ > posZsave[x] then bot_down() end
		if posZ < posZsave[x] then bot_up() end
		if posD == 0 then
			if posX > posXsave[x] then bot_back() end
			if posX < posXsave[x] then bot_forward() end
		elseif posD == 1 then
			if posY > posYsave[x] then bot_back() end
			if posY < posYsave[x] then bot_forward() end
		elseif posD == 2 then
			if posX < posXsave[x] then bot_back() end
			if posX > posXsave[x] then bot_forward() end	
		elseif posD == 3 then
			if posY < posYsave[x] then bot_back() end
			if posY > posYsave[x] then bot_forward() end	
		end
		while posD ~= posDsave[x] do
			bot_turnRight()
		end
		if posD == 0 then
			if posX > posXsave[x] then bot_back() end
			if posX < posXsave[x] then bot_forward() end
		elseif posD == 1 then
			if posY > posYsave[x] then bot_back() end
			if posY < posYsave[x] then bot_forward() end
		elseif posD == 2 then
			if posX < posXsave[x] then bot_back() end
			if posX > posXsave[x] then bot_forward() end	
		elseif posD == 3 then
			if posY < posYsave[x] then bot_back() end
			if posY > posYsave[x] then bot_forward() end	
		end
	--end
	table.remove(posXsave,x)
	table.remove(posYsave,x)
	table.remove(posZsave,x)
	table.remove(posDsave,x)
end

function bot_mineOres()
	local mineores = true
	local amountOreVein = 0
	while mineores do
		if config[7] == 1 then
			if bot_StatusInventory() then
				bot_dropStuffEnder()
			end
		end
		BotStatus = statusText[3]..": "..amountOreVein
		displayUpdate(false)
		if amountOreVein < maxOres then
			bot_turntoOre()
			bot_savePos()
			bot_digOre()
			amountOreVein = amountOreVein + 1
			displayUpdate(false)
			while mineOresCheck() == false and #posXsave > 0 do
				bot_returnStep()
				returnedStep = true
				BotStatus = statusText[4]..": "..amountOreVein
			end
		else
			while #posXsave > 0 do
				bot_returnStep()
				returnedStep = true
				BotStatus = statusText[4]..": "..amountOreVein
			end
			oreFound = false
			maxOreLimitHit = true
		end
		if #posXsave == 0 and oreFound == false then
			mineores = false
			amountOreTotal = amountOreTotal + amountOreVein
			BotStatus = statusText[1]
			turnDforward(posDforward)
			-- if bot_checkoresRight() or bot_checkoresLeft() then
				-- bot_mineOres() 
			-- end
		end
	end
end

function bot_returnhome()
	BotStatus = statusText[5]
	posXhome = posX
	posYhome = posY
	posZhome = posZ
	posDhome = posD
	
	while posZ ~= 1 do
		if posZ > 1 then 
			bot_down()
		elseif posZ < 1 then
			bot_up()
		end
	end
	while posD ~= 2 do
		bot_turnRight()
	end
	while posX ~= 0 do
		bot_forward()
	end
	if posY ~= 0 then
		if config[5] == 1 then
			while posD ~= 3 do
				bot_turnRight()
			end
		elseif config[5] == 3 then
			while posD ~= 1 do
				bot_turnRight()
			end
		end
		while posY ~= 0 do
			bot_forward()
		end
		while posD ~= 2 do
			bot_turnRight()
		end
	end
	bot_down()
end

function bot_leavehome()
	BotStatus = statusText[6]
	bot_up()
	if posYhome ~= 0 then
		while posD ~= config[5] do
			bot_turnRight()
		end
		while posY ~= posYhome do
			bot_forward()
		end
	end
	while posD ~= 0 do
		bot_turnRight()
	end
	
	while posX ~= posXhome do
		bot_forward()
	end
	while posZ ~= posZhome do
		if posZ > posZhome then 
			bot_down()
		elseif posZ < posZhome then
			bot_up()
		end
	end
	while posD ~= posDhome do
		bot_turnRight()
	end
	posXhome = 0
	posYhome = 0
	posZhome = 0
	posDhome = 0
	BotStatus = statusText[1]
end

function bot_StatusFuel()
	if 	turtle.getFuelLevel() < config[4] then
		return true
	else 
		return false
	end	
end

function bot_StatusInventory()
	if turtle.getItemCount(config[3]) > 0 then
		return true
	else 
		return false
	end	
end

function bot_checkStatus()
	if bot_StatusFuel() then
		bot_home("Fuel")
	elseif bot_StatusInventory() then
		bot_home("Inv")
	elseif cancelProgram then
		bot_returnhome()
		bot_dropStuff()
		programEnd()
	end
end

function bot_dropStuffHome()
	bot_checkMaxOreLimitHit()
	BotStatus = statusText[7]
	displayUpdate(false)
	for i=firstDropSlot,16 do
		turtle.select(i)
		if turtle.getItemCount() > 0 then
			while not turtle.drop() do
				BotStatus = statusText[11]
				displayUpdate(false)
				term.clear()
				term.setCursorPos(1,1)
				print("Empty chest and press ENTER.")
				io.read()
				BotStatus = statusText[7]
				displayUpdate(false)
			end
		end
	end
	turtle.select(firstDropSlot)
	BotStatus = statusText[1]
end

function bot_dropStuffEnder()
	bot_checkMaxOreLimitHit()
	BotStatus = statusText[7]
	displayUpdate(false)
	turtle.dig()
	turtle.select(1)
	turtle.place()
	for i=firstDropSlot,16 do
		turtle.select(i)
		if turtle.getItemCount() > 0 then
			while not turtle.drop() do
				BotStatus = statusText[11]
				displayUpdate(false)
				term.clear()
				term.setCursorPos(1,1)
				print("Empty chest!")
			end
			BotStatus = statusText[7]
			displayUpdate(false)
		end
	end	
	turtle.select(1)
	turtle.dig()
	BotStatus = statusText[1]
end

function bot_checkMaxOreLimitHit()
	if maxOreLimitHit == true then
		BotStatus = statusText[12]
		displayUpdate(false)
		term.clear()
		term.setCursorPos(1,1)
		print("Bot hit max Ore Limit("..maxOres.."Ores) for one vein, maybe there is a new material which needs to be added to the ignore list?")
		print("Press ENTER to resume")
		io.read()
		maxOreLimitHit = false
	end
end

function bot_refuel(minimum)
	BotStatus = statusText[2]
	displayUpdate(false)
	while turtle.getFuelLevel() < minimum do
		advRefuel()
	end
	turtle.select(firstDropSlot)
	BotStatus = statusText[1]
end

function bot_home(reason)
	if config[7] == 0 then
		bot_returnhome()
		bot_dropStuffHome()
		bot_refuel(config[4])
		bot_leavehome()
	else
		if reason == "Fuel" then
			bot_returnhome()
			bot_refuel(config[4])
			bot_leavehome()
		elseif reason == "Inv" then
			bot_dropStuffEnder()
		end
	end
end

function nextShaft()
	bot_up()
	posDforward = config[5]
	turnDforward(posDforward)
	for i=1,3 do
		bot_digTunnel()
		turtle.digDown()
	end
	posDforward = 0
	turnDforward(posDforward)
	bot_down()
end

function skipShaft()
	bot_up()
	posDforward = config[5]
	turnDforward(posDforward)
	for i=1, skipShaftsNum do
		for i=1,3 do
			bot_digTunnel()
			turtle.digDown()
		end
	end
	posDforward = 0
	turnDforward(posDforward)
	bot_down()
end

function programEnd()
	endTime = os.clock()
	differenceTime = endTime - startTime
	differenceTime = math.floor (differenceTime)
	BotStatus = differenceTime.."s / "..amountOreTotal.." Ores"
	if fs.exists(filenames[3]) then fs.delete(filenames[3]) end
	displayUpdate(false)
	print("END")
end

function programStop()
	while true do
		displayUpdate(false)
		print("STOP")
		sleep(5)
	end
end

function programTerminate()
	print("Terminated")
	sleep(1)
	os.reboot()
end

function turnDforward(pos)
	while posD ~= pos do
		if posD == 0 and pos == 1 then 
			bot_turnRight()
		elseif posD == 0 and pos == 3 then 
			bot_turnLeft()
		elseif posD == 1 and pos == 0 then 
			bot_turnLeft()
		elseif posD == 1 and pos == 2 then 
			bot_turnRight()
		elseif posD == 2 and pos == 1 then 
			bot_turnLeft()
		elseif posD == 2 and pos == 3 then 
			bot_turnRight()
		elseif posD == 3 and pos == 2 then 
			bot_turnLeft()
		elseif posD == 3 and pos == 0 then 
			bot_turnRight()
		else
			bot_turnRight()
		end
	end
end

function bot_GPSreboot()
	if bot_getGPSpos() then	
		if GPSfile() then
			if not bot_checkGPShome() then 
				bot_returnhomeGPS()
				createStartup(false)
				if fs.exists(filenames[3]) then fs.delete(filenames[3]) end
				BotStatus = statusText[8]
				programStop()
			end
			createStartup(false)
			if fs.exists(filenames[3]) then fs.delete(filenames[3]) end
			BotStatus = statusText[9]
			programStop()
		else
			main()
		end
	else
		BotStatus = statusText[10]
		print("No GPS found!")
		print("To start without GPS press ENTER.")
		io.read()
		createStartup(false)
		if fs.exists(filenames[3]) then fs.delete(filenames[3]) end
		main()
	end
end

function createStartup(autostart)
	if fs.exists("startup") then fs.delete("startup") end
	L1 = "fs.delete('botminer')"
	L2 = "shell.run('pastebin','get','q354743w','botminer')"
	L3 = "shell.run('botminer')"

	startup = fs.open("startup", "w")
	startup.writeLine(L1)
	startup.writeLine(L2)
	if autostart then
		startup.writeLine(L3)
	end
	startup.close()
end

function advRefuel()
	local neededLavaBuckets = (turtle.getFuelLimit() - turtle.getFuelLevel()) / 1000
	local neededCoal		= (turtle.getFuelLimit() - turtle.getFuelLevel()) / 80
	local neededCoalStacks  = neededCoal / 64
	turtle.select(firstDropSlot)
	term.clear()
	term.setCursorPos(1,1)
	print("Refuel Overview")
	print("Fuel Level: "..turtle.getFuelLevel().." / "..turtle.getFuelLimit())
	print("-------------------------------------")
	print("Needed Material for full refuel:     ")
	print("Lava Buckets   : ".. neededLavaBuckets)
	print("Coal / Charcoal: ".. neededCoal.." ("..neededCoalStacks.." Stacks)")
	print("-------------------------------------")
	print("Put fuel in any slot and press ENTER.")
	io.read()
	for i=firstDropSlot, 16 do
		if turtle.getFuelLevel() >= turtle.getFuelLimit() then
			break
		end
		turtle.select(i)
		turtle.refuel()
		term.clear()
		term.setCursorPos(1,1)
		print("Fuel: "..turtle.getFuelLevel().." / "..turtle.getFuelLimit())
	end
	print("Remove Buckets and Press ENTER.")
	io.read()
end

function bot_EnderChest()
	while turtle.getItemCount(1) ~= 1 do
		term.clear()
		term.setCursorPos(1,1)
		print("Put EnderChest in first slot and press ENTER.")
		io.read()
	end
	firstDropSlot = 2
end

function main()
	if config[7] == 1 then bot_EnderChest() end
	advRefuel()
	bot_refuel(config[4])
	startTime = os.clock()
	if skipShafts then
		skipShaft()
		skipShafts = false
		startShaft = skipShaftsNum + 1
	end
	for x=startShaft, config[2] do
		shaft = x
		if shaft > skipShaftsNum then
			for i=1, config[1] do
				displayUpdate(false)
				bot_checkStatus()
				bot_digTunnel()
				if bot_checkoresUp() or bot_checkoresDown() or bot_checkoresRight() or bot_checkoresLeft() then
					bot_mineOres() 
				end
			end
			if bot_checkoresFornt() then
				bot_mineOres() 
			end
			posDforward = 2
			bot_up()
			if bot_checkoresFornt() or bot_checkoresRight() or bot_checkoresLeft() then
				bot_mineOres() 
			end
			turnDforward(posDforward)
			while posX > 0 do
				displayUpdate(false)
				bot_checkStatus()
				bot_returnTunnel()
				if bot_checkoresUp() or bot_checkoresDown() or bot_checkoresRight() or bot_checkoresLeft() then
					bot_mineOres() 
				end
			end
			bot_down()
			displayUpdate(false)
		end
		if shaft < config[2] then
			nextShaft()
		end
	end
	if config[7] == 1 then bot_dropStuffEnder() end
	bot_returnhome()
	if config[7] == 0 then bot_dropStuffHome() end	
	programEnd()
end

function detectENTER()
        local sEvent, param = os.pullEvent("key")
        if sEvent == "key" then
            if param == 28 then
                print("Enter detected")
            end
        end
end

function RebootDisplayUpdate()
	while true do
		displayUpdate(true)
		print("Press ENTER.")
		sleep(2)
	end
end

if useArgs() then
	if programInspect then
		while true do 
			local has_block, data = turtle.inspect()
			if has_block then
				print(data.name)
			else
				print("No block")
			end
			sleep(0.5)
		end
	end
	if programReset then
		for i=1, #filenames do
			if fs.exists(filenames[i]) then fs.delete(filenames[i]) end
		end
	end
	wlanDisplay()
	configFile()
	if config[6] == 1 and fs.exists(filenames[3]) then
		bot_GPSreboot() --reboot script if GPS is used
	else 
		if DisplaySavefile() then
			DisplayDataTable[8] =  "X-"..DisplayDataTable[8]
			parallel.waitForAny(RebootDisplayUpdate,detectENTER)
			createStartup(false)
			if fs.exists(filenames[4]) then fs.delete(filenames[4]) end
			programTerminate()
		end
		main()
	end
end