Run it
Copy the script and paste it into your executor.
Players = :()
UserInputService = :()
playerGui = Players.LocalPlayer:()
intro = .(, playerGui)
intro.Name =
intro.IgnoreGuiInset =
intro.ZIndexBehavior = .ZIndexBehavior.Sibling
bg = .(, intro)
bg.Size = .(, , , )
bg.BackgroundColor3 = .(, , )
lbl = .(, bg)
lbl.Size = .(, , , )
lbl.BackgroundTransparency =
lbl.TextColor3 = .(, , )
lbl.TextStrokeTransparency =
lbl.Font = .Font.GothamBlack
lbl.TextScaled =
lbl.Text =
(text, speed)
i = , #text
lbl.Text = text:(, i)
.(speed)
.(()
(, )
.()
(, )
.()
i = ,
bg.BackgroundTransparency = i /
lbl.TextTransparency = i /
lbl.TextStrokeTransparency = + i /
.()
intro:()
)
.()
gui = .(, playerGui)
gui.Name =
gui.ResetOnSpawn =
isMobile = UserInputService.TouchEnabled
main = .(, gui)
main.Name =
main.Size = isMobile .(, , , ) .(, , , )
main.Position = isMobile .(, , , ) .(, -, , -)
main.AnchorPoint = isMobile .(, ) .(, )
main.BackgroundColor3 = .(, , )
main.BorderSizePixel =
.(, main).CornerRadius = .(, )
bar = .(, main)
bar.Size = .(, , , )
bar.BackgroundColor3 = .(, , )
bar.BorderSizePixel =
title = .(, bar)
title.Size = .(, -, , )
title.Position = .(, , , )
title.BackgroundTransparency =
title.Text =
title.TextColor3 = .(, , )
title.Font = .Font.SourceSansBold
title.TextSize =
title.TextXAlignment = .TextXAlignment.Left
close = .(, bar)
close.Size = .(, , , )
close.Position = .(, -, , )
close.Text =
close.Font = .Font.SourceSansBold
close.TextSize =
close.TextColor3 = .(, , )
close.BackgroundColor3 = .(, , )
close.MouseButton1Click:(()
gui:()
)
isMobile
dragging, dragStart, startPos
bar.InputBegan:((i)
i.UserInputType == .UserInputType.MouseButton1
dragging =
dragStart = i.Position
startPos = main.Position
i.Changed:(()
i.UserInputState == .UserInputState.End
dragging =
)
)
dragInput
bar.InputChanged:((i)
i.UserInputType == .UserInputType.MouseMovement
dragInput = i
)
UserInputService.InputChanged:((i)
dragging i == dragInput
delta = i.Position - dragStart
main.Position = .(
startPos.X.Scale, startPos.X.Offset + delta.X,
startPos.Y.Scale, startPos.Y.Offset + delta.Y
)
)
searchBtn = .(, main)
searchBtn.Size = .(, , , )
searchBtn.Position = .(, , , )
searchBtn.BackgroundColor3 = .(, , )
searchBtn.Text =
searchBtn.Font = .Font.SourceSansBold
searchBtn.TextSize =
searchBtn.TextColor3 = .(, , )
status = .(, main)
status.Size = .(, , , )
status.Position = .(, , , )
status.BackgroundTransparency =
status.Text =
status.TextColor3 = .(, , )
status.Font = .Font.SourceSans
status.TextSize =
status.TextXAlignment = .TextXAlignment.Left
results = .(, main)
results.Size = .(, , , )
results.Position = .(, , , )
results.BackgroundColor3 = .(, , )
results.BorderSizePixel =
results.ScrollBarThickness =
results.AutomaticCanvasSize = .AutomaticSize.Y
layout = .(, results)
layout.Padding = .(, )
(str)
str:()
(soundId, name)
frame = .()
frame.Size = .(, , , )
frame.BackgroundColor3 = .(, , )
.(, frame).CornerRadius = .(, )
nameLabel = .(, frame)
nameLabel.Size = .(, , , )
nameLabel.Position = .(, , , )
nameLabel.BackgroundTransparency =
nameLabel.Text = name ( .. soundId)
nameLabel.TextColor3 = .(, , )
nameLabel.TextXAlignment = .TextXAlignment.Left
nameLabel.Font = .Font.SourceSans
nameLabel.TextSize =
playBtn = .(, frame)
playBtn.Size = .(, , , )
playBtn.Position = .(, -, , )
playBtn.Text =
playBtn.Font = .Font.SourceSansBold
playBtn.TextSize =
playBtn.TextColor3 = .(, , )
playBtn.BackgroundColor3 = .(, , )
soundObj = .(, frame)
soundObj.SoundId = .. soundId
playBtn.MouseButton1Click:(()
soundObj.IsPlaying
soundObj:()
playBtn.Text =
soundObj:()
playBtn.Text =
)
copyBtn = .(, frame)
copyBtn.Size = .(, , , )
copyBtn.Position = .(, -, , )
copyBtn.Text =
copyBtn.Font = .Font.SourceSansBold
copyBtn.TextSize =
copyBtn.TextColor3 = .(, , )
copyBtn.BackgroundColor3 = .(, , )
copyBtn.MouseButton1Click:(()
( .. soundId)
copyBtn.Text =
.()
copyBtn.Text =
)
frame.Parent = results
searchBtn.MouseButton1Click:(()
status.Text =
searchBtn.Text =
searchBtn.BackgroundColor3 = .(, , )
_, child (results:())
child:()
child:()
seen = {}
count =
_, inst (:())
inst:()
id = (inst.SoundId)
id seen[id]
seen[id] =
count +=
(id, inst.Name)
status.Text = ():(count)
searchBtn.Text =
searchBtn.BackgroundColor3 = .(, , )
)

Universal