Новое
Поиск Расширенный
Искать в:

Эта тема

Форум

Пользователи

Help Files

Главная

Галерея
Главная
Форум
FAQ
Карта
Статьи
Wiki
Галерея

Отключен JavaScript

У вас отключен JavaScript. Некоторые возможности системы не будут работать. Пожалуйста, включите JavaScript для получения доступа ко всем функциям.

[1.7.10] ComputerCraft [1.74]

Автор Apokalypsys , 13.01.2012 21:16

Авторизуйтесь для ответа в теме

Сообщений в теме: 2863

#2421 Minik

Опечаленный гастами

Пользователи
Сообщений: 2908

Откуда: Rivendell

Написал 14.08.2013 - 17:32

Уу..тогда оставлю эту идею. Я черепах то знаю на уровне взять/положить/накопать/построить коробку. Остальное темный лес.

mercury

Наверх

#2422 Vitduo

Добытчик дерева

Пользователи
Сообщений: 168

Откуда: Город Черепашкино

Написал 15.08.2013 - 00:03

Как использовать черепашки с кранниками, лазерами, ведрами, сканерами? Какая команда на использование инструмента? P. S. КомпуторКрафт не использует лук из комбо арморс... Жаль, было бы веселье

Добра вам!
)=/

Наверх

#2423 Lexor

Добытчик угля

Пользователи
Сообщений: 399

Откуда: Иркутская область

Написал 15.08.2013 - 02:21

Как использовать черепашки с кранниками, лазерами, ведрами, сканерами?

С большинством инструментов все весьма просто - команды стандартные: "копать" и "атаковать". Со сканерами чуть сложнее их апи смотри там, где взял аддон их добавляющий.

Скрытый текст
Я бы сделал базу с огроооомным сенсором и написал бы протокольчик, для связи базы со многими черепахами и отдачи им команд. То есть черепахи будут как зомби ходить под управлением 1-го сервера и мочить всё что движеться ~~а что не движеться - двигать и мочить~~. И gps у них был бы. Если кто-то собирется делать - я помогу с кодом.

ться, тся... ненавижу.

А со сборщиком легко, как конвеер. Прям в коде описал сборку (вправо, вперед, поставить, вниз...), и просто цикл с ожиданием сигнала.
while not os[paste][/paste]pullEvent("redstone") do    sleep(1)end
Нет, лучше пусть база просто транслирует координаты всех врагов например в json. Черепаха будет определять ближайшего и ползти к нему. А то много нагрузки на сервер - каждой черепахе выбирать приоритетную цель и пролаживать курс.

Была у меня подобная идея, даже протокол собственный для связи имеется, остался от карьера, копаемого несколькими черепахами по определенному плану, задаваемому сервером. Но так и не реализовал - лень

Одну черепаху, путешествующую за мной (но не атакующую) делал. А вообще радиус сенсора не такой уж и большой - 28 блоков, т.е возможно и не хватит одного сенсора на базу. Ну и не трудно догадаться, что такая оборона весьма уязвима к криперам.

Наверх

#2424 Vitduo

Добытчик дерева

Пользователи
Сообщений: 168

Откуда: Город Черепашкино

Написал 15.08.2013 - 09:46

Хм... Я даже не знаю откуда я ее взял... Юзает сканеры ИК2... Вроде OV сканер. З. Ы. Тут еще черепаха с компасом. А вообще, у кого КК и НЕИ, клацните ПКМ по черепахе в меню предметов...UPD. Кто потер пост апокалипсиса? Чуть дабл не сделал =/ и как юзать компасную черепаху, расскажите юному паданеофиту

Добра вам!
)=/

Наверх

#2425 Apokalypsys

Добытчик дерева

Пользователи
Сообщений: 183

Написал 15.08.2013 - 21:23

Я стер. Уже не надо

. А что в описании мода не написано?

turtle[paste][/paste]getFacing()

Стороны как по F3 Вот вам задачка. Для реализации функции хеша md5 необходимо API "bit", но не то кторое в CC. Почему

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

Потому что для битовых операций используют 32-разрядные целые знаковые числа. В API так и есть. Но числа double (все числа в lua - double) - это число с плавающей точкой, поэтому в CC есть строки

if(d % 1[paste][/paste]0D != 0[paste][/paste]0D) {            throw new IllegalArgumentException("passed number is not an integer");         } else if(d >= 4294967296L) {            throw new IllegalArgumentException("number is too large (maximum allowed: 2^64-1)");         } else {            return (int)((long)d);

Но вот беда, они стоят в начале, не давая передавать функциям числа больше Integer.MAX_VALUE, а не обрезая числа в конце. Пример: bit.blshift(8589924203, 16) правильно должно вернуть -680853504, на самом деле вернет ошибку number is too large (maximum allowed: 2^64-1)

Следовательно нужно писать самому. И это на языке сценариев! И реализация md5 уже не такая простая

. Балуйтесь:

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

По мне так интересно. 150 сообщение. Тест bit._bor()

Ввод	Результат	Правильный результат
271733878, -2004318073	-1732584201	-1732584201
271733878, -2004318074	-1732584202	-1732584202
271733878, -2004318072	-1732584202	-1732584194

Эта железяка надо мною издевается.

ComputerCraft

Наверх

#2426 Dimus

Странник

Пользователи
Сообщений: 89

Написал 16.08.2013 - 13:01

Функцию bit.add напиши так

function bit[paste][/paste]add(x, y)   local remember_bit = 0   local z = ""   x, y = to_equal_length(x, y)   for i = x:len(),1,-1 do      z = bit[paste][/paste]bxor(bit[paste][/paste]bxor(tonumber(x:sub(i, i)), tonumber(y:sub(i, i))), remember_bit)[paste][/paste][paste][/paste]z      remember_bit =bit[paste][/paste]brshift( (tonumber(x:sub(i, i)) + tonumber(y:sub(i, i)) + remember_bit) , 1 )   end   if remember_bit == 1 then      if z:len() == 64 then         z = string[paste][/paste]rep("0", 64)      else         z = tostring(1)[paste][/paste][paste][/paste]z      end   end   return zend

и будет счастье.
(Обратить внимание на расчет remember_bit)

Наверх

#2427 Apokalypsys

Добытчик дерева

Пользователи
Сообщений: 183

Написал 16.08.2013 - 14:03

Да, теперь хеширует. Я там даже не искал. Уважуха.

. Оптимизирую и выложу код. Скрытый текст

--[[	*Apokalypsys, Dimus	*http://minecrafting[paste][/paste]ru/	*http://minecrafting[paste][/paste]ru/forum/viewtopic[paste][/paste]php?f=32&t=5331]]local hex_char = "0123456789abcdef"local function to_equal_length(x, y)	x_len = x:len()	y_len = y:len()	if x_len > y_len then		y = string[paste][/paste]rep("0", x_len-y_len)[paste][/paste][paste][/paste]y	elseif y_len > x_len then		x = string[paste][/paste]rep("0", y_len-x_len)[paste][/paste][paste][/paste]x	end	return x, yendfunction bit[paste][/paste]bin_to_dec(x)	if x:len() > 32 then		x = x:sub(x:len() - 31)	end	if tonumber(x:sub(1, 1)) == 1 then		return -4294967296 + tonumber(x, 2)	else		return tonumber(x, 2)	endendfunction bit[paste][/paste]add(x, y)	local remember_bit = 0	local z = ""	x, y = to_equal_length(x, y)	for i = x:len(),1,-1 do		z = bit[paste][/paste]bxor(bit[paste][/paste]bxor(tonumber(x:sub(i, i)), tonumber(y:sub(i, i))), remember_bit)[paste][/paste][paste][/paste]z		remember_bit = bit[paste][/paste]brshift(tonumber(x:sub(i, i)) + tonumber(y:sub(i, i) + remember_bit), 1)	end	if remember_bit == 1 then		if z:len() == 32 then			z = string[paste][/paste]rep("0", 32)		else			z = "1"[paste][/paste][paste][/paste]z		end	end	return zendfunction bit[paste][/paste]_bnot() endfunction bit[paste][/paste]dec_to_bin(x)	local sign = false	if type(x) ~= "number" then return nil	elseif x == 0 then return string[paste][/paste]rep("0", 32)	elseif x < 0 then sign = true x = -x end	y = ""	while x > 0 do		if (x % 2 == 1) then			y = "1"[paste][/paste][paste][/paste]y		else			y = "0"[paste][/paste][paste][/paste]y		end		x = math[paste][/paste]floor(x / 2)	end	for i = 32 - y:len(), 1, -1 do		y = "0"[paste][/paste][paste][/paste]y	end	if sign then		y = bit[paste][/paste]add(bit[paste][/paste]_bnot(y), bit[paste][/paste]dec_to_bin(1))	end	return yendfunction bit[paste][/paste]_bnot(x)	if type(x) == "number" then		x = bit[paste][/paste]dec_to_bin(x)	end	local y = ""	for i = 1, x:len() do		y = y[paste][/paste][paste][/paste](1 - tonumber(x:sub(i, i)))	end	return yendfunction bit[paste][/paste]_band(x, y)	x = bit[paste][/paste]dec_to_bin(x)	y = bit[paste][/paste]dec_to_bin(y)	local z = ""	x, y = to_equal_length(x, y)	for i = 1, x:len() do		if tonumber(x:sub(i, i))+tonumber(y:sub(i, i)) == 2 then			z = z[paste][/paste][paste][/paste]"1"		else			z = z[paste][/paste][paste][/paste]"0"		end	end	return bit[paste][/paste]bin_to_dec(z)endfunction bit[paste][/paste]_bor(x, y)	x = bit[paste][/paste]dec_to_bin(x)	y = bit[paste][/paste]dec_to_bin(y)	local z = ""	x, y = to_equal_length(x, y)	for i = 1, x:len() do		if tonumber(x:sub(i, i))+tonumber(y:sub(i, i)) > 0 then			z = z[paste][/paste][paste][/paste]"1"		else			z = z[paste][/paste][paste][/paste]"0"		end	end	return bit[paste][/paste]bin_to_dec(z)endfunction bit[paste][/paste]_blshift(x, y)	return bit[paste][/paste]_band(x * (2 ^ y), 4294967295)endfunction bit[paste][/paste]_brshift(x, y)	return bit[paste][/paste]_band(math[paste][/paste]floor(x / (2 ^ y)), 4294967295)endfunction string[paste][/paste]charAt(str_self, x)	return str_self:sub(x, x)endlocal function getHex(seed)	local str = ""	for i = 0, 3 do		local ind1, ind2 = bit[paste][/paste]_band(bit[paste][/paste]_brshift(seed, i * 8 + 4), 15) + 1, bit[paste][/paste]_band(bit[paste][/paste]_brshift(seed, i * 8), 15) + 1		str = str[paste][/paste][paste][/paste]		hex_char:sub(ind1, ind1)[paste][/paste][paste][/paste]		hex_char:sub(ind2, ind2)	end	return strendlocal function string_to_blks(str)	local nblk = bit[paste][/paste]_brshift((str:len() + 8), 6) + 1	local blks = {}	local len = str:len()	for i = 0, nblk * 16 - 1 do		blks[i] = 0 	end	for i = 0, str:len() - 1 do		blks[bit[paste][/paste]_brshift(i, 2)] = 		bit[paste][/paste]_bor(			blks[bit[paste][/paste]_brshift(i, 2)],			bit[paste][/paste]_blshift(				str:byte(i+1),		 		(((i) % 4) * 8)		 	)		)	end		blks[bit[paste][/paste]_brshift(len, 2)] = 		bit[paste][/paste]_bor(			blks[bit[paste][/paste]_brshift(len, 2)], 			bit[paste][/paste]_blshift(				128, 				(((len) % 4) * 8)			)		)		blks[nblk * 16 - 2] = len * 8	return blksendlocal function add(x, y)	local lsw = bit[paste][/paste]_band(x, 0xFFFF) + bit[paste][/paste]_band(y, 0xFFFF)	local msw = bit[paste][/paste]_brshift(x, 16) + bit[paste][/paste]_brshift(y, 16) + bit[paste][/paste]_brshift(lsw, 16)	return bit[paste][/paste]_bor(bit[paste][/paste]_blshift(msw, 16), bit[paste][/paste]_band(lsw, 0xFFFF))endlocal function rol(number, count)	return bit[paste][/paste]_bor(bit[paste][/paste]_blshift(number, count), bit[paste][/paste]blogic_rshift(number, (32 - count)))endlocal function X(a, b, c, x, s, t)	return add(rol(add(add(b, a), add(x, t)), s), c)endlocal function F(a, b, c, d, x, s, t)	return X(bit[paste][/paste]_bor(bit[paste][/paste]_band(b, c), bit[paste][/paste]_band(bit[paste][/paste]bin_to_dec(bit[paste][/paste]_bnot(b)), d)), a, b, x, s, t)endlocal function G(a, b, c, d, x, s, t)	return X(bit[paste][/paste]_bor(bit[paste][/paste]_band(b, d), bit[paste][/paste]_band(c, bit[paste][/paste]bin_to_dec(bit[paste][/paste]_bnot(d)))), a, b, x, s, t)endlocal function H(a, b, c, d, x, s, t)	return X(bit[paste][/paste]bxor(bit[paste][/paste]bxor(b, c), d), a, b, x, s, t)endlocal function I(a, b, c, d, x, s, t)	return X(bit[paste][/paste]bxor(c, bit[paste][/paste]_bor(b, bit[paste][/paste]bin_to_dec(bit[paste][/paste]_bnot(d)))), a, b, x, s, t)endfunction count(table)	local i, k = 1, -1	while true do		if (math[paste][/paste]abs(i-k) ~= 1) then			if (table[i] == nil) then i = math[paste][/paste]ceil((i + k) / 2)			else k = i i = i * 2 end		elseif (table[i] == nil) then			return k		else			k = i			i = i * 2		end	endendfunction encode(encoding_string)	blks = string_to_blks(encoding_string)	a = 1732584193	b = -271733879	c = -1732584194	d = 271733878	for i = 0, count(blks)-1, 16 do		local olda, oldb, oldc, oldd = a, b, c, d		a = F(a, b, c, d, blks[i+ 0], 7, -680876936)		d = F(d, a, b, c, blks[i+ 1], 12, -389564586)		c = F(c, d, a, b, blks[i+ 2], 17, 606105819)		b = F(b, c, d, a, blks[i+ 3], 22, -1044525330)		a = F(a, b, c, d, blks[i+ 4], 7, -176418897)		d = F(d, a, b, c, blks[i+ 5], 12, 1200080426)		c = F(c, d, a, b, blks[i+ 6], 17, -1473231341)		b = F(b, c, d, a, blks[i+ 7], 22, -45705983)		a = F(a, b, c, d, blks[i+ 8], 7, 1770035416)		d = F(d, a, b, c, blks[i+ 9], 12, -1958414417)		c = F(c, d, a, b, blks[i+10], 17, -42063)		b = F(b, c, d, a, blks[i+11], 22, -1990404162)		a = F(a, b, c, d, blks[i+12], 7, 1804603682)		d = F(d, a, b, c, blks[i+13], 12, -40341101)		c = F(c, d, a, b, blks[i+14], 17, -1502002290)		b = F(b, c, d, a, blks[i+15], 22, 1236535329)		a = G(a, b, c, d, blks[i+ 1], 5, -165796510)		d = G(d, a, b, c, blks[i+ 6], 9, -1069501632)		c = G(c, d, a, b, blks[i+11], 14, 643717713)		b = G(b, c, d, a, blks[i+ 0], 20, -373897302)		a = G(a, b, c, d, blks[i+ 5], 5, -701558691)		d = G(d, a, b, c, blks[i+10], 9, 38016083)		c = G(c, d, a, b, blks[i+15], 14, -660478335)		b = G(b, c, d, a, blks[i+ 4], 20, -405537848)		a = G(a, b, c, d, blks[i+ 9], 5, 568446438)		d = G(d, a, b, c, blks[i+14], 9, -1019803690)		c = G(c, d, a, b, blks[i+ 3], 14, -187363961)		b = G(b, c, d, a, blks[i+ 8], 20, 1163531501)		a = G(a, b, c, d, blks[i+13], 5, -1444681467)		d = G(d, a, b, c, blks[i+ 2], 9, -51403784)		c = G(c, d, a, b, blks[i+ 7], 14, 1735328473)		b = G(b, c, d, a, blks[i+12], 20, -1926607734)		a = H(a, b, c, d, blks[i+ 5], 4, -378558)		d = H(d, a, b, c, blks[i+ 8], 11, -2022574463)		c = H(c, d, a, b, blks[i+11], 16, 1839030562)		b = H(b, c, d, a, blks[i+14], 23, -35309556)		a = H(a, b, c, d, blks[i+ 1], 4, -1530992060)		d = H(d, a, b, c, blks[i+ 4], 11, 1272893353)		c = H(c, d, a, b, blks[i+ 7], 16, -155497632)		b = H(b, c, d, a, blks[i+10], 23, -1094730640)		a = H(a, b, c, d, blks[i+13], 4, 681279174)		d = H(d, a, b, c, blks[i+ 0], 11, -358537222)		c = H(c, d, a, b, blks[i+ 3], 16, -722521979)		b = H(b, c, d, a, blks[i+ 6], 23, 76029189)		a = H(a, b, c, d, blks[i+ 9], 4, -640364487)		d = H(d, a, b, c, blks[i+12], 11, -421815835)		c = H(c, d, a, b, blks[i+15], 16, 530742520)		b = H(b, c, d, a, blks[i+ 2], 23, -995338651)		a = I(a, b, c, d, blks[i+ 0], 6, -198630844)		d = I(d, a, b, c, blks[i+ 7], 10, 1126891415)		c = I(c, d, a, b, blks[i+14], 15, -1416354905)		b = I(b, c, d, a, blks[i+ 5], 21, -57434055)		a = I(a, b, c, d, blks[i+12], 6, 1700485571)		d = I(d, a, b, c, blks[i+ 3], 10, -1894986606)		c = I(c, d, a, b, blks[i+10], 15, -1051523)		b = I(b, c, d, a, blks[i+ 1], 21, -2054922799)		a = I(a, b, c, d, blks[i+ 8], 6, 1873313359)		d = I(d, a, b, c, blks[i+15], 10, -30611744)		c = I(c, d, a, b, blks[i+ 6], 15, -1560198380)		b = I(b, c, d, a, blks[i+13], 21, 1309151649)		a = I(a, b, c, d, blks[i+ 4], 6, -145523070)		d = I(d, a, b, c, blks[i+11], 10, -1120210379)		c = I(c, d, a, b, blks[i+ 2], 15, 718787259)		b = I(b, c, d, a, blks[i+ 9], 21, -343485551)		a = add(a, olda)		b = add(b, oldb)		c = add(c, oldc)		d = add(d, oldd)	end	return getHex(a)[paste][/paste][paste][/paste]getHex(b)[paste][/paste][paste][/paste]getHex(c)[paste][/paste][paste][/paste]getHex(d)end

Я опробывал другой вариант: с помощью API "http" делаю запрос на свой сервер, который считает и возвращает текст в виде строки.

Тип	Время, с
offline	2.3
online	0.2

А еще online-вариант поддерживает

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

local tArgs = { [paste][/paste][paste][/paste][paste][/paste] }if #tArgs == 1 then	local respond = http[paste][/paste]get("http://bps[paste][/paste]p[paste][/paste]ht/scripts/hash_algos[paste][/paste]php")	if respond then		print(string[paste][/paste]gmatch(respond[paste][/paste]readAll(), '', '\n')	endendif #tArgs ~= 2 then	print("Usage "[paste][/paste][paste][/paste]os[paste][/paste]getRunningProgramm()[paste][/paste][paste][/paste]" <type> <text> or -a for look at all supports algos")	returnendlocal keys = "type="[paste][/paste][paste][/paste]tArgs[1][paste][/paste][paste][/paste]			 "&text="[paste][/paste][paste][/paste]tArgs[2]local respond = http[paste][/paste]get("http://bps[paste][/paste]p[paste][/paste]ht/scripts/hash[paste][/paste]php?"[paste][/paste][paste][/paste]keys)if respond then	print(respond[paste][/paste]readAll())end

ComputerCraft

Наверх

#2428 Dimus

Странник

Пользователи
Сообщений: 89

Написал 16.08.2013 - 16:08

И все таки, мне кажется, что работа со строками в данном случае весьма не эффективна. Может есть смысл хранить данные, например, в таблице из двух элементов: один элемент содержит старшие 32 бита, второй - младшие. Так логическо-арифметические операции будут осуществляться гораздо быстрее.

Наверх

#2429 Apokalypsys

Добытчик дерева

Пользователи
Сообщений: 183

Написал 16.08.2013 - 16:14

Там всего 32 бита

. Я думаю насчёт передавать массивчики с числом и его двоичным представлением. Чтобы не переводить туда сюда.Думаю не добиться скорости в двоичных операциях на скриптовом языке.

ComputerCraft

Наверх

#2430 Dimus

Странник

Пользователи
Сообщений: 89

Написал 16.08.2013 - 16:20

Там всего 32 бита .

А зачем тогда двоичное представление в виде строки? Я думал из-за того, что разрядности не хватает.

Наверх

#2431 Apokalypsys

Добытчик дерева

Пользователи
Сообщений: 183

Написал 16.08.2013 - 16:29

Потому что dan200 тупо не даёт передавать числа больше Integer.MAX_VALUE, хотя правильно сделать операцию, а потом число "обрезать" до 32 бит.В функции dec_to_bin есть правило дополнять число до 32 бит, но нет правила чтобы его обрезать до 32 бит. Но оно есть в функции bin_to_dec.

ComputerCraft

Наверх

#2432 Dimus

Странник

Пользователи
Сообщений: 89

Написал 16.08.2013 - 17:39

Потому что dan200 тупо не даёт передавать числа больше Integer.MAX_VALUE, хотя правильно сделать операцию, а потом число "обрезать" до 32 бит.

Или я туплю или лыжи не едут. Если ты не планируешь использовать числа более чем 32 разряда, то откуда проблема? А кто такой dan200?

Наверх

#2433 IIazaH4er

RIP

Пользователи
Сообщений: 4022

Написал 16.08.2013 - 18:04

dan200 - создатель Computer Craft'a

Наверх

#2434 Apokalypsys

Добытчик дерева

Пользователи
Сообщений: 183

Написал 16.08.2013 - 18:10

В функцию можно передать и 64-х разрядный long, а если в результате получается число больше 32 разрядов, оно преобразуется в int и всё ок, всё хешируется. А dan200, создатель мода, ввел проверку, которая не дает передавать функции числа больше int. У меня если число занимает больше 32-х бит - ничего страшного, в конце обрезается. Можешь проверить хэш который генерируется моей программой с другими, если не веришь.Если бы он заменил d >= Integer.MAX_VALUE на d >= Long.MAX_VALUE, программа бы летала.

ComputerCraft

Наверх

#2435 Dimus

Странник

Пользователи
Сообщений: 89

Написал 16.08.2013 - 18:14

Чуть упростил алгоритм Апокалипса

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

--[[   *Apokalypsys, Dimus   *http://minecrafting[paste][/paste]ru/   *http://minecrafting[paste][/paste]ru/forum/viewtopic[paste][/paste]php?f=32&t=5331]]local hex_char = "0123456789abcdef"function bit[paste][/paste]add(x, y)   local z = x + y   if z>=4294967296 then z=z-4294967296 end   return zendfunction bit[paste][/paste]_bnot(x)   return bit[paste][/paste]bnot(x)endfunction bit[paste][/paste]_band(x, y)   return bit[paste][/paste]band(x, y)endfunction bit[paste][/paste]_bor(x, y)   return bit[paste][/paste]bor(x, y)endfunction bit[paste][/paste]_blshift(x, y)   return bit[paste][/paste]blshift(x, y)endfunction bit[paste][/paste]_brshift(x, y)   return bit[paste][/paste]band(math[paste][/paste]floor(x / (2 ^ y)), 4294967295)endfunction string[paste][/paste]charAt(str_self, x)   return str_self:sub(x, x)endlocal function getHex(seed)   local str = ""   for i = 0, 3 do      local ind1, ind2 = bit[paste][/paste]_band(bit[paste][/paste]_brshift(seed, i * 8 + 4), 15) + 1, bit[paste][/paste]_band(bit[paste][/paste]_brshift(seed, i * 8), 15) + 1      str = str[paste][/paste][paste][/paste]      hex_char:sub(ind1, ind1)[paste][/paste][paste][/paste]      hex_char:sub(ind2, ind2)   end   return strendlocal function string_to_blks(str)   local nblk = bit[paste][/paste]_brshift((str:len() + 8), 6) + 1   local blks = {}   local len = str:len()   for i = 0, nblk * 16 - 1 do      blks[i] = 0   end   for i = 0, str:len() - 1 do      blks[bit[paste][/paste]_brshift(i, 2)] =      bit[paste][/paste]_bor(         blks[bit[paste][/paste]_brshift(i, 2)],         bit[paste][/paste]_blshift(            str:byte(i+1),             (((i) % 4) * 8)          )      )   end      blks[bit[paste][/paste]_brshift(len, 2)] =      bit[paste][/paste]_bor(         blks[bit[paste][/paste]_brshift(len, 2)],         bit[paste][/paste]_blshift(            128,            (((len) % 4) * 8)         )      )      blks[nblk * 16 - 2] = len * 8   return blksendlocal function add(x, y)   return bit[paste][/paste]add(x, y)endlocal function rol(number, count)   return bit[paste][/paste]_bor(bit[paste][/paste]_blshift(number, count), bit[paste][/paste]blogic_rshift(number, (32 - count)))endlocal function X(a, b, c, x, s, t)   return add(rol(add(add(b, a), add(x, t)), s), c)endlocal function F(a, b, c, d, x, s, t)   return X(bit[paste][/paste]_bor(bit[paste][/paste]_band(b, c), bit[paste][/paste]_band(bit[paste][/paste]_bnot(b), d)), a, b, x, s, t)endlocal function G(a, b, c, d, x, s, t)   return X(bit[paste][/paste]_bor(bit[paste][/paste]_band(b, d), bit[paste][/paste]_band(c, bit[paste][/paste]_bnot(d))), a, b, x, s, t)endlocal function H(a, b, c, d, x, s, t)   return X(bit[paste][/paste]bxor(bit[paste][/paste]bxor(b, c), d), a, b, x, s, t)endlocal function I(a, b, c, d, x, s, t)   return X(bit[paste][/paste]bxor(c, bit[paste][/paste]_bor(b, bit[paste][/paste]_bnot(d))), a, b, x, s, t)endfunction count(table)   local i, k = 1, -1   while true do      if (math[paste][/paste]abs(i-k) ~= 1) then         if (table[i] == nil) then i = math[paste][/paste]ceil((i + k) / 2)         else k = i i = i * 2 end      elseif (table[i] == nil) then         return k      else         k = i         i = i * 2      end   endendfunction encode(encoding_string)   blks = string_to_blks(encoding_string)   a = 1732584193   b = -271733879   c = -1732584194   d = 271733878   for i = 0, count(blks)-1, 16 do      local olda, oldb, oldc, oldd = a, b, c, d      a = F(a, b, c, d, blks[i+ 0], 7, -680876936)      d = F(d, a, b, c, blks[i+ 1], 12, -389564586)      c = F(c, d, a, b, blks[i+ 2], 17, 606105819)      b = F(b, c, d, a, blks[i+ 3], 22, -1044525330)      a = F(a, b, c, d, blks[i+ 4], 7, -176418897)      d = F(d, a, b, c, blks[i+ 5], 12, 1200080426)      c = F(c, d, a, b, blks[i+ 6], 17, -1473231341)      b = F(b, c, d, a, blks[i+ 7], 22, -45705983)      a = F(a, b, c, d, blks[i+ 8], 7, 1770035416)      d = F(d, a, b, c, blks[i+ 9], 12, -1958414417)      c = F(c, d, a, b, blks[i+10], 17, -42063)      b = F(b, c, d, a, blks[i+11], 22, -1990404162)      a = F(a, b, c, d, blks[i+12], 7, 1804603682)      d = F(d, a, b, c, blks[i+13], 12, -40341101)      c = F(c, d, a, b, blks[i+14], 17, -1502002290)      b = F(b, c, d, a, blks[i+15], 22, 1236535329)      a = G(a, b, c, d, blks[i+ 1], 5, -165796510)      d = G(d, a, b, c, blks[i+ 6], 9, -1069501632)      c = G(c, d, a, b, blks[i+11], 14, 643717713)      b = G(b, c, d, a, blks[i+ 0], 20, -373897302)      a = G(a, b, c, d, blks[i+ 5], 5, -701558691)      d = G(d, a, b, c, blks[i+10], 9, 38016083)      c = G(c, d, a, b, blks[i+15], 14, -660478335)      b = G(b, c, d, a, blks[i+ 4], 20, -405537848)      a = G(a, b, c, d, blks[i+ 9], 5, 568446438)      d = G(d, a, b, c, blks[i+14], 9, -1019803690)      c = G(c, d, a, b, blks[i+ 3], 14, -187363961)      b = G(b, c, d, a, blks[i+ 8], 20, 1163531501)      a = G(a, b, c, d, blks[i+13], 5, -1444681467)      d = G(d, a, b, c, blks[i+ 2], 9, -51403784)      c = G(c, d, a, b, blks[i+ 7], 14, 1735328473)      b = G(b, c, d, a, blks[i+12], 20, -1926607734)      a = H(a, b, c, d, blks[i+ 5], 4, -378558)      d = H(d, a, b, c, blks[i+ 8], 11, -2022574463)      c = H(c, d, a, b, blks[i+11], 16, 1839030562)      b = H(b, c, d, a, blks[i+14], 23, -35309556)      a = H(a, b, c, d, blks[i+ 1], 4, -1530992060)      d = H(d, a, b, c, blks[i+ 4], 11, 1272893353)      c = H(c, d, a, b, blks[i+ 7], 16, -155497632)      b = H(b, c, d, a, blks[i+10], 23, -1094730640)      a = H(a, b, c, d, blks[i+13], 4, 681279174)      d = H(d, a, b, c, blks[i+ 0], 11, -358537222)      c = H(c, d, a, b, blks[i+ 3], 16, -722521979)      b = H(b, c, d, a, blks[i+ 6], 23, 76029189)      a = H(a, b, c, d, blks[i+ 9], 4, -640364487)      d = H(d, a, b, c, blks[i+12], 11, -421815835)      c = H(c, d, a, b, blks[i+15], 16, 530742520)      b = H(b, c, d, a, blks[i+ 2], 23, -995338651)      a = I(a, b, c, d, blks[i+ 0], 6, -198630844)      d = I(d, a, b, c, blks[i+ 7], 10, 1126891415)      c = I(c, d, a, b, blks[i+14], 15, -1416354905)      b = I(b, c, d, a, blks[i+ 5], 21, -57434055)      a = I(a, b, c, d, blks[i+12], 6, 1700485571)      d = I(d, a, b, c, blks[i+ 3], 10, -1894986606)      c = I(c, d, a, b, blks[i+10], 15, -1051523)      b = I(b, c, d, a, blks[i+ 1], 21, -2054922799)      a = I(a, b, c, d, blks[i+ 8], 6, 1873313359)      d = I(d, a, b, c, blks[i+15], 10, -30611744)      c = I(c, d, a, b, blks[i+ 6], 15, -1560198380)      b = I(b, c, d, a, blks[i+13], 21, 1309151649)      a = I(a, b, c, d, blks[i+ 4], 6, -145523070)      d = I(d, a, b, c, blks[i+11], 10, -1120210379)      c = I(c, d, a, b, blks[i+ 2], 15, 718787259)      b = I(b, c, d, a, blks[i+ 9], 21, -343485551)      a = add(a, olda)      b = add(b, oldb)      c = add(c, oldc)      d = add(d, oldd)   end   return getHex(a)[paste][/paste][paste][/paste]getHex(b)[paste][/paste][paste][/paste]getHex(c)[paste][/paste][paste][/paste]getHex(d)end

заменил операции над строками обычными битовыми. Результат, вроде, тот же, но на много быстрее. Правда проверял на эмуляторе СС. Может в реальном будет работать по другому

Наверх

#2436 Apokalypsys

Добытчик дерева

Пользователи
Сообщений: 183

Написал 16.08.2013 - 18:33

Значит мне в bit.blshift передалось число 8589924203, только из-за моего косяка, который я потом исправил, но продолжал делать битовые функции. Отлично, зато теперь алгоритм что надо.

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

--[[   *Apokalypsys, Dimus   *http://minecrafting[paste][/paste]ru/   *http://minecrafting[paste][/paste]ru/forum/viewtopic[paste][/paste]php?f=32&t=5331]]local hex_char = "0123456789abcdef"function string[paste][/paste]charAt(str_self, x)   return str_self:sub(x, x)endlocal function getHex(seed)   local str = ""   for i = 0, 3 do      local ind1, ind2 = bit[paste][/paste]band(bit[paste][/paste]brshift(seed, i * 8 + 4), 15) + 1, bit[paste][/paste]band(bit[paste][/paste]brshift(seed, i * 8), 15) + 1      str = str[paste][/paste][paste][/paste]      hex_char:sub(ind1, ind1)[paste][/paste][paste][/paste]      hex_char:sub(ind2, ind2)   end   return strendlocal function string_to_blks(str)   local nblk = bit[paste][/paste]brshift((str:len() + 8), 6) + 1   local blks = {}   local len = str:len()   for i = 0, nblk * 16 - 1 do      blks[i] = 0   end   for i = 0, str:len() - 1 do      blks[bit[paste][/paste]brshift(i, 2)] =      bit[paste][/paste]bor(         blks[bit[paste][/paste]brshift(i, 2)],         bit[paste][/paste]blshift(            str:byte(i+1),             (((i) % 4) * 8)          )      )   end      blks[bit[paste][/paste]brshift(len, 2)] =      bit[paste][/paste]bor(         blks[bit[paste][/paste]brshift(len, 2)],         bit[paste][/paste]blshift(            128,            (((len) % 4) * 8)         )      )      blks[nblk * 16 - 2] = len * 8   return blksendlocal function add(x, y)   return bit[paste][/paste]add(x, y)endlocal function rol(number, count)   return bit[paste][/paste]bor(bit[paste][/paste]blshift(number, count), bit[paste][/paste]blogic_rshift(number, (32 - count)))endlocal function X(a, b, c, x, s, t)   return add(rol(add(add(b, a), add(x, t)), s), c)endlocal function F(a, b, c, d, x, s, t)   return X(bit[paste][/paste]bor(bit[paste][/paste]band(b, c), bit[paste][/paste]band(bit[paste][/paste]bnot(b), d)), a, b, x, s, t)endlocal function G(a, b, c, d, x, s, t)   return X(bit[paste][/paste]bor(bit[paste][/paste]band(b, d), bit[paste][/paste]band(c, bit[paste][/paste]bnot(d))), a, b, x, s, t)endlocal function H(a, b, c, d, x, s, t)   return X(bit[paste][/paste]bxor(bit[paste][/paste]bxor(b, c), d), a, b, x, s, t)endlocal function I(a, b, c, d, x, s, t)   return X(bit[paste][/paste]bxor(c, bit[paste][/paste]bor(b, bit[paste][/paste]bnot(d))), a, b, x, s, t)endfunction encode(encoding_string)   blks = string_to_blks(encoding_string)   a = 1732584193   b = -271733879   c = -1732584194   d = 271733878   for i = 0, #blks-1, 16 do      local olda, oldb, oldc, oldd = a, b, c, d      a = F(a, b, c, d, blks[i+ 0], 7, -680876936)      d = F(d, a, b, c, blks[i+ 1], 12, -389564586)      c = F(c, d, a, b, blks[i+ 2], 17, 606105819)      b = F(b, c, d, a, blks[i+ 3], 22, -1044525330)      a = F(a, b, c, d, blks[i+ 4], 7, -176418897)      d = F(d, a, b, c, blks[i+ 5], 12, 1200080426)      c = F(c, d, a, b, blks[i+ 6], 17, -1473231341)      b = F(b, c, d, a, blks[i+ 7], 22, -45705983)      a = F(a, b, c, d, blks[i+ 8], 7, 1770035416)      d = F(d, a, b, c, blks[i+ 9], 12, -1958414417)      c = F(c, d, a, b, blks[i+10], 17, -42063)      b = F(b, c, d, a, blks[i+11], 22, -1990404162)      a = F(a, b, c, d, blks[i+12], 7, 1804603682)      d = F(d, a, b, c, blks[i+13], 12, -40341101)      c = F(c, d, a, b, blks[i+14], 17, -1502002290)      b = F(b, c, d, a, blks[i+15], 22, 1236535329)      a = G(a, b, c, d, blks[i+ 1], 5, -165796510)      d = G(d, a, b, c, blks[i+ 6], 9, -1069501632)      c = G(c, d, a, b, blks[i+11], 14, 643717713)      b = G(b, c, d, a, blks[i+ 0], 20, -373897302)      a = G(a, b, c, d, blks[i+ 5], 5, -701558691)      d = G(d, a, b, c, blks[i+10], 9, 38016083)      c = G(c, d, a, b, blks[i+15], 14, -660478335)      b = G(b, c, d, a, blks[i+ 4], 20, -405537848)      a = G(a, b, c, d, blks[i+ 9], 5, 568446438)      d = G(d, a, b, c, blks[i+14], 9, -1019803690)      c = G(c, d, a, b, blks[i+ 3], 14, -187363961)      b = G(b, c, d, a, blks[i+ 8], 20, 1163531501)      a = G(a, b, c, d, blks[i+13], 5, -1444681467)      d = G(d, a, b, c, blks[i+ 2], 9, -51403784)      c = G(c, d, a, b, blks[i+ 7], 14, 1735328473)      b = G(b, c, d, a, blks[i+12], 20, -1926607734)      a = H(a, b, c, d, blks[i+ 5], 4, -378558)      d = H(d, a, b, c, blks[i+ 8], 11, -2022574463)      c = H(c, d, a, b, blks[i+11], 16, 1839030562)      b = H(b, c, d, a, blks[i+14], 23, -35309556)      a = H(a, b, c, d, blks[i+ 1], 4, -1530992060)      d = H(d, a, b, c, blks[i+ 4], 11, 1272893353)      c = H(c, d, a, b, blks[i+ 7], 16, -155497632)      b = H(b, c, d, a, blks[i+10], 23, -1094730640)      a = H(a, b, c, d, blks[i+13], 4, 681279174)      d = H(d, a, b, c, blks[i+ 0], 11, -358537222)      c = H(c, d, a, b, blks[i+ 3], 16, -722521979)      b = H(b, c, d, a, blks[i+ 6], 23, 76029189)      a = H(a, b, c, d, blks[i+ 9], 4, -640364487)      d = H(d, a, b, c, blks[i+12], 11, -421815835)      c = H(c, d, a, b, blks[i+15], 16, 530742520)      b = H(b, c, d, a, blks[i+ 2], 23, -995338651)      a = I(a, b, c, d, blks[i+ 0], 6, -198630844)      d = I(d, a, b, c, blks[i+ 7], 10, 1126891415)      c = I(c, d, a, b, blks[i+14], 15, -1416354905)      b = I(b, c, d, a, blks[i+ 5], 21, -57434055)      a = I(a, b, c, d, blks[i+12], 6, 1700485571)      d = I(d, a, b, c, blks[i+ 3], 10, -1894986606)      c = I(c, d, a, b, blks[i+10], 15, -1051523)      b = I(b, c, d, a, blks[i+ 1], 21, -2054922799)      a = I(a, b, c, d, blks[i+ 8], 6, 1873313359)      d = I(d, a, b, c, blks[i+15], 10, -30611744)      c = I(c, d, a, b, blks[i+ 6], 15, -1560198380)      b = I(b, c, d, a, blks[i+13], 21, 1309151649)      a = I(a, b, c, d, blks[i+ 4], 6, -145523070)      d = I(d, a, b, c, blks[i+11], 10, -1120210379)      c = I(c, d, a, b, blks[i+ 2], 15, 718787259)      b = I(b, c, d, a, blks[i+ 9], 21, -343485551)      a = add(a, olda)      b = add(b, oldb)      c = add(c, oldc)      d = add(d, oldd)   end   return getHex(a)[paste][/paste][paste][/paste]getHex(b)[paste][/paste][paste][/paste]getHex(c)[paste][/paste][paste][/paste]getHex(d)end

Надо в пользовательские проекты добавить. Вещь в хозяйстве нужная.

ComputerCraft

Наверх

#2437 Vitduo

Добытчик дерева

Пользователи
Сообщений: 168

Откуда: Город Черепашкино

Написал 18.08.2013 - 21:59

Я тупой, как пень. MiscPeripherals для подключения черепашек использует turtle api? Пытаюсь подключится к станции снабжения, прога ругается насяльника такой фунции нэту. turtle.link() не могу заюзать, ни с аргументами, никак. ЧЯДНТ? пишет аттемптед хилл

Добра вам!
)=/

Наверх

#2438 Ark

Странник

Пользователи
Сообщений: 51

Написал 18.08.2013 - 23:40

Такой простой код. Если на черепаху приходит сигнал, то она включает его прямо.

while true dolocal e = os[paste][/paste]pullEvent()if e == "redstone" thenrs[paste][/paste]setOutput("front,true)endend

Но нужно, по такому же сигналу, отключать сигнал прямо и ждать следующего сигнала для включения. То есть, черепаха будет работать как выключатель.

Наверх

#2439 Lexor

Добытчик угля

Пользователи
Сообщений: 399

Откуда: Иркутская область

Написал 19.08.2013 - 03:39

Скрытый текст
Такой простой код. Если на черепаху приходит сигнал, то она включает его прямо.
while true dolocal e = os[paste][/paste]pullEvent()if e == "redstone" thenrs[paste][/paste]setOutput("front,true)endend
Но нужно, по такому же сигналу, отключать сигнал прямо и ждать следующего сигнала для включения. То есть, черепаха будет работать как выключатель.

попробуй так:

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

local status=falsewhile true dolocal e = os[paste][/paste]pullEvent()if e == "redstone" thenstatus= not statusendrs[paste][/paste]setOutput("front", status)end

Наверх

#2440 Ark

Странник

Пользователи
Сообщений: 51

Написал 19.08.2013 - 09:23

Нет, по первому сигналу, черепаха включает редстон прямо, и больше ни на что не реагирует.

Наверх

Обратно в Глобальные модификации

[1.7.10] ComputerCraft [1.74]

#2421 Minik

#2422 Vitduo

#2423 Lexor

#2424 Vitduo

#2425 Apokalypsys

#2426 Dimus

#2427 Apokalypsys

#2428 Dimus

#2429 Apokalypsys

#2430 Dimus

#2431 Apokalypsys

#2432 Dimus

#2433 IIazaH4er

#2434 Apokalypsys

#2435 Dimus

#2436 Apokalypsys

#2437 Vitduo

#2438 Ark

#2439 Lexor

#2440 Ark

Количество пользователей, читающих эту тему: 1

Войти