Door not doing anything when a value is is true?

I am working on an easter game, and when you click on an egg, it is supposed to change a value to true, and then a door is supposed to open. Nothing happens when clicked and no errors. Here is the door's code.

local WaterEggCollected = game.Workspace.Values.WaterEggCollected.Value
local Door1 = game.Workspace.Door1
while true do
    if WaterEggCollected == true then
        Door1.Transparency = 1
        Door1.CanCollide = false
    end
end

Here is the egg code.

function OnClicked (mouse)
    script.Parent:Destroy()
    game.Workspace.Values.WaterEggCollected.Value = true
end
script.Parent.ClickDetector.MouseClick:connect(OnClicked)