[1.7.10] ComputerCraft [1.74]

не пойму, зачем нужно управлять черепашкой на расстоянии...

Если что, обновил свой код. Может кому понадобится. Жду комментариев :3

не пойму, зачем нужно управлять черепашкой на расстоянии... ладно если бы управление было бы вроде: прокапай туннель 30 блоков, сделай яму 3х4, выложи весь мусор в сундук... но зачем нужно такое подробное управление...

Ну какбе был план сделать удалённый доступ к оболочке системы. Только одна проблема: Как отправить вывод в поток rednet? Как через него передать план есть, а вот как сделать вывод?

local command = read()rednet[paste][/paste]open("right")rednet[paste][/paste]send(1,command)

rednet[paste][/paste]open("right")_, command = rednet[paste][/paste]receive()dostring(command)

Как вставить?

конечно вопрос может быть глупым, но те ли ты слоты выбираешь? нумерация идет

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

1 | 2 | 3 | 4 5 | 6 | 7 | 8 9 |10|11|12 13|14|15|16

Бррр. Ты меня не понял. Одно дело отправить команду. Другое дело вернуть вывод.

Бррр. Ты меня не понял. Одно дело отправить команду. Другое дело вернуть вывод.

function table_to_string(_table)    for k,v in pairs(_table) do        if type(_table[k]) == "number" or type(_table[k]) == "boolean" then            _table[k] = tostring(v)        elseif type(_table[k]) == "table" then            _table[k] = table_to_string(_table[k])            for _,_v in pairs(_table[k]) do                table[paste][/paste]insert(_table, _v)            end            table[paste][/paste]remove(_table, k)        elseif type(_table[k]) == "function" then            _table[k] = string[paste][/paste]dump(_table[k])        end    end    return _tableendrednet[paste][/paste]open("right")id, command = rednet[paste][/paste]receive()foo = loadstring(command)local tReturn_values = {pcall(function() return foo() end)}successful = tReturn_values[1]table[paste][/paste]remove(tReturn_values, 1)if successful then    sReturn_values = table[paste][/paste]concat(table_to_string(tReturn_values), ";")else    sReturn_values = tReturn_values[2]endrednet[paste][/paste]send(id, sReturn_values)

Вопрос, как почему черепашка выкидывает предметы из слотов которые я не указывал. Например: она у меня по порядку с 1 по 12-тый слот пролистывает и выкидывает предметы в сундук, но те вещи которые в 13-ом по 16-тый слот она тоже выкидывает. Прошу помощи, мне это необходимо, она выкидывает топливо. За рание благодарю!

for i = 1, 12 doturtle[paste][/paste]select(i)turtle[paste][/paste]drop()endturtle[paste][/paste]select(1)

Попробуй

for i = 1, 12 doturtle[paste][/paste]select(i)turtle[paste][/paste]drop()endturtle[paste][/paste]select(1)

Уже пробовал, нифига((( Наврено баг, надеюсь пофиксят.

Это весь код? Поставь в цикле print().

Это весь код? Поставь в цикле print().

Ага, я понял в чем проблема. Черепашка пролистывает каждую клетку и дропает предметы, но если хотябы в одной из заданных клетках нет предмета, она начинает дропать из тех клеток в которых есть. Тем самым выкидывая мой уголь. Ни малейшего понятия как это решить)))

for i = 1,12 do    if turtle[paste][/paste]getItemCount(i) > 0 then        turtle[paste][/paste]select(i)        turtle[paste][/paste]drop()    endend

for i = 1,12 do    if turtle[paste][/paste]getItemCount(i) > 0 then        turtle[paste][/paste]select(i)        turtle[paste][/paste]drop()    endend

Интересная ошибка

--[[* Task about 8 queens on 1 board* Programming by Alexandr Timofeev]]function setQueen(x, y)	if board[x][y] == true then		for i = 1, 8 do			board[x][i] = false			board[i][y] = false			quo = y - x + i			if quo > 0 and quo < 9 then				board[i][quo] = false			end			quo = y + x - i			if quo > 0 and quo < 9 then				board[i][quo] = false			end		end		board[x][y] = 1		return true	end	return falseendfunction clearBoard()	for i = 1,8 do		board[i] = {}		for j = 1, 8 do			board[i][j] = true		end	endendfunction printBoard()	local f = io[paste][/paste]open("q", "a")	for i = 1, 8 do		for j = 1, 8 do			if board[i][j] == 1 then				f:write("[q]")			elseif board[i][j] == false then				f:write("[x]")			else				f:write("[ ]")			end		end		f:write("\n")	end	f:write("\n")	f:close()endboard = {}clearBoard()for k = 1, 8 do	setQueen(k, 1)	for i = 1, 8 do		for j = 1,8 do			if setQueen(i, j) then				break			end		end	end	printBoard()	clearBoard()end

Если создать файл с названием системной программы, тот же edit, то эта программа будет заменена, и восстановить системную программу можно будет лишь удалив созданный вами файл.

function binarySearch(arr, key) 	local last = #arr	local index = math[paste][/paste]ceil(last / 2)	local c = index + 1	local flag = false	for i = 1, c do		if arr[index] == key then flag = true break		elseif arr[index] < key then index = math[paste][/paste]ceil((index + last) / 2)		elseif arr[index] > key then last = index index = math[paste][/paste]ceil(index / 2)		end	end	if not flag then return -1	else return index endend

function sort_selection(arr)	local max	for i = 1, #arr do	max = i		for j = i, #arr do			if arr[j] > arr[max] then				max = j			end		end		local t = arr[i]		arr[i] = arr[max]		arr[max] = t	end	return arrend

Решил оживить хорошую тему, а то совсем что-то затишье.. Посоветуйте какой-нибудь алгоритм поиска пути для черепахи, если точнее, то нужен метод обхождения препятствий. Я использовал довольно простой и не надежный метод, основанный на случайном выборе направления движения в случае столкновения с препятствием и после возобновления движения по маршруту. С таким методом большие препятствия черепаха может преодолевать очень долго метаясь туда-сюда. Нужно что-то более интеллектуальное. Может у кого-то есть готовые идеи? Нужен даже не код, а идея. В вики что-то не нашел подходящих алгоритмов, там они вычисляются исходя из того-что препятствие "видимо с расстояния" а черепахи как известно слепы.. У меня есть одна идея - движение черепахи по расширяющейся спирали перед препятствием, пока не найдет проход, это конечно долго, но надежно. Но есть минус: если уткнется в тупик, то назад уже не выйдет..

Но могу посоветовать почитать статейки на тему "Нахождение кратчайшего пути в графе", может натолкнет на верную мысль =)