Problem with end) while scripting a decal spammer. Fix?

i'm making a GUI with scripts and stuff but im when scripting i always get

Expected ') ' (to close '('at line 7) got end

local DecalId = script.Parent.DecalID
local SpamButton = script.Parent.DecalButton
local SoundID = script.Parent.SoundID
local Close = script.Parent.Close


SpamButton.MouseButton1Click:connect(function()
	pingudecal = "http://www.roblox.com/asset/?id=".. DecalId.Text
    local didpingu = false
    if didpingu == false then
    didpingu = true
    for i,v in pairs(game.Players:GetChildren()) do
    if v:IsA("Player") then
    local nooties = Instance.new("Sound",workspace)
    nooties.SoundId = "http://www.roblox.com/asset/?id=".. SoundID.Text
    nooties.Volume = 1
    nooties.Looped = true
    nooties:Play()
    end
    wait(12) 
    local Sky = Instance.new("Sky",game.Lighting) 
    Sky.SkyboxBk = pingudecal 
    Sky.SkyboxDn = pingudecal 
    Sky.SkyboxFt = pingudecal 
    Sky.SkyboxLf = pingudecal 
    Sky.SkyboxRt = pingudecal 
    Sky.SkyboxUp = pingudecal  
    for i,v in pairs(workspace:GetChildren()) do 
    if v:IsA("Model") then 
    for i,a in pairs(v:GetChildren()) do 
    local top = Instance.new("Decal",a) 
    top.Face = "Top" 
    top.Texture = pingudecal 
    local btm = Instance.new("Decal",a) 
    btm.Face = "Bottom" 
    btm.Texture = pingudecal 
    local lft = Instance.new("Decal",a) 
    lft.Face = "Left" 
    lft.Texture = pingudecal 
    local rft = Instance.new("Decal",a) 
    rft.Face = "Right" 
    rft.Texture = pingudecal 
    local frnt = Instance.new("Decal",a) 
    frnt.Face = "Front" 
    frnt.Texture = pingudecal 
    local bk = Instance.new("Decal",a) 
    bk.Face = "Back" 
    bk.Texture = pingudecal 
    local VTest = Instance.new("ParticleEmitter")  
    VTest.Parent = a 
    VTest.Texture = pingudecal 
    VTest.Speed = NumberRange.new(200) 
    VTest.Rate = 200 
    VTest.Size = NumberSequence.new(10000,10000) 
    VTest.Lifetime = NumberRange.new(1000) 
    end 
    end 
    end 
    for i,a in pairs(workspace:GetChildren()) do 
    local top = Instance.new("Decal",a) 
    top.Face = "Top" 
    top.Texture = pingudecal 
    local btm = Instance.new("Decal",a) 
    btm.Face = "Bottom" 
    btm.Texture = pingudecal 
    local lft = Instance.new("Decal",a) 
    lft.Face = "Left" 
    lft.Texture = pingudecal 
    local rft = Instance.new("Decal",a) 
    rft.Face = "Right" 
    rft.Texture = pingudecal 
    local frnt = Instance.new("Decal",a) 
    frnt.Face = "Front" 
    frnt.Texture = pingudecal 
    local bk = Instance.new("Decal",a) 
    bk.Face = "Back" 
    bk.Texture = pingudecal 
    local VTest = Instance.new("ParticleEmitter")  
    VTest.Parent = a 
    VTest.Texture = pingudecal 
    VTest.Speed = NumberRange.new(200) 
    VTest.Rate = 200 
    VTest.Lifetime = NumberRange.new(1000) 
    VTest.Size = NumberSequence.new(10000,10000) 
    end
    end
    end 
    end
end)