Mine: write movement functions

turtles/mine.lua

@@ -51,15 +51,44 @@ function turn_rel(dir)
     turn_abs((facing + dir) % 4)
 end
 
+-- Updates the turtle position for a move in the given direction
+function _count_move_dir(dir)
+    dir = dir % 4
+    if      dir == 0 then depth = depth + 1
+    elseif  dir == 1 then side = side + 1
+    elseif  dir == 2 then depth = depth - 1
+    elseif  dir == 3 then side = side - 1
+    end
+end
+
+function move_forward()
+    rc, desc = turtle.forward()
+    if not rc then abort("Move: "..desc) end
+    _count_move_dir(facing)
+end
+function move_back()
+    rc, desc = turtle.back()
+    if not rc then abort("Move: "..desc) end
+    _count_move_dir(facing + 2)
+end
+function move_up()
+    rc, desc = turtle.up()
+    if not rc then abort("Move: "..desc) end
+    height = height + 1
+end
+function move_down()
+    rc, desc = turtle.down()
+    if not rc then abort("Move: "..desc) end
+    height = height - 1
+end
+
 function go_to_depth(dd)
     turn_abs(0)
     while depth > dd do
-        turtle.back()
+        move_back()
-        depth = depth - 1
     end
     while depth < dd do
-        turtle.forward()
+        move_forward()
-        depth = depth + 1
     end
 end
 
@@ -70,12 +99,10 @@ function go_to(dh, dd, ds)
 
     if height ~= dh then
         while height > dh do
-            turtle.down()
+            move_down()
-            height = height - 1
         end
         while height < dh do
-            turtle.up()
+            move_up()
-            height = height + 1
         end
     end
 
@@ -83,12 +110,10 @@ function go_to(dh, dd, ds)
         turn_abs(1)
 
         while side > ds do
-            turtle.back()
+            move_back()
-            side = side - 1
         end
         while side < ds do
-            turtle.forward()
+            move_forward()
-            side = side + 1
         end
     end
 
@@ -149,8 +174,7 @@ function find_next_shaft()
             if turtle.detectUp() then
                 turtle.digUp()
             end
-            if not turtle.up() then abort("Misshaped lobby") end
+            move_up()
-            height = height + 1
         end
 
         turn_abs(1)
@@ -158,8 +182,7 @@ function find_next_shaft()
             if turtle.detect() then
                 turtle.dig()
             end
-            if not turtle.forward() then abort("Misshaped lobby") end
+            move_forward()
-            side = side + 1
         end
         turn_abs(0)
 
@@ -174,8 +197,7 @@ function find_next_shaft()
             if turtle.detectDown() then
                 turtle.digDown()
             end
-            if not turtle.down() then abort("Misshaped lobby") end
+            move_down()
-            height = height - 1
         end
 
         turn_abs(1)
@@ -183,8 +205,7 @@ function find_next_shaft()
             if turtle.detect() then
                 turtle.dig()
             end
-            if not turtle.forward() then abort("Misshaped lobby") end
+            move_forward()
-            side = side + 1
         end
         turn_abs(0)
     end