flatMining3

--[[
***********
 * flatMining
 *
 * mine in shape of a flat space.
 * slot1~5 = ore
 * slot6 = chest, slot7,8 = torch *
 * slot9 = ironOre, slot10 = goldOre
 *
**********
]]



-- get arguments.
local tArgs = { ... }
-- define vars.
local area = tArgs[1]
local side = 16
local oreSlot1 = 1
local oreSlot2 = 2
local oreSlot3 = 3
local oreSlot4 = 4
local oreSlot5 = 5
local ironSlot = 6
local goldSlot = 7
local chestSlot = 8
local torchSlot1 = 9
local torchSlot2 = 10
local torchSlot1 = 11
local torchSlot2 = 12


--define functions.
function mineStraight(line)

    local residue = area*side-2
    local height = 1

    while residue > 0 do
        if compare('down') then
            dig('down')
        end
        if compare('up') then
            dig('up')
        end
        drop()
        torch(line, residue)
        if turtle.detect() == false then
            move('front')
            residue = residue - 1
        elseif compare('front') then
            dig('front')
            move('front')
            residue = residue - 1
        else
            dig('up')
            move('up')
            height = height + 1
            residue, height = detour(residue, height)
        end
    end

    while height > 1 do
        dig('down')
        move('down')
        height = height - 1
    end

    if compare('down') then
        dig('down')
    end
    if compare('up') then
        dig('up')
    end

    dig('front')
    move('front')

end

function compare(dir)

    local currentFunc = turtle.compare
    if dir == 'up' then
        currentFunc = turtle.compareUp
    elseif dir == 'down' then
        currentFunc = turtle.compareDown
    end

    local flag = false

    turtle.select(oreSlot1)
    flag = currentFunc()
    if flag == false then
        turtle.select(oreSlot2)
        flag = currentFunc()
    end
    if flag == false then
        turtle.select(oreSlot3)
        flag = currentFunc()
    end
    if flag == false then
        turtle.select(oreSlot4)
        flag = currentFunc()
    end
    if flag == false then
        turtle.select(oreSlot5)
        flag = currentFunc()
    end
    if flag == false then
        turtle.select(chestSlot)
        flag = currentFunc()
    end

    if flag == true then
        return false
    else
        return true
    end

end

function detour(residue, height)

    while compare('front') == false and turtle.detect() == true do
        dig('up')
        move('up')
        height = height + 1
    end
    dig('front')
    move('front')
    residue = residue -1

    if residue == 0 then
        return residue, height
    end

    while height > 1 do
        if compare('front') == false and turtle.detect() == true then
            while compare('front') == false and turtle.detect() == true do
                dig('up')
                move('up')
                height = height + 1
            end
            dig('front')
            move('front')
            residue = residue - 1
        elseif compare('front') or turtle.detect() == false then
            dig('front')
            move('front')
            residue = residue - 1
            while compare('down') or turtle.detectDown() == false do
                dig('down')
                move('down')
                height = height - 1
                if height == 1 then
                    return residue, height
                end
            end
        end

        if residue == 0 then
            return residue, height
        end
    end
    return residue, height

end

function turn(dir)

    if compare('down') then
        dig('down')
    end
    if compare('up') then
        dig('up')
    end

    local currentFunc
    if dir%2 == 0 then
        currentFunc = turtle.turnLeft
    else
        currentFunc = turtle.turnRight
    end

    currentFunc()
    dig('front')
    move('front')
    currentFunc()

end

function drop()

    for i=10, 16, 1 do
        turtle.select(i)
        if turtle.compareTo(ironSlot) == false and turtle.compareTo(goldSlot) == false and turtle.compareTo(torchSlot1) == false then
            turtle.drop()
        end
    end
    if turtle.getItemCount(16) ~= 0 then
        turtle.select(chestSlot)
        if turtle.placeDown() then
            turtle.select(ironSlot)
            turtle.dropDown(turtle.getItemCount(ironSlot)-1)
            turtle.select(goldSlot)
            turtle.dropDown(turtle.getItemCount(goldSlot)-1)
            for i=10, 16, 1 do
                turtle.select(i)
                if turtle.compareTo(torchSlot1) == false then
                    turtle.dropDown()
                end
            end
        end
    end
    turtle.select(1)

end

function dig(dir)

    local currentDig = turtle.dig
    local currentDetect = turtle.detect
    if dir == 'up' then
        currentDig = turtle.digUp
        currentDetect = turtle.detectUp
    elseif dir == 'down' then
        currentDig = turtle.digDown
        currentDetect = turtle.detectDown
    end

    local times = 0
    while currentDetect() do
        currentDig()
        times = times + 1
        if times == 15 then
            break
        end
        sleep(1)
    end

end

function move(dir)

    local currentMove = turtle.forward
    local currentAttack = turtle.attack
    if dir == 'up' then
        currentMove = turtle.up
        currentAttack = turtle.attackUp
    elseif dir == 'down' then
        currentMove = turtle.down
        currentAttack = turtle.attackDown
    end

    local times = 0
    while currentMove() == false do
        currentAttack()
        times = times + 1
        if times == 15 then
            return false
        end
    end
    return true

end

function torch(line, residue)

    if (line-3)%7 ~= 0 or residue%7 ~= 0 then
        return
    end

    if turtle.getItemCount(torchSlot1) == 1 then
        return
    end

    turtle.select(torchSlot1)
    if turtle.compareTo(torchSlot4) then
        turtle.select(torchSlot4)
    elseif turtle.compareTo(torchSlot3) then
        turtle.select(torchSlot3)
    elseif turtle.compateTo(torchSlot2) then
            turtle.select(torchSlot2)
    end
    turtle.placeDown()
    turtle.select(1)

end


--main thread.
for i=1, area*side-1, 1 do
    print('start line'..i..'.')
    mineStraight(i)
    turn(i+1)
end
mineStraight(area*side)
dig('up')
dig('down')