local Plr = owner
local char = owner.Character
local plr = owner

-- [[ Color Functions ]] --

h = math.random(0, 100)
color = Color3.fromHSV(h / 100, 1, 0.9)
lastbeat = 0
lastloud = 0

-- [[ Cone ]] --

local cone = Instance.new("Part")
cone.Anchored = true
cone.CanCollide = false
cone.Locked = true
cone.Size = Vector3.new(0.5, 0.5, 0.5)
cone.Parent = char
cone.Transparency = 1

local conem = Instance.new("SpecialMesh")
conem.MeshType = Enum.MeshType.FileMesh
conem.MeshId = "rbxassetid://120647846"
conem.Scale = Vector3.new(1, 1, 1)
conem.Parent = cone


--[[ Particles ]]--

local partic = Instance.new("ParticleEmitter")
partic.Rate = 50
partic.EmissionDirection = Enum.NormalId.Right
partic.Texture = "rbxassetid://443789987"
partic.LightEmission = 5
partic.LightInfluence = 1
partic.Transparency = NumberSequence.new({NumberSequenceKeypoint.new(0, 0), NumberSequenceKeypoint.new(1, 1)})
partic.Parent = cone

--[[ Light ]]--

local lite = Instance.new("PointLight")
lite.Range = 0
lite.Brightness = 0
lite.Parent = char.HumanoidRootPart

--[[ Sound ]]--

local sound = Instance.new("Sound")
sound.Parent = char.HumanoidRootPart
sound.Volume = 10
sound.Name = "Music"
sound.Looped = true

plr.Chatted:connect(function(msg)
        if msg:sub(1, 6):lower()=='visual' then
                local val = Instance.new("NumberValue", char)
                val.Value = tonumber(msg:sub(7))
                local id = val.Value
                sound:Stop()
                sound.SoundId = 'rbxassetid://'..id
                sound:Play()
                sound.Looped = true
                wait()
        elseif msg:sub(1,5):lower()=='pitch' then
                local val2 = Instance.new("NumberValue", char)
                val2.Value = tonumber(msg:sub(6))
                local Pitch = val2.Value
                sound.Pitch = Pitch
        elseif msg:sub(1,3):lower()=='vol' then
                local val3 = Instance.new("NumberValue", char)
                val3.Value = tonumber(msg:sub(5))
                local Volume = val3.Value
                sound.Volume = Volume
end
end)

--[[ Remote ]]--

local Remote = Instance.new("RemoteEvent", char)
Remote.Name = "Event"
local PlaybackSound = 0

--[[ Visual ]]--

local spin = 0

Remote.OnServerEvent:connect(function(plr, Playback)

spin = spin + 0.08 + Playback/10000

	local beat = math.abs(PlaybackSound - lastloud)
		if beat > lastbeat then
			lastbeat = beat
		else
			lastbeat = lastbeat - 10
			if lastbeat < 0 then
				lastbeat = 0
			end
		end

		h = (h + beat / 250) % 100
		lastloud = PlaybackSound
		color = Color3.fromHSV(h / 100, 5, 0.5 + lastbeat / 50)

lite.Range = 10 + Playback/25
lite.Brightness = 5 + Playback/5
lite.Color = lite.Color:lerp(Color3.fromHSV(h / 100, 1, 1), 0.25)

cone.CFrame = cone.CFrame:lerp(char.Head.CFrame * CFrame.new(0, 5, 0) * CFrame.Angles(0, spin, 0), 0.25)
cone.Color = cone.Color:lerp(Color3.fromHSV(h / 100, 1, 1), 0.25)

conem.Scale = conem.Scale:lerp(Vector3.new(1 + Playback/250, 1 + Playback/250, 1 + Playback/250), 0.25)

partic.Speed = NumberRange.new(5 + Playback/1000)
partic.Lifetime = NumberRange.new(5 + Playback/1000)
partic.Drag = 5 - Playback/50
partic.Size = NumberSequence.new({NumberSequenceKeypoint.new(0, 0 + Playback/1000), NumberSequenceKeypoint.new(1, 0.25 + Playback/1000)})
partic.Color = ColorSequence.new(Color3.fromHSV(h / 100, 1, 1), Color3.fromHSV(h / 100, 1, 1))
partic.RotSpeed = NumberRange.new(0 - sound.PlaybackLoudness/-250, 0 + sound.PlaybackLoudness/250)
partic.SpreadAngle = Vector2.new(0 - sound.PlaybackLoudness/-25, 0 + sound.PlaybackLoudness/25)

PlaybackSound = Playback

end)

--[[ Fire Remote ]]--

NLS([==[
    while wait() do
        game:service'Players'.LocalPlayer.Character.Event:FireServer(game:GetService("Players").LocalPlayer.Character.HumanoidRootPart.Music.PlaybackLoudness)
    end
]==], char)

--[[ Debounce ]]--

function debounce(func)
    local isRunning = false
    return function(...)
        if not isRunning then
            isRunning = true

            func(...)

            isRunning = false
        end
    end
end

local BillboardGui = Instance.new("BillboardGui")
local TextLabel = Instance.new("TextLabel")

local vol = 1
local song = 0
local pitch = 1
local timepos = nil
local mus = Instance.new("Sound",char)
mus:Destroy()

BillboardGui.Name = "tag"
BillboardGui.Parent = char.Head
BillboardGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
BillboardGui.AlwaysOnTop = false
BillboardGui.ExtentsOffset = Vector3.new(0, 3, 0)
BillboardGui.LightInfluence = 1
BillboardGui.Size = UDim2.new(0, 200, 0, 50)

TextLabel.Parent = BillboardGui
TextLabel.BackgroundColor3 = Color3.new(0, 0, 0)
TextLabel.BackgroundTransparency = 1
TextLabel.Size = UDim2.new(0, 200, 0, 50)
TextLabel.Font = Enum.Font.SourceSans
TextLabel.Text = ".Tame vis."
TextLabel.TextColor3 = Color3.new(126, 255, 240)
TextLabel.TextScaled = true
TextLabel.TextSize = 14
TextLabel.TextWrapped = true


	Plr.Chatted:connect(function(msg, recipient) onChatted(msg, recipient, Plr) end)

local hum = char:FindFirstChildOfClass("Humanoid")
local idleanim = Instance.new("Animation")
idleanim.Name = "Roblox Idle Animation"
idleanim.AnimationId = "http://www.roblox.com/asset/?id=180435571"
local idleanimplay = hum:LoadAnimation(idleanim)
idleanimplay:Play()
wait(0.1)
if char:FindFirstChild("Animate") then
	char.Animate:Destroy()
end
local remote = Instance.new("RemoteEvent", char)
remote.Name = "ReplicationEvent"
local client = NLS([==[
	local mouse = game:GetService("Players").LocalPlayer:GetMouse()
	local remote = game:GetService("Players").LocalPlayer.Character:WaitForChild("ReplicationEvent")
	spawn(function()
		while game:GetService("RunService").Heartbeat:Wait() do
			remote = game:GetService("Players").LocalPlayer.Character:WaitForChild("ReplicationEvent")
		end
	end)
	game:GetService("UserInputService").InputBegan:Connect(function(input, isTyping)
		if isTyping == false and input.UserInputType == Enum.UserInputType.Keyboard then
			remote:FireServer(1, input.KeyCode)
		end
	end)

    mouse.Button1Down:Connect(function()
        remote:FireServer(2)
    end)

]==], char)

local RS = char.Torso["Right Shoulder"]
local LS = char.Torso["Left Shoulder"]
local RH = char.Torso["Right Hip"]
local LH = char.Torso["Left Hip"]
local rootj = char.HumanoidRootPart.RootJoint
local normalanim = true
local animpose = "Idle"
local sine = 0
local RSnor = RS.C0
local LSnor = LS.C0
local RHnor = RH.C0
local LHnor = LH.C0
local rootjnor = rootj.C0
local ff = Instance.new("ForceField",char)
ff.Visible = false

---------------------------------
-----------Wrapping up-----------
---------------------------------

while game:GetService("RunService").Heartbeat:Wait() do
hum.Health = 9999999
hum.MaxHealth = 9999999
hum.PlatformStand = false
hum.Sit = false

for i,v in pairs(char:GetChildren()) do
if v.ClassName == "Accessory" then
v.Handle.Anchored = false
end

if v.ClassName == "Part" then
v.Anchored = false
end
end

	if normalanim then
		sine = sine + 1
	end

	if remote.Parent == char then
		remote.Name = "ReplicationEvent"
	else
		remote = Instance.new("RemoteEvent", char)
	end
	local touchfloor = workspace:FindPartOnRay(Ray.new(char.HumanoidRootPart.CFrame.Position, ((CFrame.new(char.HumanoidRootPart.Position, char.HumanoidRootPart.Position - Vector3.new(0, 1, 0))).LookVector).Unit * 4), char)
	if char.HumanoidRootPart.Velocity.Magnitude > 1 and touchfloor then
		animpose = "Walking"
	elseif char.HumanoidRootPart.Velocity.Y > 0.5 and touchfloor == nil then
		animpose = "Jumping"
	elseif char.HumanoidRootPart.Velocity.Y < 0.5 and touchfloor == nil then
		animpose = "Falling"
	else
		animpose = "Idle"
	end
	if animpose == "Idle" and normalanim then
        rootj.C0 = rootj.C0:Lerp(rootjnor * CFrame.Angles(-1.3, 0, 0), 0.15)
       rootj.C0 = rootj.C0 * CFrame.new(math.sin(sine / 10) / 7, 0, math.sin(sine / 5) / 10)
        RS.C0 = RS.C0:Lerp(RSnor * CFrame.Angles(0.3, 0, 0), 0.15)
        LS.C0 = LS.C0:Lerp(LSnor * CFrame.Angles(0.3, 0, 0), 0.15)
        RH.C0 = RH.C0:Lerp(RHnor * CFrame.Angles(-0.1, 0, 0), 0.15)
        LH.C0 = LH.C0:Lerp(LHnor * CFrame.Angles(-0.1, 0, 0), 0.15)
	elseif animpose == "Walking" and normalanim then
      rootj.C0 = rootj.C0:Lerp(rootjnor, 0.15)
        RS.C0 = RS.C0:Lerp(RSnor * CFrame.Angles(0, 0, math.sin(sine / 5)), 0.1) - Vector3.new(0, rootj.C0.Position.Y / 20, 0)

        LS.C0 = LS.C0:Lerp(LSnor * CFrame.Angles(0, 0, math.sin(sine / 5)), 0.1) - Vector3.new(0, rootj.C0.Position.Y / 20, 0)

        RH.C0 = RH.C0:Lerp(RHnor * CFrame.Angles(0, 0, math.sin(sine / 5)), 0.1) - Vector3.new(0, rootj.C0.Position.Y / 20, 0)

        LH.C0 = LH.C0:Lerp(LHnor * CFrame.Angles(0, 0, math.sin(sine / 5)), 0.1) - Vector3.new(0, rootj.C0.Position.Y / 20, 0)
	elseif animpose == "Jumping" and normalanim then
		rootj.C0 = rootj.C0:Lerp(rootjnor * CFrame.Angles(-0.5, 0, 0), 0.15)
		RS.C0 = RS.C0:Lerp(RSnor * CFrame.Angles(-0.3, 0, 0), 0.15)
		LS.C0 = LS.C0:Lerp(LSnor * CFrame.Angles(-0.3, 0, 0), 0.15)
		RH.C0 = RH.C0:Lerp(RHnor * CFrame.Angles(-0.3, 0, 0), 0.15)
		LH.C0 = LH.C0:Lerp(LHnor * CFrame.Angles(-0.3, 0, 0), 0.15)
	elseif animpose == "Falling" and normalanim then
		rootj.C0 = rootj.C0:Lerp(rootjnor * CFrame.Angles(0.5, 0, 0), 0.15)
		RS.C0 = RS.C0:Lerp(RSnor * CFrame.Angles(-0.6, 0, 0), 0.15)
		LS.C0 = LS.C0:Lerp(LSnor * CFrame.Angles(-0.6, 0, 0), 0.15)
		RH.C0 = RH.C0:Lerp(RHnor * CFrame.Angles(-0.2, 0, 0), 0.15)
		LH.C0 = LH.C0:Lerp(LHnor * CFrame.Angles(-0.2, 0, 0), 0.15)
	end

    if mus.Parent == char then
        mus.SoundId = "rbxassetid://"..song
        timepos = mus.TimePosition
mus.Pitch = pitch
        mus.Volume = vol
    else
        mus = Instance.new("Sound", char)
mus.Playing = true
mus.Looped = true
        mus.TimePosition = timepos
end
end