Energy Rent 1.0

-- Energy Rent 1.0

-- width monitor 50
-- high monitor 18

term.clear()
TSP = textutils.slowWrite
-- function to generate boxes
function box(x1,x2,y1,y2,titleX,corner,title)
local x,y=1,1
for y=y1,y2 do
    if y==y1 or y==y2 then
        term.setCursorPos(x1,y)
        write(corner)
        for x=x1+1,x2-1 do
        write("-")
        --TSP("-",10) failed attempts to anime the windows  T_T
    end
    write(corner)
    else
        term.setCursorPos(x1,y)
        write("|")
        --TSP("|",10)
        term.setCursorPos(x2,y)
        write("|")
        --TSP("|",10)
    end
        if title > "" then
        term.setCursorPos(titleX,y1)
        write(title)
    end
end
end

-- function to generate the menus
function menu(...)
local sel = 1
local list = {...}
local offX,offY = term.getCursorPos()
local curX,curY = term.getCursorPos()
while true do
    if sel > #list then sel = 1 end
        if sel < 1 then sel = #list end
            for i = 1,#list do
            term.setCursorPos(offX,offY+i-1)
            if sel == i then
                print("#"..list[i].."#")
            else
                print(" "..list[i].." ")
            end
        end
        while true do
            local button,button1 = os.pullEvent()
            if button == "key" then
                if button1 == 200 then -- up key
                    sel = sel-1
                    break
                end
                if button1 == 208 then -- down key
                    sel = sel+1
                    break
                end
                if button1 == 28 then
                    term.setCursorPos(curX,curY)
                    return list[sel],sel
                end
            end
        end
    end
end

-- function to clear a selected area of the screen
function cleararea(...)
local pos={term.getCursorPos()}
local args={...}

for y=args[2], args[2]+args[4]-2 do
    term.setCursorPos(args[1],y)
    write(string.rep(" ",args[3]-args[1]+1))
end
end

-- here should be able to load a table with the name of the admins or users
function login(page)
local mainX,mainY
mainX,mainY = term.getSize()
if page == 1 then
    while true do
        term.clear()
        box(14,36,7,11,mainX/2-4,"*","= LOGIN =")
        term.setCursorPos(mainX/2-9,mainY/2)
        write("Username: ") --name is victor
        local User=read()
        term.setCursorPos(mainX/2-9,mainY/2)
        write("                    ")
        term.setCursorPos(mainX/2-9,mainY/2)
        write("Password: ") --password is victor
        local Pass=read('*')
        term.setCursorPos(mainX/2-9,mainY/2)
        write("                    ")
        if User == "victor" and Pass == "victor" then
            term.setCursorPos(mainX/2-9,mainY/2)
            write("                 ")
            term.setCursorPos(mainX/2-9,mainY/2)
            TSP("Clave correcta")
            sleep(3)
            userspanel(1)
            break
        else
            term.setCursorPos(mainX/2-9,mainY/2)
            write("                 ")
            term.setCursorPos(mainX/2-9,mainY/2)
            TSP("Clave incorrecta")
            sleep(3)
            term.setCursorPos(mainX/2-9,mainY/2)
            write("                    ")
        end
    end
elseif page == 2 then
    while true do
        term.clear()
        box(6,44,7,11,mainX/2-9,"*","= CHANGE PASSWORD =")
        term.setCursorPos(mainX/2-17,mainY/2)
        write("Enter new password: ") --name is victor
        local Pass1=read()
        term.setCursorPos(mainX/2-17,mainY/2)
        write("                              ")
        term.setCursorPos(mainX/2-17,mainY/2)
        write("Repeat password: ") --password is victor
        local Pass2=read('*')
        term.setCursorPos(mainX/2-17,mainY/2)
        write("                              ")
        if Pass1 == Pass2 then--and Pass2 == Pass1 then
            term.setCursorPos(mainX/2-17,mainY/2)
            write("                           ")
            term.setCursorPos(mainX/2-17,mainY/2)
            TSP("Password changed successfully!")
            sleep(3)
            userspanel(1)
            break
        else--if pass1 ~= pass2 then
            term.setCursorPos(mainX/2-17,mainY/2)
            write("                              ")
            term.setCursorPos(mainX/2-17,mainY/2)
            TSP("Password does not match, try again!")
            sleep(3)
            --login(2)
        end
    end
end
end

function userspanel(page)
cleararea(2,2,48,17)
local mainX,mainY
mainX,mainY = term.getSize()
box(1,49,1,18,mainX/2-7,"+","= ENERGY RENT =")
box(2,21,2,8,4,"@","= MAIN =")
term.setCursorPos(4,4)

if page == 1 then
    men1 = menu("Users list","Check sensors","Other...")
elseif page == 2 then
    men1 = menu("Add new user","Change password","Back...", "Exit")
elseif page == 3 then
    men1 = menu("Name","Back...")
end

local selection = men1
    if selection == "Users list" then
        users()
    elseif selection == "Check sensors" then
        sensors()
    elseif selection == "Other..." then
        userspanel(2)
        bRunning = true
    elseif selection == "Add new user" then
        userspanel(3)
    elseif selection == "Name" then
--Here you would have to add the name of the user to the users table
        term.setCursorPos(term.getCursorPos()+7,term.getCursorPos())
        local name=read()
        userspanel(2)
    elseif selection == "Change password" then
        login(2)
    elseif selection == "Back..." then
        userspanel(1)
        bRunning = true
    elseif selection == "Back..." then
        userspanel(1)
        bRunning = true
    elseif selection == "Exit" then
        term.clear()
        login(1)
        bRunning = false
    end
end

function users()
box(21,48,2,17,24,"@","= USERS =")
term.setCursorPos(23,4)

--here should be able to load a table
local selection = menu("user1","user2","Back...")
    if selection == "user1" then
        --cleararea(2,2,48,15)
        userinfo()
    elseif  selection == "user2" then
        --cleararea(2,2,48,15)
        userinfo()
    elseif selection == "Back..." then
        cleararea(2,2,48,15)
        userspanel(1)
        bRunning = false
    end
end

function userinfo()
--here should be able to load a table
box(2,21,8,17,4,"@","= USER INFO =")
term.setCursorPos(4,9)
print("Plot: ")
term.setCursorPos(4,10)
print("User: ")
term.setCursorPos(4,12)
print("Coordinates: ")
term.setCursorPos(4,14)
print("Energy expended: ")
users()
end

function sensors()
box(21,48,2,17,24,"@","= SENSOR =")
term.setCursorPos(23,4)
-- here should be able to load a table
local selection = menu("sensor1","sensor2","Back...")
    if selection == "sensor1" then
        sensorinfo()
    elseif  selection == "sensor2" then
        sensorinfo()
    elseif selection == "Back..." then
        cleararea(2,2,48,15)
        userspanel(1)
        bRunning = false
    end
end

function sensorinfo()
--cleararea(2,2,30,15)
--here should be able to load a table
box(2,21,8,17,4,"@","= SENSOR INFO =")
term.setCursorPos(4,9)
print("Plot: ")
term.setCursorPos(4,10)
print("User: ")
term.setCursorPos(4,12)
print("Type: ")
term.setCursorPos(4,14)
print("sensor hired? ")
sensors()
end

login(1)