[1.7.10] ComputerCraft [1.74]

я так сделал чтобы место факела и сундука никогда не совпало. иначе в моем туннеле который я копаю тремя черепашками запущенными параллелно будет не продохнуть от мобов

Ничего не понял. Вообщем держи готовую

function dropItems()  if turtle[paste][/paste]getItemCount(16) == 0 then    print("Out of chests")    error()  end  if turtle[paste][/paste]getItemCount(14) >= 1 then    turtle[paste][/paste]turnLeft()    while turtle[paste][/paste]dig() do end    turtle[paste][/paste]up()    turtle[paste][/paste]dig()    turtle[paste][/paste]down()    turtle[paste][/paste]select(16)    turtle[paste][/paste]place()    for i = 1,14 do      turtle[paste][/paste]select(i)      if turtle[paste][/paste]getFuelLevel() < 200 then        turtle[paste][/paste]refuel()      else        turtle[paste][/paste]drop()      end    end    turtle[paste][/paste]turnRight()    turtle[paste][/paste]select(1)  endendfunction placeTorch()  if turtle[paste][/paste]getItemCount(15) == 0 then    print("Out of torches")    error()  end  if torch==8 then    turtle[paste][/paste]turnRight()    while turtle[paste][/paste]dig() do end    turtle[paste][/paste]select(15)    turtle[paste][/paste]place()    turtle[paste][/paste]select(1)    turtle[paste][/paste]turnLeft()    torch=1  endendfunction refuel()  local slot=1  if turtle[paste][/paste]getFuelLevel()<20 then    turtle[paste][/paste]select(slot)    while not turtle[paste][/paste]refuel() do      turtle[paste][/paste]select(slot)      slot=slot+1	  if slot==15 then	    print("Out of fuel")            error() 	  end    end	turtle[paste][/paste]select(1)  endendfunction dig()  while turtle[paste][/paste]dig() do end  while turtle[paste][/paste]digUp() do end  turtle[paste][/paste]digDown()  placeTorch()  dropItems()  refuel()  turtle[paste][/paste]forward()  torch=torch+1endlocal tArgs={[paste][/paste][paste][/paste][paste][/paste]}torch=0turtle[paste][/paste]select(1)if tArgs[1] == nil then  while true do    dig()  endelse  for d = 1, tArgs[1] do	   dig()	 endend

UPD1. Сделал так, что бы при отсутствии факелов, сундуков или топлива программа вылетала.
Объясняю, что умеет
1. Поддержка аргументов (например dig 12 будет выкапывать туннель 12 блоков в длину, dig 15 - 15 блоков и т.д.) Если аргументов нету, то будет копать, пока не вылетит программа
2. Программа вылетает если

[*]Нету факелов
[*]Нету сундуков
[*]Нету топлива в инвентаре и уровень топлива в черепашке меньше 20
[/list]3. Сундуки ставит налево, факелы направо. Копает блок над сундуком, что бы можно было его потом открыть.
4. Черепаха жрет топливо:


[*]Принудительно, если уровень топлива меньше 20
[*]При выкидывании предметов в сундук, если уровень топлива меньше 200
[/list]5. Защита от гравия при установке сундуков, факелов и по ходу движения.
6. Факелы ставит каждые 8 блоков. Сундуки ставит, когда начинает заполняться 14ый слот
7. Факелы класть в 15ый слот, сундуки в 16ый. Вроде все

term[paste][/paste]clear()term[paste][/paste]setCursorPos(1,1)term[paste][/paste]write("val1")term[paste][/paste]setCursorPos(1,2)term[paste][/paste]write("val2")term[paste][/paste]setCursorPos(1,3)term[paste][/paste]write("val3")term[paste][/paste]setCursorPos(6,1)pos=1while true do	parallel[paste][/paste]waitForAny(		function()			read()			end,		function()			while true do				local event,key=os[paste][/paste]pullEvent("key")				if event == "key" and key == 200 and pos > 1 then 					pos=pos-1 term[paste][/paste]setCursorPos(6,pos) break				elseif event == "key" and key == 208 and pos < 3 then 					pos=pos+1 term[paste][/paste]setCursorPos(6,pos) break end				end			end		)	end

function smart_read([paste][/paste][paste][/paste][paste][/paste])	local x,y=term[paste][/paste]getCursorPos()	local arg={28, [paste][/paste][paste][/paste][paste][/paste]}	local text=''	if type(arg[#arg]) == "string" then text=arg[#arg] arg[#arg]=nil end	while true do		term[paste][/paste]setCursorPos(x,y)		local event,key=os[paste][/paste]pullEvent("key")		os[paste][/paste]startTimer(0[paste][/paste]1)		local event2,key2=os[paste][/paste]pullEvent()		if event2 ~= "timer" then event,key=event2,key2 end		if event == "char" and string[paste][/paste]len(text)+x ~= term[paste][/paste]getSize() then 			text=text[paste][/paste][paste][/paste]key 			term[paste][/paste]write(text)		elseif event == "key" then 			if key == 14 then 				text=string[paste][/paste]sub(text,1,string[paste][/paste]len(text)-1) 				term[paste][/paste]write(text[paste][/paste][paste][/paste]' ')			else 				for i=1,#arg do					if key == arg[i] then return text,key end					end				end			end		end	end