GEEKING

content/scripts/CoreScripts/2015/LoadingScript.lua

@@ -0,0 +1,668 @@
+-- Creates the generic "ROBLOX" loading screen on startup
+-- Written by ArceusInator & Ben Tkacheff, 2014
+--
+
+-- Constants
+local PLACEID = Game.PlaceId
+
+local MPS = Game:GetService 'MarketplaceService'
+local CP = Game:GetService 'ContentProvider'
+
+local startTime = tick()
+
+local COLORS = {
+	BLACK = Color3.new(0, 0, 0),
+	WHITE = Color3.new(1, 1, 1),
+	ERROR = Color3.new(253/255,68/255,72/255)
+}
+
+local function countBricks()
+	local count = 0
+	local children = game.Workspace:GetChildren()
+
+	for _, child in ipairs(children) do
+		wait()
+		if child:IsA("BasePart") then
+			count = count + 1
+		end
+		count = count + countBricks(child)
+	end
+
+	return count
+end
+
+local function countInstances()
+    local count = 1
+    local children = game.Workspace:GetChildren()
+
+    for _, child in ipairs(children) do
+        count = count + countInstances(child)
+    end
+
+    return count
+end
+
+local connectorTypes = {
+	["Weld"] = true,
+	["ManualWeld"] = true,
+	["Motor"] = true,
+	["Motor6D"] = true,
+	["Snap"] = true,
+	["Glue"] = true,
+	["RotateP"] = true,
+}
+
+local function countConnectors()
+	local count = 0
+	local children = game.Workspace:GetChildren()
+
+	for _, child in ipairs(children) do
+		if connectorTypes[child.ClassName] then
+			count = count + 1
+		end
+		count = count + countConnectors(child)
+	end
+
+	return count
+end
+
+
+--
+-- Variables
+local GameAssetInfo -- loaded by InfoProvider:LoadAssets()
+local currScreenGui = nil
+local renderSteppedConnection = nil
+local fadingBackground = false
+local destroyedLoadingGui = false
+local hasReplicatedFirstElements = false
+
+-- Fast Flags
+local topbarSuccess, topbarFlagValue = pcall(function() return settings():GetFFlag("UseInGameTopBar") end)
+local useTopBar = (topbarSuccess and topbarFlagValue == true)
+local bgFrameOffset = useTopBar and 36 or 20
+local offsetPosition = useTopBar and UDim2.new(0, 0, 0, -36) or UDim2.new(0, 0, 0, 0)
+
+--
+-- Utility functions
+local create = function(className, defaultParent)
+	return function(propertyList)
+		local object = Instance.new(className)
+
+		for index, value in next, propertyList do
+			if type(index) == 'string' then
+				object[index] = value
+			else
+				if type(value) == 'function' then
+					value(object)
+				elseif type(value) == 'userdata' then
+					value.Parent = object
+				end
+			end
+		end
+
+		if object.Parent == nil then
+			object.Parent = defaultParent
+		end
+
+		return object
+	end
+end
+
+--
+-- Create objects
+
+local MainGui = {}
+local InfoProvider = {}
+
+
+function InfoProvider:GetGameName()
+	if GameAssetInfo ~= nil then
+		return GameAssetInfo.Name
+	else
+		return ''
+	end
+end
+
+function InfoProvider:GetCreatorName()
+	if GameAssetInfo ~= nil then
+		return GameAssetInfo.Creator.Name
+	else
+		return ''
+	end
+end
+
+function InfoProvider:LoadAssets()
+	Spawn(function() 
+		if PLACEID <= 0 then
+			while Game.PlaceId <= 0 do
+				wait()
+			end
+			PLACEID = Game.PlaceId
+		end
+
+		-- load game asset info
+		coroutine.resume(coroutine.create(function()
+			local success, result = pcall(function()
+				GameAssetInfo = MPS:GetProductInfo(PLACEID)
+			end)
+			if not success then
+				print("LoadingScript->InfoProvider:LoadAssets:", result)
+			end
+		end))
+	end)
+end
+
+--
+-- Declare member functions
+function MainGui:GenerateMain()
+	local screenGui = create 'ScreenGui' {
+		Name = 'RobloxLoadingGui'
+	}
+
+	--
+	-- create descendant frames
+	local mainBackgroundContainer = create 'Frame' {
+		Name = 'BlackFrame',
+		BackgroundColor3 = COLORS.BLACK,
+		Size = UDim2.new(1, 0, 1, bgFrameOffset),
+		Position = offsetPosition,
+		Active = true,
+
+		create 'ImageButton' {
+				Name = 'CloseButton',
+				Image = 'rbxasset://textures/ui/CloseButton_dn.png',
+				ImageColor3=Color3.new(0.9,0.9,0.9),
+				ImageTransparency = 1,
+				BackgroundTransparency = 1,
+				Position = UDim2.new(1, -37, 0, 5),
+				Size = UDim2.new(0, 32, 0, 32),
+				Active = false,
+				ZIndex = 10
+		},
+		
+		create 'Frame' {
+			Name = 'GraphicsFrame',
+			BorderSizePixel = 0,
+			BackgroundTransparency = 1,
+			Position = UDim2.new(1, -125, 1, -125),
+			Size = UDim2.new(0, 120, 0, 120),
+			ZIndex = 2,
+
+			create 'ImageLabel' {
+				Name = 'LoadingImage',
+				BackgroundTransparency = 1,
+				Image = 'rbxasset://textures/Roblox-loading-glow.png',
+				Position = UDim2.new(0, 0, 0, 0),
+				Size = UDim2.new(1, 0, 1, 0),
+				ZIndex = 2
+			},
+
+			create 'ImageLabel' {
+				Name = 'LogoImage',
+				BackgroundTransparency = 1,
+				Image = 'rbxasset://textures/Roblox-loading.png',
+				Position = UDim2.new(0.125, 0, 0.125, 0),
+				Size = UDim2.new(0.75, 0, 0.75, 0),
+				ZIndex = 2
+			}
+		},
+		
+		create 'Frame' {
+			Name = 'UiMessageFrame',
+			BackgroundTransparency = 1,
+			Position = UDim2.new(0.25, 0, 1, -120),
+			Size = UDim2.new(0.5, 0, 0, 80),
+			ZIndex = 2,
+
+			create 'TextLabel' {
+				Name = 'UiMessage',
+				BackgroundTransparency = 1,
+				Size = UDim2.new(1, 0, 1, 0),
+				Font = Enum.Font.SourceSansBold,
+				FontSize = Enum.FontSize.Size18,
+				TextWrapped = true,
+				TextColor3 = COLORS.WHITE,
+				Text = "",
+				ZIndex = 2
+			},
+		},
+		
+		create 'Frame' {
+			Name = 'CountFrame',
+			BackgroundTransparency = 1,
+			Position = UDim2.new(0, 0, 1, -120),
+			Size = UDim2.new(0.3, 0, 0, 120),
+			ZIndex = 2,
+
+			create 'TextLabel' {
+				Name = 'PlaceLabel',
+				BackgroundTransparency = 1,
+				Size = UDim2.new(1, -5, 0, 18),
+				Position = UDim2.new(0, 5, 0, 0),
+				Font = Enum.Font.SourceSansBold,
+				FontSize = Enum.FontSize.Size14,
+				TextWrapped = true,
+				TextScaled = true,
+				TextColor3 = COLORS.WHITE,
+				TextStrokeTransparency = 0,
+				Text = "",
+				TextXAlignment = Enum.TextXAlignment.Left,
+				ZIndex = 2
+			},
+
+			create 'TextLabel' {
+				Name = 'CreatorLabel',
+				BackgroundTransparency = 1,
+				Position = UDim2.new(0,5,0,18),
+				Size = UDim2.new(1, -5, 0, 18),
+				Font = Enum.Font.SourceSans,
+				FontSize = Enum.FontSize.Size12,
+				TextWrapped = true,
+				TextScaled = true,
+				TextColor3 = COLORS.WHITE,
+				TextStrokeTransparency = 0,
+				Text = "",
+				TextXAlignment = Enum.TextXAlignment.Left,
+				ZIndex = 2
+			},
+
+			create 'TextLabel' {
+				Name = 'BrickLabel',
+				BackgroundTransparency = 1,
+				Position = UDim2.new(0, 5, 0, 63),
+				Size = UDim2.new(0, 85, 0, 18),
+				Font = Enum.Font.SourceSansBold,
+				FontSize = Enum.FontSize.Size18,
+				TextScaled = true,
+				TextColor3 = COLORS.WHITE,
+				TextStrokeTransparency = 0,
+				Text = "Bricks:",
+				TextXAlignment = Enum.TextXAlignment.Right,
+				ZIndex = 2
+			},
+
+			create 'TextLabel' {
+				Name = 'ConnectorLabel',
+				BackgroundTransparency = 1,
+				Position = UDim2.new(0, 5, 0, 81),
+				Size = UDim2.new(0, 85, 0, 18),
+				Font = Enum.Font.SourceSansBold,
+				FontSize = Enum.FontSize.Size18,
+				TextScaled = true,
+				TextColor3 = COLORS.WHITE,
+				TextStrokeTransparency = 0,
+				Text = "Connectors:",
+				TextXAlignment = Enum.TextXAlignment.Right,
+				ZIndex = 2
+			},
+
+			create 'TextLabel' {
+				Name = 'InstanceLabel',
+				BackgroundTransparency = 1,
+				Position = UDim2.new(0, 5, 0, 45),
+				Size = UDim2.new(0, 85, 0, 18),
+				Font = Enum.Font.SourceSansBold,
+				FontSize = Enum.FontSize.Size18,
+				TextScaled = true,
+				TextColor3 = COLORS.WHITE,
+				TextStrokeTransparency = 0,
+				Text = "Instances:",
+				TextXAlignment = Enum.TextXAlignment.Right,
+				ZIndex = 2
+			},
+
+			create 'TextLabel' {
+				Name = 'VoxelLabel',
+				BackgroundTransparency = 1,
+				Position = UDim2.new(0, 5, 0, 99),
+				Size = UDim2.new(0, 85, 0, 18),
+				Font = Enum.Font.SourceSansBold,
+				FontSize = Enum.FontSize.Size18,
+				TextScaled = true,
+				TextColor3 = COLORS.WHITE,
+				TextStrokeTransparency = 0,
+				Text = "Voxels:",
+				TextXAlignment = Enum.TextXAlignment.Right,
+				ZIndex = 2
+			},
+
+			create 'TextLabel' {
+				Name = 'BrickCount',
+				BackgroundTransparency = 1,
+				Position = UDim2.new(0, 95, 0, 63),
+				Size = UDim2.new(0.5, -5, 0, 18),
+				Font = Enum.Font.SourceSans,
+				FontSize = Enum.FontSize.Size18,
+				TextScaled = true,
+				TextColor3 = COLORS.WHITE,
+				TextStrokeTransparency = 0,
+				Text = "",
+				TextXAlignment = Enum.TextXAlignment.Left,
+				ZIndex = 2
+			},
+
+			create 'TextLabel' {
+				Name = 'ConnectorCount',
+				BackgroundTransparency = 1,
+				Position = UDim2.new(0, 95, 0, 81),
+				Size = UDim2.new(0.5, -5, 0, 18),
+				Font = Enum.Font.SourceSans,
+				FontSize = Enum.FontSize.Size18,
+				TextScaled = true,
+				TextColor3 = COLORS.WHITE,
+				TextStrokeTransparency = 0,
+				Text = "",
+				TextXAlignment = Enum.TextXAlignment.Left,
+				ZIndex = 2
+			},
+
+			create 'TextLabel' {
+				Name = 'InstanceCount',
+				BackgroundTransparency = 1,
+				Position = UDim2.new(0, 95, 0, 45),
+				Size = UDim2.new(0.5, -5, 0, 18),
+				Font = Enum.Font.SourceSans,
+				FontSize = Enum.FontSize.Size18,
+				TextScaled = true,
+				TextColor3 = COLORS.WHITE,
+				TextStrokeTransparency = 0,
+				Text = "",
+				TextXAlignment = Enum.TextXAlignment.Left,
+				ZIndex = 2
+			},
+
+			create 'TextLabel' {
+				Name = 'VoxelCount',
+				BackgroundTransparency = 1,
+				Position = UDim2.new(0, 95, 0, 99),
+				Size = UDim2.new(0.5, -5, 0, 18),
+				Font = Enum.Font.SourceSans,
+				FontSize = Enum.FontSize.Size18,
+				TextScaled = true,
+				TextColor3 = COLORS.WHITE,
+				TextStrokeTransparency = 0,
+				Text = "",
+				TextXAlignment = Enum.TextXAlignment.Left,
+				ZIndex = 2
+			},
+		},
+
+		Parent = screenGui
+	}
+
+	create 'Frame' {
+			Name = 'ErrorFrame',
+			BackgroundColor3 = COLORS.ERROR,
+			BorderSizePixel = 0,
+			Position = UDim2.new(0.25,0,0,0),
+			Size = UDim2.new(0.5, 0, 0, 80),
+			ZIndex = 8,
+			Visible = false,
+
+			create 'TextLabel' {
+				Name = "ErrorText",
+				BackgroundTransparency = 1,
+				Size = UDim2.new(1, 0, 1, 0),
+				Font = Enum.Font.SourceSansBold,
+				FontSize = Enum.FontSize.Size14,
+				TextWrapped = true,
+				TextColor3 = COLORS.WHITE,
+				Text = "",
+				ZIndex = 8
+			},
+
+		Parent = screenGui
+	}
+
+	while not Game:GetService("CoreGui") do
+		wait()
+	end
+	screenGui.Parent = Game:GetService("CoreGui")
+	currScreenGui = screenGui
+end
+
+function round(num, idp)
+  local mult = 10^(idp or 0)
+  return math.floor(num * mult + 0.5) / mult
+end
+
+---------------------------------------------------------
+-- Main Script (show something now + setup connections)
+
+-- start loading assets asap
+InfoProvider:LoadAssets()
+MainGui:GenerateMain()
+
+local guiService = Game:GetService("GuiService")
+
+local removedLoadingScreen = false
+local instanceCount = 0
+local voxelCount = 0
+local brickCount = 0
+local connectorCount = 0
+local setVerb = true
+local fadeDown = true
+local lastRenderTime = nil
+local fadeCycleTime = 1.7
+
+renderSteppedConnection = Game:GetService("RunService").RenderStepped:connect(function()
+	if not currScreenGui then return end
+	if not currScreenGui:FindFirstChild("BlackFrame") then return end
+
+	if setVerb then
+		currScreenGui.BlackFrame.CloseButton:SetVerb("Exit")
+		setVerb = false
+	end
+
+	if currScreenGui.BlackFrame.CountFrame.PlaceLabel.Text == "" then
+		currScreenGui.BlackFrame.CountFrame.PlaceLabel.Text = InfoProvider:GetGameName()
+	end
+
+	if currScreenGui.BlackFrame.CountFrame.CreatorLabel.Text == "" then
+		local creatorName = InfoProvider:GetCreatorName()
+		if creatorName ~= "" then
+			currScreenGui.BlackFrame.CountFrame.CreatorLabel.Text = "By " .. creatorName
+		end
+	end
+
+	wait(0.1)
+
+	instanceCount = countInstances() --guiService:GetInstanceCount()
+	voxelCount = 0 --guiService:GetVoxelCount()
+	brickCount = countBricks()
+	connectorCount = countConnectors() --guiService:GetConnectorCount()
+
+	currScreenGui.BlackFrame.CountFrame.InstanceCount.Text = tostring(instanceCount)
+	currScreenGui.BlackFrame.CountFrame.BrickCount.Text = tostring(brickCount)
+	currScreenGui.BlackFrame.CountFrame.ConnectorCount.Text = tostring(connectorCount)
+
+	if voxelCount <= 0 then
+		currScreenGui.BlackFrame.CountFrame.VoxelCount.Text = "0"
+	else
+		currScreenGui.BlackFrame.CountFrame.VoxelCount.Text = tostring(round(voxelCount,4)) .." million"
+	end
+
+	if not lastRenderTime then
+		lastRenderTime = tick()
+		return
+	end
+
+	local currentTime = tick()
+	local fadeAmount = (currentTime - lastRenderTime) * fadeCycleTime
+	lastRenderTime = currentTime
+
+	if fadeDown then
+		currScreenGui.BlackFrame.GraphicsFrame.LoadingImage.ImageTransparency = currScreenGui.BlackFrame.GraphicsFrame.LoadingImage.ImageTransparency - fadeAmount
+		if currScreenGui.BlackFrame.GraphicsFrame.LoadingImage.ImageTransparency <= 0 then
+			fadeDown = false
+		end
+	else
+		currScreenGui.BlackFrame.GraphicsFrame.LoadingImage.ImageTransparency = currScreenGui.BlackFrame.GraphicsFrame.LoadingImage.ImageTransparency + fadeAmount
+		if currScreenGui.BlackFrame.GraphicsFrame.LoadingImage.ImageTransparency >= 1 then
+			fadeDown = true
+		end
+	end
+	
+	-- fade in close button after 5 seconds
+	if currentTime - startTime > 5 and currScreenGui.BlackFrame.CloseButton.ImageTransparency > 0 then
+		currScreenGui.BlackFrame.CloseButton.ImageTransparency = currScreenGui.BlackFrame.CloseButton.ImageTransparency - fadeAmount
+
+		if currScreenGui.BlackFrame.CloseButton.ImageTransparency <= 0 then
+			currScreenGui.BlackFrame.CloseButton.Active = true
+		end
+	end
+end)
+
+guiService.ErrorMessageChanged:connect(function()
+	if guiService:GetErrorMessage() ~= '' then
+		currScreenGui.ErrorFrame.ErrorText.Text = guiService:GetErrorMessage()
+		currScreenGui.ErrorFrame.Visible = true
+		local blackFrame = currScreenGui:FindFirstChild('BlackFrame')
+		if blackFrame then
+			blackFrame.CloseButton.ImageTransparency = 0
+			blackFrame.CloseButton.Active = true
+		end
+	else
+		currScreenGui.ErrorFrame.Visible = false
+	end
+end)
+
+guiService.UiMessageChanged:connect(function(type, newMessage)
+	if type == Enum.UiMessageType.UiMessageInfo then
+		local blackFrame = currScreenGui and currScreenGui:FindFirstChild('BlackFrame')
+		if blackFrame then
+			blackFrame.UiMessageFrame.UiMessage.Text = newMessage
+			if newMessage ~= '' then
+				blackFrame.UiMessageFrame.Visible = true
+			else
+				blackFrame.UiMessageFrame.Visible = false
+			end
+		end
+	end
+end)
+
+if guiService:GetErrorMessage() ~= '' then
+	currScreenGui.ErrorFrame.ErrorText.Text = guiService:GetErrorMessage()
+	currScreenGui.ErrorFrame.Visible = true
+end
+
+
+function stopListeningToRenderingStep()
+	if renderSteppedConnection then
+		renderSteppedConnection:disconnect()
+		renderSteppedConnection = nil
+	end
+end
+
+function fadeBackground()
+	if not currScreenGui then return end
+	if fadingBackground then return end
+	
+	if not currScreenGui:findFirstChild("BlackFrame") then return end
+
+	fadingBackground = true
+
+	local lastTime = nil
+	local backgroundRemovalTime = 3.2
+
+	while currScreenGui and currScreenGui.BlackFrame and currScreenGui.BlackFrame.BackgroundTransparency < 1 do
+		if lastTime == nil then
+			currScreenGui.BlackFrame.Active = false
+			lastTime = tick()
+		else
+			local currentTime = tick()
+			local fadeAmount = (currentTime - lastTime) * backgroundRemovalTime
+			lastTime = currentTime
+
+			currScreenGui.BlackFrame.BackgroundTransparency = currScreenGui.BlackFrame.BackgroundTransparency + fadeAmount
+		end
+
+		wait()
+	end
+end
+
+function fadeAndDestroyBlackFrame(blackFrame)
+	Spawn(function()
+		local countFrame = blackFrame:FindFirstChild("CountFrame")
+		local graphicsFrame = blackFrame:FindFirstChild("GraphicsFrame")
+
+		local textChildren = countFrame:GetChildren()
+		local transparency = 0
+		local rateChange = 1.8
+		local lastUpdateTime = nil
+
+		while transparency < 1 do
+			if not lastUpdateTime then
+				lastUpdateTime = tick()
+			else
+				local newTime = tick()
+				transparency = transparency + rateChange * (newTime - lastUpdateTime)
+				for i =1, #textChildren do
+					textChildren[i].TextTransparency = transparency
+					textChildren[i].TextStrokeTransparency = transparency
+				end
+				graphicsFrame.LoadingImage.ImageTransparency = transparency
+				graphicsFrame.LogoImage.ImageTransparency = transparency
+
+				lastUpdateTime = newTime
+			end
+			wait()
+		end
+		blackFrame:Destroy()
+	end)
+end
+
+function destroyLoadingElements()
+	if not currScreenGui then return end
+	if destroyedLoadingGui then return end
+	destroyedLoadingGui = true
+	
+	local guiChildren = currScreenGui:GetChildren()
+	for i=1, #guiChildren do
+		-- need to keep this around in case we get a connection error later
+		if guiChildren[i].Name ~= "ErrorFrame" then
+			if guiChildren[i].Name == "BlackFrame" then
+				fadeAndDestroyBlackFrame(guiChildren[i])
+			else
+				guiChildren[i]:Destroy()
+			end
+		end
+	end
+end
+
+function handleFinishedReplicating()
+	hasReplicatedFirstElements = (#Game:GetService("ReplicatedFirst"):GetChildren() > 0)
+	if not hasReplicatedFirstElements then
+		fadeBackground()
+	else
+		wait(20) -- make sure after 20 seconds we remove the default gui, even if the user doesn't
+		handleRemoveDefaultLoadingGui()
+	end
+end
+
+function handleRemoveDefaultLoadingGui()
+	fadeBackground()
+	destroyLoadingElements()
+end
+
+function handleGameLoaded()
+	if not hasReplicatedFirstElements then
+		destroyLoadingElements()
+	end
+end
+
+Game:GetService("ReplicatedFirst").FinishedReplicating:connect(handleFinishedReplicating)
+if Game:GetService("ReplicatedFirst"):IsFinishedReplicating() then
+	handleFinishedReplicating()
+end
+
+Game:GetService("ReplicatedFirst").RemoveDefaultLoadingGuiSignal:connect(handleRemoveDefaultLoadingGui)
+if Game:GetService("ReplicatedFirst"):IsDefaultLoadingGuiRemoved() then
+	handleRemoveDefaultLoadingGui()
+	return
+end
+
+Game.Loaded:connect(handleGameLoaded)
+if Game:IsLoaded() then
+	handleGameLoaded()
+end