This is supposed to sort through the accessories in a player's character and destroy any effects. It's not destroying the effects though.
Effects = {"Fire","Smoke","Sparkles","PointLight","SpotLight"}
workspace.ChildAdded:Connect(function()
for i, accessory in next, workspace:GetDescendants() do
if accessory:IsA('Accessory') then
for i, effect in pairs(accessory:GetChildren()) do
for num = 1, #Effects do
if effect:IsA(Effects[num]) then
effect:Destroy()
end end end end end end)

2 comments
Don't use while wait() do and your code needs restructuring. You also never defined Effects anywhere.
Oh I forgot- I added the effects table now