playerlist1

local tbl = { a = "top", b = "bottom", c = "left", d = "right", f = "front", g = "back" }
table.foreach(tbl,
function(k, v)
 if peripheral.isPresent(v) then
  if peripheral.getType(v) == "modem" then
   print("open modem")
   rednet.open(v)
  end
 end
end)
shell.run("clear")
print("Playerlist:")
print("")
pid=1
if not fs.exists("player"..pid) then
 file=fs.open("player"..pid,"w")
 name="M3veronMast3r"
 file.writeLine(name)
 file.close()
end
while fs.exists("player"..pid) do
 pidt=pid
 pid=1
 while fs.exists("player"..pid) do
  pid=pid+1
 end
 pid=pid-1
 pidz=pid
 pid=pidt
 file=fs.open("player"..pid,"r")
 name=file.readLine()
 file.close()
 if fs.exists("players") then
  file=fs.open("players","r")
  ppidz=tonumber(file.readLine())
  if ppidz > pidz then
   pidz = ppidz
  end
  file.close()
 end
 pidx=pid
 online=false
 id, text = rednet.receive()
 if id == 39 then
  table.foreach(text,
  function(k, v)
   if v == name then
    online = true
    if not fs.exists(name) then
     file=fs.open(name,"w")
     Last=1
     file.writeLine(Last)
     file.close()
    end
   end
   if not fs.exists(v) then
    t=1
    for i=1,pidz do
     file=fs.open("player"..pidz,"r")
     if file.readLine == v then
      file.close()
      file=fs.open(v,"w")
      Last=1
      file.writeLine(Last)
      file.close()
      t=0
     else
      file.close()
      if i == pidz then
       if t > 0 then
        pidt=pid
        pid=pidz
        pid=pid+1
        file=fs.open("player"..pid,"w")
        file.writeLine(v)
        pidz=pidz+1
        pid=pidt
        file.close()
        file=fs.open(v,"w")
        Last=1
        file.writeLine(Last)
        file.close()
        t=0
       end
      end
     end
    end
   end
  end)
 end
 if not online == true then
  online = false
 end
 if not fs.exists(name) then
  file=fs.open(name,"w")
  last=1
  file.writeLine(last)
  file.close()
 end
 if online == true then
  file=fs.open(name,"w")
  last=0
  file.writeLine(last)
  file.close()
 end
 if online == false then
  file=fs.open(name,"r")
  last=file.readLine()
  file.close()
  last=last+1
  file=fs.open(name,"w")
  file.writeLine(last)
  file.close()
  seconds=last
  minutes=0
  hours=0
  days=0
  while seconds > 60 do
   minutes=minutes+1
   seconds=seconds-60
  end
  while minutes > 60 do
   hours=hours+1
   minutes=minutes-60
  end
  while hours > 24 do
   days=days+1
   hours=hours-24
  end
 end
 if online == true then
  pid=pid+2
  term.setCursorPos( 1,pid )
  print(name)
  term.setCursorPos( 16,pid )
  local w,h = term.getSize()
  for i=16,w do
   write(" ")
  end
  term.setCursorPos( 20,pid )
  print("Online")
  pid=pid-2
 else
  pid=pid+2
  term.setCursorPos( 1,pid )
  print(name)
  term.setCursorPos( 16,pid )
  local w,h = term.getSize()
  for i=16,w do
   write(" ")
  end
  if w < 30 then
   term.setCursorPos( 16,pid )
   if days < 1 then
    print(hours.."h "..minutes.."m "..seconds.."s ago")
   else
    print(days.."d "..hours.."h "..minutes.."m")
   end
  else
   term.setCursorPos( 20,pid )
   print(days.."d "..hours.."h "..minutes.."m "..seconds.."s ago")
  end
  pid=pid-2
 end
 pid=pid+1
 if not fs.exists("player"..pid) then
  pid=1
  print("")
  print("Players: "..pidz)
  file=fs.open("players","w")
  file.writeLine(pidz)
  file.close()
  sleep(0.5)
 end
end
pid=pid-1