[1.7.10] ComputerCraft [1.74]

было бы круто автоматизировать не только добычу ресурсов, но и крафт. я себе это так представляю - после карьера/черепахи-автошахтера ресурсы разделяются и направляются каждый в свой сундук. к каждому сундуку подключена "система выгрузки" - трубы и двигатель. Например я на главном компьютере набираю "25 solar panel", он начинает раздавать указания. Черепашка-грузчик сначала идет к одному сундуку с нужными ресурсами, подключается к трубам и к двигателю, подает определенное время редстоун сигнал и забирает нужное количество ресурса. После чего относит его либо на один из верстаков (по одному верстаку на каждый тип производимой продукции) либо на переработку, а потом на верстак. После крафта черепашка забирает с верстака готовую продукцию и относит домой, сгружает ее в единственный сундук для готовой продукции. так лень заниматься) да и это не универсальная программа будет, все зависит от координат сундуков/перерабатывающих механизмов/верстаков. еще было бы неплохо организовать подсчет поступающих ресурсов чтобы компьютер знал, хватит ли ему ресурсов на крафт или нет, но как это организовать непонятно.

[hidden][center][b]Реализовано[/b][/center]Переписка нескольких компов в режиме чатаВывод ид отправителя сообщенияРежим "история чата" пересылающий сообщения пакетом а не по отдельностиОптимизяция истории чата в виде переодической его очистки (максимум 30 строк не сщитая технические потом очистка)В случае разрыва связи с сервером (или неудачном подключении) вывод сообщения об ошибке с предложением поменять ид сервера или попробывать подключится сноваВыноски в отдельный констант-блок всех сообшений сервера позволяюшие удобно менять ихЗащита от постороних сообщений (прием только от сервера ни от кого больше)Функция выхода из чата набрав слово "exit" (можно поменять в блоке констант)[center][b]В планах[/b][/center]Замена ид компов псевдонимамиФункция "аноним" позволяющая скривать свой ид при перепискеПометка переписщиков флажками (гость,постоялец,админ)Функция "сечас онлайн"Спам фильтрыВозможность бана некоторых идВозможность обновить чат не написав сообщение[center][b]Програма для сервера,версия 1[paste][/paste]0[/b][/center][code]side= "сторона с которой у вас стоит модем"rednet[paste][/paste]open(side)rednet[paste][/paste]broadcast("Server online")a = 0 while true dochatHistori = "<-----------Chat fludilko by Dimach!------------>           "chatHistori = chatHistori[paste][/paste][paste][/paste] "<--------Avtomaticheskaya ochistka chata-------->       "while a<30 doid, msg = rednet[paste][/paste]receive()chatHistori = chatHistori[paste][/paste][paste][/paste] id[paste][/paste][paste][/paste] ":" [paste][/paste][paste][/paste]msg[paste][/paste][paste][/paste] "                                                          "rednet[paste][/paste]broadcast(chatHistori)print(id[paste][/paste][paste][/paste]":"[paste][/paste][paste][/paste]msg)a = a + 1enda = 0end[/code][center][b]Програма для клиента[/b][/center][code]--Блок констант отвечающих за выводимый текст-подсказкиservIdRead="Vvedite id servera k kotoromu hotite podkluchitsya"connectSucses="Mogete nachinat fludit))"thisUserIdOut = "Polzovatel vuhel"thisUserIdIn = "Polzovatel vohol"fail = "Osibka soidineniya s serverom"exit = "exit"connect = "Podogdite idet soidinenie s serverom"side = "Сторона с которой у вас стоит модем"--конец блока константb = truewhile b dorednet[paste][/paste]open(side)print(servIdRead)servId1 = read()servId = servId1 * 1rednet[paste][/paste]send(servId,thisUserIdIn)term[paste][/paste]clear()print(connect)id, msg1 = rednet[paste][/paste]receive(30)term[paste][/paste]clear()if id == servId thenprint(msg1)b = falseelseb = trueprint(fail)endenda = trueprint(connectSucses)while a domsg=read()if msg == exitthen a=falseelserednet[paste][/paste]send(servId, msg)term[paste][/paste]clear()id, msg1 = rednet[paste][/paste]receive()if id == servId thenprint(msg1)elseprint(fail)endmsg = " "endendrednet[paste][/paste]send(servId, thisUserIdOut)rednet[paste][/paste]close(side)[/code][center][b]Как использывать и информация по некоторым возможностям[/b][/center]Для того чтоб создать собственый чат необходимо1[paste][/paste]Скопипастить програму сервера2[paste][/paste]АХТУНГ:Отредактируйте поле Side = "сторона с которой у вас стоит модем" заполнять обезательно3[paste][/paste]Распостранить ид сервера среди потенциальных переписщиковДля того чтоб подключиться к чату необходимо1[paste][/paste]Скопипастить програму клиента2[paste][/paste]АХТУНГ:Отредактируйте поле Side = "сторона с которой у вас стоит модем" заполнять обезательно3,Запустить програму4,Програма попросит вас ввести ид сервера к которому Вы хотите подключится,введите ид[paste][/paste]5[paste][/paste]Если ид верен и сервер доступен програма покажет Вам часть истории чата и покажет сообщение из константы connectSucses если нет предложит ввести другой ид и скажет об ошибке6[paste][/paste]Если п5 успешен разговаривайте на здоровьеНекоторые возможностиЕсли в режиме чата ввести слово "exit" (можно поменять) Вы выйдете из чатаСообшения которые выодит вам програма можно поменять в блоке констант (в начале програмы)Для того чтоб чат обновился Вам необходимо чтото написать иначе никак[/hidden]

я пока что все равно не буду заниматься - куча дел по учебе насчет времени для получения нужного количества ресурсов думал уже, и насчет нагрева тоже. как вариант я вижу ставить два двигателя - быстрый электрический и обычный деревянный, а нужное количество ресурсов получать их комбинацией. например если нужно 64 коблы, то на один тик активируется электрический двиг, получается не_помню_сколько_допустим_54, а еще 10 - через редстоун двиг. насчет времени которое займет сам процесс крафта... да, руками будет быстрее... но так не интересно ведь Нотч

rs[paste][/paste]setOutput(сторона,true)a=0while a<n doif  rs[paste][/paste]getInput(сторона)  thena=a+1elseendendrs[paste][/paste]setOutput(сторона,false)