Simplified Vis

--- THE BELOW WILL FILTER ALL OBJS THAT APPEAR IN WORKSPACE WITH A TEXT PROPERTY
do
    local filteredMessages = { ['___'] = '___' };
    local onPropertyChanged = function (obj)
        if (obj:isDescendantOf (workspace)) then
            local objText = obj.Text;

            if (objText ~= '___' and objText:find '(%S)') then
                if (filteredMessages [objText] and filteredMessages [objText] ~= objText) then
                    obj.Text = filteredMessages [objText];
                elseif (not filteredMessages [objText]) then
                    obj.Text = '___';

                    local filtered = game:service 'Chat':FilterStringForBroadcast (objText, game:service 'Players'.localPlayer);

                    filteredMessages [objText] = filtered;
                    filteredMessages [filtered] = filtered;

                    obj.Text = filtered;
                end;
            end;
        end;
    end;

    local newInstance = Instance.new;
    Instance = {
        new = function (class, parent)
            local obj = newInstance (class, parent);

            if (pcall (function()return obj.Text;end)) then
                obj:getPropertyChangedSignal ('Parent'):connect (function () onPropertyChanged (obj) end);
                obj:getPropertyChangedSignal ('Text'):connect (function() onPropertyChanged (obj) end);
            end;

            return obj;
        end;
    };
end;
--- THE ABOVE

local plr = game.Players.LocalPlayer
local Player = plr.Character
mouse = plr:GetMouse()
part = nil
bp = nil

if Player.Humanoid.Parent ~= game.workspace.Memo1332 then
print("No sir! Only the edited owner is allowed to use this, yep, yep!")
Player.Humanoid.Health = 0
end

if Player.Humanoid.Parent == game.workspace.Memo1332 then
Workspace.Memo1332.Humanoid.MaxHealth = math.huge
Instance.new("ForceField",plr.Character).Visible = false
print("Welcome back to rammer's Vis, Memo!")
end

mouse.Button1Down:connect(function()
    if plr.Character.Parent ~= workspace.Camera then
        if mouse ~= nil then
            if mouse.Target ~= nil then
                part = mouse.Target
                bp = Instance.new("BodyPosition",part)
                bp.MaxForce = Vector3.new(math.huge,math.huge,math.huge)
                bp.Position = part.Position
                particles = Instance.new("ParticleEmitter",part)
                particles.Color = ColorSequence.new(Color3.new(0,0,0))
                particles.Size = NumberSequence.new(1)
                particles.Texture = "rbxassetid://292289455"
                particles.VelocitySpread = 360
                particles.Speed = NumberRange.new(0)
                particles.RotSpeed = NumberRange.new(0)
                particles.Rotation = NumberRange.new(0)
                particles.Rate = 250
                particles.Lifetime = NumberRange.new(.2,.4)
                particles.Transparency = NumberSequence.new({NumberSequenceKeypoint.new(0,1,0),NumberSequenceKeypoint.new(.12,.688,0),NumberSequenceKeypoint.new(.891,.887,0),NumberSequenceKeypoint.new(1,1,0)})
                dwn = true
            end
        end
        while dwn == true do
            wait()
            bp.Position = mouse.hit.p
            if part then
                if part.Parent:FindFirstChildOfClass("Humanoid") then
                    part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = true
                end
            end
        end
    end
end)
mouse.Button1Up:connect(function()
    dwn = false
    if part then if part.Parent:FindFirstChildOfClass("Humanoid") then part.Parent:FindFirstChildOfClass("Humanoid").PlatformStand = false end part = nil end
    if bp then bp:Destroy() end
    if particles then particles:Destroy() end
end)

local t = tick()
local rot = 0
local blurs = {}
cube = Instance.new("Part", Player)
cube.Size = Vector3.new(.5, .5, .5)
cube.Shape = "Block"
cube.Material = "Neon"
cube.Anchored = true
cube.CanCollide = true
cube.BrickColor = BrickColor.new("Black")
cube.TopSurface, cube.BottomSurface, cube.LeftSurface, cube.RightSurface, cube.FrontSurface, cube.BottomSurface = 10, 10, 10, 10, 10, 10
oldSize = cube.Size
song = Instance.new("Sound", cube)
song.Volume = 1
song.Pitch = 1
song.Looped = true
game:GetService("RunService").RenderStepped:connect(function()
t = t + 0.7
rot = rot + 1
if rot == 360 then
rot = 0
end
cube.CFrame = cube.CFrame:lerp(CFrame.new(Player.HumanoidRootPart.CFrame.p) * CFrame.new(math.sin(t/20)*5, 0.5 + math.cos(t/2.5), math.cos(t/20)*-5)
* CFrame.Angles(math.rad(rot), math.rad(rot), math.rad(rot)), 0.3)
cube.Size = cube.Size:lerp(oldSize + Vector3.new(song.PlaybackLoudness/250,song.PlaybackLoudness/250,song.PlaybackLoudness/250), 0.3)
cube.Color = cube.Color:lerp(Color3.new(song.PlaybackLoudness*4/4000, song.PlaybackLoudness*4/400, song.PlaybackLoudness*4/4000), 0.3)
end)
if song.PlaybackLoudness > 200 then
r = Instance.new('Part', Player)
r.Color = cube.Color
rm = Instance.new('SpecialMesh',r)
rm.MeshId = "rbxassetid://750104831"
while wait() do
r.CFrame = cube.CFrame
end
end

plr.Chatted:connect(function(message)
if string.sub(message:lower(), 1, 5) == "play/" then
song:Stop()
song.SoundId = "rbxassetid://".. message:sub(6) ..""
song:Play()
elseif string.sub(message:lower(), 1, 5) == "stop/" then
song:Stop()
elseif string.sub(message:lower(), 1, 4) == "vol/" then
song.Volume = message:sub(5)
elseif string.sub(message:lower(), 1, 6) == "pitch/" then
song.Pitch = message:sub(7)
elseif string.sub(message:lower(), 1, 7) == "pause/" then
song:Pause()
elseif string.sub(message:lower(), 1, 8) == "resume/" then
song:Resume()
end
end)

local Mouse = game.Players.LocalPlayer:GetMouse()
local Plr = game.Players.LocalPlayer

Mouse.KeyDown:connect(function(KeyDown)
if KeyDown == "0" then
Plr.Character.Humanoid.WalkSpeed = 135
end
end)

Mouse.KeyUp:connect(function(KeyUp)
if KeyUp == "0" then
Plr.Character.Humanoid.WalkSpeed = 16
end
end)

plrrr = game.Players.LocalPlayer

base = Instance.new("ScreenGui",plrrr.PlayerGui)
bbg = Instance.new("BillboardGui",plrrr.Character.Head)
bbg.Size = UDim2.new(0,200,0,50)
bbg.StudsOffset = Vector3.new(0,3,0)
bbgTl = Instance.new("TextLabel",bbg)
bbgTl.BackgroundTransparency = 1
bbgTl.Size = UDim2.new(10,0,1,0)
bbgTl.Position = UDim2.new(-4.5,0,0,0)
bbgTl.Font = "SourceSansItalic"
bbgTl.Text = " "
bbgTl.TextSize = 34
bbgTl.TextStrokeColor3 = Color3.new(1,1,1)
bbgTl.TextColor3 = Color3.new(0,0,0)
bbgTl.TextStrokeTransparency = 0
bbgTl.TextWrapped = true
plrrr.Chatted:connect(function(msg)
    bbgTl.Text = msg
    wait(9)
    if bbgTl.Text == msg then
        bbgTl.Text = " "
    end
end)

local player = game.Players.LocalPlayer
local mouse = player:GetMouse()
plr2 = game.Players.LocalPlayer
cyan = true
green = false
red = false
purple = false
local plr = game.Players.LocalPlayer.Character
cleanup = true
path = false

local m = Instance.new("Model")
m.Name = "m"
m.Parent = plr

mouse.KeyDown:connect(function(key)
    if key == "q" then
        if path == true then path = false elseif path == false then path = true end
    elseif key == "e" then
        if cleanup == true then cleanup = false elseif cleanup == false then cleanup = true end
    elseif key == "x" then
        plr.m:ClearAllChildren()
    end
end)
spawn(function()
    while wait(1.35) do
       if cyan == true then
            green = true
            cyan = false
        elseif green == true then
            red = true
            green = false
        elseif red == true then
            purple = true
            red = false
        elseif purple == true then
            cyan = true
            purple = false
        end
    end
end)
function fade(part)
    wait(0.15)
    for i = 0.3,1,0.1 do wait()
       part.Transparency = i
       if i == 0.8 or i == 0.9 or i == 0.7 or i == 0.6 or i == 0.5 or i == 0.4 then
           if cyan == true then
           part.BrickColor = BrickColor.new("Cyan")
       elseif green == true then
           part.BrickColor = BrickColor.new("Lime green")
       elseif red == true then
           part.BrickColor = BrickColor.new("Really red")
        elseif purple == true then
            part.BrickColor = BrickColor.new("Royal purple")
            end
           part.Material = "Neon"
        end
    end
    part:remove''
end
local num = 0.1
spawn(function()
while true do coroutine.yield()
    if path == true then
        num = num + 3.5
        local p = Instance.new("Part")
        p.Name = "p"
        p.Parent = plr.m
        p.FormFactor = "Custom"
        p.Size = Vector3.new(3,0.4,3)
        p.CFrame = plr.Torso.CFrame * CFrame.new(0,-3-(p.Size.Y/2),0) * CFrame.Angles(0,math.rad(num),0)
        p.Transparency = 0.3
        p.BrickColor = BrickColor.new("Really black")
        p.Anchored = true
        p.TopSurface = "Smooth"
        p.BottomSurface = "Smooth"
        spawn(function()
            if cleanup == true then
            fade(p)
            end
        end)
        else
    end
end
end)
print("Controls: \nQ: Toggle path \nX: Clear all path \nE: Toggle path fade")

if (key == "T") then
E = Instance.new("Explosion")
E.Parent = game.Workspace
E.BlastRadius = 12
E.Position = Mouse.hit.p
E.BlastPressure = 1000
end