[1.7.10] ComputerCraft [1.74]

rednet[paste][/paste]open("сторона")while true do    local com = read()    rednet[paste][/paste]send(id_черепахи, com)    local succ, id    repeat        succ, id = rednet[paste][/paste]receive()    until id == id_черепахи    print(succ)end

rednet[paste][/paste]open("сторона")while true do    local com, id = rednet[paste][/paste]receive()    if id == id_компьютера then        local foo = loadstring(com)        local succ = { pcall(foo) }        rednet[paste][/paste]send(id_компьютера, succ)    endend

Аккумулятор из NEI?

У меня ничего не листает. Код. Кстати, новые функции раньше были в возвращаемом хэндлере файла. Я собирался написать это в API. Та же io.lines:

local file = io[paste][/paste]open("test", "r")for line in file[paste][/paste]lines() do    print(line)end

local function equal(a, b)  for k,v in pairs(a) do    if b[k] ~= v then      return false    end  end  return trueendlocal function pullEvent_with_timer(filter, timer)  local _timer = os[paste][/paste]startTimer(timer)  event, p1, p2, p3, p4, p5 = os[paste][/paste]pullEvent(filter)  if event == "timer" and p1 == _timer then    return nil  end  return event, p1, p2, p3, p4, p5endwhile true do  if equal({ os[paste][/paste]pullEvent() }, {"key", 29}) and  equal({ pullEvent_with_timer(nil, 0[paste][/paste]5) }, {"key", 17}) then    print("OK!")  endend

        succ, id = rednet[paste][/paste]receive()

Черепаха:

    local com, id = rednet[paste][/paste]receive()

shell[paste][/paste]run("prog", "arg1", [paste][/paste][paste][/paste][paste][/paste])

Нет. Попытался разобрать игру adventure. 1346 строк О_О. Вот это challenge. Может кто-тотак расскажет?

local function pullCtrlPlusKey(key)  local e1, p1 = os[paste][/paste]pullEvent()  if e1 ~= "key" or p1 ~= key then    return false  end  local _time = os[paste][/paste]startTimer(0[paste][/paste]015)  local e2, p2 = os[paste][/paste]pullEvent()  if e2 == "char" then    return false  end  return trueend

Хотя самый лучший пример получится, если ты скажешь где и как именно это используется.

local function test()	local e1, e2, p1, p2, _timer	repeat		e1, p1 = os[paste][/paste]pullEvent()	until e1 ~= "key" or p1 ~= 29	_timer = os[paste][/paste]startTimer(0[paste][/paste]015)	e2, p2 = os[paste][/paste]pullEvent()	if e2 == "char" and p2 == keys[paste][/paste]getName(p1) then		return p2	else		return "CTRL+"[paste][/paste][paste][/paste]keys[paste][/paste]getName(p1)	endend

while true do	print(test())	end

Черепаха-автошахтёр 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