[1.7.10] ComputerCraft [1.74]

Копать как, прямо вниз, или по спирали?

А можно так, чтоб копала прямолинейно? Например, 2 000 блоков шириной в 1 прямо, потом 2 000 шириной в один назад. Или это муторно?

А можно так, чтоб копала прямолинейно? Например, 2 000 блоков шириной в 1 прямо, потом 2 000 шириной в один назад. Или это муторно?

Это можно, но в компкрафте есть один досадный баг: если ставишь на черепаху чанклоадер из аддона и она выходит за пределы загрузки чанков игроком, то она с некоторой небольшой вероятностью может лишиться инструментов. При использовании стационарного чанклоадера от курокостей такого бага не замечал. Т.е чтобы все было гладко лучше держать область где будет ковыряться черепаха всегда загруженной.

Насчет прогрузки, я так и думал. Это логично. То есть, все же вполне реально заставить ее копаться от высоты, к примеру, 26, до админиума и вот так один ряд некоей длины, а потом на соседний перевести и в обратную сторону. С прогрузкой можно попробовать что-то придумать. Немного отлучусь от темы, шагнув назад. Я не уточнил, забыл..а как будет выглядеть автоматизация, если все же на фреймах? для того, чтоб конструкция прошла 2 000 блоков вперед, придется делать 2 000 строк кода, каждая строка будет в себе заключать команду, чтоб выдавать сигнал реда и отключать его? Сорь) Это смешно, знаю)

for i=1,100 do --заставит черепаху повторять следующие после выражения действия 100 раз (100 линий)	--движение вперед, копая сверху, снизу и впереди	for j=1,100 do --заставит черепаху выкопать линию (100 блоков)		turtle[paste][/paste]digUp()		turtle[paste][/paste]digDown()		--копает, пока не может сдвинуться вперед(помогает если впереди упадет гравий)		while not turtle[paste][/paste]forward() do			turtle[paste][/paste]dig()		end	end	--повород направо в конце линии	turtle[paste][/paste]turnRight()	turtle[paste][/paste]digUp()	turtle[paste][/paste]digDown()	while not turtle[paste][/paste]forward() do		turtle[paste][/paste]dig()	end	turtle[paste][/paste]turnRight()	--движение обратно	for j=1,100 do		turtle[paste][/paste]digUp()		turtle[paste][/paste]digDown()		while not turtle[paste][/paste]forward() do			turtle[paste][/paste]dig()		end	end	--поворот налево в конце линии	turtle[paste][/paste]turnLeft()	turtle[paste][/paste]digUp()	turtle[paste][/paste]digDown()	while not turtle[paste][/paste]forward() do		turtle[paste][/paste]dig()	end	turtle[paste][/paste]turnLeft()end

Спасибо большое! В этом я и хотел убедиться. Остается самое трудное: заставить себя все это поучить..я лентяй ужасный) Даже зная, насколько классные штуки можно делать при помощи СС, никак не заставлю себя взяться за изучение..

Да, еще посоветую писать программы не на самом компе, а в текстовом редакторе с подсветкой синтаксиса - очень удобно. Я использую Notepad++.

Я так понимаю, начать Вы посоветуете, естественно, с вики LUA. Или есть смысл с самого начала сразу поискать видеогайды относительно самого СС?

Вот кодовый замок, насочинял таки ))

Скрытый текст

local side, name, inputlocal password="123"for _,s in pairs(redstone[paste][/paste]getSides()) do	if peripheral[paste][/paste]getType(s)=="modem" then		name=peripheral[paste][/paste]call(s, "getNamesRemote")		side=s		break	endendlocal numPad={	["1"]={x=2, y=2},	["2"]={x=4, y=2},	["3"]={x=6, y=2},	["4"]={x=2, y=3},	["5"]={x=4, y=3},	["6"]={x=6, y=3},	["7"]={x=2, y=4},	["8"]={x=4, y=4},	["9"]={x=6, y=4},	["*"]={x=2, y=5},	["0"]={x=4, y=5},	["C"]={x=6, y=5}}peripheral[paste][/paste]call(side, "callRemote", name[1], "clear")peripheral[paste][/paste]call(side, "callRemote", name[1], "setBackgroundColor", 128)for k,v in pairs(numPad) do	peripheral[paste][/paste]call(side, "callRemote", name[1], "setCursorPos", v[paste][/paste]x, v[paste][/paste]y)	peripheral[paste][/paste]call(side, "callRemote", name[1], "write", k)endperipheral[paste][/paste]call(side, "callRemote", name[1], "setBackgroundColor", 32768)while true do	local _,_,x,y = os[paste][/paste]pullEvent("monitor_touch")	for k,v in pairs(numPad) do		if v[paste][/paste]x==x and v[paste][/paste]y==y then			if k=="C" then input=nil			elseif k=="*" then				if input==password then					redstone[paste][/paste]setOutput("back", true)					sleep(3)					redstone[paste][/paste]setOutput("back", false)					input=nil				else input=nil				end			else				if not input then input=k				else input=input[paste][/paste][paste][/paste]k				end			end			peripheral[paste][/paste]call(side, "callRemote", name[1], "setCursorPos", 1, 1)			peripheral[paste][/paste]call(side, "callRemote", name[1], "clearLine")			if input and string[paste][/paste]len(input)<=5 then				for i=1,string[paste][/paste]len(input) do					peripheral[paste][/paste]call(side, "callRemote", name[1], "setCursorPos", i+1, 1)					peripheral[paste][/paste]call(side, "callRemote", name[1], "write", "*")				end			else input=nil			end			break		end	endend

Пароль - 123, но может быть любой, задается вначале строковой переменной password, не длиннее 5 символов (мною установленное ограничение). * - ввод пароля С - отмена. При правильном пароле комп (не монитор) подаст редстоун сигнал сзади. Монитор подключить через проводной модем, модемы активировать правой клавишей (чтобы красным горел).

bios:337: [string "kod"]:36 : '=' expected

Копать как? Просто вниз, или по спирали диаметром в 2000 блоков? Если просто вниз то там код 4 строки:

while true doturtle[paste][/paste]digDown()turtle[paste][/paste]down()end

while true dowhile not turtle[paste][/paste]down() do turtle[paste][/paste]digDown() endend

после запуска программы пишет...

после запуска программы пишет...

Что именно делал? Золотой монитор подключил через проводные модемы? У меня все работает.

kod:3 attempt to call nil

да так и сделал а что за ошибку выдаёт?

да так и сделал а что за ошибку выдаёт?

Знак равно ожидается. Словно там ошибка в синтаксисе. Но там нет ошибки. Как код в компкрафт вставлял, через папку сейвс? Вот мой

да так и сделал а что за ошибку выдаёт?

Знак равно ожидается. Словно там ошибка в синтаксисе. Но там нет ошибки. Как код в компкрафт вставлял, через папку сейвс? Вот мой теперь я понел всё работает!! слушай ты гений напиши свой скайп или добавь меня вот мой скайп: vadimus19991
А и да к стати куда делся апокалипсис???

Даблпост.

А и да к стати куда делся апокалипсис???

Нужна программа для запуска поездов через не которое время и отображение этого времени на экране...

local timer=15for _,s in pairs(redstone[paste][/paste]getSides()) do	if peripheral[paste][/paste]getType(s)=="monitor" then		m=peripheral[paste][/paste]wrap(s)	endendwhile true do	if redstone[paste][/paste]getInput("back") then		for i=timer, 0, -1 do			m[paste][/paste]clear()			m[paste][/paste]setCursorPos(4,3)			m[paste][/paste]write(tostring(i))			sleep(1)		end		redstone[paste][/paste]setOutput("right", true)		sleep(1)		redstone[paste][/paste]setOutput("right", false)		m[paste][/paste]clear()	else sleep(0[paste][/paste]2)	endend

В конфиге httpAPIenabled(или примерно так) = true выставь.