server = 37 -- put the server's computer id here
loginServer = 34 -- put the log-in server's computer id here
makeUserServer = 35 -- put the make user server's computer id
cursor = "=> " -- this is the cursor for the welcome screen
cursor2 = ">> " -- this is the cursor for the actual Minebook

--31 18

function testLogIn()
shell.run("clear")
if msg1 == "YOU HAVE BEEN LOGGED IN" then
print(msg1..": "..crntname)
term.setCursorBlink(false)
read()
else
print(msg1)
term.setCursorBlink(false)
read()
end
if msg1 == "YOU HAVE BEEN LOGGED IN" then
mineBook()
else
loadRandomCrap()
end
end

function errorQuit()
a = jkfdls+fjdsjfal
print(a)
end

function searchUser()
shell.run("clear")
term.write("ENTER USER: ")
user2 = read()
if user2 ~= crntname then
sndsrch = crntname.."!SP!search!SP!"..user2
rednet.send(server, sndsrch)
id3, msg3, d3 = rednet.receive(5)
if msg3 ~= nil then
srch = split(msg3, "!SP!")
nuser = srch[1]
nstatus = srch[2]
nfriends = srch[3]
if nstatus == nil then
nstatus = ""
end
shell.run("clear")
print("|||||||||||||||||||||||||||")
print("||                       ||")
print("||  USER SEARCH RESULTS  ||")
print("||                       ||")
print("|||||||||||||||||||||||||||")
print("")
print("")
print("User Name: "..nuser)
print("")
print("Status: "..nstatus)
print("")
print("")
print("PRESS S TO SEND FRIEND REQUEST OR E TO EXIT")
while true do
event9, param9 = os.pullEvent()
if event9 == "key" and param9 == 31 and nuser then
sndmsg = crntname.."!SP!sndfrq!SP!"..nuser
shell.run("clear")
rednet.send(server, sndmsg)
id8, msg8, d8 = rednet.receive(1)
if msg8 ~= nil then
print("REQUEST SENT")
read()
loadRandomCrap2()
break
else
print("YOU ARE ALREADY FRIENDS WITH THIS PERSON")
read()
loadRandomCrap2()
break
end
elseif event9 == "key" and param9 == 18 then
loadRandomCrap2()
break
end
end
else
shell.run("clear")
print("SERVER ERROR")
read()
loadRandomCrap2()
end
else
shell.run("clear")
print("YOU CAN NOT SEARCH YOURSELF")
sleep(1)
loadRandomCrap2()
end
end

function prntFrq()
shell.run("clear")
print("FRIEND REQUESTS")
print("")
print(frq[gcur])
print("")
print("PRESS A TO ACCEPT OR D TO DECLINE")
end

function printFrndReq()
gcur = 1
prntFrq()
while true do
event2, param2 = os.pullEvent()
if event2 == "key" and param2 == 30 then
shell.run("clear")
print("USER ADDED")
ju = crntname.."!SP!add friend!SP!"..frq[gcur]
rednet.send(37, ju)
gcur = gcur+1
read()
if gcur > gmax then
loadRandomCrap2()
break
else
prntFrq()
end
elseif event2 == "key" and param2 == 32 then
shell.run("clear")
print("USER DECLINED")
gcur = gcur+1
read()
if gcur > gmax then
loadRandomCrap2()
break
else
prntFrq()
end
end
end
end

function checkFrndReq()
jk = crntname.."!SP!chck frnd req"
rednet.send(server, jk)
id, msg, d = rednet.receive(5)
if msg ~= nil then
frq = split(msg, "!SP!")
gmax = #frq
gmin = 1
if gmax >= gmin then
shell.run("clear")
printFrndReq()
else
shell.run("clear")
print("NO NEW REQUESTS")
read()
end
loadRandomCrap2()
end
end

function updateStatus()
shell.run("clear")
stat = read()
h = crntname.."!SP!status update!SP!"..stat
rednet.send(server, h)
g = fs.open("MINEBOOK/STATUS", "w")
g.write(stat)
g.close()
end

function listFriends()
y = "list"
x = crntname.."!SP!"..y
rednet.send(server, x)
id, msg, d = rednet.receive(4)
if msg == nil then
shell.run("clear")
print("ERROR")
read()
loadRandomCrap2()
else
shell.run("clear")
r = split(msg, "!SP!")
print("FRIEND LIST")
textutils.tabulate(r)
read()
loadRandomCrap2()
end
end

function testLogInTwo()
shell.run("clear")
print(msg2)
term.setCursorBlink(false)
read()
end

function OpenAll()
        for _,side in ipairs(rs.getSides()) do
                rednet.open(side)
        end
end

function mineBook()

w1 = "Search"
w2 = "Change Status"
w3 = "Friends"
w4 = "Check Friend Request"
w5 = "Exit"

min = 1
max = 5
cur = min

function doThings2()
if cur == 3 then
	listFriends()
elseif cur == 4 then
	checkFrndReq()
elseif cur == 1 then
	searchUser()
elseif cur == 2 then
	updateStatus()
	loadRandomCrap2()
end
end


function loadRandomCrap2()
OpenAll()
term.clear()
term.setCursorPos(1,1)
y = fs.open("MINEBOOK/STATUS", "a")
y.close()
l = fs.open("MINEBOOK/STATUS", "r")
ju = l.readAll()
crntstatus = ju
print("|----------------------|      WELLCOME: "..crntname)
print("|     MineBook 1.0     |")
print("|   in the beginning   |")
print("|----------------------|")
print("")
print("")
print("STATUS: "..ju)
if cur == 1 then
	term.setCursorPos(1,9)
	print(""..cursor2..""..w1.."")
else
	term.setCursorPos(1,9)
	print(w1)
end
if cur == 2 then
	term.setCursorPos(1,10)
	print(""..cursor2..""..w2.."")
else
	term.setCursorPos(1,10)
	print(w2)
end
if cur == 3 then
	term.setCursorPos(1,11)
	print(""..cursor2..""..w3.."")
else
	term.setCursorPos(1,11)
	print(w3)
end
if cur == 4 then
	term.setCursorPos(1,12)
	print(""..cursor2..""..w4.."")
else
	term.setCursorPos(1,12)
	print(w4)
end
if cur == 5 then
	term.setCursorPos(1,13)
	print(""..cursor2..""..w5.."")
else
	term.setCursorPos(1,13)
	print(w5)
end
end

function runMineBook()
loadRandomCrap2()
while true do
  event, param1 = os.pullEvent()
  if event == "key" and param1 == 200 then
   if cur == min then
        cur = max
        loadRandomCrap2()
   else
        cur = cur-1
        loadRandomCrap2()
   end
  elseif event == "key" and param1 == 208 then
   if cur == max then
        cur = min
        loadRandomCrap2()
   else
        cur = cur+1
        loadRandomCrap2()
   end
  elseif event == "key" and param1 == 28 then
   if cur == 5 then
	shell.run("clear")
	min = 1
	max = 4
	cur = min
	loadRandomCrap()
	break
   end
 	doThings2()
  end
 end
end

runMineBook()
end

function split(str, pat)
  local t = { }
  local fpat = "(.-)"..pat
  local last_end = 1
  local s, e, cap = str:find(fpat, 1)
  while s do
    if s ~= 1 or cap ~= "" then
      table.insert(t,cap)
    end
    last_end = e+1
    s, e, cap = str:find(fpat, last_end)
  end
  if last_end <= #str then
    cap = str:sub(last_end)
    table.insert(t, cap)
  end
  return t
end

min = 1
max = 4
cur = min

function makeUser()
shell.run("clear")
term.write("ENTER DESIRED USERNAME: ")
term.setCursorPos(1,3)
term.write("ENTER DESIRED PASSWORD: ")
term.setCursorPos(1,5)
term.write("RE-ENTER DESIRED PASSWORD: ")
term.setCursorPos(26,1)
dusrnm = read()
term.setCursorPos(26,3)
dpw = read("*")
term.setCursorPos(29,5)
rdpw = read("*")
if dpw == rdpw then
y = dusrnm.."!SP!"..dpw
rednet.send(makeUserServer, y)
id2, msg2, d2 = rednet.receive(1)
if msg2 == nil then
shell.run("clear")
print("SERVER ERROR")
read()
runProgram()
else
username = dusrnm
rednet.send(server, username"!SP!status update!SP!DEFAULT STATUS")
testLogInTwo()
end
else
shell.run("clear")
print("PASSWORDS DO NOT MATCH")
read()
end
end

function logIn()
shell.run("clear")
term.write("ENTER USERNAME: ")
term.setCursorPos(1,3)
term.write("ENTER PASSWORD: ")
term.setCursorPos(17,1)
usrnm = read()
term.setCursorPos(17,3)
pswrd = read("*")
x = usrnm.."!SP!"..pswrd
rednet.send(loginServer, x)
id1, msg1, d1 = rednet.receive(1)
if msg1 == nil then
shell.run("clear")
print("SERVER ERROR")
read()
runProgram()
else
if msg1 == "YOU HAVE BEEN LOGGED IN" then
crntname = usrnm
testLogIn()
else
testLogIn()
end
end
end

term.setCursorBlink(false)
cursor = "=> "

s1 = "Log In"
s2 = "Make Account"
s3 = "Open Rednet Ports"
s4 = "Exit"

function doThings()
if cur == 3 then
	OpenAll()
	loadRandomCrap()
elseif cur == 1 then
	logIn()
elseif cur == 2 then
	makeUser()
	loadRandomCrap()
end
end


function loadRandomCrap()

OpenAll()
term.clear()
term.setCursorPos(1,1)
print("|----------------------|")
print("|     MineBook 1.0     |")
print("|   in the beginning   |")
print("|----------------------|")
if cur == 1 then
	term.setCursorPos(1,7)
	print(""..cursor..""..s1.."")
else
	term.setCursorPos(1,7)
	print(s1)
end
if cur == 2 then
	term.setCursorPos(1,8)
	print(""..cursor..""..s2.."")
else
	term.setCursorPos(1,8)
	print(s2)
end
if cur == 3 then
	term.setCursorPos(1,9)
	print(""..cursor..""..s3.."")
else
	term.setCursorPos(1,9)
	print(s3)
end
if cur == 4 then
	term.setCursorPos(1,10)
	print(""..cursor..""..s4.."")
else
	term.setCursorPos(1,10)
	print(s4)
end
end

function runProgram()
fs.makeDir("MINEBOOK")

min = 1
max = 4
cur = min

loadRandomCrap()
while true do
  event, param1 = os.pullEvent()
  if event == "key" and param1 == 200 then
   if cur == min then
        cur = max
        loadRandomCrap()
   else
        cur = cur-1
        loadRandomCrap()
   end
  elseif event == "key" and param1 == 208 then
   if cur == max then
        cur = min
        loadRandomCrap()
   else
        cur = cur+1
        loadRandomCrap()
   end
  elseif event == "key" and param1 == 28 then
   if cur == 4 then
    break
   end
    doThings()
  end
 end
end

fs.makeDir("MINEBOOK")
runProgram()