[1.7.10] ComputerCraft [1.74]

term[paste][/paste]setCursorPos(x, y)

write(" ")

term[paste][/paste]clearLine()

term[paste][/paste]setCursorPos(x, y)

write("ololo")

write(textutils[paste][/paste]formatTime(os[paste][/paste]time(), true))

При указании глубины(Depth) более нуля, черпашка выкопает впереди себя кубик 3*3*3 и полетит копать туннель вниз указанной глубины. Если длина туннеля(Tunnel length) будет более нуля то черепашка после того как до копает до нужной глубины пойдёт копать 3*3 туннель указанной длины. Так же самопальная защита от гравия есть(ух я с ней намучился) При указании глубины:0 а длины более нуля то черепашка сразу пойдет копать туннель 3*3 вперёд. В конце она вернёться назад и поставит сундучок(спасибо за код чувакам выше). И да, если уровень топлива упадет менее 20~40 то она скушает топливо. Вот и всё, спасибо что прочитали! P.S. Сундук класть в предпоследнею ячейку, а топливо в последнюю.

k=turtle[paste][/paste]getFuelLevel()print("Fuel level:"[paste][/paste][paste][/paste]k)print("Refuel? 1=Yes 0=Nope") p=tonumber(read()) if p>0 then print("One or more? 1=more 0=one")  u=tonumber(read())  if u==1 then   print("Quantity: ")   s=tonumber(read())    turtle[paste][/paste]select(16)    turtle[paste][/paste]refuel(s)    j=turtle[paste][/paste]getFuelLevel()    print("Fuel level:"[paste][/paste][paste][/paste]j)  else   print("Refuel? 1=Yes 0=Nope")   v=tonumber(read())    if v==1 then    turtle[paste][/paste]select(16)    turtle[paste][/paste]refuel(1)    j=turtle[paste][/paste]getFuelLevel()    print("Fuel level:"[paste][/paste][paste][/paste]j)    print("More? 1=Yes 0=Nope")    o=tonumber(read())     while o>0 do     turtle[paste][/paste]refuel(1)     print("More? 1=Yes 0=Nope")      mor=tonumber(read())      if mor==1 then o=o+1      end     o=o-1     end    end   end  endprint("Depth: ")c=tonumber(read())x=cprint("Tunnel length: ")w=tonumber(read())q=w if c~=0 then g=3 while g>0 do  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  turtle[paste][/paste]turnRight()  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detectUp()  if a then  local a=turtle[paste][/paste]detectUp()  while a do turtle[paste][/paste]digUp() turtle[paste][/paste]digUp() turtle[paste][/paste]digUp() a=turtle[paste][/paste]detectUp() end  turtle[paste][/paste]up()  else turtle[paste][/paste]up() end  turtle[paste][/paste]turnRight()  turtle[paste][/paste]turnRight()  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detectUp()  if a then  local a=turtle[paste][/paste]detectUp()  while a do turtle[paste][/paste]digUp() turtle[paste][/paste]digUp() turtle[paste][/paste]digUp() a=turtle[paste][/paste]detectUp() end  turtle[paste][/paste]up()  else turtle[paste][/paste]up() end  turtle[paste][/paste]turnRight()  turtle[paste][/paste]turnRight()  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detectDown()  if a then  local a=turtle[paste][/paste]detectDown()  while a do turtle[paste][/paste]digDown() a=turtle[paste][/paste]detectDown() end  turtle[paste][/paste]down()  else turtle[paste][/paste]down() end  local a=turtle[paste][/paste]detectDown()  if a then  local a=turtle[paste][/paste]detectDown()  while a do turtle[paste][/paste]digDown() a=turtle[paste][/paste]detectDown() end  turtle[paste][/paste]down()  else turtle[paste][/paste]down() end  turtle[paste][/paste]turnRight()  turtle[paste][/paste]turnRight()  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  turtle[paste][/paste]turnRight()  local k=turtle[paste][/paste]getFuelLevel()  if k<40 then turtle[paste][/paste]select(16) turtle[paste][/paste]refuel(1) end  g=g-1  end endif c~=0 thenturtle[paste][/paste]back()turtle[paste][/paste]back()endif c>0 then c=c+1 endwhile c>1 doturtle[paste][/paste]digDown()turtle[paste][/paste]down()turtle[paste][/paste]dig()turtle[paste][/paste]forward()turtle[paste][/paste]dig()turtle[paste][/paste]forward()turtle[paste][/paste]turnRight()turtle[paste][/paste]dig()turtle[paste][/paste]forward()turtle[paste][/paste]turnRight()turtle[paste][/paste]dig()turtle[paste][/paste]forward()turtle[paste][/paste]dig()turtle[paste][/paste]forward()turtle[paste][/paste]turnLeft()turtle[paste][/paste]dig()turtle[paste][/paste]forward()turtle[paste][/paste]turnLeft()turtle[paste][/paste]dig()turtle[paste][/paste]forward()turtle[paste][/paste]dig()turtle[paste][/paste]back()turtle[paste][/paste]turnLeft()turtle[paste][/paste]forward()turtle[paste][/paste]forward()turtle[paste][/paste]turnRight()local k=turtle[paste][/paste]getFuelLevel()if k<40 then turtle[paste][/paste]select(16) turtle[paste][/paste]refuel(1) endc=c-1  endif c~=0 then  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local k=turtle[paste][/paste]getFuelLevel()  if k<40 then turtle[paste][/paste]select(16) turtle[paste][/paste]refuel(1) endendwhile w>0 do  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  turtle[paste][/paste]turnRight()  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detectUp()  if a then  local a=turtle[paste][/paste]detectUp()  while a do turtle[paste][/paste]digUp() turtle[paste][/paste]digUp() turtle[paste][/paste]digUp() a=turtle[paste][/paste]detectUp() end  turtle[paste][/paste]up()  else turtle[paste][/paste]up() end  turtle[paste][/paste]turnRight()  turtle[paste][/paste]turnRight()  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detectUp()  if a then  local a=turtle[paste][/paste]detectUp()  while a do turtle[paste][/paste]digUp() turtle[paste][/paste]digUp() turtle[paste][/paste]digUp() a=turtle[paste][/paste]detectUp() end  turtle[paste][/paste]up()  else turtle[paste][/paste]up() end  turtle[paste][/paste]turnRight()  turtle[paste][/paste]turnRight()  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detectDown()  if a then  local a=turtle[paste][/paste]detectDown()  while a do turtle[paste][/paste]digDown() a=turtle[paste][/paste]detectDown() end  turtle[paste][/paste]down()  else turtle[paste][/paste]down() end  local a=turtle[paste][/paste]detectDown()  if a then  local a=turtle[paste][/paste]detectDown()  while a do turtle[paste][/paste]digDown() a=turtle[paste][/paste]detectDown() end  turtle[paste][/paste]down()  else turtle[paste][/paste]down() end  turtle[paste][/paste]turnRight()  turtle[paste][/paste]turnRight()  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  turtle[paste][/paste]turnRight()  local k=turtle[paste][/paste]getFuelLevel()  if k<40 then turtle[paste][/paste]select(16) turtle[paste][/paste]refuel(1) end w=w-1  end  turtle[paste][/paste]turnLeft()turtle[paste][/paste]turnLeft()if c~=0 thenq=q+2endwhile q>0 do  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local k=turtle[paste][/paste]getFuelLevel()  if k<20 then turtle[paste][/paste]select(16) turtle[paste][/paste]refuel(1) endq=q-1endwhile x>0 doturtle[paste][/paste]up()local k=turtle[paste][/paste]getFuelLevel()if k<20 then turtle[paste][/paste]select(16) turtle[paste][/paste]refuel(1) endx=x-1endif c~=0 then  local a=turtle[paste][/paste]detect()  if a then  local a=turtle[paste][/paste]detect()  while a do turtle[paste][/paste]dig() turtle[paste][/paste]dig() turtle[paste][/paste]dig() a=turtle[paste][/paste]detect() end  turtle[paste][/paste]forward()  else turtle[paste][/paste]forward() end  local k=turtle[paste][/paste]getFuelLevel()  if k<20 then turtle[paste][/paste]select(16) turtle[paste][/paste]refuel(1) endendturtle[paste][/paste]select(15)turtle[paste][/paste]place()for i=1,16-2 doturtle[paste][/paste]select(i)turtle[paste][/paste]drop()endturtle[paste][/paste]turnLeft()turtle[paste][/paste]turnLeft()term[paste][/paste]clear()term[paste][/paste]setCursorPos(1, 1)print("Finished! Program by Bacer[paste][/paste]")