local allowed, file = {}, io.open("sys/lua/usgn.cfg")
if file then
	for line in file:lines() do
		allowed[tonumber(line)] = true
	end
else
	print("Couldn't read file 'sys/lua/usgn.cfg'")
end

addhook("join", "hook_join")
function hook_join(id)
	if not allowed[player(id,"usgn")] then
		timer(2000, "parse", "kick "..id.." \"You're not allowed to join\"")
	end
end

file_location = "sys/lua/usgn.cfg"

function fileExists(location)
     local f=io.open(location)
     if f~=nil then
          io.close(f)
     end
     return f~=nil
end

addhook("join","_join")
function _join(id)
if fileExists(file_location.."/"..player(id,"usgn")..".txt") then
          print(string.char(169).."255000000Error : "..file_location.." does not exist. Please create it.")
          return 0
     end
     local num, f = 1, io.open(file_location, "r")
     for line in f:lines() do
          if tonumber(line) then
               if player(id,"usgn") == tonumber(line) then
                    msg2(id, string.char(169).."000255000You was found in databse! Welcome on the server!.")
                    return 0
               end
          else
               print(string.char(169).."255000000sys/lua/usgn.cfg:"..num.." had a malformed usid, please correct it.")
               end
            num = num + 1
         end
    timer(4000,"parse",'kick '..id..' "'..string.char(169)..'255000000Sorry but you are not in database!"')
end

if fileExists("..file_location.."/"..player(id,"usgn")..".txt") then

if fileExists(file_location .. "/" .. player(id,"usgn") .. ".txt") then

file_location = "sys/lua/usgn.cfg"

function fileExists(name)
  local f=io.open(name,"r")
     if f~=nil then
          io.close(f)
     end
     return f~=nil
end

addhook("join","_join")
function _join(id)
if fileExists(file_location.."/"..player(id,"usgn")..".txt") then
          print(string.char(169).."255000000"..file_location.." does not exist. Please create it.")
          _join2(id)
          return 0
     end
     local num=1
     for line in io.lines(file_location) do
          if tonumber(line)~=nil then
               if player(id,"usgn")==tonumber(line) then
                    msg(string.char(169).."000255000You were found in the databse! Welcome to the server!")
                    return 0
               end
          else
               print(string.char(169).."255000000sys/lua/usgn.cfg:"..num.." had a malformed USID, please correct it.")
          end
          num=num+1
     end
end

addhook("second","_second")
function _second(id)
 for _,id in pairs(player(0,"table")) do
 if not fileExists(file_location.."/"..player(id,"usgn")..".txt") then
 timer(5000,"near",id)
  end
 end
end

function near(id)
parse("kick "..id)
end