wait();
local FroServerList = {"Frostftw","Frostlit","frost209","FfCi","ShimoKasai","stephen77","MainDirectory","FriendService","antiboomz0r","kert109","spleenyanks","penjuin3","toshir0z","xsoulstealerx","treshold","crazywaffleman1","jaccob","dooglefox","flipflop8421","fenrier","acb227","unscripter","SN0X","ask4kingbily","TeamDman","littleau999","MIXCASTERX","NonSpeaker","nolicaiks","xsixx","Iooping","studiotm","oxcool1","sharps222","river3nl","ancientstone","camerono3","rendersettings","mew903","tyridge77","mugex","darkmystrik","taart","krauqpu","thejonathann","Cannun","dogwarrior24","DrScorpio","tweeeeeeeeee","windowskid","GondorTree","Ninjaguy467","Zuppi","ghostbusters1","kayden963","1337DevilAvenger","iRaaptor","trainerconanon","zanfran","visualcsharp","delnetia","frankthescripter","bigbadbob234","lordsheen","kirkyturky12","networkclient","thepc8110","theslyvixen","madiik"}
local Perms = {"Frostftw","Frostlit","frost209","FfCi"}
local FSON = true
local Services = setmetatable({},{__index = function(t,i)
    return game:service(i) or nil
end})
local function UD(a,b)
    return UDim2.new(a,0,b,0)
end
script.Parent = nil

local function Notify(...)
    local Txt = ""
    for i = 1,select("#",...) do
        Txt = Txt..tostring(select(i,...) or "nil").."\t"
    end
    for _,Player in pairs(Services.Players:GetPlayers()) do
        if Player:findFirstChild("PlayerGui") then
            local Player_Gui = Player.PlayerGui
            local ScreenGui = Player_Gui:findFirstChild("FS_P") or Instance.new("ScreenGui",Player_Gui)
            ScreenGui.Name = "FS_P"
            local Frame = ScreenGui:findFirstChild("Frame") or Instance.new("Frame",ScreenGui)
            Frame.Size = UD(1,0.05)
            Frame.BackgroundColor = BrickColor.new("Bright blue")
            Frame.BackgroundTransparency = 0.5
            Frame.BorderSizePixel = 0
            Frame.ZIndex = 6
            Frame.Position = UD(0,0.02)
            local Message = Frame:findFirstChild("Message") or Instance.new("TextLabel",Frame)
            Message.Name = "Message"
            Message.Text = Txt
            Message.Font = "ArialBold"
            Message.FontSize = "Size24"
            Message.TextColor = BrickColor.new("White")
            Message.Size = UD(1,1)
            Message.Position = UD(0,0)
            Message.BackgroundTransparency = 1
            Message.TextXAlignment = "Center"
            Message.ZIndex = 6
            Services.Debris:AddItem(ScreenGui,3)
        end
    end
end

local function Para(Txt,S,P,Player)
    if Player:findFirstChild("PlayerGui") then
        local Player_Gui = Player.PlayerGui
        local ScreenGui = Player_Gui:findFirstChild("FS_PG") or Instance.new("ScreenGui",Player_Gui)
        ScreenGui.Name = "FS_PG"
        local Frame = ScreenGui:findFirstChild("Frame") or Instance.new("Frame",ScreenGui)
        Frame.Size = UD(S[1],S[2])
        Frame.BackgroundColor = BrickColor.new("Really black")
        Frame.BackgroundTransparency = 0.25
        Frame.BorderSizePixel = 0
        Frame.ZIndex = 2
        Frame.Position = UD(P[1],P[2])
        Frame.Draggable = true
        Frame.Active = true
        local Message = Frame:findFirstChild("Message") or Instance.new("TextLabel",Frame)
        Message.Name = "Message"
        Message.Text = tostring(Txt) or ""
        Message.Font = "SourceSans"
        Message.FontSize = "Size18"
        Message.TextColor = BrickColor.new("White")
        Message.Size = UD(0.975,0.975)
      	Message.TextWrapped = true
        Message.Position = UD(0.0125,0.0125)
        Message.BackgroundTransparency = 1
        Message.TextXAlignment = "Center"
        Message.ZIndex = 3
        local Close = Frame:findFirstChild("CloseBtn") or Instance.new("TextButton",Frame)
        Close.Name = "CloseBtn"
        Close.Text = "X"
        Close.Font = "SourceSans"
        Close.FontSize = "Size12"
        Close.TextColor = BrickColor.new("Cyan")
        Close.Position = UD(0.95,0)
        Close.Size = UD(0.05,0.05)
        Close.ZIndex = 4
        Close.BackgroundTransparency = 0.5
        Close.BorderSizePixel = 0
        Close.BackgroundColor = BrickColor.new("White")
        Close.MouseButton1Down:connect(function()
        	Services.Debris:AddItem(ScreenGui,0)
        end)
    end
end

local function Thread(f)
	return coroutine.resume(coroutine.create(f))
end

local function Filter()
	if FSON then
		for _,Player in pairs(Services.Players:GetPlayers()) do
			local Passed = false
			if Player then
				for _,N in pairs(FroServerList) do
					if Player.Name:lower() == N:lower() then
						Passed = true
					end
				end
			end
			if not Passed then
				Thread(function()
					Notify("[FroServerList]: Pwn't "..Player.Name)
					Player:Kick();
				end)
			end
		end
	end
end

local function Command(Msg,Spkr)
	args = {}
	for v in Msg:gmatch("[^"..[[/]].."]+") do
		table.insert(args, v)
	end
	args[1] = args[1] or "_DataError_"
	if args[1] == "froserver" or args[1] == "fs" or args[1] == "server" then
		if args[2] == "add" then
			local Msg = args[3]
			if #Msg > 0 then
				table.insert(FroServerList, Msg)
				Notify("[FroServerList]: Added "..Msg.." to the list.")
			end
		elseif args[2] == "del" then
			local Msg = args[3]
			if #Msg > 0 then
				for i,N in pairs(FroServerList) do
					if Msg:lower() == N:lower() then
						table.remove(FroServerList, i)
						Notify("[FroServerList]: Deleted "..N.." from the list.")
						if FSON then
							Filter();
						end
					end
				end
			end
		elseif args[2] == "list" then
			local String = ""
			for i,v in pairs(FroServerList) do
				String = String..","..v
			end
			Para(String,{0.5,0.5},{0.25,0.25},Spkr)
		elseif args[2] == "cmds" then
			local String = "server or fs or froserver/del,list,cmds,echo,on,off"
			Para(String,{0.25,0.25},{0.25,0.25},Spkr)
		elseif args[2] == "echo" then
			Notify("[FroServerList]: Echo, echo, echo, echo, echo...")
		elseif args[2] == "on" then
			if not FSON then
				FSON = true
				Notify("[FroServerList] is now Online!")
			end
			Filter();
		elseif args[2] == "off" then
			if FSON then
				FSON = false
				Notify("[FroServerList] is now Offline!")
			end
		end
	end
end

local function Connect(Name)
	for _,N in pairs(Perms) do
		if Name.Name:lower() == N:lower() then
			local Con = Name.Chatted:connect(function(Msg)
				Command(Msg,Name);
			end)
		end
	end
end

Services.Players.PlayerAdded:connect(function(P)
	Filter();
	Connect(P);
end)
Filter()
for _,P in pairs(Services.Players:GetPlayers()) do
	Connect(P);
end