Joel_Mining_04

-- Joel Mining
-- V0.0

--
x_akt=0
y_akt=1
x_last=0
y_last=0
dir_akt_r=true
print ("Width")
y_eingabe = read("")
y_max=y_eingabe-4
while true do
takeFuel()
refueling()
turn_initial()
digging()

-----------FUEL FUNCTIONS-----------

-- Take Fuel from Inventory above
function takeFuel()
    turtle.select(16)
	if turtle.suckUp(turtle.getItemSpace())==false then
		while sleep(3600) do
		--wait until there is more Fuel
	end --while
	end --if
	turtle.select(1)
end --takeFuel()

-- refueling Procedure
function refueling()
    turtle.select(16)
	if turtle.refuel() == false then
		goBack()
	end --if
	turtle.select(1)
end --refueling()

-----------DROPING ITEMS------------

-- DropAll into Inventory below
function dropAll()
	for i_inv=1, 15 do
		turtle.select(i_inv)
		if turtle.dropDown() == false then
			while true do
			--wait until Inventory is empty
			end --while
		end --if
	end --for
	free_space=true
	turtle.select(1)
end --dropAll()

-----------DIGGING AND MOVEING-------

-- Turn around
function turnAround()
    turtle.turnRight()
    turtle.turnRight()
end --turnAround()

-- Create the turn_initial function
function turn_initial()
  turtle.dig()
  while turtle.forward() == false do		--falls Stein im weg
    turtle.dig()
  end --while
  x_akt = x_akt + 1
  turtle.turnRight()
end --turn_initial

-- Create the turn_initial function
function turn_initial()
  turtle.dig()
  while turtle.forward() == false do		--falls Stein im weg
    turtle.dig()
  end --while
  x_akt = x_akt + 1
  turtle.turnRight()
  dir_akt_r=true
end --turn_initial

-- Create the turn_l function
function turn_l()
  turtle.dig()
  while turtle.forward() == false do		--falls Stein im weg
    turtle.dig()
  end --while
  y_akt = y_akt + 1
  turtle.turnLeft()
  turtle.dig()
  while turtle.forward() == false do		--falls Stein im weg
   turtle.dig()
  end --while
  x_akt = x_akt + 1
  turtle.turnLeft()
  dir_akt_r=false
  return true
end --turn_l

-- Create the turn_r function
function turn_r()
  turtle.dig()
  while turtle.forward() == false do		--falls Stein im weg
    turtle.dig()
  end --while
  y_akt = y_akt - 1
  turtle.turnRight()
  turtle.dig()
  while turtle.forward() == false do		--falls Stein im weg
   turtle.dig()
  end --while
  x_akt = x_akt + 1
  x_last = x_akt
  turtle.turnRight()
  dir_akt_r=true
  return true
end --turn_l

-- Digging
function digging()
	if dir_akt_r==true then
		for i_r=1, y_max do
			turtle.dig()
			y_akt=y_akt+1
			i_r=i_r+1
		end --for
		y_last=y_akt
		turn_l()
	else
		for i_l=1, y_max do
			turtle.dig()
			y_akt=y_akt-1
			i_l=i_l+1
		end --for
		y_last=y_akt
		turn_r()
	end --if
	refueling()
	free_space=0
	for i_count=1, 15 do
		turtle.select(i_count)
		if turtle.getItemSpace()==64 then
			i_count=15
		else
			free_space=false
		end --if
	end --for
	turtle.select(1)
	if free_space==false then
		goBack()
	end --if
end --digging()

-- Resume Digging
function resumeDigging()
  for x_akt=0,x_last-1 do
    while turtle.forward() == false do		--falls Stein im weg
      turtle.dig()
    end --while
	x_akt=x_akt+1
  end --for
  turtle.turnRight()
  dir_akt_r=true
  digging()
end --resumeDigging()

-- GoBack
function goBack()
  if dir_akt_r ==true then
	turtle.turnRight()
	for i_x=1, x_last do
		while turtle.forward() == false do		--falls Stein im weg
			turtle.dig()
		end --while
		x_akt = x_akt-1
	end --for
	turtle.turnRight()
	for i_y=1, y_last do
		while turtle.forward() == false do		--falls Stein im weg
			turtle.dig()
		end --while
		y_akt=y_akt-1
	end --for
	turtle.turnLeft()
	while turtle.forward() == false do		--falls Stein im weg
		turtle.dig()
	end --while
	x_akt=x_akt-1
  else
	turtle.turnLeft()
	for i_x=1, x_last do
		while turtle.forward() == false do		--falls Stein im weg
			turtle.dig()
		end --while
		x_akt = x_akt-1
	end --for
	turtle.turnRight()
	for i_y=1, y_last do
		while turtle.forward() == false do		--falls Stein im weg
			turtle.dig()
		end --while
		y_akt=y_akt-1
	end --for
	turtle.turnLeft()
	while turtle.forward() == false do		--falls Stein im weg
		turtle.dig()
	end --while
	x_akt=x_akt-1
  end --if
  takeFuel()
  dropAll()
  turnAround()
  resumeDigging()
end --goBack()
end --while true