OpenPeripheral контроль реактора IC2(1.7.10) на конденсаторах [OpenComputers]

--[[opencomputers контроль реактора IC2(1.7.10) на конденсаторах
    pastebin.com/kxgfyM9                         update 26.10.21

использовать только вместе с модом OpenPeripheral

для проекта computercraft.ru
https://computercraft.ru/topic/2604-programma-ochen-mnogo-elektrichestva
авторы: Asior, serafim

требования:
монитор и видеокарта 2-го уровня,
адаптер, транспозер, контроллер красного камня.

пример сборки:
https://i.imgur.com/eRb0iAx.png
https://i.imgur.com/UqrFVkC.png
https://i.imgur.com/y42OiO7.png

схема реактора:
https://i.imgur.com/SXbeOu8.png
https://i.imgur.com/OW27suK.png

использование:
собрать установку, для плутония нагреть реактор до 8400 градусов,
в сундук положить запасные конденсаторы и стержни,
желательно обеспечить автокрафт перезарядки конденсаторов
https://pastebin.com/WgcCKBFn
]]--

local offReac = 8400 --температура перегрева реактора до отключения
local perDamage = 95 --процент износа конденсатора при котором он меняется

local com = require("component")
local computer = require("computer")
local event = require("event")
local gpu = com.gpu
local w,h = gpu.getResolution()
local per,noFuel,lowEu,toReac,run = 0,0,0,1,true
local sideReac,sideInv,sideRed,OutputEUt,StartEUt
local slotReac,Reflector = {},{}

if not com.isAvailable("chest") then
  print("нет сундука")
  print("использовать только вместе с модом OpenPeripheral")
  os.exit()
end
local chest = com.chest
local slotsInv = chest.getInventorySize()

if not com.isAvailable("redstone") then
  print("нет контроллера красного камня")
  os.exit()
end
local red = com.redstone

if not com.isAvailable("reactor_chamber") then
  print("камера реактора не найдена")
  os.exit()
end
local reactor = com.reactor_chamber

if reactor.producesEnergy() then
  print("\n".."остановите реактор !")
  for i = 0,5 do
    if red.getOutput(i) > 0 then
      red.setOutput(i, 0)
    end
  end
  os.exit()
end

if reactor.getHeat() > offReac then
  print("\n".."перегрев реактора !")
  os.exit()
end

os.execute("cls")
print("сохранение конденсаторов")
local data = reactor.getAllStacks(0)
for i = 0,54 do
  if data[i] and data[i].name then
    if string.find(data[i].name,"ondensator") then
      local per = math.ceil(100*data[i].dmg/data[i].max_dmg)
      print("слот: "..(i).."  износ: "..per.." %")
      if per >= perDamage then
        print("\n".."замените конденсатор в слоте: "..(i))
        os.exit()
      end
      table.insert(slotReac, i)
    end
  end
end
print("сохранение отражателей")
for i = 0,54 do
  if data[i] and data[i].name then
    if string.find(data[i].name,"eflector") then
      print("слот: "..(i))
      table.insert(Reflector, i)
    end
  end
end

print("пробный запуск")
for k,n in pairs({3,2,4,5,0,1}) do
  red.setOutput(n, 15)
  if reactor.producesEnergy() then
    os.sleep(1)
    StartEUt = math.ceil(reactor.getReactorEUOutput())
    print("StartEUt = "..StartEUt)
    sideRed = n
    red.setOutput(n, 0)
    print("редстоун в стороне: "..sideRed)
    break
  else
    red.setOutput(n, 0)
  end
  if k == 6 then
    print("\n".."реактор не запускается")
    os.exit()
  end
end

print("настройка завершена".."\n".."старт...")
os.sleep(2)

local function gui()
  gpu.setResolution(28,15)
  gpu.setBackground(0x000000)
  gpu.fill(1,1,28,15," ")
  gpu.setForeground(0x669999)
  gpu.set(1,1,"┌──────────────────────────┐")
  gpu.set(1,2,"│  │  │  │  │  │  │  │  │  │")
  gpu.set(1,3,"│──────────────────────────│")
  gpu.set(1,4,"│  │  │  │  │  │  │  │  │  │")
  gpu.set(1,5,"│──────────────────────────│")
  gpu.set(1,6,"│  │  │  │  │  │  │  │  │  │")
  gpu.set(1,7,"│──────────────────────────│")
  gpu.set(1,8,"│  │  │  │  │  │  │  │  │  │")
  gpu.set(1,9,"│──────────────────────────│")
 gpu.set(1,10,"│  │  │  │  │  │  │  │  │  │")
 gpu.set(1,11,"│──────────────────────────│")
 gpu.set(1,12,"│  │  │  │  │  │  │  │  │  │")
 gpu.set(1,13,"└──────────────────────────┘")
end

local xy = {
{"2","2"},{"5","2"},{"8","2"},{"11","2"},{"14","2"},{"17","2"},{"20","2"},{"23","2"},{"26","2"},
{"2","4"},{"5","4"},{"8","4"},{"11","4"},{"14","4"},{"17","4"},{"20","4"},{"23","4"},{"26","4"},
{"2","6"},{"5","6"},{"8","6"},{"11","6"},{"14","6"},{"17","6"},{"20","6"},{"23","6"},{"26","6"},
{"2","8"},{"5","8"},{"8","8"},{"11","8"},{"14","8"},{"17","8"},{"20","8"},{"23","8"},{"26","8"},
{"2","10"},{"5","10"},{"8","10"},{"11","10"},{"14","10"},{"17","10"},{"20","10"},{"23","10"},{"26","10"},
{"2","12"},{"5","12"},{"8","12"},{"11","12"},{"14","12"},{"17","12"},{"20","12"},{"23","12"},{"26","12"},
}

local function stop(wait)
  local e = ({event.pull(wait,"key_down")})[4]
  if e == 18 or e == 20 then
    red.setOutput(sideRed, 0)
    gpu.setResolution(w, h)
    gpu.setBackground(0x000000)
    gpu.setForeground(0xFFFFFF)
    gpu.fill(1, 1, w, h, " ")
    print("программа завершена")
    os.sleep(1)
    if reactor.producesEnergy() then
      print("ВНИМАНИЕ реактор по прежнему активен !!!")
    else
      print("реактор остановлен")
    end
    run = false
  end
end

local function alert(message)
  gpu.setForeground(0xFF9900)
  gpu.set(1,14,"  для завершения нажмите E  ")
  gpu.setForeground(0xFF0000)
  gpu.set(1,15,message)
  computer.beep(500, 1)
  stop(3)
end

local function ReactorControl()
  local function redstone(state)
    if state then
      red.setOutput(sideRed, 15)
    else
      while red.getOutput(sideRed) > 0 or reactor.getReactorEUOutput() > 0 do
        red.setOutput(sideRed, 0)
        os.sleep(0.2)
      end
      gpu.setForeground(0x00FF00)
      gpu.set(1,14,"      eu/t =  0           ")
    end
  end
  local data = reactor.getAllStacks(0)
  for i = 1,#slotReac do
    if data[slotReac[i]] then
      per = math.ceil(100*data[slotReac[i]].dmg/data[slotReac[i]].max_dmg)
      gpu.setForeground(0xFF9900)
      gpu.set(tonumber(xy[slotReac[i]][1]),tonumber(xy[slotReac[i]][2]),tostring(per))
    else
      per = 0
    end
    if per == 100 then
      redstone(false)
      alert(" снизте % замены конденсат. ")
      while run do
        computer.beep(500, 1)
        stop(3)
      end
      os.exit()
    end
    if per >= perDamage or per == 0 then
      gpu.setForeground(0xFF9900)
      gpu.set(1,15,"    замена конденсаторов    ")
      redstone(false)
      chest.pullItem("DOWN",slotReac[i])
      gpu.setForeground(0xFF0000)
      gpu.set(tonumber(xy[slotReac[i]][1]),tonumber(xy[slotReac[i]][2]),"██")
      local data1 = chest.getAllStacks(0)
      for i1 = 1,slotsInv do
        if data1[i1] and data1[i1].name then
          local per = math.ceil(100*data1[i1].dmg/data1[i1].max_dmg)
          if string.find(data1[i1].name,"ondensator") and per < 90 then
            toReac = chest.pushItemIntoSlot("DOWN",i1,1,slotReac[i])
            if toReac then
              gpu.setForeground(0x00FF00)
              gpu.set(tonumber(xy[slotReac[i]][1]),tonumber(xy[slotReac[i]][2]),"██")
            end
            break
          else
            toReac = 0
          end
        end
      end
    end
  end
  local function circuitCheck()
    local data = reactor.getAllStacks(0)
    local sh = 0
    for i = 1,#slotReac do
      if data[slotReac[i]] then
        sh = sh + 1
      end
    end
    if sh == #slotReac then
      return true
    else
      return false
    end
  end
  if reactor.getHeat() > offReac then
    redstone(false)
    alert("     перегрев реактора !    ")
  elseif not circuitCheck() then
    alert(" нет целых конденсаторов !  ")
  elseif toReac == 0 then
    alert("    в сундуке нет места !   ")
  elseif noFuel >= 5 then
    alert("       нет топлива !        ")
  else
    redstone(true)
    if not reactor.producesEnergy() then
      alert("  реактор не запускается !  ")
    else
      OutputEUt = math.ceil(reactor.getReactorEUOutput())
      gpu.setForeground(0x00FF00)
      gpu.set(1,14,"      eu/t =  "..OutputEUt.."            ")
      gpu.set(1,15,"      реактор активен       ")
    end
  end
  stop(0.7)
  if reactor.producesEnergy() and reactor.getReactorEUOutput() == 0 then
    noFuel = noFuel + 1
  else
    noFuel = 0
    if OutputEUt and OutputEUt < StartEUt then
      lowEu = lowEu + 1
    else
      lowEu = 0
    end
  end
  if noFuel == 3 or lowEu == 3 then
    local data2 = reactor.getAllStacks(0)
    local data3 = chest.getAllStacks(0)
    for i2 = 1,54 do
      if data2[i2] and data2[i2].name then
        if string.find(data2[i2].name,"depleted") then
          redstone(false)
          gpu.setForeground(0xFF9900)
          gpu.set(1,15,"      замена стержней       ")
          chest.pullItem("DOWN",i2)
          for i3 = 0,slotsInv do
            if data3[i3] and data3[i3].name then
              if string.find(data3[i3].name,"MOX") or string.find(data3[i3].name,"Uran") then
                if not string.find(data3[i3].name,"depleted") then
                  chest.pushItemIntoSlot("DOWN",i3,1,i2)
                  break
                end
              end
            end
          end
        end
      end
    end
    StartEUt = 0
    lowEu = 0
    for i4 = 1,#Reflector do
      if not data2[Reflector[i4]] then
        for i5 = 0,slotsInv do
          if data3[i5] and data3[i5].name then
            if string.find(data3[i5].name,"eflector") then
              redstone(false)
              gpu.setForeground(0xFF9900)
              gpu.set(1,15,"      замена отражателя     ")
              chest.pushItemIntoSlot("DOWN",i5,1,Reflector[i4])
            end
          end
        end
      end
    end
  end
  if OutputEUt and OutputEUt > StartEUt then
    StartEUt = math.ceil(reactor.getReactorEUOutput())
  end
end

gui()
gpu.setForeground(0xFF9900)
gpu.set(1,14,"  для завершения нажмите E  ")
os.sleep(1)
while run do
  local ok,err = pcall(ReactorControl)
  if not ok then
    red.setOutput(sideRed, 0)
    gpu.setResolution(w, h)
    gpu.setBackground(0x000000)
    gpu.setForeground(0xFFFFFF)
    os.execute("cls")
    print("программа аварийно завершена")
    if type(err) == "table" then
      io.stderr:write(table.unpack(err))
    else
      io.stderr:write(err)
    end
    run = false
  end
end