-- ** Stripmining Programm **
-- ** © 2013 SemOnLP       **
-- **************************
-- Changelog
-- 09.09.13 - V1.0 = Veroeffentlicht
-- 12.02.14 - V2.0 = Einstellungen speichern, neue Anzeige
-- 23.07.14 - V2.1 = Fehler beim Fackeln setzten im Seitengang

--start: block der verhindert das der hautpfad unterbrochen wird


local component = require("component")
local shell = require("shell")
local term = require("term")
local fs = require("filesystem")


function Sicherheitspfad()
	if robot.detectDown() == false then -- wen kein block unter der turel ist
		robot.select(1) -- slot 1 auswaehlen
    	robot.placeDown() -- und unter die turel setzten
	end
end


--end: block der verhindert das der hautpfad unterborchen wird

--start: hier wird der Hauptgang gegraben
function Mittelgang()
	NachVorne() -- 1 block nach vorne mit der pruefung ob die Turel fahren konnte
	Sicherheitspfad() -- wird nur im Hauptgang gemacht, prueft ob unter der Turtel ein Block ist wen nein setzt sie einen aus slot 1
	KiesUp() -- haut den block uebersich weg, koennt sein das dan noch kies nach faellt

	NachVorne() -- 1 block nach vorne mit der pruefung ob die Turel fahren konnte
	Sicherheitspfad() -- wird nur im Hauptgang gemacht, prueft ob unter der Turtel ein Block ist wen nein setzt sie einen aus slot 1
	KiesUp() -- haut den block uebersich weg, koennt sein das dan noch kies nach faellt

	Fackel("mitte") -- fackel auf der rechten seite setzten
	NachVorne() -- 1 block nach vorne mit der pruefung ob die Turel fahren konnte
	Sicherheitspfad() -- wird nur im Hauptgang gemacht, prueft ob unter der Turtel ein Block ist wen nein setzt sie einen aus slot 1
	KiesUp() -- haut den block uebersich weg, koennt sein das dan noch kies nach faellt
end
--end: hier wird der Hauptgang gegraben

--start: baut einen Seitengang
function Seitengang()
	for i = 1, laengeSeitengang, 1 do -- grabe dich in den gang
		NachVorne() -- 1 block nach vorne mit der pruefung ob die Turel fahren konnte
		KiesUp() -- haut den block uebersich weg, koennt sein das dan noch kies nach faellt
	end

	robot.turnRight() -- umdrehen
	robot.turnRight() -- umdrehen
	for i = laengeSeitengang, 1, -1 do -- komm zur mitte zurueck
		if (i % fackelnSeitengang == 0 and fackelnSeitengang ~= 0) then -- wenn fackeln gesetzt werden sollen und diese dem abastand entsprechen
			Fackel("seite")
		end
		NachVorne() -- 1 block nach vorne mit der pruefung ob die Turel fahren konnte
	end
end
--end: baut einen Seitengang

--start: geht 1 block nach vorne
function NachVorne()
	while robot.detect() do -- prueft ob ein block vor der turel ist
		robot.swing()
		sleep(0.25)
	end

	while(robot.forward() == false) do --wenn er nicht fahren konnte
		robot.swing()  -- einmal abbauen
		robot.swing() -- einmal zuschlagen
	end
end
--end: geht 1 block nach vorne

--start: beim abbauen uebersich ob kies nachfaell, wen ja solange abbauen bis nichts mehr kommt
function KiesUp()
	while robot.detectUp() do -- prueft ob ueber ihm noch etwas ist
		robot.swingUp() -- haut den block ueber sich ab
		sleep(0.25) -- wartet, funktioniert nur wen der block direck nachfaellt ist ein block
	end
end
--end: beim abbauen uebersich ob kis nachfaell, wen ja solange abbauen bis nichts mehr kommt

--start: plaziert die Fackel
function Fackel(gang) -- ueber gibt gang oder seite
	if (fakelanzahl1 ~= 0) then
		robot.select(slotFackeln1) -- waehlt die Fackeln aus
		fakelanzahl1 = fakelanzahl1 - 1
	elseif (fakelanzahl2 ~= 0) then
		slotFackeln1 = 0 -- setzt die slotz zurueck zum entleeren der kiste
		robot.select(slotFackeln2) -- waehlt die Fackeln aus
		fakelanzahl2 = fakelanzahl2 - 1
	elseif (fakelanzahl3 ~= 0) then
		slotFackeln1 = 0 -- setzt die slotz zurueck zum entleeren der kiste
		slotFackeln2 = 0 -- setzt die slotz zurueck zum entleeren der kiste
		robot.select(slotFackeln3) -- waehlt die Fackeln aus
		fakelanzahl3 = fakelanzahl3 - 1
	else
		slotFackeln1 = 0 -- setzt die slotz zurueck zum entleeren der kiste
		slotFackeln2 = 0 -- setzt die slotz zurueck zum entleeren der kiste
		slotFackeln3 = 0 -- setzt die slotz zurueck zum entleeren der kiste
		return -- keine fackeln mehr mach nichts
	end

	if (gang == "seite") then
			robot.placeUp() -- plaziert die Fackel ueber sich
			robot.select(1) -- waehlt wieder slot 1 oder den ersten der dan frei ist
	else
		if (robot.back()) then-- plaziert die fackel wen er 1 block zurueck fahren konnte
			robot.placeUp() -- plaziert die Fackel ueber sich
			NachVorne() -- geht wieder nach vorne
		end
	end
	robot.select(1) -- waehlt wieder slot 1 oder den ersten der dan frei ist
end
--end: plaziert die Fackel

--start: Steuerung fuer Hauptgang und Seitengang
function Strip()
	Mittelgang() -- hier wird der Hauptgang gegraben
	robot.turnRight() -- startposition fuer die linke seite
	Seitengang() -- graebt den ersten seitengang und kommt zurueck zur mitte
	Seitengang() -- graebt den zweiten seitengang und kommt zurueck zur mitte
end
--end: Steuerung fuer Hauptgang und Seitengang

--start: entleere das inventar in die endertruhe
function enderTruhe()
	if (endertruhe == 0) then -- wen keine kiste ausgewaehlt ist nicht in endertruhe leeren
		return
	end
	while robot.detect() do -- die Truhe braucht platz um hingestell werden zu koennen also wird solange gegraben bis platz da ist
		robot.swing()
		sleep(0.5)
	end
	robot.select(slotEndertruhe) -- Truhe auswaehlen
	robot.place() -- Truhe plazieren
	for i = 1,16 do -- k dient hier als zaehler um jeden platz leer zu machen
		robot.select(i)
		if (robot.count(i) == 0 and i ~= slotEndertruhe and i ~= slotFackeln1 and i ~= slotFackeln2 and i ~= slotFackeln3) then -- stop beachte die fackeln umzusetzend
			break -- hier wird abgebrochen wenn der slot leer ist
			      -- eine schneller entladung der kist ist somit gegeben ^^
		elseif (robot.count(i) ~= 0 and i ~= slotEndertruhe and i ~= slotFackeln1 and i ~= slotFackeln2 and i ~= slotFackeln3) then
			robot.drop() -- legt die items in aus dem slot in die truhe
		end
	end
	robot.select(slotEndertruhe) -- waehlt slot 15 aus
	robot.swing() -- und nimmt die truhe wieder auf
	robot.select(1) -- waehlt wieder slot 1 oder den ersten der dan frei ist
end
--end: entleere das inventar in die endertruhe

--start: graebt den Tunnel solange wie eingegeben wurde
function tunnel()
	statusBildschirm(0) -- bereinigt den Bildschirm beim Start des Tunnelgrabens
	kistenabstand = entleerungEndertruhe  -- nach diesem gang wird das 1 mal die truhe geleert
	for aktuellergang = 1, ganganzahl, 1 do -- schleife die soviele gaenge macht wie eingeben
		Strip() -- hier wird der hauptgang mit einem Tunnel links und rechts gegraben
		-- entwerder nur nach links drehen oder nach links drehen und die kiste setzten
		if (aktuellergang  == kistenabstand and aktuellergang ~= ganganzahl) then
			robot.turnLeft() -- gehe einmal nach links
			kistenabstand = kistenabstand + entleerungEndertruhe -- kistenabstand wieder 3 hoch
			enderTruhe() -- entleer die in die Enertrue
		elseif (aktuellergang  == ganganzahl) then -- letzter gang nach rechts gehen und in die Truhe entlehren
			robot.turnRight() -- zurueck in gang drehen fuer die fahrt zur Ausgangsposition
			enderTruhe() -- es war der letzte gang, sprich stell die kist das letzte mal und entleeren
		else
			robot.turnLeft() -- gehe nur einmal nach lings und mach mit dem hauptgan weiter
		end
		statusBildschirm(aktuellergang) -- Aktuallisierung des Bildschirms wenn ein Gang gegraben wurde (aktuellergang muss uebergeben werden)
	end
end
--end: graebt den Tunnel solange wie eingegeben wurde

--start: Zurueck zur Ausgangsposition
function back()
	for a = 1,ganganzahl * 3 do
		NachVorne()
	end
end
--end: Zurueck zur Ausgangsposition

--start: Aktuallisierung des Bildschirms wenn ein Gang gegraben wurde
function statusBildschirm(aktuellergang)
	-- start: Zeigt das Fuel-Level an
	term.setCursor( 1, 3)
	term.clearLine()

	term.setCursor( 1, 4)
	term.clearLine()
	if (endertruhe == 1) then
		print("Endertruhe: Ja")
	else
		print("Endertruhe: Nein")
	end

	-- start: Zeigt die anzahl der Fakeln an
	term.setCursor( 1, 5)
	term.clearLine()
	fackeln = fakelanzahl1 + fakelanzahl2 + fakelanzahl3
	print("Fackeln   : " .. fackeln)

	term.setCursor(1,7)
	term.clearLine()
	if (aktuellergang > 0) then
		print("Gang " .. aktuellergang .. " von " .. ganganzahl .. " wurde fertiggestellt!")
	else -- wen das programm startet
		term.setCursor(1,8)
		term.clearLine()
		term.setCursor(1,9)
		term.clearLine()
		term.setCursor(1,10)
		term.clearLine()
		term.setCursor(1,12)
		term.clearLine()
		robot.select(1) -- waehlt zum start slot 1 aus
	end
end
--end: Aktuallisierung des Bildschirms wenn ein Gang gegraben wurde


--START: Programmsteuerung eingabe
--start: Aktuellisuerung des Status fuer Fakeln, Endertruhe, und Fullevel
local function checkStatus()
	slotsAnzeige = {"_","_","_","_","_","_","_","_","_","_","_","_","_","_","_","_"}
	slotsAnzeige[slotEndertruhe] = "e"
	slotsAnzeige[slotFackeln1] = "f"
	slotsAnzeige[slotFackeln2] = "f"
	slotsAnzeige[slotFackeln3] = "f"
	slotsAnzeige[slotAutofuel] = "a"

	local blink = 0 -- wird benoetigt fuer das blinken der Warnung das das Fuellevel nidrig ist
	while true do --prueft endlos den status
		time() -- zeit die Uhrzeit oben rechts an

		-- start: Zeigt das Fuel-Level an
		term.setCursor( 1, 3)
		term.clearLine()
		-- start: Zeigt die aufladung des Fuel-Level an
		term.setCursor( 1, 7)
		term.clearLine()
		term.clearLine()
		ladeeinheiten = robot.count(tonumber(slotAutofuel)) -- Einheiten zum Aufladen aus slot 13
		if (ladeeinheiten == 1) then
			print("Hinweis:                       !".. slotsAnzeige[1] .. "!".. slotsAnzeige[2] .. "!".. slotsAnzeige[3] .. "!".. slotsAnzeige[4])
			print("Fuelaufladung um eine Einheit  !".. slotsAnzeige[5] .. "!".. slotsAnzeige[6] .. "!".. slotsAnzeige[7] .. "!".. slotsAnzeige[8])
			print("                               !".. slotsAnzeige[9] .. "!".. slotsAnzeige[10] .. "!".. slotsAnzeige[11] .. "!".. slotsAnzeige[12])
			print("                               !".. slotsAnzeige[13] .. "!".. slotsAnzeige[14] .. "!".. slotsAnzeige[15] .. "!".. slotsAnzeige[16])
		elseif (ladeeinheiten > 9) then
			print("Hinweis:                       !".. slotsAnzeige[1] .. "!".. slotsAnzeige[2] .. "!".. slotsAnzeige[3] .. "!".. slotsAnzeige[4])
			print("Fuelaufladung um " .. ladeeinheiten .. " Einheiten  !".. slotsAnzeige[5] .. "!".. slotsAnzeige[6] .. "!".. slotsAnzeige[7] .. "!".. slotsAnzeige[8])
			print("                               !".. slotsAnzeige[9] .. "!".. slotsAnzeige[10] .. "!".. slotsAnzeige[11] .. "!".. slotsAnzeige[12])
			print("                               !".. slotsAnzeige[13] .. "!".. slotsAnzeige[14] .. "!".. slotsAnzeige[15] .. "!".. slotsAnzeige[16])
		elseif (ladeeinheiten > 1) then
			print("Hinweis:                       !".. slotsAnzeige[1] .. "!".. slotsAnzeige[2] .. "!".. slotsAnzeige[3] .. "!".. slotsAnzeige[4])
			print("Fuelaufladung um " .. ladeeinheiten .. " Einheiten   !".. slotsAnzeige[5] .. "!".. slotsAnzeige[6] .. "!".. slotsAnzeige[7] .. "!".. slotsAnzeige[8])
			print("                               !".. slotsAnzeige[9] .. "!".. slotsAnzeige[10] .. "!".. slotsAnzeige[11] .. "!".. slotsAnzeige[12])
			print("                               !".. slotsAnzeige[13] .. "!".. slotsAnzeige[14] .. "!".. slotsAnzeige[15] .. "!".. slotsAnzeige[16])
		else
			print("                               !".. slotsAnzeige[1] .. "!".. slotsAnzeige[2] .. "!".. slotsAnzeige[3] .. "!".. slotsAnzeige[4])
			print("                               !".. slotsAnzeige[5] .. "!".. slotsAnzeige[6] .. "!".. slotsAnzeige[7] .. "!".. slotsAnzeige[8])
			print("                               !".. slotsAnzeige[9] .. "!".. slotsAnzeige[10] .. "!".. slotsAnzeige[11] .. "!".. slotsAnzeige[12])
			print("                               !".. slotsAnzeige[13] .. "!".. slotsAnzeige[14] .. "!".. slotsAnzeige[15] .. "!".. slotsAnzeige[16])
		end
		-- end: Zeigt die aufladung des Fuel-Level an

		-- start: Pruefung fuer die Endertruhe
		term.setCursor( 1, 4)
		term.clearLine()
		endertruhe = robot.count(tonumber(slotEndertruhe))
		if (endertruhe == 1) then
			print("Endertruhe: Ja")
			endertruhe = 1 --braucht man nicht ist nur zur sicherheit
		elseif (endertruhe > 1) then
			print("Endertruhe: Bitte nur 1 Kiste")
			endertruhe = 0
		else
			print("Endertruhe: Nein")
			endertruhe = 0
		end
		-- end: Pruefung fuer die Endertruhe

		-- start: Zeigt die anzahl der Fakeln an
		term.setCursor( 1, 5)
		term.clearLine()
		fackeln = robot.count(tonumber(slotFackeln1)) + robot.count(tonumber(slotFackeln2)) + robot.count(tonumber(slotFackeln3))
		if (fackeln == 0) then
			print("Fackeln   : Keine")
		elseif (fackeln == 1) then
			print("Fackeln   : " .. fackeln .. " (Eingabe 0 = ein Gang)")
		else
			print("Fackeln   : " .. fackeln .. " (Eingabe 0=" .. fackeln .." Gaenge)")
		end
		-- end: Zeigt die anzahl der Fakeln an

		term.setCursor(38,3)
		print("!a")
		term.setCursor(38,4)
		print("!e")
		term.setCursor(38,5)
		print("!f")
		term.setCursor(36, 12) -- setzt angezeigte curser zurueck zur eingabe
		sleep(0.4) -- minecraft minute dauert 0.8 Sekunden
	end
end
--end: Aktuellisuerung des Status fuer Fakeln, Endertruhe, und Fullevel

--start: Eingabe der Fackeln und Pruefung ob 0 oder zwischen 1 und 999 oder einstellungen
local function eingabeTunnellaenge()
	while true do -- ergibt eine endlosschleife bis man auf return kommt
		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine() -- loescht eventuell den Hilfetext
		term.setCursor(1, 12) -- setzt den curser hier her
		print("Anzahl Gaenge? (e = Einstellungen):") -- anzeige des Hilfetextes

		term.setCursor(36, 12) -- setzt position auf eingabe

		local inputstring = read() -- auswertung der eingabe
		if (tonumber(inputstring) ~= nil) then -- prueft ob eine Zahl eingegeben wurde
		   	ganganzahl = tonumber(inputstring) --macht aus dem Strin ein zahl
			if (ganganzahl >= 0 and ganganzahl <= 999) then -- wen die zahl zwischen 0 und 999 liegt alles ok
				if (ganganzahl == 0) then
					ganganzahl = fackeln
			    end
				einstellung = 0
				return -- wenn alles ok ist, beende die eingabe
			end
		end

		if (inputstring == "e") then
			einstellung = 1
			return -- einstellung aender
		else
			term.setCursor(1, 12) -- setzt den curser hier her
			term.clearLine()
			print("0 = Fakelanzahl oder 1-999 moeglich")
			sleep(1.5) -- zeit fuer die anzeigt des Hilfetextets
		end
	end
end
--end: Eingabe der Fackeln und Pruefung ob 0 oder zwischen 1 und 999 oder einstellungen

--start: eingabe der einstellungen fuer das programm
local function einstellungen()
	for i = 3, 10, 1 do -- loesch den bilschirm ab der dritten zeile
		term.setCursor(1,i) -- zeile fuer anzeige bereinigen
		term.clearLine() -- zeile fuer anzeige bereinigen
	end

	term.setCursor(1,12) -- zeile fuer anzeige bereinigen
	term.clearLine() -- zeile fuer anzeige bereinigen


	-- anzeige fuer die einstellungen
	term.setCursor(1, 3) -- setzt den curser in zeile 3
	print("Slot Endertruhe        : " .. slotEndertruhe) -- anzeige des Hilfetextes
	term.setCursor(1, 4) -- setzt den curser in zeile 3
	print("Slot eins fuer Fackeln : " .. slotFackeln1) -- anzeige des Hilfetextes
	term.setCursor(1, 5) -- setzt den curser in zeile 3
	print("Slot zwei fuer Fackeln : " .. slotFackeln2) -- anzeige des Hilfetextes
	term.setCursor(1, 6) -- setzt den curser in zeile 3
	print("Slot drei fuer Fackeln : " .. slotFackeln3) -- anzeige des Hilfetextes
	term.setCursor(1, 7) -- setzt den curser in zeile 3
	print("Slot Autofuelaufladung : " .. slotAutofuel) -- anzeige des Hilfetextes
	term.setCursor(1, 8) -- setzt den curser in zeile 3
	print("Laenge der Seitengaenge: " .. laengeSeitengang) -- anzeige des Hilfetextes
	term.setCursor(1, 9) -- setzt den curser in zeile 3
	print("Fakeln in Seitengaenge : " .. fackelnSeitengang) -- anzeige des Hilfetextes
	term.setCursor(1, 10) -- setzt den curser in zeile 3
	print("Entleerung Enderchest  : " .. entleerungEndertruhe) -- anzeige des Hilfetextes

	corsor = 3 -- eingabeposition, wird gebraucht bei der zeitanzeige
	einstellungenEndertruhe()
	term.setCursor(1, 3) -- setzt den curser in zeile 3
	print("Slot Endertruhe        : " .. slotEndertruhe) -- anzeige des Hilfetextes

	corsor = 4 -- eingabeposition, wird gebraucht bei der zeitanzeige
	einstellungenFackeln1()
	term.setCursor(1, 4) -- setzt den curser in zeile 3
	print("Slot eins fuer Fackeln : " .. slotFackeln1) -- anzeige des Hilfetextes

	corsor = 5 -- eingabeposition, wird gebraucht bei der zeitanzeige
	einstellungenFackeln2()
	term.setCursor(1, 5) -- setzt den curser in zeile 3
	print("Slot zwei fuer Fackeln : " .. slotFackeln2) -- anzeige des Hilfetextes

	corsor = 6 -- eingabeposition, wird gebraucht bei der zeitanzeige
	einstellungenFackeln3()
	term.setCursor(1, 6) -- setzt den curser in zeile 3
	print("Slot drei fuer Fackeln : " .. slotFackeln3) -- anzeige des Hilfetextes

	corsor = 7 -- eingabeposition, wird gebraucht bei der zeitanzeige
	einstellungenAutofuel()
	term.setCursor(1, 7) -- setzt den curser in zeile 3
	print("Slot Autofuelaufladung : " .. slotAutofuel) -- anzeige des Hilfetextes

	corsor = 8 -- eingabeposition, wird gebraucht bei der zeitanzeige
	einstellungenLaengeSeitengang()
	term.setCursor(1, 8) -- setzt den curser in zeile 3
	print("Laenge der Seitengaenge: " .. laengeSeitengang) -- anzeige des Hilfetextes

	corsor = 9 -- eingabeposition, wird gebraucht bei der zeitanzeige
	einstellungenFackelnSeitengang()
	term.setCursor(1, 9) -- setzt den curser in zeile 3
	print("Fakeln in Seitengaenge : " .. fackelnSeitengang) -- anzeige des Hilfetextes

	corsor = 10 -- eingabeposition, wird gebraucht bei der zeitanzeige
	einstellungenEntleerungEnderchest()
	term.setCursor(1, 10) -- setzt den curser in zeile 3
	print("Entleerung Enderchest  : " .. entleerungEndertruhe) -- anzeige des Hilfetextes
end

--end: eingabe der einstellungen fuer das programm

--start: eingabe der einstellungen fuer das programm
function einstellungenEndertruhe()
	while true do -- ergibt eine endlosschleife bis man auf return kommt
		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine() -- loescht eventuell den Hilfetext
		term.setCursor(1, 12) -- setzt den curser hier her
		print("Slot fuer die Endertruhe") -- anzeige des Hilfetextes

		term.setCursor(1, 3) -- setzt den curser in zeile 3
		term.clearLine()
		print("Slot Endertruhe        :") -- anzeige des Hilfetextes
		term.setCursor(26, 3) -- setzt position auf eingabe


		local inputstring1 = read() -- auswertung der eingabe
		if (tonumber(inputstring1) ~= nil) then -- prueft ob eine Zahl eingegeben wurde
		   	slotEndertruhe = tonumber(inputstring1) --macht aus dem Strin ein zahl
			if (slotEndertruhe >= 0 and slotEndertruhe <= 16) then -- wen die zahl zwischen 0 und 999 liegt alles ok
				if (slotEndertruhe == 0) then
					slotEndertruhe = 15
			    end
				return -- wenn alles ok ist, beende die eingabe
			end
		end

		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine()
		print("Nur Slot 1 bis 16 moeglich, 0=Standard")
		sleep(1.5) -- zeit fuer die anzeigt des Hilfetextets
	end
end

--start: eingabe der einstellungen fuer das programm
function einstellungenFackeln1()
	while true do -- ergibt eine endlosschleife bis man auf return kommt
		gleichslot = 0 -- erstmal keine ueberlagerung
		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine() -- loescht eventuell den Hilfetext
		term.setCursor(1, 12) -- setzt den curser hier her
		print("Slot eins fuer die Fackeln") -- anzeige des Hilfetextes

		term.setCursor(1, 4) -- setzt den curser in zeile 3
		term.clearLine()
		print("Slot eins fuer Fackeln :") -- anzeige des Hilfetextes
		term.setCursor(26, 4) -- setzt position auf eingabe


		local inputstring = read() -- auswertung der eingabe
		if (tonumber(inputstring) ~= nil) then -- prueft ob eine Zahl eingegeben wurde
		   	slotFackeln1 = tonumber(inputstring) --macht aus dem Strin ein zahl
			if (slotFackeln1 >= 0 and slotFackeln1 <= 16) then -- wen die zahl zwischen 0 und 999 liegt alles ok
				if (slotFackeln1 == 0) then
					slotFackeln1 = 16
				end

				if (slotFackeln1 ~= slotEndertruhe) then -- gleicher slot wie die endertruhe
					return -- wenn alles ok ist, beende die eingabe
				else
					gleichslot = 1 -- wen sich 2 slots ueberlagern wuerden
				end
			end
		end


		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine()
		if (gleichslot == 1) then
			print("Slot bereits in Verwendung")
		else
			print("Nur Slot 1 bis 16 moeglich, 0=Standard")
		end
		sleep(1.5) -- zeit fuer die anzeigt des Hilfetextets
	end
end
--end:
--start: eingabe der einstellungen fuer das programm
function einstellungenFackeln2()
	while true do -- ergibt eine endlosschleife bis man auf return kommt
		gleichslot = 0 -- erstmal keine ueberlagerung
		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine() -- loescht eventuell den Hilfetext
		term.setCursor(1, 12) -- setzt den curser hier her
		print("Slot zwei fuer die Fackeln") -- anzeige des Hilfetextes

		term.setCursor(1, 5) -- setzt den curser in zeile 3
		term.clearLine()
		print("Slot zwei fuer Fackeln :") -- anzeige des Hilfetextes
		term.setCursor(26, 5) -- setzt position auf eingabe


		local inputstring = read() -- auswertung der eingabe
		if (tonumber(inputstring) ~= nil) then -- prueft ob eine Zahl eingegeben wurde
		   	slotFackeln2 = tonumber(inputstring) --macht aus dem Strin ein zahl
			if (slotFackeln2 >= 0 and slotFackeln2 <= 16) then -- wen die zahl zwischen 0 und 999 liegt alles ok
				if (slotFackeln2 == 0) then
					slotFackeln2 = 12
			    end

				if (slotFackeln2 ~= slotEndertruhe and slotFackeln2 ~= slotFackeln1) then -- gleicher slot wie die endertruhe
					return -- wenn alles ok ist, beende die eingabe
				else
					gleichslot = 1 -- wen sich 2 slots ueberlagern wuerden
				end
			end
		end

		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine()
		if (gleichslot == 1) then
			print("Slot bereits in Verwendung")
		else
			print("Nur Slot 1 bis 16 moeglich, 0=Standard")
		end
		sleep(1.5) -- zeit fuer die anzeigt des Hilfetextets
	end
end
--end:
--start: eingabe der einstellungen fuer das programm
function einstellungenFackeln3()
	while true do -- ergibt eine endlosschleife bis man auf return kommt
		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine() -- loescht eventuell den Hilfetext
		term.setCursor(1, 12) -- setzt den curser hier her
		print("Slot drei fuer die Fackeln") -- anzeige des Hilfetextes

		term.setCursor(1, 6) -- setzt den curser in zeile 3
		term.clearLine()
		print("Slot drei fuer Fackeln :") -- anzeige des Hilfetextes
		term.setCursor(26, 6) -- setzt position auf eingabe


		local inputstring = read() -- auswertung der eingabe
		if (tonumber(inputstring) ~= nil) then -- prueft ob eine Zahl eingegeben wurde
		   	slotFackeln3 = tonumber(inputstring) --macht aus dem Strin ein zahl
			if (slotFackeln3 >= 0 and slotFackeln3 <= 16) then -- wen die zahl zwischen 0 und 999 liegt alles ok
				if (slotFackeln3 == 0) then
					slotFackeln3 = 8
			    end
				if (slotFackeln3 ~= slotEndertruhe and slotFackeln3 ~= slotFackeln1 and slotFackeln3 ~= slotFackeln2) then -- gleicher slot wie die endertruhe
					return -- wenn alles ok ist, beende die eingabe
				else
					gleichslot = 1 -- wen sich 2 slots ueberlagern wuerden
				end
			end
		end

		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine()
		if (gleichslot == 1) then
			print("Slot bereits in Verwendung")
		else
			print("Nur Slot 1 bis 16 moeglich, 0=Standard")
		end
		sleep(1.5) -- zeit fuer die anzeigt des Hilfetextets
	end
end
--end:

--start: eingabe der einstellungen fuer das programm
function einstellungenAutofuel()
	while true do -- ergibt eine endlosschleife bis man auf return kommt
		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine() -- loescht eventuell den Hilfetext
		term.setCursor(1, 12) -- setzt den curser hier her
		print("Slot fuer Autofuelaufladung beim Start") -- anzeige des Hilfetextes

		term.setCursor(1, 7) -- setzt den curser in zeile 3
		term.clearLine()
		print("Slot Autofuelaufladung :") -- anzeige des Hilfetextes
		term.setCursor(26, 7) -- setzt position auf eingabe


		local inputstring = read() -- auswertung der eingabe
		if (tonumber(inputstring) ~= nil) then -- prueft ob eine Zahl eingegeben wurde
		   	slotAutofuel = tonumber(inputstring) --macht aus dem Strin ein zahl
			if (slotAutofuel >= 0 and slotAutofuel <= 16) then -- wen die zahl zwischen 0 und 999 liegt alles ok
				if (slotAutofuel == 0) then
					slotAutofuel = 13
			    end
				if (slotAutofuel ~= slotEndertruhe and slotAutofuel ~= slotFackeln1 and slotAutofuel ~= slotFackeln2 and slotAutofuel ~= slotFackeln3) then -- gleicher slot wie die endertruhe
					return -- wenn alles ok ist, beende die eingabe
				else
					gleichslot = 1 -- wen sich 2 slots ueberlagern wuerden
				end
			end
		end

		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine()
		if (gleichslot == 1) then
			print("Slot bereits in Verwendung")
		else
			print("Nur Slot 1 bis 16 moeglich, 0=Standard")
		end
		sleep(1.5) -- zeit fuer die anzeigt des Hilfetextets
	end
end
--end:


--start: eingabe der einstellungen fuer das programm
function einstellungenLaengeSeitengang()
	while true do -- ergibt eine endlosschleife bis man auf return kommt
		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine() -- loescht eventuell den Hilfetext
		term.setCursor(1, 12) -- setzt den curser hier her
		print("Laenge eines Seitenganges") -- anzeige des Hilfetextes

		term.setCursor(1, 8) -- setzt den curser in zeile 3
		term.clearLine()
		print("Laenge der Seitengaenge:") -- anzeige des Hilfetextes
		term.setCursor(26, 8) -- setzt position auf eingabe


		local inputstring = read() -- auswertung der eingabe
		if (tonumber(inputstring) ~= nil) then -- prueft ob eine Zahl eingegeben wurde
		   	laengeSeitengang = tonumber(inputstring) --macht aus dem Strin ein zahl
			if (laengeSeitengang >= 0 and laengeSeitengang <= 999) then -- wen die zahl zwischen 0 und 999 liegt alles ok
				if (laengeSeitengang == 0) then
					laengeSeitengang = 5
			    end
				return -- wenn alles ok ist, beende die eingabe
			end
		end

		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine()
		print("Nur 0 bis 999 moeglich, 0=Standard")
		sleep(1.5) -- zeit fuer die anzeigt des Hilfetextets
	end
end
--end:

--start: eingabe der einstellungen fuer das programm
function einstellungenFackelnSeitengang()
	while true do -- ergibt eine endlosschleife bis man auf return kommt
		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine() -- loescht eventuell den Hilfetext
		term.setCursor(1, 12) -- setzt den curser hier her
		print("Abstand zwischen Fakeln im Seitengang") -- anzeige des Hilfetextes

		term.setCursor(1, 9) -- setzt den curser in zeile 3
		term.clearLine()
		print("Fakeln in Seitengaenge :") -- anzeige des Hilfetextes
		term.setCursor(26, 9) -- setzt position auf eingabe


		local inputstring = read() -- auswertung der eingabe
		if (tonumber(inputstring) ~= nil) then -- prueft ob eine Zahl eingegeben wurde
		   	fackelnSeitengang = tonumber(inputstring) --macht aus dem Strin ein zahl
			if (fackelnSeitengang <= laengeSeitengang) then -- wen die zahl zwischen 0 und 999 liegt alles ok
				if (fackelnSeitengang == 0) then
					fackelnSeitengang = 0
			    end
				return -- wenn alles ok ist, beende die eingabe
			else
				term.setCursor(1, 12) -- setzt den curser hier her
				term.clearLine()
				print("Seitenganz waere zu kurz")
				sleep(1.5) -- zeit fuer die anzeigt des Hilfetextets
			end
		end
	end
end
--end:

--start: eingabe der einstellungen fuer das programm
function einstellungenEntleerungEnderchest()
	while true do -- ergibt eine endlosschleife bis man auf return kommt
		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine() -- loescht eventuell den Hilfetext
		term.setCursor(1, 12) -- setzt den curser hier her
		print("Anzahl Gaenge bis zur leerung") -- anzeige des Hilfetextes

		term.setCursor(1, 10) -- setzt den curser in zeile 3
		term.clearLine()
		print("Entleerung Enderchest  :") -- anzeige des Hilfetextes
		term.setCursor(26, 10) -- setzt position auf eingabe


		local inputstring = read() -- auswertung der eingabe
		if (tonumber(inputstring) ~= nil) then -- prueft ob eine Zahl eingegeben wurde
		   	entleerungEndertruhe = tonumber(inputstring) --macht aus dem Strin ein zahl
			if (entleerungEndertruhe >= 0 and entleerungEndertruhe <= 999) then -- wen die zahl zwischen 0 und 999 liegt alles ok
				if (entleerungEndertruhe == 0) then
					entleerungEndertruhe = 3 -- standard
			    end
				return -- wenn alles ok ist, beende die eingabe
			end
		end

		term.setCursor(1, 12) -- setzt den curser hier her
		term.clearLine()
		print("Nur 0 bis 999 moeglich, 0=Standard")
		sleep(1.5) -- zeit fuer die anzeigt des Hilfetextets
	end
end
--end:


--start: Uhrzeit und Tag in Minecraft auslesen und anzeigen
function time()
	term.setCursor(1, 1) -- position auf Zeit setzten
	local day -- locale Variable fuer den Tag in Minecraft
	local zeit -- locale Variable fuer die Uhrzeit in Minecraft
	day = os.day() -- nicht im Gebrauch!
	zeit = textutils.formatTime(os.time(), true) -- wandelt die anzeige in das 24 Stunden Format
	if (string.len(zeit) == 4) then -- zeit Anzeigt vor oder nach 10 Uhr
		print("Systemhinweis               Zeit:  " .. zeit) -- vor 10 Uhr, es geht um die laenge
	else
		print("Systemhinweis               Zeit: " .. zeit) -- nach 10 Uhr
	end
end
--end: Uhrzeit und Tag in Minecraft auslesen und anzeigen
local function timeshow()
	while true do --prueft endlos den status
		term.setCursor(1,1)  -- position auf Zeit setzten
		local day -- locale Variable fuer den Tag in Minecraft
		local zeit -- locale Variable fuer die Uhrzeit in Minecraft
		day = os.day() -- nicht im Gebrauch!
		zeit = textutils.formatTime(os.time(), true) -- wandelt die anzeige in das 24 Stunden Format
		if (string.len(zeit) == 4) then -- zeit Anzeigt vor oder nach 10 Uhr
			print("Einstellungen               Zeit:  " .. zeit) -- vor 10 Uhr, es geht um die laenge
		else
			print("Einstellungen               Zeit: " .. zeit) -- nach 10 Uhr
		end

		term.setCursor(26, corsor) -- setzt angezeigte curser zurueck zur eingabe
		sleep(0.4) -- minecraft minute dauert 0.8 Sekunden
	end
end

--end: Programmsteuerung eingabe

--start: bereinigt den Bildschirm und baut das eingabe Fenster auf
function bildschirmStart()
	shell.execute("clear")
	print("Systemhinweis")
	print("=======================================")
	term.setCursor(1,6)
	term.clearLine()
	print("---------------------------------------")
	term.setCursor(1,11)
	print("---------------------------------------")
end
--end: bereinigt den Bildschirm und baut das eingabe Fenster auf

--start: zeigt an das die Turel fertig sit
function zeigtFertig()
	term.setCursor(1,10) -- zeile 10 fuer anzeige bereinigen
	term.clearLine() -- zeile 10 fuer anzeige bereinigen
	print("!!!Fertig - Programm beendet!!!") -- fertig meldung
	term.setCursor(1,12) -- letzte zeile bereinigen
	term.clearLine() -- letzte zeile bereinigen
end
--end: zeigt an das die Turel fertig sit

function einstellungenSpeichern()
	config = fs.open("strip.conf", "w") -- oeffent die config datei
	config.writeLine("slotEndertruhe       = " .. slotEndertruhe)
	config.writeLine("slotFackeln1         = " .. slotFackeln1)
	config.writeLine("slotFackeln2         = " .. slotFackeln2)
	config.writeLine("slotFackeln3         = " .. slotFackeln3)
	config.writeLine("slotAutofuel         = " .. slotAutofuel)
	config.writeLine("fackelnSeitengang    = " .. fackelnSeitengang)
	config.writeLine("laengeSeitengang     = " .. laengeSeitengang)
	config.writeLine("entleerungEndertruhe = " .. entleerungEndertruhe)
	config.close() -- schließt die einstellungen
end


function einstellungenLesen()
	config = fs.open("strip.conf", "r")
	if config then
		line = config.readLine()
		slotEndertruhe = tonumber(string.sub(line,24,30))
		line = config.readLine()
		slotFackeln1 = tonumber(string.sub(line,24,30))
		line = config.readLine()
		slotFackeln2 = tonumber(string.sub(line,24,30))
		line = config.readLine()
		slotFackeln3 = tonumber(string.sub(line,24,30))
		line = config.readLine()
		slotAutofuel = tonumber(string.sub(line,24,30))
		line = config.readLine()
		fackelnSeitengang = tonumber(string.sub(line,24,30))
		line = config.readLine()
		laengeSeitengang = tonumber(string.sub(line,24,30))
		line = config.readLine()
		entleerungEndertruhe = tonumber(string.sub(line,24,30))
		config.close()
	else
		slotEndertruhe = 15 -- Slot fuer die Endertruhe
		slotFackeln1 = 16    -- Slot fuer Fakeln 1
		slotFackeln2 = 12    -- Slot fuer Fakeln 2 stop
		slotFackeln3 = 8    -- Slot fuer Fakeln 3 stop
		slotAutofuel = 13    -- Slot fuer Autofuel
		fackelnSeitengang = 0 -- fackeln im seitengang, 0=keine
		laengeSeitengang = 5  -- laenge des seitengangs 0 = 5
		entleerungEndertruhe = 3 --nach wieielen gaengen wird die Endertruhe geleert, Standart 3    stop
	end
end


--**Hauptprogrammsteuerung
--Setzen der globale Variablen (diese sind ueberall verfuegbar)
endertruhe = 0           -- Endertruhe = nein
fackeln = 0              -- Fackeln = 0
ganganzahl = 0           -- Anzahl Gaenge = 0
fuellevel = 0            -- Fuel-Level = 0
einstellung = 0          -- keine einstellungen vornehmen
slotEndertruhe = 0       -- Slot fuer die Endertruhe
slotFackeln1 = 0         -- Slot fuer Fakeln 1
slotFackeln2 = 0         -- Slot fuer Fakeln 2 stop
slotFackeln3 = 0         -- Slot fuer Fakeln 3 stop
fakelanzahl1 = 0         -- anzahl der fakeln in slot 1 nach dem start
fakelanzahl2 = 0         -- anzahl der fakeln in slot 2 nach dem start
fakelanzahl3 = 0         -- anzahl der fakeln in slot 3 nach dem start
slotAutofuel = 0         -- Slot fuer Autofuel
fackelnSeitengang = 0    -- fackeln im seitengang, 0=keine
laengeSeitengang = 0     -- laenge des seitengangs 0 = 5
entleerungEndertruhe = 0 -- nach wieielen gaengen wird die Endertruhe geleert, Standart 3
slotsAnzeige = {"_","_","_","_","_","_","_","_","_","_","_","_","_","_","_","_"}
corsor = 0               -- line of the cursor
-- bereinigt den Bildschirm und baut das eingabe Fenster auf
bildschirmStart()
einstellungenLesen()
-- fuerht 2 funktionen gleichzeitig aus, eingab und aktuellisuerung der Fakeln, Endertruhe, und Fullevel

parallel.waitForAny(eingabeTunnellaenge, checkStatus)
while (einstellung == 1) do
	parallel.waitForAny(einstellungen,timeshow) -- bearbeitung der einstellung
	einstellungenSpeichern()
	bildschirmStart()
	einstellungenLesen()
	parallel.waitForAny(eingabeTunnellaenge, checkStatus)
end

--Laed die Turtel vor dem start wieder auf wen etwas in slot 13 abgelegt wurde und merke die fakeln
robot.select(slotAutofuel) -- Slot 13 auswaehlen
robot.refuel(robot.count(slotAutofuel)) -- auffuellung mit der anzahl Items in Slot 13

fakelanzahl1 = robot.count(slotFackeln1)
fakelanzahl2 = robot.count(slotFackeln2)
fakelanzahl3 = robot.count(slotFackeln3)


-- hier wird der tunnel gegraben
if (ganganzahl ~= 0) then -- mach das nur wen du auch wirklich was gemacht hast
	tunnel() -- vielleicht so oder doch ueber einen extra status anzeige
	back() -- hier komm die turtel wieder zurueck zum ausgangspunkt
end
--zeit an das die Turtel fertig ist
zeigtFertig()