Using Tables and random values: Problems?

Hello, I am making this game and its main genre is Health care and so on. Here is what i have done so far:

I made a model and named it "Sickness". It's parent is game (game.Sickness) and inside the Model there are 6 BoolValues. The name of the BoolValues are as shown below:

BoolValue 1 - Frostbite BoolValue 2 - Radioactvity BoolValue 3 - Nausea BoolValue 4 - Fatigue BoolValue 5 - Fever BoolValue 6 - Werewolfia

I also have a SickScript for these BoolValues, Each BoolValue has a different impact on the player. The SickScript is also in game (game.SickScript).

I have a main script inside workspace, This script clones the Sickness Model and SickScript into the player. Here is the main script code:

sicknessList = {game.Sickness.Frostbite, game.Sickness.Radioactivity, game.Sickness.Nausea, game.Sickness.Fatigue, game.Sickness.Fever, game.Sickness.Werewolfia,}
playerList = {}

function playerAdded(player)
    if player then
    for i,v in pairs (game.Players:GetPlayers()) do
    game.Sickness:clone().Parent = player
    game.SickScript:clone().Parent = player
    table.insert(playerList, v)

    local ld = Instance.new("IntValue")
    ld.Name = "leaderstats"
    ld.Parent = player

    local money = Instance.new("IntValue", ld)
    money.Name = "Cures"
    money.Value = 0     

    local level = Instance.new("IntValue", ld)
    level.Name = "Level"
    level.Value = 1 

    local xp = Instance.new("IntValue", ld)
    xp.Name = "XP"
    xp.Value = 0

if xp.Value == 100 then
    level.Value = level.Value + 1

if xp.Value == 200 then
    level.Value = level.Value + 1

if xp.Value == 300 then
    level.Value = level.Value + 1

end end end end end end

function playerSickness()
    print 'PlayerSickness: Started'
    local player = game.Players:GetPlayers()[math.random(1, game.Players.NumPlayers)]
    local sickness = sicknessList[math.random(1, #sicknessList)].Value == true
    player.TeamColor = BrickColor.new("Bright green")
end

function health()
    print 'PlayerHealth: Started'
    for i,v in pairs(game.Players:GetPlayers()) do
            local player = v
            if player.Character then
            bl = {true, false}
            for i,v in pairs(bl)do
            if v == true then


            while true do
            player.Character.Humanoid.Health = player.Character.Humanoid.Health - 1
            wait(60)
            if v == false then
                break
end end end end end end end

game.Players.PlayerAdded:connect(playerAdded)

while wait() do
    wait(15)
    playerSickness()
    health()
    wait(15)
end

The first part clones the Sickness Model and script into the player and gives the player leaderstats. My main problem is selecting a random player and a random sickness from the Sickness Model and making its value true. But, I get no errors. Meaning this is right but nothing is happening.

Could you please fix the function "playerSickness" and make it select a random player and to make a random sickness inside the model a true value.

Thank you, - GingerBisucuit99