I need help on making it so when you do :handto (plr) 1 point is added?

Handto script:

`local Settings = {
    Prefix = ":",
    Group = 4466300,
    Rank = 3,

}
function GetWords(Msg,Pattern)
    local Words = {}
    for w in string.gmatch(Msg, Pattern) do
        table.insert(Words,w)
    end
    return Words
end

local ChatFunctions = {
    ["handto"] = function(Words,Player)
            for _,Target in pairs(game.Players:GetPlayers()) do
                if string.find(string.lower(Target.Name),string.lower(Words[2])) then
                    local Tool = Player.Character:FindFirstChildOfClass("Tool")
                    local Human = Player.Character:FindFirstChildOfClass("Humanoid")
                    if Tool and Human then
                        Human:UnequipTools()
                        wait()
                        Tool.Parent = Target.Backpack
                    end
                end
                wait()
            end
    end,
}

game.Players.PlayerAdded:Connect(function(Player)
    if Player:GetRankInGroup(Settings.Group) >= Settings.Rank then
        Player.Chatted:Connect(function(Message)
            if string.sub(Message,1,1) == Settings.Prefix then
                local Command = GetWords(string.sub(Message,2),"[%w_]+")
                if ChatFunctions[Command[1]] then
            ChatFunctions[Command[1]](Command,Player)
            Player.chatted function = ":handto [player]" 
                end
            end
        end)
    end
end)`

Point save script:

`game.Players.PlayerAdded:connect(function(player)
    local stats = Instance.new("BoolValue",player)
    stats.Name = "leaderstats"

    local Cash = Instance.new("IntValue",stats)
    Cash.Name = "Points"
    Cash.Value = 0

    local rank = Instance.new("StringValue",stats)
    rank.Name = "Rank"
    rank.Value = player:GetRoleInGroup(4466300) 
end)
`