How to fix infinity loading in the Old Miner Haven game ? [closed]

Asked by

TheBossOfNew -9

5 years ago

Edited 5 years ago

Soo in ber tweet he said he will no longer working in Miner Haven soo i have the old one but idk how to fix the infinity loading the script is long so i will show the other script in the answer part

local Ids = {}
local BaseUrl = game.ContentProvider.BaseUrl



local Loading
local Gui3D

if game:GetService("UserInputService").VREnabled then
    game.ReplicatedStorage:WaitForChild("Bers3DGui")
    Gui3D = require(game.ReplicatedStorage.Bers3DGui)
    Loading = Gui3D:GuiTo3D(script.LoadGui,5)
    Loading.Black.Transparency = 1
else
    Loading = script.LoadGui
end

spawn(function()
    game.ReplicatedStorage:WaitForChild("NightTime")
    local function Ambience()
        if game.ReplicatedStorage.NightTime.Value == true then
            game.Lighting.Ambient = Color3.new(0,0,0)
            game.Lighting.Brightness = 0
            game.Lighting.ColorShift_Bottom = Color3.new(100/255,100/255,0)
            game.Lighting.ColorShift_Top = Color3.new(45/255,84/255,86/255)
            game.Lighting.OutdoorAmbient = Color3.new(70/255,60/255,60/255)
            game.Lighting.FogStart = 0
            game.Lighting.FogEnd = 400
            if game.ReplicatedStorage:FindFirstChild("Mars") then
                game.Lighting.FogColor = Color3.new(180/255, 91/255, 50/255)
            else
                game.Lighting.FogColor = Color3.new(32/255,41/255,72/255)
            end         

        else
            game.Lighting.Ambient = Color3.new(100/255,100/255,100/255)
            game.Lighting.Brightness = 1
            game.Lighting.ColorShift_Bottom = Color3.new(1,1,1)
            game.Lighting.ColorShift_Top = Color3.new(45/255,84/255,86/255)
            game.Lighting.OutdoorAmbient = Color3.new(160/255,160/255,160/255)
            game.Lighting.FogStart = 0
            game.Lighting.FogEnd = 2000
            if game.ReplicatedStorage:FindFirstChild("Mars") then
                game.Lighting.FogColor = Color3.new(0, 0, 0)
            else
                game.Lighting.FogColor = Color3.new(64/255,255/255,217/255)
            end                 

        end

    end
Ambience()  
end)

game.Players.LocalPlayer:WaitForChild("PlayerGui")

math.random(os.time())

Loading.Parent = game.Players.LocalPlayer.PlayerGui
Loading:WaitForChild("Center")
Loading.Center:WaitForChild("Load")
Loading.Center.Load:WaitForChild("Bar")
Loading.Center.Load.Bar.Visible = true


Loading.Center.Load.Twitter.Visible = true



game:GetService("GuiService").GuiNavigationEnabled = false
game:GetService("GuiService").AutoSelectGuiEnabled = true

Loading:WaitForChild("Black")
Loading.Black.Visible = true

Loading.Animation.Animate.Disabled = false

local CamLib = require(game.ReplicatedStorage.Kaz)

local Blur

game.ReplicatedFirst:RemoveDefaultLoadingScreen()
game.StarterGui:SetCoreGuiEnabled("All",false)

    repeat wait(0.1) until workspace.CurrentCamera ~= nil

    workspace.CurrentCamera.CameraType = Enum.CameraType.Scriptable

    workspace.CurrentCamera.CoordinateFrame = Loading.CoordFrame.Value + Vector3.new(0,1000,0)
    workspace.CurrentCamera.FieldOfView = 5

    CamLib.Tween(workspace.CurrentCamera.CFrame, Loading.CoordFrame.Value, Loading.CoordFrame.Value + (Loading.CoordFrame.Value.lookVector * 1000), 7, nil, false, 30)
--  workspace.CurrentCamera:Interpolate(Loading.CoordFrame.Value, Loading.CoordFrame.Value + (Loading.CoordFrame.Value.lookVector * 1000),5)
    --[[
    if game.VIPServerId == "" then
        workspace.CurrentCamera.CoordinateFrame = Loading.CoordFrame.Value
    else
        workspace.CurrentCamera.CoordinateFrame = Loading.CoordFrameIs.Value
    end
    ]]

    if true then
        game.ReplicatedStorage:WaitForChild("Blur")
        Blur = game.ReplicatedStorage.Blur:Clone()
        Blur.Parent = workspace.CurrentCamera
    end

local EarlyTarget

game.ReplicatedStorage:WaitForChild("Items")

for i,Item in pairs(game.ReplicatedStorage.Items:GetChildren()) do
    table.insert(Ids,"http://roblox.com/asset?Id="..Item.ThumbnailId.Value)
end

function scan(Object)
    if Object:IsA("ImageLabel") or Object:IsA("ImageButton") then
        table.insert(Ids,Object.Image)
    elseif Object:IsA("Sound") then
        table.insert(Ids,Object.SoundId)
    end
    for i,v in pairs(Object:GetChildren()) do
        scan(v)
    end
end
--Loading.Black.Visible = false

game.ReplicatedStorage:WaitForChild("GUI")

local GUI
local USI = game:GetService("UserInputService")
local IsMobile = USI.TouchEnabled and not(USI.MouseEnabled) and not(USI.KeyboardEnabled)
if game:GetService("UserInputService").VREnabled then
    GUI = Gui3D:GuiTo3D(game.ReplicatedStorage.GUI, 10)
elseif game:GetService("GuiService"):IsTenFootInterface() or game:GetService("UserInputService").GamepadEnabled or IsMobile then
    GUI = game.ReplicatedStorage.OldGui
else
    GUI = game.ReplicatedStorage.GUI
end

scan(GUI)
scan(Loading)





--[[
spawn(function()
    repeat wait() until game.Players.LocalPlayer.Character
    workspace.CurrentCamera.CameraType = Enum.CameraType.Scriptable
    if Loading ~= nil and Loading:FindFirstChild("CoordFrame") ~= nil then
        workspace.CurrentCamera.CoordinateFrame = Loading.CoordFrame.Value

        if game.VIPServerId == "" then
            workspace.CurrentCamera.CoordinateFrame = Loading.CoordFrame.Value
        else
            workspace.CurrentCamera.CoordinateFrame = Loading.CoordFrameIs.Value
        end

    end     

end)
]]
    if game:GetService("UserInputService").TouchEnabled then
        game.Players.LocalPlayer.PlayerGui.TouchGui.TouchControlFrame.Visible = false
    end

wait(1)


local Queue = #Ids


local DoneLoading = false

spawn(function()
    game:GetService("ContentProvider"):PreloadAsync(Ids)
    DoneLoading = true
end)
spawn(function() -- Don't let loading assets take longer than 15 seconds
    wait(15)
    DoneLoading = true
end)

--[[
for Num,Id in pairs(Ids) do
    game.ContentProvider:Preload(Id)
end
]]


spawn(function()

    wait(2)

    for i=1,30 do
        Loading.Black.Transparency = Loading.Black.Transparency + (1/30)
        Loading.Black.TextStrokeTransparency = Loading.Black.TextStrokeTransparency + (1/20)
        wait(0.08)
    end
    Loading.Black.Visible = false

end)

local StartTime = tick()



repeat 
    game:GetService("RunService").Heartbeat:wait()
    local Progress = (Queue-game.ContentProvider.RequestQueueSize)/Queue
    Loading.Center.Load.Bar.Progress.Size = UDim2.new(Progress,0,0.9,0)
until DoneLoading


Loading.Center.Load.Bar.Progress.Size = UDim2.new(1,0,0.9,0)

wait(1)
Loading.Center.Load.Visible = false
local EndPosition 
if workspace.CurrentCamera.ViewportSize.Y < 650 then
    Loading.Logo.Size = UDim2.new(0,495,0,450)
    EndPosition = UDim2.new(0.5, -235, -0.2, 0)
    Loading.Logo.Position = UDim2.new(0.5, -235, 0.5, -400)
    Loading.Play.Position = UDim2.new(0.5,-300,0.3,0)
    Loading.Solo.Position = UDim2.new(0.5,0,0.3,0)
elseif workspace.CurrentCamera.ViewportSize.Y < 950 then
    EndPosition = UDim2.new(0.5, -470, 0.2, -200)
    Loading.Logo.Position = UDim2.new(0.5, -470, 0.5, -400)
else
    EndPosition = UDim2.new(0.5, -470, 0.3, -300)
    Loading.Logo.Position = UDim2.new(0.5, -470, 0.5, -400)
end


Loading.Logo:TweenPosition (
    EndPosition,
    Enum.EasingDirection.Out,
    Enum.EasingStyle.Sine,
    1,
    true)
spawn(function()
    for i=1,25 do
        Loading.Logo.ImageTransparency = 1-i/25
        wait()
    end
end)

wait(0.4)
Loading.FireworkLaunch:Play()
wait(0.4)

Loading.FireworkLeft.Position = UDim2.new(0.5, -470, 0.5, -270)

Loading.FireworkLeft:TweenPosition (
    UDim2.new(0.5, -550, 0.3, -260),
    Enum.EasingDirection.Out,
    Enum.EasingStyle.Sine,
    0.6,
    true)
spawn(function()
    for i=1,50 do
        Loading.FireworkLeft.ImageTransparency = 1-i/100
        wait(0.05)
    end
end)

wait(0.1)

Loading.FireworkRight.Position = UDim2.new(0.5, -470, 0.5, -270)

Loading.FireworkRight:TweenPosition (
    UDim2.new(0.5, -400, 0.3, -260),
    Enum.EasingDirection.Out,
    Enum.EasingStyle.Sine,
    0.6,
    true)
spawn(function()
    for i=1,50 do
        Loading.FireworkRight.ImageTransparency = 1-i/100
        wait(0.05)
    end
end)

wait(0.3)
Loading.FireworkExplode:Play()

wait(1.5)




--[[
spawn(function()
    for i=1,50 do
        Loading.Logo.Position = UDim2.new(0.5, -470, 0.5, (-250)-i)
        Loading.Logo.ImageTransparency = 1 - (i/50)
        wait(0.05)
    end
end)
wait(0.5)
spawn(function()
    for i=1,25 do
        Loading.FireworkLeft.Position = UDim2.new(0.5, -470-i, 0.5, (-300)-i)
        Loading.FireworkLeft.ImageTransparency = 1 - (i/35)
        wait()
    end
end)
wait(0.3)
spawn(function()
    for i=1,25 do
        Loading.FireworkRight.Position = UDim2.new(0.5, -470+i, 0.5, (-300)-i)
        Loading.FireworkRight.ImageTransparency = 1 - (i/35)
        wait()
    end
end)
--]]

Loading.Play.Visible = true

print("VIP ID: "..game.VIPServerId)
if not workspace:FindFirstChild("Private") then
    Loading.Solo.Visible = true
else
    Loading.Solo.Visible = false
    Loading.Play.Position = UDim2.new(0.5,-150,0.74,0)
end

We only help people with work that is their own. User#25115 0 — 5y

Closed as Not Constructive by User#25115 and Gey4Jesus69

This question has been closed because it is not constructive to others or the asker. Most commonly, questions that are requests with no attempt from the asker to solve their problem will fall into this category.

Why was this question closed?

1 answer

-1

Answered by

TheBossOfNew -9

5 years ago

local Tycoon

function getTycoon(player)
    for i,v in pairs(workspace.Tycoons:GetChildren()) do
        if game.Players:FindFirstChild(v.Owner.Value) == player then
            Tycoon = v
            return v
        end
    end
    return nil
end

local connection

local Requested = false

function CloseGui() 
    if Loading then 
        for i,Child in pairs(Loading:GetChildren()) do
            if Child.Name ~= "Blackout" then
                Child:Destroy()
            end
        end

--      repeat wait() until game.Players.LocalPlayer.Character ~= nil


        workspace.CurrentCamera.CameraType = Enum.CameraType.Scriptable
        CamLib.Tween(EarlyTarget, EarlyTarget, Tycoon.Base.CFrame + Vector3.new(0,10,0), 3, nil, true, 10, false, true)


        if game:GetService("UserInputService").GamepadEnabled then
        --  game.StarterGui:SetCoreGuiEnabled(Enum.CoreGuiType.Backpack,false)
        end

        Loading.Blackout.BackgroundTransparency = 1
        Loading.Blackout.Visible = true

        wait(2)     

        if not game:GetService("UserInputService").GamepadEnabled then
            spawn(function()
                for i=1,20 do
                    if Loading:FindFirstChild("Blackout") then
                        Loading.Blackout.BackgroundTransparency = Loading.Blackout.BackgroundTransparency - 1/20
                        wait()
                    end
                end
            end)
        end

        wait(2)     

        workspace.CurrentCamera.CameraSubject = game.Players.LocalPlayer.Character.Humanoid
        workspace.CurrentCamera.CameraType = Enum.CameraType.Custom     

        --[[

        local GUI = game.ReplicatedStorage.GUI:Clone()
        GUI.Inventory.Blackout.BackgroundTransparency = 0
        if game:GetService("UserInputService").VREnabled then
            GUI = Gui3D:GuiTo3D(GUI, 10)
            GUI.Inventory.Blackout.BackgroundTransparency = 1
        end



        ]]

        local function VerifyGui()
            local GUI
            local USI = game:GetService("UserInputService")
            local IsMobile = USI.TouchEnabled and not(USI.MouseEnabled) and not(USI.KeyboardEnabled)
            if game:GetService("UserInputService").VREnabled then
                GUI = Gui3D:GuiTo3D(game.ReplicatedStorage.GUI:Clone(), 10)
            elseif game:GetService("GuiService"):IsTenFootInterface() or game:GetService("UserInputService").GamepadEnabled or IsMobile then
                GUI = game.ReplicatedStorage.OldGui:Clone()
                GUI.Name = "GUI"
            else
                GUI = game.ReplicatedStorage.GUI:Clone()
            end
            GUI.Enabled = true

            GUI.Inventory.Blackout.Visible = true
            GUI.Inventory.Visible = true

            workspace.CurrentCamera.FieldOfView = 70
            workspace.CurrentCamera.CameraSubject = game.Players.LocalPlayer.Character.Humanoid
            workspace.CurrentCamera.CameraType = "Custom"           

            GUI.Parent = game.Players.LocalPlayer.PlayerGui
            print(GUI:GetFullName())
        end

        VerifyGui()

        --[[
        spawn(function()
            wait(1)
            if Player.PlayerGui:FindFirstChild("GUI") == nil then
                VerifyGui()
            end
        end)
        ]]


        Loading:Destroy()

        wait(2)

        game.StarterGui:SetCoreGuiEnabled("All",true)   
        if game:GetService("UserInputService").TouchEnabled and (workspace.CurrentCamera.ViewportSize.X < 1000 or workspace.CurrentCamera.ViewportSize.Y < 600) then
            game.StarterGui:SetCoreGuiEnabled("Backpack",false)
        end

        script:Destroy()
    end
end



local Completed = false

local function PlaySolo()
    if not Requested and Loading.Solo.ImageColor3 ~= Color3.new(1,0.4,0.4) then
        Requested = true
        Loading.Play.ImageColor3 = Color3.new(1,1,1)
        Loading.Play.Selection.Visible = false
        Loading.Solo.Selection.Visible = false
        Loading.Solo.ImageColor3 = Color3.new(0.6,0.8,1)
        Loading.LoadingText.TextColor3 = Color3.new(0.6,0.8,1)
        Loading.LoadingText.Visible = true  
        if game.Players.LocalPlayer:FindFirstChild("Mars") then
            Loading.LoadingText.Text = "Teleporting to Mars"
            Loading.LoadingText.TextColor3 = Color3.new(1,0.6,0.2)
        else
            Loading.LoadingText.Text = "Teleporting to private island"
        end 


        CamLib.Tween(Loading.CoordFrame.Value, Loading.CoordFrame.Value + Vector3.new(0,1000,0), Loading.CoordFrame.Value + (Loading.CoordFrame.Value.lookVector * 1000), 4, nil, false, 1)

        wait(4) 

        local Success = game.ReplicatedStorage.PlaySolo:InvokeServer()
        if not Success then
            Loading.LoadingText.TextColor3 = Color3.new(1,0.4,0.4)
            Loading.LoadingText.Text = "Teleporting failed. Try joining server."
            Loading.Solo.ImageColor3 = Color3.new(1,0.4,0.4)
            Requested = false
            if game:GetService("UserInputService").GamepadEnabled then
                Loading.SelectedButton.Value = Loading.Play
            end
        end
    end
end

local function RequestLoad() -- new saving system
    if connection then
        connection:disconnect()
    end
    if not Requested then
        Requested = true
        Loading.Play.ImageColor3 = Color3.new(0.6,0.8,1)
        Loading.Play.Selection.Visible = false
        Loading.Solo.Selection.Visible = false
        Loading.Solo.ImageColor3 = Color3.new(1,1,1)
        Loading.LoadingText.TextColor3 = Color3.new(0.6,0.8,1)
        Loading.LoadingText.Visible = true
        local Down = game.ReplicatedStorage.LookingDown.Value
        spawn(function()
            repeat wait(0.1) until getTycoon(game.Players.LocalPlayer) ~= nil
                workspace.CurrentCamera.CameraType = "Scriptable"

                EarlyTarget = workspace.CurrentCamera.CFrame:lerp(Tycoon.Base.CFrame + Vector3.new(0,100,0),0.9)

                CamLib.Tween(workspace.CurrentCamera.CFrame, workspace.CurrentCamera.CFrame, Tycoon.Base.CFrame + Vector3.new(0,10,0), 0.5, nil, true, 30, true)

                spawn(function()
                    wait(0.5)           

                    CamLib.Tween(workspace.CurrentCamera.CFrame, EarlyTarget, Tycoon.Base.CFrame + Vector3.new(0,10,0), 2, nil, true, 80)
                end)
        end)


        Loading.LoadingText.Text = "Loading data..."




        local Result, Success, Errormsg, DataCount = game.ReplicatedStorage.LoadPlayerData:InvokeServer()
        if DataCount then
            print("Your data is "..DataCount.." characters long.")
        end             

        if not Result then
            if Success then
                Loading.LoadingText.TextColor3 = Color3.new(1,0.5,0.5)
                CamLib.Tween(workspace.CurrentCamera.CFrame, Loading.CoordFrame.Value, Loading.CoordFrame.Value + (Loading.CoordFrame.Value.lookVector * 1000), 3, nil, true, 30)

                for i=1,60 do
                    Loading.LoadingText.Text = "Failed to connect to ROBLOX! Retrying in: ("..(61-i)..")"
                    wait(1)
                end
                Requested = false
                RequestLoad()
            else
                Loading.LoadingText.Text = "Error loading data! Try again later!"
                Loading.LoadingText.TextColor3 = Color3.new(1,0.7,0.6)
                print("ERROR LOADING IN PLAYER DATA:")
                warn(Errormsg)
                error("Please send a screenshot of this to @berezaagames on twitter!")
            end
        else
            wait()
            math.randomseed(tick()) 
            wait()  
            math.random(4,6)
            math.random(1,2)

            local Name = game.Players.LocalPlayer.Name
            local Strings = {
                "Prepare to INNOVATE!","The sky is the limit!","Build beyond your imagination!","Welcome home!", "Welcome to Miner's Haven!","Have a blast!", "Have fun!", "Enjoy!", "Stay innovative!"
            }
            math.random(1,#Strings)
            local WelcomeMessage = Strings[ math.random(1,#Strings) ]


            Loading.LoadingText.Text = WelcomeMessage
            Loading.LoadingText.TextColor3 = Color3.new(0.5,1,0.6)              

            spawn(function()
                wait(1)
                for i=1,16 do
                    wait(0.1)
                    if Blur then
                        Blur.Size = Blur.Size - 1
                    end
                end
            end)
            if workspace.CurrentCamera:FindFirstChild("Colors") then
                workspace.CurrentCamera.Colors:Destroy()
            end         


            repeat wait() until game.Players.LocalPlayer:FindFirstChild("BaseDataLoaded")
            Completed = true

        end
    end
end

local MoveDB = true
local function onInputChanged(input,gameProcessed)
    if input.KeyCode == Enum.KeyCode.Thumbstick1 and MoveDB and not Requested then
        if math.abs(input.Position.X) > 0.5 then
            MoveDB = false
            if Loading.SelectedButton.Value == Loading.Play and Loading.Solo.Visible then
                Loading.SelectedButton.Value = Loading.Solo
            else
                Loading.SelectedButton.Value = Loading.Play
            end
            wait(0.55)
            MoveDB = true
        end
    end 
end

game:GetService("UserInputService").InputChanged:connect(onInputChanged)


Loading.Play.Selection.Visible = false
Loading.Solo.Selection.Visible = false
if game:GetService("UserInputService").GamepadEnabled then
    Loading.Play.Selection.Visible = true
    Loading.Solo.Selection.Visible = false
    Loading.Play.ImageColor3 = Color3.new(7/255, 234/255, 128/255)
    Loading.Solo.ImageColor3 = Color3.new(1,1,1)
    Loading.SelectedButton.Value = Loading.Play

    local eDebounce = true
    connection = game:GetService("UserInputService").InputBegan:connect(function(input)
        if input.UserInputType == Enum.UserInputType.Gamepad1 then
            if Loading.SelectedButton.Value == Loading.Play then
                if not Requested then
                    spawn(RequestLoad)
                end
            else
                if not Requested then
                    spawn(PlaySolo)
                end
            end
        end
    end)
end

Loading.SelectedButton.Changed:connect(function()
    for i,Button in pairs(Loading:GetChildren()) do
        if Button:IsA("ImageButton") then
            Button.ImageColor3 = Color3.new(1,1,1)
            Button.Selection.Visible = false
        end
    end
    local SelectedButton = Loading.SelectedButton.Value
    SelectedButton.ImageColor3 = Color3.new(7/255, 234/255, 128/255)
    SelectedButton.Selection.Visible = true
end)


game.ReplicatedStorage.DataLoadedIn.OnClientEvent:connect(CloseGui)
for i,Button in pairs(Loading:GetChildren()) do
    if Button:IsA("ImageButton") then
        Button.MouseEnter:connect(function()
            if Button.ImageColor3 == Color3.new(1,1,1) and not Requested then
                Button.ImageColor3 = Color3.new(7/255, 234/255, 128/255)
            end
        end)
        Button.MouseLeave:connect(function()
            if Button.ImageColor3 == Color3.new(7/255, 234/255, 128/255) then
                Button.ImageColor3 = Color3.new(1,1,1)
            end
        end)
    end
end

Loading.Play.MouseButton1Click:connect(RequestLoad)
Loading.Solo.MouseButton1Click:connect(PlaySolo)




print("Welcome to the print output, are you not just perfect? Find any errors here? Please screenshot and tweet berezaa at @berezaagames!")
warn("If you are the first to report a large or game-breaking bug, you may win prizes such as special items and Robux! (We'll see!)")