This Player Points Script is not working?

Here is the script:

script.Parent.DialogChoiceSelected:connect(function(player, choice)
	if (choice == script.Parent.Choice1) then
			PointsService = game:GetService("PointsService")
game.Players.PlayerAdded:connect(function(p)
while true do 
wait(5) 
game:GetService("PointsService"):AwardPoints(p.userId,1)
print("Point awarded!")
end
end)
	end
	end)

For some reason, when you add points to the server and click the dialog choice 'Choice1', it doesn't give you 1 point. Can somebody help me please? Sorry for unrelated tags.