Ball

loadstring([[
if getgenv().ThorBallLoaded then
    if game.CoreGui:FindFirstChild("ThorBallGui") then game.CoreGui.ThorBallGui:Destroy() end
    if workspace:FindFirstChild("ThorBall_Thrown") then workspace.ThorBall_Thrown:Destroy() end
end
getgenv().ThorBallLoaded = true
getgenv().SelectedBallType = getgenv().SelectedBallType or "Light"

local Players = game:GetService("Players")
local TweenService = game:GetService("TweenService")
local RunService = game:GetService("RunService")
local Debris = game:GetService("Debris")
local player = Players.LocalPlayer
local thrownBall, isReturning, floatConn, lastSpeed = nil, false, nil, 70

local BallTypes = {
    Light = {Color=Color3.fromRGB(255,255,0), Material=Enum.Material.Neon, Speed=160, Trail=Color3.fromRGB(255,255,150), Name="LIGHT [KIZARU]", SoundThrow="rbxassetid://12222025", SoundHit="rbxassetid://12222030", LightColor=Color3.fromRGB(255,255,100)},
    Thor = {Color=Color3.fromRGB(255,0,0), Material=Enum.Material.Neon, Speed=70, Trail=Color3.fromRGB(255,0,0), Name="THOR", SoundThrow="rbxassetid://12222124", SoundHit="rbxassetid://12222216", LightColor=Color3.fromRGB(255,0,0)},
    Flame = {Color=Color3.fromRGB(255,85,0), Material=Enum.Material.Neon, Speed=70, Trail=Color3.fromRGB(255,100,0), Name="FLAME", SoundThrow="rbxassetid://12222058", SoundHit="rbxassetid://12222116", LightColor=Color3.fromRGB(255,85,0)},
    Lightning = {Color=Color3.fromRGB(0,200,255), Material=Enum.Material.ForceField, Speed=130, Trail=Color3.fromRGB(0,255,255), Name="LIGHTNING", SoundThrow="rbxassetid://12222086", SoundHit="rbxassetid://12222121", LightColor=Color3.fromRGB(0,200,255)},
    Ice = {Color=Color3.fromRGB(100,200,255), Material=Enum.Material.Ice, Speed=60, Trail=Color3.fromRGB(150,220,255), Name="ICE", SoundThrow="rbxassetid://12221976", SoundHit="rbxassetid://12222066", LightColor=Color3.fromRGB(100,200,255)},
    Magma = {Color=Color3.fromRGB(120,20,0), Material=Enum.Material.Slate, Speed=60, Trail=Color3.fromRGB(255,80,0), Name="MAGMA [AKAINU]", SoundThrow="rbxassetid://12222101", SoundHit="rbxassetid://12222106", LightColor=Color3.fromRGB(255,60,0)},
    Galaxy = {Color=Color3.fromRGB(120,0,255), Material=Enum.Material.ForceField, Speed=75, Trail=Color3.fromRGB(180,0,255), Name="GALAXY", SoundThrow="rbxassetid://12222008", SoundHit="rbxassetid://12222045", LightColor=Color3.fromRGB(120,0,255)},
    Blackhole = {Color=Color3.fromRGB(0,0,0), Material=Enum.Material.ForceField, Speed=60, Trail=Color3.fromRGB(80,0,130), Name="BLACKHOLE", SoundThrow="rbxassetid://12222009", SoundHit="rbxassetid://12222111", LightColor=Color3.fromRGB(50,0,100)},
    Dragon = {Color=Color3.fromRGB(255,140,0), Material=Enum.Material.Neon, Speed=90, Trail=Color3.fromRGB(255,200,0), Name="DRAGON BALL", SoundThrow="rbxassetid://12222065", SoundHit="rbxassetid://12222212", LightColor=Color3.fromRGB(255,140,0)},
}

local gui = Instance.new("ScreenGui")
gui.Name = "ThorBallGui"
gui.ResetOnSpawn = false
gui.Parent = (gethui and gethui() or game.CoreGui)

local function makeCircleButton(name, text, pos, color, size)
    local b = Instance.new("TextButton")
    b.Name = name
    b.Size = size or UDim2.new(0,65,0,65)
    b.Position = pos
    b.Text = text
    b.TextScaled = true
    b.Font = Enum.Font.GothamBold
    b.TextColor3 = Color3.new(1,1,1)
    b.BackgroundColor3 = color
    b.Parent = gui
    Instance.new("UICorner", b).CornerRadius = UDim.new(1,0)
    local s = Instance.new("UIStroke", b)
    s.Thickness = 2
    s.Color = Color3.new(1,1,1)
    return b
end

local ballBtn = makeCircleButton("BallBtn", "BALL", UDim2.new(0,15,0,15), Color3.fromRGB(255,50,50))
local returnBtn = makeCircleButton("ReturnBtn", "RETURN", UDim2.new(0,15,0,90), Color3.fromRGB(50,150,255))
-- NEW TOP RIGHT TOGGLE BUTTON (only shows when holding ball)
local changeBtn = makeCircleButton("ChangeBtn", "CHANGE", UDim2.new(1,-80,0,15), Color3.fromRGB(0,0,0), UDim2.new(0,65,0,65))
changeBtn.Visible = false
changeBtn.TextSize = 10

-- SELECTOR UI
local selectorFrame = Instance.new("Frame")
selectorFrame.Size = UDim2.new(0, 240, 0, 340)
selectorFrame.Position = UDim2.new(0.5, -120, 0.5, -170)
selectorFrame.BackgroundColor3 = Color3.fromRGB(15,15,15)
selectorFrame.Visible = false
selectorFrame.Parent = gui
Instance.new("UICorner", selectorFrame).CornerRadius = UDim.new(0,12)
local stroke = Instance.new("UIStroke", selectorFrame)
stroke.Color = Color3.fromRGB(255,255,255)
stroke.Thickness = 2

local title = Instance.new("TextLabel", selectorFrame)
title.Size = UDim2.new(1,0,0,30)
title.Text = "SELECTED: "..BallTypes[getgenv().SelectedBallType].Name
title.TextScaled = true
title.Font = Enum.Font.GothamBold
title.TextColor3 = Color3.new(1,1,1)
title.BackgroundTransparency = 1

local scroll = Instance.new("ScrollingFrame", selectorFrame)
scroll.Size = UDim2.new(1, -10, 1, -40)
scroll.Position = UDim2.new(0,5,0,35)
scroll.BackgroundTransparency = 1
scroll.ScrollBarThickness = 3
scroll.AutomaticCanvasSize = Enum.AutomaticSize.Y
local layout = Instance.new("UIGridLayout", scroll)
layout.CellSize = UDim2.new(0,105,0,45)
layout.CellPadding = UDim2.new(0,10,0,10)

for typeName, data in pairs(BallTypes) do
    local btn = Instance.new("TextButton")
    btn.Text = data.Name
    btn.Font = Enum.Font.GothamBold
    btn.TextScaled = true
    btn.TextSize = 11
    btn.TextColor3 = Color3.new(1,1,1)
    btn.BackgroundColor3 = data.Color
    btn.Parent = scroll
    Instance.new("UICorner", btn).CornerRadius = UDim.new(0,8)
    btn.MouseButton1Click:Connect(function()
        getgenv().SelectedBallType = typeName
        title.Text = "SELECTED: "..data.Name
        lastSpeed = data.Speed
        local char = player.Character
        if char and char:FindFirstChild("ThorBall") and char.ThorBall:FindFirstChild("Handle") then
            char.ThorBall.Handle.Color = data.Color
            char.ThorBall.Handle.Material = data.Material
        end
        if thrownBall then
            thrownBall.Color = data.Color
            thrownBall.Material = data.Material
            local light = thrownBall:FindFirstChildOfClass("PointLight")
            if light then light.Color = data.LightColor end
        end
    end)
end

changeBtn.MouseButton1Click:Connect(function()
    selectorFrame.Visible = not selectorFrame.Visible
end)

local function playSound(id, parent, volume)
    local s = Instance.new("Sound")
    s.SoundId = id
    s.Volume = volume or 2
    s.Parent = parent
    s:Play()
    Debris:AddItem(s, 4)
end

local function addBallVFX(ball, typeName)
    local data = BallTypes[typeName]
    local light = Instance.new("PointLight", ball)
    light.Color = data.LightColor
    light.Range = 15
    light.Brightness = 3
    light.Shadows = true
    if typeName == "Flame" then
        local f = Instance.new("Fire", ball) f.Size=12 f.Heat=10
        local sm = Instance.new("Smoke", ball) sm.Color=Color3.fromRGB(255,100,0) sm.RiseVelocity=2 sm.Size=5
    elseif typeName == "Light" then
        local pe = Instance.new("ParticleEmitter", ball)
        pe.Texture="rbxassetid://1084965043" pe.Color=ColorSequence.new(Color3.fromRGB(255,255,150)) pe.Lifetime=NumberRange.new(0.5) pe.Rate=150 pe.Speed=NumberRange.new(5) pe.Size=NumberSequence.new({NumberSequenceKeypoint.new(0,1), NumberSequenceKeypoint.new(1,0)})
    elseif typeName == "Lightning" then
        local pe = Instance.new("ParticleEmitter", ball)
        pe.Texture="rbxassetid://241650881" pe.Color=ColorSequence.new(Color3.fromRGB(0,255,255)) pe.Lifetime=NumberRange.new(0.3) pe.Rate=200 pe.Speed=NumberRange.new(0)
    elseif typeName == "Magma" then
        Instance.new("Fire", ball).Size=15
        local sm = Instance.new("Smoke", ball) sm.Color=Color3.fromRGB(50,10,0) sm.Size=8
    elseif typeName == "Galaxy" or typeName=="Blackhole" or typeName=="Dragon" then
        local pe = Instance.new("ParticleEmitter", ball)
        pe.Texture="rbxassetid://1095708" pe.Color=ColorSequence.new(data.LightColor) pe.Lifetime=NumberRange.new(1) pe.Rate=100 pe.Speed=NumberRange.new(3)
    end
end

local function applyEffect(pos, model, ballType)
    if not model or not model:FindFirstChild("Humanoid") then return end
    if Players:GetPlayerFromCharacter(model) or model == player.Character then return end
    local data = BallTypes[ballType]
    if ballType == "Light" then
        playSound(data.SoundHit, model.HumanoidRootPart, 3)
        for _,v in pairs(model:GetDescendants()) do if v:IsA("BasePart") then TweenService:Create(v, TweenInfo.new(0.3), {Color=Color3.fromRGB(255,255,150), Material=Enum.Material.Neon}):Play() local hl=Instance.new("Highlight", v) hl.FillColor=Color3.fromRGB(255,255,0) hl.FillTransparency=0.2 end end
        task.wait(0.6)
        for _,v in pairs(model:GetDescendants()) do if v:IsA("BasePart") then TweenService:Create(v, TweenInfo.new(1), {Transparency=1}):Play() end end
        task.wait(1) model:Destroy()
    elseif ballType == "Ice" then
        playSound(data.SoundHit, model.HumanoidRootPart, 3)
        for _,v in pairs(model:GetDescendants()) do if v:IsA("BasePart") then v.Anchored=true v.Color=Color3.fromRGB(100,200,255) v.Material=Enum.Material.Ice end end
        task.wait(1.5) model.Humanoid.Health=0
    elseif ballType == "Blackhole" then
        playSound(data.SoundHit, workspace, 5)
        local hole=Instance.new("Part",workspace) hole.Anchored=true hole.CanCollide=false hole.Shape=Enum.PartType.Ball hole.Size=Vector3.new(1,1,1) hole.CFrame=CFrame.new(pos) hole.Color=Color3.fromRGB(0,0,0) hole.Material=Enum.Material.ForceField
        TweenService:Create(hole, TweenInfo.new(1), {Size=Vector3.new(20,20,20)}):Play()
        for _,v in pairs(workspace:GetPartBoundsInRadius(pos,30)) do local m=v.Parent if m and m:FindFirstChild("Humanoid") and not Players:GetPlayerFromCharacter(m) and m~=player.Character then local hrp=m:FindFirstChild("HumanoidRootPart") if hrp then TweenService:Create(hrp,TweenInfo.new(0.8),{CFrame=CFrame.new(pos)}):Play() task.delay(0.9,function() if m.Parent then m.Humanoid.Health=0 end end) end end end
        Debris:AddItem(hole,2)
    else
        playSound(data.SoundHit, model.HumanoidRootPart, 3)
        local exp=Instance.new("Explosion",workspace) exp.BlastRadius=14 exp.BlastPressure=0 exp.Position=pos exp.DestroyJointRadiusPercent=0
        model.Humanoid.Health=0
    end
end

local function createTool()
    if player.Backpack:FindFirstChild("ThorBall") or (player.Character and player.Character:FindFirstChild("ThorBall")) then return end
    local tool = Instance.new("Tool")
    tool.Name = "ThorBall"
    tool.RequiresHandle = true
    tool.CanBeDropped = false
    local handle = Instance.new("Part")
    handle.Name = "Handle"
    handle.Shape = Enum.PartType.Ball
    handle.Size = Vector3.new(2.8,2.8,2.8)
    handle.Color = BallTypes[getgenv().SelectedBallType].Color
    handle.Material = BallTypes[getgenv().SelectedBallType].Material
    handle.CanCollide = false
    handle.Massless = true
    handle.Parent = tool
    Instance.new("SpecialMesh", handle).MeshType = Enum.MeshType.Sphere
    tool.Parent = player.Backpack

    tool.Equipped:Connect(function()
        changeBtn.Visible = true
    end)
    tool.Unequipped:Connect(function()
        changeBtn.Visible = false
        selectorFrame.Visible = false
    end)
end

local function makeFloat(ball)
    local att = Instance.new("Attachment", ball)
    local force = Instance.new("VectorForce", ball)
    force.Attachment0 = att
    force.Force = Vector3.new(0, ball:GetMass() * workspace.Gravity, 0)
    force.RelativeTo = Enum.ActuatorRelativeTo.World
    force.Parent = ball
    ball.AssemblyAngularVelocity = Vector3.new(0,5,0)

    if floatConn then floatConn:Disconnect() end
    -- NO SLOW DOWN FLOAT, keep Y level
    floatConn = RunService.Heartbeat:Connect(function()
        if not ball or not ball.Parent or isReturning then return end
        -- keep same Y, no drop
        local vel = ball.AssemblyLinearVelocity
        -- only correct Y, keep X,Z speed same
        if math.abs(vel.Y) > 1 then
            ball.AssemblyLinearVelocity = Vector3.new(vel.X, vel.Y * 0.99, vel.Z)
        else
            ball.AssemblyLinearVelocity = Vector3.new(vel.X, 0, vel.Z)
        end
        -- enforce constant speed
        if ball.AssemblyLinearVelocity.Magnitude < lastSpeed - 5 then
            ball.AssemblyLinearVelocity = ball.AssemblyLinearVelocity.Unit * lastSpeed
        end
    end)
end

local function throwBall()
    local char = player.Character
    if not char or not char:FindFirstChild("HumanoidRootPart") then return end
    if thrownBall then thrownBall:Destroy() end
    if floatConn then floatConn:Disconnect() end
    if char:FindFirstChild("ThorBall") then char.ThorBall.Handle.Transparency = 1 end

    local typeData = BallTypes[getgenv().SelectedBallType]
    lastSpeed = typeData.Speed
    local ball = Instance.new("Part")
    ball.Name = "ThorBall_Thrown"
    ball.Shape = Enum.PartType.Ball
    ball.Size = Vector3.new(3.2,3.2,3.2)
    ball.Color = typeData.Color
    ball.Material = typeData.Material
    ball.CanCollide = true
    ball.CustomPhysicalProperties = PhysicalProperties.new(0.1, 1, 0, 1, 1) -- Elasticity 1 = NO SLOW DOWN
    ball.CFrame = char.HumanoidRootPart.CFrame * CFrame.new(0,1.5,-4)
    ball.AssemblyLinearVelocity = char.HumanoidRootPart.CFrame.LookVector * typeData.Speed
    ball.Parent = workspace
    thrownBall = ball

    makeFloat(ball)
    addBallVFX(ball, getgenv().SelectedBallType)
    playSound(typeData.SoundThrow, ball, 2)

    local trail = Instance.new("Trail", ball)
    trail.Attachment0 = Instance.new("Attachment", ball)
    trail.Attachment1 = Instance.new("Attachment", ball)
    trail.Attachment1.Position = Vector3.new(0,0.5,0)
    trail.Color = ColorSequence.new(typeData.Trail)
    trail.Lifetime = 0.7

    local debounce=false
    ball.Touched:Connect(function(hit)
        if isReturning or not hit then return end
        if hit:IsDescendantOf(char) then return end
        local model=hit.Parent
        -- DAMAGE CHECK FIRST
        if model:FindFirstChild("Humanoid") and not Players:GetPlayerFromCharacter(model) then
            if debounce then return end
            debounce=true
            local expl=Instance.new("Explosion",workspace) expl.BlastRadius=8 expl.BlastPressure=0 expl.Position=ball.Position expl.DestroyJointRadiusPercent=0
            applyEffect(ball.Position, model, getgenv().SelectedBallType)
            if floatConn then floatConn:Disconnect() end
            ball:Destroy() thrownBall=nil
            if char:FindFirstChild("ThorBall") then char.ThorBall.Handle.Transparency=0 end
            return
        end

        -- BOUNCE WITH NO SLOW DOWN
        if not debounce then
            local normal = (ball.Position - hit.Position).Unit
            local vel = ball.AssemblyLinearVelocity
            local dot = vel:Dot(normal)
            local reflected = vel - (2 * dot * normal)
            -- KEEP SAME SPEED
            ball.AssemblyLinearVelocity = reflected.Unit * lastSpeed
            playSound("rbxassetid://12222030", ball, 1)
        end
    end)
    Debris:AddItem(ball, 30)
end

local function returnBall()
    if not thrownBall or isReturning then return end
    isReturning=true
    if floatConn then floatConn:Disconnect() end
    playSound("rbxassetid://12222124", thrownBall, 3)
    thrownBall.CanCollide=false
    thrownBall.Anchored=true
    local char=player.Character
    if not char or not char:FindFirstChild("HumanoidRootPart") then isReturning=false return end
    local tween=TweenService:Create(thrownBall, TweenInfo.new(0.35, Enum.EasingStyle.Quad), {CFrame=char.HumanoidRootPart.CFrame*CFrame.new(0,1.5,-4)})
    tween:Play() tween.Completed:Wait()
    if thrownBall then thrownBall:Destroy() thrownBall=nil end
    if char:FindFirstChild("ThorBall") then char.ThorBall.Handle.Transparency=0 end
    isReturning=false
end

ballBtn.MouseButton1Click:Connect(createTool)
returnBtn.MouseButton1Click:Connect(returnBall)
RunService.Heartbeat:Connect(function()
    local char=player.Character
    if not char then return end
    local t=char:FindFirstChild("ThorBall")
    if t and not t:FindFirstChild("ActivatedConn") then
        local c=Instance.new("BoolValue", t) c.Name="ActivatedConn"
        t.Activated:Connect(function() if not thrownBall then throwBall() end end)
    end
end)
createTool()
]])()