local m = Instance.new("Hint")
local Parts = 1
local Partss = 0
local x = game.ServerStorage.Meadows
local s = game.ServerStorage.MapLoader
local children = game.ServerStorage.Meadows:GetChildren()
function PartLoader()
	for c = 1, #children do
	if children[c].className == "Part" or children[c].className == "WedgePart" or children[c].className == "VehicleSeat" or children[c].className == "Seat" or children[c].className == "UnionOperation" then
	Partss = Partss+1
	children[c].CanCollide = false
	children[c].Transparency = 1
	end
	end
end
function loading()
	s.Value = 3
	x:Clone().Parent = game.Workspace
	m.Parent = game.Workspace
	m.Text = "Loading Meadows"
end
function open()
	children = game.Workspace.Meadows:GetChildren()
for c = 1, #children do
	if children[c].className == "Part" or children[c].className == "WedgePart" or children[c].className == "VehicleSeat" or children[c].className == "Seat" or children[c].className == "UnionOperation"
		then
			children[c].Transparency = 0
			children[c].CanCollide = true
			wait(.001)
			m.Text = "Loading "..Parts.." Out of "..Partss..""
			Parts = Parts+1
			if Parts >= Partss+1 then
				wait(.5)
				wait(.5)
				m.Text = "Load Complete"
				wait(.5)
				Parts = 1
				Partss = 0
				m:Remove()
			end
		end
	end
end
	function Debounce()
	if s.Value == 1 then
	PartLoader()
	loading()
	open()
	end
end
script.Parent.MouseButton1Click:connect(Debounce)