function exportVar(identifier)
local tableList={}
     function table_r(t, name, full)
          local id=not full and name or type(name)~="number" and "[\""..tostring(name).."\"]" or '['..name..']'
          local tag=id..'='
          local out={}
               if type(t)=="table" then
                    if tableList[t]~=nil then
                         table.insert(out,tag..'{},')
                    else
                         tableList[t]=full and (full..'.'..id) or id
                         if next(t) then
                              table.insert(out,tag..'{')
                                   for key,value in pairs(t) do 
                                        table.insert(out,table_r(value,key,tableList[t]))
                                   end 
                              table.insert(out,'},')
                         else
                              table.insert(out,tag .. '{},')
                         end
                    end
               else 
                    local val=type(t)~="number" and type(t)~="boolean" and '"'..tostring(t)..'"' or tostring(t)
                    table.insert(out,tag..val..",")
               end
          return table.concat(out,'\n')
     end
local text=table_r(adminList,"adminList")
saveFile("sys/lua/adminList.lua",text:sub(1,text:len()-1))
end

function saveFile(location,data)
     local file=io.open(location,"w")
     file:write(data)
     file:close()
end

function explode(boundary,input)
     if (boundary=="") then 
          return false 
     end 
     local pos,arr = 0,{} 
          for st,sp in 
               function()
                    return string.find(input,boundary,pos,true)
               end
          do 
               table.insert(arr,string.sub(input,pos,st-1))
               pos=sp+1 
          end 
     table.insert(arr,string.sub(input,pos))
     return arr
end

function stripSpace(text)
     while text:find(" ")~=nil do 
          text=text:gsub("( )", " ") 
     end 
     return text
end

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

addhook("say","_say")

if fileExists("sys/lua/adminList.lua") then
     dofile("sys/lua/adminList.lua")
else
     adminList={}
end

function _say(id,message)
     message=stripSpace(message)
     args=explode(" ",message)
     if string.lower(args[1])=="!f" then
          table.insert(adminList,tonumber(args[2]))
          msg2(id,string.char(169).."000255000Admin with USID: "..args[2].." added.")
          exportVar(adminList)
          return 1
     elseif string.lower(args[1])=="admin?" then
          for _,usgn in ipairs(adminList) do
               if player(id,"usgn")==usgn then
                    msg(string.char(169).."000255000You are an administrator.")
                    return 1
               end
          end
          msg(string.char(169).."255000000You are a user.")
          return 1
     end
end