[1.7.10] ComputerCraft [1.74]

if turtle.getItemCount(16)<1 then  print("place torch 16 slot")  returnendturtle.select(1)local l=0;while true do  while turtle.dig() do    sleep(0.1)  end  if turtle.forward() then l=l+1 end  turtle.digDown()  while turtle.digUp() do    sleep(0.1)  end  if l>11 then     l=0    turtle.select(16)    turtle.placeDown()    turtle.select(1)    if turtle.getItemCount(16)<1 then return end  end  if turtle.getItemCount(15)>0 then return endend

local robot = require("robot")robot.select(2)if robot.count(1)<1 then print("place torch in slot 1") returnendlocal l=0while true do while robot.detect() do  robot.swing() end if robot.forward() then l=l+1 end robot.swingDown() while robot.detectUp() do  robot.swingUp() end if l>11 then  l=0  robot.select(1)  robot.placeDown()  if robot.count(1) < 1 then return end  robot.select(2) end if robot.count(16)>0 then return endend 

//Думаю понятно. n приравнивается к 10n = 10// Выбирается первый слот. Основная конструкция такая (turtle.select(n), где n = необходимый слот)turtle.select(1)// Определение цикла. Переменная i изначально будет равна единице. // Число, которое стоит после n определяет то, сколько будет прибавляться к i после каждого повторения цикла. Если это число не указано (как, например, тут), то оно будет равно 1// Цикл будет повторяться до тех пор, пока i не станет равен n.// do - начало циклаfor i = 1, n, 1 do // turtle.swingUp() - сломать один блок над собойturtle.swingUp()// turtle.up() - передвинуться на блок вверхturtle.up()turtle.swingUp()turtle.up()turtle.swingUp()turtle.up()turtle.swingUp()turtle.up()turtle.swingUp()// turtle.down() - передвинуться на блок внизturtle.down()turtle.down()turtle.down()turtle.down()// turtle.swing() - сломать один блок перед собойturtle.swing()// turtle.forward() - передвинуться на блок впередturtle.forward()// end - конец циклаend 

копает туннель 1х3 до тех пор, пока не заполнится инвентарь, не закончатся факела(в 1 слоте) или не сломается кирка

local robot = require("robot")robot.select(2)if robot.count(1)<1 then print("place torch in slot 1") returnendlocal l=0while true do while robot.detect() do  robot.swing() end if robot.forward() then l=l+1 end robot.swingDown() while robot.detectUp() do  robot.swingUp() end if l>11 then  l=0  robot.select(1)  robot.placeDown()  if robot.count(1) < 1 then return end  robot.select(2) endlocal d = robot.durability() if robot.count(16)>0 or d == nil then return endend  

пока умеет копать комнаты заданной величины и складывать все в один сундук(надо поставить за черепашку).

для запуска надо указать размеры: длина, глубина и ширина. есть 2 селектора -u(копать комнату наверх) и -l(копать комнату налево). в отличие от первой программки не следит за износом инструментов

local shell = require("shell")local turtle = require("robot")local compass = { ["forw"]=0,["right"]=1,["back"]=2,["left"]=3}local mode = { ["stop"]=0,["work"]=1,["go"]=2,["supl"]=3}local dx,dy,dz,da=0,0,0,compass.forwlocal processing=falselocal modeNow=mode.stoplocal l,wr,wl,hu,hd=0,0,0,0,0local x,y,z=0,0,0local le,ds=false,falselocal vvod,opt = shell.parse(...)if #vvod == 3 then l = tonumber( vvod[1] ) -1 if opt["l"] == true then le=true else le=false end if opt["u"] == true then ds=true else ds=false end	 if le then wl = -tonumber( vvod[3] ) +1 else  wr = tonumber( vvod[3] ) -1 end if ds then hu = -tonumber( vvod[2] ) +1 else  hd = tonumber( vvod[2] ) -1 endelse print("error of input") print("[-l] [-u] <lenght> <height> <width>") print("-l - room will be created on the left") print("-u - robot will move up") returnendif (tonumber(vvod[1])<1 or tonumber(vvod[3])<1 or tonumber(vvod[2])<1 ) then print("error of input") print("Room size must be positive") returnendprocessing=truemodeNow=mode.golocal suplTurtlelocal function fullSlots() if ((turtle.count(15) ~= 0) and (turtle.count(16) ~= 0)) then  modeNow = mode.supl  return true end return falseendlocal function turtleturn(ang) if not(da==ang) then  local dd=ang-da  if dd==1 or dd==-3 then   da=ang   turtle.turnRight()  elseif dd==-1 or dd==3 then   da=ang   turtle.turnLeft()  else   da=ang   turtle.turnAround()  end endendlocal function turtlemove() while true do  if turtle.suck() then   os.sleep(0.1)  elseif turtle.detect() then   if turtle.swing() then    if (modeNow == mode.work and fullSlots()) then     x=dx     y=dy     z=dz     suplTurtle()     return false    end   else    processing=false    return false   end  else  local tx,tz=dx,dz  if da==compass.forw then   dx=dx+1  elseif da==compass.right then   dz=dz+1  elseif da==compass.back then   dx=dx-1  else   dz=dz-1  end   if turtle.forward() then    if (modeNow == mode.work) then     x=dx     y=dy     z=dz     suplTurtle()    end    return true   else    dx=tx    dz=tz    os.sleep(3)   end  end endendlocal function turtledown()while true doif turtle.suckDown() thenos.sleep(0.1)elseif turtle.detectDown() thenif turtle.swingDown() thenif (modeNow == mode.work and fullSlots()) thenx=dxy=dyz=dzsuplTurtle()return falseendelseprocessing=falsereturn falseendelselocal ty=dydy=dy+1if turtle.down() thenif (modeNow == mode.work) thenx=dxy=dyz=dzsuplTurtle()endreturn trueelsedy=tyos.sleep(3)endendendendlocal function turtleup()while true doif turtle.swingUp() thenos.sleep(0.5)elselocal ty=dydy=dy-1if turtle.up() thenreturn trueelsedy=tyos.sleep(3)endendendendlocal function turtlegoto(tx,ty,tz)while dy>ty doturtleup()endwhile dx>tx doturtleturn(compass.back)turtlemove()endwhile dx<tx doturtleturn(compass.forw)turtlemove()endwhile dz>tz doturtleturn(compass.left)turtlemove()endwhile dz<tz doturtleturn(compass.right)turtlemove()endwhile dy<ty doturtledown()endendfunction suplTurtle()turtlegoto(0,0,0)turtleturn(compass.back)if not turtle.detect() thenprint("no detect chest")while not turtle.detect() doos.sleep(1)endendfor i=1,16 doturtle.select(i)if (turtle.count(i)>0 and not(turtle.drop())) thenprint("chest is full")while not(turtle.drop()) doos.sleep(1)endendendturtle.select(1)if processing thenmodeNow = mode.goturtlegoto(x,y,z)modeNow = mode.workendendlocal function turtlemining()while processing doif math.fmod(dy+dz,2) == 0 thenturtleturn(compass.forw)elseturtleturn(compass.back)endif (dx >= l and da == compass.forw) or (dx <= 0 and da == compass.back) thenif le then if math.fmod(dy,2) == 0 then turtleturn(compass.left) else turtleturn(compass.right) end elseif math.fmod(dy,2) == 0 then turtleturn(compass.right) else turtleturn(compass.left) end endendif (da == compass.left and dz<=wl) or (da == compass.right and dz >= wr) thenif ds thenif dy> hu thenturtleup()elseprocessing = falseendelseif dy < hd thenturtledown()elseprocessing = falseendendelseturtlemove()endendendturtlemining()suplTurtle()turtleturn(compass.forw)print("room create")