Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- shell.run("clear")
- function move3vor() --Gräbt sich 3 mal nach vorne
- for e=1,3 do
- turtle.attack()
- turtle.dig()
- while turtle.detect()==true do
- turtle.attack()
- turtle.dig()
- turtle.attack()
- end
- turtle.forward()
- turtle.attack()
- turtle.digUp()
- end
- end
- function turnAround()
- turtle.turnLeft()
- turtle.turnLeft()
- end
- function schrittvor()
- turtle.attack()
- turtle.dig()
- while turtle.detect()==true do --Überprüft ob noch Sand, Kies oder Mob vor einem ist
- turtle.attack()
- turtle.dig()
- end
- turtle.attack()
- turtle.forward()
- turtle.attack()
- turtle.digUp()
- end
- function gang() --Gräbt einen Gang in eine Richtung
- for i=1,g do
- schrittvor()
- end
- turnAround()
- for z=1,g do
- schrittvor()
- r=r+1
- if r==l+1 then
- fackel()
- r=1
- end
- end
- end
- function fackel()
- if turtle.getItemCount(16)==0 then --Überprüft ob Fackel in Slot 16 ist
- else --Wenn Fackel da ist wird Fackel gesetzt
- turnAround()
- turtle.select(16)
- turtle.place()
- turnAround()
- end
- end
- function ablegen() --Legt komplettes Inventar außer den Fackelslot ab
- for d=1,15 do
- turtle.select(d)
- turtle.drop(64)
- end
- end
- b=1
- print("Zum benutzen des Strip Programms wird eine Kiste und Fackeln benötigt.\n")
- print("Vor Beginn stelle die Kiste hinter die Turtle.")
- print("Wenn vorhanden lege Fackeln in den untersten rechten Slot (Slot 16).\n")
- print("Wie viele Gaenge?") --Abfrage nach Ganganzahl
- f=tonumber(read())
- print("Wie lang sollen die Gaenge sein?") --Abfrage nach Ganglänge
- g=read()
- print("Abstand der Fackeln?") --Abfrage nach dem Abstand der Fackeln
- l=read()
- r=1
- print("Nach wie vielen Gaengen soll entleert werden?") --Abfrage nach der entleerung
- k=read()
- shell.run("clear")
- for a=1,f do --Hauptprogramm
- move3vor()
- turtle.turnLeft()
- gang() --Linker Gang
- gang() --Rechter Gang
- turtle.turnRight()
- b=b+1
- if a==f then --Wenn Ende dann zurück zum Ausgang
- turnAround()
- for c=a ,1,-1 do
- move3vor()
- end
- ablegen()
- else
- if b==k+1 then --Fährt zurück zur Kiste
- turnAround()
- for c=a,1,-1 do
- move3vor()
- end
- ablegen()
- turnAround()
- for c=1,a do
- move3vor()
- b=1
- end
- end
- end
- end
- turnAround()
- print("Programmende Strip")
- print("Erwarte neue Befehle")
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement