Safe Chest Farm (AFK)

-- [[ Blox Fruits - Ultimate Protected Chest Farm ]] --
local Players = game:GetService("Players")
local Workspace = game:GetService("Workspace")
local TweenService = game:GetService("TweenService")
local VirtualUser = game:GetService("VirtualUser")
local CoreGui = game:GetService("CoreGui")

local Player = Players.LocalPlayer

-- حماية مضاعفة وقوية جداً ضد الطرد بسبب الخمول (Anti-AFK Pro)
if not getgenv().AntiKickLoaded then
    getgenv().AntiKickLoaded = true
    task.spawn(function()
        while true do
            pcall(function()
                for _, connection in pairs(getconnections(Player.Idled)) do
                    connection:Disable()
                end
                VirtualUser:CaptureController()
                VirtualUser:ClickButton2(Vector2.new())
            end)
            task.wait(50)
        end
    end)
end

-- تنظيف الواجهة القديمة إن وجدت
local targetGui = CoreGui:FindFirstChild("ProChestGUI") or Player.PlayerGui:FindFirstChild("ProChestGUI")
if targetGui then targetGui:Destroy() end

-- واجهة مستخدم مصغرة، أنيقة، وضد الاختفاء
local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "ProChestGUI"
ScreenGui.ResetOnSpawn = false
ScreenGui.Parent = CoreGui

local MainFrame = Instance.new("Frame")
MainFrame.Size = UDim2.new(0, 210, 0, 100)
MainFrame.Position = UDim2.new(0.05, 0, 0.2, 0)
MainFrame.BackgroundColor3 = Color3.fromRGB(15, 15, 20)
MainFrame.BorderSizePixel = 0
MainFrame.Active = true
MainFrame.Draggable = true
MainFrame.Parent = ScreenGui

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

local TitleBar = Instance.new("TextLabel")
TitleBar.Size = UDim2.new(1, 0, 0, 28)
TitleBar.BackgroundColor3 = Color3.fromRGB(25, 25, 32)
TitleBar.Text = "  Safe Chest Farm [AFK]"
TitleBar.TextColor3 = Color3.fromRGB(255, 255, 255)
TitleBar.TextSize, TitleBar.Font = 12, Enum.Font.SourceSansBold
TitleBar.TextXAlignment = Enum.TextXAlignment.Left
TitleBar.Parent = MainFrame

local TitleCorner = Instance.new("UICorner")
TitleCorner.CornerRadius = UDim.new(0, 8)
TitleCorner.Parent = TitleBar

local ToggleButton = Instance.new("TextButton")
ToggleButton.Size = UDim2.new(0.9, 0, 0, 30)
ToggleButton.Position = UDim2.new(0.05, 0, 0.35, 0)
ToggleButton.BackgroundColor3 = Color3.fromRGB(0, 170, 127)
ToggleButton.Text = "تشغيل الفرم (OFF)"
ToggleButton.TextColor3 = Color3.fromRGB(255, 255, 255)
ToggleButton.TextSize, ToggleButton.Font = 12, Enum.Font.SourceSansBold
ToggleButton.Parent = MainFrame

local ButtonCorner = Instance.new("UICorner")
ButtonCorner.CornerRadius = UDim.new(0, 6)
ButtonCorner.Parent = ToggleButton

local StatusLabel = Instance.new("TextLabel")
StatusLabel.Size = UDim2.new(0.9, 0, 0, 22)
StatusLabel.Position = UDim2.new(0.05, 0, 0.72, 0)
StatusLabel.BackgroundTransparency = 1
StatusLabel.Text = "الحالة: متوقف بأمان"
StatusLabel.TextColor3 = Color3.fromRGB(150, 150, 150)
StatusLabel.TextSize, StatusLabel.Font = 11, Enum.Font.SourceSans
StatusLabel.TextXAlignment = Enum.TextXAlignment.Center
StatusLabel.Parent = MainFrame

local CloseButton = Instance.new("TextButton")
CloseButton.Size = UDim2.new(0, 20, 0, 20)
CloseButton.Position = UDim2.new(1, -22, 0, 4)
CloseButton.BackgroundTransparency = 1
CloseButton.Text = "X"
CloseButton.TextColor3 = Color3.fromRGB(255, 90, 90)
CloseButton.TextSize, CloseButton.Font = 11, Enum.Font.SourceSansBold
CloseButton.Parent = MainFrame

CloseButton.MouseButton1Click:Connect(function()
    ScreenGui:Destroy()
end)

-- إحداثيات جزر العالم الثالث بالترتيب
local islands = {
    Vector3.new(-12463, 331, -7552), -- Port Town
    Vector3.new(-380, 331, 5336),   -- Hydra Island
    Vector3.new(5734, 609, -704),   -- Great Tree
    Vector3.new(2884, 43, -3253),   -- Floating Turtle
    Vector3.new(-5029, 315, -5356), -- Castle on the Sea
    Vector3.new(5314, 22, 1047),    -- Haunted Castle
    Vector3.new(-9515, 147, 5636),  -- Peanut Island
    Vector3.new(-11025, 103, 8780), -- Ice Cream Island
    Vector3.new(-12224, 5, 10515),  -- Cake Land
    Vector3.new(-10467, 73, -1257)  -- Chocolate Island
}

local farming = false
local visitedChests = {}
local activeTween = nil

local function smoothMove(targetCFrame)
    pcall(function()
        if not Player.Character or not Player.Character:FindFirstChild("HumanoidRootPart") then return end
        local hrp = Player.Character.HumanoidRootPart
        local distance = (hrp.Position - targetCFrame.Position).Magnitude
        local speed = 220 -- سرعة آمنة ومستقرة
        
        if activeTween then
            activeTween:Cancel()
        end
        
        local tweenInfo = TweenInfo.new(distance / speed, Enum.EasingStyle.Linear)
        activeTween = TweenService:Create(hrp, tweenInfo, {CFrame = targetCFrame})
        activeTween:Play()
        
        local finished = false
        local connection
        connection = activeTween.Completed:Connect(function()
            finished = true
            if connection then connection:Disconnect() end
        end)
        
        while not finished and farming do
            task.wait(0.05)
        end
    end)
end

local function startEngine()
    task.spawn(function()
        while farming do
            pcall(function()
                for idx, islandPos in ipairs(islands) do
                    if not farming then break end
                    StatusLabel.Text = "الانتقال للجزيرة: " .. idx
                    smoothMove(CFrame.new(islandPos + Vector3.new(0, 40, 0)))
                    
                    local cleaning = true
                    local timer = tick()
                    
                    while cleaning and farming do
                        local bestChest = nil
                        local minDistance = math.huge
                        
                        if not Player.Character or not Player.Character:FindFirstChild("HumanoidRootPart") then break end
                        local currentPos = Player.Character.HumanoidRootPart.Position
                        
                        for _, obj in ipairs(Workspace:GetDescendants()) do
                            pcall(function()
                                local objName = obj.Name:lower()
                                if objName == "chest" or objName:find("chest") then
                                    local partRef = nil
                                    if obj:IsA("BasePart") then
                                        partRef = obj
                                    elseif obj:IsA("Model") then
                                        partRef = obj.PrimaryPart or obj:FindFirstChildWhichIsA("BasePart")
                                    end
                                    
                                    if partRef then
                                        local key = tostring(math.floor(partRef.Position.X / 12)) .. "_" .. tostring(math.floor(partRef.Position.Z / 12))
                                        if not visitedChests[key] then
                                            local dist = (currentPos - partRef.Position).Magnitude
                                            if dist < 1600 and dist < minDistance then
                                                minDistance = dist
                                                bestChest = {Part = partRef, Key = key}
                                            end
                                        end
                                    end
                                end
                            end)
                        end
                        
                        if bestChest then
                            visitedChests[bestChest.Key] = true
                            StatusLabel.Text = "chest farm..."
                            smoothMove(bestChest.Part.CFrame + Vector3.new(0, 2, 0))
                            task.wait(0.15)
                            timer = tick()
                        else
                            if (tick() - timer) > 4 then
                                cleaning = false
                            else
                                task.wait(0.4)
                            end
                        end
                    end
                end
                StatusLabel.Text = "reload..."
                visitedChests = {}
                task.wait(1)
            end)
        end
        if activeTween then
            activeTween:Cancel()
        end
    end)
end

ToggleButton.MouseButton1Click:Connect(function()
    farming = not farming
    if farming then
        ToggleButton.Text = "stop farm (OFF)"
        ToggleButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
        startEngine()
    else
        ToggleButton.Text = "start farm (ON)"
        ToggleButton.BackgroundColor3 = Color3.fromRGB(0, 170, 127)
        StatusLabel.Text = "الحالة: متوقف بأمان"
    end
end)