package management

core/etc/scripts/abort

@@ -0,0 +1 @@
+turtle.abort(true)

core/etc/scripts/follow

@@ -0,0 +1,116 @@
+local os     = _G.os
+local turtle = _G.turtle
+
+local function follow(id)
+
+  _G.requireInjector(_ENV)
+
+  local Event  = require('event')
+  local Point  = require('point')
+  local Socket = require('socket')
+
+  turtle.setStatus('follow ' .. id)
+
+  if not turtle.enableGPS() then
+    error('turtle: No GPS found')
+  end
+
+  local socket = Socket.connect(id, 161)
+  if not socket then
+    error('turtle: Unable to connect to ' .. id)
+    return
+  end
+
+  local lastPoint
+  local following = false
+
+  Event.on('turtle_follow', function(_, pt)
+
+    local pts = {
+      { x = pt.x + 2, z = pt.z,     y = pt.y },
+      { x = pt.x - 2, z = pt.z,     y = pt.y },
+      { x = pt.x,     z = pt.z + 2, y = pt.y },
+      { x = pt.x,     z = pt.z - 2, y = pt.y },
+    }
+
+    local cpt = Point.closest(turtle.point, pts)
+
+    local blocks = { }
+
+    local function addBlocks(tpt)
+      table.insert(blocks, tpt)
+      local apts = Point.adjacentPoints(tpt)
+      for _,apt in pairs(apts) do
+        table.insert(blocks, apt)
+      end
+    end
+
+    -- don't run into player
+    addBlocks(pt)
+    addBlocks({ x = pt.x, z = pt.z, y = pt.y + 1 })
+
+    if turtle.pathfind(cpt, { blocks = blocks }) then
+      turtle.headTowards(pt)
+    end
+    following = false
+  end)
+
+  Event.onInterval(.5, function()
+
+    local function getRemotePoint()
+      if not turtle.isAborted() then
+        if socket:write({ type = 'gps' }) then
+          return socket:read(3)
+        end
+      end
+    end
+
+    -- sometimes gps will fail if moving
+    local pt, d
+
+    for _ = 1, 3 do
+      pt, d = getRemotePoint()
+      if pt then
+        break
+      end
+      os.sleep(.5)
+    end
+
+    if not pt or turtle.isAborted() then
+      error('Did not receive GPS location')
+    end
+
+    if not lastPoint or (lastPoint.x ~= pt.x or lastPoint.y ~= pt.y or lastPoint.z ~= pt.z) then
+
+      if following then
+        turtle.getState().abort = true
+        while following do
+          os.sleep(.1)
+        end
+        turtle.getState().abort = false
+      end
+
+      -- check if gps is inaccurate (player moving too fast)
+      if d < Point.distance(turtle.point, pt) + 10 then
+        lastPoint = Point.copy(pt)
+        following = true
+        os.queueEvent('turtle_follow', pt)
+      end
+    end
+  end)
+
+  Event.on('turtle_abort', function()
+    Event.exitPullEvents()
+  end)
+
+  Event.pullEvents()
+
+  socket:close()
+
+  return true
+end
+
+local s, m = turtle.run(function() follow({COMPUTER_ID}) end)
+if not s and m then
+  error(m)
+end

core/etc/scripts/goHome

@@ -0,0 +1,3 @@
+_G.requireInjector(_ENV)
+local Home = require('turtle.home')
+turtle.run(Home.go)

core/etc/scripts/moveTo

@@ -0,0 +1,29 @@
+turtle.run(function()
+
+  _G.requireInjector(_ENV)
+
+  local GPS    = require('gps')
+  local Socket = require('socket')
+
+  local id = {COMPUTER_ID}
+
+  if not turtle.enableGPS() then
+    error('turtle: No GPS found')
+  end
+
+  local socket = Socket.connect(id, 161)
+  if not socket then
+    error('turtle: Unable to connect to ' .. id)
+  end
+
+  socket:write({ type = 'gps' })
+
+  local pt = socket:read(3)
+  if not pt then
+    error('turtle: No GPS response')
+  end
+
+  if not turtle.pathfind(pt) then
+    error('Unable to go to location')
+  end
+end)

core/etc/scripts/obsidian

@@ -0,0 +1,108 @@
+_G.requireInjector(_ENV)
+
+local Point = require('point')
+local Util  = require('util')
+
+local os     = _G.os
+local turtle = _G.turtle
+
+local checkedNodes, nodes
+
+local function addNode(node)
+
+  for i = 0, 3 do
+    local hi = turtle.getHeadingInfo(i)
+    local testNode = { x = node.x + hi.xd, z = node.z + hi.zd }
+
+    local key = table.concat({ testNode.x, testNode.z }, ':')
+    if not checkedNodes[key] then
+      nodes[key] = testNode
+    end
+  end
+end
+
+local function findObsidian()
+  repeat
+    local node = { x = turtle.point.x, z = turtle.point.z }
+    local key = table.concat({ node.x, node.z }, ':')
+
+    checkedNodes[key] = true
+    nodes[key] = nil
+
+    local _,b = turtle.inspectDown()
+    if b and (b.name == 'minecraft:lava' or b.name == 'minecraft:flowing_lava') then
+      if turtle.select('minecraft:water_bucket') then
+        while true do
+          if turtle.up() then
+            break
+          end
+          print('stuck')
+        end
+        turtle.placeDown()
+        os.sleep(2)
+        turtle.placeDown()
+        turtle.down()
+        turtle.select(1)
+        _, b = turtle.inspectDown()
+      end
+    end
+
+    if turtle.getItemCount(16) > 0 then
+      print('Inventory full')
+      print('Enter to continue...')
+      _G.read()
+    end
+
+    if b and b.name == 'minecraft:obsidian' then
+      turtle.digDown()
+      addNode(node)
+    else
+      turtle.digDown()
+    end
+
+    print(string.format('%d nodes remaining', Util.size(nodes)))
+
+    if Util.size(nodes) == 0 then
+      break
+    end
+
+    node = Point.closest(turtle.point, nodes)
+    if not turtle._goto(node) then
+      break
+    end
+  until turtle.isAborted()
+end
+
+turtle.run(function()
+  turtle.reset()
+  turtle.setPolicy(turtle.policies.digOnly)
+
+  local s, m = pcall(function()
+    repeat
+      checkedNodes = { }
+      nodes = { }
+
+      local _,b = turtle.inspectDown()
+      if not b or b.name ~= 'minecraft:obsidian' then
+        break
+      end
+
+      findObsidian()
+      if not turtle.select('minecraft:water_bucket') then
+        break
+      end
+      turtle._goto({ x = 0, z = 0 })
+      turtle.placeDown()
+      os.sleep(2)
+      turtle.placeDown()
+      turtle.down()
+      turtle.select(1)
+    until turtle.isAborted()
+  end)
+
+  if not s and m then
+    error(m)
+  end
+
+  turtle._goto({ x = 0, y = 0, z = 0, heading = 0 })
+end)

core/etc/scripts/reboot

@@ -0,0 +1 @@
+os.reboot()

core/etc/scripts/setHome

@@ -0,0 +1,3 @@
+_G.requireInjector(_ENV)
+local Home = require('turtle.home')
+turtle.run(Home.set)

core/etc/scripts/shutdown

@@ -0,0 +1 @@
+os.shutdown()

core/etc/scripts/summon

@@ -0,0 +1,74 @@
+local function summon(id)
+
+  _G.requireInjector(_ENV)
+
+  local GPS    = require('gps')
+  local Point  = require('point')
+  local Socket = require('socket')
+
+  turtle.setStatus('GPSing')
+  turtle.setPoint({ x = 0, y = 0, z = 0, heading = 0 })
+
+  local pts = {
+    [ 1 ] = { x = 0, z = 0, y = 0 },
+    [ 2 ] = { x = 4, z = 0, y = 0 },
+    [ 3 ] = { x = 2, z = -2, y = 2 },
+    [ 4 ] = { x = 2, z = 2, y = 2 },
+  }
+  local tFixes = { }
+
+  local socket = Socket.connect(id, 161)
+
+  if not socket then
+    error('turtle: Unable to connect to ' .. id)
+  end
+
+  local function getDistance()
+    socket:write({ type = 'ping' })
+    local _, d = socket:read(5)
+    return d
+  end
+
+  local function doGPS()
+    tFixes = { }
+    for i = 1, 4 do
+      if not turtle._goto(pts[i]) then
+        error('turtle: Unable to perform GPS maneuver')
+      end
+      local distance = getDistance()
+      if not distance then
+        error('turtle: No response from ' .. id)
+      end
+      table.insert(tFixes, {
+        position = vector.new(turtle.point.x, turtle.point.y, turtle.point.z),
+        distance = distance
+      })
+    end
+    return true
+  end
+
+  if not doGPS() then
+    turtle.turnAround()
+    turtle.setPoint({ x = 0, y = 0, z = 0, heading = 0})
+    if not doGPS() then
+      socket:close()
+      return false
+    end
+  end
+
+  socket:close()
+
+  local pos = GPS.trilaterate(tFixes)
+
+  if pos then
+    local pt = { x = pos.x, y = pos.y, z = pos.z }
+    local _, h = Point.calculateMoves(turtle.getPoint(), pt)
+    local hi = turtle.getHeadingInfo(h)
+    turtle.setStatus('recalling')
+    turtle.pathfind({ x = pt.x - hi.xd, z = pt.z - hi.zd, y = pt.y - hi.yd, heading = h })
+  else
+    error("turtle: Could not determine position")
+  end
+end
+
+turtle.run(function() summon({COMPUTER_ID}) end)