Super Mario 64 Star System Help?

im making a sm64 styled game and well, i dont have a star system, and by that i mean it acts as a key, when you collect it you cant collect it again and it unlocks a door, you need a certain amount of keys to unlock a door, and of course when you leave or press save, everything saves. but i have literally no idea how, do you think you can help me? sorry if asking for free work is rude

local key1 = game.Workspace.Key1
local key2 = game.Workspace.Key2
local key3 = game.Workspace.Key3
local keys = game.Workspace.Key1 and game.Workspace.Key2 and game.Workspace.Key3
local Door = game.Workspace.Door

key1.Touched:Connect(function()
	key1.Transparency = 1
	key1.CanCollide = false
end)

key2.Touched:Connect(function()
	key2.Transparency = 1
	key2.CanCollide = false
end)

key3.Touched:Connect(function()
	key3.Transparency = 1
	key3.CanCollide = false
end)

while wait(0.1) do
        if keys.Transparency == 1 then
	    Door.Transparency = 1
	     end
end