wip

----Perpetual Forward----
--Global Var--
t = turtle
r = rednet
--Functions--
function forward()
    if t.detect() then
        t.dig()
        t.forward()
    else
        t.forward()
    end
end
function up()
    if t.detectUp() then
        t.digUp()
    end
end
function down()
    if t.detectDown() then
        t.digDown()
    end
end
function tack()
    t.turnLeft()
    t.turnLeft()
end
function slot()
    forward()
    up()
    down()
end
function store()
    t.select(1)
    tack()
    t.place()
    num = 13
    while num > 4 do
        t.select(num+4)
        t.drop()
        num = num - 1
    end
    tack()
end
function refuel()
    t.select(2)
    tack()
    t.dig()
    t.place()
    t.suck()
    t.refuel()
    t.dig()
    tack()
end
function refuelCheck()
    if t.getFuelLevel() == 0 then
        refuel()
    end
end
function storeCheck()
    if t.getItemCount(16) > 0 then
        store()
    end
end
function portal()
    store()
    refuel()
    t.select(3)
    tack()
    t.place()
    id, message distance = rednet.receive(1)
    if distance > 0 then
        t.select(3)
        t.dig()
        tack()
    end
end
function basic()
    storeCheck()
    refuelCheck()
    id, message, distance = rednet.receive(1, 0.1)
    if (message == "stop") then
        portal()
        break
    else if (message == "portal") then
        portal()
    else
        slot()
    end
end
function setNode()
    dist1 = 8
    dist2 = 8
    t.select(4)
    t.digUp()
    t.placeUp()
    while dist1 > 0 do
        basic()
        dist1 = dist1 - 1
    end
    tack()
    while dist2 > 0 do
        forward()
        dist2 = dist2 - 1
    end
    t.select(4)
    up()