shared["scary"]=false
wait(5)
m=1
m1=1
while wait() do
	if shared["scary"]==false then
		function FUNCTION(a)
		if (a.className == "Part") or (a.className == "Seat") or (a.className == "SpawnLocation") then
			m1=math.random(1,3)
			if m1==1 then
				m=0
			end
			if m1==2 then
				m=0.25
			end
			if m1==3 then
				m=0.5
			end
				local Deca=Instance.new("Decal")
				Deca.Parent=a
				Deca.Texture="http://www.roblox.com/asset/?id=703387192"
				Deca.Color3=Color3.new(m,m,m)
				Deca.Face="Back"
				Deca.Name="D1"
				Deca.Transparency=0.3
				local Deca=Instance.new("Decal")
				Deca.Parent=a
				Deca.Texture="http://www.roblox.com/asset/?id=703387192"
				Deca.Color3=Color3.new(m,m,m)
				Deca.Face="Bottom"
				Deca.Name="D2"
				Deca.Transparency=0.3
				local Deca=Instance.new("Decal")
				Deca.Parent=a
				Deca.Texture="http://www.roblox.com/asset/?id=703387192"
				Deca.Color3=Color3.new(m,m,m)
				Deca.Face="Front"
				Deca.Name="D3"
				Deca.Transparency=0.3
				local Deca=Instance.new("Decal")
				Deca.Parent=a
				Deca.Texture="http://www.roblox.com/asset/?id=703387192"
				Deca.Color3=Color3.new(m,m,m)
				Deca.Face="Left"
				Deca.Name="D4"
				Deca.Transparency=0.3
				local Deca=Instance.new("Decal")
				Deca.Parent=a
				Deca.Texture="http://www.roblox.com/asset/?id=703387192"
				Deca.Color3=Color3.new(m,m,m)
				Deca.Face="Right"
				Deca.Name="D5"
				Deca.Transparency=0.3
				local Deca=Instance.new("Decal")
				Deca.Parent=a
				Deca.Texture="http://www.roblox.com/asset/?id=703387192"
				Deca.Color3=Color3.new(m,m,m)
				Deca.Face="Top"
				Deca.Name="D6"
				Deca.Transparency=0.3
				local Int=Instance.new("IntValue")
				Int.Parent=a
				Int.Name="IntValue"
				Int.Value=(a.Material.Value)
				a.Material="Neon"

		end
		local b = a:GetChildren()
		for i=1,#b do
		FUNCTION(b[i])

		end
		end

		FUNCTION(game.Workspace.Player)
		FUNCTION(game.Workspace.NonAnchor)

		wait(math.random(2,3))

		function FUNCTION(a)
		if (a.className == "Part") or (a.className == "Seat") or (a.className == "SpawnLocation") then
			a.D1:Destroy()
			a.D2:Destroy()
			a.D3:Destroy()
			a.D4:Destroy()
			a.D5:Destroy()
			a.D6:Destroy()

			a.Material=a.IntValue.Value
			a.IntValue:Destroy()

		end
		local b = a:GetChildren()
		for i=1,#b do
		FUNCTION(b[i])
		end
		end

		FUNCTION(game.Workspace.Player)
		FUNCTION(game.Workspace.NonAnchor)

		wait(math.random(3,5))
	end
end