From 944ce2beea63bf72a2cd38808cb9c22462a1d17c Mon Sep 17 00:00:00 2001
From: TO <th.theophyl.hoguet@gmail.com>
Date: Mon, 26 Dec 2022 18:13:59 +0100
Subject: [PATCH] turtleSandStone done

---
 .vscode/settings.json |   3 +-
 turtleSandStone.lua   | 206 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 208 insertions(+), 1 deletion(-)
 create mode 100644 turtleSandStone.lua

diff --git a/.vscode/settings.json b/.vscode/settings.json
index b843639..d2b8ee2 100644
--- a/.vscode/settings.json
+++ b/.vscode/settings.json
@@ -4,6 +4,7 @@
 		"paintutils",
 		"term",
 		"window",
-		"peripheral"
+		"peripheral",
+		"turtle"
 	]
 }
\ No newline at end of file
diff --git a/turtleSandStone.lua b/turtleSandStone.lua
new file mode 100644
index 0000000..f6ac673
--- /dev/null
+++ b/turtleSandStone.lua
@@ -0,0 +1,206 @@
+local xC, yC, zC, currentDir
+local nbBlocs, nbFuel
+local sizeLine, toDoLine
+MAXBLOCS = 960
+MAXFUEL = 64
+
+local direction = {
+	NORTH = function() -- X ++
+		xC = xC + 1
+	end,
+	SOUTH = function() -- X --
+		xC = xC - 1
+	end,
+	EAST = function() -- Y ++
+		yC = yC + 1
+	end,
+	WEST = function() -- Y --
+		yC = yC - 1
+	end,
+}
+
+local function goUp()
+	assert(turtle.up())
+	zC = zC + 1
+end
+
+local function goDown()
+	assert(turtle.down())
+	zC = zC - 1
+end
+
+local function turnRight()
+	if (currentDir == direction.NORTH) then
+		currentDir = direction.EAST
+	elseif (currentDir == direction.EAST) then
+		currentDir = direction.SOUTH
+	elseif (currentDir == direction.SOUTH) then
+		currentDir = direction.WEST
+	else
+		currentDir = direction.NORTH
+	end
+	turtle.turnRight()
+end
+
+local function turnLeft()
+	if (currentDir == direction.NORTH) then
+		currentDir = direction.WEST
+	elseif (currentDir == direction.WEST) then
+		currentDir = direction.SOUTH
+	elseif (currentDir == direction.SOUTH) then
+		currentDir = direction.EAST
+	else
+		currentDir = direction.NORTH
+	end
+	turtle.turnLeft()
+end
+
+local function turnDir(dir)
+	while currentDir ~= dir do
+		turnRight()
+	end
+end
+
+local function forward()
+	if not turtle.forward() then
+		goDown()
+		forward()
+	end
+	currentDir()
+end
+
+local function gotoCoo(x, y, z)
+	while yC ~= y do
+		if yC < y then
+			turnDir(direction.EAST)
+			forward()
+		else
+			turnDir(direction.WEST)
+			forward()
+		end
+	end
+	while xC ~= x do
+		if xC < x then
+			turnDir(direction.NORTH)
+			forward()
+		else
+			turnDir(direction.SOUTH)
+			forward()
+		end
+	end
+	while zC ~= z do
+		if zC < z then
+			goUp()
+		else
+			goDown()
+		end
+	end
+end
+
+local function setSlotBloc()
+	local i = 1
+	local is_fuel, isEmpty, reason = true, false, false
+	while is_fuel or isEmpty do
+		turtle.select(i)
+		is_fuel, reason = turtle.refuel(0)
+		isEmpty = turtle.getItemCount() == 0
+		i = i + 1
+	end
+end
+
+local function setSlotFuel()
+	local i = 1
+	local is_fuel, reason = false, false
+	while not is_fuel do
+		turtle.select(i)
+		is_fuel, reason = turtle.refuel(0)
+		i = i + 1
+	end
+end
+
+local function refill()
+	local saveX, saveY, saveZ, saveDir = xC, yC, zC, currentDir
+	gotoCoo(0, 0, 0)
+	turnDir(direction.NORTH)
+	pcall(setSlotFuel)
+	if nbFuel < 8 then
+		turtle.refuel(nbFuel)
+		nbFuel = 0
+	else
+		turtle.refuel(8)
+		nbFuel = nbFuel - 8
+	end
+	turtle.suck(MAXFUEL)
+	turtle.refuel(8)
+	turtle.suck(8)
+	nbFuel = MAXFUEL
+	turnRight()
+	forward()
+	turnLeft()
+	while nbBlocs < MAXBLOCS do
+		if nbBlocs + 64 <= MAXBLOCS then
+			turtle.suck(64)
+			nbBlocs = nbBlocs + 64
+		else
+			turtle.suck(MAXBLOCS - nbBlocs)
+			nbBlocs = MAXBLOCS
+		end
+	end
+	gotoCoo(saveX, saveY, saveZ)
+	turnDir(saveDir)
+end
+
+local function placeBlock()
+	if nbBlocs <= 0 then
+		refill()
+	end
+	if nbBlocs % 64 == 0 then
+		setSlotBloc()
+	end
+	if turtle.placeUp() then
+		nbBlocs = nbBlocs - 1
+	end
+end
+
+local function checkFuel()
+	if (turtle.getFuelLevel() <= 10) or (turtle.getFuelLevel() < (math.abs(xC) + math.abs(yC) + math.abs(zC) + 10)) then
+		if nbFuel > 0 then
+			setSlotFuel()
+			turtle.refuel()
+			checkFuel()
+		else
+			refill()
+		end
+	end
+end
+
+local function fill()
+	local nbLine = 0
+	while true do
+		while nbLine < 2 do
+			while toDoLine > 0 do
+				checkFuel()
+				placeBlock()
+				forward()
+				toDoLine = toDoLine - 1
+			end
+			turnLeft()
+			toDoLine = sizeLine
+			nbLine = nbLine + 1
+		end
+		sizeLine = sizeLine + 1
+		nbLine = 0
+	end
+end
+
+local function main()
+	xC, yC, zC, currentDir = 0, 0, 0, direction.NORTH
+	nbFuel, nbBlocs = 0, 0
+	refill()
+	goUp()
+	goUp()
+	sizeLine, toDoLine = 1, 1
+	fill()
+end
+
+main()