turtleSandStone done

.vscode/settings.json

@@ -4,6 +4,7 @@
 		"paintutils",
 		"term",
 		"window",
-		"peripheral"
+		"peripheral",
+		"turtle"
 	]
 }

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()