Tunnel 9 Turtles

-- What to do?:
-- Droping Items in Chest
-- Communication of Fuel and Cobblestone
-- Communication of Commands
-- Communication Turtle look on each other

local turtlePosition
local controleId

local notWishedItems = {}
notWishedItems[0] = "minecraft:dirt"
notWishedItems[1] = "minecraft:cobblestone"
notWishedItems[2] = "minecraft:stone"
notWishedItems[3] = "minecraft:obsidian"
notWishedItems[4] = "minecraft:sand"
notWishedItems[5] = "minecraft:gravel"
notWishedItems[6] = "minecraft:rail"
notWishedItems[7] = "minecraft:planks"
notWishedItems[8] = "minecraft:fence"
notWishedItems[9] = "bluepower:marble"
notWishedItems[10] = "minecraft:torch"
notWishedItems[11] = "minecraft:trapped_chest"
notWishedItems[12] = "minecraft:flowing_water"
notWishedItems[13] = "minecraft:flowing_lava"
notWishedItems[14] = "minecraft:chest"
notWishedItems[15] = "computercraft:CC-TurtleExpanded"


--get the position of the turtles building the tunnel. TopLeft is position one, BottomRight is position 9
function getPositionOfTurtle()
    local number = 10
	local bNum = (number > 9 or number < 1)
	local bShow = true
	while (bNum) do
		if(bShow) then
			io.write("Geben Sie an, um welche Turtel es sich handelt")
			io.write("Folgende Turtel git es:")
			io.write("Linksoben:   1\nMitteoben:   2\nRechtsoben:   3\n")
			io.write("Linksmitte:   4\nMitte:   5\nRechtsmitte:   6\n")
			io.write("Linksunten:   7\nMitteunten:   8\nRechtsunten:   9\n")
			bShow = false
		end
		number = tonumber(io.read())
		bNum = (number > 9 or number < 1)
		if (bNum) then
			io.write("Falsche Nummer, bitte erneut angeben")
			io.write("Wollen Sie die Nummern der Turteln nochmal eingeblendet haben?\n")
			io.write("Dann geben Sie die 1 ein. Ansonsten eine andere Zahl\n ")
			bShow = (tonumber(io.read()) == 1)
		end
	end
	return number
end

--register the turtles to interact with
function registerAllTurtles(turtleArr)
	if(not(rednet.isOpen("left"))) then
		rednet.open("left")
	end
	while(true) do
		rednet.broadcast("Give Position", "registerTurtles")
		local tId, tPos, prot = rednet.receive("register", 0.5)
		if(tId and (tonumber(tPos)) > 0 and tonumber(tPos) < 10 and tonumber(tPos) ~= 5)then
			printMsgGotBy(tId, tPos)
			if(tPos < 5)then
				turtleArr[tPos-1] = tId
			else
				turtleArr[tPos-2] = tId
			end
			local msg = "RegisterSuccessfull"
			rednet.send(tId, msg)
			printMsgSendTo(tId, msg)
		end
		if(getArrLength(turtleArr) == 8)then
			while (true)do
				local tId, tPos, prot = rednet.receive("register", 1)
				if(tId == nil)then
					return 0
				else
					local msg = "RegisterSuccessfull"
					rednet.send(tId, msg)
					printMsgSendTo(tId, msg)
				end
			end
		end
	end
end
function registerAndGetSenderId(tPosition)
	if(not(rednet.isOpen("left"))) then
		rednet.open("left")
	end
	local senderId, message, protocoll = rednet.receive("registerTurtles")
	printMsgGotBy(senderId, message)
	while(true) do
		rednet.send(senderId, tPosition, "register")
		printMsgSendTo(senderId, tPosition)
		local s1Id
		s1Id, message, protocoll = rednet.receive(0.25)
		if (s1Id) then
			printMsgGotBy(s1Id, message)
		end

		if((s1Id == senderId) and (message == "RegisterSuccessfull")) then
			return senderId;
		end
	end
end

function getArrLength(arr)
	local num1 = 0
	local length = 0;
	while (num1 <= table.getn(arr))do
		if (arr[num1] ~= nil)then
			length = length + 1
		end
		num1 = num1 + 1
	end
	return length
end

--shoud be used after sending a onetime message, to make a message protocoll
function printMsgSendTo(rId, msg )
	print("Message send to ", rId, ":    ", msg, "\n")
end
function printMsgGotBy(sId, msg)
	print("Message received from ", sId, ":    ", msg, "\n")
end


--if there is no block in the used direction, the turtle places one
function setBlockOnTop()
	local success, data = turtle.inspectUp()
	if (success and data.name == "minecraft:gravel")then
		while(turtle.detectUp())do
			turtle.digUp()
			os.sleep(0.25)
		end
	end
	if(turtle.detectUp() == false or detectWaterOrLavaOnTop())then
		placeOutsideCobblestone("top")
		return true
	end
	return false
end
function setBlockOnBottom()
	if(turtle.detectDown() == false or detectWaterOrLavaOnBottom())then
		placeOutsideCobblestone("bottom")
		return true
	end
	return false
end
function setBlockInFront()
	local success, data = turtle.inspect()
	if (success and data.name == "minecraft:gravel")then
		while(turtle.detect())do
			turtle.dig()
			os.sleep(0.25)
		end
	end
	if(turtle.detect() == false or detectWaterOrLavaInFront())then
		placeOutsideCobblestone("front")
		return true
	end
	return false
end

--starting mining on the top side of the turtle
function miningOnTop(locData)
	local success, data = turtle.inspectUp()
	if(success and isAWishedBlock(data.name))then
		turtleUp()
		locData.highDis = locData.highDis + 1
		mining(locData.rightDis, locData.highDis, locData.lookDir)
		turtleDown()
		locData.highDis = locData.highDis - 1
		placeOutsideCobblestone("top")
	end
end
function miningOnBottom(locData)
	local success, data = turtle.inspectDown()
	if(success and isAWishedBlock(data.name))then
		turtleDown()
		locData.highDis = locData.highDis - 1
		mining(locData.rightDis, locData.highDis, locData.lookDir)
		turtleUp()
		locData.highDis = locData.highDis + 1
		placeOutsideCobblestone("bottom")
	end
end
function miningInFront(locData)
	local success, data = turtle.inspect()
	if(success and isAWishedBlock(data.name))then
		turtleForward()
		if (locData.lookDir % 4 == 1)then
			locData.rightDis = locData.rightDis + 1
		elseif (locData.lookDir % 4 == 3)then
			locData.rightDis = locData.rightDis - 1
		end
		mining(locData.rightDis, locData.highDis, locData.lookDir)
		turtle.turnLeft()
		turtle.turnLeft()
		turtleForward()
		turtle.turnLeft()
		turtle.turnLeft()
		if (locData.lookDir % 4 == 1)then
			locData.rightDis = locData.rightDis - 1
		elseif (locData.lookDir % 4 == 3)then
			locData.rightDis = locData.rightDis + 1
		end
		placeOutsideCobblestone("front")
	end
end

--complete moving actions of any turtle
function moveTurtleLeftTop(miningActive, locData)
	turtleForward()
	turtle.turnLeft()
	local sBoT = setBlockOnTop()
	local sBiF = setBlockInFront()
	local goMiningTop = miningActive and (not sBoT)
	local goMiningFront = miningActive and (not sBiF)
	if(goMiningTop)then
		miningOnTop(locData)
	end
	if(goMiningFront)then
		miningInFront(locData)
	end
	turtle.turnRight()
	return true
end
function moveTurtleLeftTop(miningActive, locData)
	turtleForward()
	turtle.turnLeft()
	local sBoT = setBlockOnTop()
	local sBiF = setBlockInFront()
	local goMiningTop = miningActive and (not sBoT)
	local goMiningFront = miningActive and (not sBiF)
	if(goMiningTop)then
		miningOnTop(locData)
	end
	if(goMiningFront)then
		miningInFront(locData)
	end
	turtle.turnRight()
	return true
end
function moveTurtleMiddleTop(miningActive, locData)
	turtleForward()
	local sBoT = setBlockOnTop()
	local goMiningTop = miningActive and (not sBoT)
	if (goMiningTop)then
		miningOnTop(locData)
	end
	return true
end
function moveTurtleRightTop(miningActive, locData)
	turtleForward()
	turtle.turnRight()
	local sBoT = setBlockOnTop()
	local sBiF = setBlockInFront()
	local goMiningTop = miningActive and (not sBoT)
	local goMiningFront = miningActive and (not sBiF)
	if(goMiningTop)then
		miningOnTop(locData)
	end
	if(goMiningFront)then
		miningInFront(locData)
	end
	turtle.turnLeft()
	return true
end
function moveTurtleLeftMiddle(miningActive, locData)
	turtleForward()
	turtle.turnLeft()
	local sBiF = setBlockInFront()
	local goMiningFront = miningActive and (not sBiF)
	if(goMiningFront)then
		miningInFront(locData)
	end
	turtle.turnRight()
	return true
end
function moveTurtleMiddleMiddle(miningActive, locData)
	turtleForward()
	return true
end
function moveTurtleRightMiddle(miningActive, locData)
	turtleForward()
	turtle.turnRight()
	local sBiF = setBlockInFront()
	local goMiningFront = miningActive and (not sBiF)
	if(goMiningFront)then
		miningInFront(locData)
	end
	turtle.turnLeft()
	return true
end
function moveTurtleLeftBottom(miningActive, locData)
	turtleForward()
	turtle.turnLeft()
	local sBoB = setBlockOnBottom()
	local sBiF = setBlockInFront()
	local goMiningBottom = miningActive and (not sBoB)
	local goMiningFront = miningActive and (not sBiF)
	if(goMiningBottom)then
		miningOnBottom(locData)
	end
	if(goMiningFront)then
		miningInFront(locData)
	end
	turtle.turnRight()
	return true
end
function moveTurtleMiddleBottom(miningActive, locData)
	turtleForward()
	local sBoB = setBlockOnBottom()
	local goMiningBottom = miningActive and (not sBoB)
	if (goMiningBottom)then
		miningOnBottom(locData)
	end
	return true
end
function moveTurtleRightBottom(miningActive, locData)
	turtleForward()
	turtle.turnRight()
	local sBoB = setBlockOnBottom()
	local sBiF = setBlockInFront()
	local goMiningBottom = miningActive and (not sBoB)
	local goMiningFront = miningActive and (not sBiF)
	if(goMiningBottom)then
		miningOnBottom(locData)
	end
	if(goMiningFront)then
		miningInFront(locData)
	end
	turtle.turnLeft()
	return true
end

--moving Turtle. If there is no Fuel calling for fuel.
function turtleForward()
	haveEnoughFuel()
	local numOfWait = 0
	while(turtle.forward() == false)do
		local success, data = turtle.inspect()
		if (success and data.name == "computercraft:CC-TurtleExpanded")then
			os.sleep(0.5)
			if (numOfWait%10 == 0)then
				print("Turtle is waiting in front of me")
			end
			numOfWait = numOfWait + 1
		else
			turtle.dig()
		end
	end
end
function turtleUp()
	haveEnoughFuel()
	local numOfWait = 0
	while(turtle.up() == false)do
		local success, data = turtle.inspectUp()
		if (success and data.name == "computercraft:CC-TurtleExpanded")then
			os.sleep(0.5)
			if (numOfWait%10 == 0)then
				print("Turtle is waiting on top of me")
			end
			numOfWait = numOfWait + 1
		else
			turtle.digUp()
		end
	end
end
function turtleDown()
	haveEnoughFuel()
	local numOfWait = 0
	while(turtle.down() == false)do
		local success, data = turtle.inspectDown()
		if (success and data.name == "computercraft:CC-TurtleExpanded")then
			os.sleep(0.5)
			if (numOfWait%10 == 0)then
				print("Turtle is waiting on bottom of me")
			end
			numOfWait = numOfWait + 1
		else
			turtle.digDown()
		end
	end
end

--get all special blocks the turtle crosses
function mining()
	local cnt = 0
	while (cnt < 6)do
		if (cnt == 0)then
			local success, data = turtle.inspectUp()
			if (success and isAWishedBlock(data.name))then
				turtleUp()
				mining()
				turtleDown()
			end
		elseif (cnt == 1)then
			local success, data = turtle.inspectDown()
			if (success and isAWishedBlock(data.name))then
				turtleDown()
				mining()
				turtleUp()
			end
		else
			local success, data = turtle.inspect()
			if (success and isAWishedBlock(data.name))then
				turtleForward()
				mining()
				turtle.turnRight()
				turtle.turnRight()
				turtleForward()
				turtle.turnRight()
				turtle.turnRight()
			end
			turtle.turnRight()
		end
		cnt = cnt + 1
	end
end
function mining(rightDis, highDis, lookDir)
	-- point (0|0) is the point of the right-top-turtle
	-- looking right is lookDir 1, looking back is lookDir 2, looking left is lookDir 3, looking forwards is lookDir 0
	local cnt = 0
	while (cnt < 6)do
		if (cnt == 0)then
			local success, data = turtle.inspectUp()
			if (success and isAWishedBlock(data.name) and ((highDis > -1 or highDis < -3) or (rightDis > 0 or rightDis < -2)))then
				turtleUp()
				highDis = highDis + 1
				mining(rightDis, highDis, lookDir)
				turtleDown()
				highDis = highDis - 1
			end
		elseif (cnt == 1)then
			local success, data = turtle.inspectDown()
			if (success and isAWishedBlock(data.name) and ((highDis > 1 or highDis < -1) or (rightDis > 0 or rightDis < -2)))then
				turtleDown()
				highDis = highDis - 1
				mining(rightDis, highDis, lookDir)
				turtleUp()
				highDis = highDis + 1
			end
		else
			local success, data = turtle.inspect()
			local bRightSide = (lookDir % 4 == 3 and rightDis < 2 and rightDis > -2 and highDis < 1 and highDis > -3)
			local bLeftSide = (lookDir % 4 == 1 and rightDis > -4 and  rightDis < 0 and highDis < 1 and highDis > -3)
			if (success and isAWishedBlock(data.name) and (not bRightSide) and (not bLeftSide))then
				turtleForward()
				if (lookDir % 4 == 1)then
					rightDis = rightDis + 1
				elseif (lookDir % 4 == 3)then
					rightDis = rightDis - 1
				end
				mining(rightDis, highDis, lookDir)
				turtle.turnRight()
				turtle.turnRight()
				turtleForward()
				turtle.turnRight()
				turtle.turnRight()
				if (lookDir % 4 == 1)then
					rightDis = rightDis - 1
				elseif (lookDir % 4 == 3)then
					rightDis = rightDis + 1
				end
			end
			turtle.turnRight()
			lookDir = lookDir + 1
		end
		cnt = cnt + 1
	end
end


--returns whether there is water or lava in the used direction
function detectWaterOrLavaOnTop()
	local success, data = turtle.inspectUp()
	if(data.name == "minecraft:flowing_water" or data.name == "minecraft:flowing_lava")then
		return true
	end
	return false
end
function detectWaterOrLavaOnBottom()
	local success, data = turtle.inspectDown()
	if(data.name == "minecraft:flowing_water" or data.name == "minecraft:flowing_lava")then
		return true
	end
	return false
end
function detectWaterOrLavaInFront()
	local success, data = turtle.inspect()
	if(data.name == "minecraft:flowing_water" or data.name == "minecraft:flowing_lava")then
		return true
	end
	return false
end

--returns true, if user wants to get the item from the object
function isAWishedBlock(objectName)
	local i = 0
	while (i <= #notWishedItems)do
		if(objectName == notWishedItems[i])then
			return false
		end
		i = i + 1
	end
	return true
end

--place a cobblestone on the entered side of the turtle. sides are only "top", "bottom", "front"
function placeOutsideCobblestone(side)
	local slotsLeft = 16
	while (slotsLeft > 0)do
		turtle.select(slotsLeft)
		local data = turtle.getItemDetail()
		if (data)then
			if (data.name == "minecraft:cobblestone")then
				break
			elseif(slotsLeft == 1 and turtlePosition ~= 5)then
				getCobbleWithMsg()
			elseif(slotsLeft == 1 and turtlePosition == 5)then
				print("Please give some Cobblestone to this turtle! After that press enter!")
				io.read()
				slotsLeft = 17
			end
		elseif (slotsLeft == 1 and turtlePosition == 5)then
			print("Please give some Cobblestone to this turtle! After that press enter!")
			io.read()
			slotsLeft = 17
		elseif (slotsLeft == 1 and turtlePosition ~= 5)then
			getCobbleWithMsg()
		end
		slotsLeft = slotsLeft - 1
	end

	if(side == "top")then
		turtle.placeUp()
	elseif(side == "bottom")then
		turtle.placeDown()
	elseif(side == "front")then
		turtle.place()
	end
end
function getCobbleWithMsg()
	callConTurtle("needCobble", "msgCobReceived")
	local slotsLeft = 16
	while (slotsLeft > 0)do
		turtle.select(slotsLeft)
		local data = turtle.getItemDetail()
		if (data and data.name == "minecraft:cobblestone")then
			break
		elseif (slotsLeft == 1)then
			print("Please give some Cobblestone to this turtle! After that press enter!")
			io.read()
			slotsLeft = 17
		end
		slotsLeft = slotsLeft - 1
	end
end

--makes enough fuel by filling up with own fuel or calling for new one
function haveEnoughFuel()
	if (turtle.getFuelLevel() == 0 and turtlePosition ~= 5)then
		refuelWithMsg()
	elseif(turtle.getFuelLevel() == 0 and turtlePosition == 5)then
		while(fuelWithOwnRessources() == false)do
			print("Please give some fuel to this turtle! After that press enter!")
			io.read()
		end
	end
	return true
end
function fuelWithOwnRessources()
	local slotsLeft = 16
	while (slotsLeft > 0)do
		turtle.select(slotsLeft)
		if(turtle.refuel())then
			return true
		end
		slotsLeft = slotsLeft - 1
	end
	return false
end
function refuelWithMsg()
	callConTurtle("refuel", "msgFuelReceived")
	while(fuelWithOwnRessources() == false)do
		print("Please give some fuel to this turtle! After that press enter!")
		io.read()
	end
end

function getMsgByConsoleTurtle()
	local sId, msg, protocoll
	while(true)do
		sId, msg, protocoll = rednet.receive()
		printMsgGotBy(sId, msg)
		if(sId == controleId)then
			break
		end
	end

	return msg
end

 function callConTurtle(msg, msgB)
	local answer = false
	local num = 0
	while(not answer)do
		rednet.send(controleId, msg)
		if(num % 20 == 0)then
			printMsgSendTo(controleId, msg)
		end
		local sId, msgA, protocoll = rednet.receive(0.25)
			printMsgGotBy(sId, msgA)
		if (sId == controleId and msgA == msgB)then
			answer = true
		end
		num = num + 1
	end
 end

 function callAllTurtles(msg, turtleList)
	local num = 0
	while (num <= #turtleList)do
	print(turtleList[num])
		rednet.send(turtleList[num], msg)
		printMsgSendTo(turtleList[num], msg)
		num = num + 1
	end
 end
 function giveTurtlesPosNames(turtList, posNames)
	local turtleList = {}
	local num = 0
	while (num < 8)do
		turtleList[posNames[num]] = turtList[num]
		num = num + 1
	end
	return turtleList
 end
 function getNumInList(id, list)
	local cnt = 0
	while (cnt < 8)do
		if (list[cnt] == id)then
			return cnt
		end
		cnt = cnt + 1
	end
	return false
 end
 function isEveryEntryLookedWord(list, lWord)
	local num = 1
	while (num <= #list)do
		if (list[num] ~= lWord)then
			return false
		end
		num = num + 1
	end
	return true
 end
--every action of the middle turtle, being also the controlling turtle
function middleControl(bMining, disForwards)
	local sideTurtleArray = {nil, nil, nil, nil, nil, nil, nil, nil}
	registerAllTurtles(sideTurtleArray)
	local posNames = {"topLeft", "topMiddle", "topRight", "middleLeft", "middleRight", "bottomLeft", "bottomMiddle", "bottomRight"}
	--local turtleList = giveTurtlesPosNames(sideTurtleArray, posNames)
	while(true)do
		local textMining
		if (bMining)then
			textMining = "mining"
		else
			textMining = "notMininig"
		end
		callAllTurtles(textMining, sideTurtleArray)
		break
	end
	local blocksMoved = 0
	while(disForwards > 0)do
		turtleForward()
		callAllTurtles("moveForward", sideTurtleArray)
		local bSuccess = false
		local successList = {false, false, false, false, false, false, false, false}
		local loopNum = 1
		while(not bSuccess)do
			local sId, message, protocoll = rednet.receive()
			printMsgGotBy(sId, message)
			local pos = getNumInList(sId, sideTurtleArray)
			if (pos ~= false)then
				if (message == "refuel")then
					rednet.send(sId, "msgFuelReceived")
					printMsgSendTo(sId, "msgFuelReceived")
					print("Turtle at ", posNames[pos], "needs more Fuel. Please refuel there")
					print("Press enter to continue!")
					io.read()
				elseif (message == "needCobble")then
					rednet.send(sId, "msgCobReceived")
					printMsgSendTo(sId, "msgCobReceived")
					print("Turtle at ", posNames[pos], "needs more Cobblestone. Please fill it up there")
					print("Press enter to continue!")
				elseif (message == "movedForwardCleared")then
					rednet.send(sId, "fullMovementReceived")
					printMsgSendTo(sId, "fullMovementReceived")
					successList[pos + 1] = true
				end
			end
			bSuccess = isEveryEntryLookedWord(successList, true)
			loopNum = loopNum + 1
		end
		disForwards = disForwards - 1
		blocksMoved = blocksMoved + 1
		if (blocksMoved % 50 == 0)then
			print(blocksMoved, " blocks moved, to continue press enter")
			io.read()
		end
		if (disForwards == 0)then
			print("Reached given distance. If you want to tunnel further on, please enter a new distance, otherwise the 0")
			disForwards = tonumber(io.read())
		end
		if(disForwards == 0)then
			callAllTurtles("finish", sideTurtleArray)
			break
		end
	end
	print("IDs:   ", sideTurtleArray[0], sideTurtleArray[1], sideTurtleArray[2], sideTurtleArray[3], sideTurtleArray[4], sideTurtleArray[5], sideTurtleArray[6], sideTurtleArray[7])
	-- moveTurtleMiddleMiddle(false)
end

--every action of all turtles except the middle one
function sideTurtle()
	controleId = registerAndGetSenderId(turtlePosition)
	local bMining = ""
	while(true)do
		bMining = getMsgByConsoleTurtle()
		if (bMining == "mining")then
			bMining = true
			break
		elseif (bMining == "notMininig")then
			bMining = false
			break
		end
	end
	while(true)do
		local msg = getMsgByConsoleTurtle()
		if(msg == "moveForward") then
			local locData ={}
			if(turtlePosition == 1)then
				locData["rightDis"] = -2
				locData["highDis"] = 0
				locData["lookDir"] = 3
				moveTurtleLeftTop(bMining, locData)
			elseif(turtlePosition == 2)then
				locData["rightDis"] = -1
				locData["highDis"] = 0
				locData["lookDir"] = 0
				moveTurtleMiddleTop(bMining, locData)
			elseif(turtlePosition == 3)then
				locData["rightDis"] = 0
				locData["highDis"] = 0
				locData["lookDir"] = 1
				moveTurtleRightTop(bMining, locData)
			elseif(turtlePosition == 4)then
				locData["rightDis"] = -2
				locData["highDis"] = -1
				locData["lookDir"] = 3
				moveTurtleLeftMiddle(bMining, locData)
			elseif(turtlePosition == 6)then
				locData["rightDis"] = 0
				locData["highDis"] = -1
				locData["lookDir"] = 1
				moveTurtleRightMiddle(bMining, locData)
			elseif(turtlePosition == 7)then
				locData["rightDis"] = -2
				locData["highDis"] = -2
				locData["lookDir"] = 3
				moveTurtleLeftBottom(bMining, locData)
			elseif(turtlePosition == 8)then
				locData["rightDis"] = -1
				locData["highDis"] = -2
				locData["lookDir"] = 0
				moveTurtleMiddleBottom(bMining, locData)
			elseif(turtlePosition == 9)then
				locData["rightDis"] = 0
				locData["highDis"] = -2
				locData["lookDir"] = 1
				moveTurtleRightBottom(bMining, locData)
			end
			callConTurtle("movedForwardCleared", "fullMovementReceived")
		elseif(msg == "finish")then
			print("Programm closed successfull!")
			break
		end
	end
	--	local locData ={}
	--	if(turtlePosition == 1)then
	--		locData["rightDis"] = -2
	--		locData["highDis"] = 0
	--		locData["lookDir"] = 3
	--		moveTurtleLeftTop(bMining, locData)
	--	elseif(turtlePosition == 2)then
	--		locData["rightDis"] = -1
	--		locData["highDis"] = 0
	--		locData["lookDir"] = 0
	--		moveTurtleMiddleTop(bMining, locData)
	--	elseif(turtlePosition == 3)then
	--		locData["rightDis"] = 0
	--		locData["highDis"] = 0
	--		locData["lookDir"] = 1
	--		moveTurtleRightTop(bMining, locData)
	--	elseif(turtlePosition == 4)then
	--		locData["rightDis"] = -2
	--		locData["highDis"] = -1
	--		locData["lookDir"] = 3
	--		moveTurtleLeftMiddle(bMining, locData)
	--	elseif(turtlePosition == 6)then
	--		locData["rightDis"] = 0
	--		locData["highDis"] = -1
	--		locData["lookDir"] = 1
	--		moveTurtleRightMiddle(bMining, locData)
	--	elseif(turtlePosition == 7)then
	--		locData["rightDis"] = -2
	--		locData["highDis"] = -2
	--		locData["lookDir"] = 3
	--		moveTurtleLeftBottom(bMining, locData)
	--	elseif(turtlePosition == 8)then
	--		locData["rightDis"] = -1
	--		locData["highDis"] = -2
	--		locData["lookDir"] = 0
	--		moveTurtleMiddleBottom(bMining, locData)
	--	elseif(turtlePosition == 9)then
	--		locData["rightDis"] = 0
	--		locData["highDis"] = -2
	--		locData["lookDir"] = 1
	--		moveTurtleRightBottom(bMining, locData)
	--	end
end

function main()
	turtlePosition = getPositionOfTurtle()

	if(turtlePosition == 5) then
		print("Do you want to mine? Then enter a 1")
		local mineActivate = tonumber(io.read())
		print("How many blocks do you want to move?")
		local disForwards = tonumber(io.read())
		if (mineActivate == 1)then
			mineActivate = true
		else
			mineActivate = false
		end
		middleControl(mineActivate, disForwards)
	else
		sideTurtle()
	end
end


main()
-- pastebin get U47JQVUG Tunnel