local engine = require("/packages/movementEngineMk2/movementEngine") local structPrint = require("/packages/turtleFunctions/print") local blueprints = require("/packages/blueprints/blueprints") local client = require("packages/rotnetz/Client")() local new_host = require("/packages/rotnetz/Host") local Dockroom = require("/packages/dockroom/sdk") local dockroom = Dockroom:mk("home") dockroom:connect() --util funcs local function find(item) for i = 1, 16 do local detail = turtle.getItemDetail(i) if detail then if detail.name == item then return i end end end end local function equip(item) if turtle.getEquippedLeft().name == item then return true end turtle.select(find(item)) turtle.equipLeft() return true end local function dumpUneeded() for i = 1, 16 do local item = turtle.getItemDetail(i) if item then local name = item.name if not (name == "computercraft:wireless_modem_advanced" or name == "minecraft:diamond_pickaxe" or name == "minecraft:daylight_detector") then turtle.select(i) turtle.dropDown() end end end end local function openRednet() equip("computercraft:wireless_modem_advanced") rednet.open("left") end local function equipPickaxe() equip("minecraft:diamond_pickaxe") end local function equipSolar() equip("minecraft:daylight_detector") end local function solar() equipSolar() while not (turtle.getFuelLevel() == turtle.getFuelLimit()) do sleep(60) end openRednet() end --engine config local function down() while turtle.detectDown() do sleep(1) end while not turtle.down() do sleep(1) end end engine.down = down local function up() while turtle.detectUp() do sleep(1) end while not turtle.up() do sleep(1) end end engine.up = up local function forward() while turtle.detect() do sleep(1) end while not turtle.forward() do sleep(1) end end engine.forward = forward local function makeEngineSafe() engine.down = down engine.up = up engine.forward = forward end local function unsafeDown() while turtle.detectDown() do turtle.digDown() end turtle.down() end local function unsafeUp() while turtle.detectUp() do turtle.digUp() end turtle.up() end local function unsafeForward() while turtle.detect() do turtle.dig() end turtle.forward() end local function makeEngineUnsafe() charge_while_move = false engine.down = unsafeDown engine.up = unsafeUp engine.forward = unsafeForward end --initial setup openRednet() local homex, homey, homez = gps.locate() while homex == nil do sleep(20) homex, homey, homez = gps.locate() end engine.setCenter(-homex, -homey, -homez) --setup end local function get_travel_height(x, z) local cx = x - engine.x local cz = z - engine.z if cx < 0 and cz < 0 then return 0 elseif cx > 0 and cz < 0 then return 2 elseif cx > 0 and cz > 0 then return 4 else return 6 end end local function get_item_provider(item) local responses = client.broadcast("hasItems", item, "provider", 5) for n, i in pairs(responses) do if i.message.status then return true, i.message end end return false, ("no providers for " .. item) end local function long_distance_travel(x, y, z) makeEngineSafe() local travel_height = 200 + get_travel_height(x, z) print(travel_height) engine.absMove(nil, travel_height, nil) engine.absMove(x, nil, z) engine.absMove(nil, y, nil) end --item recovery local function get_item(item, number) print("getting item " .. item) local succ, prov = get_item_provider(item) if succ then long_distance_travel(prov.x, prov.y, prov.z) for i = 1, number do turtle.suckDown(1) end engine.move(1, 0, 0) return true end return false end local function dump(item) slot = find(item) while slot do turtle.select(slot) turtle.dropDown() slot = find(item) end end local function provide(item, number, x, y, z) get_item(item, number) long_distance_travel(x, y, z) dump(item) end local function get_items(bundle) for n, i in pairs(bundle) do if (get_item(n, i)) then bundle[n] = nil end end return bundle end -- stockroom compat local function pick_port() local ports = dockroom:listPorts() if #ports == 0 then error("no stockroom ports") end local choice = math.random(#ports) local port = ports[choice] local x, y, z = unpack(port.location) print("picked port: " .. port.inventoryId .. " @ " .. x .. "," .. y .. "," .. z) return port end local function get_from_stockroom(bundle) if dockroom:hasBundle(bundle) then local reservation = dockroom:reserve(bundle) local port = pick_port() local x, y, z = unpack(port.location) long_distance_travel(x, y + 1, z) port:claim(reservation) -- suck that shit up turtle.suckDown() port:flush() else error("couldn't get the items") end end local function get_shit(bundle) bundle = get_items(bundle) get_from_stockroom(bundle) end --item recovery end --printing buildings local function get_bundle(blueprint, virt) local bundle = {} for n, i in pairs(blueprint.countBlocks()) do bundle[n] = i * virt end return bundle end local function printBuilding(params) local blueprint = blueprints.createBlueprint(params.savetable) local bundle = get_bundle(blueprint, params.virt) get_shit(bundle) long_distance_travel(params.x, params.y + 10, params.z) equipPickaxe() makeEngineUnsafe() engine.absMove(params.x, params.y, params.z) engine.setCenter(nil, nil, nil, params.angle) local function outOfBlockError(name) print("out of block " .. name) error("out of block " .. name) end structPrint(engine, blueprint, params.virt or 1, outOfBlockError) engine.popCenter() end --util turtleFunction local function select_correct(item) local slot = turtle.getItemDetail(turtle.getSelectedSlot()) if not slot then turtle.select(find(item)) elseif not (slot.name == item) then turtle.select(find(item)) end end local function get_place_func(item) local function place() turtle.digDown() select_correct(item) turtle.placeDown() end return place end local function doNothing() end local function lineMove(engine, x, func) func() if x < 0 then for xp = 1, math.abs(x) do engine.move(-1, 0, 0) func() end else for xp = 1, x do engine.move(1, 0, 0) func() end end end local function flatGridMove(engine, x, z, func) engine.faceAngle(0) local zp = 0 while zp < z do lineMove(engine, x, func) zp = zp + 1 if zp < z then engine.move(0, 0, 1) lineMove(engine, -x, func) zp = zp + 1 if zp < z then engine.move(0, 0, 1) end end end end local function gridMove(engine, x, y, z, func) local yp = 0 while yp < y do flatGridMove(engine, x - 1, z, func) yp = yp + 1 if yp < y then engine.move(0, 1, 0) end engine.absMove(0, nil, 0) end end local function place_in_grid(engine, x, y, z, item) gridMove(engine, x, y, z, get_place_func(item)) end local function dig_in_grid(engine, x, y, z) gridMove(engine, x, y, z, doNothing) end local function grid_place(params) local number = params.x * params.y * params.z if params.item then get_shit({ [params.item] = number }) end long_distance_travel(params.location.x, params.location.y + 40, params.location.z) equipPickaxe() makeEngineUnsafe() engine.absMove(params.location.x, params.location.y, params.location.z) engine.setCenter(nil, nil, nil, params.angle) if params.item then place_in_grid(engine, params.x, params.y, params.z, params.item) else dig_in_grid(engine, params.x, params.y, params.z) end engine.popCenter() end --network functions local function providerWrapper(func, params) print("executing function") local function h() func(params) end local state, result = pcall(h) openRednet() if not state then error(result) end end local function networkBuild(params) providerWrapper(grid_place, params) end local function networkPrint(params) providerWrapper(printBuilding, params) end local function _networkProvide(params) provide(params.item, params.number, params.x, params.y, params.z) end local function networkProvide(params) providerWrapper(_networkProvide, params) end --host setup local host = new_host("util_turtle", nil) host.addMethod("getItems", networkProvide, "Requires {item:itemname,number:number,x:x,y:y,z:z} will deliver items, returns true if successful") host.addMethod("print", networkPrint, "Requires {savetable:a building savetable,x:x,y:y,z:z,angle:the angle relative to east, south is 90 degrees.}") host.addMethod("build", networkBuild, "Requires {x,y,z,location,item,angle} location = {x,y,z}") function start_host_loop() while true do if (turtle.getFuelLevel() < (turtle.getFuelLimit() / 5)) then error("OUT OF FUEL") end local senderId, message = host._messageReceive() local ox, oy, oz = engine.x, engine.y, engine.z host._handle(senderId, message) while #engine.positionStack > 1 do engine.popCenter() end if not (ox == engine.x and oy == engine.y and oz == engine.z) then long_distance_travel(homex, homey, homez) engine.faceAngle(0) dumpUneeded() end if engine.angle ~= 0 then engine.faceAngle(0) end openRednet() end end start_host_loop()

networkTurtle

Install this package: