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

#401 Storm Whisper

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

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

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

Posted 23.03.2012 - 07:13

ыыы, ты даже обложку сделал =)) ну слава богу у меня система другая =) щас добавим!

Applied Energistics

Back to top

#402 IIazaH4er

RIP

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

Posted 23.03.2012 - 18:37

Представляю вам мою программу для черепашки...

Плагиат! Я такую на офе видел!

Back to top

#403 Storm Whisper

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

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

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

Posted 23.03.2012 - 18:59

плагиат это преднамеренное воровство идеи, это так, для справки =)кто умеет вытаскивать инфу из файлов, работать с ней на уровне присвоить переменной "а" содержимое строки 3, и запись инфы в определённую строку? буду пицдез как благодарен (сори за мат, но по другому выразить не могу ^_^

)

Applied Energistics

Back to top

#404 Ratinod

Странник

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

Posted 23.03.2012 - 19:01

IIazaH4er:
Конечно же плагиат, со всеми промежуточными версиями по мере разработки... :|

История разработки:

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

Изначальная идея программы была в очистке больших площадей в 1 клетку шириной

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

a = 5; cona = 5b = 5; conb = 5 ; conab = 10c = cona + conbd = conadlina = 44; back = 44while dlina > 0 do turtle[paste][/paste]dig() turtle[paste][/paste]forward() while a > 0 do  turtle[paste][/paste]digUp()  turtle[paste][/paste]up()  a = a - 1 end a = cona if turtle[paste][/paste]detectUp() then  while b > 0 do   turtle[paste][/paste]digUp()   turtle[paste][/paste]up()   b = b - 1  end  b = conb  while c > 0 do   turtle[paste][/paste]down()   c = c - 1  end else  while d > 0 do   turtle[paste][/paste]down()   d = d - 1  end enddlina = dlina - 1enddlina = back

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

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

print("Visota: ") cona = tonumber(read())a = conaprint("Dlina(Glubina): ") back = tonumber(read())dlina = backprint("Shirina: ") shirina = tonumber(read())width = shirinawhile width > 0 do while dlina > 0 do  turtle[paste][/paste]dig()  turtle[paste][/paste]forward()  while a > 0 do   turtle[paste][/paste]digUp()   turtle[paste][/paste]up()   a = a - 1  end  a = cona   while a > 0 do   turtle[paste][/paste]down()   a = a - 1  end  a = cona  dlina = dlina - 1 end dlina = back while dlina > 0 do  turtle[paste][/paste]back()  dlina = dlina - 1 end dlina = back while width > 0 do   turtle[paste][/paste]turnRight()   turtle[paste][/paste]forward()   turtle[paste][/paste]turnLeft()  width = width -1 end width = shirinaend width = shirina   if cona == 0 and back ~= 0 and shirina ~= 0 then  colvo = back * shirina elseif cona ~= 0 and back == 0 and shirina ~= 0 then  colvo = cona * shirina elseif cona ~= 0 and back ~= 0 and shirina == 0 then  colvo = cona * back elseif cona ~= 0 and back == 0 and shirina == 0 then  colvo = cona elseif cona == 0 and back ~= 0 and shirina == 0 then  colvo = back elseif cona == 0 and back == 0 and shirina ~= 0 then  colvo = shirina else   colvo = cona * back * shirina endslots = 9collected = 0while slots > 0 do collected = collected + turtle[paste][/paste]getItemCount(slots) slots = slots -1endfilled = (collected/576) * 100KPD = (collected/colvo) *100print("distance: ", back)print("Total blocks checked: ", colvo)print("Total blocks collected: ",collected)print("Slots filled with: ", filled,"%")print("KPD: ", KPD,"%")slots = 9collected = 0

Добавил возможность выбрать сторону расчистки территории и остановить выполнение программы после указания первых 3-х параметров

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

print("Visota: ") cona = tonumber(read())a = conaprint("Dlina(Glubina): ") back = tonumber(read())dlina = backprint("Shirina: ") shirina = tonumber(read())width = shirinaprint("Left or Right? (l\r) or 'stop'") ConTurn = read()Turn = ConTurnwhile width > 0 do if Turn == "stop" then  break else  while dlina > 0 do   turtle[paste][/paste]dig()   turtle[paste][/paste]forward()   while a > 0 do    turtle[paste][/paste]digUp()    turtle[paste][/paste]up()    a = a - 1   end   a = cona    while a > 0 do    turtle[paste][/paste]down()    a = a - 1   end   a = cona   dlina = dlina - 1  end  dlina = back  while dlina > 0 do   turtle[paste][/paste]back()   dlina = dlina - 1  end  dlina = back   if Turn == "l" then   turtle[paste][/paste]turnLeft()   turtle[paste][/paste]forward()   turtle[paste][/paste]turnRight()  else   turtle[paste][/paste]turnRight()   turtle[paste][/paste]forward()   turtle[paste][/paste]turnLeft()  end end width = width - 1endwidth = shirina if Turn == "stop" then  abcd = 0 elseif Turn == "l" then  turtle[paste][/paste]turnLeft()  while width > 0 do   turtle[paste][/paste]back()  end  turtle[paste][/paste]turnRight() else  turtle[paste][/paste]turnRight()  while width > 0 do   turtle[paste][/paste]back()  end  turtle[paste][/paste]turnLeft() endwidth = shirina if cona == 0 and back ~= 0 and shirina ~= 0 then  colvo = back * shirina elseif cona ~= 0 and back == 0 and shirina ~= 0 then  colvo = cona * shirina elseif cona ~= 0 and back ~= 0 and shirina == 0 then  colvo = cona * back elseif cona ~= 0 and back == 0 and shirina == 0 then  colvo = cona elseif cona == 0 and back ~= 0 and shirina == 0 then  colvo = back elseif cona == 0 and back == 0 and shirina ~= 0 then  colvo = shirina else   colvo = cona * back * shirina endslots = 9collected = 0while slots > 0 do collected = collected + turtle[paste][/paste]getItemCount(slots) slots = slots -1endfilled = (collected/576) * 100KPD = (collected/colvo) *100print("distance: ", back)print("Total blocks checked: ", colvo)print("Total blocks collected: ",collected)print("Slots filled with: ", filled,"%")print("KPD: ", KPD,"%")slots = 9collected = 0

Косметические исправления кода:
[spoiler]

print("Visota: ") cona = tonumber(read())a = conaprint("Dlina(Glubina): ") back = tonumber(read())dlina = backprint("Shirina: ") shirina = tonumber(read())width = shirinaprint("Left or Right? (l\r) or 'stop'") ConTurn = read()Turn = ConTurnwhile width > 0 do if Turn == "stop" then  break else  while dlina > 0 do   turtle[paste][/paste]dig()   turtle[paste][/paste]forward()   while a > 0 do    turtle[paste][/paste]digUp()    turtle[paste][/paste]up()    a = a - 1   end   a = cona    while a > 0 do    turtle[paste][/paste]down()    a = a - 1   end   a = cona   dlina = dlina - 1  end  dlina = back  while dlina > 0 do   turtle[paste][/paste]back()   dlina = dlina - 1  end  dlina = back   if Turn == "l" then   turtle[paste][/paste]turnLeft()   turtle[paste][/paste]forward()   turtle[paste][/paste]turnRight()  else   turtle[paste][/paste]turnRight()   turtle[paste][/paste]forward()   turtle[paste][/paste]turnLeft()  end end width = width - 1endwidth = shirina if Turn == "stop" then  Print("Stop") elseif Turn == "l" then  turtle[paste][/paste]turnLeft()  while width > 0 do   turtle[paste][/paste]back()   width = width - 1  end  turtle[paste][/paste]turnRight() else  turtle[paste][/paste]turnRight()  while width > 0 do   turtle[paste][/paste]back()   width = width - 1  end  turtle[paste][/paste]turnLeft() endwidth = shirina if cona == 0 and back ~= 0 and shirina ~= 0 then  colvo = back * shirina elseif cona ~= 0 and back == 0 and shirina ~= 0 then  colvo = cona * shirina elseif cona ~= 0 and back ~= 0 and shirina == 0 then  colvo = cona * back elseif cona ~= 0 and back == 0 and shirina == 0 then  colvo = cona elseif cona == 0 and back ~= 0 and shirina == 0 then  colvo = back elseif cona == 0 and back == 0 and shirina ~= 0 then  colvo = shirina else   colvo = cona * back * shirina endslots = 9collected = 0while slots > 0 do collected = collected + turtle[paste][/paste]getItemCount(slots) slots = slots -1endfilled = (collected/576) * 100KPD = (collected/colvo) *100print("distance: ", back)print("Total blocks checked: ", colvo)print("Total blocks collected: ",collected)print("Slots filled with: ", filled,"%")print("KPD: ", KPD,"%")slots = 9collected = 0

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

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

Back to top

#405 VokaskA

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

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

Posted 24.03.2012 - 09:16

обновите перевод, там уже мониторы добавили

Мои переводы:

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

Криперы - это сплошное "Я твой дом труба шатал".

Back to top

#406 Storm Whisper

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

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

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

Posted 24.03.2012 - 18:35

от мониторов там только крафт, который я добавлю когда напишу гайд по API term, который сильно помогает в их использовании

Applied Energistics

Back to top

#407 Re_Log_In

Добытчик обсидиана

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

Posted 24.03.2012 - 18:49

Не очень понял как посылать сигналы по вайфаю. Ставлю вайфай сзади, пишу:

rednet[paste][/paste]open(back:1)a=rednet[paste][/paste]receive(120)print(a)

Пишет: '' expected

THE TRUTH IS OUT OF THERE

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

Back to top

#408 Storm Whisper

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

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

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

Posted 24.03.2012 - 19:06

два вопроса: 1) ты читал мой гайд?2) почему ты написал back:1?

Applied Energistics

Back to top

#409 Re_Log_In

Добытчик обсидиана

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

Posted 25.03.2012 - 07:39

1)Гайд? Это тот который Работа с сетью API "rednet"? Читал.2) А что я там должен был написать, если никто не пояснил что туда писать надо. Side - это сторона, я понял, а string - значение. Только вот значение чего?

THE TRUTH IS OUT OF THERE

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

Back to top

#410 Sekai

Добытчик обсидиана

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

Откуда: Тольятти

Posted 25.03.2012 - 13:31

side типа стринг, т.е. строковой типпрограммист бло

Noblesse oblige
ЧЕЕЕЕЕЕЕЕЕЕЕЕН! ^_,^

Back to top

#411 Storm Whisper

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

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

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

Posted 25.03.2012 - 18:08

блеать, ":string" это тип переменной, а "side" ты уже знаешь из гайда про редстоун. :facepalm:

Applied Energistics

Back to top

#412 WINVLADOS

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

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

Posted 26.03.2012 - 13:24

Товарищи, не могу наладить работу АСУ водокачки с помощью RS Latch и двух таймеров: они все время рассинхронизируюется. Может кто написать прогу, чтобы комп раз в 2 минуты давал импуль на левую и раз в 2 минуты на правую сторону( вкл и выкл) заранее спасибо)

Back to top

#413 MEXAHOTABOP

Странник

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

Posted 26.03.2012 - 15:22

local side = false while true doos.sleep(120)redstone.setOutput("left", side)redstone.setOutput("right", not side)side = not sideendпервое что взбрело в голову после знакомства с api

Back to top

#414 Storm Whisper

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

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

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

Posted 26.03.2012 - 16:09

уточни, тебе надо чтобы пока один работает, надо чтобы второй был отключен, или они друг от друга не зависят?ещё учти, что после включения майнкрафта таймер сбросится.

Applied Energistics

Back to top

#415 WINVLADOS

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

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

Posted 26.03.2012 - 20:20

вся АСУ должна работать вот так: есть ячейка памяти(rs latch),импульс на левую ее сторону переводит ее в положение 1 - двигатели включаются на две минуты, по истечении этих двух минут на правую сторону ячейки поступает импульс, она переходит в положение 0 - двигатели отключаются на две минуты, остывают, и так по циклу. Если при перезаходе в мир таймер сбивается, то надо предусмотреть удаленную перезагрузку таймера. У самого пока не получается написать, слабо знаком с API, то ошибки синтаксиса. Может кто готовую прошивку сбросить? P.S, программы можно писать в нотепаде ++? В игре бывает неудачно подлагивает

Back to top

#416 Storm Whisper

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

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

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

Posted 26.03.2012 - 20:25

да, заходишь в .minecraft/saves/твоя игра/computer/id твоего компа (узнаётся программой id), в этой папке лежат все пользовательские файлы.короче чтобы таймер не сбивался при выкл кубача, нужно чтобы прогресс записывался в файл, других вариантов я не вижу.я щас как раз работаю над небольшим проектом, и именно на этой проблеме застрял, а именно - работа с файлами.как разберусь, помогу.

Applied Energistics

Back to top

#417 WINVLADOS

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

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

Posted 26.03.2012 - 20:59

ок, буду ждать. Неплохо бы в шапке сделать раздел под наиболее важные скрипты. Как пример: кодовый замол. Кстати, есть здесь возможность реализации БД с поиском по тегу? Я бы хотел на компе в моем рабочем кабинете иметь базу по всем занятым каналам WR и телепорт-труб во избежании неприятных казусов. Писать на табличках неудобно

Back to top

#418 Storm Whisper

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

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

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

Posted 26.03.2012 - 21:02

не понял что ты хочешь сказать, наверное спать пора.. =)я вообще планирую сделать раздел, где будут лежать простые примеры разных программ, чтобы было проще разобраться.БД это что?ЗЫ нашёл как заливать файл в строковый массив, а вот как изменённые строки запихнуть обратно пока не получается.. ну помогите уже кто-нибудь!

Applied Energistics

Back to top

#419 WINVLADOS

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

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

Posted 26.03.2012 - 21:07

БД=База данных.Блин, зашел на пендосскую вики по моду, надо будет взять в руки словарик, почитать, пока трудновато разобрать( а так возможности огромные, кстати, виспер, а зачем мониторы нужны, просвети

Back to top

#420 MEXAHOTABOP

Странник

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

Posted 26.03.2012 - 21:14

monitor <сторона> <команда> выполняет команду на БОЛЬШОМ экране (я так выводил если блоки вокруг бота или нет)бд можно реализовать создать файл читаемый скриптом и по тегам определять то ли это или нет на с++ знаю как реализовать на lua не пробывал а там запусить терминал на приём команд и принимать запросы главное что бы работал как нормальный а не как еврейский SQL сервер который всегда отвечает запросом на запрос

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]

#401 Storm Whisper

#402 IIazaH4er

#403 Storm Whisper

#404 Ratinod

#405 VokaskA

#406 Storm Whisper

#407 Re_Log_In

#408 Storm Whisper

#409 Re_Log_In

#410 Sekai

#411 Storm Whisper

#412 WINVLADOS

#413 MEXAHOTABOP

#414 Storm Whisper

#415 WINVLADOS

#416 Storm Whisper

#417 WINVLADOS

#418 Storm Whisper

#419 WINVLADOS

#420 MEXAHOTABOP

0 user(s) are reading this topic

Sign In