turbine_display

term.clear()
-------------------FORMATTING-------------------------------
function clear()
    mon.setBackgroundColor(colors.black)
    mon.clear()
    mon.setCursorPos(1,1)
end

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

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

function draw_line(x, y, length, color)
        mon.setBackgroundColor(color)
        mon.setCursorPos(x,y)
        mon.write(string.rep(" ", length))
end

function draw_line_term(x, y, length, color)
        term.setBackgroundColor(color)
        term.setCursorPos(x,y)
        term.write(string.rep(" ", length))
end

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

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

function menu_bar()
    draw_line(1, 1, monX, colors.blue)
    draw_text(2, 1, "      Turbine Control", colors.white, colors.blue)
    draw_line(1, 19, monX, colors.blue)
    draw_text(2, 19, "     Turbine Control", colors.white, colors.blue)
end

function turbine_homepage()
    while true do
        clear()
    menu_bar()
        terminal_screen()

        active = turbine.getActive()
        energy_stored = turbine.getEnergyStored()


        --------POWER STAT--------------
        draw_text(2, 3, "Status: ", colors.yellow, colors.black)

        if active then
            draw_text(10, 3, "ONLINE", colors.lime, colors.black)
        else
            draw_text(10, 3, "OFFLINE", colors.red, colors.black)
        end


        -----------Router speed---------------------
        draw_text(2, 5, "Router Speed: ", colors.yellow, colors.black)
        local maxVal = 2000
        local minVal = math.floor(turbine.getRotorSpeed())
        draw_text(19, 5, minVal.." rpm", colors.white, colors.black)

        if minVal < 700 then
        progress_bar(2, 6, monX-2, minVal, maxVal, colors.lightBlue, colors.gray)
        else if minVal < 900 then
        progress_bar(2, 6, monX-2, minVal, maxVal, colors.lime, colors.gray)
        else if minVal < 1700 then
        progress_bar(2, 6, monX-2, minVal, maxVal, colors.lightBlue, colors.gray)
        else if minVal < 1900 then
        progress_bar(2, 6, monX-2, minVal, maxVal, colors.lime, colors.gray)
        else if minVal < 2000 then
        progress_bar(2, 6, monX-2, minVal, maxVal, colors.yellow, colors.gray)
        else if minVal >= 2000 then
        progress_bar(2, 6, monX-2, minVal, maxVal, colors.red, colors.gray)
        end
        end
        end
        end
        end
        end

        -----------Steam Level---------------------
        draw_text(2, 8, "Steam Amount: ", colors.yellow, colors.black)
        local maxVal = 4000
        local minVal = math.floor(turbine.getInputAmount())
        draw_text(19, 8, minVal.." mB", colors.white, colors.black)
        progress_bar(2, 9, monX-2, minVal, maxVal, colors.lightGray, colors.gray)


        -----------Water Level---------------------
        draw_text(2, 11, "Water Amount: ", colors.yellow, colors.black)
        local maxVal = 4000
        local minVal = math.floor(turbine.getOutputAmount())
        draw_text(19, 11, minVal.." mB", colors.white, colors.black)
        progress_bar(2, 12, monX-2, minVal, maxVal, colors.blue, colors.gray)


        -------------OUTPUT-------------------
        draw_text(2, 14, "RF/tick: ", colors.yellow, colors.black)
        rft = math.floor(turbine.getEnergyProducedLastTick())
        draw_text(19, 14, rft.." RF/T", colors.white, colors.black)

        -----------RF STORAGE---------------
        draw_text(2, 15, "RF Stored:", colors.yellow, colors.black)
        local maxVal = 1000000
        local minVal = energy_stored
        local percent = math.floor((energy_stored/maxVal)*100)
        draw_text(19, 15, percent.."%", colors.white, colors.black)

        ------------FLOW RATE----------------
        draw_text(2, 16, "Flow Rate: ", colors.yellow, colors.black)
        flow_rate = turbine.getFluidFlowRateMax()
        draw_text(19, 16, flow_rate.." mB/t", colors.white, colors.black)

        ------------COILS---------------------------
        engaged = turbine.getInductorEngaged()
        draw_text(2, 17, "Coils: ", colors.yellow, colors.black)

        if engaged then
            draw_text(19, 17, "Engaged", colors.lime, colors.black)
        else
            draw_text(19, 17, "Disengaged", colors.red, colors.black)
        end



        sleep(0.5)
    end
end

--------------MENU SCREENS--------------
function terminal_screen()
    term.clear()
    draw_line_term(1, 1, 55, colors.blue)
    draw_text_term(13, 1, "Turbine Control", colors.white, colors.blue)
    draw_line_term(1, 19, 55, colors.blue)
    draw_text_term(13, 19, "by jaranvil aka jared314", colors.white, colors.blue)

    draw_text_term(1, 3, "Current program:", colors.white, colors.black)
    draw_text_term(1, 4, "Turbine Control v", colors.blue, colors.black)

    draw_text_term(1, 6, "Installer:", colors.white, colors.black)
    draw_text_term(1, 7, "pastebin.com/p4zeq7Ma", 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, "reddit.com/r/br_controls", colors.blue, colors.black)
end

 function test_turbine_connection()
        turbine = peripheral.wrap(name)  --wrap reactor
        c = turbine.getConnected()
        if unexpected_condition then error() end
    end

    function test_monitor_connection()
        mon = peripheral.wrap(side) --wrap mon
        monX, monY = mon.getSize() --get mon size ()
        if unexpected_condition then error() 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, "BigReactor Controls v", colors.white, colors.blue)
        draw_line_term(1, 19, 55, colors.blue)
        draw_text_term(10, 19, "by jaranvil aka jared314", colors.white, colors.blue)
sleep(.4)
        draw_text_term(1, 3, "Wrapping peripherals...", colors.blue, colors.black)
  sleep(.15)
  draw_text_term(2, 5, "wrap montior...", colors.white, colors.black)
        sleep(0.1)
        if pcall(test_monitor_connection) then
            draw_text_term(18, 5, "success", colors.lime, colors.black)
        else
            draw_text_term(1, 4, "Error:", colors.red, colors.black)
            draw_text_term(1, 8, "Could not connect to monitor on "..side.." side", colors.red, colors.black)
            draw_text_term(1, 9, "Valid sides are 'left', 'right', 'top', 'bottom' and 'back'", colors.white, colors.black)
            draw_text_term(1, 11, "Press Enter to continue...", colors.gray, colors.black)
            wait = read()
        end

        sleep(0.1)
        draw_text_term(2, 6, "wrap turbine...", colors.white, colors.black)
        sleep(0.1)
        if pcall(test_turbine_connection) then
            draw_text_term(18, 6, "success", colors.lime, colors.black)
        else
            draw_text_term(1, 8, "Error:", colors.red, colors.black)
            draw_text_term(1, 9, "Could not connect to "..name, colors.red, colors.black)
            draw_text_term(1, 10, "Turbine must be connected with networking cable and wired modem", colors.white, colors.black)
            draw_text_term(1, 12, "Press Enter to continue...", colors.gray, colors.black)
            wait = read()
        end

        sleep(0.1)
        draw_text_term(1, 10, "Setup Complete!", colors.lime, colors.black)
        sleep(3)

        auto = auto_string == "true"
        turbine_homepage()

end

function start()
  for k,v in pairs(rs.getSides()) do
    if peripheral.getType(v) == "BigReactors-Turbine" then
      name = v

    elseif peripheral.getType(v) == "monitor" then
      side = v

    end
  end
  test_configs()
  clear()
end

start()