Parts of script is only working for certain players only?

Any help would be very appreciated

BackStory

Im trying to create a sprinting script. Which when pressed ctrl will change the players walking anim from a walking to a running aswell as increase its StamMin and StamMax values. StamMin and StamMin are sorta like the Humanoid.Health and Humanoid.MaxHealth of the stamina. StamMin and StamMax are int-values. and its value changes based on the number of another invalue called Stamina. StamMax,StamMin and Stamina all work together to tell the player how much stamina they have left to run(You proabably know how a stamina bar works). This is all displayed on a [bar.](Top one is Stamina)(https://gyazo.com/8c1f7962ed74dfb13ffdf9d77c0a156e) that tells the StamMin over the StamMax.

Problem

So here is my problem. Pretend there is Player1 and Player2 in one server. For some reason Player1 StamMin Max value would be set to whatever Player2's StamMax is. It's confusing but i've done test about 100 times and thats what i could figure out.

Attempts

I haven't figured out a set reason why this is happening meaning that i couldn't establish a good attempt. I've tried attempts but they are more guesses that attempts.

Server Script

--Strength DataStore
local DataStoreService = game:GetService("DataStoreService")
 StrengthD = DataStoreService:GetDataStore("PlayerStrength3")
--Armour DataStore
local DataStoreService = game:GetService("DataStoreService")
ArmourD = DataStoreService:GetDataStore("PlaryerArmour2")
--Regen DataStore
local DataStoreService = game:GetService("DataStoreService")
RegenD = DataStoreService:GetDataStore("PlaryerRegen2")
--RegenF
local DataStoreService = game:GetService("DataStoreService")
RegenFD = DataStoreService:GetDataStore("PlaryerRegen2")
--Agility DataStore
local DataStoreService = game:GetService("DataStoreService")
AgilityD = DataStoreService:GetDataStore("PlaryerAgility2")
--Stamina DataStore
local DataStoreService = game:GetService("DataStoreService")
StaminaD = DataStoreService:GetDataStore("PlaryerStamina2")
--StamMin DataStore
local DataStoreService = game:GetService("DataStoreService")
StamMinD = DataStoreService:GetDataStore("PlaryerStamMin2")
--StamMax DataStore
local DataStoreService = game:GetService("DataStoreService")
StamMaxD = DataStoreService:GetDataStore("PlaryerStamMax2")
--Rank DataStore
local DataStoreService = game:GetService("DataStoreService")
RankD = DataStoreService:GetDataStore("PlayerRanks3")
--DiceDR DataStore
local DataStoreService = game:GetService("DataStoreService")
DiceDRD = DataStoreService:GetDataStore("PlaryerDice2")




game.Players.PlayerAdded:Connect(function(Player)
    local char = Player.Character or Player.CharacterAdded:Wait()
    local Stats = Instance.new("Folder")
    Stats.Parent = Player
    Stats.Name = "Stats"
    --Strength--
    local Strength = Instance.new("IntValue",Stats)
    Strength.Name = "Strength"
    --Armour--
    local Armour = Instance.new("IntValue",Stats)
    Armour.Name = "Armour"
    --Regen--
    local Regen = Instance.new("IntValue",Stats)
    Regen.Name = "Regen"
     RegenF = Instance.new("IntValue",Player)
    RegenF.Name = "RegenF"
    RegenF.Value = Regen.Value/20
    --Agility--
    local Agility = Instance.new("IntValue",Stats)
    Agility.Name = "Agility"
    --Stamina--
    local Stamina = Instance.new("IntValue",Stats)
    Stamina.Name = "Stamina"
    local StamMin = Instance.new("IntValue",Stamina)
    StamMin.Name = "StamMin"
    StamMin.Value = Stamina.Value * 15 + 100
    local StamMax = Instance.new("IntValue",Stamina)
    StamMax.Name = "StamMax"
    StamMax.Value = Stamina.Value * 15 + 100
    --Rank--
    local Rank = Instance.new("IntValue",Stats)
    Rank.Name = "Rank"
    --DiceDR--
    local DiceDR = Instance.new("IntValue",Stats)
    DiceDR.Name = "DiceD-Rank"
    --GetAsync's--
    Strength.Value = StrengthD:GetAsync(Player.UserId) or 1
    Armour.Value = ArmourD:GetAsync(Player.UserId) or 0
    Regen.Value = RegenD:GetAsync(Player.UserId) or 1 
    Agility.Value = AgilityD:GetAsync(Player.UserId) or 1
    Stamina.Value = StaminaD:GetAsync(Player.UserId) or 1
    Rank.Value = RankD:GetAsync(Player.UserId) or 1
    DiceDR.Value = DiceDRD:GetAsync(Player.UserId) or 0
    StamMin.Value = StamMinD:GetAsync(Player.UserId) or 100
    StamMax.Value = StamMaxD:GetAsync(Player.UserId)
    RegenF.Value = RegenFD:GetAsync(Player.UserId)
    --Give Maxes--
   Strength.Changed:Connect(function() StrengthChange(Player,Strength) end) 
    function StrengthChange(Player,Strength)
     if Strength.Value > 200 then
        Strength.Value = 200
    end
    end
    Regen.Changed:Connect(function() RegenChange(Player,Regen,RegenF) end) 
    function RegenChange(Player,Regen,RegenF)
    RegenF.Value = Regen.Value/20
     if Regen.Value > 70 then
        Regen.Value = 70
    end
    end
    Agility.Changed:Connect(function() AgilityChange(Player,Agility) end) 
    function AgilityChange(Player,Agility)
     if Agility.Value > 70 then
        Agility.Value = 70
    end
    end
    DiceDR.Changed:Connect(function() DiceDRChange(Player,DiceDR) end) 
    function DiceDRChange(Player,DiceDR)
     if DiceDR.Value <= 0 then
        DiceDR.Value = 0
    end
    end
        Stamina.Changed:Connect(function() StaminaChange(Player,Stamina,StamMax) end) 
    function StaminaChange(Player,Stamina,StamMax)
        StamMax.Value = Stamina.Value * 15
        print(StamMax.Value)
     if Stamina.Value > 250 then
        Stamina.Value = 250
    end
    end
    StamMin.Changed:Connect(function() StamMinChange(Player,StamMin,StamMax) end) 
    function StamMinChange(Player,StamMin)
     if StamMin.Value > StamMax.Value then
        StamMin.Value = StamMax.Value
    end
    if StamMin.Value <= 0 then
        StamMin.Value = 0
    end
    end
    Player.PlayerGui.GuiStastictics.HealthBarLocater.Names.Text = Player.Name
if Rank.Value == 1  then
    Player.PlayerGui.GuiStastictics.HealthBarLocater.Rank.Text = "Rank D"
end
if Rank.Value == 2  then
    Player.PlayerGui.GuiStastictics.HealthBarLocater.Rank.Text = "Rank C"
end 
if Rank.Value == 3  then
    Player.PlayerGui.GuiStastictics.HealthBarLocater.Rank.Text = "Rank B"
end
if Rank.Value == 4  then
    Player.PlayerGui.GuiStastictics.HealthBarLocater.Rank.Text = "Rank A"
end    
if Rank.Value == 5  then
    Player.PlayerGui.GuiStastictics.HealthBarLocater.Rank.Text = "Rank S"
end
if Rank.Value == 1  then
    Player.Character.Head.PlayerBill.Frame.PlayerRank.Text = "Rank D"
end
if Rank.Value == 2  then
    Player.Character.Head.PlayerBill.Frame.PlayerRank.Text = "Rank C"
end 
if Rank.Value == 3  then
    Player.Character.Head.PlayerBill.Frame.PlayerRank.Text = "Rank B"
end
if Rank.Value == 4  then
    Player.Character.Head.PlayerBill.Frame.PlayerRank.Text = "Rank A"
end    
if Rank.Value == 5  then
    Player.Character.Head.PlayerBill.Frame.PlayerRank.Text = "Rank S"
end
Player.Character.Humanoid.DisplayDistanceType = Enum.HumanoidDisplayDistanceType.None
end)




game.Players.PlayerRemoving:Connect(function(Player)
    StrengthD:SetAsync(Player.UserId, Player.Stats.Strength.Value)
    ArmourD:SetAsync(Player.UserId, Player.Stats.Armour.Value)
    RegenD:SetAsync(Player.UserId, Player.Stats.Regen.Value)
    AgilityD:SetAsync(Player.UserId, Player.Stats.Agility.Value)
    StaminaD:SetAsync(Player.UserId, Player.Stats.Stamina.Value)
    RankD:SetAsync(Player.UserId, Player.Stats.Rank.Value)
    DiceDRD:SetAsync(Player.UserId, Player.Stats["DiceD-Rank"].Value)
    StamMinD:SetAsync(Player.UserId, Player.Stats.Stamina.StamMin.Value)
    StamMaxD:SetAsync(Player.UserId, Player.Stats.Stamina.StamMax.Value)
end)

There are more scripts to this but i think this is where all the problems are happpening. If you need the whole thing please do so tell me.

Regards, Bl_ueHistory