p=peripheral.wrap("Left")
 full = false
 Fuel = true
 cposi = 0
 pposi = 0
cposiB = 0
 pposiB = 0
branch = false
 cposiB = 0

function forward()
  p=peripheral.wrap("left")
  moved = turtle.forward()
  while not(moved) do
    sleep(0.5)
    p.dig()
    moved=turtle.forward()
  end
end

function checkInv()
  if turtle.getItemCount(15) ~= 0 then
     full = true
  end
end

function checkFuel()
CFuel = turtle.getFuelLevel()
   if not(branch) then
    if CFuel <= cposi then
      Fuel = false
    end
    if CFuel <= cposi + 5 then
      Fuel = false
    end
   else
     if CFuel <= cposi or CFuel <= 5+cposi or CFuel <= 42+cposi then
       Fuel =false
     end
   end
end



function gohome()
  while cposi ~= 0 do
      forward()
      cposi = cposi-1
  end
end

function gomine()
  while cposi ~= pposi do
      forward()
      cposi = cposi+1
  end
end

function home()
  turtle.turnLeft()
  turtle.turnLeft()
  gohome()
  turtle.turnLeft()
  turtle.turnLeft()
  for i=2,15 do
    turtle.select(i)
    turtle.dropDown()
  end
  full = false
  if turtle.getItemCount(16) > 64 then
    turtle.select(16)
    turtle.dropUp()
    turtle.suckUp()
    turtle.select(1)
  end
  if turtle.getFuelLevel() < 2*pposi then

    while turtle.getItemCount(1) ~= 1 do
    turtle.transferTo(2,1)
    end
    turtle.select(2)
    turtle.refuel()
    turtle.select(1)
  end
  while turtle.getFuelLevel() < 2*pposi do
    print("out of Fuel")
    sleep(30)
    if turtle.getItemCount(1) ~= 1 then
    while turtle.getItemCount(1) ~= 1 do
    turtle.transferTo(2.1)
    end
    end
    turtle.select(2)
    turtle.refuel()
    turtle.select(1)
  end
  Fuel = true
  gomine()
end

function ifhomeL()
   checkInv()
   if full then
     turtle.turnRight()
     turtle.turnRight()
     while cposiB ~= 0 do
       forward()
       cposiB = cposiB - 1
     end
     turtle.turnLeft()
     home()
     turtle.turnLeft()
     while cposiB ~= pposiB do
       forward()
       cposiB = cposiB + 1
     end
  end
end

function ifhomeR()
   checkInv()
   if full then
     turtle.turnRight()
     turtle.turnRight()
     while cposiB ~= 0 do
       forward()
       cposiB = cposiB - 1
     end
     turtle.turnRight()
     home()
     turtle.turnRight()
     while cposiB ~= pposiB do
       forward()
       cposiB = cposiB + 1
     end
  end
end

function gobranchLeft()
  pposiB = 0
  turtle.turnLeft()
  while cposiB ~= 21 do
    pposiB = pposiB + 1
    cposiB = cposiB + 1
    ifhomeL()
    forward()
    ifhomeL()
    p.digUp()
    ifhomeL()
    p.digDown()
  end
  turtle.turnLeft()
  turtle.turnLeft()
  while cposiB ~= 0 do
       forward()
    if cposiB == 7 or cposiB== 14 then
        turtle.select(16)
        turtle.placeDown()
        turtle.select(1)
    end
       cposiB = cposiB - 1
  end
  pposiB= 0
turtle.turnRight()
end


function gobranchRight()
  pposiB = 0
  turtle.turnRight()
  while cposiB ~= 21 do
    pposiB = pposiB + 1
    cposiB = cposiB + 1
    ifhomeL()
    forward()
    ifhomeL()
    p.digUp()
    ifhomeL()
    p.digDown()
  end
  turtle.turnLeft()
  turtle.turnLeft()
  while cposiB ~= 0 do
       forward()
    if cposiB == 7 or cposiB== 14 then
        turtle.select(16)
        turtle.placeDown()
        turtle.select(1)
    end
       cposiB = cposiB - 1
  end
  pposiB= 0
  turtle.turnLeft()
end

function mineM()
turtle.select(1)
checkInv()
    n=0
  while n <= cposi  do
    n=n+4
  end
  if n == cposi and n==0 then
    branch = true
  end
  checkFuel()
  if full == true or Fuel==false then
    home()
  end
  if branch then
    gobranchLeft()
    checkFuel()
    checkInv()
    if not(Fuel) or full then
      home()
    end
    gobranchRight()
    branch=false
t=0
 while t <= cposi  do
    t=t+8
  end
  if t == cposi and not(t==0) then
    turtle.select(16)
    turtle.placeDown()
    turtle.select(1)
  end

    checkFuel()
    checkInv()
    if not(Fuel) or full then
      home()
    end
  end
  forward()
  cposi= cposi+1
  pposi= pposi+1
  checkInv()
  if full then
    home()
  end
  p.digUp()
  checkInv()
  if full then
    home()
  end
  p.digDown()
  checkInv()
  if full then
    home()
  end
  turtle.turnLeft()
  forward()
  checkInv()
  if full then
    turtle.turnRight()
    turtle.turnRight()
    forward()
    turtle.turnLeft()
    home()
    turtle.turnLeft()
    forward()
  end
  p.digDown()
    checkInv()
  if full then
    turtle.turnRight()
    turtle.turnRight()
    forward()
    turtle.turnLeft()
    home()
    turtle.turnLeft()
    forward()
 end
   p.digUp()
    checkInv()
  if full then
    turtle.turnRight()
    turtle.turnRight()
    forward()
    turtle.turnLeft()
    home()
    turtle.turnLeft()
    forward()
 end
    turtle.turnRight()
    turtle.turnRight()
    forward()
forward()
  if full then
    turtle.turnRight()
    turtle.turnRight()
    forward()
    turtle.turnRight()
    home()
    turtle.turnRight()
    forward()
 end
p.digUp()
    checkInv()
  if full then
    turtle.turnRight()
    turtle.turnRight()
    forward()
    turtle.turnRight()
    home()
    turtle.turnRight()
    forward()
 end
p.digDown()
    checkInv()
  if full then
    turtle.turnRight()
    turtle.turnRight()
    forward()
    turtle.turnRight()
    home()
    turtle.turnRight()
    forward()
 end
    turtle.turnRight()
    turtle.turnRight()
    forward()
    turtle.turnRight()
end

tArgs={...}
q = tArgs[1]
target= q*4
while pposi~= target do
mineM()
end