Stripmining SemOnLP

-- ** Stripmining Programm **
-- ** © 2013 SemOnLP       **
-- **************************

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