--[[
	WARNING: Heads up! This script has not been verified by ScriptBlox. Use at your own risk!
]]
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local Lighting = game:GetService("Lighting")

local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local rootPart = character:WaitForChild("HumanoidRootPart")

-- ==== Earth ====
local earth = Instance.new("Part")
earth.Shape = Enum.PartType.Ball
earth.Anchored = true
earth.CanCollide = false
earth.CastShadow = false
earth.Size = Vector3.new(5000, 5000, 5000)
earth.Position = Vector3.new(0, 0, 0)
earth.Material = Enum.Material.SmoothPlastic
earth.Parent = workspace

for _, face in ipairs(Enum.NormalId:GetEnumItems()) do
    local d = Instance.new("Decal")
    d.Texture = "rbxassetid://453515908"
    d.Face = face
    d.Parent = earth
end

-- ==== Moon ====
local moon = Instance.new("Part")
moon.Shape = Enum.PartType.Ball
moon.Anchored = true
moon.CanCollide = false
moon.CastShadow = false
moon.Size = Vector3.new(1200,1200,1200)
moon.Position = Vector3.new(-2000,9000,0)
moon.Material = Enum.Material.Slate
moon.Parent = workspace

for _, face in ipairs(Enum.NormalId:GetEnumItems()) do
    local d = Instance.new("Decal")
    d.Texture = "rbxassetid://8159103611"
    d.Face = face
    d.Parent = moon
end

local moonFloor = Instance.new("Part")
moonFloor.Size = Vector3.new(1200,10,1200)
moonFloor.Anchored = true
moonFloor.Position = moon.Position
moonFloor.CanCollide = false
moonFloor.Material = Enum.Material.Slate
moonFloor.Color = moon.Color
moonFloor.Parent = workspace

-- ==== Mars ====
local mars = Instance.new("Part")
mars.Shape = Enum.PartType.Ball
mars.Anchored = true
mars.CanCollide = false
mars.CastShadow = false
mars.Size = Vector3.new(2000,2000,2000)
mars.Position = earth.Position + Vector3.new(-5000,800,-20000)
mars.Material = Enum.Material.Slate
mars.Color = Color3.fromRGB(255,165,0)
mars.Parent = workspace

for _, face in ipairs(Enum.NormalId:GetEnumItems()) do
    local d = Instance.new("Decal")
    d.Texture = "rbxassetid://147706174"
    d.Face = face
    d.Parent = mars
end

local marsFloor = Instance.new("Part")
marsFloor.Size = Vector3.new(2000,10,2000)
marsFloor.Anchored = true
marsFloor.Position = mars.Position
marsFloor.CanCollide = false
marsFloor.Material = Enum.Material.Slate
marsFloor.Color = mars.Color
marsFloor.Parent = workspace

-- ==== Sun ====
local sun = Instance.new("Part")
sun.Shape = Enum.PartType.Ball
sun.Anchored = true
sun.CanCollide = false
sun.CastShadow = false
sun.Size = Vector3.new(20000000,20000000,20000000)
sun.Position = Vector3.new(0,0,30000)
sun.Material = Enum.Material.Neon
sun.Color = Color3.fromRGB(255,255,0)
sun.Parent = workspace

local sunLight = Instance.new("PointLight")
sunLight.Brightness = 20
sunLight.Range = 2000000
sunLight.Parent = sun

-- ==== Mercury ====
local mercury = Instance.new("Part")
mercury.Shape = Enum.PartType.Ball
mercury.Anchored = true
mercury.CanCollide = false
mercury.CastShadow = false
mercury.Size = Vector3.new(800,800,800)
mercury.Position = sun.Position - Vector3.new(20000,0,0)
mercury.Material = Enum.Material.Slate
mercury.Color = Color3.fromRGB(128,128,128)
mercury.Parent = workspace

for _, face in ipairs(Enum.NormalId:GetEnumItems()) do
    local d = Instance.new("Decal")
    d.Texture = "rbxassetid://9228278194"
    d.Face = face
    d.Parent = mercury
end

local mercuryFloor = Instance.new("Part")
mercuryFloor.Size = Vector3.new(800,10,800)
mercuryFloor.Anchored = true
mercuryFloor.Position = mercury.Position
mercuryFloor.CanCollide = false
mercuryFloor.Material = Enum.Material.Slate
mercuryFloor.Color = mercury.Color
mercuryFloor.Parent = workspace

-- ==== Venus ====
local venus = Instance.new("Part")
venus.Shape = Enum.PartType.Ball
venus.Anchored = true
venus.CanCollide = false
venus.CastShadow = false
venus.Size = Vector3.new(950,950,950)
venus.Position = sun.Position + Vector3.new(35000,0,0)
venus.Material = Enum.Material.Slate
venus.Color = Color3.fromRGB(227,207,87)
venus.Parent = workspace

for _, face in ipairs(Enum.NormalId:GetEnumItems()) do
    local d = Instance.new("Decal")
    d.Texture = "rbxassetid://137774450"
    d.Face = face
    d.Parent = venus
end

local venusFloor = Instance.new("Part")
venusFloor.Size = Vector3.new(950,10,950)
venusFloor.Anchored = true
venusFloor.Position = venus.Position
venusFloor.CanCollide = false
venusFloor.Material = Enum.Material.Slate
venusFloor.Color = Color3.fromRGB(139,69,19)
venusFloor.Parent = workspace

-- ==== Eris ====
local eris = Instance.new("Part")
eris.Shape = Enum.PartType.Ball
eris.Anchored = true
eris.CanCollide = false
eris.CastShadow = false
eris.Size = Vector3.new(500, 500, 500)
eris.Position = Vector3.new(0, 100000, 0)
eris.Material = Enum.Material.Slate
eris.Color = Color3.fromRGB(200, 200, 210)
eris.Parent = workspace

for _, face in ipairs(Enum.NormalId:GetEnumItems()) do
    local d = Instance.new("Decal")
    d.Texture = "rbxassetid://12220403"
    d.Face = face
    d.Parent = eris
end

local erisFloor = Instance.new("Part")
erisFloor.Size = Vector3.new(500, 10, 500)
erisFloor.Anchored = true
erisFloor.Position = eris.Position
erisFloor.CanCollide = false
erisFloor.Material = Enum.Material.Slate
erisFloor.Color = eris.Color
erisFloor.Parent = workspace

-- ==== Ceres ====
local ceres = Instance.new("Part")
ceres.Shape = Enum.PartType.Ball
ceres.Anchored = true
ceres.CanCollide = false
ceres.CastShadow = false
ceres.Size = Vector3.new(600,600,600)
ceres.Position = mars.Position + Vector3.new(4000, 300, -5000)
ceres.Material = Enum.Material.Slate
ceres.Color = Color3.fromRGB(169,169,169)
ceres.Parent = workspace

for _, face in ipairs(Enum.NormalId:GetEnumItems()) do
    local d = Instance.new("Decal")
    d.Texture = ""
    d.Face = face
    d.Parent = ceres
end

local ceresFloor = Instance.new("Part")
ceresFloor.Size = Vector3.new(600, 10, 600)
ceresFloor.Anchored = true
ceresFloor.Position = ceres.Position
ceresFloor.CanCollide = false
ceresFloor.Material = Enum.Material.Slate
ceresFloor.Color = ceres.Color
ceresFloor.Parent = workspace

-- ==== Sedna ====
local sedna = Instance.new("Part")
sedna.Shape = Enum.PartType.Ball
sedna.Anchored = true
sedna.CanCollide = false
sedna.CastShadow = false
sedna.Size = Vector3.new(400, 400, 400)
sedna.Position = eris.Position + Vector3.new(0, 50000, 0)
sedna.Material = Enum.Material.Slate
sedna.Color = Color3.fromRGB(255,50,50)
sedna.Parent = workspace

for _, face in ipairs(Enum.NormalId:GetEnumItems()) do
    local d = Instance.new("Decal")
    d.Texture = ""
    d.Face = face
    d.Parent = sedna
end

local sednaFloor = Instance.new("Part")
sednaFloor.Size = Vector3.new(400, 10, 400)
sednaFloor.Anchored = true
sednaFloor.Position = sedna.Position
sednaFloor.CanCollide = false
sednaFloor.Material = Enum.Material.Slate
sednaFloor.Color = sedna.Color
sednaFloor.Parent = workspace

-- ==== Rotation speeds ====
local earthRot, marsRot, mercuryRot, venusRot, moonRot, erisRot, ceresRot, sednaRot =
    2, 1, 1.5, 1.2, 0.5, 0.4, 0.6, 0.3

-- ==== Map hide ====
local hideDistance = 1100
local mapParts = {}

for _, p in ipairs(workspace:GetDescendants()) do
    if p:IsA("BasePart")
    and not p:IsDescendantOf(character)
    and p ~= earth and p ~= moon and p ~= mars and p ~= sun and p ~= mercury and p ~= venus and p ~= eris and p ~= ceres and p ~= sedna
    and p ~= moonFloor and p ~= marsFloor and p ~= mercuryFloor and p ~= venusFloor and p ~= erisFloor and p ~= ceresFloor and p ~= sednaFloor then
        table.insert(mapParts, p)
    end
end

local oAmb = Lighting.Ambient
local oOut = Lighting.OutdoorAmbient
local oTime = Lighting.ClockTime
local oFogColor = Lighting.FogColor
local oFogEnd = Lighting.FogEnd

local function inside(part)
    return (rootPart.Position - part.Position).Magnitude <= part.Size.X/2
end

-- ==== Atmosphere holders ====
local marsSky, venusSky, venusFire

-- ==== Main loop ====
RunService.RenderStepped:Connect(function(dt)
    -- Rotate planets
    earth.CFrame = earth.CFrame * CFrame.Angles(0, math.rad(earthRot*dt),0)
    mars.CFrame = mars.CFrame * CFrame.Angles(0, math.rad(marsRot*dt),0)
    mercury.CFrame = mercury.CFrame * CFrame.Angles(0, math.rad(mercuryRot*dt),0)
    venus.CFrame = venus.CFrame * CFrame.Angles(0, math.rad(venusRot*dt),0)
    moon.CFrame = moon.CFrame * CFrame.Angles(0, math.rad(moonRot*dt),0)
    eris.CFrame = eris.CFrame * CFrame.Angles(0, math.rad(erisRot*dt),0)
    ceres.CFrame = ceres.CFrame * CFrame.Angles(0, math.rad(ceresRot*dt),0)
    sedna.CFrame = sedna.CFrame * CFrame.Angles(0, math.rad(sednaRot*dt),0)

    local distEarth = (rootPart.Position - earth.Position).Magnitude
    local inMoon = inside(moon)
    local inMars = inside(mars)
    local inMercury = inside(mercury)
    local inVenus = inside(venus)
    local inEris = inside(eris)
    local inCeres = inside(ceres)
    local inSedna = inside(sedna)

    if distEarth >= hideDistance then
        -- Hide world parts
        for _, p in ipairs(mapParts) do
            p.Transparency = 1
            p.CanCollide = false
        end

        -- Planet floors
        moonFloor.Transparency = inMoon and 0 or 1
        moonFloor.CanCollide = inMoon
        moonFloor.Color = moon.Color

        marsFloor.Transparency = inMars and 0 or 1
        marsFloor.CanCollide = inMars
        marsFloor.Color = mars.Color

        mercuryFloor.Transparency = inMercury and 0 or 1
        mercuryFloor.CanCollide = inMercury
        mercuryFloor.Color = mercury.Color

        venusFloor.Transparency = inVenus and 0 or 1
        venusFloor.CanCollide = inVenus
        venusFloor.Color = Color3.fromRGB(139,69,19)

        erisFloor.Transparency = inEris and 0 or 1
        erisFloor.CanCollide = inEris
        erisFloor.Color = eris.Color

        ceresFloor.Transparency = inCeres and 0 or 1
        ceresFloor.CanCollide = inCeres
        ceresFloor.Color = ceres.Color

        sednaFloor.Transparency = inSedna and 0 or 1
        sednaFloor.CanCollide = inSedna
        sednaFloor.Color = sedna.Color

        -- Gravity
        workspace.Gravity =
            inMoon and 196.2*(1.62/9.81)
            or inMars and 196.2*0.378
            or inMercury and 196.2*0.38
            or inVenus and 196.2*0.904
            or inEris and 196.2*0.08
            or inCeres and 196.2*0.27
            or inSedna and 196.2*0.2
            or 0

        -- Lighting
        Lighting.ClockTime = 0
        Lighting.Ambient = Color3.fromRGB(30,30,40)
        Lighting.OutdoorAmbient = Color3.fromRGB(20,20,30)

        -- ==== Mars atmosphere toggle ====
        if inMars then
            if not marsSky then
                for _, v in pairs(Lighting:GetChildren()) do
                    if v:IsA("Sky") then v:Destroy() end
                end
                marsSky = Instance.new("Sky")
                marsSky.Name = "SunsetSky"
                marsSky.Parent = Lighting
                Lighting.OutdoorAmbient = Color3.fromRGB(255,150,100)
                Lighting.Ambient = Color3.fromRGB(255,100,50)
                Lighting.FogColor = Color3.fromRGB(255,120,80)
                Lighting.FogEnd = 1000
            end
        else
            if marsSky then
                marsSky:Destroy()
                marsSky = nil
                Lighting.Ambient = oAmb
                Lighting.OutdoorAmbient = oOut
                Lighting.FogColor = oFogColor
                Lighting.FogEnd = oFogEnd
            end
        end

        -- ==== Venus atmosphere toggle ====
        if inVenus then
            if not venusFire then
                venusFire = Instance.new("Fire")
                venusFire.Size = 5
                venusFire.Heat = 10
                venusFire.Parent = rootPart
            end

            if not venusSky then
                for _, v in pairs(Lighting:GetChildren()) do
                    if v:IsA("Sky") then v:Destroy() end
                end
                venusSky = Instance.new("Sky")
                venusSky.Name = "YellowSunsetSky"
                venusSky.SkyboxBk = ""
                venusSky.SkyboxDn = ""
                venusSky.SkyboxFt = ""
                venusSky.SkyboxLf = ""
                venusSky.SkyboxRt = ""
                venusSky.SkyboxUp = ""
                Lighting.OutdoorAmbient = Color3.fromRGB(255, 220, 100)
                Lighting.Ambient = Color3.fromRGB(255, 200, 50)
                Lighting.FogColor = Color3.fromRGB(255, 210, 120)
                Lighting.FogStart = 0
                Lighting.FogEnd = 400
                venusSky.Parent = Lighting
            end
        else
            if venusFire then
                venusFire:Destroy()
                venusFire = nil
            end
            if venusSky then
                venusSky:Destroy()
                venusSky = nil
                Lighting.Ambient = oAmb
                Lighting.OutdoorAmbient = oOut
                Lighting.FogColor = oFogColor
                Lighting.FogEnd = oFogEnd
            end
        end

    else
        -- Show world parts
        for _, p in ipairs(mapParts) do
            p.Transparency = 0
            p.CanCollide = true
        end

        moonFloor.Transparency = 1
        marsFloor.Transparency = 1
        mercuryFloor.Transparency = 1
        venusFloor.Transparency = 1
        erisFloor.Transparency = 1
        ceresFloor.Transparency = 1
        sednaFloor.Transparency = 1

        workspace.Gravity = 196.2

        -- Reset lighting
        Lighting.ClockTime = oTime
        Lighting.Ambient = oAmb
        Lighting.OutdoorAmbient = oOut

        if marsSky then
            marsSky:Destroy()
            marsSky = nil
            Lighting.FogColor = oFogColor
            Lighting.FogEnd = oFogEnd
        end

        if venusFire then
            venusFire:Destroy()
            venusFire = nil
        end
        if venusSky then
            venusSky:Destroy()
            venusSky = nil
            Lighting.Ambient = oAmb
            Lighting.OutdoorAmbient = oOut
            Lighting.FogColor = oFogColor
            Lighting.FogEnd = oFogEnd
        end
    end
end)