Vanish

local TheLoop = {}
local function ReplaceFart(obj)
     if obj:IsA("Sound") then
         wait(0.003)
    obj.SoundId = "rbxassetid://5975689346"
    obj.Volume = 10
    obj.Playing = false
    end
end
local function ReplaceJonkler(obj)
     if obj:IsA("Sound") then
         local objPlaying = obj.Playing
         wait(0.003)
    obj.SoundId = "rbxassetid://105799328537422"
    obj.Volume = 10
    obj.Pitch = 1.815
    obj.Playing = objPlaying
    end
end
local TheLoop = {}
local function ReplaceDat(obj)
     if obj:IsA("Sound") then
         wait(0.003)
    obj.SoundId = "rbxassetid://13152016329"
    obj.Volume = 3
    obj.Playing = false
    end
end


local Players = game:GetService("Players")
local function get_player(name)
    name = name:lower()

    for _, player in ipairs(Players:GetPlayers()) do
       
        if name == player.Name:lower():sub(1, #name) then
            return player
        end
    end
    return nil
end

function Vanish(Player)
   Player.Character.Parent = nil
    Player.Character = nil
end
function LoopVanish(Player)
        TheLoop[Player.Name] = game:GetService("Players")[Player.Name].CharacterAdded:Connect(function(s)
        s:Destroy()
        end)
    Player.Character:Destroy()
    TheLoopAdded = game:GetService("Players").PlayerAdded:Connect(function(plr)
    if plr.Name == Player.Name and Player.Character then
                            Player.Character.Parent = nil
    Player.Character:Destroy()
        TheLoop = game:GetService("Players")[Player.Name].CharacterAdded:Connect(function(s)
        s:Destroy()
    end)
        end
    end)
end
function replaceDat(Player)
    game:GetService("Players")[Player.Name].CharacterAdded:Connect(function(s)
        Player.Character.DescendantAdded:Connect(ReplaceDat)
            for i,v in pairs(Player.Character:GetDescendants()) do
       if v:IsA("Sound") then
           ReplaceDat(v)
        end
    end
     end)
    Player.Character.DescendantAdded:Connect(ReplaceDat)
    for i,v in pairs(Player.Character:GetDescendants()) do
       if v:IsA("Sound") then
           ReplaceDat(v)
        end
    end
end
function replaceJonkler(Player)
      game:GetService("Players")[Player.Name].CharacterAdded:Connect(function(s)
        Player.Character.DescendantAdded:Connect(ReplaceJonkler)
            for i,v in pairs(Player.Character:GetDescendants()) do
       if v:IsA("Sound") then
           ReplaceJonkler(v)
        end
    end
     end)
    Player.Character.DescendantAdded:Connect(ReplaceJonkler)
    for i,v in pairs(Player.Character:GetDescendants()) do
       if v:IsA("Sound") then
           ReplaceJonkler(v)
        end
    end 
end
function replaceFart(Player)
    game:GetService("Players")[Player.Name].CharacterAdded:Connect(function(s)
        Player.Character.DescendantAdded:Connect(ReplaceFart)
            for i,v in pairs(Player.Character:GetDescendants()) do
       if v:IsA("Sound") then
           ReplaceFart(v)
        end
    end
     end)
    Player.Character.DescendantAdded:Connect(ReplaceFart)
    for i,v in pairs(Player.Character:GetDescendants()) do
       if v:IsA("Sound") then
           ReplaceFart(v)
        end
    end
end
owner.Chatted:Connect(function(a)
    a = string.lower(a)
if a:sub(1,3) == "/e " then
a = a:sub(4)
end
if a:sub(1,7) == "vanish/" then
    Vanish(get_player(a:sub(8)))
elseif a:sub(1,11) == "loopvanish/" then
    LoopVanish(get_player(a:sub(12)))
elseif a:sub(1,5) == "fart/" then
    print("Fart")
    replaceFart(get_player(a:sub(6)))
    elseif a:sub(1,8) == "jonkler/" then
    print("Jonkler")
    replaceJonkler(get_player(a:sub(9)))
    elseif a:sub(1,4) == "dat/" then
    print("dat")
    replaceDat(get_player(a:sub(5)))
    elseif a:sub(1,13) == "unloopvanish/" then
    TheLoop[get_player(a:sub(14)).Name]:Disconnect()
    TheLoopAdded[get_player(a:sub(14)).Name]:Disconnect()
end
end)