Added netNav explore program

netNav/explore.lua

@@ -0,0 +1,74 @@
+local tArgs = {...}
+
+-- FIND AREA BOUNDARIES
+local minX, minY, minZ = unpack(tArgs, 2, 4)
+minX, minY, minZ = tonumber(minX), tonumber(minY), tonumber(minZ)
+local maxX, maxY, maxZ = unpack(tArgs, 5, 7)
+maxX, maxY, maxZ = tonumber(maxX), tonumber(maxY), tonumber(maxZ)
+local function isInteger(var)
+	return type(var) == "number" and math.floor(var) == var
+end
+if not isInteger(minX) then printError("minX must be integer") return end
+if not isInteger(minY) then printError("minX must be integer") return end
+if not isInteger(minZ) then printError("minX must be integer") return end
+if not isInteger(maxX) then printError("maxX must be integer") return end
+if not isInteger(maxY) then printError("maxY must be integer") return end
+if not isInteger(maxZ) then printError("maxZ must be integer") return end
+if minX > maxX then minX, maxX = maxX, minX end
+if minY > maxY then minY, maxY = maxY, minY end
+if minZ > maxZ then minZ, maxZ = maxZ, minZ end
+
+-- LOAD NETNAV API
+if not netNav then
+  if not os.loadAPI("netNav") then
+    error("could not load starNav API")
+  end
+end
+
+-- OPEN REDNET
+for _, side in ipairs({"left", "right"}) do
+	if peripheral.getType(side) == "modem" then
+		rednet.open(side)
+	end
+end
+if not rednet.isOpen() then
+	printError("Could not open rednet")
+	return
+end
+
+-- SET NETNAV MAP
+local mapName = tArgs[1]
+if type(mapName) ~= "string" then
+	printError("mapName must be string")
+	return
+end
+if not netNav.getMap() then
+  netNav.setMap(mapName, 15)
+end
+
+local exit = false
+local returning = false
+
+local function main()
+	local startX, startY, startZ = gps.locate(1)
+	while turtle.getFuelLevel() > 0 and not exit do
+		local x = math.random(minX, maxX)
+		local y = math.random(minY, maxY)
+		local z = math.random(minZ, maxZ)
+		netNav.goto(x, y, z)
+	end
+	returning = true
+	netNav.goto(startX, startY, startZ)
+end
+
+local function control()
+	while true do
+		local senderID, message = rednet.receive("explore:return_to_base")
+		if not exit and not returning then
+			netNav.stop()
+			exit = true
+		end
+	end
+end
+
+parallel.waitForAny(main, control)