startup

modemC = peripheral.wrap('back') --cable
modemW = peripheral.wrap('bottom')--wifi
chan = 51
reponse = nil

rednet.open('bottom')
rednet.open('back')
modemW.open(5)


EUn1 = 0
EUn2 = 0
RFn1 = 0
RFn2 = 0
EU2n1 = 0
EU2n2 = 0
RF2n1 = 0
RF2n2 = 0
moni = peripheral.wrap("monitor_2")
moni.setBackgroundColor(colors.black)
moni.setTextScale(1)
mfe = peripheral.wrap("right")
mfe2 = peripheral.wrap("ic2:mfsu_0")
mfeMax = mfe.getEUCapacity()
mfe2Max = mfe2.getEUCapacity()
cube2 = peripheral.wrap("left")
cube = peripheral.wrap("Advanced Energy Cube_1")
cubeMax = cube.getMaxEnergy()
cube2Max = cube2.getMaxEnergy()


function quelColor(energy)
if energy < 20 then c = colors.red end
if energy >20 and energy < 70 then c = colors.yellow end
if energy > 70 then c = colors.green  end
return(c)
end

function titre (x,y,titre,c)
moni.setTextColor(c)
moni.setCursorPos(x,y)
moni.write (titre)
end

function etat (x,y,n1,n2)
e = (n1 - n2)/100
e = math.floor (e)/10
if e < 0 then c = colors.red
else c = colors.green end
moni.setTextColor(c)
moni.setCursorPos(x,y)
moni.write (e)
moni.write ('K')
end

function barre (x,y,ener,col)
moni.setCursorPos(x,y)
I = ener /8
for i =1,I do
moni.setBackgroundColor(col)
moni.write(" ")
end
moni.setBackgroundColor(colors.black)
end


while true do
EU = math.floor(((mfe.getEUStored() ) / mfeMax ) *1000)/10
EU2 = math.floor(((mfe2.getEUStored() ) / mfe2Max ) *1000)/10
RF = math.floor((cube.getEnergy() / cubeMax ) *1000)/10
RF2 = math.floor((cube2.getEnergy() / cube2Max ) *1000)/10
EUn1 = mfe.getEUStored()
EU2n1 = mfe2.getEUStored()
RFn1 = cube.getEnergy()
RF2n1 = cube2.getEnergy()

moni.clear()

titre(10,1,"The Sentry",colors.yellow)

titre(2,3,"RF Principal",colors.white)

titre(2,8,"RF Secondaire",colors.white)

titre(16,3,"EU Principal",colors.white)

titre (16,8,"EU Secondaire",colors.white)



if EU2 < 90 then fan = 1
else fan = 0 end
modemW.transmit (5,fan,fan)

titre(20,4,EU,quelColor(EU))
moni.write("%")
barre(16,5,EU,quelColor(EU))
etat(19,6,EUn1,EUn2)

titre(20,9,EU2,quelColor(EU2))
moni.write("%")
barre(16,10,EU2,quelColor(EU2))
etat(19,11,EU2n1,EU2n2)


titre(6,4,RF,quelColor(RF))
moni.write("%")
barre(2,5,RF,quelColor(RF))
etat(5,6,RFn1,RFn2)


titre(6,9,RF2,quelColor(RF2))
moni.write("%")
barre(2,10,RF2,quelColor(RF2))
etat(5,11,RF2n1,RF2n2)

moni.setBackgroundColor(colors.black)
modemW.transmit(chan,56,cubeMax)
sleep(1)
modemW.transmit(chan,52,RFn1)
sleep(1)modemW.transmit(chan,57,cube2Max)
sleep(1)
modemW.transmit(chan,53,RF2n1)
sleep(1)modemW.transmit(chan,58,mfeMax)
sleep(1)
modemW.transmit(chan,54,EUn1)
sleep(1)modemW.transmit(chan,59,mfeMax)
sleep(1)
modemW.transmit(chan,55,EU2n1)
sleep(1)

EUn2 = EUn1
EU2n2 = EU2n1
RFn2 = RFn1
RF2n2 = RF2n1

sleep(15)
end