Scary

--Presets------------------------
local Mp = game:GetService('Players').LocalPlayer
local Mpc = Mp.Character
game:GetService("Chat"):Chat(Mpc.Head, "Made by Exorithius/Noragami")
wait(2)
game:GetService("Chat"):Chat(Mpc.Head, "Hey kid....")
wait(2)
game:GetService("Chat"):Chat(Mpc.Head, "Wanna hear a story....")
wait(2)
game:GetService("Chat"):Chat(Mpc.Head, "Dont run..")
---Presets------------------------
local p = game.Players.localPlayer
local char = p.Character
local mouse=p:GetMouse()
local larm = char["Left Arm"]
local rarm = char["Right Arm"]
local lleg = char["Left Leg"]
local rleg = char["Right Leg"]
local torso = char.Torso
local root = char.HumanoidRootPart
local hed = char.Head
local sound = Instance.new("Sound")
sound.SoundId = "http://www.roblox.com/asset/?id=304235605"
sound.Parent = char
sound:Play()
sound.Looped=true
wait(2)
char.Shirt:Destroy()
char.Pants:Destroy()
shirt = Instance.new("Shirt", char)
shirt.Name = "Shirt"
pants = Instance.new("Pants", char)
pants.Name = "Pants"
char.Shirt.ShirtTemplate = "http://www.roblox.com/asset/?id=198018057"
char.Pants.PantsTemplate = "http://www.roblox.com/asset/?id=198015482"
char.Humanoid.WalkSpeed = 7
game:service'Lighting'.TimeOfDay=24
----------------------------------------------------

-----------------------------------------------------------------------------
local PE1 = Instance.new("ParticleEmitter",larm)
PE1.Color = ColorSequence.new(Color3.new (255, 0, 0), Color3.new (255, 0, 0))
PE1.LightEmission = NumberSequence.new(0.2)
PE1.Size = NumberSequence.new(1.2)
PE1.Texture = "http://www.roblox.com/asset/?id=284607870"
PE1.Lifetime = NumberRange.new(.5)
PE1.Rate = 10
PE1.Transparency = NumberSequence.new(0.2)
PE1.LightEmission = NumberSequence.new(0.2)
PE1.Rotation = NumberRange.new(360)
PE1.Speed = NumberRange.new(0)
PE1.RotSpeed = NumberRange.new(100)
bc=char['Body Colors']
coloras=BrickColor.new('Really black')
bc.LeftLegColor,bc.LeftArmColor,bc.TorsoColor,bc.HeadColor,bc.RightArmColor,bc.RightLegColor=coloras,coloras,coloras,coloras,coloras,coloras
----------------------------------------------------------
----------------------------------------------------
local PE1 = Instance.new("ParticleEmitter",larm)
PE1.Color = ColorSequence.new(Color3.new (255, 0, 0), Color3.new (255, 0, 0))
PE1.LightEmission = NumberSequence.new(0.2)
PE1.Size = NumberSequence.new(1.2)
PE1.Texture = "http://www.roblox.com/asset/?id=284607870"
PE1.Lifetime = NumberRange.new(.5)
PE1.Rate = 10
PE1.Transparency = NumberSequence.new(0.2)
PE1.LightEmission = NumberSequence.new(0.2)
PE1.Rotation = NumberRange.new(260)
PE1.Speed = NumberRange.new(0)
PE1.RotSpeed = NumberRange.new(100)
bc=char['Body Colors']
coloras=BrickColor.new('Really black')
bc.LeftLegColor,bc.LeftArmColor,bc.TorsoColor,bc.HeadColor,bc.RightArmColor,bc.RightLegColor=coloras,coloras,coloras,coloras,coloras,coloras
----------------------------------------------------------
local fart = Instance.new("Animation", char)
fart.AnimationId = "rbxassetid://456316205"
fart.Name = "fart"
----------------------------------------------------
local PE1 = Instance.new("ParticleEmitter",rleg)
PE1.Color = ColorSequence.new(Color3.new (0, 0, 0), Color3.new (0, 0, 0))
PE1.LightEmission = NumberSequence.new(0)
PE1.Size = NumberSequence.new(10)
PE1.Texture = "rbxasset://textures/particles/sparkles_main.dds"
PE1.Lifetime = NumberRange.new(3)
PE1.Rate = 25
PE1.Transparency = NumberSequence.new(0)
PE1.LightEmission = NumberSequence.new(0)
PE1.Rotation = NumberRange.new(0)
PE1.Speed = NumberRange.new(0)
PE1.RotSpeed = NumberRange.new(100)
bc=char['Body Colors']
coloras=BrickColor.new('Really black')
bc.LeftLegColor,bc.LeftArmColor,bc.TorsoColor,bc.HeadColor,bc.RightArmColor,bc.RightLegColor=coloras,coloras,coloras,coloras,coloras,coloras
----------------------------------------------------------
----------------------------------------------------
local PE1 = Instance.new("ParticleEmitter",lleg)
PE1.Color = ColorSequence.new(Color3.new (0, 0, 0), Color3.new (0, 0, 0))
PE1.LightEmission = NumberSequence.new(0)
PE1.Size = NumberSequence.new(10)
PE1.Texture = "rbxasset://textures/particles/sparkles_main.dds"
PE1.Lifetime = NumberRange.new(3)
PE1.Rate = 25
PE1.Transparency = NumberSequence.new(0)
PE1.LightEmission = NumberSequence.new(0)
PE1.Rotation = NumberRange.new(0)
PE1.Speed = NumberRange.new(0)
PE1.RotSpeed = NumberRange.new(100)
bc=char['Body Colors']
coloras=BrickColor.new('Really black')
bc.LeftLegColor,bc.LeftArmColor,bc.TorsoColor,bc.HeadColor,bc.RightArmColor,bc.RightLegColor=coloras,coloras,coloras,coloras,coloras,coloras
----------------------------------------------------------
Debounces = {
on = false;
CanAttack = true;
CanJoke = true;
}
-----------Buttons----------------------------------------
----------------------------------------------------
pt = {0.7, 0.8, 0.9}
mouse.KeyDown:connect(function(key)
   if key == "h" then
       if Debounces.CanJoke == true then
           Debounces.CanJoke = false
           local hum = char:findFirstChild("Humanoid")
           evil = hum:LoadAnimation(char.fart)
           evil:Play()
           u = Instance.new("Sound")
           u.SoundId = "http://www.roblox.com/asset/?id=177775134"
           u.Parent = char
           u.Looped = false
           u.Pitch = pt[math.random(1,#pt)]
           u.Volume = 1
           u2 = Instance.new("Sound")
           u2.SoundId = "http://www.roblox.com/asset/?id=177775134"
           u2.Parent = char
           u2.Looped = false
           u2.Pitch = u.Pitch
           u2.Volume = 1
           wait(.01)
           u:Play()
           u2:Play()
           game:GetService("Chat"):Chat(Mpc.Head, "There once was a kid named AmbientOcclusion......")
           wait(4)
           game:GetService("Chat"):Chat(Mpc.Head, "That loved his doll")
           wait(4)
           game:GetService("Chat"):Chat(Mpc.Head, "One day the boy got terribly ill and started to hurt his doll")
           wait(4)
           game:GetService("Chat"):Chat(Mpc.Head, "The boy went terribly insane and started to kill all of his family...")
           wait(4)
           game:GetService("Chat"):Chat(Mpc.Head, "Unfortuanely the boy died and the doll went corrupt")
           wait(4)
            game:GetService("Chat"):Chat(Mpc.Head, "Now the doll roams the earth taking everybody to the depths of hell")
           wait(5)
           u:Stop()
           u2:Stop()
           if Debounces.CanJoke == false then
               Debounces.CanJoke = true
           end
       end
   end
end)
----------------------------------------------------
game.Players.PlayerAdded:connect(function(player)
wait(1)
player.Died:connect(function()
script.Sound:stop()
end)
end)