-- =================================
-- DEV -- > R-77
-- =================================

local defaultSpeed    = 1
local accelerateSpeed = 5.0
local isAccelerating  = false
local menuVisible     = true
local scriptEnabled   = true
local activationKey   = Enum.KeyCode.LeftAlt
local waitingForBind  = false

local UserInputService = game:GetService("UserInputService")
local RunService       = game:GetService("RunService")
local Players          = game:GetService("Players")
local LocalPlayer      = Players.LocalPlayer

do
    local parent = (gethui and gethui()) or game:GetService("CoreGui") or LocalPlayer:WaitForChild("PlayerGui")
    local old = parent:FindFirstChild("Gamesense_Core_Remastered")
    if old then old:Destroy() end
end

local ACCENT  = Color3.fromRGB(160, 210, 60)
local ACCENT2 = Color3.fromRGB(225, 75, 75)
local BG_MAIN = Color3.fromRGB(12, 12, 12)
local BG_INNR = Color3.fromRGB(20, 20, 20)
local BG_GRP  = Color3.fromRGB(16, 16, 16)
local BG_CTRL = Color3.fromRGB(28, 28, 28)
local BORDER  = Color3.fromRGB(45, 45, 45)
local BORDER2 = Color3.fromRGB(30, 30, 30)
local TXT     = Color3.fromRGB(220, 220, 220)
local TXT_DIM = Color3.fromRGB(130, 130, 130)

local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "Gamesense_Core_Remastered"
ScreenGui.Parent = (gethui and gethui()) or game:GetService("CoreGui") or LocalPlayer:WaitForChild("PlayerGui")
ScreenGui.ResetOnSpawn = false
ScreenGui.IgnoreGuiInset = true

local MainWindow = Instance.new("Frame")
MainWindow.Name = "MainWindow"
MainWindow.Parent = ScreenGui
MainWindow.BackgroundColor3 = BG_MAIN
MainWindow.BorderSizePixel = 0
MainWindow.Position = UDim2.new(0.35, 0, 0.25, 0)
MainWindow.Size = UDim2.new(0, 280, 0, 170)
MainWindow.Active = true

local MainCorner = Instance.new("UICorner")
MainCorner.CornerRadius = UDim.new(0, 4)
MainCorner.Parent = MainWindow

local GradientBar = Instance.new("Frame")
GradientBar.Name = "GradientBar"
GradientBar.Parent = MainWindow
GradientBar.BorderSizePixel = 0
GradientBar.Size = UDim2.new(1, 0, 0, 3)
GradientBar.ZIndex = 2

local BarCorner = Instance.new("UICorner")
BarCorner.CornerRadius = UDim.new(0, 4)
BarCorner.Parent = GradientBar

local BarGradient = Instance.new("UIGradient")
BarGradient.Color = ColorSequence.new({
    ColorSequenceKeypoint.new(0,   Color3.fromRGB(55, 175, 225)),
    ColorSequenceKeypoint.new(0.5, Color3.fromRGB(150, 85, 215)),
    ColorSequenceKeypoint.new(1,   Color3.fromRGB(160, 210, 60))
})
BarGradient.Parent = GradientBar

local TitleLabel = Instance.new("TextLabel")
TitleLabel.Name = "TitleLabel"
TitleLabel.Parent = MainWindow
TitleLabel.BackgroundTransparency = 1
TitleLabel.Position = UDim2.new(0, 9, 0, 8)
TitleLabel.Size = UDim2.new(1, -18, 0, 14)
TitleLabel.Font = Enum.Font.SourceSansSemibold
TitleLabel.RichText = true
TitleLabel.Text = '<font color="#787878">SpeedHack</font>  <font color="#A0D23C">& R-77</font>'
TitleLabel.TextSize = 12
TitleLabel.TextXAlignment = Enum.TextXAlignment.Left
TitleLabel.ZIndex = 2

local DragZone = Instance.new("Frame")
DragZone.Name = "DragZone"
DragZone.Parent = MainWindow
DragZone.BackgroundTransparency = 1
DragZone.BorderSizePixel = 0
DragZone.Size = UDim2.new(1, 0, 0, 26)
DragZone.ZIndex = 5

local InnerBorder = Instance.new("Frame")
InnerBorder.Name = "InnerBorder"
InnerBorder.Parent = MainWindow
InnerBorder.BackgroundTransparency = 1
InnerBorder.BorderSizePixel = 0
InnerBorder.Position = UDim2.new(0, 6, 0, 30)
InnerBorder.Size = UDim2.new(1, -12, 1, -36)

local InnerStroke = Instance.new("UIStroke")
InnerStroke.Color = BORDER
InnerStroke.Thickness = 1
InnerStroke.Parent = InnerBorder

local GroupBox = Instance.new("Frame")
GroupBox.Name = "GroupBox"
GroupBox.Parent = InnerBorder
GroupBox.BackgroundColor3 = BG_GRP
GroupBox.BorderSizePixel = 0
GroupBox.Position = UDim2.new(0, 10, 0, 15)
GroupBox.Size = UDim2.new(1, -20, 1, -25)

local GroupCorner = Instance.new("UICorner")
GroupCorner.CornerRadius = UDim.new(0, 2)
GroupCorner.Parent = GroupBox

local GroupStroke = Instance.new("UIStroke")
GroupStroke.Color = BORDER2
GroupStroke.Thickness = 1
GroupStroke.Parent = GroupBox

local GroupLabel = Instance.new("TextLabel")
GroupLabel.Name = "GroupLabel"
GroupLabel.Parent = InnerBorder
GroupLabel.BackgroundColor3 = BG_MAIN
GroupLabel.BorderSizePixel = 0
GroupLabel.Position = UDim2.new(0, 18, 0, 8)
GroupLabel.Size = UDim2.new(0, 90, 0, 14)
GroupLabel.Font = Enum.Font.SourceSansBold
GroupLabel.Text = "  Movement"
GroupLabel.TextColor3 = Color3.fromRGB(210, 210, 210)
GroupLabel.TextSize = 12
GroupLabel.ZIndex = 3
GroupLabel.TextXAlignment = Enum.TextXAlignment.Left

local CheckboxBtn = Instance.new("TextButton")
CheckboxBtn.Name = "CheckboxBtn"
CheckboxBtn.Parent = GroupBox
CheckboxBtn.BackgroundColor3 = ACCENT
CheckboxBtn.BorderSizePixel = 0
CheckboxBtn.Position = UDim2.new(0, 12, 0, 14)
CheckboxBtn.Size = UDim2.new(0, 14, 0, 14)
CheckboxBtn.Text = ""
CheckboxBtn.ZIndex = 2
CheckboxBtn.AutoButtonColor = false

local CheckCorner = Instance.new("UICorner")
CheckCorner.CornerRadius = UDim.new(0, 2)
CheckCorner.Parent = CheckboxBtn

local CheckboxText = Instance.new("TextLabel")
CheckboxText.Name = "CheckboxText"
CheckboxText.Parent = GroupBox
CheckboxText.BackgroundTransparency = 1
CheckboxText.Position = UDim2.new(0, 32, 0, 13)
CheckboxText.Size = UDim2.new(0, 140, 0, 16)
CheckboxText.Font = Enum.Font.SourceSans
CheckboxText.Text = "Enable Speedhack"
CheckboxText.TextColor3 = TXT
CheckboxText.TextSize = 14
CheckboxText.TextXAlignment = Enum.TextXAlignment.Left
CheckboxText.ZIndex = 2

CheckboxBtn.MouseButton1Click:Connect(function()
    scriptEnabled = not scriptEnabled
    CheckboxBtn.BackgroundColor3 = scriptEnabled and ACCENT or BG_CTRL
    if not scriptEnabled then
        isAccelerating = false
        SliderFill.BackgroundColor3 = ACCENT
    end
end)

local BindLabel = Instance.new("TextLabel")
BindLabel.Name = "BindLabel"
BindLabel.Parent = GroupBox
BindLabel.BackgroundTransparency = 1
BindLabel.Position = UDim2.new(0, 12, 0, 38)
BindLabel.Size = UDim2.new(0, 90, 0, 16)
BindLabel.Font = Enum.Font.SourceSans
BindLabel.Text = "Activation Key"
BindLabel.TextColor3 = TXT
BindLabel.TextSize = 14
BindLabel.TextXAlignment = Enum.TextXAlignment.Left
BindLabel.ZIndex = 2

local BindButton = Instance.new("TextButton")
BindButton.Name = "BindButton"
BindButton.Parent = GroupBox
BindButton.BackgroundColor3 = BG_CTRL
BindButton.BorderSizePixel = 0
BindButton.Position = UDim2.new(1, -82, 0, 34)
BindButton.Size = UDim2.new(0, 70, 0, 22)
BindButton.Font = Enum.Font.SourceSansBold
BindButton.Text = activationKey.Name
BindButton.TextColor3 = ACCENT
BindButton.TextSize = 13
BindButton.ZIndex = 2
BindButton.AutoButtonColor = false

local BindCorner = Instance.new("UICorner")
BindCorner.CornerRadius = UDim.new(0, 2)
BindCorner.Parent = BindButton

local BindStroke = Instance.new("UIStroke")
BindStroke.Color = BORDER
BindStroke.Thickness = 1
BindStroke.Parent = BindButton

local function setBindBtn(text, color)
    BindButton.Text = text
    BindButton.TextColor3 = color
end

BindButton.MouseButton1Click:Connect(function()
    waitingForBind = true
    setBindBtn("...", TXT_DIM)
end)

local SliderLabel = Instance.new("TextLabel")
SliderLabel.Name = "SliderLabel"
SliderLabel.Parent = GroupBox
SliderLabel.BackgroundTransparency = 1
SliderLabel.Position = UDim2.new(0, 12, 0, 68)
SliderLabel.Size = UDim2.new(0, 100, 0, 16)
SliderLabel.Font = Enum.Font.SourceSans
SliderLabel.Text = "Multiplier"
SliderLabel.TextColor3 = TXT
SliderLabel.TextSize = 14
SliderLabel.TextXAlignment = Enum.TextXAlignment.Left
SliderLabel.ZIndex = 2

local SliderValue = Instance.new("TextLabel")
SliderValue.Name = "SliderValue"
SliderValue.Parent = GroupBox
SliderValue.BackgroundTransparency = 1
SliderValue.Position = UDim2.new(1, -60, 0, 68)
SliderValue.Size = UDim2.new(0, 48, 0, 16)
SliderValue.Font = Enum.Font.SourceSansBold
SliderValue.Text = string.format("%.1fx", accelerateSpeed)
SliderValue.TextColor3 = ACCENT
SliderValue.TextSize = 14
SliderValue.TextXAlignment = Enum.TextXAlignment.Right
SliderValue.ZIndex = 2

local SliderFrame = Instance.new("Frame")
SliderFrame.Name = "SliderFrame"
SliderFrame.Parent = GroupBox
SliderFrame.BackgroundColor3 = BG_CTRL
SliderFrame.BorderSizePixel = 0
SliderFrame.Position = UDim2.new(0, 12, 0, 90)
SliderFrame.Size = UDim2.new(1, -24, 0, 8)
SliderFrame.ZIndex = 2

local SliderCorner = Instance.new("UICorner")
SliderCorner.CornerRadius = UDim.new(1, 0)
SliderCorner.Parent = SliderFrame

local SliderFill = Instance.new("Frame")
SliderFill.Name = "SliderFill"
SliderFill.Parent = SliderFrame
SliderFill.BackgroundColor3 = ACCENT
SliderFill.BorderSizePixel = 0
SliderFill.Size = UDim2.new((accelerateSpeed - 1) / (10 - 1), 0, 1, 0)
SliderFill.ZIndex = 3

local FillCorner = Instance.new("UICorner")
FillCorner.CornerRadius = UDim.new(1, 0)
FillCorner.Parent = SliderFill

local minX, maxX = 1.0, 10.0
local draggingSlider = false

local function updateSlider(input)
    local sx = SliderFrame.AbsolutePosition.X
    local sw = SliderFrame.AbsoluteSize.X
    local pct = math.clamp((input.Position.X - sx) / sw, 0, 1)
    SliderFill.Size = UDim2.new(pct, 0, 1, 0)
    accelerateSpeed = math.round((minX + pct * (maxX - minX)) * 10) / 10
    SliderValue.Text = string.format("%.1fx", accelerateSpeed)
end

SliderFrame.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 then
        draggingSlider = true
        updateSlider(input)
    end
end)

local draggingMenu = false
local dragStart, startPos

DragZone.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 then
        draggingMenu = true
        dragStart = input.Position
        startPos = MainWindow.Position
        input.Changed:Connect(function()
            if input.UserInputState == Enum.UserInputState.End then
                draggingMenu = false
            end
        end)
    end
end)

UserInputService.InputChanged:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseMovement then
        if draggingMenu then
            local d = input.Position - dragStart
            MainWindow.Position = UDim2.new(
                startPos.X.Scale, startPos.X.Offset + d.X,
                startPos.Y.Scale, startPos.Y.Offset + d.Y
            )
        elseif draggingSlider then
            updateSlider(input)
        end
    end
end)

UserInputService.InputEnded:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 then
        draggingSlider = false
    end
end)

RunService.Heartbeat:Connect(function()
    if isAccelerating and scriptEnabled then
        local n = math.floor(accelerateSpeed) - 1
        for _ = 1, n do
            pcall(function()
                local char = LocalPlayer.Character
                local pp = char and char.PrimaryPart
                if pp then
                    pp.AssemblyLinearVelocity = pp.AssemblyLinearVelocity +
                        (pp.CFrame.LookVector * (accelerateSpeed * 0.12))
                end
            end)
        end
    end
end)

UserInputService.InputBegan:Connect(function(input, gameProcessed)
    if gameProcessed then return end

    if waitingForBind then
        if input.KeyCode ~= Enum.KeyCode.Unknown and input.KeyCode ~= Enum.KeyCode.Insert then
            activationKey = input.KeyCode
            setBindBtn(activationKey.Name, ACCENT)
            waitingForBind = false
        end
        return
    end

    if input.KeyCode == Enum.KeyCode.Insert then
        menuVisible = not menuVisible
        MainWindow.Visible = menuVisible
        return
    end

    if input.KeyCode == activationKey and scriptEnabled then
        isAccelerating = true
        SliderFill.BackgroundColor3 = ACCENT2
    end
end)

UserInputService.InputEnded:Connect(function(input)
    if input.KeyCode == activationKey then
        isAccelerating = false
        SliderFill.BackgroundColor3 = ACCENT
    end
end)

-- =================================
-- DEV -- > R-77
-- =================================