Big reactor controller (reactor)

    -- Remote Wireless Big Reactor Control(reactor) by Disappearer
    -- This program need wireless modem ,normal or advanced computer
    -- and computer port in reactor. If you have different setup than
    -- one shown on screens edit these four variables below.

    rednet.open("left") -- side of wireless modem
    local reactor = peripheral.wrap("back") -- side or name of computer port
    local dataprotocol = "data" -- protocol used to send informations
    local powerprotocol = "power" -- protocol used to receive informations


    function reacreceive()
    works = reactor.getConnected()
    if works == false then
    rednet.broadcast(works,dataprotocol)
    sleep(0.1)
    else
    local mytable = {
    active = reactor.getActive(),
    casingtemp = reactor.getCasingTemperature(),
    energylasttick = reactor.getEnergyProducedLastTick(),
    energystored = reactor.getEnergyStored(),
    fuelamount = reactor.getFuelAmount(),
    fuelmax = reactor.getFuelAmountMax(),
    fueleatlasttick = reactor.getFuelConsumedLastTick(),
    fueltemp = reactor.getFuelTemperature(),
    fuelreact = reactor.getFuelReactivity(),
    wasteamount = reactor.getWasteAmount(),
    rodlevel = reactor.getControlRodLevel(0)
    }
    rednet.broadcast(mytable,dataprotocol)
    sleep(0.1)
    end
    end


    function reacsend()

    local id, mes, pro = rednet.receive(powerprotocol,0.1)

    if mes == "poweron" then

    if reactor.getActive() == true then
    reactor.setActive(false)
    elseif reactor.getActive() == false then
    reactor.setActive(true)
    end

    end

    end

    function reacrod()
    local e = reactor.getControlRodLevel(0)
    local id, mes, pro = rednet.receive(powerprotocol,0.1)

    if mes == "minus" then
    local e = e+1
    reactor.setAllControlRodLevels(e)


    elseif mes == "minusten" then
    local e = e+10
    reactor.setAllControlRodLevels(e)


    elseif mes == "plusten" then
    local e = e-10
    reactor.setAllControlRodLevels(e)


    elseif mes == "plus" then
    local e = e-1
    reactor.setAllControlRodLevels(e)

    elseif mes == "zero" then
    local e = 100
    reactor.setAllControlRodLevels(e)

    elseif mes == "sto" then
    local e = 0
    reactor.setAllControlRodLevels(e)
    end
    end

    while true do
    parallel.waitForAll(reacreceive, reacsend,reacrod)
    end