Control Réactor v4

local d = peripheral.wrap("drum_1")
local t = peripheral.wrap("drum_2")
local n = peripheral.wrap("drum_3")
local l = peripheral.wrap("drum_4")
local md = peripheral.wrap("monitor_0")
local mt = peripheral.wrap("monitor_1")
local mn = peripheral.wrap("monitor_2")
local ml = peripheral.wrap("monitor_3")

local deutrium
local tritiumOn
local tritiumOff
local nitrogen
local lubrican

local amount

function getTank(tankPeriph)
  local tableInfo = tankPeriph.getTankInfo()

  fluidRaw = nil
  fluidName = nil
  fluidAmount = nil
  fluidCapacity = nil

  for k,v in pairs(tableInfo) do
    fluidCapacity = v.capacity

    if v.contents then
      for i,w in pairs(v.contents) do
        if i == "rawName" then
          fluidRaw = w
        elseif i == "amount" then
          fluidAmount = w
        elseif i == "name" then
          fluidName = w
        end
      end
    end
  end
  return fluidRaw, fluidName, fluidAmount, fluidCapacity
end

while true do

term.clear()

-- deutrium

local fluidRaw, fluidName, fluidAmount, fluidCapacity = getTank(d)
percentDrum = math.floor(100 * fluidAmount / fluidCapacity )
term.setCursorPos(1,1)
term.write(fluidRaw.." "..tostring(fluidAmount).." mB  | Remplissage: "..tostring(percentDrum).." %" )

if percentDrum < 30 then
    deutrium = 1
else
    deutrium = 0
end

md.clear()
md.setCursorPos(6,1)
md.setTextColor(colors.lightBlue)
md.write(fluidRaw)
md.setCursorPos(1,3)
md.write("Quantite: "..fluidAmount.." mB"))
md.setCursorPos(1,4)
md.write("Remplissage: "..percentDrum.." %"))

-- tritium

local fluidRaw, fluidName, fluidAmount, fluidCapacity = getTank(t)
percentDrum = math.floor(100 * fluidAmount / fluidCapacity )
term.setCursorPos(1,2)
term.write(fluidRaw.." "..tostring(fluidAmount).." mB  | Remplissage: "..tostring(percentDrum).." %" )

if percentDrum < 30 then
    tritiumOn = 4
    tritiumOff = 0
else
    tritiumOn = 0
    tritiumOff = 2
end

-- nitrogen

local fluidRaw, fluidName, fluidAmount, fluidCapacity = getTank(n)
percentDrum = math.floor(100 * fluidAmount / fluidCapacity )
term.setCursorPos(1,3)
term.write(fluidRaw.." "..tostring(fluidAmount).." mB  | Remplissage: "..tostring(percentDrum).." %" )

if percentDrum < 30 then
    nitrogen = 8
else
    nitrogen = 0
end

-- lubrican

local fluidRaw, fluidName, fluidAmount, fluidCapacity = getTank(l)
percentDrum = math.floor(100 * fluidAmount / fluidCapacity )
term.setCursorPos(1,4)
term.write(fluidRaw.." "..tostring(fluidAmount).." mB  | Remplissage: "..tostring(percentDrum).." %" )

if percentDrum < 30 then
    lubrican = 16
else
    lubrican = 0
end

-- redstone Output

local value = deutrium+tritiumOn+tritiumOff+nitrogen+lubrican
term.setCursorPos(1,5)
term.write("RedstoneOutput: "..tostring(value))
redstone.setBundledOutput("top",value)

sleep(1)
end