fuelTemperature = getFuelTemperature()
casingTemperature = getCasingTemperature()
isActive = getActive()
fuelTemperatureChange = fuelTemperature - getFuelTemperature()
casingTemperatureChange = casingTemperature - getCasingTemperature()
temperaturePowerRatio = 0




function startup()
    setAllControlRodLevels(100)
    local currentRodHeight = 100 - getControlRodLevel(1)
    if ((fuelTemperature < 1000) and (fuelTemperatureChange < 10)) then
        setAllControlRodLevels(getControlRodLevel(1)+1)
    end
end

function operate()
    if (temperaturePowerRatio < 90) do end
    local currentRodHeight = 100 - getControlRodLevel(1)
    if ((fuelTemperature < 1000) && (fuelTemperatureChange < 10)) then
        setAllControlRodLevels(getControlRodLevel(1)+1)
    end
end

function protect()
    --temperaturePowerRatio = temperaturePowerRatio + 1
    local currentRodHeight = 100 - getControlRodLevel(1)
    while (fuelTemperature<1000 and fuelTemperatureChange<200) do end
    if fuelTemperature>1750 or fuelTemperatureChange>500 then
        setAllControlRodLevels(100)
    elseif fuelTemperature>1500 or fuelTemperatureChange>400 then
        setAllControlRodLevels(getControlRodLevel-20)
    elseif fuelTemperature>1200 or fuelTemperatureChange>300 then
        setAllControlRodLevels<getControlRodLevel-1)
    end
end

function Run()
    while true do
        operate()
        protect()
    end
end