How to stop touch detection spamming?

I'm working on touch detection, but when I go to test it out, the detection spams between being touched, and the touch ending when I haven't stepped off? What can I do to stop this spam?

local buttonPressed = false

script.Parent.Touched:Connect(function(part)

	local parent = part.Parent



	if game.Players:GetPlayerFromCharacter(parent) and buttonPressed == false then
	
		local player = game.Players:GetPlayerFromCharacter(parent)
		player.PlayerGui.BuyMoves.Enabled = true
	end


	
	
end)




script.Parent.TouchEnded:Connect(function(part)
	
	
	local parent = part.Parent
	
	if game.Players:GetPlayerFromCharacter(parent) then
		buttonPressed = false
		local player = game.Players:GetPlayerFromCharacter(parent)
		player.PlayerGui.BuyMoves.Enabled = false
		
	end

	
end)

Thanks!