-- [[ Rscripts Risk Notice ]]
-- This script is not verified by rscripts.net. Deal with caution.
--
-- Stay safe:
--   • Never log in on unofficial Roblox sites or lookalike domains.
--   • Real Roblox links use roblox.com (check the .com ending).
--   • Treat fake Roblox login / "claim reward" pages as phishing.
-- [[ End Rscripts Risk Notice ]]

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

local zonePriority = {
    Crystal = 1, Cosmic = 2, Abyss = 3, Beach = 4, Volcano = 5,
    Snow = 6, Desert = 7, Jungle = 8, Lake = 9, Forest = 10,
}

local function SetupProximityPrompt(prompt)
    prompt.HoldDuration = 0
end

workspace.DescendantAdded:Connect(function(desc)
    if desc:IsA("ProximityPrompt") then SetupProximityPrompt(desc) end
end)

for _, prompt in ipairs(workspace:GetDescendants()) do
    if prompt:IsA("ProximityPrompt") then SetupProximityPrompt(prompt) end
end

local gui = Instance.new("ScreenGui", LP:WaitForChild("PlayerGui"))
gui.Name = "ZoneFarmGui"
gui.ResetOnSpawn = false

local frame = Instance.new("Frame", gui)
frame.Size = UDim2.new(0, 240, 0, 260)
frame.Position = UDim2.new(0.5, -120, 0.5, -130)
frame.BackgroundColor3 = Color3.fromRGB(28, 28, 40)
frame.BorderSizePixel = 0
frame.Active = true
frame.Draggable = true

local corner = Instance.new("UICorner", frame)
corner.CornerRadius = UDim.new(0, 12)

local outline = Instance.new("UIStroke", frame)
outline.Color = Color3.fromRGB(255, 255, 255)
outline.Thickness = 1.5
outline.Transparency = 0.25

local title = Instance.new("TextLabel", frame)
title.Size = UDim2.new(0, 220, 0, 28)
title.Position = UDim2.new(0, 10, 0, 12)
title.BackgroundTransparency = 1
title.Text = "MAP ZONE"
title.TextColor3 = Color3.fromRGB(255, 214, 92)
title.Font = Enum.Font.GothamBold
title.TextSize = 18

local speedLabel = Instance.new("TextLabel", frame)
speedLabel.Size = UDim2.new(0, 60, 0, 22)
speedLabel.Position = UDim2.new(0, 10, 0, 50)
speedLabel.BackgroundTransparency = 1
speedLabel.Text = "Speed:"
speedLabel.TextColor3 = Color3.new(1, 1, 1)
speedLabel.Font = Enum.Font.GothamMedium
speedLabel.TextSize = 13

local speedInput = Instance.new("TextBox", frame)
speedInput.Size = UDim2.new(0, 140, 0, 26)
speedInput.Position = UDim2.new(0, 80, 0, 48)
speedInput.BackgroundColor3 = Color3.fromRGB(45, 45, 65)
speedInput.BorderSizePixel = 0
speedInput.Text = "750"
speedInput.TextColor3 = Color3.new(1, 1, 1)
speedInput.Font = Enum.Font.Gotham
speedInput.TextSize = 14

local inputCorner = Instance.new("UICorner", speedInput)
inputCorner.CornerRadius = UDim.new(0, 6)

local function createButton(text, y, bg)
    local btn = Instance.new("TextButton", frame)
    btn.Size = UDim2.new(0, 220, 0, 32)
    btn.Position = UDim2.new(0, 10, 0, y)
    btn.BackgroundColor3 = bg
    btn.BorderSizePixel = 0
    btn.Text = text
    btn.TextColor3 = Color3.new(1, 1, 1)
    btn.Font = Enum.Font.GothamBold
    btn.TextSize = 14

    local btnCorner = Instance.new("UICorner", btn)
    btnCorner.CornerRadius = UDim.new(0, 6)

    return btn
end

local safeBtn = createButton("SAFE ZONE", 86, Color3.fromRGB(40, 90, 50))
local bestBtn = createButton("BEST ZONE", 124, Color3.fromRGB(88, 60, 90))

local insaneStatus = Instance.new("TextLabel", frame)
insaneStatus.Size = UDim2.new(0, 220, 0, 20)
insaneStatus.Position = UDim2.new(0, 10, 0, 162)
insaneStatus.BackgroundTransparency = 1
insaneStatus.Text = "Insane: None"
insaneStatus.TextColor3 = Color3.fromRGB(255, 100, 100)
insaneStatus.Font = Enum.Font.GothamMedium
insaneStatus.TextSize = 12

local insaneBtn = createButton("GO INSANE", 184, Color3.fromRGB(150, 60, 40))

local noticeLabel = Instance.new("TextLabel", frame)
noticeLabel.Size = UDim2.new(0, 220, 0, 32)
noticeLabel.Position = UDim2.new(0, 10, 0, 222)
noticeLabel.BackgroundTransparency = 1
noticeLabel.Text = "I am a beginner developer, so bugs are normal"
noticeLabel.TextColor3 = Color3.fromRGB(180, 180, 200)
noticeLabel.Font = Enum.Font.GothamMedium
noticeLabel.TextSize = 11
noticeLabel.TextWrapped = true

local currentInsane = nil
local flyConnection = nil

local function cleanupFlight()
    if flyConnection then
        flyConnection:Disconnect()
        flyConnection = nil
    end

    local character = LP.Character
    local humanoid = character and character:FindFirstChildOfClass("Humanoid")
    local root = character and character:FindFirstChild("HumanoidRootPart")

    if humanoid then
        humanoid.PlatformStand = false
        humanoid:SetStateEnabled(Enum.HumanoidStateType.FallingDown, true)
        humanoid:SetStateEnabled(Enum.HumanoidStateType.Freefall, true)
    end

    if root then
        root.AssemblyLinearVelocity = Vector3.zero
        root.AssemblyAngularVelocity = Vector3.zero
    end
end

local function flyTo(target)
    cleanupFlight()

    local character = LP.Character
    local root = character and character:FindFirstChild("HumanoidRootPart")
    local humanoid = character and character:FindFirstChildOfClass("Humanoid")

    if not root or not humanoid then return end

    humanoid.PlatformStand = true
    humanoid:SetStateEnabled(Enum.HumanoidStateType.FallingDown, false)
    humanoid:SetStateEnabled(Enum.HumanoidStateType.Freefall, false)

    flyConnection = RunService.Heartbeat:Connect(function(dt)
        if not root.Parent or not humanoid.Parent then
            cleanupFlight()
            return
        end

        local speed = math.clamp(tonumber(speedInput.Text) or 750, 1, 5000)
        local current = root.Position
        local direction = target - current
        local distance = direction.Magnitude

        if distance <= speed * dt then
            root.CFrame = CFrame.new(target)
            cleanupFlight()
            return
        end

        root.CFrame = CFrame.new(current + direction.Unit * (speed * dt))
        root.AssemblyLinearVelocity = Vector3.zero
        root.AssemblyAngularVelocity = Vector3.zero
    end)
end

local function scanInsane()
    local playZones = Workspace:FindFirstChild("Game")
        and Workspace.Game:FindFirstChild("Map")
        and Workspace.Game.Map:FindFirstChild("PlayZones")

    if not playZones then
        currentInsane = nil
        insaneStatus.Text = "Insane: None"
        return
    end

    local foundInsane = {}

    for _, zone in ipairs(playZones:GetChildren()) do
        local egg = zone:FindFirstChild("InsaneEgg")
        if egg then
            local pos

            if egg:IsA("Model") then
                pos = egg.PrimaryPart and egg.PrimaryPart.Position or egg:GetPivot().Position
            elseif egg:IsA("BasePart") then
                pos = egg.Position
            end

            if pos then
                table.insert(foundInsane, {
                    zone = zone.Name,
                    position = pos,
                    priority = zonePriority[zone.Name] or 99,
                })
            end
        end
    end

    table.sort(foundInsane, function(a, b)
        return a.priority < b.priority
    end)

    if #foundInsane > 0 then
        currentInsane = foundInsane[1]
        insaneStatus.Text = "Insane: " .. currentInsane.zone
    else
        currentInsane = nil
        insaneStatus.Text = "Insane: None"
    end
end

safeBtn.MouseButton1Click:Connect(function()
    flyTo(Vector3.new(-47.298160552978516, 33.087257385253906, -298.4501037597656))
end)

bestBtn.MouseButton1Click:Connect(function()
    flyTo(Vector3.new(3477.45849609375, 32.92403793334961, -298.7809753417969))
end)

insaneBtn.MouseButton1Click:Connect(function()
    if currentInsane then
        flyTo(currentInsane.position)
    else
        insaneStatus.Text = "Insane: None"
    end
end)

while true do
    scanInsane()
    task.wait()
end