View difference between Paste ID: 6BkEPC2m and mkm6GBrk

 -- RD CC Reactor Control
 -- v 0.0.2
 
 -- Dependancies:
 --   rdCore
 
 -- Thank you for choosing this Big Reactors reactor
 -- control program for automating it with CC.
 
 -- User Settings
 
 -- Stored Power Threshold
 -- Set a custom stored power threshold to lower the
 -- reactor cores to in order to save power.
 
 local reacStTh = 100 -- 1/100 Default: 100
 
 -- Reactor Shutdown Threshold
 -- Should the reactor shut down after a particular
 -- point to conserve fuel. Must be set equal or
 -- higher then Stored Power Threshold.
 
 local reacOf = false -- true/false Default: false
 
 local reacOfTh = 100 -- 5/100 Default: 100
 
 -- Reactor Name
 -- If a monitor is found, a name may be displayed
 -- for the reactor.
 
 local reacName = ""
 
 -- Debug Feedback
 -- For double-checking numbers through the monitor.
 -- Should not be needed unless issues or discrepancies
 -- arrise.
 
 local debugF = true -- true/false Default: false
 
 --====== DO NOT EDIT BELOW THIS POINT ======--
 
 
 
 -- Reactor Variables
 
 local function reUpdate()
 
 	reEn = tonumber(reactor.getEnergyStored())
 	dBR("Reactor Stored Energy: "..reEn.." rf")
 	reOn = reactor.getActive()
 	dBR("Reactor State: "..reOn)
 	reFuel = tonumber(reactor.getFuelAmount())
 	dBR("Reactor Fuel: "..reFuel.." mB")
 	reEnPr = tonumber(reactor.getEnergyProducedLastTick())
 	dBR("Reactor Energy Produced: "..reEnPr.." rf/t")
 	reWa = tonumber(reactor.getWasteAmount())
 	dBR("Reactor Waste: "..eWa.." mB")
 	reFuWa = tonumber(reactor.getFuelAmountMax())
 	dBR("Reactor Fuel/Waste Contained: "..reFuWa.." mB")
 	reEnPerc = math.floor((reEn/10000000)*100)
 	dBR("Reactor Energy Filled Percentage: "..reEnPerc.."%")
 	reFTemp = tonumber(reactor.getFuelTemp)
 	dBR("Reactor Fuel Temp: "..reFTemp.." ° C")
 	reCTemp = tonumber(reactor.getCasingTemp)
 	dBR("Reactor Casing Temp: "..reFTemp.." ° C")
 	reTemp = ((reCTemp+reFTemp)/2)
 	dBR("Reactor Avg Temp: "..reTemp.." ° C")
 
 
 end
 
 -- Debug readout function
 
 local function dBR(var)
 	if debugF == true then
 		print(var)
 	end
 end
 
 -- Control Rod Controls
 
 local function reCtrlRod()
 	reUpdate()
 	print(reEnPerc.."%.")
 	if reEnPerc <= reacStTh then
 		dBR("Changing Ctrl Rod Levels to "..reEnPerc.."%.")
 		reactor.setAllControlRodLevels(reEnPerc)
 	end
 end
 
 -- Power Threshold
 
 local function rePowThr()
   reUpdate()
   if reEnPerc > reacOfTh then
     reactor.setActive = false
   elseif reEnPerc < (reacOfTh-5) then
     reactor.setActive = true
   end
 end
 
 -- Adv Monitor Functionality
 
 -- monitor variables
 
 maxX, maxY = term.getSize()
 
 -- monitor functions
 
 local function updateScreen()
 	if monTest ~= nil then
 		reUpdate()
 		mon.clear()
 		reacTitle()
 		reacEnergy()
 		reacReadout()
 	end
 end
 
 local function reacTitle()
 	local progTitle = "RD Reactor Control ver "..progVer
 	local reacTitle = reacName
 	mon.setCursorPos(maxX/2-string.len(progTitle)/2,2)
 	mon.setTextColor(colors.purple)
 	mon.write(progTitle)
 	if reacName ~= nil then
 		mon.setCursorPos(maxX/2-string.len(reacTitle)/2,3)
 		mon.setTextColor(colors.purple)
 		mon.write(reacTitle)
 	end
 end
 
-local put(text,x,y,color)
+local function put(text,x,y,color)
 	term.setCursorPos(x,y)
 	term.setTextColor(color or 1)
 	term.write(text)
 end
 
 local function reacEnergy()
 	local enTitle = "Reactor RF Stored"
 	local enAmt = reEn.." RF"
 	local enPerc = reEnPerc.." %"
 
 	put(enTitle,maxX/2-string.len(enTitle), 5, colors.blue)
 	put(enTitle,maxX/2-string.len(enAmt.." / "..enPerc), 7, colors.blue)
 
 	paintutils.drawLine(8,9,28,9,colors.white)
 	paintutils.drawLine(8,9,(20*(reEnPerc/100))+8,9,colors.red)
 	mon.setBackgroundColor(colors.black)
 
 end
 
 local function reacReadout()
 
 end
 
 
 -- Find Reactor & Monitor Peripherals
 
 local function getPeripherals()
 
 	reactor = peripheral.wrap(pSearch("BigReactors-Reactor"))
 	monTest = peripheral.find("monitor")
 
 	if reactor.getConnected() == true then
 		dBR("Reactor Connected")
 	else
 		print("Reactor Not Found")
 		term.setTextColor(colors.red)
 		print("Please relocate this computer next to the reactor's computer port!")
 		term.setTextColor(colors.white)
-		break
+		--break
 	end
 	if monTest ~= nil then
 		mon = peripheral.wrap(pSearch("monitor"))
 		dBR("Monitor Found")
 	else
 		dBR("Monitor Not Found")
 	end
 
 end
 
 -- Main Program
 
 local rdCTest = fs.exists("rdCore")
 local rdCPB = "vKDJH93Y"
 progVer = 0.0.2
 
 if rdCTest == false then
 	print("rdCore Api Not Found. Installing embedded version.")
 	shell.run("pastebin", "get", "rdCPB", "rdCore")
 	shell.run("rdCore")
 	rdCTest = fs.exists("rdCore")
 	if rdCTest == true then
 		add2Start("rdReactorControl")
 		print("rdCore Api ver "..rdCV.." Installed Successfully")
 	else
 		print("rdCore Api Unavailable. RD Reactor Control Unable to Start")
-		break
+		--break
 	end
 else
 	print("rdCore Api Found")
 end
 
 getPeripherals()
 
 local temp = ("RD Reactor Control ver: "..progVer.." Initialized Successfully")
 local runs = 0
 print(temp)
 
   while true do
-	if runs == 5 then
+	if runs == 0 then
 		if req = 0 then
 			break
 		else
 			print(temp)
 		end
 
 	elseif runs == 5 then
 
 		updateScreen()
 		runs == 1
 	else
 		runs ++
 	end
 
 	reCtrlRod()
 	if reacOf == true then
 		rePowThr()
 	end
 
 	sleep(2)
   end
 --end