get_animation_script.lua

-- Gui to Lua
-- Version: 3.2

-- Instances:

for i,v in game.Players.LocalPlayer:WaitForChild("PlayerGui"):GetChildren() do
	if v.Name == "get_anims" then
		v:Destroy()
	end
end

local ScreenGui = Instance.new("ScreenGui")
local Frame = Instance.new("Frame")
local butns = Instance.new("Folder")
local get_anims = Instance.new("TextButton")
local stop_anims = Instance.new("TextButton")
local play = Instance.new("TextButton")
local first = Instance.new("TextBox")
local second = Instance.new("TextBox")

--Properties:

ScreenGui.Name = "get_anims"
ScreenGui.Parent = game.Players.LocalPlayer:WaitForChild("PlayerGui")
ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
ScreenGui.ResetOnSpawn = false

Frame.Parent = ScreenGui
Frame.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
Frame.BackgroundTransparency = 0.600
Frame.BorderColor3 = Color3.fromRGB(0, 0, 0)
Frame.BorderSizePixel = 0
Frame.Position = UDim2.new(0.0484972596, 0, 0.312655091, 0)
Frame.Size = UDim2.new(0, 299, 0, 163)

butns.Name = "butns"
butns.Parent = Frame

get_anims.Name = "get_anims"
get_anims.Parent = butns
get_anims.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
get_anims.BackgroundTransparency = 0.600
get_anims.BorderColor3 = Color3.fromRGB(0, 0, 0)
get_anims.BorderSizePixel = 0
get_anims.Position = UDim2.new(0, 10, 0, 10)
get_anims.Size = UDim2.new(0, 118, 0, 23)
get_anims.Font = Enum.Font.SourceSans
get_anims.Text = "get animations"
get_anims.TextColor3 = Color3.fromRGB(255, 255, 255)
get_anims.TextScaled = true
get_anims.TextSize = 14.000
get_anims.TextWrapped = true

stop_anims.Name = "stop_anims"
stop_anims.Parent = butns
stop_anims.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
stop_anims.BackgroundTransparency = 0.600
stop_anims.BorderColor3 = Color3.fromRGB(0, 0, 0)
stop_anims.BorderSizePixel = 0
stop_anims.Position = UDim2.new(0.45166558, 0, 0, 10)
stop_anims.Size = UDim2.new(0, 118, 0, 23)
stop_anims.Font = Enum.Font.SourceSans
stop_anims.Text = "stop animations"
stop_anims.TextColor3 = Color3.fromRGB(255, 255, 255)
stop_anims.TextScaled = true
stop_anims.TextSize = 14.000
stop_anims.TextWrapped = true

play.Name = "play"
play.Parent = butns
play.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
play.BackgroundTransparency = 0.600
play.BorderColor3 = Color3.fromRGB(0, 0, 0)
play.BorderSizePixel = 0
play.Position = UDim2.new(0.869725764, 0, 0, 10)
play.Size = UDim2.new(0, 30, 0, 23)
play.Font = Enum.Font.SourceSans
play.Text = "play"
play.TextColor3 = Color3.fromRGB(255, 255, 255)
play.TextScaled = true
play.TextSize = 14.000
play.TextWrapped = true

first.Name = "first"
first.Parent = Frame
first.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
first.BackgroundTransparency = 0.900
first.BorderColor3 = Color3.fromRGB(0, 0, 0)
first.BorderSizePixel = 0
first.Position = UDim2.new(0, 8, 0, 44)
first.Size = UDim2.new(0, 283, 0, 83)
first.ClearTextOnFocus = false
first.Font = Enum.Font.SourceSans
first.MultiLine = true
first.Text = ""
first.TextColor3 = Color3.fromRGB(255, 255, 255)
first.TextSize = 14.000
first.TextWrapped = true
first.TextXAlignment = Enum.TextXAlignment.Left
first.TextYAlignment = Enum.TextYAlignment.Top

second.Name = "second"
second.Parent = Frame
second.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
second.BackgroundTransparency = 0.900
second.BorderColor3 = Color3.fromRGB(0, 0, 0)
second.BorderSizePixel = 0
second.Position = UDim2.new(0, 10, 0, 134)
second.Size = UDim2.new(0, 283, 0, 22)
second.ClearTextOnFocus = false
second.Font = Enum.Font.SourceSans
second.Text = "rbxassetid://17325160621"
second.TextColor3 = Color3.fromRGB(255, 255, 255)
second.TextSize = 14.000
second.TextWrapped = true

-- Scripts:

local function XNCAU_fake_script() -- Frame.Drag 
	local UserInputService = game:GetService("UserInputService")
	
	local gui = Frame
	
	local dragging
	local dragInput
	local dragStart
	local startPos
	
	local function update(input)
		local delta = input.Position - dragStart
		gui.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
	end
	
	gui.InputBegan:Connect(function(input)
		if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
			dragging = true
			dragStart = input.Position
			startPos = gui.Position
			
			input.Changed:Connect(function()
				if input.UserInputState == Enum.UserInputState.End then
					dragging = false
				end
			end)
		end
	end)
	
	gui.InputChanged:Connect(function(input)
		if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
			dragInput = input
		end
	end)
	
	UserInputService.InputChanged:Connect(function(input)
		if input == dragInput and dragging then
			update(input)
		end
	end)
end
coroutine.wrap(XNCAU_fake_script)()
local function HABCPMT_fake_script() -- Frame.LocalScript 
	local dir = Frame

	local player = game.Players.LocalPlayer
	local character = player.Character or player.CharacterAdded:Wait()
	local humanoid = character.Humanoid
	local getbtn = dir.Parent.butns.get_anims
	local stopbtn = dir.Parent.butns.stop_anims
	local playbtn = dir.Parent.butns.play
	local input = dir.Parent.second
	getbtn.Activated:Connect(function()
		local result = ""
		for i,v in pairs(humanoid:GetPlayingAnimationTracks()) do
			result = result..v.Animation.AnimationId.."\n"
		end
		dir.Parent.first.Text = result
	end)
	stopbtn.Activated:Connect(function()
		for i,v in pairs(humanoid:GetPlayingAnimationTracks()) do
			v:Stop()
		end
	end)
	playbtn.Activated:Connect(function()
		local anim = Instance.new("Animation")
		anim.AnimationId = input.Text
	
		local playAnim = humanoid:LoadAnimation(anim)
		playAnim:Play()
	end)
end
coroutine.wrap(HABCPMT_fake_script)()