BigReactor Control Advanced V1.0

--Control Computer Basic
local Wireless -- link au pc de Control
Wireless = peripheral.wrap("right")
local sc
sc = peripheral.wrap("back")
term.redirect(sc)

Wireless.open(69)
Wireless.open(70)
Wireless.open(71)
Wireless.open(72)
Wireless.open(73)
Wireless.open(74)
Wireless.open(75)

local isOn
local engStr
local fuelTemp
local caseTemp
local fuelAmt

isOn = false
engStr = 0
fuelTemp = 0
caseTemp = 0
fuelAmt = 0


while true do

  local event, modemSide, senderChannel, replyChannel, message, senderDistance = os.pullEvent("modem_message")

  if (senderChannel == 71) then
        isOn = message
    end
    if (senderChannel == 72) then
       engStr = message
    end
    if (senderChannel == 73) then
       fuelTemp = message
    end
    if (senderChannel == 74) then
       caseTemp = message
    end
    if (senderChannel == 75) then
       fuelAmt = message
    end

 sc.clear()
 sc.setCursorPos(1,1)
  paintutils.drawFilledBox(1,1,50,27,colors.gray)
 if (isOn == true) then
  paintutils.drawFilledBox(1,1,2,2,colors.lime)
  paintutils.drawFilledBox(57,2,49,1,colors.lime)
 end
 if (isOn == false) then
  paintutils.drawFilledBox(1,1,2,2,colors.red)
  paintutils.drawFilledBox(57,2,49,1,colors.red)
 end
 paintutils.drawFilledBox(25,10,25,10,colors.gray)

 --EngStr
 sc.setCursorPos(4,5)
 sc.setTextColor(colors.lightBlue)
 write("Energie")
 sc.setCursorPos(4,6)
 write("Accumule")
 sc.setTextColor(colors.white)
 sc.setCursorPos(4,7)
 write(engStr)


 paintutils.drawFilledBox(4,8,10,16,colors.red)
 local x
 x = engStr*8/10000000
 x = math.floor(x)
 x = 16 - x
 paintutils.drawFilledBox(4,8,10,x,colors.brown)

--fuelTemp
 sc.setCursorPos(14,5)
 sc.setTextColor(colors.lightBlue)
 write("Temperature")
 sc.setCursorPos(14,6)
 write("Interne")
 sc.setTextColor(colors.white)
 sc.setCursorPos(14,7)
 write(fuelTemp)

 paintutils.drawFilledBox(14,8,20,16,colors.red)
 local y
 x = fuelTemp*8/2000
 x = math.floor(x)
 x = 16 - x
 paintutils.drawFilledBox(14,8,20,x,colors.yellow)

--caseTemp
 sc.setCursorPos(24,5)
 sc.setTextColor(colors.lightBlue)
 write("Temperature")
 sc.setCursorPos(24,6)
 write("Externe")
 sc.setTextColor(colors.white)
 sc.setCursorPos(24,7)
 write(caseTemp)

 paintutils.drawFilledBox(24,8,30,16,colors.red)
 local y
 x = caseTemp*8/2000
 x = math.floor(x)
 x = 16 - x
 paintutils.drawFilledBox(24,8,30,x,colors.yellow)

 --fuelAmt
 sc.setCursorPos(34,5)
 sc.setTextColor(colors.lightBlue)
 write("Fuel")
 sc.setCursorPos(34,6)
 write("Restant")
 sc.setTextColor(colors.white)
 sc.setCursorPos(34,7)
 write(fuelAmt)

 paintutils.drawFilledBox(34,8,40,16,colors.red)
 local y
 x = fuelAmt*8/48000
 x = math.floor(x)
 x = 16 - x
 paintutils.drawFilledBox(34,8,40,x,colors.yellow)

end