[1.7.10] ComputerCraft [1.74]

if turtle[paste][/paste]getItemCount(15)>0 then				turtle[paste][/paste]digDown()		turtle[paste][/paste]select(16)		if turtle[paste][/paste]placeDown()==true then			for i=5,15 do --тут смотря какие слоты нужны, у меня первые 3 заняты под мусорную породу, которую черепаха не добывает, а 4й под уголь[paste][/paste]				turtle[paste][/paste]select(i)				turtle[paste][/paste]dropDown()			end			turtle[paste][/paste]select(16)			turtle[paste][/paste]digDown()		end	end

local args = { [paste][/paste][paste][/paste][paste][/paste] }if #args ~= 2 then	print( "program parameter <diameter> <depth>" )	returnendlocal s = tonumber(args[1] )local de = tonumber(args[2] )local dx=0local dy=0local dz=0local da=0local processing = truelocal function ttr()	if da==0 then 		da=1	elseif da==1 then		da=2	elseif da==2 then		da=3	else		da=0	end	turtle[paste][/paste]turnRight()endlocal function ttl()	if da==0 then 		da=3	elseif da==1 then		da=0	elseif da==2 then		da=1	else		da=2	end	turtle[paste][/paste]turnLeft()endlocal function tm()	while turtle[paste][/paste]suck() do	end	while not(turtle[paste][/paste]forward()) do		if turtle[paste][/paste]detect() then			if not(turtle[paste][/paste]dig()) then				processing=false				return false 			end		elseif turtle[paste][/paste]attack() then		else			sleep(0[paste][/paste]5)		end	end	return trueendlocal function tt(ang)	local b=ang-da	if (b==1 or b==-3)  then		ttr()	end	while not(da==ang) do		ttl()	endendlocal function tmu()	while not(turtle[paste][/paste]up()) do		if not(turtle[paste][/paste]attackUp() or turtle[paste][/paste]digUp()) then			sleep(0[paste][/paste]5)			end	end	dy=dy-1endlocal function tmd()	while turtle[paste][/paste]suckDown() do	end	while not(turtle[paste][/paste]down()) do		if turtle[paste][/paste]detectDown() then			if not(turtle[paste][/paste]digDown()) then				processing=false				return false 			end		elseif turtle[paste][/paste]attackDown() then		else			sleep(0[paste][/paste]5)		end	end	dy=dy+1endlocal function tmr()	tt(1)	if tm() then		dz=dz+1	endendlocal function tml()	tt(3)	if tm() then		dz=dz-1	endendlocal function tmf()	tt(0)	if tm() then		dx=dx+1	endendlocal function tmb()	tt(2)	if tm() then		dx=dx-1	endendfunction turtlemove(xd,yd,zd)	while dy>yd do		tmu()	end	while dz>zd do		tml()	end	while dz<zd do		tmr()	end	while dx>xd do		tmb()	end	while dx<xd do		tmf()	end	while dy<yd do		tmd()	endendfunction colect()	if turtle[paste][/paste]getItemCount(16)==0 then		return false	else		return true	endendfunction discharge()	turtlemove(0,de,0)	turtlemove(0,0,0)	tt(2)	for k=2,16 do		if not(turtle[paste][/paste]getItemCount(k)==0) then			turtle[paste][/paste]select(k)			while not turtle[paste][/paste]drop() do				print("chest is full")			end		end	end	endfunction supl()	local x,y,z=dx,dy,dz	discharge()	turtlemove(0,de,0)	turtlemove(x,y,z)endfunction mp()	for j=1,s-1 do		if not(processing) then 			return false		end		if (math[paste][/paste]fmod(dz+dy-de,2)==0) then 			tmf()		else			tmb()		end		if colect() then			supl()		end	end 	return trueendfunction turtledig()	for i=1,s-1 do		if not(mp()) then 			return		end		if (math[paste][/paste]fmod(dy-de,2)==0) then 			tmr()		else			tml()		end		if colect() then			supl()		end	end	mp()	tmd()endturtlemove(0,de,0)while processing do	turtledig()enddischarge()tt(0)turtle[paste][/paste]select(1)print("mining complite")