Beacon Pro Max

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

-- 1. إنشاء الواجهة (مع خاصية عدم الاختفاء عند الموت)
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "PeknScriptGui"
ScreenGui.ResetOnSpawn = false -- تمنع اختفاء السكربت عند الموت
ScreenGui.Parent = LocalPlayer:WaitForChild("PlayerGui")

local Frame = Instance.new("Frame", ScreenGui)
Frame.Size = UDim2.new(0, 180, 0, 280)
Frame.Position = UDim2.new(0.5, -90, 0.4, -140)
Frame.BackgroundColor3 = Color3.fromRGB(35, 35, 35)

-- وظيفة التحريك
local dragging, dragInput, dragStart, startPos
Frame.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 then
        dragging = true
        dragStart = input.Position
        startPos = Frame.Position
    end
end)
UserInputService.InputChanged:Connect(function(input)
    if dragging and input.UserInputType == Enum.UserInputType.MouseMovement 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)
UserInputService.InputEnded:Connect(function(input) if input.UserInputType == Enum.UserInputType.MouseButton1 then dragging = false end end)

-- العنوان (تكبير الخط والارتفاع)
local Title = Instance.new("TextLabel", Frame)
Title.Size = UDim2.new(0.8, 0, 0.14, 0)
Title.Position = UDim2.new(0, 0, 0.01, 0)
Title.Text = "سكربت قناتنا في اليوتيوب بيكن سكربت"
Title.BackgroundColor3 = Color3.fromRGB(0, 100, 200)
Title.TextColor3 = Color3.new(1,1,1)
Title.Font = Enum.Font.SourceSansBold
Title.TextScaled = true 

local MinBtn = Instance.new("TextButton", Frame)
MinBtn.Size = UDim2.new(0.2, 0, 0.14, 0)
MinBtn.Position = UDim2.new(0.8, 0, 0.01, 0)
MinBtn.Text = "-"
MinBtn.BackgroundColor3 = Color3.fromRGB(150, 0, 0)
MinBtn.TextColor3 = Color3.new(1,1,1)

-- الصورة
local DisplayImage = Instance.new("ImageLabel", Frame)
DisplayImage.Size = UDim2.new(0.4, 0, 0.18, 0)
DisplayImage.Position = UDim2.new(0.3, 0, 0.17, 0)
DisplayImage.BackgroundColor3 = Color3.fromRGB(20, 20, 20)

local NameLabel = Instance.new("TextLabel", Frame)
NameLabel.Size = UDim2.new(1, 0, 0.08, 0)
NameLabel.Position = UDim2.new(0, 0, 0.36, 0)
NameLabel.Text = "الاسم: "
NameLabel.BackgroundTransparency = 1
NameLabel.TextColor3 = Color3.new(1,1,1)
NameLabel.TextScaled = true

-- عناصر التحكم
local Input = Instance.new("TextBox", Frame)
Input.Size = UDim2.new(0.9, 0, 0.11, 0)
Input.Position = UDim2.new(0.05, 0, 0.46, 0)
Input.PlaceholderText = "اكتب الاسم.."
Input.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
Input.TextColor3 = Color3.new(1,1,1)

local SearchBtn = Instance.new("TextButton", Frame)
SearchBtn.Size = UDim2.new(0.9, 0, 0.11, 0)
SearchBtn.Position = UDim2.new(0.05, 0, 0.60, 0)
SearchBtn.Text = "بحث"
SearchBtn.BackgroundColor3 = Color3.fromRGB(0, 100, 200)
SearchBtn.TextColor3 = Color3.new(1,1,1)

local FollowBtn = Instance.new("TextButton", Frame)
FollowBtn.Size = UDim2.new(0.9, 0, 0.11, 0)
FollowBtn.Position = UDim2.new(0.05, 0, 0.75, 0)
FollowBtn.Text = "تفعيل الملاحقة"
FollowBtn.BackgroundColor3 = Color3.fromRGB(0, 100, 0)
FollowBtn.TextColor3 = Color3.new(1,1,1)

-- منطق الملاحقة
local isFollowing = false
local targetPlayer = nil

FollowBtn.MouseButton1Click:Connect(function()
    isFollowing = not isFollowing
    FollowBtn.Text = isFollowing and "إيقاف الملاحقة" or "تفعيل الملاحقة"
end)

RunService.Heartbeat:Connect(function()
    if isFollowing and targetPlayer and targetPlayer.Character and targetPlayer.Character:FindFirstChild("HumanoidRootPart") then
        local myRoot = LocalPlayer.Character and LocalPlayer.Character:FindFirstChild("HumanoidRootPart")
        if myRoot then
            myRoot.CFrame = targetPlayer.Character.HumanoidRootPart.CFrame * CFrame.new(0, 0, 3)
        end
    end
end)

-- زر الفتح
local OpenBtn = Instance.new("TextButton", ScreenGui)
OpenBtn.Size = UDim2.new(0, 90, 0, 25)
OpenBtn.Position = UDim2.new(0.02, 0, 0.4, 0)
OpenBtn.Text = "اضغط للفتح"
OpenBtn.Visible = false
MinBtn.MouseButton1Click:Connect(function() Frame.Visible = false; OpenBtn.Visible = true end)
OpenBtn.MouseButton1Click:Connect(function() Frame.Visible = true; OpenBtn.Visible = false end)

-- وظيفة البحث
SearchBtn.MouseButton1Click:Connect(function()
    local name = Input.Text:lower()
    for _, p in pairs(Players:GetPlayers()) do
        if p.Name:lower():find(name) then
            targetPlayer = p
            NameLabel.Text = "الاسم: " .. p.Name
            DisplayImage.Image = "rbxthumb://type=AvatarHeadShot&id="..p.UserId.."&w=420&h=420"
            break
        end
    end
end)