giving more points than expected?

This is a script for the Leader Board and it also the script which gives the points every kill, But sometimes, or mostly every time, it does't give anything and sometimes it gives 3 points not 1.

 game.Players.PlayerAdded:connect(function(player)
 local folder = Instance.new("Folder",player)
 folder.Name = "hiddenstats"
 local currency1 = Instance.new("IntValue",folder)
 currency1.Name = "Points"
 local addedhealth = Instance.new("IntValue",folder)
 addedhealth.Name = "AddedHealth"
 local addedjump = Instance.new("IntValue",folder)
 addedjump.Name = "AddedJump"
 local addedspeed = Instance.new("IntValue",folder)
 addedspeed.Name = "AddedSpeed"
 local usedcurrecy1 = Instance.new("IntValue", folder)
 usedcurrecy1.Name = "UsedPoints"
  
 player.CharacterAdded:connect(function(character)
   character:WaitForChild("Humanoid").Died:connect(function()
    local tag = character.Humanoid:FindFirstChild("creator")
    if tag ~= nil then
	   if tag.Value ~= nil then
		  currency1.Value = currency1.Value + 1 --This is the reward after the player died.
	     end 
	    end
       end)
      end) 
     end)