Scripting Helpers is winding down operations and is now read-only. More info→
Ad
Log in to vote
0

Why wont this script change the value?

Asked by 4 years ago
Edited 4 years ago
local Container = script.Parent.Parent
local Slider = Container.SliderObject
local invisibility = script.Parent.Invisibility
local invisText = script.Parent.Parent.TextLabel

local Dragging

Slider.MouseButton1Down:connect(function()
    Dragging = true
end)

Slider.MouseButton1Up:connect(function()
    Dragging = false
end)

local function ClampAndTweenPosition(Position)
    local FinalPosition = Position
    if (FinalPosition.X.Offset < 0) then
        FinalPosition = UDim2.new(0, 0, 0.5, -12) --FinalPosition = UDim2.new(0, 0, 0, 0)
    elseif (FinalPosition.X.Offset > Container.AbsoluteSize.X) then
        FinalPosition = UDim2.new(1, -Slider.AbsoluteSize.X, 0.5, -12)
    end
    Slider:TweenPosition(
        FinalPosition,
        Enum.EasingDirection.InOut,
        Enum.EasingStyle.Linear,
        0.1,
        true
    )
end

game:GetService("UserInputService").InputChanged:connect(function(InputObject, GameProcessedEvent)
    if ((not GameProcessedEvent) and Dragging) then
        if (InputObject.UserInputType == Enum.UserInputType.MouseMovement) then
            ClampAndTweenPosition(
                UDim2.new(
                    0,
                    (InputObject.Position.X - Container.AbsolutePosition.X),
                    0.5,
                    -12
                )
            )
            local theposition = InputObject.Position.X - Container.AbsolutePosition.X
            theposition = theposition/115
    invisibility.Value = theposition

        if invisibility.Value < 0 then
                invisibility.Value = 0
        elseif invisibility.Value > 0.95 then
                invisibility.Value = 0.95
            else
        end

    if invisibility.Value < 1 then
    invisText.Text = string.sub(tostring(invisibility.Value),0,4)
    end
        end
    end
end)

Answer this question