View difference between Paste ID: JT4aAKHF and cZY3P7As

---Скрипт для робота, для поднятия статов у кропсов или разведения дубликатов (режим задается константой mode)
+-- robotkiller.lua
---Автор: aka_zaratustra осень 2020
+-- Робот стоит лицом к рельсам и ломает вагонетки Ваджрой.
-local ver = "1.1.3" -- версия программы
+-- Если инвентарь забит больше чем на 50% (кроме слота с Ваджрой),
---Историю версий см. в конце файла
+-- он поворачивается вправо, выкидывает весь лут в сундук и возвращается назад.
 
--- схема грядки
+local robot = require("robot")
---|C1|M1|C2
+local event = require("event")
---|M2|C3|M3
+
---|C4|M4|C5
+-- В каком слоте лежит Ваджра
---|CH|P0|BR
+local TOOL_SLOT = 1
 
--- P0 - исходное положение робота. Робот находится на 1 блок выше кропсов (чтобы мог летать над ними), смотрит на север (в сторону грядок). В руках у робота должна быть лопатка Spade. В первом слоте инвентори робота или должны быть палки или он должен быть пустой (робот сам возьмет и положет туда палки)
+-- Проверять заполненность инвентаря раз в N тиков
--- С[n] - дочерние (разводимые) растения
+-- 1 тик цикла ≈ 0.2 сек, 50 тиков ≈ 10 секунд
--- M[n] - материнские растения
+local CHECK_EVERY_TICKS = 50
--- СН - chest, сундук, куда будут помещаться мешочки с семечками и урожай
+
--- BR - барель с кропсами(палками)
+-- ===== ВСПОМОГАТЕЛЬНЫЕ ФУНКЦИИ =====
 
--- В начале работы материнские кропсы должны быть высажены на грядку. Дочерние (разводимые) могут быть высажены, а может быть голая земля.
+local function log(msg)
--- У робота должны в обязательном порядке присутстовать компоненты: Geolyzer, Inventory Upgrade, Inventory Controller Upgrade
+  print(os.date("[%H:%M:%S] ") .. msg)
--- Рекомендуется для удобства поместить файл с этим скриптом в папку /home/ , а имя файла скрипта добавить в файл /home/.shrc - тогда скрипт будет запускаться при включении робота автоматически
+
--- Если в бочке кончаются кропсы(палки), робот сломает пустые палки, если они есть на поле и завершит свою работу с ошибкой (чтобы всё поле не сожрали сорняки)
+
--- Максимальные статы кропсов, выше которых робот поднимать статы выводимых кропсов не будет, задаются константами max_grow и max_gain
+-- Проверяем, заполнен ли инвентарь > 50% (кроме слота с Ваджрой)
--- Стат resistans робот не поднимает, а при возможости опускает до 0
+local function needDump()
--- Начиная с версии 1.1.3 робот перестал быть уязвим к коллизиям. Нахождение игрока на пути следования робота больше не приводит к потере роботом маршрута. Робот после столкновения с игроком замирает на секунду, после чего продолжает попытку движения.
+  local invSize   = robot.inventorySize()
--- Механизм оценки приемлемости (качества) полученного растения менять в функции howInterestingIsThisCrop(с)
+  local lootSlots = invSize - 1       -- слоты 2..invSize
--- При наличии интернет карты в роботе, скрипт в робота можно загрузить командой `pastebin get cZY3P7As -f crop_stats.lua`
+  local used      = 0
 
--- mode:
+  for slot = 2, invSize do
--- 1 - режим поднятия статов кропсов
+    if robot.count(slot) > 0 then
--- 2 - режим разведения дубликатов кропсов (НЕ ТЕСТИРОВАЛСЯ! НЕ ИСПОЛЬЗОВАТЬ!)
+      used = used + 1
-local mode = 1
+    end
--- выше заданных здесь значений робот понимать статы не будет
+  end
-local max_grow = 20 -- если больше 23, то кроп начинает вести себя как сорняк
+
-local max_gain = 28
+  log(string.format("Занято %d из %d лут-слотов.", used, lootSlots))
-local grow_kill = 24 -- значение стата grow, при котором и выше которого робот будет убивать растение на корню
+
   return used >= math.floor(lootSlots / 2)
-local robot = require("robot")
+
-local computer = require("computer")
+
-local component = require("component")
+-- Выгружаем весь лут (кроме Ваджры) в сундук СПРАВА от робота
-local geo = component.geolyzer
+local function dumpLoot()
-local cropname
+  log("Инвентарь заполнен >50%. Выгружаю лут в сундук справа.")
 
-local c_cropname = {} --имена дочерних кропов
+  robot.turnRight()  -- поворачиваемся к сундуку
---статы дочерних кропов
+
-local c_gain = {}
+  local invSize = robot.inventorySize()
-local c_grow = {}
+  for slot = 2, invSize do
-local c_resistans = {}
+    local count = robot.count(slot)
-local c_size = {}
+    if count > 0 then
-local c_maxSize = {}
+      robot.select(slot)
       local ok, reason = robot.drop()
--- статус может принимать значения:
+      log(string.format(
--- "unknown" - неисследованный. назначается при старте, дальше не используется
+        "drop из слота %d, %d шт. -> ok=%s, reason=%s",
--- "double crop" - жердочки
+        slot, count, tostring(ok), tostring(reason)
--- "growing" - растущий кроп, у которого статы или дошли до целевых или лучше материнских. после вырастания или отправится в сундук или может заменить собой материнский кроп
+      ))
-local c_status = {"unknown", "unknown", "unknown", "unknown", "unknown"} -- "unknown" для всех пяти дочерних кропов
+    end
   end
 
-local m_gain = {}
+  robot.turnLeft()        -- обратно лицом к рельсам
-local m_grow = {}
+  robot.select(TOOL_SLOT) -- снова выбираем Ваджру
-local m_resistans = {}
+
 
-local error_string
+-- ===== ОСНОВНОЙ ЦИКЛ =====
-local bestSeedsSlot --слот в инвентори робота с семенами с лучшими статами
+
-local robotLocation -- текущее местонаходение робота. значение из списка: {"С1", "С2", ... , "С5", "M1", "M2", "M3", "M4", "P0"}
+log("=== Робот-уборщик вагонеток запущен ===")
 log("Робот должен смотреть на рельсы, сундук с лутом стоит СПРАВА от него.")
 log("В слоте " .. TOOL_SLOT .. " лежит Ваджра, установлен Upgrade Tool.")
-function robot_error(msg)
+
-	print("Ошибка: ", msg)
+local tick = 0
-	computer.beep(1000,0.3)
+
-	computer.beep(1000,0.3)
+while true do
-	computer.beep(1000,0.3)
+  tick = tick + 1
-	os.exit()
+
   -- Всегда держим выбранным слот с Ваджрой
   robot.select(TOOL_SLOT)
-function robotTryForward() -- роботы пытается сделать шаг вперед, до тех пор, пока ему это не удастся
+
-	while robot.forward() == nil do
+  -- Бьём всё перед собой (вагонетку)
-		print("Робот столкнулся с препятствием.")
+  local ok, reason = robot.swing()
-		os.sleep(1) -- останавливаем робота на 1 секунду
+  if ok then
-	end
+    log("Удар по entity перед собой (скорее всего вагонетка). reason=" .. tostring(reason))
   end
---------------------------------------
+
-function get_crop_stat(analyze_result, stat_name) --функция - просматривает таблицу скана блока и возвращает значение поля, имя которого передано в stat_name. если не находит, то возвращает nil
+  -- Раз в CHECK_EVERY_TICKS тиков (~10 сек) проверяем инвентарь
   if tick % CHECK_EVERY_TICKS == 0 then
-	--file = io.open("log.txt", "a") --файл для лога
+    if needDump() then
       dumpLoot()
-	found = false
+    end
-	for name, v in pairs(analyze_result) do --просмотрим таблицу реультата анализа кропса
+  end
-
+
-		pos = string.find(name, stat_name)
+  -- Пауза 0.2 сек + возможность остановить Ctrl+Alt+C
-		--print(pos)
+  local sig = {event.pull(0.2)}
-		if pos ~=  nil then -- если строку в метадате нашли
+  if sig[1] == "interrupted" then
-			found = true
+    log("Получен сигнал interrupted, выхожу.")
-			--print(v)
+    log("=== Робот-уборщик вагонеток завершён ===")
-			return v
+    break
-		end
+  end
-	end
+