local p=game.Players.LocalPlayer
local uis=game:GetService("UserInputService")

local ids={
	i1="rbxassetid://137590817619816",
	i2="rbxassetid://137590817619816",
	j="rbxassetid://74671059842796",
	w="rbxassetid://91094103758831",
	f="rbxassetid://126221087857332",
	c="rbxassetid://180436334",
	s="rbxassetid://178130996",

	h="rbxassetid://119284932794236",
	p="rbxassetid://74379808387756",
	a="rbxassetid://128808990246683"
}

local function go(c)
	local h=c:WaitForChild("Humanoid")

	local a=c:FindFirstChild("Animate") if a then a:Destroy() end

	local an=h:FindFirstChildOfClass("Animator") if an then an:Destroy() end
	an=Instance.new("Animator",h)

	local function l(x)
		local aa=Instance.new("Animation")
		aa.AnimationId=x
		return an:LoadAnimation(aa)
	end

	local i1=l(ids.i1)
	local i2=l(ids.i2)
	local w=l(ids.w)
	local j=l(ids.j)
	local f=l(ids.f)
	local cl=l(ids.c)
	local si=l(ids.s)

	local hunt=l(ids.h)
	local purs=l(ids.p)
	local art=l(ids.a)

	local cur=nil
	local huntmode=false

	local snd=Instance.new("Sound")
	snd.SoundId="rbxassetid://115900028256972"
	snd.Volume=3
	snd.Parent=c:WaitForChild("HumanoidRootPart")

	local function stahp()
		if snd then snd:Stop() end
	end

	local function pplay(t,l)
		if cur then cur:Stop() end
		stahp()
		cur=t
		cur.Looped=l or false
		cur:Play()
	end

	local function playWithSound(anim)
		pplay(anim,true)
		task.spawn(function()
			task.wait(1.3)
			if cur==anim then
				snd:Play()
			end
		end)
	end

	h.Running:Connect(function(s)
		if huntmode then
			pplay(hunt,true)
			return
		end
		if s>1 then
			pplay(w,true)
		else
			if math.random(1,2)==1 then pplay(i1,true) else pplay(i2,true) end
		end
	end)

	h.Jumping:Connect(function() if not huntmode then pplay(j,false) end end)
	h.FreeFalling:Connect(function() if not huntmode then pplay(f,true) end end)
	h.Climbing:Connect(function() if not huntmode then pplay(cl,true) end end)
	h.Seated:Connect(function() if not huntmode then pplay(si,true) end end)

	local function stopCustom()
		if not huntmode then
			if cur==purs or cur==art then
				if cur then cur:Stop() end
				stahp()
			end
		end
	end

	h.Running:Connect(stopCustom)
	h.Jumping:Connect(stopCustom)

	local g=Instance.new("ScreenGui",p:WaitForChild("PlayerGui"))

	local function makeBtn(txt,x)
		local b=Instance.new("TextButton")
		b.Size=UDim2.new(0,140,0,45)
		b.Position=UDim2.new(0,x,0.75,0)
		b.Text=txt
		b.BackgroundColor3=Color3.new(math.random(),math.random(),math.random())
		b.TextColor3=Color3.new(1,1,1)
		b.Parent=g

		local d=false;local di;local ds;local sp

		b.InputBegan:Connect(function(i)
			if i.UserInputType==Enum.UserInputType.MouseButton1 then
				d=true;ds=i.Position;sp=b.Position
				i.Changed:Connect(function()
					if i.UserInputState==Enum.UserInputState.End then d=false end
				end)
			end
		end)

		b.InputChanged:Connect(function(i)
			if i.UserInputType==Enum.UserInputType.MouseMovement then di=i end
		end)

		uis.InputChanged:Connect(function(i)
			if i==di and d then
				local delta=i.Position-ds
				b.Position=UDim2.new(sp.X.Scale,sp.X.Offset+delta.X,sp.Y.Scale,sp.Y.Offset+delta.Y)
			end
		end)

		return b
	end

	local b1=makeBtn("Pursuer",20)
	local b2=makeBtn("Artful",180)
	local b3=makeBtn("Hunt",340)

	local t1=false
	local t2=false
	local t3=false

	b1.MouseButton1Click:Connect(function()
		t1=not t1
		if t1 then
			t2=false
			playWithSound(purs)
		else
			if cur then cur:Stop() end
			stahp()
		end
	end)

	b2.MouseButton1Click:Connect(function()
		t2=not t2
		if t2 then
			t1=false
			playWithSound(art)
		else
			if cur then cur:Stop() end
			stahp()
		end
	end)

	b3.MouseButton1Click:Connect(function()
		t3=not t3
		huntmode=t3
		if huntmode then
			pplay(hunt,true)
		else
			if cur then cur:Stop() end
		end
	end)
end

if p.Character then go(p.Character) end
p.CharacterAdded:Connect(go)