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) then end
	local currentRodHeight = 100 - getControlRodLevel(1)
	if ((fuelTemperature < 1000) and (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