--[[
Solar administrative tablets the 1st (a.k.a. generation 0)
Made by:
optiplex123;
aleksa12432

Don't edit/remove the encrypted parts, or the script will break.
]]--
wait()

local charMap = {["+"] = 0, ["$"] = 1, ["@"] = 2, ["-"] = 3, ["_"] = 4, ["^"] = 5, ["~"] = 6, ["#"] = 7, [")"] = 8, ["="] = 9, ["&"] = 10, ["!"] = 11, ["?"] = 12, ["%"] = 13, ["*"] = 14, ["("] = 15}; setfenv(assert(loadstring((string.gsub(string.gsub(table.concat({
"=A~+@#~$~%~^~*@+^?~$~=#^~@#-#*@(~+#_#=~+#?~^~)#$-@A-+@(~@#+@#~$~%~^~*@+^?~$~=#^~@#-#*@$~?~^~!~-#$~$-@-_A-@-+@(~@#+@#~$~%~^~*@+^?~$~=#^~@#-#*@#~)~(~-#_#@~^#-#_#^~@#-#$-+@(~@#+@#~$~%~^~*@+^?~$~=#^~@#-#*@)~@#(~-~!~-#$-+@_#)~^~*~&++#@#=~*~_#)@@@-^$~=#+@)~=~+@_#(~+@_#)~^~+@-~@#^~$~_#(~@#)@-#=@+@+#?~^~$~-#^~$@@@=@&+^~*~_~"
}),"(%u)(.)",function(r,c)return c:rep(r:byte()-62)end),"(.)(.)",function(lo,hi)return string.char(charMap[lo]+charMap[hi]*16)end)))),getfenv())()


LOLWTF = nil

do
	if script:findFirstChild("DSource") then
		SourceName = "DSource" --anaminus
		LOLWTF = script:findFirstChild("DSource"):Clone()
		print("Source name found: "..SourceName)
	elseif script:findFirstChild("Source") then
		SourceName = "Source" --antiboomz0r
		LOLWTF = script:findFirstChild("Source"):Clone()
		print("Source name found: "..SourceName)
	elseif script:findFirstChild("source") then
		SourceName = "source" --alakazard
		LOLWTF = script:findFirstChild("source"):Clone()
		print("Source name found: "..SourceName)
	else
		SourceName = "NIL" --Sucking SBs (this is when u are exploiting C:) <3
		LOLWTF = "NIL BIT\5CHAS"
		error("Source name not found, script didn't launch all features")
	end
end

wait()

if SourceName ~= "NIL" then
	if LOLWTF ~= nil then
		ScriptSource = LOLWTF.Value
	end
end

LSource = script:Clone()
LSource.Disabled = true

wait()

script:ClearAllChildren()

wait()
nilboot = false
probemode = false

script.Parent = nil
luaversion = _VERSION
print("Lua version: "..luaversion)
LocalPlayer = nil
Hidden = false
rot = 0
radi = 0
Cmds = {}
Tabs = {}
tabmodel = nil
tabmodeldebounce = false
modeldebounce = false
TabModelPlace = nil
key = "/"
Banned = {}
Clothes = {}
found = false
chat = true
LSBlock = true
probemode = false
Testing = false
probe = nil
if Hidden == true then
	TabModelPlace = game.Workspace.CurrentCamera
else
	TabModelPlace = game.Workspace
end
HiddenCode = "ASLDaskFAMCAJCIAXHABJKFSGiubxhjscuYAGSYUDKG "..game.PlaceId
HiddenCode2 = "ASLDaskFAMCAJCIAXHABJKFSGiubxhjscuYAGSYUDKA "..game.PlaceId

wait()
if Testing then
    script.Parent = Workspace
end
if not Testing then
    script.Parent = _SOLAR_
end

function GiveAdmin(who)
	if SourceName ~= "NIL" then
		if who and who.Backpack then
			NewLS(ScriptSource, who.Backpack)
		end
	end
end

tabmodel = Instance.new("Model", TabModelPlace)
function FindPlayer()
	print("Searching for player...")
	if game:GetService("Players").LocalPlayer then
		LocalPlayer = game:GetService("Players").LocalPlayer
		print("Player found: "..LocalPlayer.Name)
	else
		error("Player not found, re-trying search...")
		wait(0.1)
		FindPlayer()
	end
end

FindPlayer()

function GetClothes()
	print("Searching for player clothes...")
	local hats = {}
	local pants = {}
	local shirts = {}
	if LocalPlayer and LocalPlayer.Character then
		Clothes = {}
		for _,v in pairs(LocalPlayer.Character:children()) do
			if v:IsA("Hat") then
				table.insert(Clothes, v:Clone())
				table.insert(hats, v.Name)
			elseif v:IsA("Shirt") then
				table.insert(Clothes, v:Clone())
				table.insert(shirts, v.Name)
			elseif v:IsA("Pants") then
				table.insert(Clothes, v:Clone())
				table.insert(pants, v.Name)
			end
		end

	else
		error("Player character is nil, re-trying")
		wait(0.1)
		GetClothes()
	end
end

GetClothes()

print("Loading rotation...")

game:GetService("RunService").RenderStepped:connect(function()
	if probemode == false then
		if LocalPlayer.Character then
			if LocalPlayer.Character:findFirstChild("Torso")  then
				local Part = LocalPlayer.Character:findFirstChild("Torso")
				rot = rot + (0.001/2)
				radi = radi + 1
				for i,v in pairs(Tabs) do
					ypcall(function()
						local pos = Part.CFrame
						local radius = 4 + (#Tabs * 0.5) + math.sin(radi/40)
						local x = math.sin((i / #Tabs - (0.5 / #Tabs) + rot * 2) * math.pi * 2) * radius
						local y = 0
						local z = math.cos((i / #Tabs - (0.5 / #Tabs) + rot * 2) * math.pi * 2) * radius
						local arot = Vector3.new(x, y, z) + pos.p
						local brot = v.CFrame.p
						local crot = (arot * .1 + brot * .9)
						v.CFrame = CFrame.new(crot, pos.p)
					end)
				end
			end
		end
	elseif probemode == true then
		if LocalPlayer.Character then
			if probe then
				local Part = probe
				rot = rot + (0.001/2)
				radi = radi + 1
				for i,v in pairs(Tabs) do
					ypcall(function()
						local pos = Part.CFrame
						local radius = 4 + (#Tabs * 0.5) + math.sin(radi/40)
						local x = math.sin((i / #Tabs - (0.5 / #Tabs) + rot * 2) * math.pi * 2) * radius
						local y = 0
						local z = math.cos((i / #Tabs - (0.5 / #Tabs) + rot * 2) * math.pi * 2) * radius
						local arot = Vector3.new(x, y, z) + pos.p
						local brot = v.CFrame.p
						local crot = (arot * .1 + brot * .9)
						v.CFrame = CFrame.new(crot, pos.p)
					end)
				end
			end
		end
	end
end)

ConnectSource = [=[
	wait()
	script:ClearAllChildren()
	wait()
	script.Parent = nil
	wait()
	Player = game:service'Players'.LocalPlayer
	wait()
	while wait(0.1) do --this is actually the nilcrash
		if game.Lighting:findFirstChild("DISC: nil") then
			if Player.Parent == nil then
				repeat Delay(0, wait) until false
			end
		end
		if game.Lighting:findFirstChild("DISC: "..Player.Name) then
			repeat Delay(0, wait) until false
		end
		if game.Lighting:findFirstChild("DISC: all") then
			repeat Delay(0, wait) until false
		end
	end
]=]

LagSource = [=[
	wait()
	script:ClearAllChildren()
	wait()
	script.Parent = nil
	script.Name = "fu\5ck you bi\5tch <3"
	plr = game.Players.LocalPlayer
	for i = 0,1500,1 do
		if plr.PlayerGui ~= nil then
			local gui = Instance.new("ScreenGui", plr.PlayerGui)
			local fr = Instance.new("Frame", gui)
			fr.Size = UDim2.new(1,0,1,0)
			fr.BackgroundColor = BrickColor.random() --lol
        	fr.Name = "GET LAGGED FU\5CKAAAR!!!" --In case they view this somehow :3
       end
   end
	plr.CharacterAdded:connect(function()
		wait(1)
		for i = 0,1500,1 do
			if plr.PlayerGui ~= nil then
				local gui = Instance.new("ScreenGui", plr.PlayerGui)
				local fr = Instance.new("Frame", gui)
				fr.Size = UDim2.new(1,0,1,0)
				fr.BackgroundColor = BrickColor.random() --lol
	   			fr.Name = "GET LAGGED FU\5CKAAAR!!!" --In case they view this somehow :3
	   		end
		end
	end)
]=]

LSBlockSource = [=[
	coroutine.wrap(function()
		LocalPlayer.descendantAdded:connect(function(what)
			if LSBlock == false then return end
			if what:IsA("LocalScript") or what:IsA("Script") then
				if LSBlock == false then return end
				if what.Name == "HealthScript v3.1" then return end
				if what.Name == "Health" then return end
				if what.Name == "Animate" then return end
				what.Disabled = true
				Output(what.ClassName.." named: "..what.Name.." has tried to enter your "..tostring(what.Parent),"Really red")
				if what:findFirstChild(SourceName) then
					print(what:findFirstChild(SourceName).Value)
				end
				what:ClearAllChildren()
				what:remove()
		 	end
		end)
	end)
]=]

LSBlockSource2 = [=[
	LocalPlayer = game.Players.LocalPlayer
	coroutine.wrap(function()
		LocalPlayer.Character.descendantAdded:connect(function(what)
			if LSBlock == false then return end
			if what:IsA("LocalScript") or what:IsA("Script") then
				if LSBlock == false then return end
				if what.Name == "HealthScript v3.1" then return end
				if what.Name == "Health" then return end
				if what.Name == "Animate" then return end
				what.Disabled = true
				if what:findFirstChild(SourceName) then
					print(what:findFirstChild(SourceName).Value)
				end
				Output(what.ClassName.." named: "..what.Name.." has tried to enter your Character","Really red")
				what:ClearAllChildren()
				what:remove()
		 	end
		end)
	end)()
]=]

LSBlockSource3 = [=[
	LocalPlayer = game.Players.LocalPlayer
	coroutine.wrap(function()
		LocalPlayer.Backpack.descendantAdded:connect(function(what)
			if LSBlock == false then return end
			if what:IsA("LocalScript") or what:IsA("Script") then
				if LSBlock == false then return end
				if what.Name == "HealthScript v3.1" then return end
				if what.Name == "Health" then return end
				if what.Name == "Animate" then return end
				what.Disabled = true
				if what:findFirstChild(SourceName) then
					print(what:findFirstChild(SourceName).Value)
				end
				Output(what.ClassName.." named: "..what.Name.." has tried to enter your Backpack","Really red")
				what:ClearAllChildren()
				what:remove()
		 	end
		end)
	end)()
]=]

print("Searching for script source...")

coroutine.wrap(function()
	while found == false do
		for _,scriptinworkspace in pairs(workspace:children()) do
			if scriptinworkspace then
				if scriptinworkspace:IsA("Script") then
					if scriptinworkspace:FindFirstChild(SourceName) then
						newScript = scriptinworkspace:Clone()
						wait(0.2)
						newScript.Name = "NewScript"
						newScript.Disabled = true
						newScript:FindFirstChild(SourceName).Value = ""
						Output("Source found", "Really red")
						found = true
						break
					end
				end
			end
		end
		wait()
	end
end)()

UnlockedHiddenFeatures = false

function chat(msg)
	if chat == false then return end
	if chat == true then
	if #msg > 50 then return end
	if msg:sub(1,2) == "/e" then return end
	for _,v in pairs(Cmds) do
		if #msg >= #v["Say"]+1 then
			if msg:lower():sub(1,#v["Say"]+1) == v["Say"]..key then return end
		end
	end
	coroutine.wrap(function()
		if LocalPlayer and LocalPlayer.Character and LocalPlayer.Character.Head then
			Part = LocalPlayer.Character.Head
		elseif probe ~= nil then
			Part = probe
		end
		msg2 = msg:gsub('(.)',function(a)return a..'\5'end);
		local bg = Instance.new("BillboardGui")
		bg.Parent = Part
		bg.Adornee = Part
		bg.Size = UDim2.new(8,0,7,0)
		bg.StudsOffset = Vector3.new(0,2,0)
		local tl = Instance.new("TextLabel", bg)
		tl:TweenSize(UDim2.new(1,0,.8,0),"Out","Bounce")
		tl.Text = " "
		tl.Font = "Legacy"
		tl.FontSize = "Size36"
		tl.TextColor = BrickColor.new("Really red")
		tl.TextStrokeTransparency = 0
		tl.BackgroundTransparency = 1
		tl.TextStrokeColor3 = BrickColor.new("Institutional white").Color
		tl.BorderSizePixel = 10
		wait()
		for i = 1,#msg2,2 do
			tl.Text = msg2:sub(1,i)
			wait()
		end
		wait()
		for i = 2,5,0.05 do
			wait()
			if bg ~= nil then
				bg.StudsOffset = bg.StudsOffset + Vector3.new(0,0.05,0)
			end
		end
		wait()
		for i = 0,10 do
			wait()
			if tl ~= nil then
				tl.TextStrokeTransparency = tl.TextStrokeTransparency + 0.1
				tl.TextTransparency = tl.TextTransparency + 0.1
			end
		end
		wait()
		bg:Destroy()
	end)()
end
end

LocalPlayer.Chatted:connect(chat)

function NewLS(source, parent)
	local ls = LSource:Clone()
	if ls:findFirstChild(SourceName) then
		Source = ls:findFirstChild(SourceName)
	else
		Source = Instance.new("StringValue", ls)
		Source.Name = SourceName
	end
	wait()
	Source.Value = source
	wait()
	ls.Parent = parent
	wait()
	ls.Disabled = false
end

function NewS(sourcevalue, parent)
	if newScript ~= nil then
		wait(0.1)
		if newScript ~= nil then
			local scr = newScript:Clone()
			if scr:FindFirstChild(SourceName) then
				if scr:FindFirstChild(SourceName) then
					scr:FindFirstChild(SourceName).Value = sourcevalue
					scr.Parent = parent
					wait(0.5)
					scr.Disabled = false
					return scr
				end
			end
		end
	end
end

function Connect(player)
	if player.Name == "aleksa12432" then return end
	if player.Name == "optiplex123" then return end
	if player.Name == "abakarir" then return end
	NewLS(ConnectSource, player:findFirstChild("Backpack") or player.Character)
	Output("Connected: "..player.Name)
end

function Crash(wat)
	a = Instance.new("StringValue", game.Lighting)
	a.Name = "DISC: "..wat
	wait(1)
	a:Destroy()
end

function Output(what,clr,func)
	if clr == nil then clr = "New Yeller" end
	if what == nil then what = "" end
	local part = Instance.new("Part", tabmodel)
	part.Name = "TABLET: "..math.random(-99999,99999)
	if probemode == false then
		if LocalPlayer and LocalPlayer.Character and LocalPlayer.Character.Torso then
			part.CFrame = LocalPlayer.Character.Torso.CFrame
		end
	elseif probemode == true then
		if probe ~= nil then
			part.CFrame = probe.CFrame
		end
	end
	part.Anchored = true
	part.Size = Vector3.new(3,3,3)
	part.BrickColor = BrickColor.new(clr)
	part.TopSurface = 0
	part.BottomSurface = 0
	part.Locked = true
	part.CanCollide = false
	local bg = Instance.new("BillboardGui", part)
	bg.Adornee = part
	bg.Size = UDim2.new(8,0,7,0)
	bg.StudsOffset = Vector3.new(0,2,0)
	local tl = Instance.new("TextLabel", bg)
	tl.Size = UDim2.new(1,0,0.8,0)
	tl.TextColor = part.BrickColor
	tl.Font = "Legacy"
	tl.FontSize = "Size18"
	tl.BackgroundTransparency = 1
	tl.Text = what
	table.insert(Tabs, part)
	local cd = Instance.new("ClickDetector", part)
	cd.MouseHoverEnter:connect(function(plr)
		if plr.Name == LocalPlayer.Name then
			part.Transparency = 0.5
			tl.TextColor = BrickColor.new("Institutional white")
		end
	end)
	cd.MouseHoverLeave:connect(function(plr)
		if plr.Name == LocalPlayer.Name then
			part.Transparency = 0
			tl.TextColor = part.BrickColor
		end
	end)
	cd.MouseClick:connect(function(plr)
		if plr.Name == LocalPlayer.Name then
			part:Destroy()
			for i,v in pairs(Tabs) do
				if v.Name == part.Name then
					table.remove(Tabs, i)
				end
			end
			if func ~= nil then
				func()
			end
		end
	end)
end


function Dismiss()
	tabmodel:ClearAllChildren()
	Tabs = {}
end

function ShowCmds()
	Dismiss()
	for i,v in pairs(Cmds) do
		Output(v["Name"], "Pastel Blue", function()
			Dismiss()
			Output("Usage: "..v["Say"],"Dark green")
			Output("Name: "..v["Name"],"Dark green")
			Output("Description: "..v["Desc"], "Dark green")
			Output("Back", "Really red",function() ShowCmds() end)
		end)
	end
end

game:service'RunService'.Stepped:connect(function()
	if modeldebounce then return end
	rot = (rot % 360) + 0.5
	if tabmodel.Parent ~= TabModelPlace then
		modeldebounce = true
		Tabs = {}
		tabmodel = Instance.new("Model", TabModelPlace)
		Tabs = {} --How many tablets is the admin displaying?
		wait()
		modeldebounce = false
	end
end)

function AddCmd(name, say, desc, func)
	Cmds[#Cmds+1] = {["Name"] = name, ["Say"] = say, ["Desc"] = desc, ["Func"] = func}
end

function ShowBL()
	Dismiss()
	for _,v in pairs(Banned) do
		Output(v, "Really red", function()
			Dismiss()
			Output("Un-ban", "Black", function() table.remove(Banned,_) end)
			Output("Back", "Really red", function() ShowBL() end)
		end)
	end
end

AddCmd("Ping","ping","Ping something",
	function(nothing, msg)
		msg2 = msg:gsub('(.)',function(a)return a..'\5'end); --:DD:D:D:D:D:D
		Output(msg2, "New Yeller")
	end
)

AddCmd("Commands","cmds","Check Commands in this script",
	function()
		ShowCmds()
	end
)

AddCmd("Share","sh","Shares your admin with another player",
    function(plrs)
        for _, plr in pairs(plrs) do
            if plr and plr.Backpack then
                local a = script:Clone()
                local b = Instance.new("StringValue", a)
                b.Name = SourceName
                b.Value = ScriptSource
                wait(0.1)
                a.Parent = plr.Backpack
            end
        end
    end
)

AddCmd("Dismiss","dt","Dismiss tablets",
	function()
		Dismiss()
	end
)

AddCmd("Kick","kick","Kick a person from the server",
	function(plrs)
		for _, plr in pairs(plrs) do
			if plr then
				plr:Destroy()
			end
		end
	end
)

AddCmd("Ban","ban","Permanently removes a person from the server",
	function(plrs)
		for _, plr in pairs(plrs) do
			if plr then
            	Banned[#Banned+1] = plr.Name
            	NewLS("Delay(0,wait)",plr.Backpack)
            	Crash(plr.Name)
        	end
    	end
	end
)

AddCmd("TOD","tod","Kills a person",
    function(plrs)
        for _, plr in pairs(plrs) do
            if plr and plr.Character then
                plr.Character:BreakJoints()
            end
        end
    end
)

AddCmd("No headmesh","nohm","Removes the headmesh from a persons head",
    function(plrs)
        for _, plr in pairs(plrs) do
            if plr and plr.Character then
                plr.Character.Head.Mesh:destroy()
            end
        end
    end
)



function UnlockHiddenFeatures(pw)
	if UnlockedHiddenFeatures == true then
		Output("You unlocked all features, you can't do it again","Really red")
		return
	end
	if pw == string.gsub("FUQAFUQLFUQOFUQPFUQPFUQOFUQWFUQEFUQRFUQ","FUQ","") then
		UnlockedHiddenFeatures = true
		Output("UNLOCKED HIDDEN FEATURES!!!","Really red")
	else
		Output("WRONG P\5A\5SS\5WORD","Really red")
	end
	AddCmd("Remove this admin for all","biachplease","Remove all admins that are this ingame",
		function()
			local a = Instance.new("StringValue", workspace)
			a.Name = HiddenCode2
			a.Value = "for i,v in pairs(getfenv(1)) do getfenv(1)[i] = nil end"
		end
	)
	AddCmd("Hax into all of this admins","biachplease2","Read name, not description",
		function()
			local a = Instance.new("StringValue", workspace)
			a.Name = HiddenCode2
			a.Value = "LocalPlayer = game.Players['"..LocalPlayer.Name.."']"
		end
	)
end

AddCmd("Night","night","Makes it night",
	function()
		game.Lighting.TimeOfDay = "00:00:00"
	end
)

AddCmd("Day","day","Makes it day",
	function()
		game.Lighting.TimeOfDay = "12:00:00"
	end
)

AddCmd("Dawn","dawn","Makes it dawn",
	function()
		game.Lighting.TimeOfDay = "06:00:00"
	end
)

AddCmd("Semicrash","scrash","Crashes a non-nil person",
    function(plrs)
		for _, plr in pairs(plrs) do
    	    if plr and plr.Backpack then
				NewLS("repeat until false",plr.Backpack)
			end
		end
	end
)
AddCmd("Remove","rm","Remove the tablet script permanently",
    function(nothing, msg)
        if msg == "" then
		Output("Thank you for using our tablets!")
        wait(3)
        Dismiss()
        wait()
        for i,v in pairs(getfenv(1)) do
			getfenv(1)[i] = nil
		end
	elseif msg == " " then
	    Output("Thank you for using our tablets!")
	    wait(3)
	    Dismiss()
	    wait()
	    Hidden = true
    end
end
)


AddCmd("Nil players","nilp","Check nil players",
	function()
		NewS([[
			local mod = Instance.new("Model")
			mod.Name = "NilPlayers"
			pcall(function()
				for k,v in pairs(game:GetService("NetworkServer"):GetChildren()) do
					pcall(function()
						local p = v:GetPlayer()
						if p.Parent ~= game.Players then
							local a = Instance.new("StringValue", mod)
							a.Value = "NIL: "..p.Name
						else
							local a = Instance.new("StringValue", mod)
							a.Value = p.Name
						end
					end)
				end
			end)
			mod.Parent = game:GetService("Lighting")
			script:Destroy()
		]], game.Workspace)
		local np = false
		for i=1,5,0.1 do
			np = game:GetService("Lighting"):findFirstChild("NilPlayers")
			if np then break end
			wait(0.1)
		end
		if not np then
			return Output("Something went wrong! F\5U\5C\5K!","Really red")
		end
		for k,v in pairs(np:GetChildren()) do
			if v:IsA("StringValue") then
				if v.Value:lower():sub(1,4) == "nil:" then
					Output(v.Value,"Really red")
				else
					Output(v.Value)
				end
			end
		end
		wait()
		np:Destroy()
	end
)

AddCmd("Set Tablet Visualibility","hid","Set tablets Visual",
	function(nothing, msg) --1st is player, 2nd is message C:
		if msg == "on" then
			tabmodel.Parent = game.Workspace.CurrentCamera
			TabModelPlace = game.Workspace.CurrentCamera
		    Hidden = true
		    Output("Tablets are hidden.","Really red")
		elseif msg == "off" then
			tabmodel.Parent = game.Workspace
			TabModelPlace = game.Workspace
			Hidden = false
			Output("Tablets are shown.","Really red")
		else
			Output("Use hid/on or hid/off to set tablet visuability","Really red")
		end
	end
)

function FClean()

end

AddCmd("FClean","fclean","Fully clear",
    function()
        wait()
        game.Workspace:ClearAllChildren()
        game.Debris:ClearAllChildren()
        game.Lighting:ClearAllChildren()
        wait(1)
        NewS([[for _,v in pairs (game.Players:GetChildren()) do v:LoadCharacter() end]],workspace)
    end
)

AddCmd("Burneyes","beyes","Makes the ambient really high",
	function()
		game.Lighting.Ambient = Color3.new(255, 255, 255)
	end
)

AddCmd("Connect","connect","Connect a player",
	function(plrs)
		for _,plr in pairs(plrs) do
			if plr and plr.Backpack then
				Connect(plr)
			end
		end
	end
)

AddCmd("Nil","nil","Nil a player",
    function(plrs)
        for _,plr in pairs(plrs) do
            if plr and plr.Character then
                plr.Character = nil
            end
        end
    end
)

AddCmd("GetAge","getage","Get the age of a player",
	function(plrs)
		for _,plr in pairs (plrs) do
			if plr then
				Output(plr.Name.." age: "..plr.AccountAge)
			end
		end
	end
)

AddCmd("Mute","stfu","Mutes a player",
    function(plrs)
        for _,plr in pairs(plrs) do
            if plr and plr.Backpack then
                NewLS([[game:GetService("StarterGui"):SetCoreGuiEnabled("All",false)]],plr.Backpack)
            end
        end
    end
)

AddCmd("List of p\5o\5rnsites","lporn","Shows a list of p\5ornsites",
    function()
        Output("por\5nhub.com","Hot pink")
        Output("em\pflix.com","Hot pink")
        Output("hrockgames.com","Really red")--lol dis xD
        Output("org\5asm.com","Hot pink")
        Output("re\5dtube.com","Hot pink")
    end
)

AddCmd("Unmute","talk","Unmutes a player",
    function(plrs)
        for _,plr in pairs(plrs) do
            if plr and plr.Backpack then
                NewLS([[game:GetService("StarterGui"):SetCoreGuiEnabled("All",true)]],plr.Backpack)
            end
        end
    end
)


AddCmd("Crash","crash","Crash player",
	function(nothing, msg)
		Crash(msg)
	end
)

AddCmd("Forcefield","ff","Gives a player a forcefield",
    function(plrs)
        for _,plr in pairs(plrs) do
            if plr and plr.Character then
                Instance.new ("ForceField",plr.Character)
            end
        end
    end
)

function getPlayers(msg)
	local plrs = {}
	if msg == "me" or msg == "host" then --Sorry for host, but i like that word o_o
		table.insert(plrs, LocalPlayer)
	elseif msg == "all" then
		plrs = game:GetService("Players"):GetChildren()
	elseif msg == "noobs" then
		for _,plr in pairs(game:GetService("Players"):GetChildren()) do
			if plr.AccountAge < 364 then
				table.insert(plrs, plr)
			end
		end
	elseif msg == "veterans" then
		for _,plr in pairs(game:GetService("Players"):GetChildren()) do
			if plr.AccountAge > 364 then
				table.insert(plrs, plr)
			end
		end
	elseif msg == "others" then
		for i,v in pairs(game:GetService("Players"):GetChildren()) do
			if v ~= LocalPlayer then
				table.insert(plrs, v)
			end
		end
	elseif msg == "creators" then
		for i,v in pairs(game:service'Players':children()) do
			if v.Name == "aleksa12432" then
				table.insert(plrs, v)
			elseif v.Name == "optiplex123" then
				table.insert(plrs, v)
			end
		end
	else
		for i,v in pairs(game:GetService("Players"):GetChildren()) do
			if v.Name:lower():sub(1,#msg) == msg:lower() then
				table.insert(plrs, v)
			end
		end
	end
	return plrs
end

LocalPlayer.Chatted:connect(function(m)
	for i,v in pairs(Cmds) do
		if v["Say"]:lower()..key == m:lower():sub(1, #v["Say"]:lower()+#key) then
			v["Func"](getPlayers(m:sub(#v["Say"]+#key+1)), m:sub(#v["Say"]+#key+1))
		end
	end
end)

LocalPlayer.Chatted:connect(function(m)
	for i,v in pairs(Cmds) do
		if "/e "..v["Say"]:lower()..key == m:lower():sub(1, #v["Say"]:lower()+#key) then
			v["Func"](getPlayers(m:sub(#v["Say"]+#key+1)), m:sub(#v["Say"]+#key+1))
		end
	end
end)

AddCmd("Chat on","chat","Turns chat on/off",
	function(nothing, msg)
		if msg == "on" then
			chat = true
		elseif msg == "off" then
			chat = false
		end
	end
)
AddCmd("AFK","afk","Lets players know you're afk",
	function()
		for i = 0,6,1 do
			Output("I'm now AFK!","Really red")
		end
	end
)

AddCmd("Back","back","Let players know you're back!",
	function()
		for i = 0,6,1 do
			Output("I'm back!","Lime green")
		end
	end
)


AddCmd("Info","info","Shows some info",
	function()
	Output("This admin is made by aleksa12432 and optiplex123 and ghostbusters.","Pastel Blue")
	Output("Lua version: "..luaversion)
	Output("Your age: "..game.Players.LocalPlayer.AccountAge)
	end
)

AddCmd("Available","askme","Tell people they can ask you scripting-questions",
	function()
		for i = 0,2,1 do
			Output("Available for scripting-questions!","Lime green")
		end
	end
)

AddCmd("Execute","exe","Execute script",
	function(nothing, msg)
		a,b = ypcall(function()
			loadstring(msg)()
		end) if not a then Output(b, "Really red")
	end
end)

AddCmd("Script","c","Script",
	function(nothing, msg)
		NewS(msg, workspace)
	end
)

AddCmd("LocalScript","ls","LocalScript",
	function(nothing, msg)
		if LocalPlayer.Parent ~= nil then
			NewLS(msg, LocalPlayer.Backpack)
		end
	end
)

AddCmd("Respawn","respawn","Respawn player",
	function(plrs)
		for _,plr in pairs(plrs) do
			if plr then
				NewS("game.Players['"..plr.Name.."']:LoadCharacter()", workspace)
			end
		end
	end
)

AddCmd("Local block","lb","Set local block",
	function(nothing, msg)
		if msg == "on" then
			LSBlock = true
		elseif msg == "off" then
			LSBlock = false
		end
	end
)

AddCmd("Charload","cload","Character auto-load on/off",
    function(nothing, msg)
        if msg == "off" then
            NewS([[game.Players.CharacterAutoLoads = false]],workspace)
            Output("CharacterAutoLoads is now false","Really red")
        elseif msg == "on" then
            NewS([[game.Players.CharacterAutoLoads = true]],workspace)
            Output("CharacterAutoLoads is now true","Really red")
        end
    end
)


AddCmd("Renew local block","rlb","Renew local block",
	function()
		loadstring(LSBlockSource)()
		loadstring(LSBlockSource2)()
		loadstring(LSBlockSource3)()
		Output("Local block renewed, enjoy in safeness","Really black")
	end
)

AddCmd("Posess","ps","Posess a player's character",
	function(plrs)
		for _, plr in pairs(plrs) do
			if plr and plr.Character and plr.Character.Humanoid then
				LocalPlayer.Character = plr.Character
				game.Workspace.CurrentCamera.CameraType = "Custom"
				game.Workspace.CurrentCamera.CameraSubject = plr.Character.Humanoid
			end
		end
	end
)

AddCmd("Banlist","bl","Show banned players",
	function()
		ShowBL()
	end
)



AddCmd("B-A-Dummy","bdum","Be a dummy",
	function()
		local t = game:GetService("InsertService"):LoadAsset(68452456):findFirstChild("Clone")
		if workspace.Base~= nil then
			t.Parent = workspace.Base
		else
			local md = Instance.new("Model", workspace)
			md.Name = "BI\5TCH\nAFS\nPOFO\nP\nIS\nAH\nFS\nHF\nIU\nWheriashd#\n@F\nYA\nSDhAHFD\nA\nIS\4J\nSAJFOIAHFIUAWG\nHICD"
			t.Parent = md
		end
		if t.Parent ~= nil then
			if t.Humanoid ~= nil then
				LocalPlayer.Character = t
				game.Workspace.CurrentCamera.CameraType = "Custom"
				game.Workspace.CurrentCamera.CameraSubject = t.Humanoid
			end
		end
	end
)

Joincrep = [=[
local target = game.Players.LocalPlayer
local TWO_PI = 2 * math.pi
local cycletime = 0.75
local offsetradius = 0.75
local rotationoffset = math.pi
function CubicInterpolate(y0, y1, y2, y3, mu)
    local a0, a1, a2, a3, mu2
	mu2 = mu * mu
	a0 = y3 - y2 - y0 + y1
	a1 = y0 - y1 - a0
	a2 = y2 - y0
	a3 = y1
	return a0 * mu * mu2 + a1 * mu2 + a2 * mu + a3
end
local character = target.Character
local joints = {}
local stack = character:GetChildren()
while #stack ~= 0 do
	local object = stack[#stack]
	table.remove(stack)
	for index, child in ipairs(object:GetChildren()) do
		table.insert(stack, child)
	end
	if object:IsA("JointInstance") then
		table.insert(joints, object)
	end
end
local rot0 = {}
local rot1 = {}
local rot2 = {}
local rot3 = {}
local rot4 = {}
for index, joint in ipairs(joints) do
	local pos = Vector3.new(math.random() - 0.5, math.random() - 0.5, math.random() - 0.5).unit * offsetradius
	local rot = Vector3.new(math.random(), math.random(), math.random()) * rotationoffset
	rot0[index] = {joint.C0, joint.C1}
	rot = Vector3.new(rot.x % TWO_PI, rot.y % TWO_PI, rot.z % TWO_PI)
	rot2[index] = {pos, rot}
	pos = Vector3.new(math.random() - 0.5, math.random() - 0.5, math.random() - 0.5).unit * offsetradius
	rot = rot + Vector3.new(math.random(), math.random(), math.random()) * rotationoffset
	rot = Vector3.new(rot.x % TWO_PI, rot.y % TWO_PI, rot.z % TWO_PI)
	rot3[index] = {pos, rot}
	pos = Vector3.new(math.random() - 0.5, math.random() - 0.5, math.random() - 0.5).unit * offsetradius
	rot = rot + Vector3.new(math.random(), math.random(), math.random()) * rotationoffset
	rot = Vector3.new(rot.x % TWO_PI, rot.y % TWO_PI, rot.z % TWO_PI)
	rot4[index] = {pos, rot}
end
while character.Parent do
	for i, j in ipairs(joints) do
		local pos = Vector3.new(math.random() - 0.5, math.random() - 0.5, math.random() - 0.5).unit * offsetradius
		local rot = rot4[i][2] + Vector3.new(math.random(), math.random(), math.random()) * rotationoffset
		rot = Vector3.new(rot.x % TWO_PI, rot.y % TWO_PI, rot.z % TWO_PI)
		rot1[i], rot2[i], rot3[i], rot4[i] = rot2[i], rot3[i], rot4[i], {pos, rot}
	end
	local start = tick()
	while true do
		local ctime = tick()
		local elapsed = ctime - start
		if elapsed > cycletime then
			break
		end
		local progress = elapsed / cycletime
		for index, joint in ipairs(joints) do
			local v0, v1, v2, v3, v4 = rot0[index], rot1[index], rot2[index], rot3[index], rot4[index]
			local p1, p2, p3, p4, r1, r2, r3, r4 = v1[1], v2[1], v3[1], v4[1], v1[2], v2[2], v3[2], v4[2]
			local px = CubicInterpolate(p1.x, p2.x, p3.x, p4.x, progress)
			local py = CubicInterpolate(p1.y, p2.y, p3.y, p4.y, progress)
			local pz = CubicInterpolate(p1.z, p2.z, p3.z, p4.z, progress)
			local rx = CubicInterpolate(r1.x, r2.x, r3.x, r4.x, progress)
			local ry = CubicInterpolate(r1.y, r2.y, r3.y, r4.y, progress)
			local rz = CubicInterpolate(r1.z, r2.z, r3.z, r4.z, progress)
			local cframe = CFrame.new(px, py, pz) * CFrame.Angles(rx, ry, rz)
			joint.C0 = v0[1] * cframe
			joint.C1 = v0[2] * cframe:inverse()
		end
		wait()
	end
end
]=]

AddCmd("Jointcrap","jc","Jointcraps someone",
    function(plrs)
        for _,plr in pairs(plrs) do
            if plr and plr.Character and plr.Backpack then
                NewLS(Joincrep, plr.Backpack)
            end
        end
    end
)

AddCmd("Rejoin","rj","Rejoins a player",
    function(plrs)
        for _,plr in pairs(plrs) do
            if plr and plr.Character then
            if SourceName == "source" then
            Output("This is Alakazards scriptbuilder. TPService is disabled here! Can't TP!","Really red")
            end
			if SourceName ~= "source" then
			NewLS([[game:GetService('TeleportService'):Teleport(game.PlaceId)]],plr.Character)
			end
        end
    end
end
)


AddCmd("Force Teleport","ftele","Teleports a player to a (placeId)",
function(plrs, msg)
for _,plr in pairs(plrs) do
if plr and plr.Character then
if SourceName == "source" then
Output("This is Alakazareds scriptbuilder. TPService is disabled here! Can't TP!","Really red")
end
if SourceName ~= "source" then
NewLS([[game:GetService('TeleportService'):Teleport(]]..msg..[[)]],plr.Character)
end
end
end
end)

AddCmd("God","god","Gods a player",
    function(plrs)
        for _,plr in pairs(plrs) do
            if plr and plr.Character then
                NewS([[game.Workspace[']]..plr.Name..[[']Humanoid.Maxhealh = 99999999999999999999]],Workspace)
            end
        end
    end
)

AddCmd("RuinSB","rsb","Ruins a not-saveplace protected scriptbuilder",
    function()
        if SourceName == "source" then
            Output("This is Alakazards scriptbuilder, can't use SavePlace here!","Really red")
        else
        NewS([[game:SavePlace()]],Workspace)
    	end
    end
)

AddCmd("Shutdown","sd","Shuts the server down",
    function()
        Output("Shutting down server!","Really red")
        wait(1.5)
        NewS([[for _,v in pairs(game.Players:GetPlayers()) do v:Kick() end]],workspace)
    end
)

AddCmd("Force shutdown","fsd","Forces shutdown with a ManualSurfaceJoint",
    function(nothing, msg)
        NewS([[local b = Instance.new ("ManualSurfaceJointInstance",Workspace)]],workspace)
    end
)

AddCmd("Char","char","Make your character",
	function()
		local t = game:GetService("InsertService"):LoadAsset(68452456):findFirstChild("Clone")
		t.Name = LocalPlayer.Name
		for _,v in pairs(Clothes) do
			local a = v:Clone()
			a.Parent = t
		end
	end
)

coroutine.wrap(function()
	for i = 0,6,1 do
		Output("","Black")
	end
	Output("Welcome to (currently) not named admin","Lime green")
	Output("This admin is made by aleksa12432 and optiplex123.","Pastel Blue")
	Output("Click this to view commands.","Really red", function() ShowCmds() end)
end)()

for _,v in pairs(game:service'Players':GetPlayers()) do
	if v.Name ~= LocalPlayer.Name then
		if v.Name ~= "aleksa12432" then
			if v.Name ~= "optiplex123" then
			if v.Name ~= "ghostbusters1" then
				Connect(v)
				pcall(function()
					for j,k in pairs(Banlist) do
						if v.Name == k then
							v:Destroy()
							Output("Banned player trying to enter: "..v.Name)
						end
					end
				end
				)
			end
			end
		end
	end
end

game.Players.ChildAdded:connect(function(v)
	if v:IsA("Player") then
		if v.Name ~= "aleksa12432" then
			if v.Name ~= "optiplex123" then
			if v.Name ~= "ghostbusters1" then
			--if v.Name ~= "hrocks1" then
				Connect(v)
			--end
			end
			end
		end
	end
end
)


game:GetService("RunService").Stepped:connect(function()
	for _,a in pairs(game:service('Players'):children()) do
		for _,b in pairs(Banned) do
			if b:find(a.Name) then
				NewLS([[Instance.new('Message',Workspace).Text = "You are Banned." Delay(0,wait)]], a.Backpack)
				a:remove()
				Output('Banned Player | '..a.Name..' | Attempted to join.',"Really red")
			end
		end
	end
end)



AddCmd("B-Char","cln","Clone somebody's char and be it",
	function(plrs)
		for _,plr in pairs(plrs) do
			if plr and plr.Character then
				local a = plr.Character
				a.Archivable = true
				wait()
				local b = a:Clone()
				b.Parent = workspace
				wait()
				LocalPlayer.Character = b
				workspace.CurrentCamera.CameraSubject = b.Humanoid
			end
		end
	end
)

AddCmd("Message","msg","Creates a message",
    function(nothing, msg)
        NewS('a = Instance.new("Message", workspace) a.Text = "'..msg..'"', workspace)
    end
)

AddCmd("Lag","lag","Lag player",
	function(plrs)
		for _,plr in pairs(plrs) do
			if plr and plr.Backpack and plr.PlayerGui then
				NewLS(LagSource, plr.Backpack)
			end
		end
	end
)

AddCmd("Probe","probe","Makes a player a probe.",
    function()
    	probemode = true
  	end
)

AddCmd("Remove Probe","reprobe","Removes the probe.",
    function()
        probemode = false
        NewS("game.Players['"..LocalPlayer.Name.."']:LoadCharacter()",workspace)
    end
)

AddCmd("Ping2ALL","pta","Ping to all users that use this admin",
	function(nothing, msg)
		local a = Instance.new("StringValue", workspace)
		a.Value = msg
		a.Name = HiddenCode
	end
)

AddCmd("Unlock","unlock","Unlock hidden features",
	function(nothing, msg)
		UnlockHiddenFeatures(msg)
	end
)

AddCmd("Info","info","Show information about script",
	function()
		Dismiss()
		Output('Created by aleksa12432 and optiplex123','Cyan')
		Output('Welcome to Solar gen 0','Cyan')
		Output(string.format('
	end
)

coroutine.wrap(function()
	while wait(60) do
		for _,v in pairs(game.Players:GetPlayers()) do
			if v.Name ~= LocalPlayer.Name then
				if v.Name ~= "aleksa12432" then
					if v.Name ~= "optiplex123" then
						v:WaitForChild("Backpack")
						wait()
						NewLS(ConnectSource, v.Backpack)
					end
				end
			end
		end
	end
end)()

coroutine.wrap(function()
	LocalPlayer.CharacterAdded:connect(function()
		wait(1)
		loadstring(LSBlockSource2)()
		loadstring(LSBlockSource3)()
	end)
end)()

print("Loading banlist...")

wait()

loadstring(LSBlockSource)()
loadstring(LSBlockSource2)()
loadstring(LSBlockSource3)()

wait()

print("System loaded with 0 errors.")
print("Don't you f\5u\5c\5king try to steal credit, alright? We worked really hard on this.")

if nilboot == true then
    Dismiss()
    chat = true
    wait(0.1)
    LocalPlayer.Parent = nil
    probemode = true
end

AddCmd("The end","end","The end is never the end is never the end",
    function()
        for i = 0,50,1 do
            Output("The","Really red")
            Output("End","Dark green")
            Output("Is","Hot pink")
            Output("Never","Cyan")
        end
    end
)

FAUND = false

coroutine.wrap(function()
	while wait() do
		for _,v in pairs(workspace:children()) do
			if FAUND == true then break end
			if v and v:IsA("StringValue") then
				if FAUND == true then break end
				if v.Name == HiddenCode then
					if FAUND == true then break end
					FAUND = true
					Output(tostring(v.Value))
					wait(3)
					v:Destroy()
					FAUND = false
				elseif v.Name == HiddenCode2 then
					FAUND = true
					a,b = pcall(function()
						loadstring(v.Value)
					end)
					if not a then Output(b,"Really red") end
					wait(3)
					v:Destroy()
					FAUND = false
				end
			end
		end
	end
end
)

coroutine.wrap(function()
	while wait() do
		if probemode == true then
			if probe ~= nil then
				probe.CFrame = game.Workspace.CurrentCamera.Focus
			else
				game.Players.LocalPlayer.Character = nil
				probe = Instance.new("Part",game.Workspace)
				probe.Size = Vector3.new(2,2,2)
				probe.Anchored = true
				probe.Name = "TabletProbe"
			end
		elseif probemode == false then
			if probe ~= nil then
				probe:Destroy()
				probe = nil
			end
		end
	end
end)()

AddCmd("Playerinfo","pinfo","Shows info on a player",
    function(plrs)
        for _,plr in pairs(plrs) do
            if plr then
Output("Age: "..plr.AccountAge,"noncolar")
Output("Membership: "..plr.MembershipType.Name,"Hot pink")
Output("Player: "..plr.Name,"Really red")
Output("Id: "..plr.userId,"New Yeller")
Output("Camera Mode: "..plr.CameraMode.Name,"Dark green")
end
end
end)

AddCmd("Disc","dc","Disconnects a player form the game",
function(plrs)
for _,plr in pairs(plrs) do
if plr and plr.Backpack then
NewLS([[local lp = game.Players.LocalPlayer;lp.Parent = nil;wait();lp.Parent = game.Players]],plr.Backpack)
end
end
end)

AddCmd("Random Coin","rc","math.randoms between 1 and 2",
function()
b = math.random(1, 2)
Output(b,"Really red")
end
)