How do I make a crate limit the amount of items it gives?

I've been trying to make a script that gives a gun until you have no guns left and refreshes in an hour. It gives the gun, but never stops giving it even though I'm trying to make it so when the Amount = 0 it won't give them anymore. Script:

local Model = script.Parent
local Base = Model.PrimaryPart
local ClickDetector = Base:WaitForChild("ClickDetector")
Amount = 2

local ToolName = "Beretta M9" --the name of the tool the player gets
local WhitelistGroupIds = { 
	5310854, --ID Goes Here
}

function GiveTool(plr)
	if Amount == 2 then
		game:GetService("ServerStorage"):FindFirstChild(ToolName)
		game:GetService("ServerStorage")[ToolName]:Clone().Parent = plr.Backpack
		Amount = 1
		elseif Amount == 1 then
		game:GetService("ServerStorage"):FindFirstChild(ToolName)
		game:GetService("ServerStorage")[ToolName]:Clone().Parent = plr.Backpack
		Amount = 0
	elseif Amount == 0 then
			print ("Out of guns.")
			end
		end

ClickDetector.MouseClick:connect(function(plr)
	if #WhitelistGroupIds > 0 then
		for i=1, #WhitelistGroupIds do
			if plr:IsInGroup(WhitelistGroupIds[i]) then
				GiveTool(plr)
			end
		end
	else
		GiveTool(plr)
	end
end)






	if Amount == 2 then game.Workspace.Houses.ClassifiedTurf.GUIPart.BillboardGui.TextLabel.Text = "Beretta M9 2/2"
	end
	if Amount == 1 then game.Workspace.Houses.ClassifiedTurf.GUIPart.BillboardGui.TextLabel.Text = "Beretta M9 1/2"
	end
	if Amount == 0 then game.Workspace.Houses.ClassifiedTurf.GUIPart.BillboardGui.TextLabel.Text = "Beretta M9 0/2"
	end

while true do
wait (3600)
Amount = 2
end