testReactor

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

использовать только вместе с модом OpenPeripheral
pastebin run YidCrWCG
для проекта 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 = 8500 --температура перегрева реактора до отключения
local perDamage = 80 --процент износа конденсатора при котором он меняется
local freshchestaddr = "080bc543-8f43-45e6-8e61-047435388f3c"
local usedchestaddr  = "6bf919cb-0585-4298-9870-ed5cded3c7c7"

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 = {},{}

function findSpecificChest(desiredAddress)
    -- Get list of all inventory components
    local invs = com.list("chest")

    -- Check each one for address match
    for address, name in pairs(invs) do
        if address == desiredAddress then
            return com.proxy(address)
        end
    end
    return nil
end

-- Example usage:
local myChest = findSpecificChest(freshchestaddr)
if myChest then
    print("Found our chest! Size: " .. myChest.getInventorySize())
else
    print("Chest not found")
end

if not findSpecificChest(freshchestaddr) then
    print("нет указанного сундака со свежими конденсаторами")
    os.exit()
end

if not findSpecificChest(usedchestaddr) then
    print("нет указанного сундука для отработанных конденсаторов")
    os.exit()
end
--[[
if not com.isAvailable("080bc543-8f43-45e6-8e61-047435388f3c") then
    print("нет сундука с свежими конденсаторами")
    print("использовать только вместе с модом OpenPeripheral")
    os.exit()
end
if not com.isAvailable("253fca85-88fa-4264-a865-94166d3521cc") then
    print("нет сундука для отработки")
    print("использовать только вместе с модом OpenPeripheral")
    os.exit()
end
]]--


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

local usedchest = findSpecificChest(usedchestaddr)
local usedslotsInv = usedchest.getInventorySize()

--local interface = com.me_interface

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)
    os.sleep(1)
    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
        --os.sleep(1)
        red.setOutput(n, 0)
    end
    if k == 6 then
        print("\n".."реактор не запускается 6")
        os.exit()
    end
end

print("настройка завершена".."\n".."старт...")
os.sleep(2)
-- ▀ ▄ █
local function gui()
    gpu.setResolution(28,15)
    gpu.setBackground(0x696969)
    gpu.fill(1,1,28,15," ")
    gpu.setForeground(0x3C3C3C)
    gpu.set(1,1,"████████████████████████████")
    gpu.set(1,2,"█  █  █  █  █  █  █  █  █  █")
    gpu.setForeground(0x008000)
    gpu.set(2,2,"█")
    gpu.set(5,2,"█")
    gpu.set(8,2,"█")
    gpu.set(11,2,"█")
    gpu.set(14,2,"█")
    gpu.set(17,2,"█")
    gpu.set(20,2,"█")
    gpu.set(23,2,"█")
    gpu.set(26,2,"█")
    --
    gpu.setForeground(0x00ff00)
    gpu.set(3,2,"█")
    gpu.set(6,2,"█")
    gpu.set(9,2,"█")
    gpu.set(12,2,"█")
    gpu.set(15,2,"█")
    gpu.set(18,2,"█")
    gpu.set(21,2,"█")
    gpu.set(24,2,"█")
    gpu.set(27,2,"█")
    gpu.setForeground(0x3C3C3C)
    gpu.set(1,3,"████████████████████████████")
    gpu.set(1,4,"█  █  █  █  █  █  █  █  █  █")
    gpu.setForeground(0x008000)
    gpu.set(2,4,"█")
    gpu.set(5,4,"█")
    gpu.set(8,4,"█")
    gpu.set(11,4,"█")
    gpu.set(14,4,"█")
    gpu.set(17,4,"█")
    gpu.set(20,4,"█")
    gpu.set(23,4,"█")
    gpu.set(26,4,"█")
    --
    gpu.setForeground(0x00ff00)
    gpu.set(3,4,"█")
    gpu.set(6,4,"█")
    gpu.set(9,4,"█")
    gpu.set(12,4,"█")
    gpu.set(15,4,"█")
    gpu.set(18,4,"█")
    gpu.set(21,4,"█")
    gpu.set(24,4,"█")
    gpu.set(27,4,"█")
    gpu.setForeground(0x3C3C3C)
    gpu.set(1,5,"████████████████████████████")
    gpu.set(1,6,"█  █  █  █  █  █  █  █  █  █")
    gpu.setForeground(0x008000)
    gpu.set(2,6,"█")
    gpu.set(5,6,"█")
    gpu.set(8,6,"█")
    gpu.set(11,6,"█")
    gpu.set(14,6,"█")
    gpu.set(17,6,"█")
    gpu.set(20,6,"█")
    gpu.set(23,6,"█")
    gpu.set(26,6,"█")
    --
    gpu.setForeground(0x00ff00)
    gpu.set(3,6,"█")
    gpu.set(6,6,"█")
    gpu.set(9,6,"█")
    gpu.set(12,6,"█")
    gpu.set(15,6,"█")
    gpu.set(18,6,"█")
    gpu.set(21,6,"█")
    gpu.set(24,6,"█")
    gpu.set(27,6,"█")
    gpu.setForeground(0x3C3C3C)
    gpu.set(1,7,"████████████████████████████")
    gpu.set(1,8,"█  █  █  █  █  █  █  █  █  █")
    gpu.setForeground(0x008000)
    gpu.set(2,8,"█")
    gpu.set(5,8,"█")
    gpu.set(8,8,"█")
    gpu.set(11,8,"█")
    gpu.set(14,8,"█")
    gpu.set(17,8,"█")
    gpu.set(20,8,"█")
    gpu.set(23,8,"█")
    gpu.set(26,8,"█")
    --
    gpu.setForeground(0x00ff00)
    gpu.set(3,8,"█")
    gpu.set(6,8,"█")
    gpu.set(9,8,"█")
    gpu.set(12,8,"█")
    gpu.set(15,8,"█")
    gpu.set(18,8,"█")
    gpu.set(21,8,"█")
    gpu.set(24,8,"█")
    gpu.set(27,8,"█")
    gpu.setForeground(0x3C3C3C)
    gpu.set(1,9,"████████████████████████████")
    gpu.set(1,10,"█  █  █  █  █  █  █  █  █  █")
    gpu.setForeground(0x008000)
    gpu.set(2,10,"█")
    gpu.set(5,10,"█")
    gpu.set(8,10,"█")
    gpu.set(11,10,"█")
    gpu.set(14,10,"█")
    gpu.set(17,10,"█")
    gpu.set(20,10,"█")
    gpu.set(23,10,"█")
    gpu.set(26,10,"█")
    --
    gpu.setForeground(0x00ff00)
    gpu.set(3,10,"█")
    gpu.set(6,10,"█")
    gpu.set(9,10,"█")
    gpu.set(12,10,"█")
    gpu.set(15,10,"█")
    gpu.set(18,10,"█")
    gpu.set(21,10,"█")
    gpu.set(24,10,"█")
    gpu.set(27,10,"█")
 gpu.setForeground(0x3C3C3C)
    gpu.set(1,7,"████████████████████████████")
    gpu.set(1,8,"█  █  █  █  █  █  █  █  █  █")
    gpu.setForeground(0x008000)
    gpu.set(2,8,"█")
    gpu.set(5,8,"█")
    gpu.set(8,8,"█")
    gpu.set(11,8,"█")
    gpu.set(14,8,"█")
    gpu.set(17,8,"█")
    gpu.set(20,8,"█")
    gpu.set(23,8,"█")
    gpu.set(26,8,"█")
    --
    gpu.setForeground(0x00ff00)
    gpu.set(3,8,"█")
    gpu.set(6,8,"█")
    gpu.set(9,8,"█")
    gpu.set(12,8,"█")
    gpu.set(15,8,"█")
    gpu.set(18,8,"█")
    gpu.set(21,8,"█")
    gpu.set(24,8,"█")
    gpu.set(27,8,"█")
    gpu.setForeground(0x3C3C3C)
    gpu.set(1,9,"████████████████████████████")
    gpu.set(1,10,"█  █  █  █  █  █  █  █  █  █")
    gpu.setForeground(0x008000)
    gpu.set(2,10,"█")
    gpu.set(5,10,"█")
    gpu.set(8,10,"█")
    gpu.set(11,10,"█")
    gpu.set(14,10,"█")
    gpu.set(17,10,"█")
    gpu.set(20,10,"█")
    gpu.set(23,10,"█")
    gpu.set(26,10,"█")
    --
    gpu.setForeground(0x00ff00)
    gpu.set(3,10,"█")
    gpu.set(6,10,"█")
    gpu.set(9,10,"█")
    gpu.set(12,10,"█")
    gpu.set(15,10,"█")
    gpu.set(18,10,"█")
    gpu.set(21,10,"█")
    gpu.set(24,10,"█")
    gpu.set(27,10,"█")
    gpu.setForeground(0x3C3C3C)
    gpu.set(1,11,"████████████████████████████")
    gpu.set(1,12,"█  █  █  █  █  █  █  █  █  █")
    gpu.setForeground(0x008000)
    gpu.set(2,12,"█")
    gpu.set(5,12,"█")
    gpu.set(8,12,"█")
    gpu.set(11,12,"█")
    gpu.set(14,12,"█")
    gpu.set(17,12,"█")
    gpu.set(20,12,"█")
    gpu.set(23,12,"█")
    gpu.set(26,12,"█")
    --
    gpu.setForeground(0x00ff00)
    gpu.set(3,12,"█")
    gpu.set(6,12,"█")
    gpu.set(9,12,"█")
    gpu.set(12,12,"█")
    gpu.set(15,12,"█")
    gpu.set(18,12,"█")
    gpu.set(21,12,"█")
    gpu.set(24,12,"█")
    gpu.set(27,12,"█")
    gpu.setForeground(0x3C3C3C)
    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)
    gpu.setBackground(0x000000)
    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
    gpu.setBackground(0x696969)
end

local function alert(message)
    gpu.setBackground(0x000000)
    gpu.setForeground(0xFF9900)
    gpu.set(1,14,"  для завершения нажмите E  ")
    gpu.setForeground(0xFF0000)
    gpu.set(1,15,message)
    computer.beep(500, 1)
    stop(3)
    gpu.setBackground(0x696969)
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.setBackground(0x000000)
            gpu.setForeground(0x00FF00)
            gpu.set(1,14,"      eu/t =  0           ")
            gpu.setBackground(0x696969)
        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
            gpu.setBackground(0x000000)
            redstone(false)
            alert(" снизте % замены конденсат. ")
            while run do
                computer.beep(500, 1)
                stop(3)
                gpu.setBackground(0x696969)
            end
            os.exit()
        end
        if per >= perDamage or per == 0 then
            gpu.setBackground(0x000000)
            gpu.setForeground(0xFF9900)
            gpu.set(1,15,"    замена конденсаторов    ")
            gpu.setBackground(0x696969)
            redstone(false)
            usedchest.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(0x696969)
                            gpu.setBackground(0x696969)
                            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
    gpu.setBackground(0x000000)
    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)
        os.sleep(1)
        if not reactor.producesEnergy() then
            alert("  реактор не запускается !  ")
        else
            OutputEUt = math.ceil(reactor.getReactorEUOutput())

            gpu.set(1,14,"      eu/t =  "..OutputEUt.."            ")
            gpu.set(1,15,"      реактор активен       ")
        end
    end
    stop(0.7)
    gpu.setBackground(0x696969)
    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
    gpu.setBackground(0x000000)
    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,"Near-depleted Uranium Cell") or string.find(data2[i2].name,"Near-depleted Uranium Cell") then
                    redstone(false)
                    gpu.setForeground(0xFF9900)
                    gpu.set(1,15,"      замена стержней       ")
                    usedchest.pullItem("DOWN",i2)
                    for i3 = 0,slotsInv do
                        if data3[i3] and data3[i3].name then
                            if string.find(data3[i3].name,"Uranium Cell") or string.find(data3[i3].name,"Uranium Cell") 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
    gpu.setBackground(0x696969)
    if OutputEUt and OutputEUt > StartEUt then
        StartEUt = math.ceil(reactor.getReactorEUOutput())
    end
end

gui()
gpu.setBackground(0x000000)
gpu.setForeground(0xFF9900)
gpu.set(1,14,"  для завершения нажмите E  ")
gpu.setBackground(0x696969)
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