-- ==========================================
-- R SCRIPT | ZORO RAVEN EDITION
-- Telegram: https://t.me/ZORO_Revn
-- ==========================================

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

-- الشاشة الرئيسية
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "ZoroRaven_R_UI"
ScreenGui.Parent = game:GetService("CoreGui") or LocalPlayer:WaitForChild("PlayerGui")

-- الإطار الرئيسي (لون كحلي نيون ملكي)
local MainFrame = Instance.new("Frame")
MainFrame.Parent = ScreenGui
MainFrame.Size = UDim2.new(0, 520, 0, 430)
MainFrame.Position = UDim2.new(0.5, -260, 0.5, -215)
MainFrame.BackgroundColor3 = Color3.fromRGB(10, 14, 26)
MainFrame.BorderSizePixel = 0
MainFrame.Active = true
MainFrame.Draggable = true

local MainCorner = Instance.new("UICorner")
MainCorner.CornerRadius = UDim.new(0, 10)
MainCorner.Parent = MainFrame

local MainStroke = Instance.new("UIStroke")
MainStroke.Parent = MainFrame
MainStroke.Color = Color3.fromRGB(0, 170, 255) -- أزرق نيون فخم
MainStroke.Thickness = 2.5

-- الهيدر العلوي
local Header = Instance.new("Frame")
Header.Parent = MainFrame
Header.Size = UDim2.new(1, 0, 0, 65)
Header.BackgroundColor3 = Color3.fromRGB(16, 22, 40)

local HeaderCorner = Instance.new("UICorner")
HeaderCorner.CornerRadius = UDim.new(0, 10)
HeaderCorner.Parent = Header

local CenterZoro = Instance.new("TextLabel")
CenterZoro.Parent = Header
CenterZoro.Size = UDim2.new(1, 0, 0, 30)
CenterZoro.Position = UDim2.new(0, 0, 0, 5)
CenterZoro.Text = "Z O R O"
CenterZoro.TextColor3 = Color3.fromRGB(0, 210, 255)
CenterZoro.TextSize = 24
CenterZoro.Font = Enum.Font.FredokaOne
CenterZoro.TextXAlignment = Enum.TextXAlignment.Center

local SubTitle = Instance.new("TextLabel")
SubTitle.Parent = Header
SubTitle.Size = UDim2.new(1, 0, 0, 20)
SubTitle.Position = UDim2.new(0, 0, 0, 35)
SubTitle.Text = "ZORO RAVEN SCRIPT"
SubTitle.TextColor3 = Color3.fromRGB(180, 210, 255)
SubTitle.TextSize = 13
SubTitle.Font = Enum.Font.SourceSansBold
SubTitle.TextXAlignment = Enum.TextXAlignment.Center

-- Sidebar القائمة الجانبية
local Sidebar = Instance.new("Frame")
Sidebar.Parent = MainFrame
Sidebar.Position = UDim2.new(0, 10, 0, 75)
Sidebar.Size = UDim2.new(0, 130, 0, 345)
Sidebar.BackgroundTransparency = 1

local SidebarLayout = Instance.new("UIListLayout")
SidebarLayout.Parent = Sidebar
SidebarLayout.SortOrder = Enum.SortOrder.LayoutOrder
SidebarLayout.Padding = UDim.new(0, 6)

local Container = Instance.new("Frame")
Container.Parent = MainFrame
Container.Position = UDim2.new(0, 150, 0, 75)
Container.Size = UDim2.new(0, 360, 0, 345)
Container.BackgroundTransparency = 1

local Pages = {}

local function CreateTab(name)
    local Page = Instance.new("ScrollingFrame")
    Page.Parent = Container
    Page.Size = UDim2.new(1, 0, 1, 0)
    Page.BackgroundTransparency = 1
    Page.Visible = false
    Page.ScrollBarThickness = 3
    Page.ScrollBarImageColor3 = Color3.fromRGB(0, 170, 255)

    local PageLayout = Instance.new("UIListLayout")
    PageLayout.Parent = Page
    PageLayout.SortOrder = Enum.SortOrder.LayoutOrder
    PageLayout.Padding = UDim.new(0, 6)

    Pages[name] = Page

    local TabBtn = Instance.new("TextButton")
    TabBtn.Parent = Sidebar
    TabBtn.Size = UDim2.new(1, 0, 0, 35)
    TabBtn.BackgroundColor3 = Color3.fromRGB(20, 28, 50)
    TabBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
    TabBtn.Text = name
    TabBtn.TextSize = 12
    TabBtn.Font = Enum.Font.SourceSansBold

    local BtnCorner = Instance.new("UICorner")
    BtnCorner.CornerRadius = UDim.new(0, 6)
    BtnCorner.Parent = TabBtn

    TabBtn.MouseButton1Click:Connect(function()
        for _, p in pairs(Pages) do p.Visible = false end
        Page.Visible = true
    end)

    return Page
end

-- إنشاء الأقسام
local TabAbout = CreateTab("من نحن")
local TabPlayer = CreateTab("اللاعب والحركة")
local TabVisuals = CreateTab("الرؤية والمراقبة")
local TabTeleport = CreateTab("الانتقال والتشيك بوينت")
local TabAnimations = CreateTab("المشيات الرسمية")

Pages["من نحن"].Visible = true

-- صناعة الأدوات والمدخلات
local function CreateInput(parent, placeholder, callback)
    local Input = Instance.new("TextBox")
    Input.Parent = parent
    Input.Size = UDim2.new(1, -10, 0, 32)
    Input.BackgroundColor3 = Color3.fromRGB(18, 25, 45)
    Input.TextColor3 = Color3.fromRGB(255, 255, 255)
    Input.PlaceholderText = placeholder
    Input.PlaceholderColor3 = Color3.fromRGB(120, 150, 190)
    Input.Font = Enum.Font.SourceSans
    Input.TextSize = 13
    
    local Corner = Instance.new("UICorner")
    Corner.CornerRadius = UDim.new(0, 6)
    Corner.Parent = Input

    Input.FocusLost:Connect(function() callback(Input.Text) end)
end

local function CreateButton(parent, text, callback)
    local Btn = Instance.new("TextButton")
    Btn.Parent = parent
    Btn.Size = UDim2.new(1, -10, 0, 35)
    Btn.BackgroundColor3 = Color3.fromRGB(25, 36, 65)
    Btn.TextColor3 = Color3.fromRGB(255, 255, 255)
    Btn.Text = text
    Btn.Font = Enum.Font.SourceSansBold
    Btn.TextSize = 13

    local Corner = Instance.new("UICorner")
    Corner.CornerRadius = UDim.new(0, 6)
    Corner.Parent = Btn

    Btn.MouseButton1Click:Connect(function() callback(Btn) end)
    return Btn
end

-- ==========================================
-- 1. قسم [ من نحن ]
-- ==========================================
local AboutText = Instance.new("TextLabel")
AboutText.Parent = TabAbout
AboutText.Size = UDim2.new(1, -10, 0, 100)
AboutText.BackgroundColor3 = Color3.fromRGB(18, 26, 48)
AboutText.TextColor3 = Color3.fromRGB(210, 230, 255)
AboutText.Text = "أهلاً بكم في ZORO RAVEN SCRIPT\nأفضل واجهة مميزة لتطوير حركة وتجربة روبلوكس.\nتابعونا على قناة التليجرام للحصول على أحدث التحديثات والسكريبتات الحصرية!"
AboutText.Font = Enum.Font.SourceSansBold
AboutText.TextSize = 13
AboutText.TextWrapped = true

local AboutCorner = Instance.new("UICorner")
AboutCorner.CornerRadius = UDim.new(0, 8)
AboutCorner.Parent = AboutText

CreateButton(TabAbout, "نسخ رابط التليجرام (ZORO_Revn)", function(btn)
    if setclipboard then
        setclipboard("https://t.me/ZORO_Revn")
        btn.Text = "تم نسخ رابط t.me/ZORO_Revn بنجاح!"
        task.wait(2)
        btn.Text = "نسخ رابط التليجرام (ZORO_Revn)"
    end
end)

CreateButton(TabAbout, "إعادة الانضمام (Rejoin)", function()
    TeleportService:TeleportToPlaceInstance(game.PlaceId, game.JobId, LocalPlayer)
end)

CreateButton(TabAbout, "تغيير السيرفر (Server Hop)", function()
    TeleportService:Teleport(game.PlaceId, LocalPlayer)
end)

-- ==========================================
-- 2. قسم اللاعب والحركة
-- ==========================================
local CustomSpeed = 16
local CustomJump = 50
local InfJumpEnabled = false
local NoclipEnabled = false

CreateInput(TabPlayer, "حدد السرعة برقم...", function(val)
    local num = tonumber(val)
    if num then CustomSpeed = num end
end)

CreateInput(TabPlayer, "حدد قوة القفز برقم...", function(val)
    local num = tonumber(val)
    if num then CustomJump = num end
end)

CreateButton(TabPlayer, "قفز لا نهائي: معطل", function(btn)
    InfJumpEnabled = not InfJumpEnabled
    btn.Text = "قفز لا نهائي: " .. (InfJumpEnabled and "مفعل" or "معطل")
    btn.BackgroundColor3 = InfJumpEnabled and Color3.fromRGB(0, 150, 220) or Color3.fromRGB(25, 36, 65)
end)

CreateButton(TabPlayer, "اختراق الجدران (Noclip): معطل", function(btn)
    NoclipEnabled = not NoclipEnabled
    btn.Text = "اختراق الجدران: " .. (NoclipEnabled and "مفعل" or "معطل")
    btn.BackgroundColor3 = NoclipEnabled and Color3.fromRGB(0, 150, 220) or Color3.fromRGB(25, 36, 65)
end)

CreateButton(TabPlayer, "تفعيل الإخفاء (Invisibility)", function()
    if LocalPlayer.Character then
        for _, v in pairs(LocalPlayer.Character:GetDescendants()) do
            if v:IsA("BasePart") or v:IsA("Decal") then v.Transparency = 1 end
        end
    end
end)

CreateButton(TabPlayer, "إرجاع الشخصية طبيعية (Un-Invis)", function()
    if LocalPlayer.Character then
        for _, v in pairs(LocalPlayer.Character:GetDescendants()) do
            if v:IsA("BasePart") then
                v.Transparency = (v.Name == "HumanoidRootPart") and 1 or 0
            elseif v:IsA("Decal") then
                v.Transparency = 0
            end
        end
    end
end)

-- زر تفعيل الشفت لوك
local ShiftLockBtn = nil
CreateButton(TabPlayer, "تفعيل/إظهار زر Shift Lock", function()
    if not ShiftLockBtn then
        ShiftLockBtn = Instance.new("TextButton")
        ShiftLockBtn.Parent = ScreenGui
        ShiftLockBtn.Size = UDim2.new(0, 65, 0, 65)
        ShiftLockBtn.Position = UDim2.new(0.85, 0, 0.7, 0)
        ShiftLockBtn.BackgroundColor3 = Color3.fromRGB(0, 170, 255)
        ShiftLockBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
        ShiftLockBtn.Text = "SHIFT"
        ShiftLockBtn.Font = Enum.Font.FredokaOne
        ShiftLockBtn.TextSize = 14
        ShiftLockBtn.Active = true
        ShiftLockBtn.Draggable = true

        local Corner = Instance.new("UICorner")
        Corner.CornerRadius = UDim.new(1, 0)
        Corner.Parent = ShiftLockBtn

        local locked = false
        ShiftLockBtn.MouseButton1Click:Connect(function()
            locked = not locked
            if LocalPlayer.Character and LocalPlayer.Character:FindFirstChild("Humanoid") then
                LocalPlayer.Character.Humanoid.AutoRotate = not locked
            end
            ShiftLockBtn.BackgroundColor3 = locked and Color3.fromRGB(0, 220, 120) or Color3.fromRGB(0, 170, 255)
        end)
    else
        ShiftLockBtn.Visible = not ShiftLockBtn.Visible
    end
end)

-- ==========================================
-- 3. قسم الرؤية والمراقبة
-- ==========================================
local EspEnabled = false
local EspHighlights = {}

CreateButton(TabVisuals, "رؤية جميع اللاعبين لون أبيض (White ESP)", function(btn)
    EspEnabled = not EspEnabled
    btn.Text = "رؤية اللاعبين (ESP): " .. (EspEnabled and "مفعل" or "معطل")
    btn.BackgroundColor3 = EspEnabled and Color3.fromRGB(0, 150, 220) or Color3.fromRGB(25, 36, 65)

    if EspEnabled then
        for _, player in pairs(Players:GetPlayers()) do
            if player ~= LocalPlayer and player.Character then
                local highlight = Instance.new("Highlight")
                highlight.Parent = player.Character
                highlight.FillColor = Color3.fromRGB(255, 255, 255)
                highlight.OutlineColor = Color3.fromRGB(0, 170, 255)
                highlight.FillTransparency = 0.2
                table.insert(EspHighlights, highlight)
            end
        end
    else
        for _, hl in pairs(EspHighlights) do pcall(function() hl:Destroy() end) end
        EspHighlights = {}
    end
end)

CreateInput(TabVisuals, "اكتب يوزر اللاعب لمراقبته...", function(username)
    if username and username ~= "" then
        for _, p in pairs(Players:GetPlayers()) do
            if string.sub(string.lower(p.Name), 1, #username) == string.lower(username) or string.sub(string.lower(p.DisplayName), 1, #username) == string.lower(username) then
                if p.Character and p.Character:FindFirstChild("Humanoid") then
                    workspace.CurrentCamera.CameraSubject = p.Character.Humanoid
                end
                break
            end
        end
    end
end)

CreateButton(TabVisuals, "إرجاع الكاميرا لشخصيتي", function()
    if LocalPlayer.Character and LocalPlayer.Character:FindFirstChild("Humanoid") then
        workspace.CurrentCamera.CameraSubject = LocalPlayer.Character.Humanoid
    end
end)

CreateButton(TabVisuals, "تفعيل شادر", function()
    local bloom = Instance.new("BloomEffect", Lighting)
    bloom.Intensity = 0.6
    bloom.Size = 22
    Lighting.GlobalShadows = true
end)

local VisionNotice = Instance.new("TextLabel")
VisionNotice.Parent = TabVisuals
VisionNotice.Size = UDim2.new(1, -10, 0, 40)
VisionNotice.BackgroundColor3 = Color3.fromRGB(18, 26, 48)
VisionNotice.TextColor3 = Color3.fromRGB(0, 210, 255)
VisionNotice.Text = "سيتم تنزيل أشياء جديدة وقوية راح تنزل قريباً"
VisionNotice.Font = Enum.Font.SourceSansBold
VisionNotice.TextSize = 14

local VisionNoticeCorner = Instance.new("UICorner")
VisionNoticeCorner.CornerRadius = UDim.new(0, 6)
VisionNoticeCorner.Parent = VisionNotice

-- ==========================================
-- 4. قسم الانتقال والتشيك بوينت
-- ==========================================
local SavedCheckpoint = nil

CreateButton(TabTeleport, "حفظ التشيك بوينت الحالي", function(btn)
    if LocalPlayer.Character and LocalPlayer.Character:FindFirstChild("HumanoidRootPart") then
        SavedCheckpoint = LocalPlayer.Character.HumanoidRootPart.CFrame
        btn.Text = "تم حفظ التشيك بوينت!"
        task.wait(1.5)
        btn.Text = "حفظ التشيك بوينت الحالي"
    end
end)

CreateButton(TabTeleport, "انتقال للتشيك بوينت المحفوظ", function()
    if SavedCheckpoint and LocalPlayer.Character and LocalPlayer.Character:FindFirstChild("HumanoidRootPart") then
        LocalPlayer.Character.HumanoidRootPart.CFrame = SavedCheckpoint
    end
end)

CreateButton(TabTeleport, "أداة الانتقال الفوري (Click TP)", function()
    local mouse = LocalPlayer:GetMouse()
    local tool = Instance.new("Tool")
    tool.Name = "Zoro Teleport"
    tool.RequiresHandle = false
    tool.Parent = LocalPlayer.Backpack
    
    tool.Activated:Connect(function()
        if mouse.Hit and LocalPlayer.Character and LocalPlayer.Character:FindFirstChild("HumanoidRootPart") then
            LocalPlayer.Character.HumanoidRootPart.CFrame = CFrame.new(mouse.Hit.Position + Vector3.new(0, 3, 0))
        end
    end)
end)

-- ==========================================
-- 5. قسم المشيات
-- ==========================================
local WalkNotice = Instance.new("TextLabel")
WalkNotice.Parent = TabAnimations
WalkNotice.Size = UDim2.new(1, -10, 0, 50)
WalkNotice.BackgroundColor3 = Color3.fromRGB(18, 26, 48)
WalkNotice.TextColor3 = Color3.fromRGB(0, 210, 255)
WalkNotice.Text = "قائمة المشيات فارغة حالياً..\nسيتم إضافة مشيات حصرية وقوية قريباً!"
WalkNotice.Font = Enum.Font.SourceSansBold
WalkNotice.TextSize = 14

local WalkNoticeCorner = Instance.new("UICorner")
WalkNoticeCorner.CornerRadius = UDim.new(0, 6)
WalkNoticeCorner.Parent = WalkNotice

-- ==========================================
-- الأنظمة البرمجية الفعالة
-- ==========================================
LocalPlayer.CharacterAdded:Connect(function(char)
    if SavedCheckpoint then
        char:WaitForChild("HumanoidRootPart").CFrame = SavedCheckpoint
    end
end)

UserInputService.JumpRequest:Connect(function()
    if InfJumpEnabled and LocalPlayer.Character and LocalPlayer.Character:FindFirstChildOfClass("Humanoid") then
        LocalPlayer.Character:FindFirstChildOfClass("Humanoid"):ChangeState("Jumping")
    end
end)

RunService.Stepped:Connect(function()
    local char = LocalPlayer.Character
    if char then
        local hum = char:FindFirstChildOfClass("Humanoid")
        if hum then
            hum.WalkSpeed = CustomSpeed
            hum.JumpPower = CustomJump
        end
        
        if NoclipEnabled then
            for _, part in pairs(char:GetDescendants()) do
                if part:IsA("BasePart") then part.CanCollide = false end
            end
        end
    end
end)

-- ==========================================
-- الزر الدائري الخارجي بالحرف R الأبيض الواضح جداً
-- ==========================================
local OuterCircle = Instance.new("TextButton")
OuterCircle.Parent = ScreenGui
OuterCircle.Size = UDim2.new(0, 60, 0, 60)
OuterCircle.Position = UDim2.new(0, 20, 0.35, 0)
OuterCircle.Text = "R"
OuterCircle.TextColor3 = Color3.fromRGB(255, 255, 255) -- حرف R أبيض ناصع بوضوح عالي
OuterCircle.Font = Enum.Font.FredokaOne
OuterCircle.TextSize = 30
OuterCircle.BackgroundColor3 = Color3.fromRGB(10, 14, 26)
OuterCircle.Active = true
OuterCircle.Draggable = true

local CircleCorner = Instance.new("UICorner")
CircleCorner.CornerRadius = UDim.new(1, 0)
CircleCorner.Parent = OuterCircle

local CircleStroke = Instance.new("UIStroke")
CircleStroke.Parent = OuterCircle
CircleStroke.Color = Color3.fromRGB(0, 170, 255)
CircleStroke.Thickness = 3

OuterCircle.MouseButton1Click:Connect(function()
    MainFrame.Visible = not MainFrame.Visible
end)