stripmineProgram1

-- STRIPMINING PROGRAM BY THEDARKRAY --

-- CONFIG --

local oreMode = false;
local rednet = false;
local shaftHeight = 3;
local sleepTime = 0.1;

-- VARIABLES --

-- FUNCTIONS --

-- 3l + 2*3*sl*floor(l/n)



-- MAIN PROGRAM --

-- PRE-INIT --

os.loadAPI("theDarkray/drt");

print("Welcome to the Stripmining program\nby TheDarkray");
sleep(0.5);
while true do
drt.clc();
print("Mineshaft length: ");
shaftLength = tonumber(io.read());
print("Length of Subshafts: ");
subShaftLength = tonumber(io.read());
print("Spacing of Subshafts: ");
subShaftSpacing = tonumber(io.read());
if (turtle.getFuelLevel()<(5*shaftLength+5*subShaftLength)) then
    print("Not Enough Fuel. Try smaller dimensions or add more fuel.");
    sleep(1);
else
    break;
end
end

-- INIT --

blocksToMine = 3*shaftLength + 2*3*subShaftLength*math.floor(shaftLength/subShaftSpacing);
drt.clc();
print("Make sure you have a chest placed behind the turtle to lay the items into.");
print("Starting in ");
for i=3,0,-1
do
sleep(1);
print(i.."...");
end

drt.clc()

-- Main Shaft - WORKING
for i=1, shaftLength do
    if drt.digA() then
        drt.turn();
            drt.fwd(distance);
        for j=1, 16 do
            turtle.select(j);
            turtle.drop(64);
        end
        turtle.select(1);
        drt.turn();
            drt.fwd(distance);
    end
end
turtle.turnLeft(); turtle.turnLeft();
drt.fwd(shaftLength);
for i=1, 16 do
    turtle.select(i);
    turtle.drop(64);
end
turtle.select(1);
-- Subshafts
turtle.turnLeft(); turtle.turnLeft();
for i=1, math.floor(shaftLength/subShaftSpacing) do
    drt.fwd(i*subShaftSpacing); turtle.turnLeft();
    distance = 0;
    for j=1, subShaftLength do
        if drt.digA() then
            turtle.turnLeft(); turtle.turnLeft();
                drt.fwd(distance);
            turtle.turnRight();
                drt.fwd(subShaftSpacing*i);
            for k=1, 16 do
                turtle.select(k);
                turtle.drop(64);
            end
            turtle.select(1);
            turtle.turnLeft(); turtle.turnLeft();
                drt.fwd(subShaftSpacing*i);
            turtle.turnLeft();
                drt.fwd(distance);
        end
    end
    turtle.turnLeft(); turtle.turnLeft();
    drt.fwd(distance);
    distance = 0;
    for j=1, subShaftLength do
        if drt.digA() then
            turtle.turnLeft(); turtle.turnLeft();
                drt.fwd(distance);
            turtle.turnLeft();
                drt.fwd(subShaftSpacing*i);
            for k=1, 16 do
                turtle.select(k);
                turtle.drop(64);
            end
            turtle.select(1);
            turtle.turnLeft(); turtle.turnLeft();
                drt.fwd(subShaftSpacing*i);
            turtle.turnRight();
                drt.fwd(distance);
        end
    end
    turtle.turnLeft(); turtle.turnLeft();
    drt.fwd(distance);
    turtle.turnLeft();
    drt.fwd(subShaftSpacing*i);
    for m=1, 16 do
        turtle.select(m);
        turtle.drop(64);
    end
    turtle.select(1);
    turtle.turnLeft(); turtle.turnLeft();
end

print("DONE");
print("Total Blocks mined: "..drt.blocksMined);
sleep(2);
drt.clc();