-- 🔥 V555 Ultimate Advanced – النسخة المطورة بالكامل (🇪🇬-🇯🇵-🇨🇳)
-- 👑 صاحب السكربت: ❖إِسْـكَـنْـدَرَانِـي❖
-- 🛡️ ذكاء اصطناعي صيني + أنظمة حماية متطورة

if not game:IsLoaded() then game.Loaded:Wait() end

local Players = game:GetService("Players")
local LP = Players.LocalPlayer
local CG = game:GetService("CoreGui")
local SG = game:GetService("StarterGui")
local TS = game:GetService("TeleportService")
local RS = game:GetService("RunService")
local UIS = game:GetService("UserInputService")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local ReplicatedFirst = game:GetService("ReplicatedFirst")
local ServerScriptService = game:GetService("ServerScriptService")
local ServerStorage = game:GetService("ServerStorage")
local HttpService = game:GetService("HttpService")
local DSS = game:GetService("DataStoreService")

local function Notify(t, tx, d)
    pcall(function()
        SG:SetCore("SendNotification", {Title = t, Text = tx, Duration = d or 3})
    end)
end

-- =============================================
-- 🎯 مطورين السكربت
-- =============================================
local Devs = {"Alskndrany_9999","Dhdhshehrei","King6540k","JOO111222333","ahmed_121212121","XxEL_ALMANYxXsasa2"}
local isDev = false
for _, d in ipairs(Devs) do
    if LP.Name == d then isDev = true; break end
end

-- =============================================
-- 📊 إحصائيات الحماية
-- =============================================
local ProtectionStats = {
    KicksBlocked = 0,
    BansBlocked = 0,
    TeleportsBlocked = 0,
    FlingAttempts = 0,
    FreezeAttempts = 0,
    ScriptsDestroyed = 0,
    RemoteEventsDisabled = 0,
    TotalAttacksBlocked = 0
}

-- =============================================
-- 🔍 البحث عن HD Admin
-- =============================================
local HDAdminRemotes = {}
local HDClient = nil

local function FindHDAdmin()
    for _, obj in ipairs(ReplicatedStorage:GetDescendants()) do
        if obj:IsA("RemoteEvent") then
            local name = obj.Name:lower()
            if name:find("hd") or name:find("admin") or name:find("kick") or name:find("ban") or name:find("command") or name:find("mod") or name:find("staff") then
                table.insert(HDAdminRemotes, obj)
            end
        end
        if obj.Name == "HDAdminHDClient" or obj.Name:find("HDClient") then
            HDClient = obj
        end
    end
    for _, obj in ipairs(ReplicatedFirst:GetDescendants()) do
        if obj:IsA("RemoteEvent") then
            local name = obj.Name:lower()
            if name:find("hd") or name:find("admin") or name:find("kick") or name:find("ban") then
                table.insert(HDAdminRemotes, obj)
            end
        end
    end
    return #HDAdminRemotes > 0 or HDClient ~= nil
end

-- =============================================
-- 🚀 تنفيذ أمر HD Admin
-- =============================================
local function ExecuteHDCommand(cmd, target, args)
    local success = false
    for _, remote in ipairs(HDAdminRemotes) do
        pcall(function()
            if remote:IsA("RemoteEvent") then
                remote:FireServer(cmd, target, args or "")
                success = true
            end
        end)
    end
    if HDClient then
        pcall(function()
            HDClient:FireServer(cmd, target, args or "")
            success = true
        end)
    end
    if not success then
        pcall(function()
            local chat = ReplicatedStorage:FindFirstChild("DefaultChatSystemChatEvents")
            if chat then
                local msg = chat:FindFirstChild("SayMessageRequest")
                if msg then
                    msg:FireServer(";" .. cmd .. " " .. target, "All")
                    success = true
                end
            end
        end)
    end
    return success
end

-- =============================================
-- 🛡️ الحماية المتطورة
-- =============================================
local Shield = {
    HDAdminShield = false,
    FlingProtection = false,
    FreezeProtection = false,
    SelfRepair = false,
    BehaviorAnalysis = false,
    AntiBan = false,
    AntiTeleport = false
}

local function ApplyShield()
    if Shield.HDAdminShield then
        pcall(function()
            hookfunction(LP.Kick, function()
                ProtectionStats.KicksBlocked = ProtectionStats.KicksBlocked + 1
                ProtectionStats.TotalAttacksBlocked = ProtectionStats.TotalAttacksBlocked + 1
                Notify("🛡️", "تم صد Kick! (" .. ProtectionStats.KicksBlocked .. ")", 2)
                return nil
            end)
            
            if Shield.AntiBan then
                hookfunction(TS.Teleport, function(pid, p)
                    if p == LP or p == nil then
                        ProtectionStats.BansBlocked = ProtectionStats.BansBlocked + 1
                        ProtectionStats.TotalAttacksBlocked = ProtectionStats.TotalAttacksBlocked + 1
                        Notify("🛡️", "تم صد Ban! (" .. ProtectionStats.BansBlocked .. ")", 2)
                        return nil
                    end
                    return TS.Teleport(pid, p)
                end)
            end
            
            if getrawmetatable and hookmetamethod then
                local mt = getrawmetatable(game)
                if mt then
                    local oldNC = mt.__namecall
                    setreadonly(mt, false)
                    mt.__namecall = newcclosure(function(self, ...)
                        local method = getnamecallmethod():lower()
                        if method == "destroy" or method == "remove" or method == "kick" then
                            if self == LP or self == LP.Character or (LP.Character and self:IsDescendantOf(LP.Character)) then
                                ProtectionStats.KicksBlocked = ProtectionStats.KicksBlocked + 1
                                ProtectionStats.TotalAttacksBlocked = ProtectionStats.TotalAttacksBlocked + 1
                                Notify("🛡️", "تم صد Destroy!", 2)
                                return nil
                            end
                        end
                        return oldNC(self, ...)
                    end)
                    setreadonly(mt, true)
                end
            end
        end)
        
        for _, remote in ipairs(HDAdminRemotes) do
            pcall(function()
                for _, conn in ipairs(getconnections(remote.OnClientEvent)) do
                    conn:Disable()
                end
                ProtectionStats.RemoteEventsDisabled = ProtectionStats.RemoteEventsDisabled + 1
            end)
        end
        
        Notify("🛡️", "تم تفعيل الحماية الشاملة!", 3)
    else
        Notify("🛡️", "تم إيقاف الحماية!", 3)
    end
end

local function ApplyFlingProtection()
    if not Shield.FlingProtection then return end
    pcall(function()
        local char = LP.Character
        if char then
            local hrp = char:FindFirstChild("HumanoidRootPart")
            if hrp then
                if hrp.Velocity.Magnitude > 150 or hrp.AssemblyLinearVelocity.Magnitude > 150 then
                    hrp.Velocity = Vector3.new(0, 0, 0)
                    hrp.AssemblyLinearVelocity = Vector3.new(0, 0, 0)
                    hrp.AssemblyAngularVelocity = Vector3.new(0, 0, 0)
                    ProtectionStats.FlingAttempts = ProtectionStats.FlingAttempts + 1
                    ProtectionStats.TotalAttacksBlocked = ProtectionStats.TotalAttacksBlocked + 1
                    Notify("🛡️", "تم منع الفلنج! (" .. ProtectionStats.FlingAttempts .. ")", 2)
                end
            end
        end
    end)
end

local function SelfRepair()
    if not Shield.SelfRepair then return end
    pcall(function()
        local check = pcall(function()
            hookfunction(LP.Kick, function() return nil end)
        end)
        if not check then
            Shield.HDAdminShield = true
            ApplyShield()
            Notify("🔄", "تم إعادة تفعيل الحماية ذاتياً!", 3)
        end
    end)
end

local function AnalyzeBehavior()
    if not Shield.BehaviorAnalysis then return end
    pcall(function()
        for _, player in ipairs(Players:GetPlayers()) do
            if player ~= LP then
                local char = player.Character
                if char and char:FindFirstChild("Humanoid") then
                    local hum = char.Humanoid
                    if hum.PlatformStand and not Shield.FreezeProtection then
                        Shield.FreezeProtection = true
                        ProtectionStats.FreezeAttempts = ProtectionStats.FreezeAttempts + 1
                        Notify("🧠", "كشف محاولة تجميد من " .. player.Name, 2)
                    end
                end
            end
        end
    end)
end

-- =============================================
-- 🇨🇳 الذكاء الاصطناعي الصيني
-- =============================================
local function AdvancedScanAndDestroy()
    local targets = {
        "antiexploit", "anticheat", "security", "protect", "guard", "shield",
        "detect", "anti", "kick", "ban", "admin", "hd", "exploit",
        "monitor", "log", "report", "moderation", "staff", "verify",
        "check", "scan", "watch", "sentry", "defend", "block",
        "byfron", "hyperion", "remote", "event", "listener", "handler",
        "validate", "authorize", "authenticate", "permission", "access",
        "whitelist", "blacklist", "filter", "flag", "alert", "warn"
    }
    local count = 0
    local folders = {
        ReplicatedStorage,
        ReplicatedFirst,
        game:GetService("StarterGui"),
        game:GetService("Workspace"),
        ServerScriptService,
        ServerStorage,
        game:GetService("Players"),
        game:GetService("Lighting"),
        game:GetService("SoundService"),
        game:GetService("CoreGui")
    }

    for _, folder in ipairs(folders) do
        if folder then
            for _, obj in ipairs(folder:GetDescendants()) do
                local name = obj.Name:lower()
                for _, kw in ipairs(targets) do
                    if name:find(kw) then
                        if obj:IsA("Script") or obj:IsA("LocalScript") or obj:IsA("ModuleScript") then
                            pcall(function()
                                obj.Source = "-- 🔒 تم تعطيله بواسطة V555 AI 🇨🇳"
                                count = count + 1
                                ProtectionStats.ScriptsDestroyed = ProtectionStats.ScriptsDestroyed + 1
                            end)
                        elseif obj:IsA("RemoteEvent") or obj:IsA("RemoteFunction") then
                            pcall(function()
                                for _, conn in ipairs(getconnections(obj.OnClientEvent)) do
                                    conn:Disable()
                                end
                                count = count + 1
                            end)
                        elseif obj:IsA("BoolValue") or obj:IsA("StringValue") or obj:IsA("NumberValue") then
                            pcall(function()
                                if name:find("antiexploit") or name:find("security") or name:find("protect") then
                                    obj:Destroy()
                                    count = count + 1
                                end
                            end)
                        end
                        break
                    end
                end
            end
        end
    end

    pcall(function()
        for key, value in pairs(_G) do
            local k = tostring(key):lower()
            for _, kw in ipairs(targets) do
                if k:find(kw) then
                    _G[key] = nil
                    count = count + 1
                    break
                end
            end
        end
    end)

    ProtectionStats.TotalAttacksBlocked = ProtectionStats.TotalAttacksBlocked + count
    Notify("🇨🇳 V555 AI", "✅ تم تعطيل " .. count .. " عنصر حماية!", 4)
    return count
end

-- =============================================
-- 🔐 نظام الطوارئ
-- =============================================
local PanicActive = false
local function PanicMode()
    PanicActive = not PanicActive
    if PanicActive then
        Notify("🚨", "تفعيل وضع الطوارئ! إخفاء جميع السكربتات", 3)
        main.Visible = false
        lb.Visible = false
        Shield.HDAdminShield = false
        Shield.FlingProtection = false
        Shield.FreezeProtection = false
        Shield.SelfRepair = false
        Shield.BehaviorAnalysis = false
        Shield.AntiBan = false
        Shield.AntiTeleport = false
        for _, obj in ipairs(CG:GetChildren()) do
            if obj.Name ~= "V555_Ultimate" and obj:IsA("ScreenGui") then
                obj.Visible = false
            end
        end
    else
        Notify("🚨", "إلغاء وضع الطوارئ!", 3)
        main.Visible = true
        lb.Visible = true
    end
end

-- =============================================
-- 🔥 دوال المطورين
-- =============================================
local function DevKick(p)
    if not isDev then Notify("⛔","فقط المطورين!",3) return end
    if not p or p==LP then return end
    pcall(function() p:Kick("تم طردك بواسطة المطور 🚫") end)
    Notify("👢🔥","تم طرد "..p.Name,2)
end

local function DevBan(p)
    if not isDev then Notify("⛔","فقط المطورين!",3) return end
    if not p or p==LP then return end
    pcall(function() p:Kick("🔒 تم حظرك بواسطة المطور") end)
    Notify("🔒🔥","تم حظر "..p.Name,2)
end

-- =============================================
-- 🎨 الواجهة الرئيسية
-- =============================================
local gui = Instance.new("ScreenGui", CG)
gui.Name = "V555_Ultimate"
gui.ResetOnSpawn = false

local main = Instance.new("Frame", gui)
main.Size = UDim2.new(0, 700, 0, 520)
main.Position = UDim2.new(0.5, -350, 0.5, -260)
main.BackgroundColor3 = Color3.fromRGB(10, 10, 15)
main.BorderSizePixel = 2
main.BorderColor3 = Color3.fromRGB(255, 215, 0)
main.Visible = true
Instance.new("UICorner", main).CornerRadius = UDim.new(0, 12)
main.Active = true
main.Draggable = true

-- ===== شريط العنوان =====
local tb = Instance.new("Frame", main)
tb.Size = UDim2.new(1, 0, 0, 40)
tb.BackgroundColor3 = Color3.fromRGB(20, 20, 30)
Instance.new("UICorner", tb).CornerRadius = UDim.new(0, 12)

local title = Instance.new("TextLabel", tb)
title.Size = UDim2.new(1, -120, 1, 0)
title.Position = UDim2.new(0, 5, 0, 0)
title.Text = "🔥 V555 Ultimate Advanced | " .. LP.Name .. " | 🇪🇬-🇯🇵-🇨🇳"
title.TextColor3 = Color3.fromRGB(255, 215, 0)
title.Font = Enum.Font.GothamBlack
title.TextSize = 12
title.BackgroundTransparency = 1
title.TextXAlignment = Enum.TextXAlignment.Left

local statsLabel = Instance.new("TextLabel", tb)
statsLabel.Size = UDim2.new(0, 250, 1, 0)
statsLabel.Position = UDim2.new(1, -260, 0, 0)
statsLabel.Text = "🛡️" .. ProtectionStats.KicksBlocked .. " | 💀" .. ProtectionStats.BansBlocked .. " | 🌀" .. ProtectionStats.FlingAttempts
statsLabel.TextColor3 = Color3.fromRGB(0, 255, 0)
statsLabel.Font = Enum.Font.Gotham
statsLabel.TextSize = 9
statsLabel.BackgroundTransparency = 1
statsLabel.TextXAlignment = Enum.TextXAlignment.Right

local close = Instance.new("TextButton", tb)
close.Size = UDim2.new(0, 25, 0, 22)
close.Position = UDim2.new(1, -28, 0.5, -11)
close.Text = "✕"
close.TextColor3 = Color3.new(1, 1, 1)
close.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
Instance.new("UICorner", close).CornerRadius = UDim.new(0, 5)
close.MouseButton1Click:Connect(function()
    gui:Destroy()
end)

-- ===== أزرار التبويب =====
local tabF = Instance.new("Frame", main)
tabF.Size = UDim2.new(1, 0, 0, 30)
tabF.Position = UDim2.new(0, 0, 0, 42)
tabF.BackgroundTransparency = 1

local tabs = {"⚡ HD Admin", "👑 مطورين", "📦 سكربتات", "🇨🇳 حماية", "🚨 طوارئ"}
local tabBtns = {}
for i, t in ipairs(tabs) do
    local b = Instance.new("TextButton", tabF)
    b.Size = UDim2.new(0.2, 0, 1, 0)
    b.Position = UDim2.new((i - 1) * 0.2, 0, 0, 0)
    b.Text = t
    b.TextColor3 = Color3.new(1, 1, 1)
    b.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
    b.Font = Enum.Font.GothamBold
    b.TextSize = 9
    Instance.new("UICorner", b).CornerRadius = UDim.new(0, 4)
    tabBtns[i] = b
end
tabBtns[1].BackgroundColor3 = Color3.fromRGB(0, 150, 0)

-- ===== محتويات التبويبات =====
local contents = {}
for i = 1, 5 do
    local c = Instance.new("ScrollingFrame", main)
    c.Size = UDim2.new(1, 0, 1, -75)
    c.Position = UDim2.new(0, 0, 0, 74)
    c.BackgroundTransparency = 1
    c.ScrollBarThickness = 3
    c.ScrollBarImageColor3 = Color3.fromRGB(255, 215, 0)
    c.Visible = (i == 1)
    contents[i] = c
end

-- =============================================
-- 📄 تبويب HD Admin
-- =============================================
local hdContent = contents[1]
local hdCanvas = Instance.new("Frame", hdContent)
hdCanvas.Size = UDim2.new(1, 0, 0, 0)
hdCanvas.BackgroundTransparency = 1

local cmdFrame = Instance.new("Frame", hdCanvas)
cmdFrame.Size = UDim2.new(0.96, 0, 0, 35)
cmdFrame.Position = UDim2.new(0.02, 0, 0, 5)
cmdFrame.BackgroundColor3 = Color3.fromRGB(15, 15, 25)
Instance.new("UICorner", cmdFrame).CornerRadius = UDim.new(0, 6)

local cmdBox = Instance.new("TextBox", cmdFrame)
cmdBox.Size = UDim2.new(0.65, 0, 1, 0)
cmdBox.Position = UDim2.new(0, 5, 0, 0)
cmdBox.PlaceholderText = "الأمر (مثال: kick Alskndrany_9999)"
cmdBox.Text = ""
cmdBox.TextColor3 = Color3.new(1, 1, 1)
cmdBox.BackgroundColor3 = Color3.fromRGB(30, 30, 40)
cmdBox.Font = Enum.Font.Gotham
cmdBox.TextSize = 10
cmdBox.BorderSizePixel = 0
Instance.new("UICorner", cmdBox).CornerRadius = UDim.new(0, 5)

local cmdBtn = Instance.new("TextButton", cmdFrame)
cmdBtn.Size = UDim2.new(0.3, 0, 0.85, 0)
cmdBtn.Position = UDim2.new(0.67, 0, 0.5, -14)
cmdBtn.Text = "▶ تنفيذ"
cmdBtn.TextColor3 = Color3.new(1, 1, 1)
cmdBtn.BackgroundColor3 = Color3.fromRGB(0, 150, 200)
cmdBtn.Font = Enum.Font.GothamBold
cmdBtn.TextSize = 10
Instance.new("UICorner", cmdBtn).CornerRadius = UDim.new(0, 5)
cmdBtn.MouseButton1Click:Connect(function()
    local text = cmdBox.Text
    if text and text ~= "" then
        local parts = {}
        for word in text:gmatch("%S+") do
            table.insert(parts, word)
        end
        if #parts >= 2 then
            local cmd = parts[1]
            local target = parts[2]
            local args = ""
            for i = 3, #parts do
                args = args .. parts[i] .. " "
            end
            local success = ExecuteHDCommand(cmd, target, args)
            Notify(success and "⚡" or "❌", success and "تم تنفيذ: " .. cmd or "فشل التنفيذ", 2)
        else
            Notify("⚠️", "الصيغة: الأمر اسم_اللاعب", 2)
        end
    end
end)

-- قائمة اللاعبين
local function BuildPlayerList()
    for _, c in ipairs(hdCanvas:GetChildren()) do
        if c.Name == "PlayerRow" then c:Destroy() end
    end

    local y = 45
    for _, p in ipairs(Players:GetPlayers()) do
        if p ~= LP then
            local row = Instance.new("Frame", hdCanvas)
            row.Name = "PlayerRow"
            row.Size = UDim2.new(0.96, 0, 0, 30)
            row.Position = UDim2.new(0.02, 0, 0, y)
            row.BackgroundColor3 = Color3.fromRGB(15, 15, 25)
            Instance.new("UICorner", row).CornerRadius = UDim.new(0, 5)

            local name = Instance.new("TextLabel", row)
            name.Size = UDim2.new(0.15, 0, 1, 0)
            name.Position = UDim2.new(0, 5, 0, 0)
            name.Text = "👤 " .. p.Name
            name.TextColor3 = Color3.new(1, 1, 1)
            name.Font = Enum.Font.Gotham
            name.TextSize = 9
            name.BackgroundTransparency = 1
            name.TextXAlignment = Enum.TextXAlignment.Left

            local function qBtn(text, color, x, action)
                local b = Instance.new("TextButton", row)
                b.Size = UDim2.new(0.09, 0, 0.8, 0)
                b.Position = UDim2.new(x, 0, 0.5, -11)
                b.Text = text
                b.TextColor3 = Colo