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)
