Blue Orbit S Vis

print'https://pastebin.com/nbdaQDMD'
local function make_vis(pl_1)
    local pchar=pl_1.Character or(function()pl_1:LoadCharacter();
        wait(.1);return pl_1.Character;end)();
    local phead,pre_1 = pchar:FindFirstChild'Head'or(function()pl_1:LoadCharacter();wait(.1);
        pchar=pl_1.Character;wait(.1);return pchar:FindFirstChild'Head';end)(),'rbxassetid://';
    local globalsound,globalpart,at_3,at_4;
    local Instance_2,cwrap=function(c,p)local a=Instance.new(c);for b,c in pairs(p)do
        local _,d=pcall(function()a[b]=c;end);if d then print(d);end;end;return a;end,
        function(a)local b=coroutine.wrap(a);b();return b;
        end;
    local function Make_VP()
        local sound = Instance_2('Sound',{Volume=2.5;SoundId=pre_1..'4001918331';
            Parent=phead})

        sound.Looped = true
        sound.Name = 'sound_inf'
        sound:Play()

        local part = Instance.new("Part",workspace)
        part.Name = '∞vis'
        part.Massless = true
        part.Position = Vector3.new(0,10,0)
        part.CanCollide = false
        part.Shape = Enum.PartType.Ball
        part.BrickColor = BrickColor.new("New Yeller")
        part.Material = Enum.Material.Neon

        local at1 = Instance.new("Attachment",part)

        local at2 = Instance.new("Attachment",phead)
        at2.Position = Vector3.new(0,5,0)
        at2.Visible = false

        local apos = Instance.new("AlignPosition",at2)
        apos.Attachment0 = at1
        apos.Attachment1 = at2
        apos.Responsiveness = 75
        apos.MaxForce = 30000
        apos.ApplyAtCenterOfMass = true

        local at3 = Instance.new('Attachment',part)
        at3.Position = Vector3.new(0,2,0)

        local at4 = Instance.new('Attachment',part)
        at4.Position = Vector3.new(0,-2,0)

        local t = Instance.new("Trail",at3)
        t.Attachment0 = at3
        t.Attachment1 = at4
        t.Lifetime = 3

        local a=Instance_2('Part',{Name='∞vis';Massless=true;Position=Vector3.new(0,10,0);
        Anchored=true;CanCollide=false;Shape='Ball';BrickColor=
        BrickColor.new("Really blue");Material=Enum.Material.Foil;Parent=part
        ;Size=Vector3.new(3,3,3)});
        local b=Instance.new("Part",part)
        b.Name = '∞vis'
        b.Massless = true
        b.Position = Vector3.new(0,10,0)
        b.CanCollide = false
        b.Shape = Enum.PartType.Ball
        b.BrickColor = BrickColor.new("New Yeller")
        b.Material = Enum.Material.SmoothPlastic
        b.Transparency = .5
        b.Anchored = true
        cwrap(function()
            local cons = 1
            repeat
                cons=cons+1
                part.CFrame = part.CFrame*CFrame.Angles(0,.01,0)
                a.CFrame = part.CFrame*CFrame.new(0,0,10)
                a.Orientation = Vector3.new(0,0,0)
                a.Position=a.Position + Vector3.new(0,math.sin(cons * (2* math.pi / 100)) ,0)
                wait();
            until not a;
        end);
        return sound,part,at3,at4,b
    end;
    local part_b
    globalsound,globalpart,at_3,at_4,part_b = Make_VP();
    local function Get_Components_Of_Mouse(player)
        local pchar = player.Character;
        if pchar then
            local Remote = pchar:FindFirstChild('∞RE_Mouse')
            if not Remote then
                Remote = Instance.new("RemoteEvent",pchar)
                Remote.Name = 'RE_Mouse'
            end
            local NLS = loadstring('return NLS')();
            Remote.Parent = NLS(
                [[

local lp = game:GetService'Players'.LocalPlayer
local players = game:GetService'Players'
local mouse = lp:GetMouse()
local runs = game:GetService'RunService'

wait(1)

local lchar = players[lp.Name].Character

local re = script.Parent:FindFirstChild('RE_Mouse',true)

local sound = lchar:FindFirstChild('sound_inf',true)
if sound then
    runs.Stepped:Connect(function()
        if re then
            local transmitt = sound.PlaybackLoudness / 100
            if transmitt<.1 then
                transmitt = .1
            end
            re:FireServer('SoundSize',transmitt)
        else
            print'i1'
        end
    end)
else
    print'cant find sound'
end

        ]],pchar )
            return Remote
        else
            error'Best to actually put your character in the game.'
        end
    end
    local RE = Get_Components_Of_Mouse(pl_1)
    part_b.Anchored=false;
    part_b.Position=globalpart.Position
    local weldc = Instance_2('WeldConstraint',{Parent=part_b;Part0=part_b;Part1=globalpart});
    RE.OnServerEvent:Connect(function(pl,arg1,arg2)
        if pl==pl_1 then
            if arg1=='SoundSize'and globalpart and globalsound and at_3 and at_4 then
                globalpart.Size = Vector3.new(arg2,arg2,arg2)
                at_3.Position = Vector3.new(0,arg2 / 2 ,0)
                at_4.Position = Vector3.new(0,arg2 /-2, 0)
                part_b.Size= globalpart.Size*1.5
            else
                print(arg1,globalpart,globalsound,at_3,at_4)
            end
        end
    end)

end
make_vis(loadstring('return owner')())