startup

local termWidth, termHeight = term.getSize()
local selectedItem = 1
local onMainMenu = true
local username=nil
local sendFreq=1338
local returnFreq=1337
local modem=peripheral.wrap("back")
if fs.exists(".user") then
  file = fs.open(".user","r")
  username=file.readLine()
  file.close()
end

function Choice1()
  term.clear()
  term.setCursorPos(1,1)
  print("Password for "..username..":")
  input = read("*")
  modem.open(returnFreq)
  modem.transmit(sendFreq,returnFreq,"getcode,"..username..","..input)
  local a,b,c,d,e=os.pullEvent("modem_message")
  print(e)
  read()
end

function Choice2()
  term.clear()
  term.setCursorPos(1,1)
  print("Old Password:")
  old=read("*")
  print("New Password:")
  new=read("*")
  print("Again:")
  newR=read("*")
  if (new~=newR) then
    print("Passwords do not match")
  else
    modem.open(returnFreq)
    modem.transmit(sendFreq,returnFreq,"changepass,"..username..","..old..","..new)
    local a,b,c,d,e=os.pullEvent("modem_message")
    print(e)
  end
  sleep(1)
end

function Choice3()
term.clear()
term.setCursorPos(1,1)
print("Change Username:")
input = read()
username=input
file=fs.open(".user","w")
file.write(input)
file.close()
end

function newUser()
  term.clear()
  term.setCursorPos(1,1)
  print("New Username:")
  user=read()
  print("Password:")
  pass=read("*")
  print("Again:")
  passR=read("*")
  if (pass~=passR) then
    print("Passwords do not match")
  else
    modem.open(returnFreq)
    modem.transmit(sendFreq,returnFreq,"makepass,"..user..","..pass)
    local a,b,c,d,e=os.pullEvent("modem_message")
    print(e)
    if e=="User added" then
      username=user
      file=fs.open(".user","w")
      file.write(username)
      file.close()
    end
  end
  sleep(1)
end

function delUser()
  print("Password:")
  p=read("*")
  modem.open(returnFreq)
  modem.transmit(sendFreq,returnFreq,"removepass,"..username..","..p..",0")
  local a,b,c,d,e=os.pullEvent("modem_message")
  print(e)
  sleep(1)
end
function chgNew()
  print("Password:")
  p=read("*")
  print("Enable or disable?(E/D)")
  ans=read()
  modem.open(returnFreq)
  if ans=="e" or ans=="E" then
    modem.transmit(sendFreq, returnFreq, "changenew,"..username..","..p..",true")
  elseif ans=="d" or ans=="D" then
    modem.transmit(sendFreq,returnFreq,"changenew,"..username..","..p..",false")
  end
  local a,b,c,d,e=os.pullEvent("modem_message")
  print(e)
  sleep(1)
end
function Exit()
 onMainMenu = false
end

mainMenu = {
[1] = { text = "Get Code", handler = Choice1 },
[2] = { text = "Change Password", handler = Choice2 },
[3] = { text = "Change Username", handler = Choice3 },
[4] = { text = "Create New User", handler = newUser },
[5] = { text = "Delete Current User", handler = delUser },
[6] = { text = "Allow new users[Admin]",handler=chgNew },
[7] = { text = "Exit", handler = Exit }
}

function printMenu( menu )
if username==nil then
  print("Hello\nPlease set a username")
else
  print("Hello, "..username)
end
 for i=1,#menu do
  if i == selectedItem then
   print(">> "..menu[i].text)
  else
   print("   "..menu[i].text)
  end
 end
end

function onKeyPressed( key, menu )
 if key == keys.enter then
  onItemSelected(menu)
 elseif key == keys.up then
  if selectedItem > 1 then
   selectedItem = selectedItem - 1
  end
 elseif key == keys.down then
  if selectedItem < #menu then
   selectedItem = selectedItem + 1
  end
 end
end

function onItemSelected( menu )
 menu[selectedItem].handler()
end

function main()
 while onMainMenu do
  term.clear()
  term.setCursorPos(1,1)
  printMenu(mainMenu)
  event, key = os.pullEvent("key")
  onKeyPressed(key,mainMenu)
 end
end

main()