View difference between Paste ID: UqVHTht5 and wk87XK3B

 --peripheral config
-local sideGateOut = "right"
+local sideGateOut = "top"
-local sideReactor = "back"
+
 --output multiplier: set by modpack (default = 1.0), change this to the value of draconic evolution config (!!!not tested yet!!!)
 local outputMultiplier = 1.0
 
 local reactornumber = "1"
 
 local tempPinpoint = 0
 
 --Do not change anything below
-local version = "1.0.2" --by electronx3
+
 --originally made by electronx3
 --modified by jona23 to work in 1.16+
 
 --constants
 local val_1div3 = 1.0/3.0
 
 --config
 
-local maxOvershoot = 200.0		--reactor will shutdown when temperature gets hotter than defaultTemp+maxOvershoot
+
 local maxOvershoot = 200.0      --reactor will shutdown when temperature gets hotter than defaultTemp+maxOvershoot
 local minFuel = 0.05
 
 --default parameters
-local defaultField = 0.01
+
 local defaultField = 0.09
-local maxTempInc = 400.0		--max. temperature increase per computer tick
+local restartFix = 100
-local maxOutflow = 16000000.0
+
 
 local maxTempInc = 400.0        --max. temperature increase per computer tick
-local shutDownField = 0.1		--field strength while shutdown
+local maxOutflow = 30000000.0
 
-local safeMode = true			--when set to false, the automatic emergency shutdown function is disabled
+
 local shutDownField = 0.1       --field strength while shutdown
 
 local safeMode = true           --when set to false, the automatic emergency shutdown function is disabled
 
 
 --peripherals
 local reactor
 local gateIn
 local gateOut
 local mon
 
 --info
 local info
 
 local currentEmergency = false
 local currentField
 local currentFuel
 
 local stableTicks = 0
 local screenPage = 0
 local openConfirmDialog = false
 
 local manualStart = false
 local manualCharge = false
 local manualStop = false
 
 
-	info = reactor.getReactorInfo()
+
-
+
-	if info == nil or info == null then
+    info = reactor.getReactorInfo()
-      error("Reactor has an invalid setup!")
+
     if info == nil or info == null then
-
+        gClear()
-	currentField = info.fieldStrength / info.maxFieldStrength
+        gWrite("System Crash!", 1, 1, colors.white, colors.blue)
-	currentFuel = 1.0 - (info.fuelConversion / info.maxFuelConversion)
+        gWrite("CODE: invalid_core_setup", 1, 2, colors.white, colors.blue)
       error("Reactor has an invalid setup")
     end
 
-	currentEmergency = safeMode and not (info.temperature < 2000.0) and (info.status == "running" or info.status == "online" or info.status == "stopping") and (info.temperature > defaultTemp + maxOvershoot or currentField < 0.004 or currentFuel < minFuel)
+    currentField = info.fieldStrength / info.maxFieldStrength
-	return currentEmergency
+    currentFuel = 1.0 - (info.fuelConversion / info.maxFuelConversion)
 end
 
 function isEmergency()
-	return fieldDrainRate / (1.0 - targetStrength)
+    currentEmergency = safeMode and not (info.temperature < 2000.0) and (info.status == "running" or info.status == "online" or info.status == "stopping") and (info.temperature > defaultTemp + maxOvershoot or currentField < 0.004 or currentFuel < minFuel)
     return currentEmergency
 end
 
 function calcInflow(targetStrength, fieldDrainRate)
-	print("Setup peripherals...")
+    return fieldDrainRate / (1.0 - targetStrength)
-	reactor = peripheral.wrap(sideReactor)
+
-	gateIn = periphSearch("flux_gate")
+
-	gateOut = peripheral.wrap(sideGateOut)
+
-
+
-	if reactor == null then
+    local tmpMon = periphSearch("monitor")
-		error("No valid reactor was found!")
+    if tmpMon == null then
-	end
+        mon = null
-	if gateIn == null then
+        print("WARN: No valid monitor was found!")
-		error("No valid input fluxgate was found!")
+
-	end
+    else
-	if gateOut == null then
+        monX, monY = tmpMon.getSize()
-		error("No valid output fluxgate was found!")
+        mon = {}
-	end
+        mon.monitor, mon.x, mon.y = tmpMon, monX, monY
-
+
-	gateIn.setOverrideEnabled(true)
+
-	gateIn.setFlowOverride(0)
+    print("Setup peripherals...")
-	gateOut.setOverrideEnabled(true)
+    reactor = periphSearch("draconic_reactor")
-	gateOut.setFlowOverride(0)
+    gateIn = periphSearch("flow_gate")
-
+    gateOut = peripheral.wrap(sideGateOut)
-	local tmpMon = periphSearch("monitor")
+
-	if tmpMon == null then
+    if reactor == null then
-		mon = null
+        gClear()
-		print("WARN: No valid monitor was found!")
+        gWrite("System Crash!", 1, 1, colors.white, colors.blue)
         gWrite("CODE: no_valid_core_found", 1, 2, colors.white, colors.blue)
-	else
+        error("No valid reactor was found!")
-		monX, monY = tmpMon.getSize()
+
-		mon = {}
+    if gateIn == null then
-		mon.monitor, mon.x, mon.y = tmpMon, monX, monY
+        gClear()
-	end
+        gWrite("System Crash!", 1, 1, colors.white, colors.blue)
-
+        gWrite("CODE: no_valid_input_gate", 1, 2, colors.white, colors.blue)
-	print("Done!")
+        error("No valid input fluxgate was found!")
     end
     if gateOut == null then
         gClear()
-	local names = peripheral.getNames()
+        gWrite("System Crash!", 1, 1, colors.white, colors.blue)
-	local i, name
+        gWrite("CODE: no_valid_output_gate", 1, 2, colors.white, colors.blue)
-	for i, name in pairs(names) do
+        error("No valid output fluxgate was found!")
-		if peripheral.getType(name) == type then
+
-			return peripheral.wrap(name)
+
-		end
+    gateIn.setOverrideEnabled(true)
-	end
+    gateIn.setFlowOverride(0)
-	return null
+    gateOut.setOverrideEnabled(true)
     gateOut.setFlowOverride(0)
 
     print("Done!")
-	if mon == null then
+
-		return
+
-	end
+
-
+    local names = peripheral.getNames()
-	while true do
+    local i, name
-		event, side, xPos, yPos = os.pullEvent("monitor_touch")
+    for i, name in pairs(names) do
-
+        if peripheral.getType(name) == type then
-		local cFlow = 0 --remove local later
+            return peripheral.wrap(name)
-
+        end
-		if yPos == mon.y and xPos >= 1 and xPos <= 4 then
+
-			openConfirmDialog = false
+    return null
-			screenPage = (screenPage + 1) % 2
+
-		elseif screenPage == 1 then
+
-			if yPos == 8 then
+
-				local tmpTemp = defaultTemp
+    if mon == null then
-
+        return
-				if xPos >= 2 and xPos <= 3 then
+
-					tmpTemp = tmpTemp - 1.0
+
-				elseif xPos >= 5 and xPos <= 6 then
+    while true do
-					tmpTemp = tmpTemp - 10.0
+        event, side, xPos, yPos = os.pullEvent("monitor_touch")
-				elseif xPos >= 9 and xPos <= 11 then
+
-					tmpTemp = tmpTemp - 100.0
+        local cFlow = 0 --remove local later
-				elseif xPos >= 14 and xPos <= 16 then
+
-					tmpTemp = 8000.0
+        if yPos == mon.y and xPos >= 1 and xPos <= 4 then
-				elseif xPos >= 19 and xPos <= 21 then
+            openConfirmDialog = false
-					tmpTemp = tmpTemp + 100.0
+            screenPage = (screenPage + 1) % 2
-				elseif xPos >= 24 and xPos <= 25 then
+        elseif screenPage == 1 then
-					tmpTemp = tmpTemp + 10.0
+            if yPos == 8 then
-				elseif xPos >= 27 and xPos <= 28 then
+                local tmpTemp = defaultTemp
-					tmpTemp = tmpTemp + 1.0
+
-				end
+                if xPos >= 2 and xPos <= 3 then
-
+                    tmpTemp = tmpTemp - 1.0
-				if tmpTemp < 20.0 then
+                elseif xPos >= 5 and xPos <= 6 then
-					tmpTemp = 20.0
+                    tmpTemp = tmpTemp - 10.0
-				elseif tmpTemp > 20000.0 then
+                elseif xPos >= 9 and xPos <= 11 then
-					tmpTemp = 20000.0
+                    tmpTemp = tmpTemp - 100.0
-				end
+                elseif xPos >= 14 and xPos <= 16 then
-
+                    tmpTemp = 8000.0
-				defaultTemp = tmpTemp
+                elseif xPos >= 19 and xPos <= 21 then
-				--print("new default temperature: " .. math.floor(defaultTemp) .. "°C")
+                    tmpTemp = tmpTemp + 100.0
-			elseif yPos == 12 then
+                elseif xPos >= 24 and xPos <= 25 then
-				local tmpField = defaultField
+                    tmpTemp = tmpTemp + 10.0
-
+                elseif xPos >= 27 and xPos <= 28 then
-				if xPos >= 2 and xPos <= 3 then
+                    tmpTemp = tmpTemp + 1.0
-					tmpField = tmpField - 0.001
+                end
-				elseif xPos >= 5 and xPos <= 6 then
+
-					tmpField = tmpField - 0.01
+                if tmpTemp < 20.0 then
-				elseif xPos >= 9 and xPos <= 11 then
+                    tmpTemp = 20.0
-					tmpField = tmpField - 0.1
+                elseif tmpTemp > 20000.0 then
-				elseif xPos >= 14 and xPos <= 16 then
+                    tmpTemp = 20000.0
-					tmpField = 0.01
+                end
-				elseif xPos >= 19 and xPos <= 21 then
+
-					tmpField = tmpField + 0.1
+                defaultTemp = tmpTemp
-				elseif xPos >= 24 and xPos <= 25 then
+                --print("new default temperature: " .. math.floor(defaultTemp) .. "°C")
-					tmpField = tmpField + 0.01
+            elseif yPos == 12 then
-				elseif xPos >= 27 and xPos <= 28 then
+                local tmpField = defaultField
-					tmpField = tmpField + 0.001
+
-				end
+                if xPos >= 2 and xPos <= 3 then
-
+                    tmpField = tmpField - 0.001
-				if tmpField < 0.005 then
+                elseif xPos >= 5 and xPos <= 6 then
-					tmpField = 0.005
+                    tmpField = tmpField - 0.01
-				elseif tmpField > 0.6 then
+                elseif xPos >= 9 and xPos <= 11 then
-					tmpField = 0.6
+                    tmpField = tmpField - 0.1
-				end
+                elseif xPos >= 14 and xPos <= 16 then
-
+                    tmpField = 0.01
-				defaultField = tmpField
+                elseif xPos >= 19 and xPos <= 21 then
-				--print("new default field strength: " .. math.floor(defaultField*1000.0)/10.0 .. "%")
+                    tmpField = tmpField + 0.1
-			elseif yPos == 15 then
+                elseif xPos >= 24 and xPos <= 25 then
-				if openConfirmDialog then
+                    tmpField = tmpField + 0.01
-					if xPos >= 25 and xPos <= 28 then
+                elseif xPos >= 27 and xPos <= 28 then
-						openConfirmDialog = false
+                    tmpField = tmpField + 0.001
-					elseif xPos >= 16 and xPos <= 22 then
+                end
-						openConfirmDialog = false
+
-						safeMode = false
+
-						--print("WARN: Safe mode deactivated!")
+                if safeMode then
-					end
+                if tmpField < 0.005 then
-				elseif xPos >= 26 and xPos <= 28 then
+                    tmpField = 0.005
-					if safeMode then
+                elseif tmpField > 0.6 then
-						openConfirmDialog = true
+                    tmpField = 0.6
-					else
+                end
-						safeMode = true
+                else
-						--print("Safe mode activated!")
+                if tmpField < 0.0001 then
-					end
+                    tmpField = 0.0001
-				end
+                elseif tmpField > 0.6 then
-			elseif yPos == 17 and info ~= null then
+                    tmpField = 0.6
-				if not currentEmergency then
+                end
-					if (info.status == "running" or info.status == "online") and xPos >= 2 and xPos <= 5 then
+                end
-						manualStop = true
+
-					elseif (info.status == "cold" or info.status == "offline" or info.status == "cooling") and xPos >= 2 and xPos <= 7 then
+                defaultField = tmpField
-						manualCharge = true
+                --print("new default field strength: " .. math.floor(defaultField*1000.0)/10.0 .. "%")
-					elseif (info.status == "stopping" or info.status == "warming_up" or info.status == "charged") and xPos >= 2 and xPos <= 6 then
+            elseif yPos == 15 then
-						manualStart = true
+                if openConfirmDialog then
-					elseif info.status == "warming_up" and xPos >= 9 and xPos <= 12 then
+                    if xPos >= 25 and xPos <= 28 then
-						manualStop = true
+                        openConfirmDialog = false
-					end
+                    elseif xPos >= 16 and xPos <= 22 then
-				end
+                        openConfirmDialog = false
-				if info.temperature < 2000.0 and xPos >= 26 and xPos <= 28 then
+                        safeMode = false
-					print("Program stopped!")
+                        --print("WARN: Safe mode deactivated!")
-					return
+                    end
-				end
+                elseif xPos >= 26 and xPos <= 28 then
-			end
+                    if safeMode then
-		end
+                        openConfirmDialog = true
-		saveConfig()
+                    else
-	end
+                        safeMode = true
                         --print("Safe mode activated!")
                     end
                 end
             elseif yPos == 17 and info ~= null then
                 if not currentEmergency then
                     if (info.status == "running" or info.status == "online") and xPos >= 2 and xPos <= 5 then
                         manualStop = true
                     elseif (info.status == "cold" or info.status == "offline" or info.status == "cooling") and xPos >= 2 and xPos <= 7 then
                         manualCharge = true
-	mon.monitor.setCursorPos(x, y)
+                    elseif (info.status == "stopping" or info.status == "warming_up" or info.status == "charged") and xPos >= 2 and xPos <= 6 then
-	mon.monitor.setTextColor(cl)
+                        manualStart = true
-	mon.monitor.setBackgroundColor(clBg)
+                    elseif info.status == "warming_up" and xPos >= 9 and xPos <= 12 then
-	mon.monitor.write(text)
+                        manualStop = true
                     end
                 end
-	gWrite(text, mon.x - string.len(tostring(text)) - x, y, cl, clBg)
+                if info.temperature < 2000.0 and xPos >= 26 and xPos <= 28 then
                     print("Program stopped!")
                     return
-	gWrite(textL, xL, y, clL, clBg)
+                end
-	gWriteR(textR, xR, y, clR, clBg)
+            end
         end
         saveConfig()
-	if length < 0 then
+
-		return
+
-	end
+
-	mon.monitor.setCursorPos(x, y)
+
 function gClear()
   mon.monitor.setBackgroundColor(colors.black)
   mon.monitor.clear()
   mon.monitor.setCursorPos(1,1)
-	if proportion < 0.0 or proportion > 1.0 then
+
-		gDrawLine(x, y, length, cl)
+
-	else
+    mon.monitor.setCursorPos(x, y)
-		gDrawLine(x, y, length, clBg)
+    mon.monitor.setTextColor(cl)
-		gDrawLine(x, y, math.floor(proportion*length), cl)
+    mon.monitor.setBackgroundColor(clBg)
-	end
+    mon.monitor.write(text)
 end
 function gWriteR(text, x, y, cl, clBg)
-	gDrawProgressBar(2, y, mon.x-2, proportion, cl, colors.gray)
+    gWrite(text, mon.x - string.len(tostring(text)) - x, y, cl, clBg)
 end
 function gWriteLR(textL, textR, xL, xR, y, clL, clR, clBg)
     gWrite(textL, xL, y, clL, clBg)
     gWriteR(textR, xR, y, clR, clBg)
-	local newInflow = 0.0
+
-	local newOutflow = 0.0
+
-
+    if length < 0 then
-	while true do
+        return
-		updateInfo()
+
-		local isStable = false
+    mon.monitor.setCursorPos(x, y)
-		local tmpShutDownField = math.max(shutDownField, defaultField)
+
-
+
-		if peripheral.wrap(sideGateOut) == null then
+
-			reactor.stopReactor()
+
-			newInflow = calcInflow(tmpShutDownField, info.fieldDrainRate)
+    if proportion < 0.0 or proportion > 1.0 then
-			error("Output gate missing!")
+        gDrawLine(x, y, length, cl)
-		end
+    else
-
+        gDrawLine(x, y, length, clBg)
-		if manualStop then
+        gDrawLine(x, y, math.floor(proportion*length), cl)
-			manualStart = false
+
-			manualStop = false
+
-			manualCharge = false
+
-			reactor.stopReactor()
+    gDrawProgressBar(2, y, mon.x-2, proportion, cl, colors.gray)
-		end
+
-
+
-		if isEmergency() == true then
+
-			reactor.stopReactor()
+
-			newInflow = calcInflow(0.8, info.fieldDrainRate)
+    local newInflow = 0.0
-			newOutflow = 0.0
+    local newOutflow = 0.0
-			manualStart = false
+
-			manualCharge = false
+    while true do
-		elseif info.status == "cold" or info.status == "offline" or info.status == "cooling" then
+        updateInfo()
-			newInflow = 0.0
+        local isStable = true
-			newOutflow = 0.0
+        local tmpShutDownField = math.max(shutDownField, defaultField)
-			if manualCharge then
+
-				manualStart = false
+        if peripheral.wrap(sideGateOut) == null then
-				manualCharge = false
+            reactor.stopReactor()
-				reactor.chargeReactor()
+            newInflow = calcInflow(tmpShutDownField, info.fieldDrainRate)
-			end
+            gClear()
-		elseif info.status == "charging" then
+            gWrite("System Crash!", 1, 1, colors.white, colors.blue)
-			newInflow = chargeInflow
+            gWrite("CODE: output_gate_missing", 1, 2, colors.white, colors.blue)
-			newOutflow = 0.0
+            error("Output gate missing!")
-			manualStart = false
+        end
-			manualCharge = false
+
-		elseif info.status == "warming_up" or info.status == "charged" then
+        if manualStop then
-			newInflow = chargeInflow
+            manualStart = false
-			newOutflow = 0.0
+            manualStop = false
-			if manualStart then
+            manualCharge = false
-				manualStart = false
+            reactor.stopReactor()
-				manualCharge = false
+        end
-				reactor.activateReactor()
+
-			end
+        if isEmergency() == true then
-		elseif info.status == "running" or info.status == "online" then
+            reactor.stopReactor()
-			manualStart = false
+            newInflow = calcInflow(0.8, info.fieldDrainRate)
-			manualCharge = false
+            newOutflow = 0.0
-			local temp = info.temperature
+            manualStart = false
-
+            manualCharge = false
-			if temp > defaultTemp - 6.0 and temp < defaultTemp + 5.0 then
+        elseif info.status == "cold" or info.status == "offline" or info.status == "cooling" then
-				stableTicks = stableTicks + 1
+            newInflow = 0.0
-				if stableTicks > 100 then
+            newOutflow = 0.0
-					isStable = true
+            if manualCharge then
-				end
+                manualStart = false
-			else
+                manualCharge = false
-				stableTicks = 0
+                reactor.chargeReactor()
-			end
+            end
-
+        elseif info.status == "charging" then
-			if temp < defaultTemp then
+            newInflow = chargeInflow
-				local tempInc
+            newOutflow = 0.0
-				if temp < defaultTemp - 50.0 then
+            manualStart = false
-					tempInc = math.sqrt(defaultTemp - temp)
+            manualCharge = false
-				elseif temp < defaultTemp - 0.5 then
+        elseif info.status == "warming_up" or info.status == "charged" then
-					tempInc = math.sqrt(defaultTemp - temp)/2.0
+            newInflow = chargeInflow
-				end
+            newOutflow = 0.0
-
+            if manualStart then
-				if tempInc == nil or tempInc < 0.0 then
+                manualStart = false
-					tempInc = 0
+                manualCharge = false
-				elseif tempInc > maxTempInc then
+                reactor.activateReactor()
-					tempInc = maxTempInc
+            end
-				end
+        elseif info.status == "running" or info.status == "online" then
-
+            manualStart = false
-
+            manualCharge = false
-				local t50 = temp/200.0
+            local temp = info.temperature
-				local convLvl = (info.fuelConversion / info.maxFuelConversion)*1.3 - 0.3
+
-
+            if defaultTemp < info.temperature then
-				local y = (t50^4)/(100.0-t50)*(1-convLvl) + 1000.0*(tempInc-convLvl) - 444.7
+            if tempPinpoint < 10 then
-				local dSqrt = math.sqrt((50.0*y)^2 + (y/3.0)^3)
+            tempPinpoint = tempPinpoint - 0.01
-
+            end
-				local x
+            end
-				local tmpValRoot = dSqrt - 50.0*y
+
-				if tmpValRoot > 0.0 then
+            if defaultTemp > info.temperature then
-					x = math.pow(dSqrt + 50.0*y, val_1div3) - math.pow(tmpValRoot, val_1div3)
+            if tempPinpoint > -10 then
-				else
+            tempPinpoint = tempPinpoint + 0.01
-					x = math.pow(dSqrt + 50.0*y, val_1div3) + math.pow(0.0-tmpValRoot, val_1div3)
+            end
-				end
+            end
-
+
-				newOutflow = info.maxEnergySaturation*x/99.0 + info.energySaturation - info.maxEnergySaturation
+            defaultTemp = defaultTemp + tempPinpoint
-				if newOutflow > maxOutflow then
+
-					newOutflow = maxOutflow
+            if temp > defaultTemp - 6.0 and temp < defaultTemp + 5.0 then
-				end
+                stableTicks = stableTicks + 1
-			else
+                if stableTicks > 100 then
-				newOutflow = 0.0
+                    isStable = true
-			end
+                end
-
+            else
-			if isStable == true then
+                stableTicks = 0
-				if currentField > defaultField + 0.05 then
+            end
-					newInflow = 0.0
+
-				elseif currentField > defaultField*1.2 then
+            if temp < defaultTemp then
-					newInflow = calcInflow(defaultField*0.98, info.fieldDrainRate)
+                local tempInc
-				elseif currentField > defaultField*0.97 then
+                if temp < defaultTemp - 50.0 then
-					newInflow = calcInflow(defaultField, info.fieldDrainRate)
+                    tempInc = math.sqrt(defaultTemp - temp)
-				else
+                elseif temp < defaultTemp - 0.5 then
-					newInflow = calcInflow(defaultField*1.5, info.fieldDrainRate)
+                    tempInc = math.sqrt(defaultTemp - temp)/2.0
-				end
+                end
-			else
+
-				if currentField > tmpShutDownField then
+                if tempInc == nil or tempInc < 0.0 then
-					newInflow = calcInflow(tmpShutDownField, info.fieldDrainRate)
+                    tempInc = 0
-				else
+                elseif tempInc > maxTempInc then
-					newInflow = calcInflow(tmpShutDownField*1.2, info.fieldDrainRate)
+                    tempInc = maxTempInc
-				end
+                end
-			end
+
-		elseif info.status == "stopping" then
+
-			if currentField > tmpShutDownField then
+                local t50 = temp/200.0
-				newInflow = calcInflow(tmpShutDownField, info.fieldDrainRate)
+                local convLvl = (info.fuelConversion / info.maxFuelConversion)*1.3 - 0.3
-			else
+
-				newInflow = calcInflow(tmpShutDownField*1.2, info.fieldDrainRate)
+                local y = (t50^4)/(100.0-t50)*(1-convLvl) + 1000.0*(tempInc-convLvl) - 444.7
-			end
+                local dSqrt = math.sqrt((50.0*y)^2 + (y/3.0)^3)
-			newOutflow = 0.0
+
-
+                local x
-			if manualStart then
+                local tmpValRoot = dSqrt - 50.0*y
-				manualStart = false
+                if tmpValRoot > 0.0 then
-				manualCharge = false
+                    x = math.pow(dSqrt + 50.0*y, val_1div3) - math.pow(tmpValRoot, val_1div3)
-				reactor.activateReactor()
+                else
-			end
+                    x = math.pow(dSqrt + 50.0*y, val_1div3) + math.pow(0.0-tmpValRoot, val_1div3)
-		end
+                end
-
+
-		if newInflow < 0.0 then
+                newOutflow = info.maxEnergySaturation*x/99.0 + info.energySaturation - info.maxEnergySaturation
-			newInflow = 0.0
+                if newOutflow > maxOutflow then
-		end
+                    newOutflow = maxOutflow
-		if newOutflow < 0.0 then
+                end
-			newOutflow = 0.0
+            else
-		end
+                newOutflow = 0.0
-
+            end
-		if newInflow > 0.0 then
+
-			newInflow = math.floor(newInflow)
+            if isStable == true then
-		else
+                if currentField > defaultField + 0.05 then
-			newInflow = 0
+                    newInflow = 0.0
-		end
+                elseif currentField > defaultField*1.2 then
-		local outflowMultiplied = 0
+                    newInflow = calcInflow(defaultField*0.98, info.fieldDrainRate)
-		if newOutflow > 0.0 then
+                elseif currentField > defaultField*0.97 then
-			outflowMultiplied = math.floor(newOutflow*outputMultiplier)
+                    newInflow = calcInflow(defaultField, info.fieldDrainRate)
-		else
+                else
-			newOutflow = 0.0
+                    newInflow = calcInflow(defaultField*1.5, info.fieldDrainRate)
-		end
+                end
-		gateIn.setFlowOverride(newInflow)
+            else
-		gateOut.setFlowOverride(outflowMultiplied)
+                if currentField > tmpShutDownField then
-
+                    newInflow = calcInflow(tmpShutDownField, info.fieldDrainRate)
-
+                else
-		if mon ~= null then
+                    newInflow = calcInflow(tmpShutDownField*1.2, info.fieldDrainRate)
-			gClear()
+                end
-
+            end
-			if screenPage == 0 then
+            defaultTemp = defaultTemp - tempPinpoint
-				local clTemp
+
-				if info.temperature < defaultTemp*0.95 then
+        elseif info.status == "stopping" then
-					clTemp = colors.green
+            if currentField > tmpShutDownField then
-				elseif info.temperature < defaultTemp + 1.0 then
+                newInflow = calcInflow(tmpShutDownField, info.fieldDrainRate)
-					clTemp = colors.yellow
+            else
-				elseif info.temperature < defaultTemp + maxOvershoot then
+                newInflow = calcInflow(tmpShutDownField*1.2, info.fieldDrainRate)
-					clTemp = colors.orange
+            end
-				else
+            newOutflow = 0.0
-					clTemp = colors.red
+
-				end
+            if manualStart then
-
+                manualStart = false
-				gWriteLR("temperature:", math.floor(info.temperature*10.0)/10.0 .. "°C", 2, 0, 7, colors.white, clTemp, colors.black)
+                manualCharge = false
-				gWriteLR("set: " .. math.floor(defaultTemp) .. "°C", "max: " .. math.floor(defaultTemp + maxOvershoot) .. "°C", 2, 0, 8, colors.white, colors.white, colors.black)
+                reactor.activateReactor()
-				gDrawStandardProgressBar(9, info.temperature/16000.0, clTemp)
+            end
-
+        end
-				local clField
+
-				if currentField > defaultField*1.05 then
+        if newInflow < 0.0 then
-					clField = colors.green
+            newInflow = 0.0
-				elseif currentField > defaultField*0.95 then
+        end
-					clField = colors.yellow
+        if newOutflow < 0.0 then
-				else
+            newOutflow = 0.0
-					clField = colors.red
+        end
-				end
+
-
+        if newInflow > 0.0 then
-				gWriteLR("field strength:", math.floor(currentField*10000.0)/100.0 .. "%", 2, 0, 11, colors.white, clField, colors.black)
+            newInflow = math.floor(newInflow)
-				gWriteLR("set: " .. math.floor(defaultField*1000)/10.0 .. "%", "min: 0.4%", 2, 0, 12, colors.white, colors.white, colors.black)
+        else
-				gDrawStandardProgressBar(13, currentField, clField)
+            newInflow = 0
-
+        end
-				gWriteLR("status", info.status:upper(), 2, 0, 15, colors.white, colors.white, colors.black)
+        local outflowMultiplied = 0
-
+        if newOutflow > 0.0 then
-				local clFuel
+            outflowMultiplied = math.floor(newOutflow*outputMultiplier)
-				if currentFuel > 0.15 then
+        else
-					clFuel = colors.green
+            newOutflow = 0.0
-				elseif currentFuel > 0.05 then
+        end
-					clFuel = colors.yellow
+        if restartFix > 0 then
-				elseif currentFuel > 0.01 then
+            outflowMultiplied = 0.0
-					clFuel = colors.orange
+            newInflow = 10000000.0
-				else
+            restartFix = restartFix - 1.0
-					clFuel = colors.red
+        end
-				end
+        gateIn.setFlowOverride(newInflow)
-				gWriteLR("fuel:", math.floor(currentFuel*10000.0)/100.0 .. "%", 2, 0, 16, colors.white, clFuel, colors.black)
+        gateOut.setFlowOverride(outflowMultiplied)
-			elseif screenPage == 1 then
+
-				local clTemp
+
-				if info.temperature < defaultTemp*0.95 then
+        if mon ~= null then
-					clTemp = colors.green
+            gClear()
-				elseif info.temperature < defaultTemp + 1.0 then
+
-					clTemp = colors.yellow
+            if screenPage == 0 then
-				elseif info.temperature < defaultTemp + maxOvershoot then
+                local clTemp
-					clTemp = colors.orange
+                if info.temperature < defaultTemp*0.95 then
-				else
+                    clTemp = colors.green
-					clTemp = colors.red
+                elseif info.temperature < defaultTemp + 1.0 then
-				end
+                    clTemp = colors.yellow
-
+                elseif info.temperature < defaultTemp + maxOvershoot then
-				gWriteLR("temp: " .. math.floor(defaultTemp) .. " (" .. math.floor(defaultTemp + maxOvershoot) .. ")", math.floor(info.temperature*10.0)/10.0 .. "°C", 2, 0, 7, colors.white, clTemp, colors.black)
+                    clTemp = colors.orange
-				gDrawStandardProgressBar(9, info.temperature/16000.0, clTemp)
+                else
-
+                    clTemp = colors.red
-				gWrite("<", 2, 8, colors.white, colors.blue)
+                end
-				gWrite("<<", 5, 8, colors.white, colors.blue)
+
-				gWrite("<<<", 9, 8, colors.white, colors.blue)
+                gWriteLR("temperature:", math.floor(info.temperature*10.0)/10.0 .. "°C", 2, 0, 7, colors.white, clTemp, colors.black)
-				gWrite("res", 14, 8, colors.white, colors.blue)
+                gWriteLR("set: " .. math.floor(defaultTemp) .. "°C", "max: " .. math.floor(defaultTemp + maxOvershoot) .. "°C", 2, 0, 8, colors.white, colors.white, colors.black)
-				gWrite(">>>", 19, 8, colors.white, colors.blue)
+                gDrawStandardProgressBar(9, info.temperature/16000.0, clTemp)
-				gWrite(">>", 24, 8, colors.white, colors.blue)
+
-				gWrite(">", 28, 8, colors.white, colors.blue)
+                local clField
-
+                if currentField > defaultField*1.05 then
-				local clField
+                    clField = colors.green
-				if currentField > defaultField*1.05 then
+                elseif currentField > defaultField*0.95 then
-					clField = colors.green
+                    clField = colors.yellow
-				elseif currentField > defaultField*0.95 then
+                else
-					clField = colors.yellow
+                    clField = colors.red
-				else
+                end
-					clField = colors.red
+
-				end
+                gWriteLR("field strength:", math.floor(currentField*10000.0)/100.0 .. "%", 2, 0, 11, colors.white, clField, colors.black)
-
+                gWriteLR("set: " .. math.floor(defaultField*1000)/10.0 .. "%", "min: 0.4%", 2, 0, 12, colors.white, colors.white, colors.black)
-				gWriteLR("field: " .. math.floor(defaultField*1000)/10.0 .. "% (0.4%)", math.floor(currentField*10000.0)/100.0 .. "%", 2, 0, 11, colors.white, clField, colors.black)
+                gDrawStandardProgressBar(13, currentField, clField)
-				gDrawStandardProgressBar(13, currentField, clField)
+
-
+                gWriteLR("status", info.status:upper(), 2, 0, 15, colors.white, colors.white, colors.black)
-				gWrite("<", 2, 12, colors.white, colors.blue)
+
-				gWrite("<<", 5, 12, colors.white, colors.blue)
+                local clFuel
-				gWrite("<<<", 9, 12, colors.white, colors.blue)
+                if currentFuel > 0.15 then
-				gWrite("res", 14, 12, colors.white, colors.blue)
+                    clFuel = colors.green
-				gWrite(">>>", 19, 12, colors.white, colors.blue)
+                elseif currentFuel > 0.05 then
-				gWrite(">>", 24, 12, colors.white, colors.blue)
+                    clFuel = colors.yellow
-				gWrite(">", 28, 12, colors.white, colors.blue)
+                elseif currentFuel > 0.01 then
-
+                    clFuel = colors.orange
-				if safeMode then
+                else
-					if openConfirmDialog then
+                    clFuel = colors.red
-						gWrite("DISABLE?", 2, 15, colors.white, colors.black)
+                end
-						gWrite("CONFIRM", 16, 15, colors.white, colors.green)
+                gWriteLR("fuel:", math.floor(currentFuel*10000.0)/100.0 .. "%", 2, 0, 16, colors.white, clFuel, colors.black)
-						gWrite("EXIT", 25, 15, colors.white, colors.red)
+            elseif screenPage == 1 then
-					else
+                local clTemp
-						gWrite("safe mode:", 2, 15, colors.white, colors.black)
+                if info.temperature < defaultTemp*0.95 then
-						gWrite("ON", 27, 15, colors.green, colors.black)
+                    clTemp = colors.green
-					end
+                elseif info.temperature < defaultTemp + 1.0 then
-				else
+                    clTemp = colors.yellow
-					gWrite("safe mode:", 2, 15, colors.white, colors.black)
+                elseif info.temperature < defaultTemp + maxOvershoot then
-					gWrite("OFF", 26, 15, colors.red, colors.black)
+                    clTemp = colors.orange
-				end
+                else
-
+                    clTemp = colors.red
-				if not currentEmergency then
+                end
-					if info.status == "running" or info.status == "online" then
+
-						gWrite("STOP", 2, 17, colors.white, colors.red)
+                gWriteLR("temp: " .. math.floor(defaultTemp) .. " (" .. math.floor(defaultTemp + maxOvershoot) .. ")", math.floor(info.temperature*10.0)/10.0 .. "°C", 2, 0, 7, colors.white, clTemp, colors.black)
-					elseif info.status == "cold" or info.status == "offline" or info.status == "cooling" then
+                gDrawStandardProgressBar(9, info.temperature/16000.0, clTemp)
-						gWrite("CHARGE", 2, 17, colors.white, colors.blue)
+
-					elseif info.status == "stopping" or info.status == "charged" then
+                gWrite("<", 2, 8, colors.white, colors.blue)
-						gWrite("START", 2, 17, colors.white, colors.green)
+                gWrite("<<", 5, 8, colors.white, colors.blue)
-					elseif info.status == "warming_up" then
+                gWrite("<<<", 9, 8, colors.white, colors.blue)
-						gWrite("START", 2, 17, colors.white, colors.green)
+                gWrite("res", 14, 8, colors.white, colors.blue)
-						gWrite("STOP", 9, 17, colors.white, colors.red)
+                gWrite(">>>", 19, 8, colors.white, colors.blue)
-					end
+                gWrite(">>", 24, 8, colors.white, colors.blue)
-				end
+                gWrite(">", 28, 8, colors.white, colors.blue)
-
+
-				if info.temperature < 2000.0 then
+                local clField
-					gWrite("END", 26, 17, colors.white, colors.red)
+                if currentField > defaultField*1.05 then
-				end
+                    clField = colors.green
-			end
+                elseif currentField > defaultField*0.95 then
-
+                    clField = colors.yellow
-			gWriteLR("Draconic Control", "v" .. version, 2, 0, 1, colors.white, colors.white, colors.black)
+                else
-
+                    clField = colors.red
-			gWriteLR("inflow:", newInflow .. " RF/t", 2, 0, 3, colors.white, colors.white, colors.black)
+                end
-			gWriteLR("outflow:", outflowMultiplied .. " RF/t", 2, 0, 4, colors.white, colors.white, colors.black)
+
-			local gain = outflowMultiplied - newInflow
+                gWriteLR("field: " .. math.floor(defaultField*1000)/10.0 .. "% (0.4%)", math.floor(currentField*10000.0)/100.0 .. "%", 2, 0, 11, colors.white, clField, colors.black)
-			if gain > 0.0 then
+                gDrawStandardProgressBar(13, currentField, clField)
-				gWriteLR("-> gain:", gain .. " RF/t", 2, 0, 5, colors.white, colors.green, colors.black)
+
-			elseif gain < 0.0 then
+                gWrite("<", 2, 12, colors.white, colors.blue)
-				gWriteLR("-> gain:", gain .. " RF/t", 2, 0, 5, colors.white, colors.red, colors.black)
+                gWrite("<<", 5, 12, colors.white, colors.blue)
-			elseif gain == 0.0 then
+                gWrite("<<<", 9, 12, colors.white, colors.blue)
-				gWriteLR("-> gain:", "0 RF/t", 2, 0, 5, colors.white, colors.white, colors.black)
+                gWrite("res", 14, 12, colors.white, colors.blue)
-			end
+                gWrite(">>>", 19, 12, colors.white, colors.blue)
-
+                gWrite(">>", 24, 12, colors.white, colors.blue)
-			gDrawLine(1, mon.y, 4, colors.gray)
+                gWrite(">", 28, 12, colors.white, colors.blue)
-		end
+
-
+                if safeMode then
-		sleep(0.02)
+                    if openConfirmDialog then
-	end
+                        gWrite("DISABLE?", 2, 15, colors.white, colors.black)
                         gWrite("CONFIRM", 16, 15, colors.white, colors.green)
                         gWrite("EXIT", 25, 15, colors.white, colors.red)
                     else
-	term.clear()
+                        gWrite("safe mode:", 2, 15, colors.white, colors.black)
-	print("Starting program...")
+                        gWrite("ON", 27, 15, colors.green, colors.black)
-
+                    end
-	if fs.exists("config.txt") then
+                else
-		print("Loading config...")
+                    gWrite("safe mode:", 2, 15, colors.white, colors.black)
-		loadConfig()
+                    gWrite("OFF", 26, 15, colors.red, colors.black)
-		print("Done!")
+                end
-	else
+
-		print("Creating config...")
+                if not currentEmergency then
-		saveConfig()
+                    if info.status == "running" or info.status == "online" then
-		print("Done!")
+                        gWrite("STOP", 2, 17, colors.white, colors.red)
-	end
+                    elseif info.status == "cold" or info.status == "offline" or info.status == "cooling" then
                         gWrite("CHARGE", 2, 17, colors.white, colors.blue)
-	if chargeInflow < 0 then
+                    elseif info.status == "stopping" or info.status == "charged" then
-		chargeInflow = 0
+                        gWrite("START", 2, 17, colors.white, colors.green)
-	end
+                    elseif info.status == "warming_up" then
-
+                        gWrite("START", 2, 17, colors.white, colors.green)
-	stableTicks = 0
+                        gWrite("STOP", 9, 17, colors.white, colors.red)
-
+                    end
-	setupPeripherals()
+                end
-	print("Started!")
+
                 if info.temperature < 2000.0 then
                     gWrite("END", 26, 17, colors.white, colors.red)
                 end
-	local config = fs.open("config.txt", "w")
+            end
-	config.writeLine(outputMultiplier*1000000.0)
+
-	config.writeLine(maxOvershoot)
+            gWriteLR("Draconic Reactor Number", reactornumber, 2, 0, 1, colors.white, colors.white, colors.black)
-	config.writeLine(minFuel*100.0)
+
-	config.writeLine(defaultTemp)
+            gWriteLR("inflow:", newInflow .. " RF/t", 2, 0, 3, colors.white, colors.white, colors.black)
-	config.writeLine(defaultField*1000.0)
+            gWriteLR("outflow:", outflowMultiplied .. " RF/t", 2, 0, 4, colors.white, colors.white, colors.black)
-	config.writeLine(maxTempInc)
+            local gain = outflowMultiplied - newInflow
-	config.writeLine(maxOutflow)
+            if gain > 0.0 then
-	config.writeLine(chargeInflow)
+                gWriteLR("-> gain:", gain .. " RF/t", 2, 0, 5, colors.white, colors.green, colors.black)
-	config.writeLine(shutDownField*1000.0)
+            elseif gain < 0.0 then
-	config.close()
+                gWriteLR("-> gain:", gain .. " RF/t", 2, 0, 5, colors.white, colors.red, colors.black)
             elseif gain == 0.0 then
                 gWriteLR("-> gain:", "0 RF/t", 2, 0, 5, colors.white, colors.white, colors.black)
-	local config = fs.open("config.txt", "r")
+            end
-	outputMultiplier = tonumber(config.readLine())/1000000.0
+
-	maxOvershoot = tonumber(config.readLine())
+            gDrawLine(1, mon.y, 4, colors.gray)
-	minFuel = tonumber(config.readLine())/100.0
+        end
-	defaultTemp = tonumber(config.readLine())
+
-	defaultField = tonumber(config.readLine())/1000.0
+        sleep(0.02)
-	maxTempInc = tonumber(config.readLine())
+
-	maxOutflow = tonumber(config.readLine())
+
-	chargeInflow = tonumber(config.readLine())
+
-	shutDownField = tonumber(config.readLine())/1000.0
+
-	config.close()
+    term.clear()
     print("Starting program...")
 
     if fs.exists("config.txt") then
-	setup()
+        print("Loading config...")
-	if mon == null then
+        loadConfig()
-		update()
+        print("Done!")
-	else
+    else
-		parallel.waitForAny(update, clickListener)
+        print("Creating config...")
-		gClear()
+        saveConfig()
-		gWrite("Program stopped!", 1, 1, colors.white, colors.black)
+        print("Done!")
-	end
+
 
     if chargeInflow < 0 then
         chargeInflow = 0
     end
 
     stableTicks = 0
 
     setupPeripherals()
     print("Started!")
 end
 function loadConfig()
     local config = fs.open("config.txt", "r")
     outputMultiplier = tonumber(config.readLine())/1000000.0
     maxOvershoot = tonumber(config.readLine())
     minFuel = tonumber(config.readLine())/100.0
     defaultTemp = tonumber(config.readLine())
     defaultField = tonumber(config.readLine())/1000.0
     maxTempInc = tonumber(config.readLine())
     maxOutflow = tonumber(config.readLine())
     chargeInflow = tonumber(config.readLine())
     shutDownField = tonumber(config.readLine())/1000.0
     config.close()
 end
 function saveConfig()
     local config = fs.open("config.txt", "w")
     config.writeLine(outputMultiplier*1000000.0)
     config.writeLine(maxOvershoot)
     config.writeLine(minFuel*100.0)
     config.writeLine(defaultTemp)
     config.writeLine(defaultField*1000.0)
     config.writeLine(maxTempInc)
     config.writeLine(maxOutflow)
     config.writeLine(chargeInflow)
     config.writeLine(shutDownField*1000.0)
     config.close()
 end
 
 function main()
     setup()
     if mon == null then
         update()
     else
         parallel.waitForAny(update, clickListener)
         gClear()
         gWrite("Program stopped!", 1, 1, colors.white, colors.black)
     end
 end
 
 main()