sPhone/src/apps/buddies.lua

local w, h = term.getSize()
local users
local function clear()
  term.setBackgroundColor(colors.white)
  term.clear()
  term.setCursorPos(1,1)
  term.setTextColor(colors.black)
end
local function header(aR, xChar)
  if not xChar then
    local xChar = "X"
  end
  local w, h = term.getSize()
  paintutils.drawLine(1,1,w,1,colors.brown)
  term.setTextColor(colors.white)
  if aR then
    term.setCursorPos(2,1)
    write("Add")
    term.setCursorPos(7,1)
    write("Remove")
  end
  term.setCursorPos(w,1)
  write(xChar)
end

users = {}

if fs.exists("/.sPhone/config/buddies") then
  local f = fs.open("/.sPhone/config/buddies", "r")
  repeat
    local line = f.readLine()
    table.insert(users, line)
  until not line
  f.close()
end

local function add()
  clear()
  header(false, "<")
  term.setBackgroundColor(colors.white)
  term.setTextColor(colors.black)
  term.setCursorPos(2,3)
  visum.align("center", "  Name",false,3)
  term.setCursorPos(2,5)
  term.setCursorBlink(true)
  local e,_,x,y = os.pullEvent()
  if e == "mouse_click" then
    if y == 1 and x == w then
      return
    end
  end
  addUser = read()
  term.setCursorBlink(false)
  local check = http.post("http://sertex.x10.bz/exists.php","user="..addUser).readLine()
  
  if check == "true" then
    table.insert(users,add)
    local f = fs.open("/.sPhone/config/buddies", "a")
    f.write(addUser.."\n")
    f.close()
    sPhone.winOk("Added!")
  else
    sPhone.winOk("User does", "not exist!")
  end
end

local function remove()
  while true do
    clear()
    header(false, "<")
    term.setBackgroundColor(colors.white)
    term.setTextColor(colors.black)
    term.setCursorPos(1,2)
    for i = 1, #users do
      print(users[i])
    end
    _,_,x,y = os.pullEvent("mouse_click")
    if y == 1 and x == w then
      return
    elseif y ~= 1 then
      userToRemove = users[y-1]
      if userToRemove then
        if sPhone.yesNo("Remove "..userToRemove.."?",nil) then
          local f = fs.open("/.sPhone/config/buddies", "w")
          oldUsers = users
          users = {}
          for i = 1, #oldUsers do
            if oldUsers[i] ~= oldUsers[y-1] then
              f.writeLine(oldUsers[i])
              table.insert(users, oldUsers[i])
            end
          end
          f.close()
        end
      end
    end
  end
end



while true do
  local function redraw()
    clear()
    header(true, "X")
    term.setBackgroundColor(colors.white)
    term.setTextColor(colors.black)
    
    for i = 1, #users do
      print(users[i])
    end
  end
  redraw()
  local _,_,x,y = os.pullEvent("mouse_click")
  if y == 1 then
    if x >= 2 and x <= 4 then
      add()
    elseif x >= 7 and x <= 12 then
      remove()
    elseif x == w then
      return
    end
  else
    if users[y-1] then
      shell.run("/.sPhone/apps/sms", users[y-1])
    end
  end
end