-- Red L5xlilr VIP | عبود
local P,R,VU,LP=game:GetService("Players"),game:GetService("RunService"),game:GetService("VirtualUser"),game:GetService("Players").LocalPlayer

-- وقت صملتي
local start=tick()
local function FPT(s)local h=math.floor(s/3600)local m=math.floor((s%3600)/60)local ss=s%60 return"مدة الصملّة: "..h.." ساعة "..m.." دقيقة "..ss.." ثانية"end
local play=Instance.new("StringValue",LP)play.Name="PlayTimeText"play.Value=FPT(0)
task.spawn(function()while true do task.wait(1)play.Value=FPT(math.floor(tick()-start))end end)

-- GUI
local gui=Instance.new("ScreenGui",LP:WaitForChild("PlayerGui"))
gui.Name="RedL5xlilrVIP"
gui.ResetOnSpawn = false

local main=Instance.new("Frame",gui)
main.Size=UDim2.new(0,500,0,320)
main.Position=UDim2.new(0.25,0,0.25,0)
main.BackgroundColor3=Color3.fromRGB(20,20,20)
main.Active=true
main.Draggable=true
Instance.new("UICorner",main).CornerRadius=UDim.new(0,12)

local title=Instance.new("TextLabel",main)
title.Size=UDim2.new(0,300,0,35)
title.Position=UDim2.new(0,10,0,-45)
title.BackgroundColor3=Color3.fromRGB(180,0,0)
title.TextColor3=Color3.new(1,1,1)
title.Font=Enum.Font.SourceSansBold
title.TextSize=18
title.Text="نظام البانق Red L5xlilr VIP"

local toggle=Instance.new("TextButton",gui)
toggle.Size=UDim2.new(0,40,0,40)
toggle.Position=UDim2.new(0,5,0.5,-20)
toggle.BackgroundColor3=Color3.fromRGB(180,0,0)
toggle.Text="Red"
toggle.TextColor3=Color3.new(1,1,1)
toggle.Font=Enum.Font.SourceSansBold
toggle.TextSize=14
Instance.new("UICorner",toggle).CornerRadius=UDim.new(0,8)

local vis=true
toggle.MouseButton1Click:Connect(function()
    vis=not vis
    main.Visible=vis
end)

local menu=Instance.new("Frame",main)
menu.Size=UDim2.new(0,120,1,0)
menu.BackgroundColor3=Color3.fromRGB(150,0,0)
Instance.new("UICorner",menu).CornerRadius=UDim.new(0,12)

local content=Instance.new("Frame",main)
content.Size=UDim2.new(1,-120,1,0)
content.Position=UDim2.new(0,120,0,0)
content.BackgroundColor3=Color3.fromRGB(30,30,30)
Instance.new("UICorner",content).CornerRadius=UDim.new(0,12)

local function Clear()
    for _,v in ipairs(content:GetChildren())do
        if v.Name~="TargetData"then v:Destroy()end
    end
end

local function Btn(t,y)
    local b=Instance.new("TextButton",menu)
    b.Size=UDim2.new(1,-10,0,40)
    b.Position=UDim2.new(0,5,0,10+(y*45))
    b.BackgroundColor3=Color3.fromRGB(100,0,0)
    b.TextColor3=Color3.new(1,1,1)
    b.Font=Enum.Font.SourceSansBold
    b.TextSize=16
    b.Text=t
    return b
end

local targetBtn,afkBtn,timeBtn=Btn("الاستهداف",0),Btn("Anti-AFK",1),Btn("وقت صملتي",2)

-- بانق
local target,bang,mode,ang=nil,nil,"Normal",0
local bangTimer,bangRun=0,false

task.spawn(function()
    while true do
        task.wait(0.1)
        if bangRun then
            local char = LP.Character
            if char then
                local hum = char:FindFirstChildOfClass("Humanoid")
                if hum and hum:GetState() == Enum.HumanoidStateType.Seated then
                    hum:ChangeState(Enum.HumanoidStateType.GettingUp)
                end
            end
        end
    end
end)

local function FBT(s)
    local h=math.floor(s/3600)
    local m=math.floor((s%3600)/60)
    local ss=s%60
    return"مدة بانق العدو: "..h.." ساعة "..m.." دقيقة "..ss.." ثانية"
end

task.spawn(function()
    while true do
        task.wait(1)
        if bangRun then bangTimer+=1 end
    end
end)

local function Stop()
    if bang then bang:Disconnect()bang=nil end
    bangRun=false
end

local function Start()
    Stop()
    if not target then return end
    bangTimer=0
    bangRun=true

    bang=R.Heartbeat:Connect(function()
        if target and target.Character and target.Character:FindFirstChild("HumanoidRootPart")then
            local my=LP.Character
            if my and my:FindFirstChild("HumanoidRootPart")then
                local t,m=target.Character.HumanoidRootPart,my.HumanoidRootPart
                ang+=0.45

                if mode=="Normal"then
                    m.CFrame=t.CFrame*CFrame.new(0,0,1.5)
                elseif mode=="Flip"then
                    m.CFrame=t.CFrame*CFrame.new(0,0,1.5)*CFrame.Angles(ang,0,0)
                elseif mode=="Spin"then
                    m.CFrame=t.CFrame*CFrame.new(0,0,1.5)*CFrame.Angles(0,ang,0)
                elseif mode=="Head"then
                    m.CFrame=t.CFrame*CFrame.new(0,3,0)*CFrame.Angles(math.rad(90),0,0)
                elseif mode=="UltraVIP"then
                    m.CFrame=t.CFrame*CFrame.new(0,1.5,0)*CFrame.Angles(ang*2,ang*2,0)
                end
            end
        end
    end)
end

-- ⭐⭐⭐ الاستهداف ثابت ⭐⭐⭐
local f=Instance.new("ScrollingFrame",content)
f.Name="TargetData"
f.Visible=false
f.Size=UDim2.new(0,260,0,260)
f.Position=UDim2.new(0,20,0,20)
f.BackgroundColor3=Color3.fromRGB(15,15,15)
f.CanvasSize=UDim2.new(0,0,0,420)
f.ScrollBarThickness=4
Instance.new("UICorner",f).CornerRadius=UDim.new(0,10)

local t=Instance.new("TextLabel",f)
t.Size=UDim2.new(1,0,0,30)
t.BackgroundColor3=Color3.fromRGB(180,0,0)
t.TextColor3=Color3.new(1,1,1)
t.Font=Enum.Font.SourceSansBold
t.TextSize=15
t.Text="نظام الاستهداف Red L5xlilr VIP"

local box=Instance.new("TextBox",f)
box.Size=UDim2.new(1,-20,0,30)
box.Position=UDim2.new(0,10,0,40)
box.BackgroundColor3=Color3.fromRGB(25,25,25)
box.TextColor3=Color3.new(1,1,1)
box.Font=Enum.Font.SourceSansBold
box.TextSize=13
box.PlaceholderText="اكتب أول حروف اسم اللاعب"
box.ClearTextOnFocus=false

local avatar=Instance.new("ImageLabel",f)
avatar.Size=UDim2.new(0,70,0,70)
avatar.Position=UDim2.new(0,10,0,80)
avatar.BackgroundColor3=Color3.fromRGB(120,0,0)
avatar.Visible=false

local name=Instance.new("TextLabel",f)
name.Size=UDim2.new(0,150,0,25)
name.Position=UDim2.new(0,90,0,90)
name.BackgroundTransparency=1
name.TextColor3=Color3.new(1,1,1)
name.Font=Enum.Font.SourceSansBold
name.TextSize=14

local state=Instance.new("TextLabel",f)
state.Size=UDim2.new(0,150,0,25)
state.Position=UDim2.new(0,90,0,115)
state.BackgroundTransparency=1
state.TextColor3=Color3.new(1,1,1)
state.Font=Enum.Font.SourceSansBold
state.TextSize=13
state.Text="الحالة: غير معروف"

local bangLbl=Instance.new("TextLabel",f)
bangLbl.Size=UDim2.new(1,-20,0,25)
bangLbl.Position=UDim2.new(0,10,0,145)
bangLbl.BackgroundColor3=Color3.fromRGB(5,5,5)
bangLbl.TextColor3=Color3.new(1,1,1)
bangLbl.Font=Enum.Font.SourceSansBold
bangLbl.TextSize=13
bangLbl.Text=FBT(0)

task.spawn(function()
    while f and f.Parent do
        task.wait(1)
        if bangRun then bangLbl.Text=FBT(bangTimer)end
    end
end)

local function Update(txt)
    txt=txt:lower()
    target=nil
    avatar.Visible=false
    name.Text=""
    state.Text="الحالة: غير معروف"
    state.TextColor3=Color3.fromRGB(255,255,255)
    bangRun=false
    bangTimer=0
    bangLbl.Text=FBT(0)

    if txt==""then return end

    for _,plr in ipairs(P:GetPlayers())do
        if plr~=LP and plr.Name:lower():sub(1,#txt)==txt then
            target=plr

            local th=P:GetUserThumbnailAsync(plr.UserId,Enum.ThumbnailType.HeadShot,Enum.ThumbnailSize.Size100x100)
            avatar.Image=th
            avatar.Visible=true
            name.Text=plr.Name

            state.Text="الحالة: داخل اللعبة"
            state.TextColor3=Color3.fromRGB(0,255,0)

            -- ⭐⭐⭐ إصلاح مشكلة الخروج الوهمية ⭐⭐⭐
            plr:GetPropertyChangedSignal("Parent"):Connect(function()
                if not plr.Parent and not P:FindFirstChild(plr.Name) then
                    state.Text="الحالة: خرج"
                    state.TextColor3=Color3.fromRGB(255,0,0)
                    Stop()
                    bangRun=false
                    bangTimer=0
                    bangLbl.Text=FBT(0)
                end
            end)

            break
        end
    end
end

box:GetPropertyChangedSignal("Text"):Connect(function()
    Update(box.Text)
end)

local function M(t,y,c,m)
    local b=Instance.new("TextButton",f)
    b.Size=UDim2.new(1,-20,0,30)
    b.Position=UDim2.new(0,10,0,y)
    b.BackgroundColor3=c
    b.TextColor3=Color3.new(1,1,1)
    b.Font=Enum.Font.SourceSansBold
    b.TextSize=14
    b.Text=t

    if m then
        b.MouseButton1Click:Connect(function()
            if target then mode=m Start()end
        end)
    end

    return b
end

M("🔥 بانق تتبع احترافي",180,Color3.fromRGB(150,0,0),"Normal")
M("🤸 بانق التشقلب الجوي",215,Color3.fromRGB(100,0,120),"Flip")
M("🌀 بانق الدوران السريع",250,Color3.fromRGB(130,0,70),"Spin")
M("💀 بانق فوق الرأس",285,Color3.fromRGB(180,80,0),"Head")
M("⚡ بانق Ultra Red L5xlilr VIP",320,Color3.fromRGB(255,0,0),"UltraVIP")

local stop=M("⛔ إيقاف التفعيل كامل",360,Color3.fromRGB(80,0,0),nil)
stop.MouseButton1Click:Connect(function()
    Stop()
    bangRun=false
    bangTimer=0
    bangLbl.Text=FBT(0)
end)

targetBtn.MouseButton1Click:Connect(function()
    Clear()
    f.Visible=true
end)

local afkCon
afkBtn.MouseButton1Click:Connect(function()
    Clear()

    local ff=Instance.new("Frame",content)
    ff.Size=UDim2.new(0,260,0,260)
    ff.Position=UDim2.new(0,20,0,20)
    ff.BackgroundColor3=Color3.fromRGB(15,15,15)
    Instance.new("UICorner",ff).CornerRadius=UDim.new(0,10)

    local tt=Instance.new("TextLabel",ff)
    tt.Size=UDim2.new(1,0,0,30)
    tt.BackgroundColor3=Color3.fromRGB(0,120,0)
    tt.TextColor3=Color3.new(1,1,1)
    tt.Font=Enum.Font.SourceSansBold
    tt.TextSize=15
    tt.Text="نظام Anti-AFK | Red L5xlilr VIP"

    local ss=Instance.new("TextLabel",ff)
    ss.Size=UDim2.new(1,-20,0,25)
    ss.Position=UDim2.new(0,10,0,50)
    ss.BackgroundTransparency=1
    ss.TextColor3=Color3.new(1,1,1)
    ss.Font=Enum.Font.SourceSansBold
    ss.TextSize=14
    ss.Text="الحالة: غير مفعل"

    local bb=Instance.new("TextButton",ff)
    bb.Size=UDim2.new(1,-20,0,35)
    bb.Position=UDim2.new(0,10,0,90)
    bb.BackgroundColor3=Color3.fromRGB(0,150,0)
    bb.TextColor3=Color3.new(1,1,1)
    bb.Font=Enum.Font.SourceSansBold
    bb.TextSize=14
    bb.Text="تفعيل Anti-AFK"

    local en=false
    bb.MouseButton1Click:Connect(function()
        en=not en

        if en then
            ss.Text="الحالة: مفعل"
            ss.TextColor3=Color3.fromRGB(0,255,0)
            bb.Text="إيقاف Anti-AFK"

            if afkCon then afkCon:Disconnect()end

            afkCon=LP.Idled:Connect(function()
                VU:Button2Down(Vector2.new(0,0),workspace.CurrentCamera.CFrame)
                task.wait(0.1)
                VU:Button2Up(Vector2.new(0,0),workspace.CurrentCamera.CFrame)
            end)
        else
            ss.Text="الحالة: غير مفعل"
            ss.TextColor3=Color3.fromRGB(255,255,255)
            bb.Text="تفعيل Anti-AFK"

            if afkCon then afkCon:Disconnect()afkCon=nil end
        end
    end)
end)

timeBtn.MouseButton1Click:Connect(function()
    Clear()

    local ff=Instance.new("Frame",content)
    ff.Size=UDim2.new(0,260,0,260)
    ff.Position=UDim2.new(0,20,0,20)
    ff.BackgroundColor3=Color3.fromRGB(15,15,15)
    Instance.new("UICorner",ff).CornerRadius=UDim.new(0,10)

    local tt=Instance.new("TextLabel",ff)
    tt.Size=UDim2.new(1,0,0,30)
    tt.BackgroundColor3=Color3.fromRGB(0,0,150)
    tt.TextColor3=Color3.new(1,1,1)
    tt.Font=Enum.Font.SourceSansBold
    tt.TextSize=15
    tt.Text="وقت صملتي | Red L5xlilr VIP"

    local lbl=Instance.new("TextLabel",ff)
    lbl.Size=UDim2.new(1,-20,0,40)
    lbl.Position=UDim2.new(0,10,0,60)
    lbl.BackgroundColor3=Color3.fromRGB(5,5,5)
    lbl.TextColor3=Color3.new(1,1,1)
    lbl.Font=Enum.Font.SourceSansBold
    lbl.TextSize=14
    lbl.Text=play.Value

    task.spawn(function()
        while ff and ff.Parent do
            task.wait(1)
            lbl.Text=play.Value
        end
    end)
end)