long

runservice = game:GetService("RunService")
owner = game:GetService("Players").Lucas_YT111 --change to your name here
local Char = owner.Character
local Part1 = Instance.new("Part", Char.HumanoidRootPart)
local Hat = Instance.new("Part", Char.HumanoidRootPart)
SpecialMesh2 = Instance.new("SpecialMesh")
SpecialMesh2.Parent = Hat
SpecialMesh2.MeshId = "http://www.roblox.com/asset/?id=45915012"
SpecialMesh2.TextureId = "http://www.roblox.com/asset/?id=45915003"
SpecialMesh2.Scale = Vector3.new(1.5, 1.5, 1.5)
Part1:BreakJoints()
Hat:BreakJoints()
Part1.Size = Vector3.new(20, 2, 2)
local Ball = Part1
Hat.Rotation = Char.PrimaryPart.Rotation
Ball.Rotation = Char.PrimaryPart.Rotation
Part1.BottomSurface = Enum.SurfaceType.Smooth
Part1.BrickColor = BrickColor.new("Bright yellow")
Part1.TopSurface = Enum.SurfaceType.Smooth
Part1.brickColor = BrickColor.new("Bright yellow")
local decal = Instance.new("Decal", Part1)
decal.Face = Enum.NormalId.Front
local happyFace = "http://www.roblox.com/asset/?id=620619801"
decal.Texture = happyFace
local music = Instance.new("Sound", owner.character.Head)
music.SoundId = "rbxassetid://5345067321"
music.Volume = 1
music.Looped = True
music:Play()
Hat.Position = Vector3.new(0, 250, 0)
Part1.Position = Vector3.new(0, 275, 0)
wait(0.1)
local Weld = Instance.new("WeldConstraint")
Weld.Parent = Ball
Weld.Part0 = Ball
Weld.Part1 = Char.HumanoidRootPart
Ball.Position = Char.PrimaryPart.Position + Vector3.new(0, -1.24, 0)
Ball.Parent = Char
local Weldhat = Instance.new("WeldConstraint")
Weldhat.Parent = Hat
Weldhat.Part0 = Hat
Weldhat.Part1 = Char.HumanoidRootPart
Hat.Position = Char.PrimaryPart.Position + Vector3.new(0, 0.25, 0)
Hat.Parent = Char
for i,v in pairs(Char:GetDescendants()) do
if v:IsA("BasePart") or v:IsA("Decal") then
v.Transparency = 1
end
end
Part1.Transparency = 0
Hat.Transparency = 0
decal.Transparency = 0
owner.Chatted:Connect(function(musicchange)
if musicchange == "-music1" then
    music:Stop()
    music.SoundId = "rbxassetid://5345067321"
    music:Play()
elseif musicchange == "-music2" then
    music:Stop()
    music.SoundId = "rbxassetid://142463636"
    music:Play()
end
end)