function CloudVisiblity(a,D,r,s,Y)for N=1,Y*10,1 do local o=((r[1].Transparency-a)/2+a)+((r[1].Transparency-a)/2)*math.cos((N*math.pi)/(Y*10))local P=((s[1].Transparency-D)/2+D)+((s[1].Transparency-D)/2)*math.cos((N*math.pi)/(Y*10))for a,D in pairs(r)do D.Transparency=o end for a,D in pairs(s)do D.Transparency=P end wait(.1)end for D,r in pairs(r)do r.Transparency=a end for a,r in pairs(s)do r.Transparency=D end end return CloudVisiblity


function CloudVisiblity(TargetSmall, TargetLarge, Small, Large, Time)
	for i = 1, Time * 10 do
		local TransSmall = ((Small[1].Transparency - TargetSmall) / 2) + TargetSmall + (((Small[1].Transparency - TargetSmall) / 2) * math.cos((i * math.pi) / (Time * 10)))
		local TransLarge = ((Large[1].Transparency - TargetLarge) / 2) + TargetLarge + (((Large[1].Transparency - TargetLarge) / 2) * math.cos((i * math.pi) / (Time * 10)))
		for _, Child in pairs(Small) do Child.Transparency = TransSmall end
		for _, Child in pairs(Large) do Child.Transparency = TransLarge end
		wait(.1)
	end
	for _, Child in pairs(Small) do Child.Transparency = TargetSmall end
	for _, Child in pairs(Large) do Child.Transparency = TargetLarge end
end

return CloudVisiblity
