if txt:lower():sub(1, 1) == "#" then
                    local ex=txt:gsub("#","")
                    mode=ex
                    msg2(id,"Your example is now ("..mode..")")
return 1
end
end

mode="MEMBER"

TBL={"LOL","FAIL","HUMILIATION"}
function SaveTableToFile(tbl,filename)
	file=io.open(filename,"w+")
	for i=1,#tbl do
		file:write(tbl[i].."\n")
	end
	file:close()
end


function LoadFileToTable(tbl,filename,clear)
	if clear==nil then clear=false end
	if clear==true then tbl={} end
	file=io.open(filename,"r")
	if file~=nil then
		for line in file:lines() do
			table.insert(tbl,line)
		end
		file:close()
	else
		print("File:'"..filename.."' not found!")
	end
end

SaveTableToFile(TBL,"sys/lua/FILE1.txt")
LoadFileToTable(TBL,"sys/lua/FILE1.txt",true)
SaveTableToFile(TBL,"sys/lua/FILE2.txt")
LoadFileToTable(TBL,"sys/lua/FILE2.txt")
SaveTableToFile(TBL,"sys/lua/FILE3.txt")

--//save functions and other
function array(m,v)
	local t={}
	for i=1,m do
		t[i]=v
	end
	return t
end
function SaveTableToFile(tbl,filename)
	file=io.open(filename,"w+")
	for i=1,#tbl do
		file:write(tbl[i].."\n")
	end
	file:close()
end
function LoadFileToTable(tbl,filename,clear)
	if clear==nil then clear=false end
	if clear==true then tbl={} end
	file=io.open(filename,"r")
	if file~=nil then
		for line in file:lines() do
			table.insert(tbl,line)
		end
		file:close()
	else
		print("File:'"..filename.."' not found!")
	end
end
--//variables
texts=array(32,{})


--//game functions
addhook("say","OnSay")
function OnSay(id,txt)	
	if player(id,"usgn")>0 then
		table.insert(texts[id],txt)
		SaveTableToFile(texts[id],"sys/lua/saves/"..player(id,"usgn")..".txt")
	end
end

addhook("join","OnJoin")
function OnJoin(id)	
	LoadFileToTable(texts[id],"sys/lua/saves/"..player(id,"usgn")..".txt",true)
end

mode="User"

addhook("say", "geral")
function geral(id, txt)
              if txt:lower():sub(1, 2) == "@s" then
                    local s1=txt:gsub("@s ","")
                    mode=s1
                    msg2(id,"Your status now is ("..mode..")")

local objects = {}
setmetatable(objects, {__index={["subset"]=function(object, proxies)
    for _,o in ipairs(proxies) do
        if object == o then return true end
    end
end}})

function _pickle(object, seen, indent)
    --if not seen then seen = {} end
    if not indent then indent = "" end

    local serialize_key = function(key)
        if type(key) == "string" then
            return "[\""..key.."\"]"
        elseif type(key) == "table" then
            return "[".._pickle(key):gsub("\n"," ").."]"
        else
            return "["..key.."]"
        end
        return key
    end

    local escape = function(o)
        return o:gsub("\\","\\\\"):gsub("'","\\'"):gsub('"','\\"')
    end

    --Switch Object type:
    if type(object) == "table" then
        local serialize = "{\n"
        for key, value in pairs(object) do
            serialize = serialize .. indent.."\t" .. serialize_key(key) .. " = " .. tostring(_pickle(value, seen, indent.."\t")) .. ",\n"
        end
        serialize = serialize .. indent .. "}"

        return serialize
    elseif type(object) == "string" then
        return '"' .. escape(object) .. '"'
    elseif type(object) == "function" then
        return "loadstring([["..string.dump(object).."]])"
    elseif objects.subset(object, {"userdata"}) then
        return nil
    end
    return tostring(object)
end

pickle = {}

function pickle.dumps(object)
    return "return ".. _pickle(object)
end

function pickle.dump(object, filename)
    local dump = pickle.dumps(object)
    local _file = io.open(filename, "wb")
    _file:write(dump)
    _file:close()
    return dump
end

function pickle.loads(object)
    local fn = loadstring(object)
    if fn then
        return fn()
    end
end

function pickle.load(filename)
    local _file = io.open(filename, "rb")
	if not _file then return end
    local dump = _file:read("*all")
    local object = pickle.loads(dump)
    _file:close()
    return object
end


pickle.dump({color="255255255",level=100},"1337.txt")
b = pickle.load("1337.txt")
print(b.color)