Trubine Control v1.6

write("Init Turbine ... ")
local turbine
turbine = peripheral.find("BigReactors-Turbine")
print("Done")

write("Init Monitor ... ")
local mon
mon = peripheral.wrap("back")
print("Done")

write("Init Modem ... ")
rednet.open("bottom")
print("Done")

write("Init Values ... ")
TankTimeout = 1

NumTanks = 7
Tanks = {"tk01", "tk02", "tk03", "tk04", "tkA1", "tkA2", "tkA3"}
Fluid = {"oil", "oil", "oil", "oil", "stm", "gas", "dsl"}
MxAmt = {6400, 6400, 6400, 6400, 6400, 6400, 6400}
CrStp = {0, 0, 0, 0, 0, 0, 0}
MxStp = {4, 4, 4, 4, 4, 4, 4}

MxOil = 0
CrOil = 0
MxStm = 0
CrStm = 0
MxGas = 0
CrGas = 0
MxDsl = 0
CrDsl = 0
print("Done")

function UpdateTurbine()
	print("Printing Rotor Speed")
	mon.setCursorPos(1,1)
	mon.write("Rotor Speed")
	speed = turbine.getRotorSpeed()
	speed = math.floor(speed)
	mon.setCursorPos(1,2)
	mon.write(tostring(speed).." RPM")

	print("Printing Fluid Flow Rate")
	mon.setCursorPos(1,4)
	mon.write("Steam Flow")
	flow = turbine.getFluidFlowRate()
	mon.setCursorPos(1,5)
	mon.write(tostring(flow).." mb/t")

	print("Printing Power Output")
	mon.setCursorPos(1,7)
	mon.write("Power Output")
	powerOut = turbine.getEnergyProducedLastTick()
	mon.setCursorPos(1,8)
	mon.write(tostring(math.floor(powerOut)).." RF/t")
end

function UpdateFluids()
	print("Printing Oil Stat")
	mon.setCursorPos(17,1)
	mon.write("Oil")
	mon.setCursorPos(17,2)
	mon.write(tostring(math.floor(CrOil / MxOil * 100)).."%")
	mon.setCursorPos(22,2)
	mon.write("~"..math.floor(CrOil).." B")

	print("Printing Gasoline Stat")
	mon.setCursorPos(17,4)
	mon.write("Gasoline")
	mon.setCursorPos(17,5)
	mon.write(tostring(math.floor(CrGas / MxGas * 100)).."%")
	mon.setCursorPos(22,5)
	mon.write("~"..math.floor(CrGas).." B")

	print("Printing Diesel Stat")
	mon.setCursorPos(17,7)
	mon.write("Diesel")
	mon.setCursorPos(17,8)
	mon.write(tostring(math.floor(CrDsl / MxDsl * 100)).."%")
	mon.setCursorPos(22,8)
	mon.write("~"..math.floor(CrDsl).." B")

	print("Printing Stem Stat")
	mon.setCursorPos(17,10)
	mon.write("Steam")
	mon.setCursorPos(17,11)
	mon.write(tostring(math.floor(CrStm / MxStm * 100)).."%")
	mon.setCursorPos(22,11)
	mon.write("~"..math.floor(CrStm).." B")
end

function UpdateEst()
	EstGas = 39 / 75 * CrOil
	EstDsl = 27 / 75 * CrOil

	TimeGas = EstGas * CrGas * 46 / 60 / 60 / 24
	TimeDsl = EstDsl * CrDsl * 33 / 60 / 60 / 24

	mon.setCursorPos(33,1)
	mon.write("Est Fuel Time")
	mon.setCursorPos(33,2)
	mon.write("~"..tostring(math.floor(TimeGas + TimeDsl)).." Days")

	mon.setCursorPos(33,4)
	mon.write("Potential Gasoline")
	mon.setCursorPos(33,5)
	mon.write("~"..math.floor(EstGas)" B")

	mon.setCursorPos(33,7)
	mon.write("Potential Diesel")
	mon.setCursorPos(33,8)
	mon.write("~"..math.floor(EstDsl)" B")
end

write("Init Tank Max Vals ... ")
for i = 1, NumTanks do
	if (Fluid[i] == "oil") then
		MxOil = MxOil + MxAmt[i]
	elseif (Fluid[i] == "stm") then
		MxStm = MxStm + MxAmt[i]
	elseif (Fluid[i] == "gas") then
		MxGas = MxGas + MxAmt[i]
	elseif (Fluid[i] == "dsl") then
		MxDsl = MxDsl + MxAmt[i]
	end
end
print("Done")

print("Begining Loop")
while (true) do
	print("Clearing Values")
	CrOil = 0
	CrStm = 0
	CrGas = 0
	CrDsl = 0

	for i = 1, NumTanks do
		print("Checking Tank "..Tanks[i])
		rednet.broadcast(Tanks[i], "tanks")
		print("Awaiting Response")
		senderID, msg, protocol = rednet.receive("tanks", TankTimeout)
		CrStp[i] = tonumber(msg) or 0
		print("Received: "..CrStp[i])
		if (Fluid[i] == "oil") then
			CrOil = CrOil + (CrStp[i] / MxStp[i] * MxAmt[i])
		elseif (Fluid[i] == "stm") then
			CrStm = CrStm + (CrStp[i] / MxStp[i] * MxAmt[i])
		elseif (Fluid[i] == "gas") then
			CrGas = CrGas + (CrStp[i] / MxStp[i] * MxAmt[i])
		elseif (Fluid[i] == "dsl") then
			CrDsl = CrDsl + (CrStp[i] / MxStp[i] * MxAmt[i])
		end
	end

	mon.clear()
	UpdateTurbine()
	UpdateFluids()
	UpdateEst()
	sleep(TankTimeout)
end