mine code

minecraft_storm

Feb 24th, 2021 (edited)

103

Never

Add comment

Not a member of Pastebin yet? Sign Up, it unlocks many cool features!

Lua 5.87 KB | None | 0 0

raw download clone embed print report

--[[
Known Issues:
Also, allow this to work with fuel, though this was originally
built with fuel disabled, if it runs in a world that requires fuel
it may get stuck if its not fueled properly.
]]
local dn = 15 -- Distance notification, basically tells you how far the turtle has dug in increments
local length, walk = ...
local delay = 0.25 -- This is to accomodate Sand falling, or obsidian forming
local sendaddress = 0
local active = false
modem = peripheral.wrap("right")
modem.transmit(0,1,"new")
modem.close(0)
modem.open(1)
msg = nil
while msg ~= "send" do
event, side, recive, send, msg = os.pullEvent("modem_message")
print("waiting for reciveaddress")
end
local reciveaddress = send
modem.transmit(sendaddress,reciveaddress,"reciveaddress"..reciveaddress)
print("send address"..sendaddress.." : reciveaddress"..reciveaddress)
modem.transmit(sendaddress,reciveaddress,"device ok")
msg = nil
while active == false do
print("waiting for commands")
os.queueEvent("run", 2, "nil")
local event, par1, par2, par3, par4, par5 = os.pullEvent()
if event == "modem_message" then
side = par1
recive = par2
send = parm3
msg = par4
dist = par5
end
if string.find(msg,",") ~= nil then
msg1 = string.sub(msg, 0, string.find(msg,","))
msg2 = string.sub(msg, string.find(msg,",")+1, msg:len())
print(msg1)
print(msg2)
end
end
if walk == 'true' then
walk = true
else
walk = false
end
--These variables keep track of the Turtles position and
--orientation relative to the turtles Starting Position
X = 0
Y = 0
Z = 0
O = 0
--[[
Orientation List
Forward = 0
Right = 1
Back = 2
Left = 3
]]--
-- These functions are used to keep track of
-- The Turtles Position Relative to its
-- Starting Point
function left(q)
if q == nil then q = 1 end
for i=1,q do
turtle.turnLeft()
if O == 0 then
O = 3
else
O = O - 1
end
end
return true
end
function right(q)
if q == nil then q = 1 end
for i=1,q do
turtle.turnRight()
if O == 3 then
O = 0
else
O = O + 1
end
end
return true
end
function up(q)
if q == nil then q = 1 end
for i=1,q do
while not turtle.up() do
digUp()
turtle.up()
sleep(delay)
end
Y = Y + 1
end
return true
end
function down(q)
if q == nil then q = 1 end
for i=1,q do
while not turtle.down() do
digDown()
turtle.attackDown()
sleep(delay)
end
Y = Y - 1
end
return true
end
function forward(q)
if q == nil then q = 1 end
for i=1,q do
while not turtle.forward() do
turtle.dig()
turtle.attack()
sleep(delay)
end
if O == 0 then
X = X + 1
elseif O == 1 then
Z = Z + 1
elseif O == 2 then
X = X - 1
elseif O == 3 then
Z = Z - 1
end
end
return true
end
function back()
right()
right()
forward()
left()
left()
return true
end
function orient(arg1)
while arg1 ~= O do
right()
end
return true
end
function dig()
while turtle.detect() do
turtle.dig()
sleep(delay)
end
return true
end
function digUp()
while turtle.detectUp() do
turtle.digUp()
sleep(delay)
end
return true
end
function digDown()
while turtle.detectDown() do
turtle.digDown()
sleep(delay)
end
return true
end
--[[ Tells turtle where to go for longer movements,
such as going to and from the chest.
This may error if theres blocks in the way, but
Given the way we will have the turtle move in this
program, it will be fine. How ever if I were to
copy this function over to another program, I'd
probably fix this issue.]]
function go(lx,ly,lz)
if X < lx then
orient(0)
for i=1,(lx-X) do
forward()
end
end
if X > lx then
orient(2)
for i=1,X-lx do
forward()
end
end
if Y < ly then
for i=1,ly-Y do
up()
end
end
if Y > ly then
for i=1,Y-ly do
down()
end
end
if Z < lz then
orient(1)
for i=1,lz-Z do
forward()
end
end
if Z > lz then
orient(3)
for i=1,Z-lz do
forward()
end
end
end
-- Deposits Items into a chest
-- Warning! This may error if
-- the chest is full, so make sure
-- its emptied
function deposit()
for i=1,16 do
turtle.select(i)
while turtle.drop() == false and turtle.getItemCount() ~= 0 do -- Waits until turtle can deposit item
sleep(1)
end
turtle.drop()
end
turtle.select(1)
return true
end
--[[
This function is what tells the
turtle to mine and when to go back
to empty its inventory
]]--
function mine()
dig()
forward()
digUp()
digDown()
up()
left()
dig()
right(2)
dig()
down()
dig()
left(2)
dig()
down()
dig()
right(2)
dig()
left()
up()
end
-- Checks if turtle is full
function check()
if turtle.getItemCount(15) == 0 then -- Checks second last slot. I'd like to leave 2 slots empty just to be safe
return false
else
return true
end
end
function notify(include)
if X % dn == 0 and X ~= 0 then
print("The turtle has traveled "..X.."/"..length+include.." blocks so far")
end
return true
end
local dni = 0 -- Blocks for distance notification to include in length, from the walk program
if walk then
while turtle.detect() == false do
forward()
dni = dni + 1
notify(dni) -- Notifies Distance
end
end
for i=1,length do
mine()
notify(dni) -- Notifies Distance
if turtle.getFuelLevel() ~= "unlimited" and turtle.getFuelLevel() < 100 then
for f=0, 16 do
turtle.select(f)
local valid = turtle.refuel(0)
if valid then
turtle.refuel(10)
end
end
end
if check() then -- Checks if turtle should deposit items
local lx,ly,lz = X,Y,Z
go(0,0,0)
orient(2) -- Faces Chest
deposit()
orient(0)
go(lx,ly,lz)
end
end
-- Returns to chest and deposits items before ending program
go(0,0,0)
orient(2) -- Faces Chest
deposit()
orient(0)

Add Comment

Please, Sign In to add comment