local plr = game:GetService('Players').LocalPlayer;
local char = plr.Character;

function cycle(num)
    local section=num % 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
wait(1)
o81 = Instance.new("Sound")
o81.Parent = plr.Character.Torso
o81.SoundId = "rbxassetid://377233357"
o81.Volume = 5
o81.Looped = false
local Sound=plr.Character.Torso.Sound
Sound.Looped=true
Sound:Play()
--function chat end--

function rhats()
	local function GetAll(obj)
		for i, v in pairs(obj:getChildren()) do
			if v:IsA("Accessory") then
				v:Destroy()
				end
			GetAll(v)
		end
end
	GetAll(char)
end
rhats()


local plr = workspace
function rsound()
	local function GetAll(obj)
		for i, v in pairs(obj:getChildren()) do
			if v:IsA("Sound") then
				v:Destroy()
				end
			GetAll(v)
		end
end
	GetAll(plr)
end

m = char.Head.Mesh
h = m.Parent
h.face.Texture = "rbxassetid://183096010"
m.Scale = m.Scale+Vector3.new(.3,.3,.3)
Neck = Instance.new("Part")
Neckm = Instance.new("CylinderMesh")
Neck.CanCollide = false
Neck.Anchored = false
Neck.Name = "Neck"
Neck.Parent = char.Head
Neck.Material = Enum.Material.SmoothPlastic
Neck.Rotation = Vector3.new(0, 24, 0)
Neck.Size = Vector3.new(1, 1, 1)
Neck.CFrame = CFrame.new(m.Parent.CFrame.p)
Neck.BrickColor = char.Head.BrickColor
Neckm.Parent = Neck
Neckm.Scale = Vector3.new(0.3, 0, 0.3)
wld = Instance.new("Weld",char.Head)
wld.Part0 = char.Torso
wld.Part1 = Neck
wld.C0 = CFrame.new(0,1,0)

game:GetService('Players').LocalPlayer.Chatted:connect(function(msg)
	if msg:sub(1,3):lower()==';pl' then
		local id = tonumber(msg:sub(5))
		Sound:Stop()
		Sound.SoundId='rbxassetid://'..id
		Sound:Play()
	elseif msg:sub(1,4):lower()==';vol' then
		local id = tonumber(msg:sub(6))
		Sound.Volume = id
		elseif msg:sub(1,6):lower():match(';mute ') then
            for i,v in pairs(game.Players:GetPlayers()) do
                    if v.Name:lower():match(msg:sub(7):lower()) then
plr = v.Character
   rsound()
end
end
end
end)
game:GetService("RunService").Heartbeat:connect(function()
m.Offset = m.Offset:lerp(Vector3.new(0, Sound.PlaybackLoudness/200, 0),.2)
Neckm.Scale = Neckm.Scale:lerp(Vector3.new(0.8, Sound.PlaybackLoudness/160, 0.8), .2)
wld.C0 = wld.C0:lerp(CFrame.new(0,1+Neckm.Scale.Y/2,0),1)
end)