Builder

-- external info --
-- BUILDER --
local blocks = { }
local height = 1
local lenth = 1
local width = 1



-- HELPER FUNCTIONS --
function clear()
    term.clear()
    term.setCursorPos(1, 1)
end

function load(path)
    file = fs.open(path, "r")
    data = file.readAll()
    file.close()

    return textutils.unserialize(data)
end

function forward()
    while true do
        test = turtle.forward()
        if test == true then
            break
        end
        sleep(1)
    end
end
function down()
    while true do
        test = turtle.down()
        if test == true then
            break
        end
        sleep(1)
    end
end
function turnLeft()
    turtle.turnLeft()
end
function turnRight()
    turtle.turnRight()
end
function up()
    while true do
        test = turtle.up()
        if test == true then
            break
        end
        sleep(1)
    end
end
function placeDown(index)
    if index == 0 then
        return false
    end

    count = turtle.getItemCount(index)

    if count > 1 then
        turtle.select(index)
        turtle.placeDown()
    else
        clear()
        print("OUT OF REASORCE!!!")
        print()
        print("Please full up on reasorce "..index)
        print("and press Enter to continue building")

        while true do
            e, p1 = os.pullEvent()
            if e == "key" then
                if p1 == keys.enter then
                    break
                end
            end
        end

        turtle.select(index)
        turtle.placeDown()
    end
end

-- DEPENDANT FUNCTIONS --
function findFile()
    building = {}

    schematicFilepath = "/bluprints"
    schematics = fs.list(schematicFilepath)

    textutils.pagedTabulate( schematics )

    print("please enter file location of building")
    ans = read()
    path = "/bluprints/"..ans

    blocks = load(path)

    height = #blocks
    length = #blocks[1]
    width  = #blocks[1][1]
end


-- PROGRAM FUNCTIONS --
function build()
    up()
    forward()
    turnRight()

    left = true

    for h=1, height do
        for l=1, length do
            for w=1, width do
                tempH = h
                tempL = l
                tempW = w

                if h%2 == 1 then -- remainder of even numbers are 0
                    tempL = length - l + 1

                    if not left then
                        tempW = width - w + 1
                    end
                else
                    if left then
                        tempW = width - w + 1
                    end
                end
                --print(left)
                --print("h: "..tempH.." l: "..tempL.." w: "..tempW)

                placeDown(blocks[tempH][tempL][tempW])
                if w ~= width then forward() end
            end

            if l ~= length then
                if left then turnLeft() else turnRight() end
                    forward()
                if left then turnLeft() else turnRight() end
                left = not left
            else
                turnLeft()
                turnLeft()
                up()
            end
        end
    end

end

-- RUN --
function run()
    clear()
    findFile()
    build()
end
run()