dfrherhde

local id = 3019753162
local mesh = Instance.new("SpecialMesh" , real)
mesh.MeshId = 'rbxassetid://3054461843'
mesh.TextureId = 'rbxassetid://3054461863'
mesh.Scale = Vector3.new(.15,.15,.15)
local sound = Instance.new("Sound" , SpecialMesh)
sound.SoundId = 'rbxassetid://' ..id
sound.Volume = 1.5
sound.Looped = true
sound.EmitterSize = 25
sound.Name = "SomeMusic"
local remote = Instance.new("RemoteEvent"  , owner.Character)
remote.Name = 'SongEvent'
owner.Character.Archivable = true
local tilt = 0
local naeeym2 = Instance.new("BillboardGui", SpecialMesh)
naeeym2.Size = UDim2.new(0,100,0,40)
naeeym2.Name = "TalkingBillBoard"
local tecks2 = Instance.new("TextBox",naeeym2)
tecks2.BackgroundTransparency = 1
tecks2.BorderSizePixel = 0
tecks2.Text = "Now playing "..game:GetService("MarketplaceService"):GetProductInfo(id).Name.." by " ..game:GetService("MarketplaceService"):GetProductInfo(id).Creator.Name.." "
tecks2.Font = "Arcade"
tecks2.TextSize = 25
tecks2.TextStrokeTransparency = 0
tecks2.TextColor3 = Color3.new(255,255,0)
tecks2.TextStrokeColor3 = Color3.new(0,0,0)
tecks2.Size = UDim2.new(1,0,0.5,0)
local tecks3 = Instance.new("TextBox",naeeym2)
tecks3.BackgroundTransparency = 1
tecks3.BorderSizePixel = 0
tecks3.Text = "Now playing "..game:GetService("MarketplaceService"):GetProductInfo(id).Name.." by " ..game:GetService("MarketplaceService"):GetProductInfo(id).Creator.Name.." "
tecks3.Font = "Arcade"
tecks3.TextSize = 25
tecks3.TextStrokeTransparency = 0
tecks3.TextColor3 = Color3.new(255,255,0)
tecks3.TextStrokeColor3 = Color3.new(0,0,0)
tecks3.Size = UDim2.new(1,0,0.5,0)
coroutine.resume(coroutine.create(function()
pcall(function()
	while task.wait() do
if sound.IsPlaying == true then
tecks2.Text = "Now playing "..game:GetService("MarketplaceService"):GetProductInfo(id).Name.." by " ..game:GetService("MarketplaceService"):GetProductInfo(id).Creator.Name.." "
tecks3.Text = "Now playing "..game:GetService("MarketplaceService"):GetProductInfo(id).Name.." by " ..game:GetService("MarketplaceService"):GetProductInfo(id).Creator.Name.." "
		tecks3.Position = UDim2.new(math.random(-tilt/10,tilt/10),math.random(-tilt/10,tilt/10),.05,math.random(-tilt/10,tilt/10))
		tecks3.Rotation = math.random(-tilt/3,tilt/3)
		tecks3.TextColor3 = Color3.new(math.random(0, 255)/255,math.random(0, 255)/255,math.random(0, 255)/255)
		tecks3.TextStrokeColor3 = Color3.new(math.random(0, 255)/255,math.random(0, 255)/255,math.random(0, 255)/255)
tecks2.Position = UDim2.new(math.random(-tilt/10,tilt/10),math.random(-tilt/10,tilt/10),.05,math.random(-tilt/10,tilt/10))
tecks2.Rotation = math.random(-tilt/3,tilt/3)
		tecks2.TextColor3 = Color3.new(math.random(0, 255)/255,math.random(0, 255)/255,math.random(0, 255)/255)
		tecks2.TextStrokeColor3 = Color3.new(math.random(0, 255)/255,math.random(0, 255)/255,math.random(0, 255)/255)
else
tecks3.Position = UDim2.new(0,0,0)
		tecks3.Rotation = 0
tecks2.Position = UDim2.new(0,0,0)
		tecks2.Rotation = 0
tecks3.TextColor3 = Color3.new(255,255,0)
tecks3.TextStrokeColor3 = Color3.new(0,0,0)
tecks2.TextColor3 = Color3.new(255,255,0)
tecks2.TextStrokeColor3 = Color3.new(0,0,0)
tecks2.Text = "Current song is "..game:GetService("MarketplaceService"):GetProductInfo(id).Name.." by " ..game:GetService("MarketplaceService"):GetProductInfo(id).Creator.Name.." "
tecks3.Text = "Current song is "..game:GetService("MarketplaceService"):GetProductInfo(id).Name.." by " ..game:GetService("MarketplaceService"):GetProductInfo(id).Creator.Name.." "
end
end
	end)
end))
NLS([[
local owner = game:GetService("Players").LocalPlayer
local char = script.Parent
local sound = char['Head Visualizer'].SomeMusic
local remote = char.SongEvent
while wait() do
if sound.isPlaying == true then
remote:FireServer(sound.PlaybackLoudness/50)
end
end
]], owner.Character)
local DecayTime = 1
local Diffusion = 1
local Density = 1
local Depth = 1
local Mix = 1
local Rate = 1
owner.Chatted:Connect(function(msg)
if msg == ';stop' then
sound:Stop()
tilt = 0
elseif msg == ';play' then
sound:Play()
elseif msg == ';pause' then
sound:Pause()
tilt = 0
elseif msg == ';resume' then
sound:Resume()
elseif string.lower(string.sub(msg,1,3)) == ';ps' then
sound.PlaybackSpeed = string.lower(string.sub(msg,5,100))
elseif string.lower(string.sub(msg,1,6)) == ';pitch' then
sound.Pitch = string.lower(string.sub(msg,8,100))
elseif string.lower(string.sub(msg,1,3)) == ';tp' then
sound.TimePosition = string.lower(string.sub(msg,5,100))
elseif string.lower(string.sub(msg,1,3)) == ';id' then
id = string.lower(string.sub(msg,5,100))
sound.SoundId = 'rbxassetid://' ..id
tecks2.Text = "Current song is "..game:GetService("MarketplaceService"):GetProductInfo(id).Name.." by " ..game:GetService("MarketplaceService"):GetProductInfo(id).Creator.Name.." "
tecks3.Text = "Current song is "..game:GetService("MarketplaceService"):GetProductInfo(id).Name.." by " ..game:GetService("MarketplaceService"):GetProductInfo(id).Creator.Name.." "
elseif string.lower(string.sub(msg,1,4)) == ';vol' then
sound.Volume = string.lower(string.sub(msg,6,8))
print("Volume changed to " ..sound.Volume)
elseif msg == ';rev' then
local ga = Instance.new("ReverbSoundEffect" , sound)
ga.DecayTime = DecayTime
ga.Density = Density
ga.Diffusion = Diffusion
ga.Name = 'Reverb'
elseif string.lower(string.sub(msg,1,5)) == ';dect' then
DecayTime = string.lower(string.sub(msg,7,100))
if sound:FindFirstChild("Reverb") then
sound.Reverb.DecayTime = DecayTime
end
elseif string.lower(string.sub(msg,1,5)) == ';diff' then
Diffusion = string.lower(string.sub(msg,7,100))
if sound:FindFirstChild("Reverb") then
sound.Reverb.Diffusion = Diffusion
end
elseif string.lower(string.sub(msg,1,5)) == ';dens' then
Density = string.lower(string.sub(msg,7,100))
if sound:FindFirstChild("Reverb") then
sound.Reverb.Density = Density
end
elseif msg == ';flange' then
local ga = Instance.new("FlangeSoundEffect" , sound)
ga.Depth = Depth
ga.Mix = Mix
ga.Rate = Rate
ga.Name = 'Flange'
elseif string.lower(string.sub(msg,1,5)) == ';dept' then
Depth = string.lower(string.sub(msg,7,100))
if sound:FindFirstChild("Flange") then
sound.Flange.Depth = Depth
end
elseif string.lower(string.sub(msg,1,4)) == ';mix' then
Mix = string.lower(string.sub(msg,6,100))
if sound:FindFirstChild("Flange") then
sound.Flange.Mix = Mix
end
elseif string.lower(string.sub(msg,1,5)) == ';rate' then
if sound:FindFirstChild("Flange") then
sound.Flange.Rate = Rate
end
Rate = string.lower(string.sub(msg,7,100))
elseif msg == ';clref' then
for i,v  in pairs(sound:GetChildren()) do
v:Destroy()
end
end
end)