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

local Flinging = false
local Banging = false
local OldCF = nil
local currentBangAnim = nil
local bangConn = nil

-- وظيفة عامة لجعل أي عنصر قابل للسحب والإفلات
local function makeDraggable(frame, dragHandle)
    local dragging, dragInput, dragStart, startPos
    dragHandle = dragHandle or frame

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

    dragHandle.InputChanged:Connect(function(input)
        if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
            dragInput = input
        end
    end)

    UserInputService.InputChanged:Connect(function(input)
        if input == dragInput and dragging then
            local delta = input.Position - dragStart
            frame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
        end
    end)
end

-- البحث عن اللاعب بـ 3 أحرف
local function getPlayerByShortName(shortName)
    if not shortName or #shortName < 3 then return nil end
    shortName = shortName:lower()
    
    for _, player in ipairs(Players:GetPlayers()) do
        if player ~= LocalPlayer then
            local nameMatch = player.Name:lower():sub(1, #shortName) == shortName
            local displayMatch = player.DisplayName:lower():sub(1, #shortName) == shortName
            if nameMatch or displayMatch then
                return player
            end
        end
    end
    return nil
end

-- إيقاف الفلنج
local function stopFling()
    Flinging = false
    task.wait(0.1)
    
    local MyChar = LocalPlayer.Character
    local MyRoot = MyChar and MyChar:FindFirstChild("HumanoidRootPart")
    
    if MyChar then
        for _, part in pairs(MyChar:GetDescendants()) do
            if part:IsA("BasePart") then
                part.Velocity = Vector3.new(0, 0, 0)
                part.RotVelocity = Vector3.new(0, 0, 0)
            end
        end
    end

    if MyRoot and OldCF then
        MyRoot.CFrame = OldCF
        MyRoot.Velocity = Vector3.new(0, 0, 0)
        MyRoot.RotVelocity = Vector3.new(0, 0, 0)
    end
end

-- إيقاف البانق
local function stopBang()
    Banging = false
    if bangConn then
        bangConn:Disconnect()
        bangConn = nil
    end
    if currentBangAnim then
        currentBangAnim:Stop()
        currentBangAnim = nil
    end
end

-- إيقاف كافة الأوامر
local function stopAll()
    stopFling()
    stopBang()
end

-- خوارزمية الفلنج المستمر
local function startFlingTarget(TargetPlayer)
    stopAll()
    if not TargetPlayer or not TargetPlayer.Character then return end

    local TargetChar = TargetPlayer.Character
    local TargetRoot = TargetChar:FindFirstChild("HumanoidRootPart") or TargetChar:FindFirstChild("Torso") or TargetChar:FindFirstChild("UpperTorso")
    
    local MyChar = LocalPlayer.Character
    local MyHumanoid = MyChar and MyChar:FindFirstChildOfClass("Humanoid")
    local MyRoot = MyChar and MyChar:FindFirstChild("HumanoidRootPart")

    if not TargetRoot or not MyChar or not MyHumanoid or not MyRoot then return end

    OldCF = MyRoot.CFrame
    Flinging = true

    task.spawn(function()
        local Angles = Vector3.new(0, 0, 0)
        
        local NoclipConn
        NoclipConn = RunService.Stepped:Connect(function()
            if not Flinging then
                NoclipConn:Disconnect()
                return
            end
            for _, v in pairs(MyChar:GetDescendants()) do
                if v:IsA("BasePart") then
                    v.CanCollide = false
                end
            end
        end)

        local FlingConn
        FlingConn = RunService.Heartbeat:Connect(function()
            if not Flinging or not TargetRoot or not TargetRoot.Parent or not MyRoot or not MyRoot.Parent then
                FlingConn:Disconnect()
                return
            end

            Angles = Angles + Vector3.new(100, 100, 100)
            MyRoot.RotVelocity = Vector3.new(100000, 100000, 100000)
            
            MyRoot.CFrame = TargetRoot.CFrame * CFrame.Angles(math.rad(Angles.X), math.rad(Angles.Y), math.rad(Angles.Z)) + (TargetRoot.Velocity * 0.1)
            
            if MyRoot.Velocity.Magnitude < 200000 then
                MyRoot.Velocity = Vector3.new(999999, 999999, 999999)
            else
                MyRoot.Velocity = Vector3.new(-999999, -999999, -999999)
            end
        end)
    end)
end

-- خوارزمية البانق المباشر على الهدف
local function startBangTarget(TargetPlayer)
    stopAll()
    if not TargetPlayer or not TargetPlayer.Character then return end

    local TargetChar = TargetPlayer.Character
    local TargetRoot = TargetChar:FindFirstChild("HumanoidRootPart") or TargetChar:FindFirstChild("Torso")
    
    local MyChar = LocalPlayer.Character
    local MyHumanoid = MyChar and MyChar:FindFirstChildOfClass("Humanoid")
    local MyRoot = MyChar and MyChar:FindFirstChild("HumanoidRootPart")

    if not TargetRoot or not MyChar or not MyHumanoid or not MyRoot then return end

    Banging = true

    local isR15 = MyHumanoid.RigType == Enum.HumanoidRigType.R15
    local bangAnim = Instance.new("Animation")
    bangAnim.AnimationId = isR15 and "rbxassetid://5918726674" or "rbxassetid://148840371"
    
    currentBangAnim = MyHumanoid:LoadAnimation(bangAnim)
    currentBangAnim:Play(0.1, 1, 1)
    currentBangAnim.Looped = true
    currentBangAnim.TimePosition = 0.5
    currentBangAnim:AdjustSpeed(8)

    bangConn = RunService.Stepped:Connect(function()
        if not Banging or not TargetRoot or not TargetRoot.Parent or not MyRoot or not MyRoot.Parent then
            stopBang()
            return
        end
        MyRoot.CFrame = TargetRoot.CFrame * CFrame.new(0, 0, 1.1)
    end)
end

-- إنشاء الواجهة (GUI)
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "AutoControlGUI"
ScreenGui.ResetOnSpawn = false
ScreenGui.Parent = LocalPlayer:WaitForChild("PlayerGui")

-- خلفية الواجهة الرئيسية
local MainFrame = Instance.new("ImageLabel")
MainFrame.Size = UDim2.new(0, 240, 0, 220)
MainFrame.Position = UDim2.new(0.5, -120, 0.4, -110)
MainFrame.Image = "rbxassetid://85026180238654"
MainFrame.ScaleType = Enum.ScaleType.Crop
MainFrame.BorderSizePixel = 0
MainFrame.Active = true
MainFrame.Parent = ScreenGui

local TitleBar = Instance.new("TextLabel")
TitleBar.Size = UDim2.new(1, 0, 0, 35)
TitleBar.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
TitleBar.BackgroundTransparency = 0.4
TitleBar.Text = "Target Control Panel"
TitleBar.TextColor3 = Color3.fromRGB(255, 255, 255)
TitleBar.TextSize = 14
TitleBar.Font = Enum.Font.SourceSansBold
TitleBar.Parent = MainFrame

makeDraggable(MainFrame, TitleBar)

-- زر الدائرة العائمة الخارجة عن الواجهة (بشكل الشارينغان ودوران مستمر وقابل للسحب)
local ToggleBtn = Instance.new("ImageButton")
ToggleBtn.Size = UDim2.new(0, 45, 0, 45)
ToggleBtn.Position = UDim2.new(0.5, -185, 0.4, -110)
ToggleBtn.Image = "rbxassetid://98458584814389" -- تم استخدام المعرف الخاص بالصورة المطلوبة
ToggleBtn.BackgroundTransparency = 1
ToggleBtn.Active = true
ToggleBtn.Parent = ScreenGui

-- جعل الزر دائرياً تماماً 100% باستخدام UICorner
local UICorner = Instance.new("UICorner")
UICorner.CornerRadius = UDim.new(1, 0)
UICorner.Parent = ToggleBtn

makeDraggable(ToggleBtn)

-- تشغيل حركة الدوران المستمرة للزر الدائري
task.spawn(function()
    while ToggleBtn and ToggleBtn.Parent do
        ToggleBtn.Rotation = ToggleBtn.Rotation + 3
        RunService.RenderStepped:Wait()
    end
end)

local isOpen = true
ToggleBtn.MouseButton1Click:Connect(function()
    isOpen = not isOpen
    MainFrame.Visible = isOpen
end)

local TextBox = Instance.new("TextBox")
TextBox.Size = UDim2.new(0.9, 0, 0, 35)
TextBox.Position = UDim2.new(0.05, 0, 0, 45)
TextBox.PlaceholderText = "اكتب أول 3 حروف من الاسم..."
TextBox.Text = ""
TextBox.BackgroundColor3 = Color3.fromRGB(0, 0, 0)
TextBox.BackgroundTransparency = 0.5
TextBox.TextColor3 = Color3.fromRGB(255, 255, 255)
TextBox.Font = Enum.Font.SourceSans
TextBox.TextSize = 14
TextBox.Parent = MainFrame

local StatusLabel = Instance.new("TextLabel")
StatusLabel.Size = UDim2.new(0.9, 0, 0, 20)
StatusLabel.Position = UDim2.new(0.05, 0, 0, 85)
StatusLabel.BackgroundTransparency = 1
StatusLabel.Text = "الهدف: لا يوجد"
StatusLabel.TextColor3 = Color3.fromRGB(220, 220, 220)
StatusLabel.TextSize = 12
StatusLabel.Font = Enum.Font.SourceSansBold
StatusLabel.Parent = MainFrame

local foundTarget = nil

TextBox:GetPropertyChangedSignal("Text"):Connect(function()
    local text = TextBox.Text
    if #text >= 3 then
        foundTarget = getPlayerByShortName(text)
        if foundTarget then
            StatusLabel.Text = "الهدف: " .. foundTarget.Name
            StatusLabel.TextColor3 = Color3.fromRGB(0, 255, 120)
        else
            StatusLabel.Text = "لم يتم العثور على لاعب"
            StatusLabel.TextColor3 = Color3.fromRGB(255, 80, 80)
        end
    else
        foundTarget = nil
        StatusLabel.Text = "اكتب 3 حروف على الأقل"
        StatusLabel.TextColor3 = Color3.fromRGB(220, 220, 220)
    end
end)

-- أزرار Fling و Unfling
local FlingBtn = Instance.new("TextButton")
FlingBtn.Size = UDim2.new(0.42, 0, 0, 30)
FlingBtn.Position = UDim2.new(0.05, 0, 0, 120)
FlingBtn.BackgroundColor3 = Color3.fromRGB(40, 130, 40)
FlingBtn.BackgroundTransparency = 0.2
FlingBtn.Text = "Fling"
FlingBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
FlingBtn.Font = Enum.Font.SourceSansBold
FlingBtn.TextSize = 14
FlingBtn.Parent = MainFrame

FlingBtn.MouseButton1Click:Connect(function()
    if foundTarget then
        startFlingTarget(foundTarget)
    end
end)

local UnflingBtn = Instance.new("TextButton")
UnflingBtn.Size = UDim2.new(0.42, 0, 0, 30)
UnflingBtn.Position = UDim2.new(0.53, 0, 0, 120)
UnflingBtn.BackgroundColor3 = Color3.fromRGB(150, 40, 40)
UnflingBtn.BackgroundTransparency = 0.2
UnflingBtn.Text = "Unfling"
UnflingBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
UnflingBtn.Font = Enum.Font.SourceSansBold
UnflingBtn.TextSize = 14
UnflingBtn.Parent = MainFrame

UnflingBtn.MouseButton1Click:Connect(function()
    stopFling()
end)

-- أزرار Bang و Unbang
local BangBtn = Instance.new("TextButton")
BangBtn.Size = UDim2.new(0.42, 0, 0, 30)
BangBtn.Position = UDim2.new(0.05, 0, 0, 165)
BangBtn.BackgroundColor3 = Color3.fromRGB(0, 100, 180)
BangBtn.BackgroundTransparency = 0.2
BangBtn.Text = "Bang"
BangBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
BangBtn.Font = Enum.Font.SourceSansBold
BangBtn.TextSize = 14
BangBtn.Parent = MainFrame

BangBtn.MouseButton1Click:Connect(function()
    if foundTarget then
        startBangTarget(foundTarget)
    end
end)

local ButtonUnbang = Instance.new("TextButton")
ButtonUnbang.Size = UDim2.new(0.42, 0, 0, 30)
ButtonUnbang.Position = UDim2.new(0.53, 0, 0, 165)
ButtonUnbang.BackgroundColor3 = Color3.fromRGB(100, 100, 100)
ButtonUnbang.BackgroundTransparency = 0.2
ButtonUnbang.Text = "Unbang"
ButtonUnbang.TextColor3 = Color3.fromRGB(255, 255, 255)
ButtonUnbang.Font = Enum.Font.SourceSansBold
ButtonUnbang.TextSize = 14
ButtonUnbang.Parent = MainFrame

ButtonUnbang.MouseButton1Click:Connect(function()
    stopBang()
end)