RAVServer

rednet.open("front")

textutils.slowPrint("Loading system diagnostics..")
sleep(1.5)
textutils.slowPrint("Welcome to the RA-v Network")
sleep(1)

function callData()
    rednet.send(35, "call.data") -- Reactor
    rID1,rMessage1 = rednet.receive()
    rednet.send(73, "call.data") -- Reactor 2
    rID2,rMessage2 = rednet.receive()
    rednet.send(36, "call.data") -- ME System
    meID,meMessage = rednet.receive()
end

function calculateData()
    function calculateReactor(id,message)
        local data = textutils.unserialise(message)
        local heat = data[1]
        local output = data[2]
        local status = data[3]

        local dHeat = tostring(math.floor((heat/10000)*100))
        local table = {dHeat,output,status}
        local data2 = textutils.serialise(table)
        return data2
    end

    rData1 = calculateReactor(rID1,rMessage1)
    rData2 = calculateReactor(rID2,rMessage2)

end

function interfaceAction() -- will have the response and actions interfaces
    function interfaceResponse(id, message)
        if message == "Shutdown Reactors" then
            rednet.send(id,"success")
            -- add actons
        elseif message == "Reboot system" then
            rednet.send(id,"success")
        else
            rednet.send(id,"failure")
        end

    end

    interfaceArray = {}
    rednet.send(41,"call.interface")
    local id,message = rednet.receive(1)
    interfaceArray[id] = textutils.unserialise(message)

    rednet.send(42,"call.interface")
    local id,message = rednet.receive(1)
    interfaceArray[id] = textutils.unserialise(message)

    for i, m in pairs(interfaceArray) do
        interfaceResponse(i, m)
    end
end

function sendData() -- Sending data to monitors, receivers
    rPackage = {rData1,rData2}

    rednet.send(40,rPackage) -- Change 40 to monitor id
    rednet.send(41,meMessage)
end

while true do
    callData()
    calculateData()
    sendData()

end