Computercraft Stripmine2 (Turtle) (German)

--start: block der verhindert das der hautpfad unterborchen wird
function Sicherheitspfad()
        if turtle.detectDown() == false then -- wen kein block unter der turel ist
                turtle.select(1) -- slot 1 auswaehlen
        turtle.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() -- 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 b = 0, 4, 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

        turtle.turnRight() -- umdrehen
        turtle.turnRight() -- umdrehen
        for b = 0, 4, 1 do -- komm zur mitte zurueck
                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 turtle.detect() do -- prueft ob ein block vor der turel ist
                turtle.dig()
                sleep(0.25)
        end

        while(turtle.forward() == false) do --wenn er nicht fahren konnte
                turtle.dig()  -- einmal abbauen
                turtle.attack() -- 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 turtle.detectUp() do -- prueft ob ueber ihm noch etwas ist
                turtle.digUp() -- 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()
        if (turtle.back()) then-- plaziert die fackel wen er 1 block zurueck fahren konnte
                turtle.select(16) -- waehlt die Fackeln aus
                turtle.placeUp() -- plaziert die Fackel ueber sich
                NachVorne() -- geht wieder nach vorne
        end
        turtle.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
        turtle.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 turtle.detect() do -- die Truhe braucht platz um hingestell werden zu koennen also wird solange gegraben bis platz da ist
                turtle.dig()
                sleep(0.5)
        end
        turtle.select(15) -- Truhe auswaehlen
        turtle.place() -- Truhe plazieren
        for k = 1,14 do -- k dient hier als zaehler um jeden platz leer zu machen
                turtle.select(k)
                if turtle.getItemCount(k) == 0 then
                        break -- hier wird abgebrochen wenn der slot leer ist
                              -- eine schneller entladung der kist ist somit gegeben ^^
                end
                turtle.drop() -- legt die items in aus dem slot in die truhe
        end
        turtle.select(15) -- waehlt slot 15 aus
        turtle.dig() -- und nimmt die truhe wieder auf
        turtle.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()
        bildschirmRun() -- bereinigt den Bildschirm beim Start des Tunnelgrabens
        kistenabstand = 3 -- 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
                        turtle.turnLeft() -- gehe einmal nach links
                        kistenabstand = kistenabstand + 3 -- kistenabstand wieder 3 hoch
                        enderTruhe() -- entleer die in die Enertrue
                elseif (aktuellergang  == ganganzahl) then -- letzter gang nach rechts gehen und in die Truhe entlehren
                        turtle.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
                        turtle.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.setCursorPos( 1, 3)
        term.clearLine()
        fuellevel = turtle.getFuelLevel()
        print("Fuel-Level: " .. fuellevel)

        -- start: Zeigt die anzahl der Fakeln an
        term.setCursorPos( 1, 5)
        term.clearLine()
        fackeln = turtle.getItemCount(16)
        print("Fackeln   : " .. fackeln)

        term.setCursorPos(1,7)
        term.clearLine()
        print("Gang " .. aktuellergang .. " von " .. ganganzahl .. " wurde fertiggestellt!")
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()
        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.setCursorPos( 1, 3)
                term.clearLine()
                fuellevel = turtle.getFuelLevel()
                if (fuellevel < 500 and blink == 0) then
                        print("Fuel-Level: " .. fuellevel .. " !! Warnung !!")
                        blink = 1 -- setz blinken der Warnung zurueck
                else
                        print("Fuel-Level: " .. fuellevel)
                        blink = 0 -- setz blinken der Warnung zurueck
                end
                -- end: Zeigt das Fuel-Level an
                -- start: Zeigt die aufladung des Fuel-Level an
                term.setCursorPos( 1, 7)
                term.clearLine()
                term.clearLine()
                ladeeinheiten = turtle.getItemCount(13) -- Einheiten zum Aufladen aus slot 13
                if (ladeeinheiten == 1) then
                        print("Hinweis: Fuelaufladung um eine Einheit")
                elseif (ladeeinheiten > 1) then
                        print("Hinweis: Fuelaufladung um " .. ladeeinheiten .. " Einheiten")
                end
                -- end: Zeigt die aufladung des Fuel-Level an

                -- start: Pruefung fuer die Endertruhe
                term.setCursorPos( 1, 4)
                term.clearLine()
                endertruhe = turtle.getItemCount(15)
                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.setCursorPos( 1, 5)
                term.clearLine()
                fackeln = turtle.getItemCount(16)
                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.setCursorPos(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
local function eingabeTunnellaenge()
        while true do -- ergibt eine endlosschleife bis man auf return kommt
                term.setCursorPos(1, 12) -- setzt den curser hier her
                term.clearLine() -- loescht eventuell den Hilfetext
                term.setCursorPos(1, 12) -- setzt den curser hier her
                print("Anzahl Gaenge? (0 = Fackelanzahl) :") -- anzeige des Hilfetextes
                term.setCursorPos(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
                                return -- wenn alles ok ist, beende die eingabe
                        end
                end
                term.setCursorPos(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: Eingabe der Fackeln und Pruefung ob 0 oder zwischen 1 und 999

--start: Uhrzeit und Tag in Minecraft auslesen und anzeigen
function time()
        term.setCursorPos( 29, 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("Zeit:  " .. zeit) -- vor 10 Uhr, es geht um die laenge
        else
                print("Zeit: " .. zeit) -- nach 10 Uhr
        end
end
--start: Uhrzeit und Tag in Minecraft auslesen und anzeigen
--end: Programmsteuerung eingabe

--start: bereinigt den Bildschirm und baut das eingabe Fenster auf
function bildschirmStart()
        shell.run("clear") -- löscht allties auf dem Bildschirm
        print("Systemhinweis")
        print("=======================================")
        term.setCursorPos(1,6)
        term.clearLine()
        print("---------------------------------------")
        term.setCursorPos(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.setCursorPos(1,10) -- zeile 10 fuer anzeige bereinigen
        term.clearLine() -- zeile 10 fuer anzeige bereinigen
        print("!!!Fertig - Programm beendet!!!") -- fertig meldung
        term.setCursorPos(1,12) -- letzte zeile bereinigen
        term.clearLine() -- letzte zeile bereinigen
end
--end: zeigt an das die Turel fertig sit

--start: bereinigt den Bildschirm wen die turtel loslaeuft
function bildschirmRun()
        term.setCursorPos(1,7)
        term.clearLine()
        term.setCursorPos(1,12)
        term.clearLine()
        turtle.select(1) -- waehlt zum start slot 1 aus
end
--end: bereinigt den Bildschirm wen die turtel loslaeuft

--**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

-- bereinigt den Bildschirm und baut das eingabe Fenster auf
bildschirmStart()

-- fuerht 2 funktionen gleichzeitig aus, eingab und aktuellisuerung der Fakeln, Endertruhe, und Fullevel
parallel.waitForAny(eingabeTunnellaenge, checkStatus)

--Laed die Turtel vor dem start wieder auf wen etwas in slot 13 abgelegt wurde
        turtle.select(13) -- Slot 13 auswaehlen
        turtle.refuel(turtle.getItemCount(13)) -- auffuellung mit der anzahl Items in Slot 13

-- 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()