Part Animal, By HANdsum

--https://github.com/Mokiros/roblox-FE-compatibility
if game:GetService("RunService"):IsClient() then error("Script must be server-side in order to work; use h/ and not hl/") end
local Player,Mouse,mouse,UserInputService,ContextActionService = owner
local RealPlayer = Player
do local a=RealPlayer;script.Parent=a.Character;local b=Instance.new("RemoteEvent")b.Name="UserInput_Event"local function c()local d={_fakeEvent=true,Functions={},Connect=function(self,e)table.insert(self.Functions,e)end}d.connect=d.Connect;return d end;local f={Target=nil,Hit=CFrame.new(),KeyUp=c(),KeyDown=c(),Button1Up=c(),Button1Down=c(),Button2Up=c(),Button2Down=c()}local g={InputBegan=c(),InputEnded=c()}local CAS={Actions={},BindAction=function(self,h,i,j,...)CAS.Actions[h]=i and{Name=h,Function=i,Keys={...}}or nil end}CAS.UnbindAction=CAS.BindAction;local function k(self,l,...)local d=f[l]if d and d._fakeEvent then for m,e in pairs(d.Functions)do e(...)end end end;f.TrigEvent=k;g.TrigEvent=k;b.OnServerEvent:Connect(function(n,o)if n~=a then return end;f.Target=o.Target;f.Hit=o.Hit;if not o.isMouse then local p=o.UserInputState==Enum.UserInputState.Begin;if o.UserInputType==Enum.UserInputType.MouseButton1 then return f:TrigEvent(p and"Button1Down"or"Button1Up")end;if o.UserInputType==Enum.UserInputType.MouseButton2 then return f:TrigEvent(p and"Button2Down"or"Button2Up")end;for m,d in pairs(CAS.Actions)do for m,q in pairs(d.Keys)do if q==o.KeyCode then d.Function(d.Name,o.UserInputState,o)end end end;f:TrigEvent(p and"KeyDown"or"KeyUp",o.KeyCode.Name:lower())g:TrigEvent(p and"InputBegan"or"InputEnded",o,false)end end)b.Parent=NLS([==[local a=game:GetService("Players").LocalPlayer;local b=script:WaitForChild("UserInput_Event")local c=a:GetMouse()local d=game:GetService("UserInputService")local e=function(f,g)if g then return end;b:FireServer({KeyCode=f.KeyCode,UserInputType=f.UserInputType,UserInputState=f.UserInputState,Hit=c.Hit,Target=c.Target})end;d.InputBegan:Connect(e)d.InputEnded:Connect(e)local h,i;while wait(1/30)do if h~=c.Hit or i~=c.Target then h,i=c.Hit,c.Target;b:FireServer({isMouse=true,Target=i,Hit=h})end end]==],Player.Character)local r=game;local s={__index=function(self,q)local t=rawget(self,"_RealService")if t then return typeof(t[q])=="function"and function(m,...)return t[q](t,...)end or t[q]end end,__newindex=function(self,q,u)local t=rawget(self,"_RealService")if t then t[q]=u end end}local function v(d,w)d._RealService=typeof(w)=="string"and r:GetService(w)or w;return setmetatable(d,s)end;local x={GetService=function(self,t)return rawget(self,t)or r:GetService(t)end,Players=v({LocalPlayer=v({GetMouse=function(self)return f end},Player)},"Players"),UserInputService=v(g,"UserInputService"),ContextActionService=v(CAS,"ContextActionService"),RunService=v({_btrs={},RenderStepped=r:GetService("RunService").Heartbeat,BindToRenderStep=function(self,h,m,i)self._btrs[h]=self.Heartbeat:Connect(i)end,UnbindFromRenderStep=function(self,h)self._btrs[h]:Disconnect()end},"RunService")}rawset(x.Players,"localPlayer",x.Players.LocalPlayer)x.service=x.GetService;v(x,game)game,owner=x,x.Players.LocalPlayer end
--------------------------------------------------------
			--Script fully made by--
--         _        __    _                     --
--  /\  /\/_\    /\ \ \__| |___ _   _ _ __ ___  --
-- / /_/ //_\\  /  \/ / _` / __| | | | '_ ` _ \ --
--/ __  /  _  \/ /\  / (_| \__ \ |_| | | | | | |--
--\/ /_/\_/ \_/\_\ \/ \__,_|___/\__,_|_| |_| |_|--

Player = game:GetService("Players").LocalPlayer
char = Player.Character
Mouse = Player:GetMouse()
PartyMode = Instance.new("BoolValue", char)
char.Humanoid.HealthDisplayType = "AlwaysOff"
char.Humanoid.DisplayDistanceType = "None"
--------------------------------------------------------
print("Commands")
print("Tap E : Rapidly changes body color and sets body to neon.")
print("Type \"O/Speed/Number\" : Will change the orbs Speed to the number that you wrote.")
print("Type \"O/Mat/Material\" : Will change the orbs Material to the one that you wrote.")
print("Type \"O/Tran/Number\" : Will change the orbs Transparency to the number that you wrote.")
print("Type \"O/Ref/Number\" : Will change the orbs Reflectance to the number that you wrote.")
print("Type \"O/Dis/Number\" : Will change the orbs Distance to the number that you wrote.")
print("Type \"O/Col/Color\" : Will change the orbs Color to the color that you wrote.")
print("Type \"O/Fol/FullUserName\" : Will orbit around the player you wrote.")
print("Type \"O/Vol/Number\" : Will change current song Volume to the one that you wrote.")
print("Type \"O/Play/SongID\" : Will play a song depending on the SongID you wrote.")
print("Type \"O/LPlay/SongID\" : Will loop play a song depending on the SongID you wrote.")
print("Type \"O/Stop\" : Will Stop the current playing song.")
print("Defaults")
Head = char.Head
HC = Head.Color
Torso = char.Torso
TC = Torso.Color
LArm = char:FindFirstChild("Left Arm")
LAC = LArm.Color
LLeg = char:FindFirstChild("Left Leg")
LLC = LLeg.Color
RArm = char:FindFirstChild("Right Arm")
RAC = RArm.Color
RLeg = char:FindFirstChild("Right Leg")
RLC = RLeg.Color
--------------------------------------------------------
Player:ClearCharacterAppearance();
A = Instance.new("Accessory", char);
A.AttachmentPos = Vector3.new(0,2,0)
H = Instance.new("Part");
H.Parent = A;H.Name = "Handle";
M = Instance.new("SpecialMesh");
M.Parent = H;M.MeshId = "rbxassetid://1028713";M.TextureId = "rbxassetid://984833776";M.Scale = Vector3.new(1, 1.19, 1)
AW = Instance.new("Weld");
AW.Parent = H;AW.Name = "AccessoryWeld";AW.Part0 = H;AW.Part1 = char.Head;
OS = Instance.new("Vector3Value");
OS.Parent = H;OS.Name = "OriginalSize";OS.Value = Vector3.new(1.4,1,1.6);
HA = Instance.new("Attachment");
HA.Parent = H;HA.Name = "HatAttachment";
--------------------------------------------------------
BG = Instance.new("BillboardGui", char.Head)
BG.MaxDistance = 80
BG.Size = UDim2.new(4,0,1,0)
BG.StudsOffset = Vector3.new(0,1.5,0)
TB = Instance.new("TextBox")
TB.Parent = BG
TB.BackgroundTransparency = 1
TB.Size = UDim2.new(1,0,1,0)
TB.Font = "Cartoon"
TB.Text = char.Name
TB.TextScaled = true
TB.TextStrokeTransparency = 0
TB.TextWrapped = true
TB.TextColor3 = Color3.new(43,255,255)
--------------------------------------------------------
Mouse.KeyDown:connect(function(key)
	if key:lower() == "w" or key:lower() == "a" or key:lower() == "s" or key:lower() == "d" then
		wait(0.01)
		Head.Material = "Neon"
		Head.Color = Color3.fromRGB(math.random(0,255),math.random(0,255),math.random(0,255))
		Torso.Material = "Neon"
		Torso.Color = Color3.fromRGB(math.random(0,255),math.random(0,255),math.random(0,255))
		LArm.Material = "Neon"
		LArm.Color = Color3.fromRGB(math.random(0,255),math.random(0,255),math.random(0,255))
		RArm.Material = "Neon"
		RArm.Color = Color3.fromRGB(math.random(0,255),math.random(0,255),math.random(0,255))
		LLeg.Material = "Neon"
		LLeg.Color = Color3.fromRGB(math.random(0,255),math.random(0,255),math.random(0,255))
		RLeg.Material = "Neon"
		RLeg.Color = Color3.fromRGB(math.random(0,255),math.random(0,255),math.random(0,255))
	end

	if key:lower() == "e" and PartyMode.Value == false then
		PartyMode.Value = true
		TB.Text = "Party Mode"
		Head.Material = "Neon"
		Torso.Material = "Neon"
		RArm.Material = "Neon"
		LArm.Material = "Neon"
		LLeg.Material = "Neon"
		RLeg.Material = "Neon"
		repeat
			wait(0.2)
			Head.Color = Color3.fromRGB(math.random(0,255),math.random(0,255),math.random(0,255))
			Torso.Color = Color3.fromRGB(math.random(0,255),math.random(0,255),math.random(0,255))
			LArm.Color = Color3.fromRGB(math.random(0,255),math.random(0,255),math.random(0,255))
			RArm.Color = Color3.fromRGB(math.random(0,255),math.random(0,255),math.random(0,255))
			LLeg.Color = Color3.fromRGB(math.random(0,255),math.random(0,255),math.random(0,255))
			RLeg.Color = Color3.fromRGB(math.random(0,255),math.random(0,255),math.random(0,255))
		until
		PartyMode.Value == false
	end

	if key:lower() == "e" and PartyMode.Value == true then
		PartyMode.Value = false
		wait(0.1)
		TB.TextColor3 = Color3.new(43,255,255)
		TB.Text = char.Name
	end
end)

Mouse.KeyUp:connect(function(key)
	if PartyMode.Value == false then
		wait(0.5)
		Head.Color = HC;Torso.Color = TC;LArm.Color = LAC;RArm.Color = RAC;LLeg.Color = LLC;RLeg.Color = RLC
		Head.Material = "Plastic";Torso.Material = "Plastic";LArm.Material = "Plastic";RArm.Material = "Plastic";LLeg.Material = "Plastic";RLeg.Material = "Plastic"
	end
end)
--------------------------------------------------------
Orb = Instance.new("Part")
Orb.Name = "Orb"
Orb.Parent = char
Orb.Color = Color3.fromRGB(91, 93, 105)
Orb.Material = "Glass"
Orb.Reflectance = 1
Orb.Transparency = 0.7
Orb.CanCollide = false
Orb.Shape = "Ball"
Orb.Size = Vector3.new(1,1,1)
Orb.Anchored = true
--------------------------------------------------------
OBG = Instance.new("BillboardGui", Orb)
OBG.MaxDistance = 80
OBG.Size = UDim2.new(4,0,1,0)
OBG.StudsOffset = Vector3.new(0,1,0)
OTB = Instance.new("TextBox")
OTB.Parent = OBG
OTB.BackgroundTransparency = 1
OTB.Size = UDim2.new(1,0,1,0)
OTB.Font = "Cartoon"
OTB.Text = char.Name.."'s Orb"
OTB.TextScaled = true
OTB.TextStrokeTransparency = 0
OTB.TextWrapped = true
OTB.TextColor3 = Color3.new(43,255,255)
--------------------------------------------------------
Angle = Instance.new("IntValue", char)
Angle.Name = "Angle"
--------------------------------------------------------
local i = 0
local Speed = 0.09
print("Speed : "..Speed)
local Object = Orb
local Distance = 6
print("Distance : "..Distance)
local Fol = Instance.new("StringValue", Orb)
Fol.Value = Player.Name
Music = Instance.new("Sound")
--------------------------------------------------------
Player.Chatted:Connect(function(message)
	if Player.Name == Player.Name then
		if message:sub(1, 6) == "O/Mat/" then
			Orb.Material = message:sub(7)
		end

		if message:sub(1,8) == "O/Speed/" then
			Speed = message:sub(9)
		end

		if message:sub(1, 6) == "O/Fol/" then
			local check = message:sub(7)
			if game.workspace:FindFirstChild(check) ~= nil then
				Fol.Value = message:sub(7)
			end
		end

		if message:sub(1, 7) == "O/Tran/" then
			Orb.Transparency = message:sub(8)
		end

		if message:sub(1, 6) == "O/Ref/" then
			Orb.Reflectance = message:sub(7)
		end

		if message:sub(1, 6) == "O/Dis/" then
			Distance = message:sub(7)
		end

		if message:sub(1, 6) == "O/Col/" then
			Orb.BrickColor = BrickColor.new(message:sub(7))
		end

		if message:sub(1, 7) == "O/Play/" then
			Music.Parent = Orb
		    Music.SoundId = "rbxassetid://"..message:sub(8)
		    Music:Play()
			Music.Volume = 5
			Music.Looped = false
		end

		if message:sub(1, 8) == "O/LPlay/" then
			Music.Parent = Orb
		    Music.SoundId = "rbxassetid://"..message:sub(9)
		    Music:Play()
			Music.Volume = 5
			Music.Looped = true
		end

		if message:sub(1, 6) == "O/Vol/" then
			Music.Volume = message:sub(7)
		end

		if message:sub(1, 7) == "O/Stop" then
			Music.SoundId = ""
			Music.Looped = false
		end
	end
end)
--------------------------------------------------------
while true do
	wait()
	i = i + 1
	local Angle = 0
	if Fol.Value == nil then
		Fol.Value = Player.Name
	end
	Object.CFrame = game.Workspace:FindFirstChild(Fol.Value).HumanoidRootPart.CFrame - CFrame.fromEulerAnglesXYZ(Angle, i * Speed, 0) * Vector3.new(0,0,Distance)
end