Combo.lua

--[[
    (Blox Fruit or other game) Auto Combo Free Source Code
    by bedol hub
    [BETA SCRIPT]
]]

local vsKeys =  {
    [Enum.KeyCode.Unknown] = 0x00,
    [Enum.KeyCode.Backspace] = 0x08,
    [Enum.KeyCode.Tab] = 0x09,
    [Enum.KeyCode.Clear] = 0x0C,
    [Enum.KeyCode.Return] = 0x0D,
    [Enum.KeyCode.Pause] = 0x13,
    [Enum.KeyCode.Escape] = 0x1B,
    [Enum.KeyCode.Space] = 0x20,
    [Enum.KeyCode.Quote] = 0xDE,
    [Enum.KeyCode.Comma] = 0xBC,
    [Enum.KeyCode.Minus] = 0xBD,
    [Enum.KeyCode.Period] = 0xBE,
    [Enum.KeyCode.Slash] = 0xBF,
    [Enum.KeyCode.Zero] = 0x30,
    [Enum.KeyCode.One] = 0x31,
    [Enum.KeyCode.Two] = 0x32,
    [Enum.KeyCode.Three] = 0x33,
    [Enum.KeyCode.Four] = 0x34,
    [Enum.KeyCode.Five] = 0x35,
    [Enum.KeyCode.Six] = 0x36,
    [Enum.KeyCode.Seven] = 0x37,
    [Enum.KeyCode.Eight] = 0x38,
    [Enum.KeyCode.Nine] = 0x39,
    [Enum.KeyCode.Semicolon] = 0xBA,
    [Enum.KeyCode.Equals] = 0xBB,
    [Enum.KeyCode.A] = 0x41,
    [Enum.KeyCode.B] = 0x42,
    [Enum.KeyCode.C] = 0x43,
    [Enum.KeyCode.D] = 0x44,
    [Enum.KeyCode.E] = 0x45,
    [Enum.KeyCode.F] = 0x46,
    [Enum.KeyCode.G] = 0x47,
    [Enum.KeyCode.H] = 0x48,
    [Enum.KeyCode.I] = 0x49,
    [Enum.KeyCode.J] = 0x4A,
    [Enum.KeyCode.K] = 0x4B,
    [Enum.KeyCode.L] = 0x4C,
    [Enum.KeyCode.M] = 0x4D,
    [Enum.KeyCode.N] = 0x4E,
    [Enum.KeyCode.O] = 0x4F,
    [Enum.KeyCode.P] = 0x50,
    [Enum.KeyCode.Q] = 0x51,
    [Enum.KeyCode.R] = 0x52,
    [Enum.KeyCode.S] = 0x53,
    [Enum.KeyCode.T] = 0x54,
    [Enum.KeyCode.U] = 0x55,
    [Enum.KeyCode.V] = 0x56,
    [Enum.KeyCode.W] = 0x57,
    [Enum.KeyCode.X] = 0x58,
    [Enum.KeyCode.Y] = 0x59,
    [Enum.KeyCode.Z] = 0x5A,
}

local AutoCombo = Instance.new("ScreenGui")
local main = Instance.new("Frame")
local Title = Instance.new("TextLabel")
local ScrollingFrame = Instance.new("ScrollingFrame")
local UIListLayout = Instance.new("UIListLayout")
local Frame = Instance.new("Frame")
local UIAspectRatioConstraint = Instance.new("UIAspectRatioConstraint")
local Title_2 = Instance.new("TextLabel")
local CreateButton = Instance.new("TextButton")
local UIStroke = Instance.new("UIStroke")

AutoCombo.Name = "AutoCombo"
AutoCombo.Parent = game:FindFirstChild('CoreGui') or game.Players.LocalPlayer:WaitForChild("PlayerGui")
AutoCombo.ResetOnSpawn = false
AutoCombo.IgnoreGuiInset = true
AutoCombo.ZIndexBehavior = Enum.ZIndexBehavior.Global

main.Name = "main"
main.Parent = AutoCombo
main.BackgroundColor3 = Color3.fromRGB(25, 25, 25)
main.BorderColor3 = Color3.fromRGB(0, 0, 0)
main.BorderSizePixel = 0
main.Position = UDim2.new(0.0255310461, 0, 0.324388593, 0)
main.Size = UDim2.new(0.349999994, 0, 0.4, 0)

Title.Name = "Title"
Title.Parent = main
Title.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
Title.BackgroundTransparency = 1.000
Title.BorderColor3 = Color3.fromRGB(0, 0, 0)
Title.BorderSizePixel = 0
Title.Position = UDim2.new(0.0233426709, 0, 0, 0)
Title.Size = UDim2.new(0.899999976, 0, 0.100000001, 0)
Title.Font = Enum.Font.Unknown
Title.RichText = true
Title.Text = "Bedol <font color=\"rgb(255, 0, 4)\">Hub</font> | <font color=\"rgb(255, 217, 0)\">Auto Combo</font>"
Title.TextColor3 = Color3.fromRGB(255, 255, 255)
Title.TextScaled = true
Title.TextSize = 14.000
Title.TextWrapped = true
Title.TextXAlignment = Enum.TextXAlignment.Left

ScrollingFrame.Parent = main
ScrollingFrame.Active = true
ScrollingFrame.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
ScrollingFrame.BackgroundTransparency = 1.000
ScrollingFrame.BorderColor3 = Color3.fromRGB(0, 0, 0)
ScrollingFrame.BorderSizePixel = 0
ScrollingFrame.Position = UDim2.new(0.0175070036, 0, 0.160131991, 0)
ScrollingFrame.Size = UDim2.new(0.959999979, 0, 0.800000012, 0)
ScrollingFrame.BottomImage = ""
ScrollingFrame.ScrollBarThickness = 4
ScrollingFrame.TopImage = ""

UIListLayout.Parent = ScrollingFrame
UIListLayout.HorizontalAlignment = Enum.HorizontalAlignment.Center
UIListLayout.SortOrder = Enum.SortOrder.LayoutOrder
UIListLayout.Padding = UDim.new(0, 5)

Frame.Parent = ScrollingFrame
Frame.BackgroundColor3 = Color3.fromRGB(80, 80, 80)
Frame.BorderColor3 = Color3.fromRGB(0, 0, 0)
Frame.BorderSizePixel = 0
Frame.Size = UDim2.new(0.980000019, 0, 0.5, 0)

UIAspectRatioConstraint.Parent = Frame
UIAspectRatioConstraint.AspectRatio = 8.000
UIAspectRatioConstraint.AspectType = Enum.AspectType.ScaleWithParentSize

Title_2.Name = "Title"
Title_2.Parent = Frame
Title_2.BackgroundColor3 = Color3.fromRGB(12, 12, 12)
Title_2.BackgroundTransparency = 0.550
Title_2.BorderColor3 = Color3.fromRGB(0, 0, 0)
Title_2.BorderSizePixel = 0
Title_2.Position = UDim2.new(0.027912952, 0, 0.248115122, 0)
Title_2.Size = UDim2.new(0.800000012, 0, 0.5, 0)
Title_2.Font = Enum.Font.Unknown
Title_2.Text = "Add Data"
Title_2.TextColor3 = Color3.fromRGB(255, 255, 255)
Title_2.TextScaled = true
Title_2.TextSize = 14.000
Title_2.TextWrapped = true
Title_2.TextXAlignment = Enum.TextXAlignment.Left

CreateButton.Name = "CreateButton"
CreateButton.Parent = Frame
CreateButton.AnchorPoint = Vector2.new(0, 0.5)
CreateButton.BackgroundColor3 = Color3.fromRGB(94, 94, 94)
CreateButton.BorderColor3 = Color3.fromRGB(0, 0, 0)
CreateButton.BorderSizePixel = 0
CreateButton.Position = UDim2.new(0.875, 0, 0.5, 0)
CreateButton.Size = UDim2.new(0.600000024, 0, 0.600000024, 0)
CreateButton.SizeConstraint = Enum.SizeConstraint.RelativeYY
CreateButton.Font = Enum.Font.Unknown
CreateButton.Text = "Add"
CreateButton.TextColor3 = Color3.fromRGB(255, 255, 255)
CreateButton.TextScaled = true
CreateButton.TextSize = 14.000
CreateButton.TextWrapped = true

UIStroke.Thickness = 2.200
UIStroke.Transparency = 0.800
UIStroke.ApplyStrokeMode = Enum.ApplyStrokeMode.Border
UIStroke.Parent = CreateButton

local function SrtToKeyode(Str)
    for _, keyCodeEnum in pairs(Enum.KeyCode:GetEnumItems()) do
        local MYITEM = Str:lower()
        local target = keyCodeEnum.Name:lower()
        if target == MYITEM then
            return keyCodeEnum
        end
    end
    return nil
end

local function presskey(keycode)
    local target = vsKeys[keycode]
    if target then
        print(target)
        pcall(function()
            keypress(target)
            wait()
            keyrelease(target)
        end)
    end
end

local function AddSetting(data : {namefile:string,ttkey : Enum.KeyCode,ofbs : {timed:number,target:Enum.KeyCode,namek:string}})
    data = data or {}
    local KeyDatas = {
        Start = nil,
        Codes = {},
    }
    local MY_KEY = data['ttkey'] or nil
    _G.FGH = _G.FGH or 1

    _G.FGH += 1

    local Main = Instance.new("Frame")
    local UIAspectRatioConstraint = Instance.new("UIAspectRatioConstraint")
    local FileName = Instance.new("TextBox")
    local ScrollingFramea = Instance.new("ScrollingFrame",Main)
    local UIListLayout = Instance.new("UIListLayout")
    local CreateKeyButton = Instance.new("TextButton")
    local UIStroke = Instance.new("UIStroke")

    Main.Name = "Main"
    Main.Parent = ScrollingFrame
    Main.BackgroundColor3 = Color3.fromRGB(80, 80, 80)
    Main.BorderColor3 = Color3.fromRGB(0, 0, 0)
    Main.BorderSizePixel = 0
    Main.Size = UDim2.new(0.930000007, 0, 0.5, 0)

    UIAspectRatioConstraint.Parent = Main
    UIAspectRatioConstraint.AspectRatio = 2.200
    UIAspectRatioConstraint.AspectType = Enum.AspectType.ScaleWithParentSize

    FileName.Name = "FileName"
    FileName.Parent = Main
    FileName.BackgroundColor3 = Color3.fromRGB(22, 22, 22)
    FileName.BackgroundTransparency = 0.200
    FileName.BorderColor3 = Color3.fromRGB(0, 0, 0)
    FileName.BorderSizePixel = 0
    FileName.Position = UDim2.new(0.043086648, 0, 0.0618821234, 0)
    FileName.Size = UDim2.new(0.600000024, 0, 0.218929917, 0)
    FileName.ClearTextOnFocus = false
    FileName.Font = Enum.Font.Sarpanch
    FileName.PlaceholderText = "File_Name"
    FileName.Text = data['namefile'] or "Untitled "..tostring(_G.FGH)
    FileName.TextColor3 = Color3.fromRGB(255, 255, 255)
    FileName.TextScaled = true
    FileName.TextSize = 14.000
    FileName.TextWrapped = true
    FileName.TextXAlignment = Enum.TextXAlignment.Left

    ScrollingFramea.Active = true
    ScrollingFramea.BackgroundColor3 = Color3.fromRGB(33, 33, 33)
    ScrollingFramea.BackgroundTransparency = 0.550
    ScrollingFramea.BorderColor3 = Color3.fromRGB(0, 0, 0)
    ScrollingFramea.BorderSizePixel = 0
    ScrollingFramea.Position = UDim2.new(0.0424864292, 0, 0.366690159, 0)
    ScrollingFramea.Size = UDim2.new(0.931707144, 0, 0.602867782, 0)
    ScrollingFramea.ScrollBarThickness = 2

    UIListLayout.Parent = ScrollingFramea
    UIListLayout.HorizontalAlignment = Enum.HorizontalAlignment.Center
    UIListLayout.SortOrder = Enum.SortOrder.LayoutOrder
    UIListLayout.Padding = UDim.new(0, 5)

    CreateKeyButton.Name = "CreateKeyButton"
    CreateKeyButton.Parent = Main
    CreateKeyButton.AnchorPoint = Vector2.new(0, 0.5)
    CreateKeyButton.BackgroundColor3 = Color3.fromRGB(94, 94, 94)
    CreateKeyButton.BorderColor3 = Color3.fromRGB(0, 0, 0)
    CreateKeyButton.BorderSizePixel = 0
    CreateKeyButton.Position = UDim2.new(0.819440842, 0, 0.183639854, 0)
    CreateKeyButton.Size = UDim2.new(0.25, 0, 0.25, 0)
    CreateKeyButton.SizeConstraint = Enum.SizeConstraint.RelativeYY
    CreateKeyButton.Font = Enum.Font.Unknown
    CreateKeyButton.Text = "Create Key"
    CreateKeyButton.TextColor3 = Color3.fromRGB(255, 255, 255)
    CreateKeyButton.TextScaled = true
    CreateKeyButton.TextSize = 14.000
    CreateKeyButton.TextWrapped = true

    UIStroke.Thickness = 2.200
    UIStroke.Transparency = 0.800
    UIStroke.ApplyStrokeMode = Enum.ApplyStrokeMode.Border
    UIStroke.Parent = CreateKeyButton

    local KeyToRun = Instance.new("TextBox")

    KeyToRun.Name = "Key To Run"
    KeyToRun.Parent = Main
    KeyToRun.BackgroundColor3 = Color3.fromRGB(22, 22, 22)
    KeyToRun.BackgroundTransparency = 0.200
    KeyToRun.BorderColor3 = Color3.fromRGB(0, 0, 0)
    KeyToRun.BorderSizePixel = 0
    KeyToRun.Position = UDim2.new(0.673846066, 0, 0.0618821234, 0)
    KeyToRun.Size = UDim2.new(0.116308942, 0, 0.218929917, 0)
    KeyToRun.ClearTextOnFocus = false
    KeyToRun.Font = Enum.Font.Sarpanch
    KeyToRun.PlaceholderText = "Key To Run"
    KeyToRun.Text = ""
    KeyToRun.TextColor3 = Color3.fromRGB(255, 255, 255)
    KeyToRun.TextScaled = true
    KeyToRun.TextSize = 14.000
    KeyToRun.TextWrapped = true
    KeyToRun.TextXAlignment = Enum.TextXAlignment.Left

    KeyToRun.FocusLost:Connect(function()
        local key = SrtToKeyode(KeyToRun.Text)
        if key then
            KeyToRun.Text = key.Name
            KeyDatas.Start = key
        else
            KeyToRun.Text = ""
        end
    end)

    local function MakeKK(dataconfix : {timed:number,key:Enum.KeyCode})
        dataconfix = dataconfix or  {}

        local Key = Instance.new("Frame")
        local UIAspectRatioConstraint = Instance.new("UIAspectRatioConstraint")
        local KeyCode = Instance.new("TextBox")
        local KeyTime = Instance.new("TextBox")
        local Del = Instance.new("TextButton")
        local UIStroke = Instance.new("UIStroke")

        table.insert(KeyDatas.Codes,{
            KEY = nil,
            TIMED = 0,
            DATE = Key
        })

        local index = #KeyDatas.Codes

        local function UP_INDEX()
            for i,v in ipairs(KeyDatas.Codes) do
                if v.DATE == Key then
                    index = i
                    return i
                end
            end
        end

        Key.Name = "Key"
        Key.Parent = ScrollingFramea
        Key.BackgroundColor3 = Color3.fromRGB(24, 24, 24)
        Key.BorderColor3 = Color3.fromRGB(0, 0, 0)
        Key.BorderSizePixel = 0
        Key.Size = UDim2.new(0.980000019, 0, 0.5, 0)

        UIAspectRatioConstraint.Parent = Key
        UIAspectRatioConstraint.AspectRatio = 7.000
        UIAspectRatioConstraint.AspectType = Enum.AspectType.ScaleWithParentSize

        KeyCode.Name = "KeyCode"
        KeyCode.Parent = Key
        KeyCode.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
        KeyCode.BackgroundTransparency = 0.800
        KeyCode.BorderColor3 = Color3.fromRGB(0, 0, 0)
        KeyCode.BorderSizePixel = 0
        KeyCode.Position = UDim2.new(0.0393725522, 0, 0.125276297, 0)
        KeyCode.Size = UDim2.new(0.300000012, 0, 0.699999988, 0)
        KeyCode.ClearTextOnFocus = false
        KeyCode.Font = Enum.Font.Unknown
        KeyCode.PlaceholderText = "Key"
        KeyCode.Text = (dataconfix['key'] and dataconfix['key']['Name']) or ""
        KeyCode.TextColor3 = Color3.fromRGB(255, 255, 255)
        KeyCode.TextScaled = true
        KeyCode.TextSize = 14.000
        KeyCode.TextStrokeColor3 = Color3.fromRGB(255, 255, 255)
        KeyCode.TextWrapped = true

        KeyTime.Name = "KeyTime"
        KeyTime.Parent = Key
        KeyTime.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
        KeyTime.BackgroundTransparency = 0.800
        KeyTime.BorderColor3 = Color3.fromRGB(0, 0, 0)
        KeyTime.BorderSizePixel = 0
        KeyTime.Position = UDim2.new(0.433098078, 0, 0.125276297, 0)
        KeyTime.Size = UDim2.new(0.300000012, 0, 0.699999988, 0)
        KeyTime.ClearTextOnFocus = false
        KeyTime.Font = Enum.Font.Unknown
        KeyTime.PlaceholderText = "Time"
        KeyTime.Text = dataconfix['timed'] or ""
        KeyTime.TextColor3 = Color3.fromRGB(255, 255, 255)
        KeyTime.TextScaled = true
        KeyTime.TextSize = 14.000
        KeyTime.TextStrokeColor3 = Color3.fromRGB(255, 255, 255)
        KeyTime.TextWrapped = true

        Del.Name = "Del"
        Del.Parent = Key
        Del.AnchorPoint = Vector2.new(0, 0.5)
        Del.BackgroundColor3 = Color3.fromRGB(94, 94, 94)
        Del.BackgroundTransparency = 0.400
        Del.BorderColor3 = Color3.fromRGB(0, 0, 0)
        Del.BorderSizePixel = 0
        Del.Position = UDim2.new(0.837337434, 0, 0.484302998, 0)
        Del.Size = UDim2.new(0.850000024, 0, 0.850000024, 0)
        Del.SizeConstraint = Enum.SizeConstraint.RelativeYY
        Del.Font = Enum.Font.Unknown
        Del.Text = "Delete"
        Del.TextColor3 = Color3.fromRGB(255, 255, 255)
        Del.TextScaled = true
        Del.TextSize = 14.000
        Del.TextWrapped = true

        UIStroke.Thickness = 2.200
        UIStroke.Transparency = 0.800
        UIStroke.ApplyStrokeMode = Enum.ApplyStrokeMode.Border
        UIStroke.Parent = Del

        local time_show = Instance.new("TextLabel")

        time_show.Name = "time_show"
        time_show.Parent = Key
        time_show.BackgroundColor3 = Color3.fromRGB(255, 255, 255)
        time_show.BackgroundTransparency = 1.000
        time_show.BorderColor3 = Color3.fromRGB(0, 0, 0)
        time_show.BorderSizePixel = 0
        time_show.Size = UDim2.new(0.100000001, 0, 0.100000001, 0)
        time_show.Font = Enum.Font.SourceSans
        time_show.Text = tostring(index)
        time_show.TextColor3 = Color3.fromRGB(255, 255, 255)
        time_show.TextScaled = true
        time_show.TextSize = 14.000
        time_show.TextWrapped = true

        KeyTime.Changed:Connect(function()
            UP_INDEX()
            time_show.Text = tostring(index)
            local data = tonumber(KeyTime.Text)
            if not data then
                KeyTime.Text = ""
            else
                local me = KeyDatas.Codes[index]
                if me then
                    me.TIMED = data
                end
            end
        end)
        Main.Changed:Connect(function()
            UP_INDEX()
            time_show.Text = tostring(index)
        end)
        KeyCode.FocusLost:Connect(function()
            time_show.Text = tostring(index)
            UP_INDEX()
            local key : Enum.KeyCode = SrtToKeyode(KeyCode.Text)
            if key then
                KeyCode.Text = key.Name
                local me = KeyDatas.Codes[index]
                if me then
                    me.KEY = key
                end
            else
                KeyCode.Text = ""
            end
        end)

        Del.MouseButton1Click:Connect(function()

            table.remove(KeyDatas.Codes,index)
            Key:Destroy()
        end)
    end

    local function Run()
        for i,v in ipairs(KeyDatas.Codes) do
            presskey(v.KEY)
            wait(v.TIMED)
        end
    end

    CreateKeyButton.MouseButton1Click:Connect(function()
        MakeKK()
    end)

    game:GetService('UserInputService').InputBegan:Connect(function(KeyCode)
        if KeyCode.KeyCode == KeyDatas.Start then
            Run()
        end
    end)
end

CreateButton.MouseButton1Click:Connect(function()
    AddSetting()
end)

local UIS = game:GetService('UserInputService')
local dragToggle = nil
local dragSpeed = 0.1
local dragStart = nil
local startPos = nil

local function updateInput(input)
    local delta = input.Position - dragStart
    local position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X,
        startPos.Y.Scale, startPos.Y.Offset + delta.Y)
    game:GetService('TweenService'):Create(main, TweenInfo.new(dragSpeed), {Position = position}):Play()
end

main.InputBegan:Connect(function(input)
    if (input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch) then
        dragToggle = true
        dragStart = input.Position
        startPos = main.Position
        input.Changed:Connect(function()
            if input.UserInputState == Enum.UserInputState.End then
                dragToggle = false
            end
        end)
    end
end)

UIS.InputChanged:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
        if dragToggle then
            updateInput(input)
        end
    end
end)