View New Content
Search Advanced
Search section:

This topic

Форум

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

Help Files

Главная

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

Javascript Disabled Detected

You currently have javascript disabled. Several functions may not work. Please re-enable javascript to access full functionality.

[1.7.10] ComputerCraft [1.74]

Started by Apokalypsys , 13.01.2012 21:16

«
Prev

Next
»

Please log in to reply

2863 replies to this topic

#741 Storm Whisper

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

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

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

Posted 28.05.2012 - 12:32

=)) ну я как бы для всех писал, пригодится =)посмотрел твою прогу. я ж просил без кода! а код в отдельный пост =)посмотри как я свою прогу сделал.

Applied Energistics

Back to top

#742 Dimach

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

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

Откуда: Киев

Posted 28.05.2012 - 12:48

Minecraft Web 1.3 полная версия

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

Возможности системы

[quote]1.Создавать собственные «интернет странички».
2.Выкладывать на закачку файлы.
3.Воможность задать адрес своего сайта буквами, а не ID.
4.Скачка файлов (выкидываем дискеты, настала эра интернета Нотч).
5.Возможность создать собственную чат-комнату[/quote]

Инструкция

По использованию браузера

[quote]1.Отредактируйте поле dnsId на id днс сервера, который Вы будете использовать.
2.Запустите браузер и введите url сайта или чат комнаты на которую хотите отправиться.
3.Вводя названия страниц, путешествуйте по сайту, для скачивания файлов или перехода в чат-комнату нужно просто перейти на соответствующую страницу, введите "back" для выбора другого сайта или "exit" для выхода из браузера.Если вы находитесь в чате просто аишите сообщения, команды аналогичны.[/quote]

По настройке днс системы

[quote]1.Сохраните на любом свободном компьютере программу днс сервера.
2.Запустите сервер на короткое время, и он автоматически создаст файлы необходимые ему для работы, редактируя их Вы, будете влиять на работу всего сервера, разберем их:
Файл config.MDSF: здесь хранится конфиг сервера, пока он включает 2 поля – сторону, с которой у вас стоит модем и параметр записи запросов в соответствующий файл, отредактируйте эти поля.
Файл baned_list.MDSF: позволяет забанить компьютеры по их id, просто пишите их в файл.
Файл site_list.MDSF: здесь необходимо писать списки URL и ид серверов, если вам необходимо добавить новый сервер в переадресацию просто допишите в файл строчки по формату:

URL сервера (например, http://vasa[paste][/paste]com)ид сервера (например, 55)

Файл needs_list.MDSF: Здесь находится список запросов, которые получает днс сервер.
3.Запустите систему днс (рекомендую файл с ней сохранять с названием "startup").[/quote]

По созданию и настройке веб сервера

[quote]1.Скопируйте программу сервера, на компьютер который будет "сервером".
2.Запустите его на короткое время и выключите, сервер создаст несколько файлов необходимых ему для работы, разберем их:
config.MWSF: файл конфигурации сервера, включает 2 поля: сторона с которой у вас стоит модем (по умолчанию left), URL вашего сервера (нужно написать) и параметр записи запросов в соответствующий файл, отредактируйте эти поля.
baned_list.MWSF: позволяет забанить компьютеры по их id, просто пишите их в файл по одному ИД на строчку.
page_list.MWSF: этот файл включает списки страничек доступных для просмотра на вашем сервере, чтоб добавить новую страничку просто допишите имя файла, в котором она лежит без разрешения .MWSF.
file_list.MWSF: то же самое, что и page_list.MWSF, но включает списки файлов доступных для скачивания, добавлять по тем же правилам.
chat_list.MWSF: Включает списки переадресации на определенные чат-комнаты. Чтобы добавить новую комнату в переадресацию, добавьте в файл запись по формату:

Ссылка на чат комнату (например, UaChating)Ид чат сервера (например, 55)

Файл needs_list.MDSF: Здесь находится список запросов, которые получает веб сервер.
404.MWSF: страница 404, отредактируйте по своему усмотрению.
index.MWSF: Стартовая страница сайта, отредактируйте по своему усмотрению.
3.Запускайте сервер.[/quote]

По созданию чат-комнаты

[quote]1.Скопируйте программу чат сервера на компьютер, который будет сервером.
2.Запустите програму на короткое время, она создасть 2 файлика необходимых ей для работы, разберем их:
config.MСSF: файл конфигурации сервера, включает 2 поля: сторона с которой у вас стоит модем (по умолчанию left), и параметер записи истории чата в файл, отредактируйте эти поля
baned_list.MСSF: позволяет забанить компьютеры по их id, просто пишите их в файл по одному ИД на строчку.
3.Запустите программу.
4.Переадресовуйте через ваш сайт или напрямую через ДНС людей в эту комнату.[/quote]
Код

Браузера

dnsId = function chating1()term[paste][/paste]clear()m=truemsg = "userIn"term[paste][/paste]setCursorBlink(true)term[paste][/paste]setCursorPos(1, y)while m doif msg == "exit" thenb = falsem = falsec = falsea = falseg = falseelseif msg == "back" thenb = falsem = falsea = falseg = falseelserednet[paste][/paste]send(chatIds, msg)fff, msg1 = rednet[paste][/paste]receive(30)pwd = ""term[paste][/paste]clear()print("\n"[paste][/paste][paste][/paste]msg1)write("You message:")term[paste][/paste]setCursorPos(13+#pwd,y)msg=""while true doevent,key=os[paste][/paste]pullEvent()if event=="char" thenwrite(key)pwd=pwd[paste][/paste][paste][/paste]keyelseif event=="key" thenif key==14 and #pwd>0 thenterm[paste][/paste]setCursorPos(13+#pwd,y)pwd=string[paste][/paste]sub(pwd,1,#pwd-1)term[paste][/paste]clear()print("\n"[paste][/paste][paste][/paste]msg1)write("You message:")write(pwd)elseif key==28 then break endendendmsg = pwdterm[paste][/paste]setCursorPos(1, y)endendrednet[paste][/paste]send(chatIds, "userOut")endfunction chating2()while true dosleep(1)rednet[paste][/paste]send(chatIds, "reload")fff, msg1 = rednet[paste][/paste]receive(30)term[paste][/paste]clear()print("\n"[paste][/paste][paste][/paste]msg1)write("You message:")write(pwd)term[paste][/paste]setCursorPos(13+#pwd,y)endendfunction chatingMode(chatIds)chatIds = chatIds * 1term[paste][/paste]clear()x, y = term[paste][/paste]getSize()pwd = ""parallel[paste][/paste]waitForAny(chating1, chating2)endfunction writeFile (fileName)id, dFile = rednet[paste][/paste]receive()file = io[paste][/paste]open(fileName, "w")file:write(dFile)file:close()enddnsId = 6hello = "<-------------Minecraft Web Browser-------------> \n<---Copyright 2012 Dimach[paste][/paste]All rights reserved---> \n<-----------------Vvedite adres----------------->"downloadSuc = "<-------------Fail zagrugen uspesno------------->"i = 0function open()local bOpen, sFreeSide = false, nilfor n,sSide in pairs(rs[paste][/paste]getSides()) do	if peripheral[paste][/paste]getType( sSide ) == "modem" thensFreeSide = sSideif rednet[paste][/paste]isOpen( sSide ) thenbOpen = truebreakendendendif not bOpen thenif sFreeSide thenrednet[paste][/paste]open( sFreeSide )return trueelseprint( "Rabota ne vozmogna, podkluchite modem" )return falseendendreturn trueendif open() thenwhile i<20 doi = i + 1print(hello)term[paste][/paste]clear()endc = truewhile c dom = trueg = trueprint(hello)url = read()a = truewhile a dorednet[paste][/paste]send(dnsId, url)id, servId = rednet[paste][/paste]receive(30)if id == dnsId thenif servId == "Baned" thenterm[paste][/paste]clear()print("Vu zabanenu v sisteme dns")elseif servId ~= "fail_404" thena = falseelseterm[paste][/paste]clear()a = falseg = falseb = falseprint("<--Minecraft Web Browser ne moget nayti server-->")endendendendpage = "index"if g thenb = trueendwhile b doservId = servId*1term[paste][/paste]clear()rednet[paste][/paste]send(servId, page)id, pageText = rednet[paste][/paste]receive(30)if pageText == "download" thenwriteFile (page)term[paste][/paste]clear()print(downloadSuc)elseif pageText == "chating" thenid, chatId = rednet[paste][/paste]receive()chatingMode(chatId)elseif pageText == "Baned" thenprint("Vu zabanenu na etom sayte")read()a = falseg = falseb = falseelseterm[paste][/paste]clear()print(pageText)end if m == true thenpage = read()if page == "exit" thenb = falsec = falseelseif page == "back" thenb = falseendendterm[paste][/paste]clear()endendrednet[paste][/paste]close(sFreeSide)term[paste][/paste]clear()elseend

Днс сервера

function blackList(userId)baned=falsevar1 = falsefile = io[paste][/paste]open("baned_list[paste][/paste]MDSF", "r")a=file:read()a = -1repeata = a * 1if userId == a thenbaned = trueenda=file:read()until a == nilfile:close()return banedendfunction readConfig()file = io[paste][/paste]open("config[paste][/paste]MDSF", "r")fff=file:read()fff=file:read()side=file:read()fff=file:read()writeFiles = file:read()writeFile = falseif writeFiles == "true" thenwriteFile = trueendfile:close()endfunction fileDetected(name)file = io[paste][/paste]open(name, "a")file:close()file = io[paste][/paste]open(name, "r")test=file:read()if test == nil then return false else return true endfile:close()endfunction firstStart()if fileDetected("site_list[paste][/paste]MDSF") thenelsefile = io[paste][/paste]open("site_list[paste][/paste]MDSF", "a") file:close()file = io[paste][/paste]open("site_list[paste][/paste]MDSF", "w")file:write("--suda pisite spiski saytov i ih id")file:close()endif fileDetected("baned_list[paste][/paste]MDSF") thenelsefile = io[paste][/paste]open("baned_list[paste][/paste]MDSF", "a") file:close()file = io[paste][/paste]open("baned_list[paste][/paste]MDSF", "w")file:write("--zdes pisite id kompov kotoruh vu hotite zabanit")file:close()endif fileDetected("config[paste][/paste]MDSF") thenelsefile = io[paste][/paste]open("config[paste][/paste]MDSF", "a") file:close()file = io[paste][/paste]open("config[paste][/paste]MDSF", "w")file:write("--zdes nahoditsa konfig DNS servera \n--storona s kotoroy u vas stoit modem \nleft\n--zapisuvat istoriyu zaprosov v file \nfalse")file:close()endif writeFile thenif fileDetected("needs_list[paste][/paste]MDSF") then elsefile = io[paste][/paste]open("needs_list[paste][/paste]MDSF", "a") file:close()file = io[paste][/paste]open("needs_list[paste][/paste]MDSF", "w")file:write("--Zdes nahodatsa spiski zaprosov dns servera\n--Nachalo spiska zaprosov")file:close()endendendfunction siteList (siteName)h = falsefile = io[paste][/paste]open("site_list[paste][/paste]MDSF", "r")fff=file:read()repeata=file:read()if a == siteName thenids = file:read()h = trueelsefff=file:read()enduntil a == nilfile:close()if h thenreturn idselsereturn "fail_404"endendfirstStart()readConfig()rednet[paste][/paste]open(side)while true doid, url = rednet[paste][/paste]receive()if not blackList(id) thenservId = siteList(url)elseservId = "Baned"endrednet[paste][/paste]send(id, servId)print("Computer "[paste][/paste][paste][/paste]id[paste][/paste][paste][/paste]" need URL "[paste][/paste][paste][/paste]url[paste][/paste][paste][/paste]" return "[paste][/paste][paste][/paste]servId)if writeFile thenfile100500 = io[paste][/paste]open("needs_list[paste][/paste]MDSF", "a")file100500:write("\nComputer "[paste][/paste][paste][/paste]id[paste][/paste][paste][/paste]" need URL "[paste][/paste][paste][/paste]url[paste][/paste][paste][/paste]" return "[paste][/paste][paste][/paste]servId)file100500:close()endend

Веб сервера

function blackList(userId)baned=falsevar1 = falsefile = io[paste][/paste]open("baned_list[paste][/paste]MWSF", "r")a=file:read()a = -1repeata = a * 1if userId == a thenbaned = trueenda=file:read()until a == nilfile:close()return banedendfunction readCfg()file1 = io[paste][/paste]open("config[paste][/paste]mwsf", "r")fff=file1:read()fff=file1:read()side=file1:read()fff=file1:read()siteName=file1:read()fff=file1:read()writeFiles = file1:read()writeFile = falseif writeFiles == "true" thenwriteFile = trueendfile1:close()endfunction fileDetected(name)file = io[paste][/paste]open(name, "a")file:close()file = io[paste][/paste]open(name, "r")test=file:read()if test == nil then return false else return true endfile:close()endfunction firstStart()if fileDetected("page_list[paste][/paste]MWSF") thenelsefile = io[paste][/paste]open("page_list[paste][/paste]MWSF", "a") file:close()file = io[paste][/paste]open("page_list[paste][/paste]MWSF", "w")file:write("--suda pisite nazvaniya stranic dostupnuh dlya prosmotra")file:close()endif fileDetected("baned_list[paste][/paste]MWSF") thenelsefile = io[paste][/paste]open("baned_list[paste][/paste]MWSF", "a") file:close()file = io[paste][/paste]open("baned_list[paste][/paste]MWSF", "w")file:write("--zdes pisite id kompov kotoruh vu hotite zabanit")file:close()endif fileDetected("file_list[paste][/paste]MWSF") thenelsefile = io[paste][/paste]open("file_list[paste][/paste]MWSF", "a") file:close()file = io[paste][/paste]open("file_list[paste][/paste]MWSF", "w")file:write("--suda pisite nazvaniya faylov dostupnuh dya skachivaniya")file:close()endif fileDetected("chat_list[paste][/paste]MWSF") thenelsefile = io[paste][/paste]open("chat_list[paste][/paste]MWSF", "a") file:close()file = io[paste][/paste]open("chat_list[paste][/paste]MWSF", "w")file:write("--suda pisite url chat serverov kotorue budut dustupnu cerez vas sayt i ih ID")file:close()endif fileDetected("config[paste][/paste]MWSF") thenelsefile = io[paste][/paste]open("config[paste][/paste]MWSF", "a") file:close()file = io[paste][/paste]open("config[paste][/paste]MWSF", "w")file:write("--zdes nahodatsa nastroyki servera \n--storona s kotoroy u vas stoit modem \nleft\n--url vasego servera \nhttp://Dns[paste][/paste]com/\n--zapisuvat istoriyu zaprosov v file \nfalse")file:close()endif fileDetected("index[paste][/paste]MWSF") thenelsefile = io[paste][/paste]open("index[paste][/paste]MWSF", "a") file:close()file = io[paste][/paste]open("index[paste][/paste]MWSF", "w")file:write("Startovaya stranica sayta")file:close()endif fileDetected("404[paste][/paste]MWSF") thenelsefile = io[paste][/paste]open("404[paste][/paste]MWSF", "a") file:close()file = io[paste][/paste]open("404[paste][/paste]MWSF", "w")file:write("=================================================\n====================PAGE 404=====================\n=================================================")file:close()endif (writeFile) and (not fileDetected("needs_list[paste][/paste]MWSF")) thenfile = io[paste][/paste]open("needs_list[paste][/paste]MWSF", "a") file:close()file = io[paste][/paste]open("needs_list[paste][/paste]MWSF", "w")file:write("--Zdes nahodatsa spiski zaprosov web servera\n--Nachalo spiska zaprosov")file:close()endendfunction chatList (chatName)h = falsefile = io[paste][/paste]open("chat_list[paste][/paste]MWSF", "r")fff=file:read()repeata=file:read()if a == chatName thenids = file:read()h = trueelsefff=file:read()enduntil a == nilfile:close()if h thenreturn trueelsereturn falseendendfunction readPage (page)site = siteName[paste][/paste][paste][/paste]pagepage = page[paste][/paste][paste][/paste] "[paste][/paste]MWSF"file = io[paste][/paste]open(page, "r")a=file:read()returnPage = site[paste][/paste][paste][/paste]"\n"repeat returnPage = returnPage[paste][/paste][paste][/paste] a[paste][/paste][paste][/paste] "\n"a=file:read()until a == nilfile:close()return returnPageendfunction pageList (pageName)var1 = falsefile = io[paste][/paste]open("page_list[paste][/paste]MWSF", "r")a=file:read()repeata=file:read()if pageName == a thenvar1 = trueenduntil a == nilfile:close()return var1endfunction fileList (fileName)var2 = falsefile = io[paste][/paste]open("file_list[paste][/paste]MWSF", "r")a=file:read()repeata=file:read()if fileName == a thenvar2 = trueenduntil a == nilfile:close()return var2 endfirstStart()readCfg()rednet[paste][/paste]open(side)while true dopageText = " "id, needPage = rednet[paste][/paste]receive()print("Computer "[paste][/paste][paste][/paste]id[paste][/paste][paste][/paste]" need page "[paste][/paste][paste][/paste]needPage)if writeFile thenfile100500 = io[paste][/paste]open("needs_list[paste][/paste]MWSF", "a")file100500:write("\nComputer "[paste][/paste][paste][/paste]id[paste][/paste][paste][/paste]" need page "[paste][/paste][paste][/paste]needPage)file100500:close()endif not blackList(id) thenif needPage == "index" or pageList(needPage) thenpageText = readPage(needPage)elseif fileList(needPage) thenrednet[paste][/paste]send(id, "download")pageText = readPage(needPage)elseif chatList(needPage) thenchatId = ids[paste][/paste][paste][/paste]" "ids = 0rednet[paste][/paste]send(id, "chating")rednet[paste][/paste]send(id, chatId)pageText = " "elsepageText = readPage("404")endelsepageText = "Baned"endrednet[paste][/paste]send(id, pageText)end

Для чат комнаты

function blackList(userId)baned=falsevar1 = falsefile = io[paste][/paste]open("baned_list[paste][/paste]MCSF", "r")a=file:read()a = -1repeata = a * 1if userId == a thenbaned = trueenda=file:read()until a == nilfile:close()return banedendfunction firstStart()if (writeFile) and (not fileDetected("needs_list[paste][/paste]MWSF")) thenfile = io[paste][/paste]open("needs_list[paste][/paste]MWSF", "a") file:close()file = io[paste][/paste]open("needs_list[paste][/paste]MWSF", "w")file:write("--Zdes nahoditsa istoriya chata\n--Nachalo istorii chata")file:close()endif fileDetected("config[paste][/paste]MCSF") thenelsefile = io[paste][/paste]open("config[paste][/paste]MCSF", "a") file:close()file = io[paste][/paste]open("config[paste][/paste]MCSF", "w")file:write("--zdes nahodatsa nastroyki chat servera \n--storona s kotoroy u vas stoit modem \nleft\n--zapisuvat istoriyu chata v file \nfalse")file:close()endif fileDetected("baned_list[paste][/paste]MCSF") thenelsefile = io[paste][/paste]open("baned_list[paste][/paste]MCSF", "a") file:close()file = io[paste][/paste]open("baned_list[paste][/paste]MCSF", "w")file:write("--zdes pisite id kompov kotoruh vu hotite zabanit")file:close()endendfunction readCfg()file1 = io[paste][/paste]open("config[paste][/paste]MCSF", "r")fff=file1:read()fff=file1:read()side=file1:read()fff=file1:read()writeFiles = file1:read()writeFile = falseif writeFiles == "true" thenwriteFile = trueendfile1:close()endfunction fileDetected(name)file = io[paste][/paste]open(name, "a")file:close()file = io[paste][/paste]open(name, "r")test=file:read()if test == nil then return false else return true endfile:close()endfirstStart()readCfg()rednet[paste][/paste]open(side)b = 0cId = os[paste][/paste]computerID()cId = cId[paste][/paste][paste][/paste]" "while true dochatHistori = "<--------Avtomaticheskaya ochistka chata-------->"while b<30 doid, msg = rednet[paste][/paste]receive()if not blackList(id) thenif msg ~= "reload" thenif msg ~= "index" thenchatHistori = chatHistori[paste][/paste][paste][/paste] "\n" [paste][/paste][paste][/paste]id[paste][/paste][paste][/paste] ":" [paste][/paste][paste][/paste]msgrednet[paste][/paste]send(id, chatHistori)print(id[paste][/paste][paste][/paste]":"[paste][/paste][paste][/paste]msg)b = b + 1elserednet[paste][/paste]send(id, "chating")rednet[paste][/paste]send(id, cId)endendrednet[paste][/paste]send(id, chatHistori)elserednet[paste][/paste]send(id, "Vu zabanenu v chat komnate")endendif writeFile thenfile100500 = io[paste][/paste]open("needs_list[paste][/paste]MCSF", "a")file100500:write(chatHistori)file100500:close()endb = 0end

История версий

[quote]Версия 1.3

Добавлено обновление чата в реальном времени.
Добавлена возможность прямого перехода в чат комнату через ДНС.
Добавлен конфиг для чат комнаты.
Добавлен бан по ИД компов в чат комнате.
Добавлена возможность записи истории чата в файл (включается в конфиге).
Оптимизирован код всех серверов.
Багфиксы.
Версия 1.2

В систему веб добавлен чат.
Добавлена возможность банить компьютеры по id .
Добавлена возможность записи запросов в файл.
Багфиксы.

Версия 1.1

Добавлены файлы конфигурации.
Убрана потребность указывать сторону у браузера.
Исправлены некоторые баги и ошибки.

Версия 1.0

Релиз браузера сервера и системы DNS.[/quote][/quote]
Если у вас есть предложения или замечания по поводу WEB системы пишите в коментах.
Copyright 2012 Dimach. All rights reserved!!!

Программист - это симбиоз лени и логики.

Зацените мою прогу Minecraft Web. Каждому скачавшему печенька бесплатно. И пряник. И тортик. Хотя нет, тортик платный.
А ты уже установил MineX? Нет? Тогда бегом устанавливай!

Цитатник:

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

Back to top

#743 glebqip

Странник

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

Posted 28.05.2012 - 12:52

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

Сохраню, пожалуй.

Буду делать часики которые будут работать вместе с shell в нижнем углу(потом подучу rednet и сделаю какой нибудь приниматель сообщений)
Кстати что насчёт перевода всех api, могу попытаться помочь с переводом.
UPD

Minecraft Web 1.2 полная версия
Если у вас есть предложения или замечания по поводу WEB системы пишите в коментах.
Copyright 2012 Dimach. All rights reserved!!!

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

Back to top

#744 Dimach

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

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

Откуда: Киев

Posted 28.05.2012 - 12:57

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

Плиз проверь, может я какието упущения зделал, только советую новый мир создать.

Кстати что насчёт перевода всех api, могу попытаться помочь с переводом.

Гайды по апи приветсвуются. Переведи, оформи в спойлер и выкладывай.

Есть 1 вопрос-в фоне чат сообщения принимает?

Пока нет это планируется добавить в 1.3, сечас обновление чата наступает когда ты чтото написал.

Программист - это симбиоз лени и логики.

Зацените мою прогу Minecraft Web. Каждому скачавшему печенька бесплатно. И пряник. И тортик. Хотя нет, тортик платный.
А ты уже установил MineX? Нет? Тогда бегом устанавливай!

Цитатник:

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

Back to top

#745 glebqip

Странник

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

Posted 28.05.2012 - 12:58

Плиз проверь, может я какието упущения зделал, только советую новый мир создать

Да ну, если чё быдлокод из сейва мира удалю.
OFFTOP:Сейчас этот форум просматривают:7Roman7, Dimach, glebqip, newempire3, SerjDemon40rus, smirvit, zatanar и гости: 52
Я боюсь за вирусы!

Back to top

#746 Dimach

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

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

Откуда: Киев

Posted 28.05.2012 - 13:23

OFFTOP:Сейчас этот форум просматривают:7Roman7, Dimach, glebqip, newempire3, SerjDemon40rus, smirvit, zatanar и гости: 52
Я боюсь за вирусы!

Да ладно что этот вирус может (и тут через месяц с помощью него взломали сервер пентагона =)) боятся не стиот

Программист - это симбиоз лени и логики.

Зацените мою прогу Minecraft Web. Каждому скачавшему печенька бесплатно. И пряник. И тортик. Хотя нет, тортик платный.
А ты уже установил MineX? Нет? Тогда бегом устанавливай!

Цитатник:

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

Back to top

#747 Storm Whisper

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

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

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

Posted 28.05.2012 - 14:01

Добавлен раздел "Содержание".Некоторые изменения в "Правилах оформления проектов": теперь проект-программа не выкладывается в ОП, туда будет выкладываться только краткое описание, максимальный размер которого - 1000 символов. Инструкция, код и т.д. теперь будут лежать ТОЛЬКО в отдельном сообщении. Максимальный размер гайда - 5000 символов.ЗЫ Dimach, извини, пришлось подрезать твоё описаниеЗЫЫ поставь ты себе уже аву наконец!

Applied Energistics

Back to top

#748 Dimach

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

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

Откуда: Киев

Posted 28.05.2012 - 14:11

ЗЫ Dimach, извини, пришлось подрезать твоё описание

Да совсем так чучуть подрезал, ну ладно это не важно есть же полное описание в отдельном сообщении

ЗЫЫ поставь ты себе уже аву наконец!

Я бы с радостью но ставить на аву какой нить мем банально, а хорошего ничего нет ну ладно займусь поисками =)

Программист - это симбиоз лени и логики.

Зацените мою прогу Minecraft Web. Каждому скачавшему печенька бесплатно. И пряник. И тортик. Хотя нет, тортик платный.
А ты уже установил MineX? Нет? Тогда бегом устанавливай!

Цитатник:

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

Back to top

#749 Storm Whisper

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

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

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

Posted 28.05.2012 - 14:32

кстати, я почти сделал интерфейс наборного устройства, уже не терпится выложить версию 1.2 =)ЗЫ ставить мем на аву это вообще дибилизмчуть не забыл! проекты, не соответствующие новым правилам, будут удалены через 4 дня после вступления новых правил в силу.это касается Ratinod и Hadmi.

Applied Energistics

Back to top

#750 Dimach

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

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

Откуда: Киев

Posted 28.05.2012 - 16:16

это касается Ratinod и Hadmi.

Хадми переоформил все по правилам

Так как виспер попросил переоформить по правилам создаю пост для своей черепашки

Черепаха-автошахтёр v2.0
Скрытый текст
Программа превращает черепаху в подобие карьера из билдкрафта. Настраивается интервал глубин на которых она будет копать, подсоединяются трубы и двигатель. При старте программы черепаха начнет копать вниз пока не достигнет заданной глубины, после чего будет расширять карьер во все стороны. Как только инвентарь заполнится, черепаха вернется на поверхность, трубы присоединятся, и лут начнет выкачиваться. Как только инвентарь освободится, черепаха снова пойдет вниз, и так по циклу.

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

Инструкция по установке:

1. Устанавливаем черепаху на поверхность. Подключаем к ней деревянную билдкрафтовскую трубу и двигатель. Если вы собираетесь включать режим энергосбережения, то необходимо также провести редстоун от любой из сторон черепахи к двигателю, в противном случае двигатель должен быть включен всегда.

2. Записываем код на черепаху. Не обязательно перебивать его в ручную. Достаточно создать и сохранить пустую программу, после чего ее файл сохранится в .minecraft\saves\Ваш_мир\computer\id_компьютера, где его можно спокойно редактировать блокнотом.

3. Редактируем переменные в начале программы:
hmax - высота поверхности, на которой изначально стоит черепаха (координата y)
hdig - координата y, на которой будет работать черепаха
hcarry - высота шахты, которую будет копать черепаха. Откладывается вниз от hdig, то есть если вы настроите hdig=20 и hcarry=7, черепаха будет копать на глубине от 13 до 20
powersaving - измените на true если не хотите чтобы питающий трубу двигатель работал постоянно. При разгрузке черепаха будет подавать редстоун сигнал на все свои боковые стороны.

4. Все готово, запускаем программу и черепаха уходит на забой.
Примечания:

Если играете в сингле - не выходите из майнкрафта пока черепаха на забое, иначе она выключится и останется там. Доставать муторно.
Чтобы проще поймать ее на поверхности достаточно выключить откачивающий лут двигатель (в режиме энергосбережения - сломать цепочку реда к двигателю) - с полным инвентарем черепаха копать не уйдет.
Будьте осторожны если захотите посмотреть черепаху в работе, на забое обычно все залито лавой.
История версий:

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

v1.0
Базовый функционал
Код программы:
hmax=65hdig=17hcarry=8powersaving=false-- Функция спуска в шахту[paste][/paste] Опускаемся вниз до тех пор пока текущая глубина h не станет равной глубине hdig:dwn=function()    h=hmax   while h>hdig do      if turtle[paste][/paste]detectDown then turtle[paste][/paste]digDown() end      turtle[paste][/paste]down()      h=h-1     endend--Функция подъема из шахты:up2freedom=function()   h=hdig   while h<hmax do      turtle[paste][/paste]up()      h=h+1   endend-- Функция перемещения в заданную точку[paste][/paste] Используется в двух случаях: 1[paste][/paste] с параметрами 0,0,0,1 для перемещения к вертикальному "лифту" и последующего подъема на поверхность[paste][/paste] 2[paste][/paste] С передачей к этой функции запомненных координат предыдущего спуска, чтобы черепашка могла вернуться к работе с того места где она закончила[paste][/paste] x, y, z, vec - текущие координаты черепахи[paste][/paste] xde, yde [paste][/paste][paste][/paste][paste][/paste] - координаты места куда должна переместиться черепаха при помощи этой функции[paste][/paste] xrem, yrem [paste][/paste][paste][/paste][paste][/paste] - запомненные координаты предыдущего спуска[paste][/paste] Координата vec - условное направление, в котором смотрит черепаха[paste][/paste] 1 - вперед, 2 - лево, 3 - назад, 4 - вправоback2pos=function(xde,yde,zde, vecde)      if z>zde then      while z>zde do         if turtle[paste][/paste]detectUp() then turtle[paste][/paste]digUp() end         turtle[paste][/paste]up()         z=z-1      end   else      while z<zde do         if turtle[paste][/paste]detectDown() then turtle[paste][/paste]digDown() end         turtle[paste][/paste]down()         z=z+1      end   end   if x>xde then            while vec~=3 do         turtle[paste][/paste]turnLeft()         vec=vec+1         if vec>4 then vec=1 end      end             while x>xde do               -- Фикс на падающие блоки типа песка и гравия - ждем пол секунды и проверяем, не свалилось ли чего с потолка:         while turtle[paste][/paste]detect() do            turtle[paste][/paste]dig()            sleep(0[paste][/paste]5)         end         turtle[paste][/paste]forward()         x=x-1      end      else         while vec~=1 do         turtle[paste][/paste]turnLeft()         vec=vec+1         if vec>4 then vec=1 end      end             while x<xde do         while turtle[paste][/paste]detect() do            turtle[paste][/paste]dig()            sleep(0[paste][/paste]5)         end         turtle[paste][/paste]forward()         x=x+1      end      end      if y>yde then            while vec~=2 do         turtle[paste][/paste]turnLeft()         vec=vec+1         if vec>4 then vec=1 end      end             while y>yde do         while turtle[paste][/paste]detect() do            turtle[paste][/paste]dig()            sleep(0[paste][/paste]5)         end         turtle[paste][/paste]forward()         y=y-1      end      else         while vec~=4 do         turtle[paste][/paste]turnLeft()         vec=vec+1         if vec>4 then vec=1 end      end             while y<yde do         while turtle[paste][/paste]detect() do         turtle[paste][/paste]dig()         sleep(0[paste][/paste]5)         end         turtle[paste][/paste]forward()         y=y+1      end      end   while vec~=vecde do      turtle[paste][/paste]turnLeft()      vec=vec+1      if vec>4 then vec=1 end   end   end-- По факту программа стартует отсюда, сверху были описания функций, которые будут активироваться по мере надобности-- Координаты на которых остановилась черепаха во время прошлого спуска[paste][/paste] Обычно считываются из файла либо хранятся с предыдущего спуска[paste][/paste] Но так как это может быть первым спуском черепахи то их необходимо задать, тем самым заодно установив удобное месторасположение для старта выкапывания карьера:xrem=1yrem=0zrem=0vecrem=2-- Сбрасываем текущие координаты на стандартные[paste][/paste] Именно с ними (0,0,0,1) черепаха всегда перемещается вверх-вниз по лифтуx=0y=0z=0vec=1-- Уменьшаем заданное пользователем значение высоты на 1, так как в системе координат черепахи z начинается с нуля:hcarry=hcarry-1-- Нам необходимо сохранять координаты предыдущего спуска даже между выключениями клиента игры, чтобы бедная черепаха не начинала каждый раз рыть с нуля[paste][/paste] Поэтому создаем если он еще не создан файл для их хранения:file = io[paste][/paste]open("miner[paste][/paste]lua", "a") file:close()-- Открываем файл на чтение:file = io[paste][/paste]open("miner[paste][/paste]lua", "r")      -- Читаем первое значение из файла:      test=file:read()      -- Если оно не равно null значит файл уже существовал и можно спокойно прочитать оттуда координаты:      if test~=nil then         xrem=test         yrem=file:read()         zrem=file:read()         vecrem=file:read()                  -- Необходимо перевести строковой тип переменных, который им присвоился при чтении из файлов обратно в числовой:         xrem=tonumber(xrem)         yrem=tonumber(yrem)         zrem=tonumber(zrem)         vecrem=tonumber(vecrem)      end   file:close()while true do-- Модуль разгрузки[paste][/paste] Нужно поставить его до спуска черепахи чтобы она не ушла в шахту с полным инвентарем[paste][/paste] Это опасно не только потерей времени но и сбоем системы координат, так как черепаха закончит свою работу и сохранит координаты окончания работ до того как подойдет к стене:-- Проверка активности энергосберегающего режима, отправка сигналов редстоуна если активен:   if powersaving==true then      rs[paste][/paste]setOutput("left",true)      rs[paste][/paste]setOutput("right",true)      rs[paste][/paste]setOutput("front",true)      rs[paste][/paste]setOutput("back",true)   end      -- Ждем пока полностью освободится инвентарь:   while turtle[paste][/paste]getItemCount(9)~=0 do sleep(1) end      if powersaving==true then      rs[paste][/paste]setOutput("left",false)      rs[paste][/paste]setOutput("right",false)      rs[paste][/paste]setOutput("front",false)      rs[paste][/paste]setOutput("back",false)   end   -- Вызываем функцию спуска в шахту:   dwn()   -- Перемещаемся к месту где мы закончили благодаря функции back2pos:   back2pos(xrem,yrem,zrem,vecrem)   -- Копаем до тех пор пока в инвентаре есть хотя бы одна свободная ячейка:   while turtle[paste][/paste]getItemCount(9)==0 do         -- Если черепаха находится наверху шахты (z=hcarry), то продвигаемся на блок вперед и начинаем спуск вниз[paste][/paste] Если черепаха находится где-то посередине продолжаем спуск вниз, разрушая блоки перед собой[paste][/paste] Если черепаха достигла низа, то перемещаемся к верху шахты:      if z~=hcarry then         if turtle[paste][/paste]detect() then turtle[paste][/paste]dig() end         if turtle[paste][/paste]detectDown() then turtle[paste][/paste]digDown() end         turtle[paste][/paste]down()         z=z+1      else         while turtle[paste][/paste]detect() do         turtle[paste][/paste]dig()         sleep(0[paste][/paste]5)         end                  while z~=0 do            turtle[paste][/paste]up()            z=z-1         end                  turtle[paste][/paste]forward()         -- Черепаха переместилась, меняем текущие координаты в зависимости от стороны куда она смотрит:         if vec==1 then x=x+1 end         if vec==2 then y=y-1 end         if vec==3 then x=x-1 end         if vec==4 then y=y+1 end                  -- Если модуль х равно модулю у это значит что черепаха находится в углу шахты и пора повернуть налево:         if math[paste][/paste]abs(x)==math[paste][/paste]abs(y) then            turtle[paste][/paste]turnLeft()            vec=vec+1            if vec>4 then vec=1 end         end                  -- При у=1 и х>0 происходит увеличение "радиуса" квадрата, по которому крутится черепаха:         if y==1 and x>0 then             turtle[paste][/paste]turnRight()            while turtle[paste][/paste]detect() do            turtle[paste][/paste]dig()            sleep(0[paste][/paste]5)            end            turtle[paste][/paste]forward()            turtle[paste][/paste]turnLeft()            x=x+1         end      end         end   -- Добычу ресурсов закончили, теперь запоминаем наши текущие координаты и заодно пишем их в файл:   xrem=x   yrem=y   zrem=z   vecrem=vec      file = io[paste][/paste]open("miner[paste][/paste]lua", "w")      file:write(xrem[paste][/paste][paste][/paste]"\n")      file:write(yrem[paste][/paste][paste][/paste]"\n")      file:write(zrem[paste][/paste][paste][/paste]"\n")      file:write(vecrem[paste][/paste][paste][/paste]"\n")   file:close()   -- Возвращаемся к лифту:   back2pos(0,0,0,1)   -- Поднимаемся на поверхность:   up2freedom()end

УДП:Чесно с3.14здил себе аватару с инета =) зацените.

Программист - это симбиоз лени и логики.

Зацените мою прогу Minecraft Web. Каждому скачавшему печенька бесплатно. И пряник. И тортик. Хотя нет, тортик платный.
А ты уже установил MineX? Нет? Тогда бегом устанавливай!

Цитатник:

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

Back to top

#751 glebqip

Странник

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

Posted 28.05.2012 - 17:09

кстати, я почти сделал интерфейс наборного устройства, уже не терпится выложить версию 1.2 =)

Я могу помочь с информацией!

проекты, не соответствующие новым правилам, будут удалены через 4 дня после

Надеюсь это не наш кодовый замок?
PS:Готовлю описание функций OS API
UPD:Сделал:

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

Back to top

#752 Dimach

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

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

Откуда: Киев

Posted 28.05.2012 - 18:15

PS:Готовлю описание функций OS API

Можеш плиз сделать гайд по апи textutils, мне нужно улутшать форматирование текста в браузере а разобраться какая функция что делает все нет времени.

Программист - это симбиоз лени и логики.

Зацените мою прогу Minecraft Web. Каждому скачавшему печенька бесплатно. И пряник. И тортик. Хотя нет, тортик платный.
А ты уже установил MineX? Нет? Тогда бегом устанавливай!

Цитатник:

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

Back to top

#753 Storm Whisper

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

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

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

Posted 28.05.2012 - 18:26

Dimach, ава зачот =) насчёт Хадми, забыл же что он сделал! хотя ему надо было, всёже, лс оформленное кинуть, на да ладно =)glebqip, отправь мне лс по "Правилам оформления проектов", если хочешь чтобы гайд был в проектах

Applied Energistics

Back to top

#754 Remake

Добытчик камня

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

Posted 28.05.2012 - 18:34

Storm Whisper, есть пара советов по твоей проге терминала(копипаст моего поста на трубе) Сделай открытие врат более интересным. Ввод букв на терминале компа это не сг) сделай нажимными плитами, или кнопками вконце концов

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

Back to top

#755 glebqip

Странник

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

Posted 28.05.2012 - 18:42

Можеш плиз сделать гайд по апи textutils, мне нужно улутшать форматирование текста в браузере а разобраться какая функция что делает все нет времени.

Окей попробую

glebqip, отправь мне лс по "Правилам оформления проектов", если хочешь чтобы гайд был в проектах

Щас оформлю(попытаюсь).
Storm Whisper
Не нужна помощь по наборному компу зв?

Back to top

#756 Dimach

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

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

Откуда: Киев

Posted 28.05.2012 - 18:51

Ввод букв на терминале компа это не сг) сделай нажимными плитами, или кнопками вконце концов Т.е каждая кнопка - это символ, комбинация символов открывает портатл в необходимую сторону.

Так дофига кнопок понадобится, чтоб названия врат набирать.

Еще добавь себе в планы сделать мембрану, чтобы можно было на сервере использовать, и не было риска что к тебе ворвутся нежеланные гости

Как вариант - просто пароль на некоторые, не общедоступные врата. И тут ко мне снизошла идея зделать идеальный сервер будущего - для того чтоб кудато отправится ты просто вводиш название этого места в наборном устройстве, хочется пообщятся - юзай ред нет и мой браузер, все производство полностью автоматизировано черепашками и компами... Этакое идеальное будущее. Правда для подобной фигни нужен акуенно раскрученый серв с туевой хучей програмистов на нем но всеравно идейка прикольная )))

Программист - это симбиоз лени и логики.

Зацените мою прогу Minecraft Web. Каждому скачавшему печенька бесплатно. И пряник. И тортик. Хотя нет, тортик платный.
А ты уже установил MineX? Нет? Тогда бегом устанавливай!

Цитатник:

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

Back to top

#757 glebqip

Странник

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

Posted 28.05.2012 - 18:54

идеальный сервер будущего

Могу потом создать серв на бакктие, но народу кучу не обещаю!
Storm Whisper
Прочти ЛС!

Back to top

#758 Dimach

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

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

Откуда: Киев

Posted 28.05.2012 - 19:00

идеальный сервер будущего
Могу потом создать серв на бакктие, но народу кучу не обещаю!

Ты не понял, дело не в сервере а в городе будущего, который мы построим. А когда построим можно будет прикольные видосы снимать ))).

Программист - это симбиоз лени и логики.

Зацените мою прогу Minecraft Web. Каждому скачавшему печенька бесплатно. И пряник. И тортик. Хотя нет, тортик платный.
А ты уже установил MineX? Нет? Тогда бегом устанавливай!

Цитатник:

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

Back to top

#759 Storm Whisper

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

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

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

Posted 28.05.2012 - 19:02

Remake, нихрена! ты ещё и с форума =) ну я тебе уже ответил =)) glebqip, да нет, спс, пока сам справляюсь =) уже прочитал, я уже минут 10 пишу пост, задалбливаюсь обновлять =/ Dimach, даа, идея классная =)) по разбирался с текстутилами

slowprint - записывает строку по одной букве, как в матрице о_О tabulate - делает таблицу из массивов, строками являются сами массивы pagedTabulate - ну по всей видимости, если строк дофига, он их на страницы делит, но проверять не стал formatTime - не до конца разобрался, но если написать (15.99,bTwentyFourHour), он напишет 3.59 PM serialize - делает из массива строку, в которой записаны индексы и соответствующие значения элементов unserialize - обратное предыдущему urlEncode - записывает символы в коде url, ну ты понял.

Applied Energistics

Back to top

#760 glebqip

Странник

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

Posted 28.05.2012 - 19:27

Ты не понял, дело не в сервере а в городе будущего, который мы построим. А когда построим можно будет прикольные видосы снимать )))

Так сначала надо вместе построить!

по разбирался с текстутилами

Да ты не заморачивайся, я объясню всё!

Back to top

«
Prev

Next
»

Back to Глобальные модификации

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

[1.7.10] ComputerCraft [1.74]

#741 Storm Whisper

#742 Dimach

#743 glebqip

#744 Dimach

#745 glebqip

#746 Dimach

#747 Storm Whisper

#748 Dimach

#749 Storm Whisper

#750 Dimach

#751 glebqip

#752 Dimach

#753 Storm Whisper

#754 Remake

#755 glebqip

#756 Dimach

#757 glebqip

#758 Dimach

#759 Storm Whisper

#760 glebqip

0 user(s) are reading this topic

Sign In