TouchEnded doesnt function properly?

Here's what I mean: When you touch the part, right away it destroys the children. It doesn't matter if you're still touching the part... How can I fix this?

(TouchEnded is at the bottom)

open = script.Parent.Opened
Ready = true
Ready2 = true

function kk(plr, value)
	repeat wait()
		script.Parent.Opened.Value = value
	until script.Parent.Opened.Value == true
end

function kk2(plr, value2)
	repeat wait()
		script.Parent.Opened.Value = value2
	until script.Parent.Opened.Value == false
end


script.Parent.Touched:Connect(function(hit)
	plr = game.Players:GetPlayerFromCharacter(hit.Parent)
	h = hit.Parent:FindFirstChild("Humanoid")
if h ~= nil then
	
	if Ready == true and open.Value == false and Ready2 == true then
		Ready = false
		note = script.Parent.NoteOpen:Clone()
		note.Parent = plr.PlayerGui
		scri = script.Parent.OpenScript:Clone()
		scri.Parent = plr.PlayerGui
		scri.Disabled = false
		script.Parent.OpenOrClose.OnServerEvent:Connect(kk)
		repeat wait() until script.Parent.Opened.Value == true
		script.Parent.Parent.D1.Part0.Motor.DesiredAngle = 1.3
		note:Destroy()
		scri:Destroy()
		Ready2 = false
		
	elseif Ready == false and open.Value == true and Ready2 == false then
		Ready = true
		note = script.Parent.NoteClose:Clone()
		note.Parent = plr.PlayerGui
		scri = script.Parent.CloseScript:Clone()
		scri.Parent = plr.PlayerGui
		scri.Disabled = false
		script.Parent.OpenOrClose.OnServerEvent:Connect(kk2)
		repeat wait() until script.Parent.Opened.Value == false
		script.Parent.Parent.D1.Part0.Motor.DesiredAngle = 0
		note:Destroy()
		scri:Destroy()
		Ready2 = true
		
		end
	end
end)

script.Parent.TouchEnded:Connect(function(hit)
	plr = game.Players:GetPlayerFromCharacter(hit.Parent)
	h = hit.Parent:FindFirstChild("Humanoid")
	if h ~= nil then
		if plr.PlayerGui:FindFirstChild("OpenScript") then
			plr.PlayerGui.OpenScript:Destroy()
		end
		
		
		if plr.PlayerGui:FindFirstChild("NoteOpen") then
			plr.PlayerGui.NoteOpen:Destroy()
		end
		
		if plr.PlayerGui:FindFirstChild("CloseScript") then
			plr.PlayerGui.OpenScript:Destroy()
		end
		
		
		if plr.PlayerGui:FindFirstChild("NoteClose") then
			plr.PlayerGui.NoteOpen:Destroy()
		end
		
	end
end)