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

Эта тема

Форум

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

Help Files

Главная

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

Отключен JavaScript

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

[1.7.10] ComputerCraft [1.74]

Автор Apokalypsys , 13.01.2012 21:16

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

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

#1761 Apokalypsys

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

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

Написал 03.03.2013 - 13:52

450 строк кода

Скинь код! Интересно, откуда там столько.

ComputerCraft

Наверх

#1762 Lexor

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

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

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

Написал 04.03.2013 - 02:19

450 строк кода
Скинь код! Интересно, откуда там столько.

Писал давненько, когда еще только делал первые шаги в луа. Код далеко не оптимальный, наверняка есть лишние функции, работа с углем в качестве топлива не гарантируется. Может как-нибудь переделаю. Вообще по-моему подобную программу можно запилить и без GPS, координаты 0, 0, 0 - стартовая позиция, после каждого движения сохранять текущее положение в файл и теоретически потеряться не должна, если конечно не выйти из игры в момент когда команда перемещения дана, а запись еще не произошла, но тут можно подумать о параллельном выполнении функций сохранения и передвижения. Комментарии в коде писал для себя, выкладывать прогу ранее не планировал.

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

print("Forester 0[paste][/paste]2")sleep(5)rednet[paste][/paste]open("right")-- топливо сзади, продукция слева, поле деятельности - спереди-справаlocal tArgs = { [paste][/paste][paste][/paste][paste][/paste] }local moveFw = 0local moveUp = 0local moveDw = 0local moveR = 0local x = 0local y = 0local z = 0local NFuel=100 --требуемое топливо для цикла, предварительное значение[paste][/paste]local Lmove=0 --величина перемещения в заданном направлении[paste][/paste]function compare()	turtle[paste][/paste]select(1)	if turtle[paste][/paste]getItemCount(1)<40 then		for i=1, 16 do			if turtle[paste][/paste]compareTo(i) then				turtle[paste][/paste]select(i)				q=turtle[paste][/paste]getItemCount(i)				turtle[paste][/paste]transferTo(1, q)				turtle[paste][/paste]select(1)			end		end	endendlocal function plant()	if turtle[paste][/paste]getItemCount(1)>20 and turtle[paste][/paste]detectDown()==false then		turtle[paste][/paste]select(1)		turtle[paste][/paste]placeDown()	endendlocal function coordinate()x, y, z = gps[paste][/paste]locate(10)endlocal function compas()	print("Compas activated")	coordinate()	xOld = x	yOld = y	zOld = z	if turtle[paste][/paste]detect() then 		turtle[paste][/paste]dig()		turtle[paste][/paste]forward()	else		turtle[paste][/paste]attack()		sleep(0[paste][/paste]5)		turtle[paste][/paste]attack()		turtle[paste][/paste]forward()	end	coordinate()	if x ~= xOld then		if x > xOld then vect = 1 		else vect = 3		end	end	if z ~= zOld then		if z > zOld then vect = 2 		else vect = 4		end	end	turtle[paste][/paste]back()end-- Функция считывания стартовой точки[paste][/paste]local function loadStartPos()   print("Loading StartPos[paste][/paste][paste][/paste][paste][/paste]")   file = io[paste][/paste]open("forester[paste][/paste]cfg", "a")    file:close()   file = io[paste][/paste]open("forester[paste][/paste]cfg", "r")   test = file:read()   if test ~= nil then      xsp = tonumber(test)      ysp = tonumber(file:read())      zsp = tonumber(file:read())      vectsp = tonumber(file:read())	  t = tonumber(file:read())	  l = tonumber(file:read())	  k = tonumber(file:read())	  leav = tonumber(file:read())	  CoalF = tonumber(file:read())	  NFuel=l*k*4	  else print("No StartPos saved, run with arg 1") return   end   file:close()   print("StartPos was loaded[paste][/paste]")   compas()endfunction move()	if turtle[paste][/paste]forward() == true then		Lmove=Lmove+1		Vdir=vectsp+2		if Vdir>4 then			Vdir=Vdir-4		end		if vect==vectsp or vect==Vdir then			moveFw = moveFw + 1		else			moveR = moveR + 1		end	endendlocal function goUp()if turtle[paste][/paste]up() == true thenmoveUp = moveUp + 1endendlocal function goDown()if turtle[paste][/paste]down() == true thenmoveDw = moveDw + 1endendlocal function vectR()turtle[paste][/paste]turnRight()vect = vect + 1if vect > 4 then vect = 1end-- print("vectr="[paste][/paste][paste][/paste]vect)endlocal function vectL()turtle[paste][/paste]turnLeft()vect = vect - 1if vect < 1 then vect = 4end-- print("vectl="[paste][/paste][paste][/paste]vect)endlocal function refueling()	local fuel=turtle[paste][/paste]getFuelLevel()	print("Current fuel=", fuel)	if NFuel>fuel then		if CoalF==1 then						print("Fuel neded: "[paste][/paste][paste][/paste]NFuel)			sleep(0[paste][/paste]1)			print("Current fuel level: "[paste][/paste][paste][/paste]fuel)			sleep(0[paste][/paste]1)			print("Refueling[paste][/paste][paste][/paste][paste][/paste]")			turtle[paste][/paste]select(2)			vectR()			vectR()			turtle[paste][/paste]suck()			turtle[paste][/paste]refuel()			fuel=turtle[paste][/paste]getFuelLevel()			vectR()			vectR()			print("Fuel neded: "[paste][/paste][paste][/paste]NFuel)			sleep(0[paste][/paste]1)			print("Current fuel level: "[paste][/paste][paste][/paste]fuel)			if NFuel>fuel then				while NFuel>fuel do					print("not enough fuel place fuel in slot 2")					turtle[paste][/paste]select(2)					turtle[paste][/paste]refuel()					fuel=turtle[paste][/paste]getFuelLevel()					sleep(5)				end			end		else			print("charging[paste][/paste][paste][/paste][paste][/paste]")			while NFuel>fuel do				sleep(5)				fuel=turtle[paste][/paste]getFuelLevel()				print("Fuel neded: "[paste][/paste][paste][/paste]NFuel)				sleep(0[paste][/paste]1)				print("Current fuel level: "[paste][/paste][paste][/paste]fuel)						end		end	endendlocal function reSupply()	while rs[paste][/paste]getInput("left")==true do		local fuel=turtle[paste][/paste]getFuelLevel()		print("Storage is full[paste][/paste] Refueling[paste][/paste][paste][/paste][paste][/paste]", fuel)		sleep(20)	end	compare()		for i=2,16 do		turtle[paste][/paste]select(i)		turtle[paste][/paste]dropDown()	end		refueling()	end-- Функция сохранения начальной точки[paste][/paste]local function saveStartPos()   coordinate()   print("Saving StartPos[paste][/paste][paste][/paste][paste][/paste]")   xsp = x   ysp = y   zsp = z   vectsp = vect    file = io[paste][/paste]open("forester[paste][/paste]cfg", "w")      file:write(xsp[paste][/paste][paste][/paste]"\n")      file:write(ysp[paste][/paste][paste][/paste]"\n")      file:write(zsp[paste][/paste][paste][/paste]"\n")      file:write(vectsp[paste][/paste][paste][/paste]"\n")	  file:write(t[paste][/paste][paste][/paste]"\n")	  file:write(l[paste][/paste][paste][/paste]"\n")	  file:write(k[paste][/paste][paste][/paste]"\n")	  file:write(leav[paste][/paste][paste][/paste]"\n")	  file:write(CoalF[paste][/paste][paste][/paste]"\n")   file:close()   print("StartPos was saved[paste][/paste]")end-- Функция задания начальной позиции при аргументе 1if #tArgs == 1 then	compas()	print("Sleep time, t: ")	t=tonumber(read())	print("Length, l: ")	l=tonumber(read())	print("Width, k: ")	k=tonumber(read())	print("Enable Leaves cutting, 1/0: ")	leav=tonumber(read())	print("Enable Coal fuel, 1/0: ")	CoalF=tonumber(read())	saveStartPos()	NFuel=l*k*4	else loadStartPos()endlocal function leaves()if leav == 1 then  if turtle[paste][/paste]detect() then  turtle[paste][/paste]dig()  vectL()  if turtle[paste][/paste]detect() then turtle[paste][/paste]dig() end  vectL()  if turtle[paste][/paste]detect() then turtle[paste][/paste]dig() end  vectL()  if turtle[paste][/paste]detect() then turtle[paste][/paste]dig() end  vectL()  endendendlocal function modul()coordinate()xL = ((x - xsp)^2)^0[paste][/paste]5yL = ((y - ysp)^2)^0[paste][/paste]5zL = ((z - zsp)^2)^0[paste][/paste]5   if vectsp == 1 or vectsp == 3 then    lt = xL kt = zL    else    lt = zL kt = xL   endendlocal function woodcut()	print("Woodcut initialized[paste][/paste]")	moveUp = 0	turtle[paste][/paste]dig()	move()	turtle[paste][/paste]digDown()	turtle[paste][/paste]select(1)	amSup=turtle[paste][/paste]getItemCount(1)	if amSup>1 then		turtle[paste][/paste]placeDown()	end	while turtle[paste][/paste]detectUp() do		turtle[paste][/paste]digUp()		goUp()		leaves()	end	moveDw = 0	while moveUp > moveDw do 		if turtle[paste][/paste]detectDown() then 			turtle[paste][/paste]digDown() 		else 			goDown()		end	endendlocal function goHome()	Lmove = 0	moveUp = 0	moveDw = 0	modul()	print("Go Home initialized")	if y > ysp + 5 then 		while moveDw < yL - 5 do			if turtle[paste][/paste]detectDown() then 				turtle[paste][/paste]digDown() 			else 				goDown()			end		end	end	if y < ysp + 5 then 		while moveUp < 5 - yL do			if turtle[paste][/paste]detectUp() then 				turtle[paste][/paste]digUp() 			else 				goUp()			end		end	end	if x > xsp then		while vect ~= 3 do			vectR()		end		while xL > Lmove do			if turtle[paste][/paste]detect() then 				turtle[paste][/paste]dig()			else 				move()			end		end	end	if x < xsp then		while vect ~= 1 do			vectR()		end		Lmove = 0		while xL > Lmove do			if turtle[paste][/paste]detect() then 				turtle[paste][/paste]dig()			else 				move()			end		end	end	if z > zsp then 		while vect ~= 4 do			vectR()		end		Lmove = 0		while zL > Lmove do			if turtle[paste][/paste]detect() then 				turtle[paste][/paste]dig()			else 				move()			end		end	end	Lmove = 0	if z < zsp then 		while vect ~= 2 do			vectR()		end		while zL > Lmove do			if turtle[paste][/paste]detect() then 				turtle[paste][/paste]dig()			else 				move()			end		end	end	moveDw = 0	while moveDw < 5 do		if turtle[paste][/paste]detectDown() then 			turtle[paste][/paste]digDown() 		else 			goDown()		end	end	while vect ~= vectsp do		vectR()	endendfunction checkFuel()	fuel=turtle[paste][/paste]getFuelLevel()	Hfuel=l+k+30	if Hfuel>fuel then		goHome()		reSupply()	endendlocal function patrolling()	moveUp = 0	moveFw = 0	moveDw = 0	moveR = 0	turtle[paste][/paste]select(1)	move()	while moveR < k do		while moveFw < l do			if turtle[paste][/paste]detect() then 				woodcut() 			else 				turtle[paste][/paste]suckDown()								checkFuel()				move()				plant()			end		end		vectR()		if turtle[paste][/paste]detect() then 			woodcut() 		else 			turtle[paste][/paste]suckDown()							checkFuel()			move()			plant()		end		vectR()		moveFw = 0		while moveFw < l do			if turtle[paste][/paste]detect() then 				woodcut() 			else 				turtle[paste][/paste]suckDown()								checkFuel()				move()				plant()			end		end		vectL()		if turtle[paste][/paste]detect() then 			woodcut() 		else 			turtle[paste][/paste]suckDown()							checkFuel()			move()			plant()		end		vectL()		moveFw = 0	endendwhile true do	reSupply()	coordinate()	if xsp ~= x or ysp ~= y or zsp ~= z or vect ~= vectsp then		goHome()		reSupply()			end	patrolling()	goHome()	reSupply()	print("Sleeping "[paste][/paste][paste][/paste]t[paste][/paste][paste][/paste]"sec")	sleep(t)end

Наверх

#1763 Gromwild

Странник

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

Написал 05.03.2013 - 21:57

Всем доброго времени суток, в описании обновления 1.48 написано что черепахи могут передвигать предметы. Это как? какой командой я не нашел, и какие предметы? Или это внутри своего инвентаря перекладывать?

Наверх

#1764 Lexor

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

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

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

Написал 06.03.2013 - 02:39

Всем доброго времени суток, в описании обновления 1.48 написано что черепахи могут передвигать предметы. Это как? какой командой я не нашел, и какие предметы? Или это внутри своего инвентаря перекладывать?

Любые предметы, которые будут перед ней валяться черепаха будет толкать при движении вперед. Например семена, инструменты, добытые блоки. Раньше она вроде просто проходила сквозь них.

Наверх

#1765 Gromwild

Странник

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

Написал 06.03.2013 - 07:41

Ещё вопросик. У меня установлена сборка FTB включающая компкрафт и MiscPeripherals. Никак не могу скрафтить черепаху с ключом из IC2(он тоже установлен). В конфиге вроде есть строка "B:enableWrench=true". Смотрю ролик Дирвульфа в нём он крафтит такую черепаху, а у меня крафтится только с ключом из билдкрафта. Может кто сталкивался?

Наверх

#1766 Storm Whisper

Зачарователь

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

Откуда: Убежище 13

Написал 06.03.2013 - 10:19

Мб ключ повреждён? По идее, нужен свежий ключ.

Applied Energistics

Наверх

#1767 Gromwild

Странник

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

Написал 06.03.2013 - 13:11

Мб ключ повреждён? По идее, нужен свежий ключ.

Пробовал с новыми. В креативе, что интересно, черепахи с IC2 ключом нет, а с билдкрафтовским есть. Никто не сталкивался?

Наверх

#1768 GnomeEngi

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

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

Написал 06.03.2013 - 14:51

У меня черепаха с ключом вообще не с ключом, а с ломом, хотя по списку в теме MiscPeripherals ключ IC имеет приоритет. Разницы, впрочем, не должно быть.Upd.: В другой сборке черепахи с ключом вообще не наблюдается, хотя и BC, и RC имеются. Гугл не помогает.

Оффтопик

Наверх

#1769 Lexor

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

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

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

Написал 07.03.2013 - 09:06

Кто-нибудь использовал Iron Note Block из MiscPeripherals для проигрывания конвертированных из mid мелодий? Пробовал по методике описанной на

Наверх

#1770 KaMaPuK

Добытчик алмазов

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

Откуда: СПб

Написал 07.03.2013 - 21:05

Мб ключ повреждён? По идее, нужен свежий ключ.
Пробовал с новыми. В креативе, что интересно, черепахи с IC2 ключом нет, а с билдкрафтовским есть. Никто не сталкивался?

черепашка с ключом всего одна... и поидее она совмещает все ключи из всех модов(независимо от ключа на черепашке)...

рандом он такой рандом....а если корейский так вообще забей)

Наверх

#1771 Gromwild

Странник

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

Написал 10.03.2013 - 09:41

Мб ключ повреждён? По идее, нужен свежий ключ.
Пробовал с новыми. В креативе, что интересно, черепахи с IC2 ключом нет, а с билдкрафтовским есть. Никто не сталкивался?
черепашка с ключом всего одна... и поидее она совмещает все ключи из всех модов(независимо от ключа на черепашке)...

Но она ключом по команде dig() должна по идее объект ворочать/убирать, но вот майнер из IC2 она просто ломает

. А вот механизм из Termal Expansion она как раз сняла.

Наверх

#1772 KaMaPuK

Добытчик алмазов

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

Откуда: СПб

Написал 10.03.2013 - 11:15

сейчас проверил черепашку с ключом, она вообще не работает с блоками из IC2...

рандом он такой рандом....а если корейский так вообще забей)

Наверх

#1773 Evgenio

Добытчик алмазов

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

Откуда: Из пермабана

Написал 10.03.2013 - 11:20

Я смысла в таких черепахах не вижу, зачем блоки-то икашные брать? Я понимаю, если там редстоун коробку взять заряженную, но икашные-то?

I have been caught. Don't ban me please.
Если Вы хотите отблагодарить меня, дайте мне интернет:

Уааау!

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

Наверх

#1774 Neuromantix

Тонущий в песках душ

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

Написал 10.03.2013 - 11:46

Видимо, для переноски автошахтера.

Наверх

#1775 Evgenio

Добытчик алмазов

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

Откуда: Из пермабана

Написал 10.03.2013 - 11:55

И то верно... Но особой необходимости не вижу всё равно.

I have been caught. Don't ban me please.
Если Вы хотите отблагодарить меня, дайте мне интернет:

Уааау!

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

Наверх

#1776 dnt

Странник

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

Написал 10.03.2013 - 13:32

Еще можно реакторы снимать-ставить.

Наверх

#1777 Gromwild

Странник

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

Написал 10.03.2013 - 14:28

И то верно... Но особой необходимости не вижу всё равно.

Можно автоматизировать добычу ресурсов, с малым количеством побочных продуктов.

Наверх

#1778 Evgenio

Добытчик алмазов

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

Откуда: Из пермабана

Написал 10.03.2013 - 15:00

Еще можно реакторы снимать-ставить.

А... Компоненты вряд ли поместятся в скудный интерфейс черепашки.

I have been caught. Don't ban me please.
Если Вы хотите отблагодарить меня, дайте мне интернет:

Уааау!

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

Наверх

#1779 KaMaPuK

Добытчик алмазов

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

Откуда: СПб

Написал 10.03.2013 - 18:22

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

рандом он такой рандом....а если корейский так вообще забей)

Наверх

#1780 Gromwild

Странник

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

Написал 11.03.2013 - 11:12

Черепаха копает как карьер, или они научились "видеть" на N блоков впереди себя?

Наверх

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

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

0 пользователей, 1 гостей, 0 анонимных

[1.7.10] ComputerCraft [1.74]

#1761 Apokalypsys

#1762 Lexor

#1763 Gromwild

#1764 Lexor

#1765 Gromwild

#1766 Storm Whisper

#1767 Gromwild

#1768 GnomeEngi

#1769 Lexor

#1770 KaMaPuK

#1771 Gromwild

#1772 KaMaPuK

#1773 Evgenio

#1774 Neuromantix

#1775 Evgenio

#1776 dnt

#1777 Gromwild

#1778 Evgenio

#1779 KaMaPuK

#1780 Gromwild

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

Войти