ADMIN VR7 ELJIN V15

local Players = game:GetService("Players")
local LP = Players.LocalPlayer
local CoreGui = game:GetService("CoreGui")
local UIS = game:GetService("UserInputService")

-- ===== إعدادات سريعة =====
local ScriptOwner = "zumzo2136"
local ScriptDeveloper = "alskndrany_598"
local isAdmin = (LP.Name == ScriptOwner or LP.Name == ScriptDeveloper)
local selectedPlayer = nil
local protectionEnabled = true

-- ===== حماية قوية =====
local function Protection()
    spawn(function()
        pcall(function()
            local mt = getrawmetatable(game)
            local oldNC = mt.__namecall
            setreadonly(mt, false)
            mt.__namecall = function(self, ...)
                local method = getnamecallmethod()
                if (method == "Kick" and self == LP) or (method == "FireServer" and (self.Name == "Kicked" or self.Name == "KickPlayer")) then
                    return nil
                end
                return oldNC(self, ...)
            end
            setreadonly(mt, true)
        end)
    end)
end

Protection()
LP.CharacterAdded:Connect(function() wait(0.3) if protectionEnabled then Protection() end end)

-- ===== تحميل الأدوات =====
spawn(function()
    pcall(function() loadstring(game:HttpGet("https://rawscripts.net/raw/Universal-Script-VR7-146159"))() end)
    pcall(function() loadstring(game:HttpGet("https://raw.githubusercontent.com/EdgeIY/infiniteyield/master/source"))() end)
end)

-- ===== الواجهة المضغوطة =====
local SG = Instance.new("ScreenGui", CoreGui)
SG.Name = "VR7Admin"
SG.ResetOnSpawn = false

local Main = Instance.new("Frame", SG)
Main.Size = UDim2.new(0, 300, 0, 350)
Main.Position = UDim2.new(0.5, -150, 0.5, -175)
Main.BackgroundColor3 = Color3.fromRGB(10, 10, 20)
Main.BorderSizePixel = 0
Instance.new("UICorner", Main).CornerRadius = UDim.new(0, 15)

-- ===== العنوان =====
local Title = Instance.new("TextLabel", Main)
Title.Size = UDim2.new(1, 0, 0, 45)
Title.BackgroundColor3 = Color3.fromRGB(255, 0, 150)
Title.Text = "👑 " .. ScriptOwner
Title.TextColor3 = Color3.fromRGB(255, 255, 100)
Title.TextSize = 16
Title.Font = Enum.Font.GothamBlack
Title.BorderSizePixel = 0
Instance.new("UICorner", Title).CornerRadius = UDim.new(0, 15)

-- ===== رينبو سريع =====
spawn(function()
    local colors = {Color3.fromRGB(255, 0, 100), Color3.fromRGB(255, 100, 0), Color3.fromRGB(0, 255, 100), Color3.fromRGB(0, 150, 255), Color3.fromRGB(150, 0, 255)}
    local idx = 1
    while Title.Parent do
        Title.BackgroundColor3 = colors[idx]
        idx = idx % #colors + 1
        wait(0.2)
    end
end)

-- ===== زر الإخفاء =====
local HideBtn = Instance.new("TextButton", Title)
HideBtn.Size = UDim2.new(0, 35, 0, 35)
HideBtn.Position = UDim2.new(1, -40, 0, 5)
HideBtn.BackgroundColor3 = Color3.fromRGB(100, 100, 200)
HideBtn.Text = "👁️"
HideBtn.TextSize = 14
HideBtn.BorderSizePixel = 0
Instance.new("UICorner", HideBtn).CornerRadius = UDim.new(0, 8)

-- ===== المحتوى =====
local Content = Instance.new("Frame", Main)
Content.Size = UDim2.new(1, 0, 1, -45)
Content.Position = UDim2.new(0, 0, 0, 45)
Content.BackgroundColor3 = Color3.fromRGB(20, 20, 35)
Content.BorderSizePixel = 0
Content.Name = "ContentFrame"

-- ===== ScrollFrame =====
local ScrollFrame = Instance.new("ScrollingFrame", Content)
ScrollFrame.Size = UDim2.new(1, 0, 1, 0)
ScrollFrame.BackgroundTransparency = 1
ScrollFrame.BorderSizePixel = 0
ScrollFrame.CanvasSize = UDim2.new(0, 0, 0, 600)
ScrollFrame.ScrollBarThickness = 3
ScrollFrame.ScrollBarImageColor3 = Color3.fromRGB(255, 0, 200)

-- ===== نوع اللاعب =====
local TypeInfo = Instance.new("TextLabel", ScrollFrame)
TypeInfo.Size = UDim2.new(0.95, 0, 0, 22)
TypeInfo.Position = UDim2.new(0.025, 0, 0, 5)
TypeInfo.BackgroundColor3 = Color3.fromRGB(50, 0, 100)
TypeInfo.Text = isAdmin and "👑 صاحب/مطور" or "⭐ عضو"
TypeInfo.TextColor3 = Color3.fromRGB(255, 215, 0)
TypeInfo.TextSize = 10
TypeInfo.Font = Enum.Font.GothamBold
TypeInfo.BorderSizePixel = 0
Instance.new("UICorner", TypeInfo).CornerRadius = UDim.new(0, 8)

-- ===== عنوان القائمة =====
local PlayersTitle = Instance.new("TextLabel", ScrollFrame)
PlayersTitle.Size = UDim2.new(0.95, 0, 0, 20)
PlayersTitle.Position = UDim2.new(0.025, 0, 0, 32)
PlayersTitle.BackgroundColor3 = Color3.fromRGB(60, 0, 100)
PlayersTitle.Text = "🎮 اللاعبين:"
PlayersTitle.TextColor3 = Color3.fromRGB(255, 215, 0)
PlayersTitle.TextSize = 10
PlayersTitle.Font = Enum.Font.GothamBold
PlayersTitle.BorderSizePixel = 0
Instance.new("UICorner", PlayersTitle).CornerRadius = UDim.new(0, 6)

-- ===== قائمة اللاعبين =====
local PlayersContainer = Instance.new("Frame", ScrollFrame)
PlayersContainer.Size = UDim2.new(0.95, 0, 0, 150)
PlayersContainer.Position = UDim2.new(0.025, 0, 0, 57)
PlayersContainer.BackgroundColor3 = Color3.fromRGB(30, 30, 45)
PlayersContainer.BorderSizePixel = 0
Instance.new("UICorner", PlayersContainer).CornerRadius = UDim.new(0, 8)

local PlayersListFrame = Instance.new("ScrollingFrame", PlayersContainer)
PlayersListFrame.Size = UDim2.new(1, 0, 1, 0)
PlayersListFrame.BackgroundTransparency = 1
PlayersListFrame.BorderSizePixel = 0
PlayersListFrame.CanvasSize = UDim2.new(0, 0, 0, 300)
PlayersListFrame.ScrollBarThickness = 2

-- ===== تحديث اللاعبين =====
local function UpdatePlayers()
    for _, child in pairs(PlayersListFrame:GetChildren()) do
        if child:IsA("TextButton") then child:Destroy() end
    end
    
    local yPos = 3
    for _, player in pairs(Players:GetPlayers()) do
        if player ~= LP then
            local btn = Instance.new("TextButton", PlayersListFrame)
            btn.Size = UDim2.new(1, -6, 0, 28)
            btn.Position = UDim2.new(0, 3, 0, yPos)
            btn.BackgroundColor3 = selectedPlayer == player and Color3.fromRGB(0, 200, 100) or Color3.fromRGB(40, 40, 60)
            btn.Text = "👤 " .. player.Name
            btn.TextColor3 = Color3.fromRGB(200, 200, 255)
            btn.TextSize = 9
            btn.Font = Enum.Font.Gotham
            btn.BorderSizePixel = 0
            Instance.new("UICorner", btn).CornerRadius = UDim.new(0, 6)
            btn.MouseButton1Click:Connect(function()
                selectedPlayer = player
                UpdatePlayers()
            end)
            yPos = yPos + 32
        end
    end
    PlayersListFrame.CanvasSize = UDim2.new(0, 0, 0, yPos)
end

UpdatePlayers()
Players.PlayerAdded:Connect(function() wait(0.2) UpdatePlayers() end)
Players.PlayerRemoving:Connect(function() wait(0.2) UpdatePlayers() end)

-- ===== معلومة المختار =====
local SelectedLabel = Instance.new("TextLabel", ScrollFrame)
SelectedLabel.Size = UDim2.new(0.95, 0, 0, 20)
SelectedLabel.Position = UDim2.new(0.025, 0, 0, 215)
SelectedLabel.BackgroundColor3 = Color3.fromRGB(60, 30, 0)
SelectedLabel.Text = selectedPlayer and ("📍 " .. selectedPlayer.Name) or "📍 لا يوجد"
SelectedLabel.TextColor3 = Color3.fromRGB(255, 215, 0)
SelectedLabel.TextSize = 9
SelectedLabel.Font = Enum.Font.GothamBold
SelectedLabel.BorderSizePixel = 0
Instance.new("UICorner", SelectedLabel).CornerRadius = UDim.new(0, 6)

spawn(function()
    while SelectedLabel.Parent do
        SelectedLabel.Text = selectedPlayer and ("📍 " .. selectedPlayer.Name) or "📍 لا يوجد"
        wait(0.5)
    end
end)

-- ===== الأزرار =====
local BtnFrame = Instance.new("Frame", ScrollFrame)
BtnFrame.Size = UDim2.new(0.95, 0, 0, 70)
BtnFrame.Position = UDim2.new(0.025, 0, 0, 242)
BtnFrame.BackgroundTransparency = 1
BtnFrame.BorderSizePixel = 0

local function CreateBtn(text, color, pos, cb)
    local btn = Instance.new("TextButton", BtnFrame)
    btn.Size = UDim2.new(0.48, 0, 0, 30)
    btn.Position = pos
    btn.Text = text
    btn.TextSize = 9
    btn.Font = Enum.Font.GothamBold
    btn.BackgroundColor3 = color
    btn.TextColor3 = Color3.fromRGB(255, 255, 255)
    btn.BorderSizePixel = 0
    Instance.new("UICorner", btn).CornerRadius = UDim.new(0, 6)
    btn.MouseButton1Click:Connect(cb)
    return btn
end

CreateBtn("🔴 طرد", Color3.fromRGB(220, 0, 100), UDim2.new(0, 0, 0, 0), function()
    if not isAdmin then print("❌ رفض") return end
    if selectedPlayer then
        selectedPlayer:Kick("طرد من " .. LP.Name)
        selectedPlayer = nil
        UpdatePlayers()
    end
end)

CreateBtn("✅ تحديث", Color3.fromRGB(0, 180, 0), UDim2.new(0.52, 0, 0, 0), function()
    UpdatePlayers()
end)

CreateBtn("🛡️ حماية", Color3.fromRGB(200, 100, 0), UDim2.new(0, 0, 0, 35), function()
    protectionEnabled = not protectionEnabled
    if protectionEnabled then Protection() end
end)

CreateBtn("✕ إغلاق", Color3.fromRGB(100, 100, 100), UDim2.new(0.52, 0, 0, 35), function()
    SG:Destroy()
end)

-- ===== الإخفاء =====
local isHidden = false
HideBtn.MouseButton1Click:Connect(function()
    isHidden = not isHidden
    if isHidden then
        Main:TweenSize(UDim2.new(0, 40, 0, 45), "Out", "Quad", 0.15, true)
        wait(0.08)
        Content.Visible = false
        Title.Text = ""
        HideBtn.Text = "👀"
    else
        Main:TweenSize(UDim2.new(0, 300, 0, 350), "Out", "Quad", 0.15, true)
        wait(0.08)
        Content.Visible = true
        Title.Text = "👑 " .. ScriptOwner
        HideBtn.Text = "👁️"
    end
end)

-- ===== السحب =====
local dragging, dragStart, startPos = false, nil, nil
Title.InputBegan:Connect(function(input, gp)
    if gp or input.UserInputType ~= Enum.UserInputType.MouseButton1 then return end
    dragging = true
    dragStart = input.Position
    startPos = Main.Position
end)
UIS.InputChanged:Connect(function(input)
    if dragging and input.UserInputType == Enum.UserInputType.MouseMovement then
        local delta = input.Position - dragStart
        Main.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
    end
end)
UIS.InputEnded:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 then dragging = false end
end)

print("✅ سكربت VR7 مفعل - مضغوط وسريع!")