[OpenComputers] ExtraCells2 Fluid emitter adaptation

--- Автор 4gname
--- Инструкция по программе в самом низу документа

comp = require("component")
screen = require("term")
computer = require("computer")
event = require("event")
GPU1 = comp.gpu
sides = require("sides")
rs = comp.redstone
me_interface = comp.me_interface
sides = require("sides")
colors = require("colors")

screenWidth = 160
screenHeight = 50
textColor = 0xFFFFFF

GPU1.setResolution(screenWidth, screenHeight)
fluidNames = {}
fluids = {}

function write(x, y, text, color)
    color = color or textColor
    screen.setCursor(x, y)
    oldColor = GPU1.setForeground(color)
    screen.write(text)
    GPU1.setForeground(oldColor)
end

local fluidList = me_interface.getFluidsInNetwork()
function fluidslistUpdate()
    fluidList = me_interface.getFluidsInNetwork()
end

function fluid(name, nameFluid, color_text, side_rs, cable_color, x, y, max)
    local amountFLuid
    local amount
    local abort = true
    for number, fluid in ipairs(fluidList) do
        if fluid.name == nameFluid then
            label = name
            amountFLuid = tonumber(fluid.amount)
            abort = false
            break
        end
    end
    if abort then return end
    amount = math.floor(amountFLuid / 1000)
    if (fluidNames[nameFluid] == nil) then
        if amount >= max then
            write(x + 4, y, label .. " " .. amount*1000 .. " L" .. " [" .. max*1000 .. " L]", color_text)
            box(x + 1, y, 2, 1, 0xff0000)
            rs.setBundledOutput(side_rs, cable_color, 255)
        else
            write(x + 4, y, label .. " " .. amount*1000 .. " L" .. " [" .. max*1000 .. " L]", color_text)
            box(x + 1, y, 2, 1, 0x000000)
            rs.setBundledOutput(side_rs, cable_color, 0)
        end
    else
    end
end

function resetCables(side, boolean)
    if (boolean == true) then
    rs.setBundledOutput(side, colors.orange, 0)
    rs.setBundledOutput(side, colors.magenta, 0)
    rs.setBundledOutput(side, colors.lightblue, 0)
    rs.setBundledOutput(side, colors.yellow, 0)
    rs.setBundledOutput(side, colors.lime, 0)
    rs.setBundledOutput(side, colors.pink, 0)
    rs.setBundledOutput(side, colors.gray, 0)
    rs.setBundledOutput(side, colors.silver, 0)
    rs.setBundledOutput(side, colors.cyan, 0)
    rs.setBundledOutput(side, colors.purple, 0)
    rs.setBundledOutput(side, colors.black, 0)
    rs.setBundledOutput(side, colors.white, 0)
    rs.setBundledOutput(side, colors.red, 0)
    rs.setBundledOutput(side, colors.green, 0)
    rs.setBundledOutput(side, colors.brown, 0)
    rs.setBundledOutput(side, colors.blue, 0)
    else
    end
end

function box(x, y, w, h, color)
    oldColor = GPU1.setBackground(color)
    GPU1.fill(x, y, w, h, " ")
    GPU1.setBackground(oldColor)
end

function offProgram(x)
    write(screenWidth-15, 1, "Off - Ctrl+C", 0x858585)
    write(screenWidth-15, 1, "Off - Ctrl+C", 0x858585)
    x = x + 1
    if (x % 2 == 0) then
        box(screenWidth-2, 1, 2, 1, 0x858585)
    else
        box(screenWidth-2, 1, 2, 1, 0xffffff)
    end

end

screen.clear()
n = 1

    --------------------------------------------------------------------------------------------------------

    --- Как работает программа?

    --- С помощью МЕ интерфейса и адаптера OC программа считывает все жидкости в системе, далее вы выбираете нужную
    --- вам жидкость для отслеживания, указываете ее допустимое значение и программа выдает редстоун сигнал через через
    --- RS порт OC (Выбирается сторона и цвет кабеля для работы с модом Project Red) при достижении допустимого значения
    --- программа выдает ред сигнал выбранного цвета с выбранной стороны RS порта.
    ---
    --- На мониторе пк выводится информация: Название жидкости, объем в МЕ, Допустимый обьем, Активен ли RS сигнал

    --- Требования для работы программы:

    --- 1) Наличие Адаптера подключенного к МЕ интерфейсу (обычному, НЕ жидкостному)
    --- 2) Наличие Redstone IO адаптера
    --- 3) Комп тир 3
    --- 4) Мониторы тир 3
    --- 5) GPU тир 3
    --- 6) CPU тир 3

    --------------------------------------------------------------------------------------------------------

while (true) do

    --------------------------------------------------------------------------------------------------------

    --- Обновление жиж в ме [не трогать]
    fluidslistUpdate()

    --------------------------------------------------------------------------------------------------------

    --- Регистрация жидкостей
    --- @param name - Полное название жидкости
    --- @param nameFluid - Название жидкости в универсальной капсуле
    --- @param color_text - Цвет текста через палитру HEX
    --- @param side_rs - Сторона редстоун куба - sides.top, sides.down, sides.back, sides.front, sides.left, sides.right
    --- @param cable_color - Цвет провода из мода Project Red - colors.white .. colors.black
    --- @param x, y - Координаты текста
    ---      x: обычно 1;
    ---      y: обычно имеет значение для каждой новой жидкости +1;
    --- @param max - Максимальное значение жидкости при котором выдается редстоун сигнал - значение в ведрах

    --- Примеры:
    fluid("Your Name Fluid","nitrogen", 0x808080, sides.top, colors.purple, 1, 3, 20)

    --------------------------------------------------------------------------------------------------------

    --- Выключение всех кабелей, если баганули или просто тестируете что то
    --- @param side - Сторона редстоун куба
    --- @param boolean - true или false
    ---      true: обнуляет все провода, если оставить вместе с жидкостями выдает импульсы(мигает);
    ---      false: не работает (по умолчанию);
    resetCables(sides.top, false)

    --------------------------------------------------------------------------------------------------------

    --- Индикатор работы программы
    offProgram(n)

    n = n + 1
    --------------------------------------------------------------------------------------------------------

    -- Выключить программу ctrl+c
    os.sleep(0.1)
    if event.pull(.5, "interrupted") then
        screen.clear()
        break
    end
end