]]--
--[[STARTUP]]--
wait()
script.Name = "Solar admin"
do
	if script:findFirstChild("DSource") ~= nil then
		SourceName = "DSource"
	elseif script:findFirstChild("Source") ~= nil then
		SourceName = "Source"
	elseif script:findFirstChild("source") ~= nil then
		SourceName = "source"
	else
		SourceName = "No_Source"
	end
end
if SourceName ~= "No_Source" then
	print("Source found: "..SourceName)
elseif SourceName == "No_Source" then
	error("Source not found, script did not load all features")
end
script:ClearAllChildren()
game.Lighting:ClearAllChildren()
wait()
--[[VARIABLES, BOOLEANS AND TABLES]]--
LocalPlayer = game:GetService("Players").LocalPlayer
runService = game:service'RunService'
LSource = script:Clone()
char = nil
key = nil
Mouse = LocalPlayer:GetMouse()
SunMesh = "http://www.roblox.com/asset/?id=1185246"
SunTexture = "http://www.roblox.com/asset/?id=20261287"
ChatColor = "Institutional white"
Code = "SA: "..game.PlaceId
Key = "/"
SunScale = Vector3.new(3,3,3)
HiddenTablets = false
TabModelDebounce = false
DismissTabOn = false
ChatGui = true
LBlock = true
found = false
NilBoot = false
appearTime = 3
Rotation = 0
Speed = 0.0001
Tabs = {}
Cmds = {}
Banlist = {}
HardBanlist = {"ninevolt781","cappertron20","GOLDC3PO","rabbidog","NoobsAttacks","manofthebase44"}
MuteWords = {}
BadWords = {}
Services = {
	game;
	game:service'Workspace';
	game:service'Players';
	game:service'Lighting';
	game:service'StarterGui';
	game:service'StarterPack';
	game:service'Debris';
};
--[[START]]--
if LocalPlayer.Character ~= nil then
	LocalPlayer.Character.Archivable = true
	Char = LocalPlayer.Character:Clone()
end
if NilBoot == true then
	LocalPlayer.Parent = nil
	ChatGui = true
	appear(CFrame.new(0,25,0))
	local a = Char:Clone()
	a.Parent = workspace
	a.Torso.CFrame = CFrame.new(0,25,0)
	LocalPlayer.Character = a
	workspace.CurrentCamera.CameraType = "Custom"
	workspace.CurrentCamera.CameraSubject = a.Humanoid
	wait(5)
	SmoothMovement()
end
MuteWords[#MuteWords+1] = LocalPlayer.Name..":Kick()"
MuteWords[#MuteWords+1] = LocalPlayer.Name..":Destroy()"
MuteWords[#MuteWords+1] = LocalPlayer.Name..":remove()"
MuteWords[#MuteWords+1] = '["'..LocalPlayer.Name..'"]:Kick()'
MuteWords[#MuteWords+1] = "['"..LocalPlayer.Name.."']:Kick()"
MuteWords[#MuteWords+1] = '["'..LocalPlayer.Name..'"]:Destroy()'
MuteWords[#MuteWords+1] = "['"..LocalPlayer.Name.."']:Destory()"
MuteWords[#MuteWords+1] = '["'..LocalPlayer.Name..'"]:remove()'
MuteWords[#MuteWords+1] = "['"..LocalPlayer.Name.."']:remove()"
MuteWords[#MuteWords+1] = "'Players':ClearAllChildren()"
MuteWords[#MuteWords+1] = '"Players":ClearAllChildren()'
MuteWords[#MuteWords+1] = "Players:ClearAllChildren()"--alek SD the server or kick manof
for i = 1,#LocalPlayer.Name,1 do
	MuteWords[#MuteWords+1] = "kick/"..LocalPlayer.Name:sub(1,i)
end
for i = 1,#LocalPlayer.Name,1 do
	MuteWords[#MuteWords+1] = "kick;"..LocalPlayer.Name:sub(1,i)
end
for i = 1,#LocalPlayer.Name,1 do
	MuteWords[#MuteWords+1] = "kick:"..LocalPlayer.Name:sub(1,i)
end
for i = 1,#LocalPlayer.Name,1 do
	MuteWords[#MuteWords+1] = "kick "..LocalPlayer.Name:sub(1,i)
end
for i = 1,#LocalPlayer.Name,1 do
	MuteWords[#MuteWords+1] = ":kick "..LocalPlayer.Name:sub(1,i)
end
for i = 1,#LocalPlayer.Name,1 do
	MuteWords[#MuteWords+1] = "/kick/"..LocalPlayer.Name:sub(1,i)
end
for i = 1,#LocalPlayer.Name,1 do
	MuteWords[#MuteWords+1] = "kick`"..LocalPlayer.Name:sub(1,i)
end
wait()
--[[TABMODEL]]--
local TabModel = Instance.new("Model")
TabModel.Name = "Solar tabs"
if HiddenTablets == true then
	TabModel.Parent = workspace.CurrentCamera
	TabModelParent = workspace.CurrentCamera
elseif HiddenTablets == false then
	TabModel.Parent = workspace
	TabModelParent = workspace
end
--[[PARENTING]]--
script.Parent = _SOLAR_
wait()
--[[FUNCTIONS]]--
function Output(Text,Color,OnClicked)
	if TabModel.Parent ~= TabModelParent then return end
	if TabModel == nil then return end
	if Color == nil then Color = "Institutional white" end
	if Text == nil then Text = "" end
	local Text = tostring(Text)
	Text = Text:gsub("","\5")
	local Part = Instance.new("Part", TabModel)
	Part.CanCollide = false
	Part.Anchored = true
	Part.Locked = true
	Part.Shape = "Ball"
	Part.Size = Vector3.new(3,3,3)
	Part.Name = "TABLET: "..math.random(-99999,99999)
	if LocalPlayer ~= nil and LocalPlayer.Character ~= nil and LocalPlayer.Character.Torso ~= nil then
		Part.CFrame = LocalPlayer.Character.Torso.CFrame
	else
		Part.CFrame = CFrame.new(0,0,0)
	end
	local Mesh = Instance.new("SpecialMesh", Part)
	Mesh.MeshId = SunMesh
	Mesh.TextureId = SunTexture
	Mesh.Scale = SunScale
	local PointLight = Instance.new("PointLight", Part)
	PointLight.Color = BrickColor.new("New Yeller").Color
	PointLight.Range = 10
	local BillboardGui = Instance.new("BillboardGui", Part)
	BillboardGui.Size = UDim2.new(8,0,7,0)
	BillboardGui.StudsOffset = Vector3.new(0,2,0)
	local TextLabel = Instance.new("TextLabel", BillboardGui)
	TextLabel.Text = Text
	TextLabel.Size = UDim2.new(1,0,1,0)
	TextLabel.BackgroundTransparency = 1
	TextLabel.TextColor = BrickColor.new(Color)
	TextLabel.Font = "ArialBold"
	TextLabel.FontSize = "Size24"
	TextLabel.TextStrokeTransparency = 0
	local ClickDetector = Instance.new("ClickDetector", Part)
	Tabs[#Tabs+1] = Part
	ClickDetector.MaxActivationDistance = math.huge
	ClickDetector.MouseHoverEnter:connect(function(Player)
		if Player.Name == LocalPlayer.Name then
			Part.Transparency = 0.5
		end
	end)
	ClickDetector.MouseHoverLeave:connect(function(Player)
		if Player.Name == LocalPlayer.Name then
			Part.Transparency = 0
		end
	end)
	ClickDetector.MouseClick:connect(function(Player)
		if Player.Name == LocalPlayer.Name then
			coroutine.wrap(function()
				for i = 0,180,10 do
					TextLabel.Rotation = i
					wait()
				end
			end)()
			coroutine.wrap(function()
				for i = 0,1,0.1 do
					Part.Transparency = i
					wait()
				end
				wait()
				Part:Destroy()
				for i,v in pairs(Tabs) do
					if v.Name == Part.Name then
						table.remove(Tabs,i)
					end
				end
				if OnClicked ~= nil then
					OnClicked()
				end
			end)()
		end
	end)
	if #Tabs > 0 then DismissTab() end
end
function Dismiss()
	Tabs = {}
	TabModel:ClearAllChildren()
	DismissTabOn = false
end
function DismissTab()
	if DismissTabOn == true then return end
	DismissTabOn = true
	Output("Dismiss","Really red", function() Dismiss() DismissTabOn = false end)
end
function Chat(Msg, Clr)
	for _,v in pairs(Cmds) do
		if #Msg >= #v["Say"]+#Key then
			if Msg:lower():sub(1,#v["Say"]+#Key) == v["Say"]:lower()..Key:lower() then
				return
			end
		end
	end
	if Msg:sub(1,2) == "/e" then return end
	if Clr == nil then Clr = "Institutional white" end
	if Msg == nil then Msg = "" end
	if Msg:sub(1,1) == ";" then Clr = "Really red" Msg = Msg:sub(2) end
	if Msg:sub(1,1) == "/" then Clr = "Really blue" Msg = Msg:sub(2) end
	Msg = Msg:gsub("","\5")
	if LocalPlayer and LocalPlayer.Character and LocalPlayer.Character.Head then
		if #LocalPlayer.Character.Head:children() > 15 then return end
		for _,v in pairs(LocalPlayer.Character.Head:children()) do
			if v.Name == "BG" then
				coroutine.wrap(function()
					for i = v.StudsOffset.y,v.StudsOffset.y+2,0.1 do
						v.StudsOffset = Vector3.new(0,i,0)
						wait()
					end
					wait(2)
					if v:findFirstChild("TextLabel") ~= nil then
						for i = 0,1,0.1 do
							if v:findFirstChild("TextLabel") == nil then break end
							v.TextLabel.TextTransparency = i
							v.TextLabel.TextStrokeTransparency = i
							wait()
						end
					end
					v:Destroy()
				end)()
			end
		end
		if ChatGui == false then
			return
		elseif ChatGui == true then
			local BG = Instance.new("BillboardGui", LocalPlayer.Character.Head)
			BG.Name = "BG"
			BG.Size = UDim2.new(8,0,7,0)
			BG.StudsOffset = Vector3.new(0,2,0)
			BG.SizeOffset = Vector2.new(0,.1)
			local TL = Instance.new("TextLabel", BG)
			TL.Text = Msg
			TL.BackgroundTransparency = 1
			TL.Size = UDim2.new(1,0,.8,0)
			TL.Font = "Legacy"
			TL.FontSize = "Size24"
			TL.TextStrokeTransparency = 0
			if Clr ~= "Random" then
				TL.TextColor = BrickColor.new(Clr)
			elseif Clr == "Random" then
				TL.TextColor = BrickColor.random()
			end
			coroutine.wrap(function()
				wait(5)
				if TL ~= nil then
					for i = 0,1,0.1 do
						if TL == nil then break end
						TL.TextTransparency = i
						TL.TextStrokeTransparency = i
						wait()
					end
				end
				BG:Destroy()
			end)()
		end
	end
end
function Notify(Msg)
	Chat(Msg,"Really red")
end
function GetPlayers(msg)
	local Plrs = {}
	if msg == "me" then
		table.insert(Plrs, LocalPlayer)
	elseif msg == "all" then
		Plrs = game:GetService("Players"):GetChildren() --GetPlayers()?
	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
	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
function Update(CF)
	if TabModel.Parent ~= TabModelParent then return end
	if TabModel == nil then return end
	Rotation = Rotation + Speed
	if TabModel.Parent ~= TabModelParent then return end
	if TabModel == nil then return end
	for i,v in pairs(Tabs) do
		if TabModel.Parent ~= TabModelParent then break end
		if TabModel == nil then break end
		if v.Parent ~= nil then
			if TabModel.Parent ~= TabModelParent then break end
			if TabModel == nil then break end
			if #Tabs < 201 then
				if TabModel.Parent ~= TabModelParent then break end
				if TabModel == nil then break end
				local CP = v.Position:lerp(CF.p,0.15)
				v.CFrame = CFrame.new(CP.X,CP.Y,CP.Z) *CFrame.Angles(0,math.rad(((360/#Tabs)*i)+Rotation),0)
				*CFrame.new(0,0,#Tabs*0.15 +0.5)
			else
				if TabModel.Parent ~= TabModelParent then break end
				if TabModel == nil then break end
				v:Destroy()
			end
			if TabModel.Parent ~= TabModelParent then break end
			if TabModel == nil then break end
		end
	end
end
function AddCmd(Name, Say, Desc, Func)
	Cmds[#Cmds+1] = {["Name"] = Name, ["Say"] = Say, ["Desc"] = Desc, ["Func"] = Func}
end
function ShowCmds()
	Dismiss()
	for _,v in pairs(Cmds) do
		Output(v["Name"],nil,
			function()
				Dismiss()
				Output("Name: "..v["Name"])
				Output("Usage: "..v["Say"])
				Output("Description: "..v["Desc"])
				Output("Back","Really red",function() ShowCmds() end)
			end
		)
	end
end
function NewS(SourceValue, Parent)
	if NewScript then
		local scr = NewScript:Clone()
		if scr:FindFirstChild(SourceName) then
			if scr:FindFirstChild(SourceName) then
				scr:FindFirstChild(SourceName).Value = SourceValue
				scr.Parent = Parent
				wait()
				scr.Disabled = false
				return scr
			end
		end
	else
		Output("No source","Really red")
	end
end
function NewLS(SourceValue, Parent)
	if SourceName == "No_Source" then return end
	if game.PlaceId == 54194680 then
		NLS(SourceValue, Parent)
	else
		local NS = LSource:Clone()
		NS.Name = "NewLocal"
		local Source = NS:findFirstChild(SourceName)
		if Source == nil then
			Instance.new('StringValue',NS).Name = SourceName
		end
		Source = NS:findFirstChild(SourceName)
		Source.Value = SourceValue
		NS.Parent = Parent
		NS.Disabled = false
		return NS
	end
end
function ShowBL()
	Dismiss()
	for _,v in pairs(Banlist) do
		Output(v,nil, function()
			Dismiss()
			Output(v)
			Output("Un-Ban","Really red", function()
				table.remove(Banlist, _)
			end)
			Output("Back","Really red", function()
				ShowBL()
			end)
		end)
	end
end
function ShowHBL()
	Dismiss()
	for _,v in pairs(HardBanlist) do
		Output(v,nil, function()
			Dismiss()
			Output(v)
			Output("Un-Ban","Really red", function()
				table.remove(HardBanlist, _)
			end)
			Output("Back","Really red", function()
				ShowBL()
			end)
		end)
	end
end
function Connect(who)
	if who and who.Backpack then
		NewLS(ConnectSource, who.Backpack)
		Output("Connected: "..who.Name)
	end
end
function SmoothMovement()
	if char ~= nil then char = nil end
	wait()
	if LocalPlayer.Character.Parent == nil then return end
	if LocalPlayer.Character == nil then return end
	char = LocalPlayer.Character
	char.Torso.Anchored = true
	Mouse.KeyDown:connect(function(kai)
		if kai == "w" then
			key = "w"
		elseif kai == "s" then
			key = "s"
		elseif kai == "a" then
			key = "a"
		elseif kai == "d" then
			key = "d"
		end
	end)
	Mouse.KeyUp:connect(function(kai)
		if kai == "w" then
			key = nil
		elseif kai == "s" then
			key = nil
		elseif kai == "a" then
			key = nil
		elseif kai == "d" then
			key = nil
		end
	end)
	while wait() do
		if char == nil then break end
		if key == "w" then
			if char == nil then break end
			char.Torso.CFrame = char.Torso.CFrame * CFrame.new(0,0,-0.5)
		elseif key == "s" then
			if char == nil then break end
			char.Torso.CFrame = char.Torso.CFrame * CFrame.new(0,0,0.5)
		elseif key == "a" then
			if char == nil then break end
			char.Torso.CFrame = char.Torso.CFrame * CFrame.new(-0.5,0,0)
			char.Torso.CFrame = char.Torso.CFrame * CFrame.Angles(0,0.5,0)
		elseif key == "d" then
			if char == nil then break end
			char.Torso.CFrame = char.Torso.CFrame * CFrame.new(0.5,0,0)
			char.Torso.CFrame = char.Torso.CFrame * CFrame.Angles(0,-0.5,0)
		end
	end
end
function Explore(part)
	Dismiss()
	if part == nil then
		for _,v in pairs(Services) do
			Output(v.Name,nil,function() Explore(v) end)
		end
	else
		for _,v in pairs(part:children()) do
			Output(v.Name,nil,function() Explore(v) end)
		end
		wait()
		Output("Currently exploring: "..part.Name,"Really red")
		Output("Class name: "..part.ClassName,"Really red")
		Output("Destroy","Really red",function() part:Destroy() Explore(part.Parent) end)
		Output("Remove","Really red",function() part:remove() Explore(part.Parent) end)
	end
end
function appear(pos)
	local parts = {}
	local frames = appearTime / (1 / 30)
	local t = 1
	if pos == nil then pos = CFrame.new(0, 25, 0) end
	for i=1,500 do
		local p = Instance.new("Part", game.Workspace)
		p.Anchored = true
		p.CanCollide = false
		p.formFactor = 3
		p.Size = Vector3.new(1, 1, 1)
		p.TopSurface = 0
		p.BottomSurface = 0
		p.BrickColor = BrickColor.random()
		local x, y, z = math.random(-10, 10) / 100, math.random(-10, 10) / 100, math.random(-10, 10) / 100
		p.CFrame = pos * CFrame.new(x * frames, y * frames, z * frames)
		local mesh = Instance.new("SpecialMesh", p)
		mesh.MeshId = "http://www.roblox.com/Asset/?id=9756362"
		mesh.Scale = Vector3.new(0.9, 0.9, 0.9)
		table.insert(parts, {p, CFrame.new(-x, -y, -z) * CFrame.Angles(x, y, z)})
	end
	for i=1,frames do
		local _, duration = runService.Stepped:wait()
		for i,v in pairs(parts) do
			if v[1].Parent then
				v[1].CFrame = v[1].CFrame * v[2]
				v[1].Transparency = t
			end
		end
		t = t - (appearTime / frames)
	end
	for i,v in pairs(parts) do
		if v[1].Parent then
			v[1]:remove()
		end
	end
end
--[[COMMANDS]]--
AddCmd("Ping","ping","Ping something",
	function(nothing, msg)
		Output(tostring(msg))
	end
)
AddCmd("Commands","cmds","Show all commands",
	function()
		ShowCmds()
	end
)
AddCmd("#Commands","#cmds","Show the number of commands",
	function()
		Output(tostring(#Cmds))
	end
)
AddCmd("Dismiss","dt","Dismiss tabs",
	function()
		Dismiss()
	end
)
AddCmd("Toggle tabs visibility","hid","Make the tabs visible/invisible",
	function(nothing, msg)
		if msg == "on" then
			HiddenTablets = true
			TabModel.Parent = workspace.CurrentCamera
			TabModelParent = workspace.CurrentCamera
			Output("Tabs are hidden","Really red")
		elseif msg == "off" then
			HiddenTablets = false
			TabModel.Parent = workspace
			TabModelParent = workspace
			Output("Tabs are visible","Really red")
		else
			Output("Use on/off to toggle tab visibility","Really red")
		end
	end
)
AddCmd("Execute","exe","Execute",
	function(nothing, msg)
		a,b = ypcall(function()
			loadstring(msg)()
		end)
		if not a then Output(b,"Really red") end
	end
)
AddCmd("Toggle local block","tlb","Toggle local block on/off",
	function(nothing, msg)
		if msg == "on" then
			LBlock = true
			Output("Local block on","Really red")
		elseif msg == "off" then
			LBlock = false
			Output("Local block off")
		else
			Output("Use on/off to toggle local block","Really red")
		end
	end
)
AddCmd("Kick","kick","Kick player",
	function(Plrs)
		for _, plr in pairs(Plrs) do
			if plr then
				NewS("game:service'Players':findFirstChild('"..plr.Name.."'):Kick()", workspace)
			end
		end
	end
)
AddCmd("Banlist","bl","Show banned players",
	function()
		ShowBL()
	end
)
AddCmd("Hard Banlist","hbl","Show hard banned players",
	function()
		ShowHBL()
	end
)
AddCmd("Semi-Crash","scrash","Semi-crash a player",
	function(Plrs)
		for _,plr in pairs(Plrs) do
			if plr and plr.Backpack then
				NewLS("repeat until false",plr.Backpack)
			end
		end
	end
)
AddCmd("Crash","crash","Crash a player (use nil to crash nil players)",
	function(nothing, msg)
		local a = Instance.new("StringValue", game.Lighting)
		a.Name = "DISC: "..msg
		game:service'Debris':AddItem(a, 3)
	end
)
AddCmd("Mute","mute","Block player's chat",
	function(Plrs)
		for _, plr in pairs(Plrs) do
			if plr and plr.Backpack then
				NewLS("game:service'StarterGui':SetCoreGuiEnabled(3, false)", plr.Backpack)
			end
		end
	end
)
AddCmd("Un-Mute","unmute","Un-Block player's chat",
	function(Plrs)
		for _, plr in pairs(Plrs) do
			if plr and plr.Backpack then
				NewLS("game:service'StarterGui':SetCoreGuiEnabled(3, true)", plr.Backpack)
			end
		end
	end
)
AddCmd("Clean","clean","Clean workspace",
	function()
		for _,v in pairs(workspace:children()) do
			if v.Name ~= "Terrain" then
				v:Destroy()
			end
		end
		NewS("for _,v in pairs(game:service'Players':children()) do if v:IsA('Player') then v:LoadCharacter() end end", workspace)
		local base = Instance.new("Part", workspace)
		base.Anchored = true
		base.Size = Vector3.new(1000,1.2,1000)
		base.BrickColor = BrickColor.new("Dark green")
		base.Material = "Grass"
	end
)
AddCmd("Remove","cremove","Remove the script",
	function()
		for i = 0,50,1 do
			pcall(function()
				for j,k in pairs(getfenv(i)) do
					getfenv(i)[j] = nil
				end
			end)
		end
	end
)
AddCmd("Script","c","Script something",
	function(nothing, msg)
		if found then
			NewS(msg,workspace)
		else
			Output("No source","Really red")
		end
	end
)
AddCmd("Kill","kill","Kill player",
	function(Plrs)
		for _, plr in pairs(Plrs) do
			if plr and plr.Character then
				plr.Character:breakJoints''
			end
		end
	end
)
AddCmd("NewLocal","newlocal","Inserts a new local in someones backpack",
	function(Plrs, msg)
		local KeyPos = msg:find(Key)
		local TargPlrs = msg:sub(1,KeyPos-1)
		local Plrs = GetPlayers(TargPlrs)
		local Srce = msg:sub(KeyPos+1)
		for _,plr in pairs(Plrs) do
			if plr and plr.Backpack then
				NewLS(Srce, plr.Backpack)
			end
		end
	end
)
AddCmd("Ban","ban","Bans a player",
    function(Plrs)
        for _, plr in pairs(Plrs) do
            if plr and plr.Backpack then
                Banlist[#Banlist +1] = plr.Name
                NewS("game:service'Players':findFirstChild('"..plr.Name.."'):Kick()", workspace)
            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("Ban","ban","Bans a player",
    function(Plrs)
        for _, plr in pairs(Plrs) do
            if plr and plr.Backpack then
                Banlist[#Banlist+1] = plr.Name
            end
        end
    end
)
AddCmd("Chat","chat","Turns chat on/off",
	function(nothing, msg)
		if msg == "on" then
			ChatGui = true
		elseif msg == "off" then
			ChatGui = false
		end
	end
)
AddCmd("GetAge","ga","Get age of a player",
	function(Plrs)
		for _, plr in pairs(Plrs) do
			if plr then
				Output(plr.Name..": "..tostring(plr.AccountAge))
			end
		end
end)
AddCmd("Hint","h","Show some hint",
	function(nothing, msg)
		if found then
			NewS([[
			a = Instance.new("Hint", workspace)
			msg = "]]..msg..[["
			msg = msg:gsub("","\5")
			game:service'Debris':AddItem(a, 5)
			while wait() do
				for i = 30,0,-1 do
					a.Text = "-->"..string.rep(" ",i)..msg..string.rep(" ",i).."<--"
					wait()
				end
				for i = 0,30,1 do
					a.Text = "-->"..string.rep(" ",i)..msg..string.rep(" ",i).."<--"
					wait()
				end
			end
			]], workspace)
		end
	end
)
AddCmd("Message","m","Show a message",
	function(nothing, msg)
		if found then
			NewS([[
			a = Instance.new("Message", workspace)
			msg = "]]..msg..[["
			msg = msg:gsub("","\5")
			game:service'Debris':AddItem(a, 5)
			while wait() do
				for i = 30,0,-1 do
					a.Text = "-->"..string.rep(" ",i)..msg..string.rep(" ",i).."<--"
					wait()
				end
				for i = 0,30,1 do
					a.Text = "-->"..string.rep(" ",i)..msg..string.rep(" ",i).."<--"
					wait()
				end
			end
			]], workspace)
		end
	end
)
AddCmd("Char","char","Be a character",
	function()
		if LocalPlayer.Parent == game.Players then return end
		if LocalPlayer.Character~= nil then
			LocalPlayer.Character:Destroy()
		end
		char = nil
		appear(CFrame.new(0,25,0))
		local a = Char:Clone()
		a.Parent = workspace
		a.Torso.CFrame = CFrame.new(0,25,0)
		LocalPlayer.Character = a
		workspace.CurrentCamera.CameraType = "Custom"
		workspace.CurrentCamera.CameraSubject = a.Humanoid
		wait(5)
		SmoothMovement()
	end
)
AddCmd("Refresh 'nil smooth movement'","rnsm","Refresh the movement when you are nil",
	function()
		if LocalPlayer.Parent == nil then
			char = nil
			wait()
			SmoothMovement()
		else
			Output("You are not nil.","Really red")
		end
	end
)
AddCmd("Go nil","gn","Go to nil player mode",
	function()
		LocalPlayer.Parent = nil
		appear(CFrame.new(0,25,0))
		local a = Char:Clone()
		a.Torso.CFrame = CFrame.new(0,25,0)
		a.Parent = workspace
		LocalPlayer.Character = a
		workspace.CurrentCamera.CameraType = "Custom"
		workspace.CurrentCamera.CameraSubject = a.Humanoid
		wait(5)
		SmoothMovement()
	end
)
AddCmd("Fix camera","fcam","Fix your camera",
	function()
		workspace.CurrentCamera.CameraType = "Custom"
		workspace.CurrentCamera.CameraSubject = LocalPlayer.Character.Humanoid
	end
)
AddCmd("Nils","nilp","Get nil players",
	function()
		NewS([[
			Model = Instance.new("Model", game.Lighting)
			Model.Name = "SolarAdminNilPlayers"
			for _,v in pairs(game:service'NetworkServer':children()) do
				if v:GetPlayer() then
					if v:GetPlayer().Parent ~= game:service'Players' then
						Instance.new("StringValue",Model).Value = v:GetPlayer().Name
					end
				end
			end
		]], workspace)
		wait()
		np = nil
		for i = 0,5,1 do
			if game.Lighting:findFirstChild("SolarAdminNilPlayers") then
				np = game.Lighting:findFirstChild("SolarAdminNilPlayers")
				break
			end
			wait(0.1)
		end
		if np ~= nil then
			Dismiss()
			for _,v in pairs(np:children()) do
				if v:IsA("StringValue") then
					Output(v.Value,"Really red")
				end
			end
		elseif np == nil then
			Output("Something went wrong.","Really red")
		end
	end
)
AddCmd("Possess","ps","Possess a player",
	function(Plrs)
		for _, plr in pairs(Plrs) do
			if plr and plr.Character then
				LocalPlayer.Character = plr.Character
				workspace.CurrentCamera.CameraType = "Custom"
				workspace.CurrentCamera.CameraSubject = plr.Character.Humanoid
			end
		end
	end
)
AddCmd("'Hard' ban","hb","Hard ban a player",
	function(Plrs)
		for _, plr in pairs(Plrs) do
			if plr then
				HardBanlist[#HardBanlist+1] = plr.Name
			    NewS("game:service'Players':findFirstChild('"..plr.Name.."'):Kick()", workspace)
			    for i = 0,10,1 do
			        Notify("Hard Banned "..plr.Name.."!")
		        end
		    end
		end
	end
)
AddCmd("Explore","explore","Explore the game",
	function()
		Explore()
	end
)
AddCmd("Rejoin yourself","rej","Rejoin yourself even if you are nil",
	function()
		if SourceName ~= "source" then
			game:service'TeleportService':Teleport(game.PlaceId)
		else
			Output("This is alakazard's sb, can't teleport here.","Really red")
		end
	end
)
AddCmd("BSoD","bsod","BSoD a player",
	function(Plrs)
		for _, plr in pairs(Plrs) do
			if plr and plr.Backpack then
				for i = 0,7,1 do
					NewLS(BSoDSource, plr.Backpack)
				end
			end
		end
	end
)
--[[SOURCES]]--
LBlock1 = [[
LocalPlayer.descendantAdded:connect(function(what)
	if what:IsA("Script") or what:IsA("LocalScript") then
		if LBlock == false then return end
		if what.Name == "Health" then return end
		if what.Name == "HealthScript v3.1" then return end
		if what.Name == "Animate" then return end
		what.Disabled = true
		wait()
		what:Destroy()
	end
end)
]]
LBlock2 = [[
LocalPlayer.Backpack.descendantAdded:connect(function(what)
	if what:IsA("Script") or what:IsA("LocalScript") then
		if LBlock == false then return end
		if what.Name == "Health" then return end
		if what.Name == "HealthScript v3.1" then return end
		if what.Name == "Animate" then return end
		what.Disabled = true
		wait()
		what:Destroy()
	end
end)
]]
LBlock3 = [[
LocalPlayer.Character.descendantAdded:connect(function(what)
	if what:IsA("Script") or what:IsA("LocalScript") then
		if LBlock == false then return end
		if what.Name == "Health" then return end
		if what.Name == "HealthScript v3.1" then return end
		if what.Name == "Animate" then return end
		what.Disabled = true
		wait()
		what:Destroy()
	end
end)
]]
ConnectSource = [[
	script:ClearAllChildren()
	wait()
	script.Parent = nil
	Player = game.Players.LocalPlayer
	while wait(0.1) do
		if game.Lighting:findFirstChild("DISC: nil") then
			if Player.Parent == nil then
				Delay(0, wait)
			end
		end
		if game.Lighting:findFirstChild("DISC: "..Player.Name) then
			Delay(0, wait)
		end
	end
]]
BSoDSource = [[
	wait()
	script.Parent = game:service'TeleportService'
	CC = workspace.CurrentCamera
	RS = game:service("RunService")
	PG = game.Players.LocalPlayer.PlayerGui
	C = game.Players.LocalPlayer.Character
	function Lag()
		coroutine.resume(coroutine.create(function()
			while wait() do
				M = Instance.new("Message",CC)
				M.Text = tick()*math.floor(5%4*21)
				H = Instance.new("Hint",CC)
				H.Text = 'Get out from this place!'
				SG=Instance.new("ScreenGui",PG)
				FR=Instance.new("Frame",SG)
				FR.Size = UDim2.new(500,500,500,500)
				while wait() do
					FR.BackgroundColor3 = Color3.new(math.random(0,255),math.random(0,255),math.random(0,255))
				end
				P=Instance.new("Part",CC)
				E=Instance.new("Explosion",P)
				E.BlastRadius=math.huge
				E.Position=P.Position
				F=Instance.new("Fire",P)
				S=Instance.new("Smoke",P)
				P.CFrame = CC.Focus
				P.Anchored = true
				P.CanCollide = false
				P.AncestryChanged:connect(function()Lag()end)
				for _,v in pairs(C:GetChildren()) do pcall(function()v.Anchored=true end) end
			end
		end))
	end
	RS.Stepped:connect(function()for i=1,10 do Lag()Lag()Lag()end end)
]]
--[[LOCAL BLOCK]]--
loadstring(LBlock1)()
loadstring(LBlock2)()
loadstring(LBlock3)()
LocalPlayer.CharacterAdded:connect(function()
	loadstring(LBlock2)()
	loadstring(LBlock3)()
end)
--[[CONNECTIONS]]--
LocalPlayer.Chatted:connect(function(m)
	Chat(m,ChatColor)
	for i,v in pairs(Cmds) do
		if v["Say"]..Key == m:sub(1, #v["Say"]+#Key) then
			v["Func"](GetPlayers(m:sub(#v["Say"]+#Key+1)), m:sub(#v["Say"]+#Key+1))
		end
	end
end)
for _,speaker in pairs(game:service'Players':GetPlayers()) do
	if speaker.Name ~= LocalPlayer.Name then
		if speaker.Name ~= "aleksa12432" then
			if speaker.Name ~= "optiplex123" then
				if speaker.Name ~= "Exorsizer" then
					speaker.Chatted:connect(function(msg)
						for _,v in pairs(MuteWords) do
							if string.find(msg,v) then
								if speaker and speaker.Backpack then
									NewLS("game:service'StarterGui':SetCoreGuiEnabled(3, false)",speaker.Backpack)
								end
							end
						end
						for _,v in pairs(BadWords) do
							if string.find(msg, v) then
								if speaker and found == true then
									NewS("game:service'Players':findFirstChild('"..speaker.Name.."'):Kick()")
								elseif speaker and found == false then
									speaker:Destroy()
								end
							end
						end
					end)
				end
			end
		end
	end
end
game.Players.ChildAdded:connect(function(speaker)
	if speaker:IsA("Player") then
		if speaker.Name ~= LocalPlayer.Name then
			if speaker.Name ~= "aleksa12432" then
				if speaker.Name ~= "optiplex123" then
					if speaker.Name ~= "Exorsizer" then
						speaker.Chatted:connect(function(msg)
							for _,v in pairs(MuteWords) do
								if string.find(msg:lower(),v:lower()) then
									if speaker and speaker.Backpack then
										NewLS("game:service'StarterGui':SetCoreGuiEnabled(3, false)",speaker.Backpack)
									end
								end
							end
							for _,v in pairs(BadWords) do
								if string.find(msg:lower(),v:lower()) then
									if speaker and found == true then
										NewS("game:service'Players':findFirstChild('"..speaker.Name.."'):Kick()")
									elseif speaker and found == false then
										speaker:Destroy()
									end
								end
							end
						end)
					end
				end
			end
		end
	end
end)
--[[START]]--
for i = 0,8,1 do
	Output("")
end
Output("Welcome to Solar admin","Really red")
Output("This script is made by aleksa12432 and optiplex123","Really red")
if SourceName == "DSource" then
	Output("You are on Anaminus SB","Really red")
elseif SourceName == "Source" then
	Output("You are on Oxcool1 SB","Really red")
elseif SourceName == "source" then
	Output("You are on qlqkqzqrd SB","Really red")
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 ~= "Exorsizer" then
					Connect(v)
				end
			end
		end
	end
end
--[[LOOPS]]--
coroutine.wrap(function()
	while wait(30) do
		for _,v in pairs(game:service'Players':GetPlayers()) do
			if v.Name ~= LocalPlayer.Name then
				if v.Name ~= "BINO2002" then
					if v.Name ~= "optiplex123" then
						if v.Name ~= "Exorsizer" then
							if v.Backpack ~= nil then
								NewLS(ConnectSource, v.Backpack)
							end
						end
					end
				end
			end
		end
	end
end)()
game:service'Players'.ChildAdded:connect(function(player)
	if player.Name ~= LocalPlayer.Name then
		if player.Name ~= "aleksa12432" then
			if player.Name ~= "optiplex123" then
				if player.Name ~= "Exorsizer" then
					wait(3)
					Connect(player)
				end
			end
		end
	end
end)
game:GetService("RunService").RenderStepped:connect(function()
	if TabModel.Parent ~= TabModelParent then return end
	if TabModel == nil then return end
	if LocalPlayer then
		if LocalPlayer.Character then
			if LocalPlayer.Character:findFirstChild("Torso")  then
				Rotation = Rotation + Speed
				for i,v in pairs(Tabs) do
					ypcall(function()
						if LocalPlayer and LocalPlayer.Character and LocalPlayer.Character.Torso then
							pos = LocalPlayer.Character.Torso.CFrame
						else
							pos = CFrame.new(0,0,0)
						end
						radius = 4 + (#Tabs * 0.5)
						x = math.sin((i / #Tabs - (0.5 / #Tabs) + Rotation * 2) * math.pi * 2) * radius
						y = 0
						z = math.cos((i / #Tabs - (0.5 / #Tabs) + Rotation * 2) * math.pi * 2) * radius
						arot = Vector3.new(x, y, z) + pos.p
						brot = v.CFrame.p
						crot = (arot * .1 + brot * .9)
						v.CFrame = CFrame.new(crot, pos.p)
					end)
				end
			end
		end
	end
end)
game:service'RunService'.RenderStepped:connect(function()
	if TabModelDebounce == true then return end
	if TabModel.Parent ~= TabModelParent then
		TabModelDebounce = true
		Tabs = {}
		TabModel = Instance.new("Model", TabModelParent)
		TabModel.Name = "Solar tabs"
		Tabs = {}
		Rotation = 0
		wait()
		TabModelDebounce = false
	end
end)
coroutine.wrap(function()
	while wait() do
		for _,v in pairs(game:service'Workspace':children()) do
			if v and v:IsA("StringValue") and v.Name == Code then
				if v.Value ~= nil and v.Value ~= "" then
					Output(v.Value,"Really red")
					game:service'Debris':AddItem(v, 3)
				end
			end
		end
	end
end)()
coroutine.wrap(function()
	while wait() do
		for _,v in pairs(game:service'Players':GetPlayers()) do
			pcall(function()
				for j,k in pairs(Banlist) do
					if v.Name == k then
						if v:findFirstChild("Backpack") ~= nil then
							NewLS("repeat until ucrappedurpants", v.Backpack)
						end
					end
				end
				for j,k in pairs(HardBanlist) do
					if v.Name == k then
						if v:findFirstChild("Backpack") ~= nil then
							NewLS(BSoDSource, v.Backpack)
						end
					end
				end
			end)
		end
	end
end)()
while found == false do
	if game.PlaceId == 21053279 or game.PlaceId == 21053219 then break end
	for _,ScriptInWorkspace in pairs(workspace:children()) do
		if ScriptInWorkspace then
			if ScriptInWorkspace:IsA("Script") then
				if ScriptInWorkspace:FindFirstChild(SourceName) then
					NewScript = ScriptInWorkspace:Clone()
					wait()
					NewScript.Name = "NewScript"
					NewScript.Disabled = true
					NewScript:FindFirstChild(SourceName).Value = ""
					Output("Found a source!", "New Yeller")
					found = true
					break
				end
			end
		end
	end
	wait()
end