[1.7.10] ComputerCraft [1.74]

local mon = peripheral[paste][/paste]wrap("top")mon[paste][/paste]setTextScale(1)mon[paste][/paste]setTextColor(colors[paste][/paste]white)mon[paste][/paste]setBackgroundColor(colors[paste][/paste]black)local WTransm=peripheral[paste][/paste]wrap("left") --передатчик (устанавливается слева от компа)function init() --первичное отображение кнопок (текст цифры с пробелами) на мониторе   mon[paste][/paste]setBackgroundColor(colors[paste][/paste]black)   mon[paste][/paste]clear()   mon[paste][/paste]setBackgroundColor(colors[paste][/paste]lime)   mon[paste][/paste]setCursorPos(1, 1)   mon[paste][/paste]write(" 0 ")   mon[paste][/paste]setCursorPos(1, 3)   mon[paste][/paste]write(" 1 ")   mon[paste][/paste]setCursorPos(1, 5)   mon[paste][/paste]write(" 2 ")    mon[paste][/paste]setCursorPos(1, 7)   mon[paste][/paste]write(" 3 ")       mon[paste][/paste]setCursorPos(1, 9)   mon[paste][/paste]write(" 4 ")     mon[paste][/paste]setCursorPos(5, 1)   mon[paste][/paste]write(" 5 ")    mon[paste][/paste]setCursorPos(5, 3)   mon[paste][/paste]write(" 6 ")    mon[paste][/paste]setCursorPos(5, 5)   mon[paste][/paste]write(" 7 ")   mon[paste][/paste]setCursorPos(5, 7)   mon[paste][/paste]write(" 8 ")     mon[paste][/paste]setCursorPos(5, 9)   mon[paste][/paste]write(" 9 ")  endfunction sendFlor(aimFlor) --посылает сигнал на частоте, определяющей этаж	local freq=aimFlor+20	WTransm[paste][/paste]setFreq(freq)	rs[paste][/paste]setOutput("left", true)	sleep(1)	rs[paste][/paste]setOutput("left", false)	sleep(0[paste][/paste]2)endfunction zeroR() --изменение цвета клавиши 0 при нажатии и запуск функции передачи сигнала	mon[paste][/paste]setBackgroundColor(colors[paste][/paste]red)	mon[paste][/paste]setCursorPos(1, 1)	mon[paste][/paste]write(" 0 ")	sendFlor(0)endfunction oneR()	mon[paste][/paste]setBackgroundColor(colors[paste][/paste]red)	mon[paste][/paste]setCursorPos(1, 3)	mon[paste][/paste]write(" 1 ")	sendFlor(1)endfunction twoR()	mon[paste][/paste]setBackgroundColor(colors[paste][/paste]red)	mon[paste][/paste]setCursorPos(1, 5)	mon[paste][/paste]write(" 2 ")	sendFlor(2)endfunction threeR()	mon[paste][/paste]setBackgroundColor(colors[paste][/paste]red)	mon[paste][/paste]setCursorPos(1, 7)	mon[paste][/paste]write(" 3 ")	sendFlor(3)endfunction fourR()	mon[paste][/paste]setBackgroundColor(colors[paste][/paste]red)	mon[paste][/paste]setCursorPos(1, 9)	mon[paste][/paste]write(" 4 ")	sendFlor(4)endfunction fiveR()	mon[paste][/paste]setBackgroundColor(colors[paste][/paste]red)	mon[paste][/paste]setCursorPos(5, 1)	mon[paste][/paste]write(" 5 ")	sendFlor(5)endfunction sixR()	mon[paste][/paste]setBackgroundColor(colors[paste][/paste]red)	mon[paste][/paste]setCursorPos(5, 3)	mon[paste][/paste]write(" 6 ")	sendFlor(6)endfunction sevenR()	mon[paste][/paste]setBackgroundColor(colors[paste][/paste]red)	mon[paste][/paste]setCursorPos(5, 5)	mon[paste][/paste]write(" 7 ")	sendFlor(7)endfunction eightR()	mon[paste][/paste]setBackgroundColor(colors[paste][/paste]red)	mon[paste][/paste]setCursorPos(5, 7)	mon[paste][/paste]write(" 8 ")	sendFlor(8)endfunction nineR()	mon[paste][/paste]setBackgroundColor(colors[paste][/paste]red)	mon[paste][/paste]setCursorPos(5, 9)	mon[paste][/paste]write(" 9 ")	sendFlor(9)endfunction checkxy(x, y) --определение соответствующей координатам клавиши   if y==1 then       if x>=1 and x<= 3 then          zeroR()       end   end      if y==3 then       if x>=1 and x<= 3 then          oneR()       end   end    if y==5 then       if x>=1 and x<= 3 then          twoR()       end   end    if y==7 then       if x>=1 and x<= 3 then          threeR()       end   end    if y==9 then       if x>=1 and x<= 3 then          fourR()       end   end    if y==1 then       if x>=5 and x<= 8 then          fiveR()       end   end    if y==3 then       if x>=5 and x<= 8 then          sixR()       end   end    if y==5 then       if x>=5 and x<= 8 then          sevenR()       end   end    if y==7 then       if x>=5 and x<= 8 then          eightR()       end   end    if y==9 then       if x>=5 and x<= 8 then          nineR()       end   end end     while true do   init()   local e,side,x,y = os[paste][/paste]pullEvent("monitor_touch") --определение координат клика   checkxy(x, y)   sleep(0[paste][/paste]2)end

local currFlor=20 --текущий этажlocal aimFlor=20 --целевой этажlocal deltaFlor=0 --количество этажей для перемещения--local florHigh=6 --высота этажаlocal WResiv=peripheral[paste][/paste]wrap("back") --приемник (устанавливается сзади компа)local WTransm=peripheral[paste][/paste]wrap("left") --передатчик (устанавливается слева от компа)function endFlor(freq) --определяет достижение этажа назначения	--print("Checking endFlor")	freq=freq+10	WResiv[paste][/paste]setFreq(freq)	if rs[paste][/paste]getInput("back")==true then		return true	else		return false	endendfunction liftMove()	--local moveDw=0 --величина перемещения вниз	--local moveUp=0 --величина перемещения вверх	deltaFlor=currFlor-aimFlor	if deltaFlor>0 then		--moveDw=deltaFlor*florHigh		print("Moving down")		WTransm[paste][/paste]setFreq(2)		while endFlor(aimFlor)~=true do			rs[paste][/paste]setOutput("left", true)			sleep(0[paste][/paste]4)			rs[paste][/paste]setOutput("left", false)			sleep(0[paste][/paste]4)			write("[paste][/paste]")		end	else		--moveUp=-deltaFlor*florHigh		print("Moving up")		WTransm[paste][/paste]setFreq(1)		while endFlor(aimFlor)~=true do			rs[paste][/paste]setOutput("left", true)			sleep(0[paste][/paste]4)			rs[paste][/paste]setOutput("left", false)			sleep(0[paste][/paste]4)			write("[paste][/paste]")		end	end	print("Goal achieved, current flor is ", aimFlor)endfunction checkFlor() --определяет текущий этаж	for freq=10, 19 do		WResiv[paste][/paste]setFreq(freq)		if rs[paste][/paste]getInput("back")==true then			currFlor=freq-10			print("currFlor = ", currFlor)			break		else			currFlor=20		end	endendfunction checkButton() --проверяет не нажата ли клавиша вызова лифта или клавиша внутри кабины	for freq=20, 29 do		WResiv[paste][/paste]setFreq(freq)		if rs[paste][/paste]getInput("back")==true then			aimFlor=freq-20			print("aimFlor = ", aimFlor)			checkFlor()			break		else		aimFlor=currFlor		end	endendfunction unknownFlor() --на случай если лифт остановится между этажами, перемещение на ближайший верхний	if currFlor==20 then		print("mooving  to nearest upper flor initialized")		WTransm[paste][/paste]setFreq(1)		while currFlor==20 do			rs[paste][/paste]setOutput("left", true)			sleep(0[paste][/paste]4)			rs[paste][/paste]setOutput("left", false)			sleep(0[paste][/paste]5)			checkFlor()		end	endendcheckFlor()unknownFlor()while true do	checkButton()	unknownFlor()	if currFlor~=aimFlor then		liftMove()	end	sleep(0[paste][/paste]5)end

turtle.digDown()

Помогло.

Но появилось ещё 2 вопроса:
1. Есть ли какой-нить аналог case из паскаля (знаю только его, и луа (который учу с позавчера))
2. Есть ли камера для черепашки? Или сторонний мод что-бы видеть что она творит?
3. Черепашка не хочет двигаться, команды в этот раз введены верно. Она может копать вверх/вниз/прямо, поворачиваться и все (тестил только эти функции).
Сама-же черепашка говорить False

1.
2. самой камеры нету. есть отдельный мод добавляющий камеру, но я не знаю будет ли он работать с черепашками
3.гайд->крафт->черепашки
черепашкам нужно топливо чтобы двигаться