Thing

--Made by EssTL if you need help message me on Discord Est#4200, Please dont remove :)

local Player = game.Players.LocalPlayer

local Mouse = Player:GetMouse()

--images--
local Background = script.Parent.Background
local Image = script.Parent.Image
local ButtonClickS = script.Parent["Button Click"]
local DanceGUI = script.Parent.DanceGUI
local GUIPosition = "IN"
local Debounce = true
local Anim
local Buttons = DanceGUI.ScrollingFrame
local SpeedInput = script.Parent.DanceGUI["Animation Speed"]
--images end--

game:GetService("UserInputService").InputBegan:connect(function(inputObject,Processed)
	 if not Processed then
	if inputObject.KeyCode == Enum.KeyCode.E then
		if GUIPosition == "IN" then
		if Debounce == true then
			Debounce = false
		GUIPosition = "OUT"
		Background.ImageColor3 = Color3.fromRGB(130,130,130)
		ButtonClickS:Play()
		DanceGUI:TweenPosition(UDim2.new(0.918, 0,0.323, 0), "In", "Quad", 0.3, false, nil)
		wait(0.5)
		Background.ImageColor3 = Color3.fromRGB(95,95,95)
		end
		else
		if Debounce == true then
			Debounce = false
		GUIPosition = "IN"
		Background.ImageColor3 = Color3.fromRGB(130,130,130)
		ButtonClickS:Play()
		DanceGUI:TweenPosition(UDim2.new(1.2, 0,0.323, 0), "Out", "Quad", 0.3, false, nil)
		wait(0.5)
		Background.ImageColor3 = Color3.fromRGB(95,95,95)
		end
		end
		wait(1)
		Debounce = true
	end
	end
end)

script.Parent.OpenClose.MouseButton1Down:Connect(function()
	if GUIPosition == "IN" then
		if Debounce == true then
			Debounce = false
		GUIPosition = "OUT"
		Background.ImageColor3 = Color3.fromRGB(130,130,130)
		ButtonClickS:Play()
		DanceGUI:TweenPosition(UDim2.new(0.918, 0,0.323, 0), "In", "Quad", 0.3, false, nil)
		wait(0.5)
		Background.ImageColor3 = Color3.fromRGB(95,95,95)
		end
		else
		if Debounce == true then
			Debounce = false
		GUIPosition = "IN"
		Background.ImageColor3 = Color3.fromRGB(130,130,130)
		ButtonClickS:Play()
		DanceGUI:TweenPosition(UDim2.new(1.2, 0,0.323, 0), "Out", "Quad", 0.3, false, nil)
		wait(0.5)
		Background.ImageColor3 = Color3.fromRGB(95,95,95)
		end
		end
		wait(1)
		Debounce = true
end)

--GUI Stuff--
DanceGUI:TweenPosition(UDim2.new(1.2,0,0.323,0), "Out", "Quad", 1, false, nil)
--function
function PlayAnimation(AnimID)
	if Player.Character ~= nil and Player.Character.Humanoid ~= nil then
		local id = AnimID
		local OldAnimation = Player.Character:FindFirstChild("AnimationThing")
		if Anim ~= nil then
			Anim:Stop()
		end
		if OldAnimation ~= nil then
			if OldAnimation.AnimationId == id then
				OldAnimation:Destroy()
				return
			end
			OldAnimation:Destroy()
		end
		local Animation = Instance.new("Animation",Player.Character)
		Animation.Name = "AnimationThing"
		Animation.AnimationId=id
		Anim = Player.Character.Humanoid:LoadAnimation(Animation)
		Anim:Play()
	end
end
--function--- ADD NEW ANIMATIONS HERE------
Buttons.Animation1.MouseButton1Down:Connect(function()
	PlayAnimation(Buttons.Animation1.Anim.AnimationId)
	print("Playing Animation 1")
	ButtonClickS:Play()
end)

Buttons.Animation2.MouseButton1Down:Connect(function()
	PlayAnimation(Buttons.Animation2.Anim.AnimationId)
	print("Playing Animation 2")
	ButtonClickS:Play()
end)

Buttons.Animation3.MouseButton1Down:Connect(function()
	PlayAnimation(Buttons.Animation3.Anim.AnimationId)
	print("Playing Animation 3")
	ButtonClickS:Play()
end)

Buttons.Animation4.MouseButton1Down:Connect(function()
	PlayAnimation(Buttons.Animation4.Anim.AnimationId)
	print("Playing Animation 4")
	ButtonClickS:Play()
end)

-- animation speed stuff-----

SpeedInput.FocusLost:Connect(function(enterPressed)
    if enterPressed then
	local SpeedNumber = tonumber(SpeedInput.Text)
	if SpeedNumber <= 2.5 then
        Anim:AdjustSpeed(SpeedNumber)
	else
		Anim:AdjustSpeed(2.5)
	    end
	end
end)
-- Radio Script Server --
wait(0.3)

local Tool = script.Parent
local Handle = Tool:WaitForChild("Handle")
local Remote = script.Parent:WaitForChild("Rad")
local Remote2 = script.Parent:WaitForChild("Rad2")
local Player = script.Parent.Parent.Parent
local Character = Player.Character
local Torso = Character:WaitForChild("Torso")
local Playing = false

local db1
local db2

local SavedTarget

local SprintHit = Instance.new("RemoteEvent", Character)
SprintHit.Name = "SprintAttack"

Tool.Unequipped:Connect(function()
	if Playing == true then
	local Model = Tool.Handle:Clone()
	db1 = Model
	Model.Parent = Character
	local Weld = Instance.new("Weld", Character.Torso)
	db2 = Weld
	Weld.Part0 = Character.Torso
	Weld.Part1 = Model
	Weld.C0 = CFrame.new(0,0.3,0.7) * CFrame.fromEulerAnglesXYZ(math.rad(0),math.rad(180),320)
	Handle.Sound.Volume = 0
	end
end)

Tool.Equipped:Connect(function()
	if db1 then
		db1:Destroy()
	end
	if db2 then
		db2:Destroy()
	end
	Handle.Sound.Volume = 1
end)

Sound = script.Parent.Handle.Sound

Remote.OnServerEvent:connect(function(Playerr, Mode, ID)
	Playing = true
		Sound:Stop()
		Sound.SoundId = "rbxassetid://"..ID
		Sound:Play()
end)

Remote2.OnServerEvent:connect(function(Playerr, Mode, ID)
	Playing = false
	Sound:Stop()
end)
-- Radio Script local --

wait(0.3)

local tool = script.Parent
local Player = game.Players.LocalPlayer
local Humanoid = Player.Character:WaitForChild("Humanoid")
local RadioGUI = Player.PlayerGui:WaitForChild("Radio")
local ToggleButton = RadioGUI.Frame.Button
local ToggleButton2 = RadioGUI.Frame.Button2
local Input = RadioGUI.Frame.Insert
local Remote = script.Parent:WaitForChild("Rad")
local Remote2 = script.Parent:WaitForChild("Rad2")
local Render = game:GetService("RunService").RenderStepped

local Rirea
local Ranim = script.Parent.Handle.a

tool.Equipped:Connect(function()
	Rirea = Humanoid:LoadAnimation(Ranim)
	    Rirea.Priority = Enum.AnimationPriority.Action
	    Rirea:Play()
	RadioGUI.Frame.Visible = true
end)

tool.Unequipped:Connect(function()
	if Rirea then
		Rirea:Stop()
	end
	RadioGUI.Frame.Visible = false
end)

ToggleButton.MouseButton1Down:connect(function()
		Remote:FireServer("Start", tonumber(Input.Text))
end)

ToggleButton2.MouseButton1Down:connect(function()
		Remote2:FireServer()
end)

Render:Connect(function()
	local rb = Player.Character:FindFirstChild("Handle")
	if rb then
		local m = rb:FindFirstChild("Mesh")
		if m then
			local n = Player.Character.Handle.Sound.PlaybackLoudness / 70
			if n < 3.5 then
				n = 3.5
			end
			if n > 4 then
				n = 4.5
			end
			if n > 6 then
				n = 6
			end
			m.Scale = Vector3.new(n,n,4)
		end
	end
end)

-- i have a lot other things but im to lazy to load them up