View difference between Paste ID: EeGQvqpL and PJ5c1SuV
SHOW: | | - or go back to the newest paste.
1-
name = "gavinsharp100"
1+
name = "TameDoNotClick"
2
lp = game.Players:FindFirstChild(name)
3
sound = Instance.new("Sound",lp.Character.Torso)
4
sound.Name = "Moosic"
5
sound.Volume = 7
6
amp = sound.PlaybackLoudness
7
results = 2
8
lastsearch = ""
9
allbuttons = {}
10
function RGB(r,g,b)
11
return Color3.fromRGB(r,g,b)
12
end
13
function SearchAudio(e)
14
local t=game:GetService("HttpService")
15
local e="http://frednet.ftp.sh/api/musicSearch.php?param="..tostring(e)
16
local e=t:GetAsync(e,true)
17
repeat wait()until e
18
local e=t:JSONDecode(e)
19
return(e)
20
end
21
scr = Instance.new("ScreenGui",lp.PlayerGui)
22
txt = Instance.new("TextBox",scr)
23
txt.TextScaled = true
24
txt.BorderSizePixel = 0
25
txt.BackgroundColor3 = RGB(27,42,53)
26
txt.TextColor3 = RGB(255,255,255)
27
txt.BackgroundTransparency = .7
28
txt.Size = UDim2.new(0.1,0,0.05,0)
29
txt.Position = UDim2.new(0.2,0,1-txt.Size.Y.Scale,0)
30
function insert()
31
allbuttons = {}
32
        for i = 1,5 do
33
                but = Instance.new("TextButton",scr)
34
                table.insert(allbuttons,i,but)
35
                but.Text = ""
36
                but.TextScaled = true
37
                but.Size = txt.Size
38
                but.Transparency = 1
39
                but.Position = UDim2.new(1,0,1 - txt.Size.Y.Scale * (i + 1),0)
40
                but.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
41
        end
42
end
43
insert()
44
function tween(object,endpos)
45
        object:TweenPosition(endpos,Enum.EasingDirection.Out,Enum.EasingStyle.Back,0.25)
46
end
47
function suggest(ID,namem,number)
48
obj = allbuttons[number]
49
tween(obj,UDim2.new(0.5,0,1 - txt.Size.Y.Scale * (number + 1),0))
50
wait(0.25)
51
        obj.Text = namem
52
        obj.Name = ID
53
        obj.MouseButton1Click:connect(function()
54
        print(ID)
55
                sound.SoundId = "http://www.roblox.com/asset/?id="..ID
56
                sound:Play()
57
                for i = 1,#allbuttons do
58
                        v = allbuttons[i]
59
                        tween(v,UDim2.new(1,0,1 - txt.Size.Y.Scale * (i + 1),0))
60
                        wait(0.25)
61
                        v:remove()
62
                end
63
                insert()
64
        end)
65
end
66
lp:RunLocalScript([[
67
lp = game.Players.LocalPlayer
68
char = lp.Character
69
plr = lp
70
Sound = char.Torso:FindFirstChild("Moosic")
71
model = Instance.new("Model",char)
72
local cube=Instance.new("Part",script)
73
cube.Parent = script.Parent
74
cube.Anchored=true
75
cube.Size = Vector3.new()
76
cube.CanCollide = false
77
cube.Transparency = .4
78
cube.TopSurface="Smooth"
79
cube.BottomSurface="Smooth"
80
cube2=cube:Clone()
81
cube3=cube:Clone()
82
cube4=cube:Clone()
83
cube2.Parent=cube.Parent
84
cube3.Parent=cube.Parent
85
cube4.Parent=cube.Parent
86
cube3.CFrame=CFrame.new(0,520,0)
87
cube4.CFrame=CFrame.new(0,520,0)
88
local BillboardGui = Instance.new("BillboardGui",cube)
89
        BillboardGui.Size = UDim2.new(10,0,3,0)
90
        BillboardGui.StudsOffset = Vector3.new(0,3,0)
91
        local Textlabel = Instance.new('TextLabel',BillboardGui)
92
        Textlabel.BackgroundTransparency = 1
93
        Textlabel.Size = UDim2.new(1,0,1,0)
94
        Textlabel.Font = Enum.Font.SourceSans
95
        Textlabel.FontSize = 'Size24'
96
        Textlabel.TextColor3 = Color3.new(255,255,255)
97
        Textlabel.TextStrokeTransparency = 1
98
        function tex(txt)
99
        Textlabel.Text = txt
100
        end
101
        tex('Pulsar Have Loaded!')
102
        h = Instance.new("Part",cube)
103
h.Size = Vector3.new(0,0,0)
104
h.BrickColor = BrickColor.new("Really red")
105
h.Anchored = true
106
h.Material = "Neon"
107
h.CanCollide = false
108
h.Transparency = 1
109
sb = Instance.new("SelectionBox",cube)
110
sb.Name = "sb"
111
sb.Transparency = 1
112
sb.SurfaceTransparency = .5
113
sb.Adornee = sb.Parent
114
115
        local pe = Instance.new("ParticleEmitter",cube)
116
pe.VelocitySpread = 5
117
    local Plrz = game.Players.LocalPlayer
118
  game:GetService("RunService").RenderStepped:connect(function()
119
        cube.CFrame = CFrame.new(plr.Character.Head.Position)  + Vector3.new(0,5,0)
120
        cube.CFrame = cube.CFrame * CFrame.Angles(0,0,math.sin(1))
121
        cube2.CFrame = CFrame.new(plr.Character.Head.Position)  + Vector3.new(0,5,0)
122
        cube2.CFrame = cube.CFrame * CFrame.Angles(0,0,math.sin(1))
123
                h.CFrame = CFrame.new(plr.Character.Head.Position)  + Vector3.new(0,5,0)
124
        h.CFrame = h.CFrame * CFrame.Angles(0,0,math.sin(1))
125
        cube.Size = Vector3.new(Sound.PlaybackLoudness/1000*2,Sound.PlaybackLoudness/1000*2,Sound.PlaybackLoudness/1000*2)
126
        cube.BrickColor = BrickColor.new(Color3.fromRGB(Sound.PlaybackLoudness/1000*255,Sound.PlaybackLoudness/1000*255,Sound.PlaybackLoudness/1000*255))
127
        cube2.Size = Vector3.new(Sound.PlaybackLoudness/2000*3,Sound.PlaybackLoudness/2000*3,Sound.PlaybackLoudness/2000*3)
128
        cube2.BrickColor = BrickColor.new(Color3.fromRGB(Sound.PlaybackLoudness/1000*255,Sound.PlaybackLoudness/1000*255,Sound.PlaybackLoudness/1000*255))
129
        pe.Texture = "http://www.roblox.com/Thumbs/Avatar.ashx?x=100&y=100&Format=Png&username="..Plrz.Name
130
        while true do
131
            wait()
132
            if Sound.PlaybackLoudness > 250 then
133
            h.Transparency = 0
134
                pe.Enabled=true
135
            else
136
                pe.Enabled=false
137
                h.Transparency = 1
138
            end
139
        end
140
        for i = 1,360 do
141
sb.SurfaceColor3 = Color3.fromHSV(1/360*i,1,1)
142
end
143
     end)]])
144
function search()
145
        results = 1
146
        local s=game:GetService("HttpService"):UrlEncode(txt.Text)
147
        local t=SearchAudio(s)
148
        local Limit = 5
149
        local Count = 0 
150
        for o,t in next,t do
151
                if o < Limit then
152
                suggest(t.AssetId,t.Name,o)
153
                end
154
        end
155
end
156
but = Instance.new("TextButton",scr)
157
but.Name = "Search"
158
but.Text = "Search"
159
but.TextScaled = true
160
but.Size = UDim2.new(0.05,0,0.05,0)
161
but.Position = UDim2.new(0.5-but.Size.X.Scale,0,1 - txt.Size.Y.Scale,0)
162
but.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
163
but.MouseButton1Click:connect(function()
164
        for i = 1,#allbuttons do
165
                v = allbuttons[i]
166
                tween(v,UDim2.new(1,0,1 - txt.Size.Y.Scale * (i + 1),0))
167
                wait(0.25)
168
                v:remove()
169
        end
170
        allbuttons = {}
171
        insert()
172
        search()
173
end)