Reactor Controler - ERRORED

-- BigReactor Control
-- by SparkyBearBomb
-- Original by jaranvil aka jared314
--
-- feel free to use and/or modify this code
--
-----------------------------------------------
--Reactor Control - Version History
--
-- 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 = 1.7
--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
local updateSeconds = 30
local updateTimer = 0
local UpdateAvailable = false
local newVersion = 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()
  if UpdateAvailable == true then
  draw_line(1, 1, monX, colors.blue)
  draw_line(4, 1, monX, colors.gold)
  else
  draw_line(1, 1, monX, colors.blue)
  end
  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

--periodically check for updates
function updateCheck()
  if updateTimer > updateSeconds then
  if (fs.exists("version.txt")) == true then
  fs.delete("version.txt")
  end
  currentVer = fs.open("version.txt","w")
  currentVer.write(version)
  currentVer.close()
  if (multishell.getCount()) < 2 then
  multishell.launch({shell-shell},"reactor_control_updater")
  end
  if fs.exists("updater.txt") then
  local ver = fs.open("updater", "r")
  updateAvaliable = ver.readline()
  end
  updateTimer = 0
  else
  updateTimer = updateTimer + 1
  end
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()
  if UpdateAvailable == true then
  draw_line(12, 2, 18, colors.gold)
  else
  draw_line(12, 2, 18, colors.gray)
  end
  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

--check for updates

------------------------END FORMATTING--------------------------

--
function homepage()
  while true do
  clear()
  menu_bar()
  terminal_screen()
  --updateCheck()

  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)
  draw_text(21, 21, "(Auto)", colors.red, 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 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

  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 Power", 11)
  draw_text(5, 5, "Enabled", colors.lime, colors.white)
  draw_text(15, 5, " disable ", colors.white, colors.black)

  draw_text(5, 7, "ON when storage =", colors.gray, colors.white)
  draw_text(5, 8, " - ", colors.white, colors.black)
  draw_text(13, 8, on.."% RF", colors.black, colors.white)
  draw_text(22, 8, " + ", colors.white, colors.black)

  draw_text(5, 10, "OFF when storage =", colors.gray, colors.white)
  draw_text(5, 11, " - ", colors.white, colors.black)
  draw_text(13, 11, off.."% RF", colors.black, colors.white)
  draw_text(22, 11, " + ", colors.white, colors.black)

  draw_text(11, 13, " Save ", colors.white, colors.black)

  local event, side, xPos, yPos = os.pullEvent("monitor_touch")

  --disable auto
  if yPos == 5 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 == 8 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 == 11 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 == 13 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()
  else
  popup_screen(3, "Auto Power", 5)
  draw_text(5, 5, "Disabled", colors.red, colors.white)
  draw_text(15, 5, " enable ", colors.white, colors.gray)
  draw_text(11, 7, "Okay", 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

  if yPos == 5 then
  if xPos >= 15 and xPos <= 21 then
  auto_string = "true"
  save_config()
  auto_off()
  else
  auto_off()
  end
  else
  auto_off()
  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()