global fuelTemperature = getFuelTemperature()
global casingTemperature = getCasingTemperature()
global isActive = getActive()
global fuelTemperatureChange = fuelTemperature - getFuelTemperature()
global casingTemperatureChange = casingTemperature - getCasingTemperature()
global 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