Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- -- BigReactor Control
- -- by SparkyBearBomb
- -- Original by jaranvil aka jared314
- --
- -- feel free to use and/or modify this code
- --
- -----------------------------------------------
- --Reactor Control - Version History
- --
- -- Version 2.2 - 20 DEC 20
- -- - Updated to permit use with Minecraft 1.16.4
- -- - Created Legacy offshoot of turbine and reactor programs
- --
- -- Version 2.1 - 28 JUL 19
- -- - Fixed Auto Power Increase/Decrease Alignment
- --
- -- Version 2.0 - 02 JUN 19
- -- - Fixed Okay button in auto menu
- --
- -- Version 1.9 - 02 JUN 19
- -- - Added Control rod auto to auto screen
- --
- -- Version 1.8 - 24 MAR 17
- -- - ROLLBACK TO VERSION 1.5 due to error with disabling periodic update checking
- --
- -- Version 1.7 - 24 MAR 17
- -- - disabled periodic update checking due to errors, left in in case a fix becomes known
- -- - error possibly caused by multishell, however, update check causes main screen to flash
- --
- -- Version 1.6 - 23 MAR 17
- -- - Added periodic update checking
- --
- -- Version 1.5 - 23 MAR 17
- -- - Updated "contact me" information
- --
- -- Version 1.4 - 11 SEP 16
- -- - Updated "Rod/Casing Heat", "Storage" and "Control Rods" bar colors
- --
- -- Version 1.3 - 07 SEP 16
- -- - Integrated waste into fuel bar
- -- - Put fuel consumption on main screen
- --
- -- Version 1.2 - 17 MAR 16
- -- - First Release
- --
- -- Version 1.1 - UNKN
- -- - original program made by jaranvil
- --
- -----------------------------------------------
- local version = 2.1
- --is auto power enabled
- local auto_string = false
- --auto on value
- local on = 0
- --auto off value
- local off = 99
- --is auto control rods enabled
- local auto_rods = true
- --control rod auto value
- local auto_rf = 0
- --peripherals
- local reactor
- local mon
- --monitor size
- local monX
- local monY
- term.clear()
- -------------------FORMATTING-------------------------------
- function clear()
- mon.setBackgroundColor(colors.black)
- mon.clear()
- mon.setCursorPos(1,1)
- end
- --display text on computer's terminal screen
- function draw_text_term(x, y, text, text_color, bg_color)
- term.setTextColor(text_color)
- term.setBackgroundColor(bg_color)
- term.setCursorPos(x,y)
- write(text)
- end
- --display text text on monitor, "mon" peripheral
- function draw_text(x, y, text, text_color, bg_color)
- mon.setBackgroundColor(bg_color)
- mon.setTextColor(text_color)
- mon.setCursorPos(x,y)
- mon.write(text)
- end
- --draw line on computer terminal
- function draw_line(x, y, length, color)
- mon.setBackgroundColor(color)
- mon.setCursorPos(x,y)
- mon.write(string.rep(" ", length))
- end
- --draw line on computer terminal
- function draw_line_term(x, y, length, color)
- term.setBackgroundColor(color)
- term.setCursorPos(x,y)
- term.write(string.rep(" ", length))
- end
- -- Round Decimal Numbers
- function roundNumber(num, n)
- local mult = 10^(n or 0)
- return math.floor(num * mult + 0.5) / mult
- end
- --create progress bar
- --draws two overlapping lines
- --background line of bg_color
- --main line of bar_color as a percentage of minVal/maxVal
- function progress_bar(x, y, length, minVal, maxVal, bar_color, bg_color)
- draw_line(x, y, length, bg_color) --backgoround bar
- local barSize = math.floor((minVal/maxVal) * length)
- draw_line(x, y, barSize, bar_color) --progress so far
- end
- --create status bar
- --draws three overlapping lines
- --background line of bg_color
- function status_bar(x, y, length, minVal, medVal, maxVal, bar_color1, bar_color2, bg_color)
- draw_line(x, y, length, bg_color) --backgoround bar
- local barSize1 = math.floor((medVal/maxVal) * length)
- local barSize2 = math.floor((minVal/maxVal) * length)
- draw_line(x, y, barSize1, bar_color1) --progress so far
- draw_line(x, y, barSize2, bar_color2) --progress so far
- end
- --same as above but on the computer terminal
- function progress_bar_term(x, y, length, minVal, maxVal, bar_color, bg_color)
- draw_line_term(x, y, length, bg_color) --backgoround bar
- local barSize = math.floor((minVal/maxVal) * length)
- draw_line_term(x, y, barSize, bar_color) --progress so far
- end
- --create button on monitor
- function button(x, y, length, text, txt_color, bg_color)
- draw_line(x, y, length, bg_color)
- draw_text((x+2), y, text, txt_color, bg_color)
- end
- --header and footer bars on monitor
- function menu_bar()
- draw_line(1, 1, monX, colors.blue)
- draw_text(2, 1, "Power Tools Settings", colors.white, colors.blue)
- draw_line(1, 26, monX, colors.blue)
- draw_text(2, 26, " Reactor Control", colors.white, colors.blue)
- end
- --dropdown menu for power options
- function power_menu()
- draw_line(1, 2, 9, colors.gray)
- draw_line(1, 3, 9, colors.gray)
- draw_line(1, 4, 9, colors.gray)
- if active then
- draw_text(2, 2, "ON", colors.lightGray, colors.gray)
- draw_text(2, 3, "OFF", colors.white, colors.gray)
- else
- draw_text(2, 2, "ON", colors.white, colors.gray)
- draw_text(2, 3, "OFF", colors.lightGray, colors.gray)
- end
- draw_text(2, 4, "Auto", colors.white, colors.gray)
- end
- --dropbox menu for tools
- function tools_menu()
- draw_line(10, 2, 14, colors.gray)
- draw_line(10, 3, 14, colors.gray)
- draw_line(10, 4, 14, colors.gray)
- draw_line(10, 5, 14, colors.gray)
- draw_text(11, 2, "Control Rods", colors.white, colors.gray)
- draw_text(11, 3, "Efficiency", colors.white, colors.gray)
- draw_text(11, 4, "Fuel", colors.white, colors.gray)
- draw_text(11, 5, "Waste", colors.white, colors.gray)
- end
- --dropdown menu for settings
- function settings_menu()
- draw_line(12, 2, 18, colors.gray)
- draw_line(12, 3, 18, colors.gray)
- draw_text(13, 2, "Check for Updates", colors.white, colors.gray)
- draw_text(13, 3, "Reset peripherals", colors.white, colors.gray)
- end
- --basic popup screen with title bar and exit button
- function popup_screen(y, title, height)
- clear()
- menu_bar()
- draw_line(4, y, 22, colors.blue)
- draw_line(25, y, 1, colors.red)
- for counter = y+1, height+y do
- draw_line(4, counter, 22, colors.white)
- end
- draw_text(25, y, "X", colors.white, colors.red)
- draw_text(5, y, title, colors.white, colors.blue)
- end
- --write settings to config file
- function save_config()
- sw = fs.open("config.txt", "w")
- sw.writeLine(version)
- sw.writeLine(auto_string)
- sw.writeLine(on)
- sw.writeLine(off)
- sw.writeLine(auto_rods)
- sw.writeLine(auto_rf)
- sw.close()
- end
- --read settings from file
- function load_config()
- sr = fs.open("config.txt", "r")
- version = tonumber(sr.readLine())
- auto_string = sr.readLine()
- on = tonumber(sr.readLine())
- off = tonumber(sr.readLine())
- auto_rods = sr.readLine()
- auto_rf = tonumber(sr.readLine())
- sr.close()
- end
- ------------------------END FORMATTING--------------------------
- --
- function homepage()
- while true do
- clear()
- menu_bar()
- terminal_screen()
- energy_stored = reactor.getEnergyStored()
- --------POWER STAT--------------
- draw_text(2, 3, "Power:", colors.yellow, colors.black)
- active = reactor.getActive()
- if active then
- draw_text(10, 3, "ONLINE", colors.lime, colors.black)
- else
- draw_text(10, 3, "OFFLINE", colors.red, colors.black)
- end
- -----------FUEL---------------------
- draw_text(2, 5, "Fuel Level:", colors.yellow, colors.black)
- local maxVal = reactor.getFuelAmountMax()
- local waste = reactor.getWasteAmount()
- local minVal = reactor.getFuelAmount()
- local medVal = waste + minVal
- local percent = math.floor((minVal/maxVal)*100)
- draw_text(15, 5, percent.."%", colors.white, colors.black)
- if percent < 25 then
- status_bar(2, 6, monX-2, minVal, medVal, maxVal, colors.blue, colors.red, colors.gray)
- else if percent < 50 then
- status_bar(2, 6, monX-2, minVal, medVal, maxVal, colors.blue, colors.orange, colors.gray)
- else if percent < 75 then
- status_bar(2, 6, monX-2, minVal, medVal, maxVal, colors.blue, colors.yellow, colors.gray)
- else if percent <= 100 then
- status_bar(2, 6, monX-2, minVal, medVal, maxVal, colors.blue, colors.lime, colors.gray)
- end
- end
- end
- end
- -----------ROD HEAT---------------
- draw_text(2, 8, "Fuel Temp:", colors.yellow, colors.black)
- local maxVal = 2000
- local minVal = math.floor(reactor.getFuelTemperature())
- if minVal < 500 then
- progress_bar(2, 9, monX-2, minVal, maxVal, colors.cyan, colors.gray)
- else if minVal < 1000 then
- progress_bar(2, 9, monX-2, minVal, maxVal, colors.lime, colors.gray)
- else if minVal < 1500 then
- progress_bar(2, 9, monX-2, minVal, maxVal, colors.yellow, colors.gray)
- else if minVal < 2000 then
- progress_bar(2, 9, monX-2, minVal, maxVal, colors.orange, colors.gray)
- else if minVal >= 2000 then
- progress_bar(2, 9, monX-2, 2000, maxVal, colors.red, colors.gray)
- end
- end
- end
- end
- end
- draw_text(15, 8, math.floor(minVal).." C", colors.white, colors.black)
- -----------CASING HEAT---------------
- draw_text(2, 11, "Casing Temp:", colors.yellow, colors.black)
- local maxVal = 2000
- local minVal = math.floor(reactor.getCasingTemperature())
- if minVal < 500 then
- progress_bar(2, 12, monX-2, minVal, maxVal, colors.cyan, colors.gray)
- else if minVal < 1000 then
- progress_bar(2, 12, monX-2, minVal, maxVal, colors.lime, colors.gray)
- else if minVal < 1500 then
- progress_bar(2, 12, monX-2, minVal, maxVal, colors.yellow, colors.gray)
- else if minVal < 2000 then
- progress_bar(2, 12, monX-2, minVal, maxVal, colors.orange, colors.gray)
- else if minVal >= 2000 then
- progress_bar(2, 12, monX-2, 2000, maxVal, colors.red, colors.gray)
- end
- end
- end
- end
- end
- draw_text(15, 11, math.floor(minVal).." C", colors.white, colors.black)
- -------------FUEL CONSUMPTION-------------------
- draw_text(2, 14, "Fuel/Tick:", colors.yellow, colors.black)
- fuel_usage = reactor.getFuelConsumedLastTick()
- fuelConsumed = roundNumber(fuel_usage, 5)
- draw_text(13, 14, fuelConsumed.." mB/T", colors.white, colors.black)
- -------------OUTPUT-------------------
- if reactor.isActivelyCooled() then
- draw_text(2, 16, "mB/tick:", colors.yellow, colors.black)
- mbt = math.floor(reactor.getHotFluidProducedLastTick())
- draw_text(13, 16, mbt.." mB/t", colors.white, colors.black)
- else
- draw_text(2, 16, "RF/Tick:", colors.yellow, colors.black)
- rft = math.floor(reactor.getEnergyProducedLastTick())
- draw_text(13, 16, rft.." RF/T", colors.white, colors.black)
- end
- ------------STORAGE------------
- if reactor.isActivelyCooled() then
- draw_text(2, 18, "mB Stored:", colors.yellow, colors.black)
- fluid_stored = reactor.getHotFluidAmount()
- fluid_max = reactor.getHotFluidAmountMax()
- fluid_stored_percent = math.floor((fluid_stored/fluid_max)*100)
- draw_text(13, 18, fluid_stored_percent.."% ("..fluid_stored.." mB)", colors.white, colors.black)
- else
- draw_text(2, 18, "RF Stored:", colors.yellow, colors.black)
- energy_stored_percent = math.floor((energy_stored/10000000)*100)
- local maxVal = 100
- local minVal = energy_stored_percent
- draw_text(13, 18, energy_stored_percent.."% ("..energy_stored.." RF)", colors.white, colors.black)
- progress_bar(2, 19, monX-2, minVal, maxVal, colors.lime, colors.gray)
- end
- -------------AUTO CONTROL RODS-----------------------
- auto_rods_bool = auto_rods == "true"
- insertion_percent = reactor.getControlRodLevel(0)
- if reactor.isActivelyCooled() then
- draw_text(2, 21, "Control Rods:", colors.yellow, colors.black)
- draw_text(16, 21, insertion_percent.."%", colors.white, colors.black)
- else
- if auto_rods_bool then
- if active then
- reactor.setAllControlRodLevels(energy_stored_percent)
- end
- draw_text(2, 21, "Control Rods:", colors.yellow, colors.black)
- draw_text(16, 21, insertion_percent.."%", colors.white, colors.black)
- local maxVal = 100
- local minVal = insertion_percent
- progress_bar(2, 22, monX-2, minVal, maxVal, colors.cyan, colors.gray)
- else
- draw_text(2, 21, "Control Rods:", colors.yellow, colors.black)
- draw_text(16, 21, insertion_percent.."%", colors.white, colors.black) local maxVal = 100
- local minVal = insertion_percent
- progress_bar(2, 22, monX-2, minVal, maxVal, colors.yellow, colors.gray)
- end
- end
- -------------AUTO SHUTOFF--------------------------
- if reactor.isActivelyCooled() then
- --i dont know what I should do here
- else
- auto = auto_string == "true"
- if auto_rods == "true" then
- draw_text(2, 24, "Auto:", colors.yellow, colors.black)
- draw_text(13, 24, "Control Rods", colors.white, colors.black)
- else
- if auto then
- if active then
- draw_text(2, 24, "Auto off:", colors.yellow, colors.black)
- draw_text(13, 24, off.."% RF Stored", colors.white, colors.black)
- if energy_stored_percent >= off then
- reactor.setActive(false)
- call_homepage()
- end
- else
- draw_text(2, 24, "Auto on:", colors.yellow, colors.black)
- draw_text(13, 24, on.."% RF Stored", colors.white, colors.black)
- if energy_stored_percent <= on then
- reactor.setActive(true)
- call_homepage()
- end
- end
- else
- draw_text(2, 24, "Auto power:", colors.yellow, colors.black)
- draw_text(14, 24, "disabled", colors.red, colors.black)
- end
- end
- end
- sleep(0.5)
- end
- end
- --------------MENU SCREENS--------------
- --auto power menu
- function auto_off()
- auto = auto_string == "true"
- if auto then --auto power enabled
- popup_screen(3, "Auto Management", 13)
- draw_text(5, 5, "Energy", colors.red, colors.white)
- draw_text(15, 5, " enable ", colors.white, colors.gray)
- draw_text(5, 7, "Power", colors.lime, colors.white)
- draw_text(15, 7, " disable ", colors.white, colors.black)
- draw_text(5, 9, "ON when storage =", colors.gray, colors.white)
- draw_text(5, 10, " - ", colors.white, colors.black)
- draw_text(13, 10, on.."% RF", colors.black, colors.white)
- draw_text(22, 10, " + ", colors.white, colors.black)
- draw_text(5, 12, "OFF when storage =", colors.gray, colors.white)
- draw_text(5, 13, " - ", colors.white, colors.black)
- draw_text(13, 13, off.."% RF", colors.black, colors.white)
- draw_text(22, 13, " + ", colors.white, colors.black)
- draw_text(11, 15, " Save ", colors.white, colors.black)
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- --enable rods
- if yPos == 5 then
- if xPos >= 15 and xPos <= 21 then
- auto_string = "false"
- auto_rods = "true"
- reactor.setActive(true)
- save_config()
- auto_off()
- control_rods()
- else
- auto_off()
- control_rods()
- end
- end
- --disable auto
- if yPos == 7 then
- if xPos >= 15 and xPos <= 21 then
- auto_string = "false"
- save_config()
- auto_off()
- else
- auto_off()
- end
- end
- --increase/decrease auto on %
- if yPos == 10 then
- if xPos >= 5 and xPos <= 8 then
- previous_on = on
- on = on-1
- end
- if xPos >= 22 and xPos <= 25 then
- previous_on = on
- on = on+1
- end
- end
- --increase/decrease auto off %
- if yPos == 13 then
- if xPos >= 5 and xPos <= 8 then
- previous_off = off
- off = off-1
- end
- if xPos >= 22 and xPos <= 25 then
- previous_off = off
- off = off+1
- end
- end
- if on < 0 then on = 0 end
- if off >99 then off = 99 end
- if on == off or on > off then
- on = previous_on
- off = previous_off
- popup_screen(5, "Error", 6)
- draw_text(5, 7, "Auto On value must be", colors.black, colors.white)
- draw_text(5, 8, "lower then auto off", colors.black, colors.white)
- draw_text(11, 10, "Okay", colors.white, colors.black)
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- auto_off()
- end
- --Okay button
- if yPos == 15 and xPos >= 11 and xPos <= 17 then
- save_config()
- call_homepage()
- end
- --Exit button
- if yPos == 3 and xPos == 25 then
- call_homepage()
- end
- auto_off()
- elseif auto_rods == "true" then --auto rods enabled
- popup_screen(3, "Auto Management", 7)
- draw_text(5, 5, "Energy", colors.lime, colors.white)
- draw_text(15, 5, " disable ", colors.white, colors.black)
- draw_text(5, 7, "Power", colors.red, colors.white)
- draw_text(15, 7, " enable ", colors.white, colors.gray)
- draw_text(11, 9, "Okay", colors.white, colors.black)
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- --Okay button
- if yPos == 9 and xPos >= 11 and xPos <= 17 then
- call_homepage()
- end
- if yPos == 5 then
- if xPos >= 15 and xPos <= 21 then
- auto_string = "false"
- auto_rods = "false"
- reactor.setAllControlRodLevels(0)
- save_config()
- auto_off()
- control_rods()
- else
- auto_off()
- control_rods()
- end
- end
- if yPos == 7 then
- if xPos >= 15 and xPos <= 21 then
- auto_string = "true"
- auto_rods = "false"
- reactor.setAllControlRodLevels(0)
- save_config()
- auto_off()
- control_rods()
- else
- auto_off()
- control_rods()
- end
- else
- auto_off()
- control_rods()
- end
- else
- popup_screen(3, "Auto Management", 7)
- draw_text(5, 5, "Energy", colors.red, colors.white)
- draw_text(15, 5, " enable ", colors.white, colors.gray)
- draw_text(5, 7, "Power", colors.red, colors.white)
- draw_text(15, 7, " enable ", colors.white, colors.gray)
- draw_text(11, 9, "Okay", colors.white, colors.black)
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- --Okay button
- if yPos == 9 and xPos >= 11 and xPos <= 17 then
- call_homepage()
- end
- if yPos == 5 then
- if xPos >= 15 and xPos <= 21 then
- auto_string = "false"
- auto_rods = "true"
- reactor.setActive(true)
- save_config()
- auto_off()
- control_rods()
- else
- auto_off()
- control_rods()
- end
- end
- if yPos == 7 then
- if xPos >= 15 and xPos <= 21 then
- auto_string = "true"
- auto_rods = "false"
- reactor.setAllControlRodLevels(0)
- save_config()
- auto_off()
- control_rods()
- else
- auto_off()
- control_rods()
- end
- else
- auto_off()
- control_rods()
- end
- end
- end
- --efficiency menu
- function efficiency()
- popup_screen(3, "Efficiency", 12)
- fuel_usage = reactor.getFuelConsumedLastTick()
- rft = math.floor(reactor.getEnergyProducedLastTick())
- rfmb = rft / fuel_usage
- draw_text(5, 5, "Fuel Consumption: ", colors.lime, colors.white)
- draw_text(5, 6, fuel_usage.." mB/t", colors.black, colors.white)
- draw_text(5, 8, "Energy per mB: ", colors.lime, colors.white)
- draw_text(5, 9, rfmb.." RF/mB", colors.black, colors.white)
- draw_text(5, 11, "RF/tick:", colors.lime, colors.white)
- draw_text(5, 12, rft.." RF/T", colors.black, colors.white)
- draw_text(11, 14, " Okay ", colors.white, colors.black)
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- --Okay button
- if yPos == 14 and xPos >= 11 and xPos <= 17 then
- call_homepage()
- end
- --Exit button
- if yPos == 3 and xPos == 25 then
- call_homepage()
- end
- efficiency()
- end
- function fuel()
- popup_screen(3, "Fuel", 9)
- fuel_max = reactor.getFuelAmountMax()
- fuel_level = reactor.getFuelAmount()
- fuel_reactivity = math.floor(reactor.getFuelReactivity())
- draw_text(5, 5, "Fuel Level: ", colors.lime, colors.white)
- draw_text(5, 6, fuel_level.."/"..fuel_max, colors.black, colors.white)
- draw_text(5, 8, "Reactivity: ", colors.lime, colors.white)
- draw_text(5, 9, fuel_reactivity.."%", colors.black, colors.white)
- draw_text(11, 11, " Okay ", colors.white, colors.black)
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- --Okay button
- if yPos == 11 and xPos >= 11 and xPos <= 17 then
- call_homepage()
- end
- --Exit button
- if yPos == 3 and xPos == 25 then
- call_homepage()
- end
- fuel()
- end
- function waste()
- popup_screen(3, "Waste", 8)
- waste_amount = reactor.getWasteAmount()
- draw_text(5, 5, "Waste Amount: ", colors.lime, colors.white)
- draw_text(5, 6, waste_amount.." mB", colors.black, colors.white)
- draw_text(8, 8, " Eject Waste ", colors.white, colors.red)
- draw_text(11, 10, " Close ", colors.white, colors.black)
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- --eject button
- if yPos == 8 and xPos >= 8 and xPos <= 21 then
- reactor.doEjectWaste()
- popup_screen(5, "Waste Eject", 5)
- draw_text(5, 7, "Waste Ejeceted.", colors.black, colors.white)
- draw_text(11, 9, " Close ", colors.white, colors.black)
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- --Okay button
- if yPos == 7 and xPos >= 11 and xPos <= 17 then
- call_homepage()
- end
- --Exit button
- if yPos == 3 and xPos == 25 then
- call_homepage()
- end
- end
- --Okay button
- if yPos == 10 and xPos >= 11 and xPos <= 17 then
- call_homepage()
- end
- --Exit button
- if yPos == 3 and xPos == 25 then
- call_homepage()
- end
- waste()
- end
- function set_auto_rf()
- popup_screen(5, "Auto Adjust", 11)
- draw_text(5, 7, "Try to maintain:", colors.black, colors.white)
- draw_text(13, 9, " ^ ", colors.white, colors.gray)
- draw_text(10, 11, auto_rf.." RF/t", colors.black, colors.white)
- draw_text(13, 13, " v ", colors.white, colors.gray)
- draw_text(11, 15, " Okay ", colors.white, colors.gray)
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- --increase button
- if yPos == 9 then
- auto_rf = auto_rf + 100
- save_config()
- set_auto_rf()
- end
- --decrease button
- if yPos == 13 then
- auto_rf = auto_rf - 100
- if auto_rf < 0 then auto_rf = 0 end
- save_config()
- set_auto_rf()
- end
- if yPos == 15 then
- control_rods()
- end
- set_auto_rf()
- end
- function control_rods()
- if reactor.isActivelyCooled() then
- popup_screen(3, "Control Rods", 13)
- insertion_percent = reactor.getControlRodLevel(0)
- draw_text(5, 5, "Inserted: "..insertion_percent.."%", colors.black, colors.white)
- progress_bar(5, 7, 20, insertion_percent, 100, colors.yellow, colors.gray)
- draw_text(5, 9, " << ", colors.white, colors.black)
- draw_text(10, 9, " < ", colors.white, colors.black)
- draw_text(17, 9, " > ", colors.white, colors.black)
- draw_text(21, 9, " >> ", colors.white, colors.black)
- draw_text(5, 11, "Auto:", colors.black, colors.white)
- draw_text(5, 13, "unavilable for", colors.red, colors.white)
- draw_text(5, 14, "active cooling", colors.red, colors.white)
- draw_text(11, 16, " Close ", colors.white, colors.gray)
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- if yPos == 9 and xPos >= 5 and xPos <= 15 then
- reactor.setAllControlRodLevels(insertion_percent-10)
- end
- if yPos == 9 and xPos >= 10 and xPos <= 13 then
- reactor.setAllControlRodLevels(insertion_percent-1)
- end
- if yPos == 9 and xPos >= 17 and xPos <= 20 then
- reactor.setAllControlRodLevels(insertion_percent+1)
- end
- if yPos == 9 and xPos >= 21 and xPos <= 25 then
- reactor.setAllControlRodLevels(insertion_percent+10)
- end
- ------Close button-------
- if yPos == 16 and xPos >= 11 and xPos <= 17 then
- call_homepage()
- end
- ------Exit button------------
- if yPos == 5 and xPos == 25 then
- call_homepage()
- end
- control_rods()
- else
- popup_screen(3, "Control Rods", 13)
- insertion_percent = reactor.getControlRodLevel(0)
- draw_text(5, 5, "Inserted: "..insertion_percent.."%", colors.black, colors.white)
- progress_bar(5, 7, 20, insertion_percent, 100, colors.yellow, colors.gray)
- draw_text(5, 9, " << ", colors.white, colors.black)
- draw_text(10, 9, " < ", colors.white, colors.black)
- draw_text(17, 9, " > ", colors.white, colors.black)
- draw_text(21, 9, " >> ", colors.white, colors.black)
- draw_text(5, 11, "Auto:", colors.black, colors.white)
- draw_text(16, 11, " disable ", colors.white, colors.black)
- auto_rods_bool = auto_rods == "true"
- if auto_rods_bool then
- draw_text(16, 11, " enable ", colors.white, colors.black)
- draw_text(5, 13, "enabled", colors.green, colors.white)
- else
- draw_text(16, 11, " enable ", colors.white, colors.black)
- draw_text(5, 13, "disabled", colors.red, colors.white)
- end
- draw_text(11, 15, " Close ", colors.white, colors.gray)
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- -----manual adjust buttons------------
- if yPos == 9 and xPos >= 5 and xPos <= 15 then
- reactor.setAllControlRodLevels(insertion_percent-10)
- end
- if yPos == 9 and xPos >= 10 and xPos <= 13 then
- reactor.setAllControlRodLevels(insertion_percent-1)
- end
- if yPos == 9 and xPos >= 17 and xPos <= 20 then
- reactor.setAllControlRodLevels(insertion_percent+1)
- end
- if yPos == 9 and xPos >= 21 and xPos <= 25 then
- reactor.setAllControlRodLevels(insertion_percent+10)
- end
- ------auto buttons-----------------
- if yPos == 11 and xPos >= 16 then
- if auto_rods_bool then
- auto_rods = "false"
- save_config()
- control_rods()
- else
- auto_rods = "true"
- save_config()
- control_rods()
- end
- end
- ------Close button-------
- if yPos == 15 and xPos >= 11 and xPos <= 17 then
- call_homepage()
- end
- ------Exit button------------
- if yPos == 5 and xPos == 25 then
- call_homepage()
- end
- control_rods()
- end
- end
- -----------------------Settings--------------------------------
- function rf_mode()
- wait = read()
- end
- function steam_mode()
- wait = read()
- end
- function install_update(program, pastebin)
- clear()
- draw_line(4, 5, 22, colors.blue)
- for counter = 6, 10 do
- draw_line(4, counter, 22, colors.white)
- end
- draw_text(5, 5, "Updating...", colors.white, colors.blue)
- draw_text(5, 7, "Open computer", colors.black, colors.white)
- draw_text(5, 8, "terminal.", colors.black, colors.white)
- if fs.exists("install") then fs.delete("install") end
- shell.run("pastebin get ELJptBRk install")
- shell.run("install")
- end
- function update()
- popup_screen(5, "Updates", 4)
- draw_text(5, 7, "Connecting to", colors.black, colors.white)
- draw_text(5, 8, "pastebin...", colors.black, colors.white)
- sleep(0.5)
- shell.run("pastebin get KWdzfSbG current_version.txt")
- sr = fs.open("current_version.txt", "r")
- current_version = tonumber(sr.readLine())
- sr.close()
- fs.delete("current_version.txt")
- terminal_screen()
- if current_version > version then
- popup_screen(5, "Updates", 7)
- draw_text(5, 7, "Update Available!", colors.black, colors.white)
- draw_text(11, 9, " Install ", colors.white, colors.black)
- draw_text(11, 11, " Ignore ", colors.white, colors.black)
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- --Instatll button
- if yPos == 9 and xPos >= 11 and xPos <= 17 then
- install_update()
- end
- --Exit button
- if yPos == 5 and xPos == 25 then
- call_homepage()
- end
- call_homepage()
- else
- popup_screen(5, "Updates", 5)
- draw_text(5, 7, "You are up to date!", colors.black, colors.white)
- draw_text(11, 9, " Okay ", colors.white, colors.black)
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- --Okay button
- if yPos == 9 and xPos >= 11 and xPos <= 17 then
- call_homepage()
- end
- --Exit button
- if yPos == 5 and xPos == 25 then
- call_homepage()
- end
- call_homepage()
- end
- end
- function reset_peripherals()
- clear()
- draw_line(4, 5, 22, colors.blue)
- for counter = 6, 10 do
- draw_line(4, counter, 22, colors.white)
- end
- draw_text(5, 5, "Reset Peripherals", colors.white, colors.blue)
- draw_text(5, 7, "Open computer", colors.black, colors.white)
- draw_text(5, 8, "terminal.", colors.black, colors.white)
- setup_wizard()
- end
- --stop running status screen if monitors was touched
- function stop()
- while true do
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- x = xPos
- y = yPos
- stop_function = "monitor_touch"
- return
- end
- end
- function mon_touch()
- --when the monitor is touch on the homepage
- if y == 1 then
- if x < monX/3 then
- power_menu()
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- if xPos < 9 then
- if yPos == 2 then
- reactor.setActive(true)
- timer = 0 --reset anytime the reactor is turned on/off
- call_homepage()
- else if yPos == 3 then
- reactor.setActive(false)
- timer = 0 --reset anytime the reactor is turned on/off
- call_homepage()
- else if yPos == 4 then
- auto_off()
- else
- call_homepage()
- end
- end
- end
- else
- call_homepage()
- end
- else if x < 20 then
- tools_menu()
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- if xPos < 25 and xPos > 10 then
- if yPos == 2 then
- control_rods()
- else if yPos == 3 then
- efficiency()
- else if yPos == 4 then
- fuel()
- else if yPos == 5 then
- waste()
- else
- call_homepage()
- end
- end
- end
- end
- else
- call_homepage()
- end
- else if x < monX then
- settings_menu()
- local event, side, xPos, yPos = os.pullEvent("monitor_touch")
- if xPos > 13 then
- if yPos == 2 then
- update()
- else if yPos == 3 then
- reset_peripherals()
- else
- call_homepage()
- end
- end
- else
- call_homepage()
- end
- end
- end
- end
- else
- call_homepage()
- end
- end
- function terminal_screen()
- term.clear()
- draw_line_term(1, 1, 55, colors.blue)
- draw_text_term(13, 1, "BigReactor Controls", colors.white, colors.blue)
- draw_line_term(1, 19, 55, colors.blue)
- draw_text_term(13, 19, "by SparkyBearBomb", colors.white, colors.blue)
- draw_text_term(1, 3, "Current program:", colors.white, colors.black)
- draw_text_term(1, 4, "Reactor Control v"..version, colors.blue, colors.black)
- draw_text_term(1, 6, "Installer:", colors.white, colors.black)
- draw_text_term(1, 7, "pastebin.com/ELJptBRk", colors.blue, colors.black)
- draw_text_term(1, 9, "Please give me your feedback, suggestions,", colors.white, colors.black)
- draw_text_term(1, 10, "and errors!", colors.white, colors.black)
- draw_text_term(1, 11, "http://pastebin.com/u/Sparkybearbomb", colors.blue, colors.black)
- end
- --run both homepage() and stop() until one returns
- function call_homepage()
- clear()
- parallel.waitForAny(homepage, stop)
- if stop_function == "terminal_screen" then
- stop_function = "nothing"
- setup_wizard()
- else if stop_function == "monitor_touch" then
- stop_function = "nothing"
- mon_touch()
- end
- end
- end
- --test if the entered monitor and reactor can be wrapped
- function test_configs()
- term.clear()
- draw_line_term(1, 1, 55, colors.blue)
- draw_text_term(10, 1, "BigReactors Controls", colors.white, colors.blue)
- draw_line_term(1, 19, 55, colors.blue)
- draw_text_term(10, 19, "by SparkyBearBomb", colors.white, colors.blue)
- draw_text_term(1, 3, "Searching for a peripherals...", colors.white, colors.black)
- sleep(1)
- reactor = reactorSearch()
- mon = monitorSearch()
- draw_text_term(2, 5, "Connecting to reactor...", colors.white, colors.black)
- sleep(0.5)
- if reactor == null then
- draw_text_term(1, 8, "Error:", colors.red, colors.black)
- draw_text_term(1, 9, "Could not connect to reactor", colors.red, colors.black)
- draw_text_term(1, 10, "Reactor must be connected with networking cable", colors.white, colors.black)
- draw_text_term(1, 11, "and modems or the computer is directly beside", colors.white, colors.black)
- draw_text_term(1, 12,"the reactors computer port.", colors.white, colors.black)
- draw_text_term(1, 14, "Press Enter to continue...", colors.gray, colors.black)
- wait = read()
- setup_wizard()
- else
- draw_text_term(27, 5, "success", colors.lime, colors.black)
- sleep(0.5)
- end
- draw_text_term(2, 6, "Connecting to monitor...", colors.white, colors.black)
- sleep(0.5)
- if mon == null then
- draw_text_term(1, 7, "Error:", colors.red, colors.black)
- draw_text_term(1, 8, "Could not connect to a monitor. Place a 3x4 advanced monitor", colors.red, colors.black)
- draw_text_term(1, 11, "Press Enter to continue...", colors.gray, colors.black)
- wait = read()
- setup_wizard()
- else
- monX, monY = mon.getSize()
- draw_text_term(27, 6, "success", colors.lime, colors.black)
- sleep(0.5)
- end
- draw_text_term(2, 7, "saving configuration...", colors.white, colors.black)
- save_config()
- sleep(0.1)
- draw_text_term(1, 9, "Setup Complete!", colors.lime, colors.black)
- sleep(1)
- auto = auto_string == "true"
- call_homepage()
- end
- ----------------SETUP-------------------------------
- function setup_wizard()
- term.clear()
- draw_text_term(1, 1, "BigReactor Controls v"..version, colors.lime, colors.black)
- draw_text_term(1, 2, "Peripheral setup", colors.white, colors.black)
- draw_text_term(1, 4, "Step 1:", colors.lime, colors.black)
- draw_text_term(1, 5, "-Place 3 wide x 4 tall advanced monitors next to computer.", colors.white, colors.black)
- draw_text_term(1, 7, "Step 2:", colors.lime, colors.black)
- draw_text_term(1, 8, "-Place a wired modem on this computer and on the ", colors.white, colors.black)
- draw_text_term(1, 9, " computer port of the reactor.", colors.white, colors.black)
- draw_text_term(1, 10, "-connect modems with network cable.", colors.white, colors.black)
- draw_text_term(1, 11, "-right click modems to activate.", colors.white, colors.black)
- draw_text_term(1, 13, "Press Enter when ready...", colors.gray, colors.black)
- wait = read()
- test_configs()
- end
- -- peripheral searching thanks to /u/kla_sch
- function reactorSearch()
- local names = peripheral.getNames()
- local i, name
- for i, name in pairs(names) do
- if peripheral.getType(name) == "BigReactors-Reactor" then
- return peripheral.wrap(name)
- else
- --return null
- end
- end
- end
- function monitorSearch()
- local names = peripheral.getNames()
- local i, name
- for i, name in pairs(names) do
- if peripheral.getType(name) == "monitor" then
- test = name
- return peripheral.wrap(name)
- else
- --return null
- end
- end
- end
- function start()
- --if configs exists, load values and test
- if fs.exists("config.txt") then
- load_config()
- test_configs()
- else
- setup_wizard()
- end
- end
- start()
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement