This Slot Machine Script Will Only run once?

So I have a script that when a part gets clicked it runs the rest of the script and does a slot machine-like thing, but now it won't run again after it is clicked once and finished the slot stuff. Code:

function LeverPull()
	script.Parent.Pull1.Click.Transparency = 1
	script.Parent.Pull1.P1.Transparency = 1
	script.Parent.Pull2.P1.Transparency = 0
	script.Parent.Pull2.P2.Transparency = 0
	wait(0.3)
	script.Parent.Pull1.Click.Transparency = 0
	script.Parent.Pull1.P1.Transparency = 0
	script.Parent.Pull2.P1.Transparency = 1
	script.Parent.Pull2.P2.Transparency = 1
end

function PlayWin()
	script.Parent.Logo.Win:Play()
	wait(1)
	script.Parent.Logo.Win:Stop()
end

Images={
"http://www.roblox.com/asset/?id=1976242599", --Coin
"http://www.roblox.com/asset/?id=1976271649", --Gem
"http://www.roblox.com/asset/?id=1976243494", --Face
"http://www.roblox.com/asset/?id=1976244535", --Sword
"http://www.roblox.com/asset/?id=1976120686"} --Controller

local Alarm1 = script.Parent.Alarm1
local Alarm2 = script.Parent.Alarm2
local CoinClone = script.Parent.CoinClone
local Pull1 = script.Parent.Pull1
local Pull2 = script.Parent.Pull2
local CD = script.Parent.Pull1.Click.ClickDetector
local WinSound = script.Parent.Logo.Win

local S1 = script.Parent.S1.Decal
local S2 = script.Parent.S2.Decal
local S3 = script.Parent.S3.Decal

function Alarm()
	for i = 1,10 do
		wait(0.15)
		Alarm1.PointLight.Enabled = true
		Alarm1.BrickColor = BrickColor.new("Really red")
		Alarm2.BrickColor = BrickColor.new("Really red")
		wait(0.15)
		Alarm1.BrickColor = BrickColor.new("Black")
		Alarm1.PointLight.Enabled = false
		Alarm2.BrickColor = BrickColor.new("Black")
	end
end

function Coin()
	for i = 1,20 do
		local Coin = script.Parent.CoinClone:Clone()
		Coin.Parent = script.Parent
		Coin.Name = "Coin"
		Coin.CanCollide = true
		Coin.Anchored = false
		Coin.Position = script.Parent.CoinClone.Position - Vector3.new(0,1,0)
		wait(0.2)
	end
end

---------------------------------------------------------------
function onClicked()
	CD.MaxActivationDistance = 0
	LeverPull()

	for i = 1,40 do
		wait(0.05)
		S1.Texture = Images[math.random(1,#Images)]
		S2.Texture = Images[math.random(1,#Images)]
		S3.Texture = Images[math.random(1,#Images)]
	end

	for i = 1,40 do
		wait(0.05)
		S2.Texture = Images[math.random(1,#Images)]
		S3.Texture = Images[math.random(1,#Images)]
	end

	for i = 1,40 do
		wait(0.05)
		S3.Texture = Images[math.random(1,#Images)]
	end
end



if S1.Texture == Images[1] and S2.Texture == Images[1] and S3.Texture == Images[1] then
	PlayWin()
	Alarm()
	Coin()
	wait(5)

for _, child in pairs(script.Parent:GetChildren()) do
    if child.Name == 'Coin' then
        child:Destroy()
else
    end
end

CD.MaxActivationDistance = 8


else if S1.Texture == Images[2] and S2.Texture == Images[2] and S3.Texture == Images[2] then
	PlayWin()
	Alarm()
	Coin()
	wait(5)

for _, child in pairs(script.Parent:GetChildren()) do
    if child.Name == 'Coin' then
        child:Destroy()
else
    end
end

CD.MaxActivationDistance = 8


else if S1.Texture == Images[3] and S2.Texture == Images[3] and S3.Texture == Images[3] then
	PlayWin()
	Alarm()
	Coin()
	wait(5)

for _, child in pairs(script.Parent:GetChildren()) do
    if child.Name == 'Coin' then
        child:Destroy()
else
    end
end

CD.MaxActivationDistance = 8


else if S1.Texture == Images[4] and S2.Texture == Images[4] and S3.Texture == Images[4] then
	PlayWin()
	Alarm()
	Coin()
	wait(5)

for _, child in pairs(script.Parent:GetChildren()) do
    if child.Name == 'Coin' then
        child:Destroy()
else
    end
end

CD.MaxActivationDistance = 8

else if S1.Texture == Images[5] and S2.Texture == Images[5] and S3.Texture == Images[5] then
	PlayWin()
	Alarm()
	Coin()
	wait(5)

for _, child in pairs(script.Parent:GetChildren()) do
    if child.Name == 'Coin' then
        child:Destroy()
else
    end
end

CD.MaxActivationDistance = 8

else

CD.MaxActivationDistance = 8

end
end
end
end

end
Pull1.Click.ClickDetector.MouseClick:Connect(onClicked)

The Game is FE btw.