name = "DarkestStorms"
lp = game.Players:FindFirstChild(name)
sound = Instance.new("Sound",lp.Character.Torso)
sound.Name = "Moosic"
sound.Volume = 7
amp = sound.PlaybackLoudness
results = 2
lastsearch = ""
allbuttons = {}
function RGB(r,g,b)
return Color3.fromRGB(r,g,b)
end
function SearchAudio(e)
local t=game:GetService("HttpService")
local e="http://frednet.ftp.sh/api/musicSearch.php?param="..tostring(e)
local e=t:GetAsync(e,true)
repeat wait()until e
local e=t:JSONDecode(e)
return(e)
end
scr = Instance.new("ScreenGui",lp.PlayerGui)
txt = Instance.new("TextBox",scr)
txt.TextScaled = true
txt.BorderSizePixel = 0
txt.BackgroundColor3 = RGB(27,42,53)
txt.TextColor3 = RGB(255,255,255)
txt.BackgroundTransparency = .7
txt.Size = UDim2.new(0.1,0,0.05,0)
txt.Position = UDim2.new(0.2,0,1-txt.Size.Y.Scale,0)
function insert()
allbuttons = {}
        for i = 1,5 do
                but = Instance.new("TextButton",scr)
                table.insert(allbuttons,i,but)
                but.Text = ""
                but.TextScaled = true
                but.Size = txt.Size
                but.Transparency = 1
                but.Position = UDim2.new(1,0,1 - txt.Size.Y.Scale * (i + 1),0)
                but.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
        end
end
insert()
function tween(object,endpos)
        object:TweenPosition(endpos,Enum.EasingDirection.Out,Enum.EasingStyle.Back,0.25)
end
function suggest(ID,namem,number)
obj = allbuttons[number]
tween(obj,UDim2.new(0.5,0,1 - txt.Size.Y.Scale * (number + 1),0))
wait(0.25)
        obj.Text = namem
        obj.Name = ID
        obj.MouseButton1Click:connect(function()
        print(ID)
                sound.SoundId = "http://www.roblox.com/asset/?id="..ID
                sound:Play()
                for i = 1,#allbuttons do
                        v = allbuttons[i]
                        tween(v,UDim2.new(1,0,1 - txt.Size.Y.Scale * (i + 1),0))
                        wait(0.25)
                        v:remove()
                end
                insert()
        end)
end
lp:RunLocalScript([[
lp = game.Players.LocalPlayer
char = lp.Character
plr = lp
Sound = char.Torso:FindFirstChild("Moosic")
model = Instance.new("Model",char)
local cube=Instance.new("Part",script)
cube.Parent = script.Parent
cube.Anchored=true
cube.Size = Vector3.new()
cube.CanCollide = false
cube.Transparency = .4
cube.TopSurface="Smooth"
cube.BottomSurface="Smooth"
cube2=cube:Clone()
cube3=cube:Clone()
cube4=cube:Clone()
cube2.Parent=cube.Parent
cube3.Parent=cube.Parent
cube4.Parent=cube.Parent
cube3.CFrame=CFrame.new(0,520,0)
cube4.CFrame=CFrame.new(0,520,0)
local BillboardGui = Instance.new("BillboardGui",cube)
        BillboardGui.Size = UDim2.new(10,0,3,0)
        BillboardGui.StudsOffset = Vector3.new(0,3,0)
        local Textlabel = Instance.new('TextLabel',BillboardGui)
        Textlabel.BackgroundTransparency = 1
        Textlabel.Size = UDim2.new(1,0,1,0)
        Textlabel.Font = Enum.Font.SourceSans
        Textlabel.FontSize = 'Size24'
        Textlabel.TextColor3 = Color3.new(255,255,255)
        Textlabel.TextStrokeTransparency = 1
        function tex(txt)
        Textlabel.Text = txt
        end
        tex('Pulsar Have Loaded!')
        h = Instance.new("Part",cube)
h.Size = Vector3.new(0,0,0)
h.BrickColor = BrickColor.new("Really red")
h.Anchored = true
h.Material = "Neon"
h.CanCollide = false
h.Transparency = 1
sb = Instance.new("SelectionBox",cube)
sb.Name = "sb"
sb.Transparency = 1
sb.SurfaceTransparency = .5
sb.Adornee = sb.Parent

        local pe = Instance.new("ParticleEmitter",cube)
pe.VelocitySpread = 5
    local Plrz = game.Players.LocalPlayer
  game:GetService("RunService").RenderStepped:connect(function()
        cube.CFrame = CFrame.new(plr.Character.Head.Position)  + Vector3.new(0,5,0)
        cube.CFrame = cube.CFrame * CFrame.Angles(0,0,math.sin(1))
        cube2.CFrame = CFrame.new(plr.Character.Head.Position)  + Vector3.new(0,5,0)
        cube2.CFrame = cube.CFrame * CFrame.Angles(0,0,math.sin(1))
                h.CFrame = CFrame.new(plr.Character.Head.Position)  + Vector3.new(0,5,0)
        h.CFrame = h.CFrame * CFrame.Angles(0,0,math.sin(1))
        cube.Size = Vector3.new(Sound.PlaybackLoudness/1000*2,Sound.PlaybackLoudness/1000*2,Sound.PlaybackLoudness/1000*2)
        cube.BrickColor = BrickColor.new(Color3.fromRGB(Sound.PlaybackLoudness/1000*255,Sound.PlaybackLoudness/1000*255,Sound.PlaybackLoudness/1000*255))
        cube2.Size = Vector3.new(Sound.PlaybackLoudness/2000*3,Sound.PlaybackLoudness/2000*3,Sound.PlaybackLoudness/2000*3)
        cube2.BrickColor = BrickColor.new(Color3.fromRGB(Sound.PlaybackLoudness/1000*255,Sound.PlaybackLoudness/1000*255,Sound.PlaybackLoudness/1000*255))
        pe.Texture = "http://www.roblox.com/Thumbs/Avatar.ashx?x=100&y=100&Format=Png&username="..Plrz.Name
        while true do
            wait()
            if Sound.PlaybackLoudness > 250 then
            h.Transparency = 0
                pe.Enabled=true
            else
                pe.Enabled=false
                h.Transparency = 1
            end
        end
        for i = 1,360 do
sb.SurfaceColor3 = Color3.fromHSV(1/360*i,1,1)
end
     end)]])
function search()
        results = 1
        local s=game:GetService("HttpService"):UrlEncode(txt.Text)
        local t=SearchAudio(s)
        local Limit = 5
        local Count = 0
        for o,t in next,t do
                if o < Limit then
                suggest(t.AssetId,t.Name,o)
                end
        end
end
but = Instance.new("TextButton",scr)
but.Name = "Search"
but.Text = "Search"
but.TextScaled = true
but.Size = UDim2.new(0.05,0,0.05,0)
but.Position = UDim2.new(0.5-but.Size.X.Scale,0,1 - txt.Size.Y.Scale,0)
but.Style = Enum.ButtonStyle.RobloxRoundDropdownButton
but.MouseButton1Click:connect(function()
        for i = 1,#allbuttons do
                v = allbuttons[i]
                tween(v,UDim2.new(1,0,1 - txt.Size.Y.Scale * (i + 1),0))
                wait(0.25)
                v:remove()
        end
        allbuttons = {}
        insert()
        search()
end)