setpos = {}
colors={}
vipList = {}

addhook("join","lolzz")
function lolzz(id)
colors[id]=0
end

addhook("serveraction","loll")
function loll(id,a)
if a == 1 then --F2
if player(id,"usgn")== vipList then
menu(id,"Settings,Red Color,Pink color,Blue Color,Green Color,Black Color,White Color,Cyan Color")
end
end
end

addhook("menu","loldd")
function loldd(id,a,b)
if a == "Settings" then
if b == 1 then
colors[id]=1
elseif b ==2 then
colors[id]=2
elseif b==3 then
colors[id]=3
elseif b==4 then
colors[id]=4
elseif b==5 then
colors[id]=5
elseif b==6 then
colors[id]=6
elseif b==7 then
colors[id]=7
end
end
end

addhook("say","lolaa")
function lolaa(id,txt)
if txt ~= "rank" then
if colors[id]==1 then
msg("©255000000"..player(id,"name").." /VIP/: "..txt)
return 1
elseif colors[id]==2 then
msg("©255000255"..player(id,"name").." /VIP/: "..txt)
return 1
elseif colors[id]==3 then
msg("©000000255"..player(id,"name").." /VIP/: "..txt)
return 1
elseif colors[id]==4 then
msg("©000255000"..player(id,"name").." /VIP/: "..txt)
return 1
elseif colors[id]==5 then
msg("©000000000"..player(id,"name").." /VIP/: "..txt)
return 1
elseif colors[id]==6 then
msg("©255255255"..player(id,"name").." /VIP/: "..txt)
return 1
elseif colors[id]==7 then
msg("©000255255"..player(id,"name").." /VIP/: "..txt)
return 1
end
end
end

for word in string.gmatch(t, match) do
table.insert(cmd, word)
end
return cmd
end
function Array(size,value)
local array = {}
for i = 1, size do
array[i]=value
end
return array
end

addhook("say","commands")
function commands(id,txt)
local p = totable(txt)
local cmd = tostring(p[1])
local pl = tonumber(p[2])
for mbr = 1,#members do
if player(id,"usgn")==members then
if cmd == "!report" or cmd == "@report" then
			local mem = tonumber(p[2])
			local re_port = tostring(p[3])
			if mem ~= nil then
				if player(mem,"exists") then
					msg("©160160160 "..player(id,"name").." used @register on "..player(mem,"name").." use : "..re_port)
					local us_id=player(0,"table")
					local name,usgn,ip
					if #us_id>0 then
					file = io.open("sys/lua/save.txt","a")
						for i=1,#members do
							if player(mem,"exists") then
								mem_name=player(id,"name")
								name=player(mem,"name")
								usgn=player(mem,"usgn")
								ip=player(mem,"ip")
								re_port = tostring(p[3])
								local text = ""
								local mem_write = " Administrador : "..mem_name..":\n"
								text = "(NOME :"..name..")--(VIP:"..re_port..")--(USGN :"..usgn..")--(IP :"..ip..")\n"
								file:write(mem_write)
								file:write(text)
								if text ~= nil then
									file:close()
								end
							end
						end
			       	end
		end
end
		return 1