[1.7.10] ComputerCraft [1.74]

function mainFunc()	sender=nil	command=nil	while sender==nil or command==nil do --пока не получит сигнал работать в режиме приема		sender, command = rednet[paste][/paste]receive(10)	end		local nlresive=textutils[paste][/paste]unserialize(command) --принятую строку в массив	tSide=nlresive[4] --значение стороны на которой работает черепаха	findNearest(nlresive[1], nlresive[2], nlresive[3]) --функция определения ближайших к заданным координат "паттерна"	msg=textutils[paste][/paste]serialize(msg) --ближайшие координаты в строку	rednet[paste][/paste]send(sender, msg) --отправка координат	if sender~=oldSender then --защита от многочисленного удаления координат ([b]ее и хотелось бы по-другому реализовать[/b])	regTurtle(sender, tSide)	table[paste][/paste]remove(pattern[tSide], nearInd) --удаление заданной строки массива	savePattern()	writer()	end	oldSender=senderend

function comunicate(adress, message)	sender=nil	comm=nil	while true do		rednet[paste][/paste]send(adress, message)		sender, comm = rednet[paste][/paste]receive(10)		if sender==adress then return end			endendfunction mainFunc()	coordinate() --определение координат	local sCoord={x, y, z} --текущие координаты в массив	sCoord[4]=cSide --значение стороны карьера на котором работает черепаха	local clsend=textutils[paste][/paste]serialize(sCoord) --массив в строку для отправки	comunicate(ServerID, clsend) --отправка серверу, пока не ответит	print("sender="[paste][/paste][paste][/paste]sender[paste][/paste][paste][/paste]"command="[paste][/paste][paste][/paste]comm) --отображение "ида" и команды сервера	nlresive=textutils[paste][/paste]unserialize(comm) --строка команды в массив	nlresive[5]=1 --для дальнейшей автоматизации	STy=nlresive[2]--для дальнейшей автоматизации	writer()--функция сохранения полученной информации в файл	moveTo(x, STy, z) --перемещение к заданным координатам	moveTo(nlresive[1], nlresive[2], nlresive[3]) --перемещение к заданным координатам	digHole() --шахтерская функция	nlresive[5]=0 	writer()end