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)