Blackhole 4.31 (No Universal Configs)

-- MAIN BLACKHOLE v4.31 SCRIPT (All-in-One) --
-- Barebones:

local hole = script.Parent

-- BLACKHOLE CLASSING --

-- Choose a Blackhole Class Preset (Set one of them to true!)
local subStellarPreset = true   -- Sub-stellar preset (3x weaker than default). Perfect for satisfying simulations
local stellarPreset = false    -- Stellar preset (Default). Somewhat accurate simulations
local supermassivePreset = false -- Supermassive preset (3x stronger than default). Intense simulations (Requires a beefy computer)

-- Sub-Stellar Preset Settings
local subStellarGravitationalConstant = 333
local subStellarEventHorizonDistance = hole.Size.X / 15
local subStellarSizeIncreaseFactor = 0.003
local subStellarProportionalGravity = true
local subStellarAdjustEventHorizon = false
local subStellarIsAbsorptionEnabled = true
local subStellarKillPlayers = true
local subStellarWeldRemovalZoneSize = hole.Size.X * 2

-- Stellar (Default) Preset Settings
local stellarGravitationalConstant = 1000
local stellarEventHorizonDistance = hole.Size.X / 5
local stellarSizeIncreaseFactor = 0.01
local stellarProportionalGravity = true
local stellarAdjustEventHorizon = false
local stellarIsAbsorptionEnabled = true
local stellarKillPlayers = true
local stellarWeldRemovalZoneSize = hole.Size.X * 4

-- Supermassive Preset Settings
local supermassiveGravitationalConstant = 3000
local supermassiveEventHorizonDistance = hole.Size.X / 2
local supermassiveSizeIncreaseFactor = 0.03
local supermassiveProportionalGravity = true
local supermassiveAdjustEventHorizon = false
local supermassiveIsAbsorptionEnabled = true
local supermassiveKillPlayers = true
local supermassiveWeldRemovalZoneSize = hole.Size.X * 6

local absorbedParts = {} -- Store absorbed parts

-- Determine the class preset based on the chosen presets
local presetValues = {
    subStellarPreset,
    stellarPreset,
    supermassivePreset,
}

local numTruePresets = 0
local chosenPresetIndex = 2 -- Default to Stellar

for i, isPresetTrue in ipairs(presetValues) do
    if isPresetTrue then
        numTruePresets = numTruePresets + 1
        chosenPresetIndex = i
    end
end

if numTruePresets > 1 then
    -- More than one preset is set to true, choose the lowest classing (Sub-Stellar)
    chosenPresetIndex = 1
elseif numTruePresets == 0 then
    -- None are set to true, choose the default (Stellar)
    chosenPresetIndex = 2
end

-- Set the preset values based on the chosen class preset
subStellarPreset = chosenPresetIndex == 1
stellarPreset = chosenPresetIndex == 2
supermassivePreset = chosenPresetIndex == 3

-- Initialize the global variables
local gravitationalConstant
local eventHorizonDistance
local sizeIncreaseFactor
local proportionalGravity
local adjustEventHorizon
local isAbsorptionEnabled
local killPlayers
local weldRemovalZoneSize

-- Functions for setting variables based on preset
local function SetSubStellarPreset()
    gravitationalConstant = subStellarGravitationalConstant
    eventHorizonDistance = subStellarEventHorizonDistance
    sizeIncreaseFactor = subStellarSizeIncreaseFactor
    proportionalGravity = subStellarProportionalGravity
    adjustEventHorizon = subStellarAdjustEventHorizon
    isAbsorptionEnabled = subStellarIsAbsorptionEnabled
    killPlayers = subStellarKillPlayers
    weldRemovalZoneSize = subStellarWeldRemovalZoneSize
end

local function SetStellarPreset()
    gravitationalConstant = stellarGravitationalConstant
    eventHorizonDistance = stellarEventHorizonDistance
    sizeIncreaseFactor = stellarSizeIncreaseFactor
    proportionalGravity = stellarProportionalGravity
    adjustEventHorizon = stellarAdjustEventHorizon
    isAbsorptionEnabled = stellarIsAbsorptionEnabled
    killPlayers = stellarKillPlayers
    weldRemovalZoneSize = stellarWeldRemovalZoneSize
end

local function SetSupermassivePreset()
    gravitationalConstant = supermassiveGravitationalConstant
    eventHorizonDistance = supermassiveEventHorizonDistance
    sizeIncreaseFactor = supermassiveSizeIncreaseFactor
    proportionalGravity = supermassiveProportionalGravity
    adjustEventHorizon = supermassiveAdjustEventHorizon
    isAbsorptionEnabled = supermassiveIsAbsorptionEnabled
    killPlayers = supermassiveKillPlayers
    weldRemovalZoneSize = supermassiveWeldRemovalZoneSize
end

-- Set the variables based on the chosen class preset
if subStellarPreset then
    SetSubStellarPreset()
elseif stellarPreset then
    SetStellarPreset()
elseif supermassivePreset then
    SetSupermassivePreset()
end

function ApplyGravity(object)
    local direction = hole.Position - object.Position
    local distance = direction.Magnitude
    local forceMagnitude

    if proportionalGravity then
        forceMagnitude = (gravitationalConstant * hole.Size.X * object.Size.X) / (distance * distance)
    else
        forceMagnitude = gravitationalConstant
    end

    local force = direction.Unit * forceMagnitude

    object.Velocity = object.Velocity + force
end

local function CheckAndApplyGravity(obj)
    if not obj:IsA("BasePart") or obj:IsA("Model") or obj:IsA("Union") or obj:IsA("Tool") or obj:IsA("MeshPart") or obj:IsA("Mesh") then
        return
    end

    if obj == hole then
        return
    end

    if obj:IsA("Player") and not killPlayers then
        return
    end

    if obj.Anchored then
        return
    end

    local distanceToHole = (hole.Position - obj.Position).Magnitude
    if distanceToHole < eventHorizonDistance then
        return
    end

    ApplyGravity(obj)

    local distanceToWeldRemovalZone = (hole.Position - obj.Position).Magnitude
    if distanceToWeldRemovalZone < weldRemovalZoneSize then
        obj:BreakJoints()
    end
end

game:GetService("RunService").Heartbeat:Connect(function()
    for _, object in pairs(game.Workspace:GetDescendants()) do
        CheckAndApplyGravity(object)
    end
end)

function onTouch(part)
    local humanoid = part.Parent:FindFirstChild("Humanoid")
    if humanoid then
        humanoid.Health = 0
    end

    part.CanCollide = true
end

function onTouched(part)
    if not isAbsorptionEnabled then
        return
    end

    if part.Anchored then
        return
    end

    if absorbedParts[part] then
        return
    end

    absorbedParts[part] = true

    part.BrickColor = BrickColor.new(0)
    part.Material = Enum.Material.Neon
    part.Anchored = false

    local transparencySteps = {0.25, 0.5, 0.75}
    for _, transparency in ipairs(transparencySteps) do
        part.Transparency = transparency
        wait(0.01)
    end

    part:Destroy()

    hole.Size = hole.Size + Vector3.new(sizeIncreaseFactor, sizeIncreaseFactor, sizeIncreaseFactor)

    if adjustEventHorizon then
        eventHorizonDistance = hole.Size.X
    end
end

local connection = hole.Touched:Connect(onTouched)