View difference between Paste ID: FQeCHETF and zC2G4kPn

-local r = require("robot") -- Робот
+-- Tree Farm by Andronio
-local cmp = require("component") -- Компонент
+local tArgs = {...} -- Данные, вводимые в самом начале
-local comp = require("computer") -- Компьютер
+local r = require("robot") -- Робот
-local gz = cmp.geolyzer -- Геолизёр
+local cmp = require("component") -- Компонент
-local tb = cmp.tractor_beam -- Тянущий луч
+local computer = require("computer") -- Компьютер
-local delay = 0 -- В секундах
+local term = require('term')
-local grid_x = 0 -- Размер сетки по X
+local gz = cmp.geolyzer -- Геолизёр
-local grid_y = 0 -- Размер сетки по Y
+local tb = cmp.tractor_beam -- Тянущий луч
-local layers = 0 -- Количесто слоев(В разработке)
+local ic = cmp.inventory_controller -- Контроллер Инвентаря
-local layer_h = 0 -- Высота слоя(В разработке)
+local event = require('event')
-local askforsize = true -- Поставьте на true, чтобы отключить вопросы в начале. В таком случае поставьте delay, layers, grid_x и grid_y на свои значения
+local delay = 0 -- В секундах
-
+local grid_x = 0 -- Размер сетки по X
-function passover()
+local grid_y = 0 -- Размер сетки по Y
-  while not r.up() do
+local layers = 0 -- Количесто слоев
-    r.swingUp()
+local layer_h = 0 -- Высота слоя
-  end
+local remainlayers = layers -- Осталось слоев. Для мультислойной фермы
-  for i=1,2 do
+local iscoalfarm = false -- Является ли ферма угольной
-    while not r.forward() do
+local upstate = 0
-      r.swing()
+
-    end
+term.clear()
-  end
+if tArgs[1] == 'help' then
-  while not r.down() do
+  io.write('Запуск:\nwoodman start X Y delay layers layer_h IsCoalFarm\n')
-    r.swingDown()
+  io.write('Задержка в секундах. Если слой один -\nвысоту не указывать!')
-  end
+  io.write('\nIsCoalFarm - является ли ферма угольной\nTrue - если да, False - если нет\n')
   io.write('Например:\nwoodman start 10 8 1200 1 0 true\n')
-
+  io.write('\nВ разработке:')
-function checkforlog()
+  io.write('\nСохранение в файл:\nwoodman save X Y delay layers layer_h IsCoalFarm\n')
-  local gz_tbl = {gz.analyze(3)}
+  io.write('Если вы сохранили в файл, то можно запустить так:\nwoodman start saved')
-  local item_id = gz_tbl.name
+  io.write('Чтобы посмотреть оставшееся время, зажмите C и D\n Чтобы остановить программу, зажмите S и P')
-  if item_id == 'minecraft:sapling' then
+  os.exit()
-    passover()
+elseif tArgs[1] == 'start' then
-  elseif item_id == 'minecraft:log' then
+  if #tArgs > 5 then
-    r.swing()
+    grid_x = tonumber(tArgs[2])
-    for i=1,32 do
+    grid_y = tonumber(tArgs[3])
-      tb.suck()
+    delay = tonumber(tArgs[4])
-    end
+    layers = tonumber(tArgs[5])
-    for i=1,2 do
+	if layers > 1 then
-      while not r.forward() do
+	  layer_h = tonumber(tArgs[6])
-        r.swing()
+	  if tArgs[7] == 'true' then
-      end
+	    iscoalfarm = true
-    end
+	  elseif tArgs[7] == 'false' then
-  end
+	    iscoalfarm = false
 	  else
-
+	    print('Неверный 6-й аргумент!')
-if askforsize == true then
+		os.exit()
-  io.write('Какой размер сетки по X? ')
+	  end
-  grid_x = io.read()
+	elseif layers == 1 then
-  grid_x = tonumber(grid_x)
+	  if tArgs[6] == 'true' then
-  io.write('Какой размер сетки по Y? ')
+	    iscoalfarm = true
-  grid_y = io.read()
+	  elseif tArgs[6] == 'false' then
-  grid_y = tonumber(grid_y)
+	    iscoalfarm = false
-  io.write('Укажите задержку между ходками робота(в сек.) ')
+	  else
-  delay = io.read()
+	    print('Неверный 5-й аргумент!')
-  delay = tonumber(delay)
+		os.exit()
-  io.write('Укажите количество слоев: ')
+	  end
-  layers = io.read()
+	end
-  layers = tonumber(layers)
+  elseif tArgs[2] == 'saved' then
-  if layers > 1 then
+    -- Когда-то и здесь появится код... А пока что:
-    io.write('Укажите высоту одного слоя: ')
+	os.exit()
-    layer_h = io.read()
+  elseif #tArgs == 1 then
-    layer_h = tonumber(layer_h)
+    print('Загляните в woodman help для помощи!')
-  end
+	os.exit()
   elseif #tArgs < 6 then
-if askforsize == false then
+    print('Недостаточно аргументов!')
-  io.write('Вы уверены, что все настроили правильно?[y/n] ')
+	os.exit()
-  local lol = io.read()
+  end
-  if lol == 'y' or lol == 'Y' then
+elseif tArgs[1] == 'save' then
-    print('Ферма дерева запущена!')
+  -- Когда-то и здесь появится код...
-  else
+elseif #tArgs == 0 then
-    print('Программа остановлена пользователем')
+  print('Загляните в woodman help для помощи!')
-    os.exit()
+  os.exit()
-  end
+else
   print('Невозможно распознать команду! Воспользуйтесь одной из этих: help, start, save(в разработке). Также загляните в woodman help для помощи!')
-
+  os.exit()
-if grid_x < 1 then
+end
-  print('Размер сетки по оси X не может быть меньше 1!')
+
-  computer.beep(1125,5)
+function report(msg)
-  os.exit()
+  print(msg)
   if cmp.isAvailable('tunnel') then
-if grid_y < 1 then
+    cmp.tunnel.send(msg)
-  print('Размер сетки по оси Y не может быть меньше 1!')
+  end
-  computer.beep(1125,5)
+end
-  os.exit()
+
 function forward()
-if delay < 1 then
+  while r.detect() do
-  print('Задержка не может быть меньше 1!')
+    r.swing()
-  computer.beep(1125,5)
+  end
-  os.exit()
+  if not r.forward() then
     forward()
-if layers < 1 then
+  end
-  print('Количество слоев не может быть меньше 1!')
+end
-  computer.beep(1125,5)
+function up()
-  os.exit()
+  while r.detectUp() do
     r.swingUp()
-if layers > 1 then
+  end
-  if layer_h < 7 then
+  if not r.up() then
-    print('Высота одного слоя не может быть меньше 7!')
+    up()
-    computer.beep(1125,5)
+  end
-    os.exit()
+end
-  end
+function down()
   while r.detectDown() do
-
+    r.swingDown()
-function move_x()
+  end
-  while not r.forward() do
+  if not r.down() then
-    r.swing()
+    down()
-  end
+  end
-  for i=1,grid_x do
+end
-    checkforlog()
+
-  end
+function checkforlog()
-  local grid_x_back = grid_x*2
+  local item_id = gz.analyze(3).name
-  r.turnAround()
+  if item_id == 'minecraft:log' then
-  for i=1,grid_x_back do
+    if upstate == 1 then
-    while not r.forward() do
+      down()
-      r.swing()
+	  upstate = 0
-    end
+	end
-  end
+    r.swing()
-  if grid_y == 1 then
+	if iscoalfarm == true then
-    r.forward()
+      for i=1,40 do
-    r.turnAround()
+        tb.suck()
-  else
+      end
-    r.turnLeft()
+	else
-    for i=1,2 do
+	  for i=1,16 do
-      while not r.forward() do
+	    tb.suck()
-        r.swing()
+	  end
-      end
+	end
-    end
+    for i=1,2 do
-    r.turnLeft()
+      forward()
-  end
+    end
   elseif item_id == 'minecraft:sapling' then
     up()
 	upstate = 1
 	for i=1,2 do
 	  forward()
 	end
   else
     for i=1,2 do
       forward()
     end
   end
 end
 
 if grid_x < 1 then
   print('Размер сетки по оси X не может быть меньше 1!')
   computer.beep(1000,2.5)
   os.exit()
 end
 if grid_y < 1 then
   print('Размер сетки по оси Y не может быть меньше 1!')
   computer.beep(1000,2.5)
   os.exit()
 end
 if delay < 1 then
   print('Задержка не может быть меньше 1!')
   computer.beep(1000,2.5)
   os.exit()
 end
 if layers < 1 then
   print('Количество слоев не может быть меньше 1!')
   computer.beep(1000,2.5)
   os.exit()
 end
 if layers > 1 then
   if layer_h < 7 then
     print('Высота одного слоя не может быть меньше 7!')
     computer.beep(1000,2.5)
     os.exit()
   end
 end
 
 r.select(1)
 function checkforsapling()
   local hassapl = false
   local item = gz.analyze(0).name
   if item == 'minecraft:air' then
     for i=1,4 do
       if ic.getStackInInternalSlot(i) then
         if ic.getStackInInternalSlot(i).name == 'minecraft:sapling' then
           r.select(i)
           hassapl = true
           break
         end
       end
     end
 	if not hassapl then
       report('Саженцев не найдено, либо они закончились!')
       hassapl = false
       computer.beep(1000,10)
       while not hassapl do
         os.sleep(15)
         for i=1,4 do
           if ic.getStackInInternalSlot(i) then
             if ic.getStackInInternalSlot(i).name == 'minecraft:sapling' then
               r.select(i)
               hassapl = true
               report('Саженцы обнаружены! Продолжаю работу!')
               break
             end
           end
         end
         computer.beep(1000,1)
       end
 	end
     ic.equip()
     r.useDown()
     ic.equip()
   end
   for i=1,2 do
     tb.suck()
   end
 end
 
 function move_y()
   for i=1,grid_y do
     checkforlog()
   end
   r.turnAround()
   if upstate == 0 then
     up()
     upstate = 1
   end
   for i=1,grid_y do
     forward()
     checkforsapling()
     forward()
   end
   down()
   upstate = 0
   if grid_x == 1 then
     forward()
     r.turnAround()
   else
     r.turnLeft()
     for i=1,2 do
       forward()
     end
     r.turnLeft()
   end
 end
 
 function move_x()
   if grid_x > 1 then
     local lol3 = grid_x - 1
     for i=1,lol3 do
       move_y()
     end
     r.turnLeft()
     local lol2 = grid_x*2
     for i=1,lol2 do
       forward()
     end
 	if layers == 1 then
       r.turnLeft()
       forward()
       r.turnAround()
 	else
 	  r.turnRight()
 	end
   end
 end
 
 local is = r.inventorySize()
 
 function unload()
   r.turnRight()
   local s1,s2,s3,s4=0,0,0,0
   for i=1,4 do
 	if ic.getStackInInternalSlot(i) then
 	  if i == 1 then
 	    s1 = ic.getStackInInternalSlot(1).size
 	  elseif i == 2 then
 	    s2 = ic.getStackInInternalSlot(2).size
 	  elseif i == 3 then
 	    s3 = ic.getStackInInternalSlot(3).size
 	  elseif i == 4 then
 	    s4 = ic.getStackInInternalSlot(4).size
 	  end
 	end
   end
   if s1 > 24 then
     r.select(1)
     r.drop(s1 - 24)
   end
   if s2 > 24 then
     r.select(2)
     r.drop(s2 - 24)
   end
   if s3 > 24 then
     r.select(3)
     r.drop(s3 - 24)
   end
   if s4 > 24 then
     r.select(4)
     r.drop(s4 - 24)
   end
   for i=5,is do
     r.select(i)
 	r.drop()
   end
   r.turnLeft()
   r.select(1)
 end
 
 function onelayer()
   move_y()
   move_x()
 end
 
 function morethanone()
   onelayer()
   remainlayers = layers - 1
   for i=remainlayers,1,-1 do
     for i=1,layer_h do
       up()
     end
     onelayer()
   end
   local godown = (layers - 1) * layer_h
   for i=1,godown do
     down()
   end
   r.turnAround()
   forward()
   r.turnAround()
 end
 
 while true do
   local hsbs = false
   local pseo = 0
   for p=1,4 do
     if ic.getStackInInternalSlot(p) then
       if ic.getStackInInternalSlot(p).name == 'minecraft:sapling' then
         hsbs = true
         break
       end
     end
   end
   while not hsbs do
     if pseo == 0 and hsbs == false then
       report('Саженцов не найдено! Положите саженцы в первые 4 слота!')
       pseo = 1
     end
     for p=1,4 do
       if ic.getStackInInternalSlot(p) then
         if ic.getStackInInternalSlot(p).name == 'minecraft:sapling' then
           hsbs = true
           pseo = 0
           break
         end
       end
     end
 	os.sleep(14)
 	computer.beep(1000,1)
   end
   local ica = 0
   local nc = 0
   local icgn = 0
   while computer.energy()/computer.maxEnergy() < 0.25 do
     if gz.analyze(0).name == 'OpenComputers:charger' or gz.analyze(1).name == 'OpenComputers:charger' or gz.analyze(2).name == 'OpenComputers:charger' or gz.analyze(5).name == 'OpenComputers:charger' then
 	  if ica == 0 then
 	    report('Уровень зарядки робота меньше 25%. Зарядка...')
         icgn = 1
 	    ica = 1
 	  end
 	else
 	  if nc == 0 then
 	    report('Подключите зарядник!!!')
 	    nc = 1
 	  end
 	  os.sleep(10)
 	end
   end
   while icgn == 1 do
     while computer.energy()/computer.maxEnergy() < 0.5 do
       os.sleep(30)
     end
     icgn = 0
     report('Робот достиг 50% заряда! Продолжаю работу...')
   end
   forward()
   if layers == 1 then
     onelayer()
   else
     morethanone()
   end
   unload()
   os.sleep(delay)
 end