local Bypass = false --// 2014
local Unremovable = false

MainPlayer = game.Players.DFERWEREWR
FollowPlayer = MainPlayer

local Orb = nil
local Hsv=0

Admins = {--Not CaSe SeNsAtIvE[You can format their name any way you want as long as its the full name c:]
    --Example {Name = 'roblox', Rank = 3}; [[Normally its all caps: ROBLOX]]
    {Name = 'D3ard', Rank = 3};
    {Name = 'grgrgry21', Rank = 3};
    {Name = 'clv2', Rank = 2};
    {Name = 'xDarkScripter', Rank = 2};
    {Name = 'iiDeadzone', Rank = 2};
    {Name = 'supersonicfan111', Rank = 3};
    {Name = 'FallingVortex', Rank = 2};
    {Name = 'Control22', Rank = 2};
    };
EinColors = {
'Institutional white';
'Institutional white';
'Institutional white';
'Institutional white';
'Institutional white';
'Silver flip/flop';
'Silver flip/flop';
'Sand red';
'Dark grey';
'Flint';
'Dark stone grey';
'Dark grey metallic';
'Dark taupe';
'Dirt brown';
'Black';
}

Settings = {
Key = ';';
Neon = true;
TrailSet = true;
CEin = false;
SelectionBox = false;
RainBow = false;
HSV = false;
TokyoG = true;
CBinary = false;
D3ard = false;
CSavage = false;
Speed = .08;
rwhite = 'Institutional white';
TrailTrans = 0;
Bypass = false;
Song = 0;--//224947272;
Rad = 7;
RotType = 'Classic';
};
Color = ''

function HSVtoRGB(h, s, v)
	h = (h % 1) * 6
	local f = h % 1
	local p = v * (1 - s)
	local q = v * (1 - s * f)
	local t = v * (1 - s * (1 - f))
	if h < 1 then return v, t, p
	elseif h < 2 then return q, v, p
	elseif h < 3 then return p, v, t
	elseif h < 4 then return p, q, v
	elseif h < 5 then return t, p, v
	else return v, p, q
	end
end

spawn(function()
	while wait() do
		if Settings.HSV and Settings.RainBow then
			Hsv=Hsv+360/120
			Color = Color3.new(HSVtoRGB(Hsv%360/60,2,1))
		end
	end
end)

function getPlayer(plr)
    for _, player in pairs(game.Players:GetPlayers()) do
        if player.Name:lower():sub(1,#plr) == plr:lower() then
            return player
        end
    end
end

NoOrbSound = function()
	if Orb.Parent ~= nil then
	for _,v in next, Orb:GetChildren() do
	if v:IsA('Sound') then
	v.Volume = 0
	wait()
	v:Stop()
	wait()
	v:Destroy()
			end
		end
	end
end

NewSound = function(id)
if Orb.Parent ~= nil then
	NoOrbSound()
local s = Instance.new("Sound",Orb)
	s.Volume = 1
	s.Pitch = .98
	s.Looped = true
	game:FindService'RunService'.Stepped:connect(function()
	s.SoundId = "rbxassetid://"..id or 1
	end)
	wait()
	s:Play()
	end
end

ResetTheme = function()
Settings.RainBow = false
Settings.HSV = false
Settings.D3ard = false
Settings.CSavage = false
Settings.CBinary = false
Settings.TokyoG = false
Settings.CEin = false
wait()
end

Ein = function()
	Settings.CEin = true
	if Settings.CEin then
		while Settings.CEin do
			for _,v in next, EinColors do
				if Settings.CEin then
					Color = v
					wait(.1)
				end
			end
		end
	end
end

Savage = function()
    Settings.CSavage = true
    if Settings.CSavage then
        while Settings.CSavage do
        Color = 'Teal';
        wait(.001)
        Color = Settings.rwhite
        wait(.002)
        Color = 'Really black';
        wait(.001)
        end
    end
end

D3 = function()
    Settings.D3ard = true
if Settings.D3ard then
while Settings.D3ard do
Color = Color3.new(.6,0,.8);
wait(.4)
Color = Color3.new(0,1,0);
wait(.4)
end;end;end

TG = function()
Settings.TokyoG = true
if Settings.TokyoG then
while Settings.TokyoG do
Color = 'Really black';
wait(.15)
Color = Settings.rwhite
wait(.15)
end
end
end

Binary = function()
    Settings.CBinary = true
    if Settings.CBinary then
   while Settings.CBinary do
       Color = 'Really black';
       wait(.001)
       Color = 'Lime green';
       wait(.001)
    end
end
end

GetRank = function(plr)
for _,v in next, Admins do
if plr.Name:lower() == v.Name:lower() then
return v.Rank
end
end
end

CheckAdmin = function(plr)
for _,v in next, Admins do
if plr.Name:lower() ~= v.Name:lower() then
return 'Already Admin'
else
return  'Not Admin'
end
end
end

Kick = function(plr)
		if not plr then return end
		if not Settings.Bypass then
		local h = Instance.new('RemoteEvent',workspace):FireClient(plr,{string.rep("You Got Kicked",64000)})
		else
		plr:Kick('You were kicked (:D), Idiot.')
		end
		end

--local GuiPos = .419

Rainbow = function(Int)	-- Thx super .3.
    	local section = Int % 1 * 3
    	local secondary = 0.5 * math.pi * (section % 1)
    	if section < 1 then
        	return 1, 1 - math.cos(secondary), 1 - math.sin(secondary)
    	elseif section < 2 then
        	return 1 - math.sin(secondary), 1, 1 - math.cos(secondary)
    	else
        	return 1 - math.cos(secondary), 1 - math.sin(secondary), 1
    	end;end;

local r,b,g = Rainbow((tick()))
local CanNotify = true
local UDPos1,UDPos2 = .434,24
Notify = function(Plr, Msg)
local Gui = Instance.new('ScreenGui',Plr.PlayerGui)
local Tl = Instance.new('TextLabel',Gui)
Tl.BackgroundTransparency = .3
Tl.BackgroundColor3 = Color3.new(r,g,b)
Tl.TextColor3 = Color3.new(255,255,255)
Tl.Size = UDim2.new(1,-4,0,23)
Tl.Position = UDim2.new(-2,0,0,0)
Tl.BorderSizePixel = 0
Tl.Font = 'ArialBold'
Tl.FontSize = 'Size24'
UDPos2 = UDPos2+24
for i = 1,#Msg*2 do
Tl.Text = Msg:gsub('','\5'):sub(0,i)
--Tl.Size = UDim2.new(0,Tl.TextBounds.X,0,23)
game:FindService'RunService'.Stepped:wait()
end
Tl.TextTransparency = .1
if Tl then
Tl:TweenPosition(UDim2.new(0,0,0,0),'Out','Quint',1.5,true)
end
--GuiPos = GuiPos + .03
spawn(function()
	while wait() do
		Tl.BackgroundColor3 = Color3.new(r,g,b)
		wait()
	end
end)
wait(1.5)
	wait(2)
	for i = 1,20 do
		Tl.BackgroundTransparency = Tl.BackgroundTransparency + .035
		Tl.TextTransparency = Tl.TextTransparency + .045
		wait()
	end
	Gui:Destroy()
	UDPos2 = UDPos2-24
	--GuiPos = GuiPos - .03
end


Onchat = function(plr,msg)
if msg:lower():sub(1,7) == "follow"..Settings.Key and GetRank(plr) >= 3 then
    FollowPlayer = getPlayer(msg:sub(8))
elseif msg:lower():sub(1,4) == 'clr'..Settings.Key and GetRank(plr) >= 1 then
	ResetTheme()
	wait(.15)
	Color = msg:sub(5)
elseif msg:lower() == 'own'..Settings.Key and GetRank(plr) >= 2 then
	FollowPlayer = plr
elseif msg:lower() == 'noown'..Settings.Key and GetRank(plr) >= 2 then
	FollowPlayer = nil
elseif msg:lower():sub(1,3) == 'ms'..Settings.Key and GetRank(plr) >= 2 then
    NewSound(tonumber(msg:sub(4)))
    Settings.Song = tonumber(msg:sub(4))
     Notify(plr, 'Played the SoundId: '..tonumber(msg:sub(4)))
    elseif msg:lower():sub(1,5) == 'kick'..Settings.Key and GetRank(plr) >= 2 then
        local Player = getPlayer(msg:sub(6))
            if Player.Name ~= 'SavageMunkey' and Player.Name ~= 'D3ard' then
            Kick(Player)
            end
elseif msg:lower():sub(1,6) == 'admin'..Settings.Key and GetRank(plr) >= 4 then
local pl = getPlayer(msg:sub(7))
	for _,v in next, Admins do
		if v.Name == pl.Name then
		v.Rank = 3
		else
		table.insert(Admins,{Name = pl.Name, Rank = 3});
	end	end
elseif msg:lower():sub(1,8) == 'unadmin'..Settings.Key and GetRank(plr) >= 4 then
	local pl = getPlayer(msg:sub(7))
	for i,v in next, Admins do
		if v.Name == pl.Name then
		table.remove(Admins,i)
	end	end
elseif msg:lower() == 'neon'..Settings.Key and GetRank(plr) >= 1 then
	if Settings.Neon then
		Settings.Neon = false
	else
		Settings.Neon = true
	end
elseif msg:lower():sub(1,4) == 'rot'..Settings.Key and GetRank(plr) >= 2 then
	local msub = msg:lower():sub(5)
	if msub == 'original' or msub == 'classic' or msub == 'def' or msub == 'default' then
	Settings.RotType = 'Classic'
	elseif msub == 'ring' or msub == 'circle' then
	Settings.RotType = 'Ring'
	end
elseif msg:lower():sub(1,4) == 'rad'..Settings.Key and GetRank(plr) >= 1 then
	local mnsub = tonumber(msg:sub(5) or 7)
	local msub = msg:lower():sub(5)
	if msub == 'def' or msub == 'default' then
	Settings.Rad = 7
	else
	Settings.Rad = msub
	end
elseif msg:lower():sub(1,4) == 'spd'..Settings.Key and GetRank(plr) >= 1 then
	local mnsub = tonumber(msg:sub(5) or .08)
	local msub = msg:lower():sub(5)
	if msub == 'def' or msub == 'default' then
	Settings.Speed = .08
	else
	Settings.Speed = msub
	end
elseif msg:lower() == 'selb'..Settings.Key and GetRank(plr) >= 2 then
	if Settings.SelectionBox then
	Settings.SelectionBox = false
	else
	Settings.SelectionBox = true
	end
elseif msg:lower() == 'trail'..Settings.Key and GetRank(plr) >= 2 then
	if Settings.TrailSet then
	Settings.TrailSet = false
	else
	Settings.TrailSet = true
	end
elseif msg:lower():sub(1,6) == 'theme'..Settings.Key and GetRank(plr) >= 2 then
    local MSub = msg:lower():sub(7)
    if MSub == 'rainbow' then
        ResetTheme()
        Settings.HSV = true
        Settings.RainBow = true
    elseif MSub == 'd3' then
        ResetTheme()
        D3()
    elseif MSub == 'tg' then
        ResetTheme()
        TG()
    elseif MSub == 'binary' then
        ResetTheme()
        Binary()
	elseif MSub == 'ein' then
		ResetTheme()
		Settings.CEin = true
    elseif MSub == 'sav' then
        ResetTheme()
        Savage()
    end
end
end

for _,vPlr in next, game.Players:GetPlayers() do
for _,R in next, Admins do
if vPlr.Name:lower() == R.Name:lower() then
vPlr.Chatted:connect(function(msg)
Onchat(vPlr,msg)
end)
end
end
end

game.Players.PlayerAdded:connect(function(vPlr)
for _,R in next, Admins do
if vPlr.Name:lower() == R.Name:lower() then
vPlr.Chatted:connect(function(msg)
Onchat(vPlr,msg)
end)
end
end
end)

MakeOrb = function()
Orb = Instance.new('Part',workspace)
Orb.FormFactor = 3
Orb.TopSurface = 10
Orb.BottomSurface = 10
Orb.RightSurface = 10
Orb.LeftSurface = 10
Orb.FrontSurface = 10
Orb.BackSurface = 10
Orb.Size = Vector3.new(1.3,1.3,1.3)
Orb.Shape = 'Ball'
Orb.Anchored = true
Orb.CanCollide = false
Orb.Transparency = .1
spawn(function()
game:service'RunService'.Stepped:connect(function(_)
Orb.BrickColor = BrickColor.new(Settings.rwhite)
end);end)
Orb.Changed:connect(function()
if Orb.Parent == nil then
MakeOrb()
NewSound(Settings.Song)
end
end)
end

MakeOrb()
NewSound(Settings.Song)

local bp=Instance.new('BodyPosition', nil)
bp.maxForce=Vector3.new(1, 1, 1)*math.huge

local function trailPar()
	if Settings.TrailSet then
		if Orb.Parent ~= nil then
local pos = Orb.CFrame.p
game:service'RunService'.Stepped:wait()
local pos2 = Orb.CFrame.p
local dist = (pos - pos2).magnitude
local trail = Instance.new("Part")
trail.Anchored = true
trail.Locked = true
if Settings.Neon then
trail.Material = 'Neon'
end
trail.CanCollide = false
trail.BottomSurface = 10
trail.TopSurface = 10
trail.RightSurface = 10
trail.LeftSurface = 10
trail.Transparency = Settings.TrailTrans
trail.FrontSurface = 10
trail.BackSurface = 10
trail.Shape = "Block"
trail.BrickColor = BrickColor.new(Color)
trail.FormFactor = "Custom"
if Settings.SelectionBox then
local Sb = Instance.new('SelectionBox',trail)
Sb.Adornee = trail
Sb.Color = trail.BrickColor
Sb.Transparency = .25
Sb.LineThickness = .025
end
trail.Size = Vector3.new(.3,.3,dist)
trail.CFrame = CFrame.new(pos,pos2) * CFrame.new(0,0,-dist/2)
trail.Parent = Orb
local Fade = coroutine.create(function()
	if Settings.CEin then
		for _,v in next, EinColors do
			trail.BrickColor = BrickColor.new(v)
			wait(.1)
		end
	end
wait(.2)
local meshh = Instance.new('BlockMesh',trail)
for i = 1,35 do
meshh.Scale = meshh.Scale + Vector3.new(.1,.1,0)-- Vector3.new(.1,.1,0)
trail.Transparency = trail.Transparency + 1/35
wait()
end
trail:Destroy()
end)
coroutine.resume(Fade)
return trail
	end
	end end

trailspawn = coroutine.create(function()
for i=1,math.huge,1 do
if Settings.TrailSet == true then
local trail = trailPar()
end
end
end)

coroutine.resume(trailspawn)

lerp = function(a,b,int)
   return a:lerp(b,int)
end

local Pos = nil
Rot,Rot2 = 1,0
spawn(function()
for _,vPlr in next, game.Players:GetPlayers() do
Notify(vPlr, 'Server Orb Loaded.')
--Notify(vPlr,'By SavageMunkey')
--Notify(vPlr,'ID#: 1'..tostring(math.random(5000,50000000)))
end;end)

spawn(function()
game:FindService'RunService'.Stepped:connect(function()
if Orb.Parent ~= nil then
	--pcall(function()
Rot = Rot+Settings.Speed
if FollowPlayer and FollowPlayer.Character and FollowPlayer.Character:FindFirstChild('Torso') then
Pos = CFrame.new(FollowPlayer.Character.Torso.CFrame.p) * CFrame.new(0,3.5,0)
else
Pos = CFrame.new(0,20,0)
end
Rot2 = Rot2+.065
if Settings.RotType == 'Random' then
Orb.CFrame = lerp(Orb.CFrame, Pos * CFrame.new(0,0,0) * CFrame.Angles(math.sin(time()/26),Rot*.8,(math.cos((time()/5))*4.7)+13/1) * CFrame.new(3, math.sin((5)*0)*0, 0) * CFrame.Angles(math.sin(tick()/4)/3,math.sin(time()/10)/3,math.sin(tick()/6)/3),.06)
elseif Settings.RotType == 'Ring' then
Orb.CFrame = lerp(Orb.CFrame, Pos * CFrame.Angles(0,Rot+Settings.Speed,0) * CFrame.new(0,-3.5,Settings.Rad) * CFrame.fromEulerAnglesXYZ(tick(),tick(),tick()), .06)
elseif Settings.RotType == 'Classic' then
Orb.CFrame = lerp(Orb.CFrame, Pos * CFrame.Angles(Rot/4,(Rot/5)+Settings.Speed,Rot/2) * CFrame.new(0,-3.5,Settings.Rad) * CFrame.fromEulerAnglesXYZ(tick(),tick(),tick()), .06)
end
--// Orb.CFrame = cL(Orb.CFrame, Pos * CFrame.fromEulerAnglesXYZ(Rot2/3,Rot2*.3,Rot2/7) * CFrame.Angles(math.sin(tick()/4)/3,math.sin(time()/10)/3,math.sin(tick()/6)/3), .09)

end;end)end)