require = requireInjector(getfenv(1)) local Logger = require('logger') local Message = require('message') local Event = require('event') local Point = require('point') local TableDB = require('tableDB') local MEProvider = require('meProvider') local ChestProvider = require('chestProvider') if os.getVersion() == 1.8 then ChestProvider = require('chestProvider18') end if not device.wireless_modem then error('No wireless modem detected') end Logger.filter('modem_send', 'event', 'ui') Logger.setWirelessLogging() local __BUILDER_ID = 6 local Builder = { version = '1.70', ccVersion = nil, slots = { }, index = 1, fuelItem = { id = 'minecraft:coal', dmg = 0 }, resupplying = true, ready = true, } --[[-- maxStackDB --]]-- local maxStackDB = TableDB({ fileName = 'maxstack.db', tabledef = { autokeys = false, type = 'simple', columns = { { label = 'Key', type = 'key', length = 8 }, { label = 'Quantity', type = 'number', length = 2 } } } }) function maxStackDB:get(id, dmg) return self.data[id .. ':' .. dmg] or 64 end function Builder:dumpInventory() local success = true for i = 1, 16 do local qty = turtle.getItemCount(i) if qty > 0 then self.itemProvider:insert(i, qty) end if turtle.getItemCount(i) ~= 0 then success = false end end turtle.select(1) return success end function Builder:dumpInventoryWithCheck() while not self:dumpInventory() do Builder:log('Unable to dump inventory') print('Provider is full or missing - make space or replace') print('Press enter to continue') turtle.setHeading(0) self.ready = false read() end self.ready = true end function Builder:autocraft(supplies) local t = { } for i,s in pairs(supplies) do local key = s.id .. ':' .. s.dmg local item = t[key] if not item then item = { id = s.id, dmg = s.dmg, qty = 0, } t[key] = item end item.qty = item.qty + (s.need-s.qty) end Builder.itemProvider:craftItems(t) end function Builder:refuel() while turtle.getFuelLevel() < 4000 and self.fuelItem do Builder:log('Refueling') turtle.select(1) self.itemProvider:provide(self.fuelItem, 64, 1) if turtle.getItemCount(1) == 0 then Builder:log('Out of fuel, add coal to chest/ME system') turtle.setHeading(0) os.sleep(5) else turtle.refuel(64) end end end function Builder:log(...) Logger.log('supplier', ...) Util.print(...) end function Builder:getSupplies() Builder.itemProvider:refresh() local t = { } for _,s in ipairs(self.slots) do if s.need > 0 then local item = Builder.itemProvider:getItemInfo(s.id, s.dmg) if item then if item.name then s.name = item.name end local qty = math.min(s.need-s.qty, item.qty) if qty + s.qty > item.max_size then maxStackDB:add({ s.id, s.dmg }, item.max_size) maxStackDB.dirty = true maxStackDB:flush() qty = item.max_size s.need = qty end if qty > 0 then self.itemProvider:provide(item, qty, s.index) s.qty = turtle.getItemCount(s.index) end end end if s.qty < s.need then table.insert(t, s) local name = s.name or s.id .. ':' .. s.dmg Builder:log('Need %d %s', s.need - s.qty, name) end end return t end local function moveTowardsX(dx) local direction = dx - turtle.point.x local move if direction == 0 then return false end if direction > 0 and turtle.point.heading == 0 or direction < 0 and turtle.point.heading == 2 then move = turtle.forward else move = turtle.back end return move() end local function moveTowardsZ(dz) local direction = dz - turtle.point.z local move if direction == 0 then return false end if direction > 0 and turtle.point.heading == 1 or direction < 0 and turtle.point.heading == 3 then move = turtle.forward else move = turtle.back end return move() end function Builder:finish() Builder.resupplying = true Builder.ready = false if turtle.gotoLocation('supplies') then turtle.setHeading(0) os.sleep(.1) -- random 'Computer is not connected' error... Builder:dumpInventory() Event.exitPullEvents() print('Finished') end end function Builder:gotoBuilder() if Builder.lastPoint then turtle.status = 'tracking' while true do local pt = Point.copy(Builder.lastPoint) pt.y = pt.y + 3 if turtle.point.y ~= pt.y then turtle.gotoY(pt.y) else local distance = Point.turtleDistance(turtle.point, pt) if distance <= 3 then Builder:log('Synchronized') break end if turtle.point.heading % 2 == 0 then if turtle.point.x == pt.x then turtle.headTowardsZ(pt.z) moveTowardsZ(pt.z) else moveTowardsX(pt.x) end elseif turtle.point.z ~= pt.z then moveTowardsZ(pt.z) else turtle.headTowardsX(pt.x) moveTowardsX(pt.x) end end end end end Message.addHandler('builder', function(h, id, msg, distance) if not id or id ~= __BUILDER_ID then return end if not Builder.resupplying then local pt = msg.contents pt.y = pt.y + 3 turtle.status = 'supervising' turtle.gotoYfirst(pt) end end) Message.addHandler('supplyList', function(h, id, msg, distance) if not id or id ~= __BUILDER_ID then return end turtle.status = 'resupplying' Builder.resupplying = true Builder.slots = msg.contents.slots Builder.slotUid = msg.contents.uid Builder:log('Received supply list ' .. Builder.slotUid) os.sleep(0) if not turtle.gotoLocation('supplies') then Builder:log('Failed to go to supply location') self.ready = false Event.exitPullEvents() end os.sleep(.2) -- random 'Computer is not connected' error... Builder:dumpInventoryWithCheck() Builder:refuel() while true do local supplies = Builder:getSupplies() if #supplies == 0 then break end turtle.setHeading(0) Builder:autocraft(supplies) turtle.status = 'waiting' os.sleep(5) end Builder:log('Got all supplies') os.sleep(0) Builder:gotoBuilder() Builder.resupplying = false end) Message.addHandler('needSupplies', function(h, id, msg, distance) if not id or id ~= __BUILDER_ID then return end if Builder.resupplying or msg.contents.uid ~= Builder.slotUid then Builder:log('No supplies ready') Message.send(__BUILDER_ID, 'gotSupplies') else turtle.status = 'supplying' Builder:log('Supplying') os.sleep(0) local pt = msg.contents.point pt.y = turtle.getPoint().y pt.heading = nil if not turtle.gotoYfirst(pt) then -- location of builder Builder.resupplying = true Message.send(__BUILDER_ID, 'gotSupplies') os.sleep(0) if not turtle.gotoLocation('supplies') then Builder:log('failed to go to supply location') self.ready = false Event.exitPullEvents() end return end pt.y = pt.y - 2 -- location where builder should go for the chest to be above turtle.select(15) turtle.placeDown() os.sleep(.1) -- random computer not connected error local p = ChestProvider({ direction = 'up', wrapSide = 'bottom' }) for i = 1, 16 do p:insert(i, 64) end Message.send(__BUILDER_ID, 'gotSupplies', { supplies = true, point = pt }) Message.waitForMessage('thanks', 5, __BUILDER_ID) --os.sleep(0) --p.condenseItems() for i = 1, 16 do p:extract(i, 64) end turtle.digDown() turtle.status = 'waiting' end end) Message.addHandler('finished', function(h, id) if not id or id ~= __BUILDER_ID then return end Builder:finish() end) Event.addHandler('turtle_abort', function() turtle.abort = false turtle.status = 'aborting' Builder:finish() end) local function onTheWay() -- parallel routine while true do local e, side, _id, id, msg, distance = os.pullEvent('modem_message') if Builder.ready then if id == __BUILDER_ID and msg and msg.type then if msg.type == 'needSupplies' then Message.send(__BUILDER_ID, 'gotSupplies', { supplies = true }) elseif msg.type == 'builder' then Builder.lastPoint = msg.contents end end end end end local args = {...} if #args < 1 then error('Supply id for builder') end __BUILDER_ID = tonumber(args[1]) maxStackDB:load() turtle.setPoint({ x = -1, z = -2, y = 0, heading = 0 }) turtle.saveLocation('supplies') Builder.itemProvider = MEProvider() if not Builder.itemProvider:isValid() then Builder.itemProvider = ChestProvider() if not Builder.itemProvider:isValid() then error('A chest or ME interface must be below turtle') end end turtle.run(function() Event.pullEvents(onTheWay) end)