View difference between Paste ID: yn8XWLg6 and KjwASAn2

--- Reaktor- und Turbinenprogramm von Thor_s_Crafter --
+-- Reaktorprogramm (ohne Turbinen) --
--- Version 2.3 --
+-- von Thor_s_Crafter --
--- Reaktorkontrolle --
+
 local rodLevel = 0
-shell.run("cp /reactor-turbine-program/config/touchpoint.lua /touchpoint")
+local enPer = 0
-os.loadAPI("touchpoint")
+local enPerR = 0
-shell.run("rm touchpoint")
+local fuel = 0
 local fuelPer = 0
-shell.run("cp /reactor-turbine-program/config/input.lua /input")
+local enOut = 0
-os.loadAPI("input")
+local fuelCons = 0
-shell.run("rm input")
+local isOn = false
 local mon
-local page = touchpoint.new(touchpointLocation)
+local enCell
-local rodLevel
+local reactor
-local enPer
+
-local fuel
+
-local fuelPer
+function initPeripherals()
-local rfGen
+	local perList = peripheral.getNames()
-local fuelCons
+	for i=1,#perList,1 do
-local isOn
+		if peripheral.getType(perList[i]) == "monitor" then
-local enPerR
+			mon = peripheral.wrap(perList[i])
-local rOn
+		end
-local rOff
+		if peripheral.getType(perList[i]) == "tile_blockcapacitorbank_name" or peripheral.getType(perList[i]) == "tile_thermalexpansion_cell_basic_name" or peripheral.getType(perList[i]) == "tile_thermalexpansion_cell_hardened_name" or peripheral.getType(perList[i]) == "tile_thermalexpansion_cell_reinforced_name" or peripheral.getType(perList[i]) == "tile_thermalexpansion_cell_resonant_name" then
-local modeA
+			enCell = peripheral.wrap(perList[i])
-local modeM
+		end
 		if peripheral.getType(perList[i]) == "BigReactors-Reactor" then
-function createButtons()
+			reactor = peripheral.wrap(perList[i])
-  if lang == "de" then
+  			--print("Reaktor gefunden!")
-    modeA = {" Automatisch ",label = "modeSwitch"}
+		end
-    modeM = {"  Manuell   ",label = "modeSwitch"}
+	end
-  elseif lang == "en" then
+
-    modeA = {" Automatic ",label = "modeSwitch"}
+
-    modeM = {"  Manual   ",label = "modeSwitch"}
+
-  end
+	local en = enCell.getEnergyStored()
 	local enMax = enCell.getMaxEnergyStored()
-  page:add("modeSwitch",switchMode,19,22,33,22)
+	return math.floor(en/enMax*100)
-  if overallMode == "auto" then
+
-    page:rename("modeSwitch",modeA,true)
+
-  elseif overallMode == "manual" then
+
-    page:rename("modeSwitch",modeM,true)
+	rodLevel = reactor.getControlRodLevel(1)
-  end
+	enPer = getEnergy()
-  --In Deutsch
+	enPerR = reactor.getEnergyStored()
-  if lang == "de" then
+	fuel = reactor.getFuelAmount()
-    page:add("Neu starten",restart,2,18,17,18)
+	local fuelMax = reactor.getFuelAmountMax()
-    page:add("Optionen",function() run("/reactor-turbine-program/program/editOptions.lua") end,2,20,17,20)
+	fuelPer = math.floor(fuel/fuelMax*100)
-    page:add("Hauptmenue",function() run("/reactor-turbine-program/start/menu.lua") end,2,22,17,22)
+	enOut = reactor.getEnergyProducedLastTick()
-    --In Englisch
+	fuelCons = reactor.getFuelConsumedLastTick()
-  elseif lang == "en" then
+	isOn = reactor.getActive()
-    page:add("Reboot",restart,2,18,17,18)
+
-    page:add("Options",function() run("/reactor-turbine-program/program/editOptions.lua") end,2,20,17,20)
+
-    page:add("Main Menu",function() run("/reactor-turbine-program/start/menu.lua") end,2,22,17,22)
+function displayData()
-  end
+	term.clear()
-  page:draw()
+	term.setCursorPos(1,1)
 	getReactorData()
 	print("RodLevel: "..rodLevel)
-function createButtonsMan()
+	print("Energie: "..enPer.."%")
-  createButtons()
+	print("Energie (Reaktor): "..enPerR.."RF")
-  if lang == "de" then
+	print("Fuel: "..fuel.."mb")
-    rOn = {" Ein ",label = "reactorOn"}
+	print("Fuel: "..fuelPer.."%")
-    rOff = {" Aus ",label = "reactorOn"}
+	print("Energie-Produktion: "..enOut.."RF/t")
-  elseif lang == "en" then
+	print("Verbrauch: "..fuelCons.."mb/t")
-    rOn = {" On ",label = "reactorOn"}
+	write("Reaktor an: ")
-    rOff = {" Off ",label = "reactorOn"}
+  if isOn == true then print("ja")
-  end
+  else print("nein") end
-  page:add("reactorOn",toggleReactor,11,10,15,10)
+	--sleep(1)
-  if r.getActive() then
+
-    page:rename("reactorOn",rOn,true)
+
-    page:toggleButton("reactorOn")
+function displayDataOnScreen()
-  else
+	--mon.clear()
-    page:rename("reactorOn",rOff,true)
+	mon.setCursorPos(1,1)
-  end
+	mon.write("Energie: "..enPer.."%   ")
-  page:draw()
+	mon.setCursorPos(1,2)
 	mon.write("Energie (Reaktor): "..enPerR.."RF   ")
 	mon.setCursorPos(1,4)
-function checkPeripherals()
+	mon.write("Reaktor an: ")
-  mon.setBackgroundColor(colors.black)
+   if isOn == true then mon.write("ja    ")
-  mon.clear()
+   else mon.write("nein   ") end
-  mon.setCursorPos(1,1)
+   mon.setCursorPos(1,5)
-  mon.setTextColor(colors.red)
+	mon.write("Fuel: "..fuel.."mb   ")
-  term.clear()
+	mon.setCursorPos(1,6)
-  term.setCursorPos(1,1)
+	mon.write("in Prozent: "..fuelPer.."%")
-  term.setTextColor(colors.red)
+	mon.setCursorPos(1,8)
-  if r == "" then
+	mon.write("Energie-Produktion: "..math.floor(enOut).."RF/t    ")
-    if lang == "de" then
+	mon.setCursorPos(1,9)
-      mon.write("Reaktor nicht gefunden! Bitte pruefen und den Computer neu starten (Strg+R gedrueckt halten)")
+	mon.write("Verbrauch: ")
-      error("Reaktor nicht gefunden! Bitte pruefen und den Computer neu starten (Strg+R gedrueckt halten)")
+	local fuelCons2 = tostring(fuelCons)
-    elseif lang == "en" then
+	local fuelCons3 = string.sub(fuelCons2,0,4)
-      mon.write("Reactor not found! Please check and reboot the computer (Press and hold Ctrl+R)")
+	mon.write(fuelCons3)
-      error("Reactor not found! Please check and reboot the computer (Press and hold Ctrl+R)")
+	mon.write("mb/t    ")
-    end
+
-  end
+
-  if v == "" then
+
-    if lang == "de" then
+initPeripherals()
-      mon.write("Energiezelle nicht gefunden! Bitte pruefen und den Computer neu starten (Strg+R gedrueckt halten)")
+mon.setBackgroundColor(colors.blue)
-      error("Energiezelle nicht gefunden! Bitte pruefen und den Computer neu starten (Strg+R gedrueckt halten)")
+
-    elseif lang == "en" then
+
-      mon.write("Energy Cell not found! Please check and reboot the computer (Press and hold Ctrl+R)")
+	getReactorData()
-      error("Energy Cell not found! Please check and reboot the computer (Press and hold Ctrl+R)")
+	displayData()
-    end
+	displayDataOnScreen()
-  end
+	if fuelPer <= 30 then
 		reactor.setActive(false)
 	else
---Schaltet den Reaktor um
+		if enPer <= 50 then
-function toggleReactor()
+			reactor.setActive(true)
-  r.setActive(not r.getActive())
+		elseif enPer > 90 then
-  page:toggleButton("reactorOn")
+			reactor.setActive(false)
-  if r.getActive() then
+		end
-    page:rename("reactorOn",rOn,true)
+	end
-  else
+	sleep(1)
-    page:rename("reactorOn",rOff,true)
+