--[[
    WARNING: Heads up! This script has not been verified by ScriptBlox. Use at your own risk!
]]
local Players = game:GetService("Players")
local Workspace = game:GetService("Workspace")

local maxDistance = 100
local walkSpeed = 66

local function getNearbyParts(folder, position)
    local parts = {}
    for _, part in ipairs(folder:GetDescendants()) do
        if part:IsA("BasePart") and (part.Position - position).Magnitude <= maxDistance then
            table.insert(parts, part)
        end
    end
    return parts
end

local function walkToPart(part)
    local player = Players.LocalPlayer
    local character = player.Character or player.CharacterAdded:Wait()
    local humanoid = character:FindFirstChildOfClass("Humanoid")

    if humanoid and part then
        humanoid.WalkSpeed = walkSpeed
        local targetPosition = part.Position + Vector3.new(0, part.Size.Y / 2, 0)
        humanoid:MoveTo(targetPosition)

        -- Wait until the character reaches the destination
        humanoid.MoveToFinished:Wait()
    end
end

local function setWalkSpeedLoop()
    while true do
        local player = Players.LocalPlayer
        local character = player.Character or player.CharacterAdded:Wait()
        local humanoid = character:FindFirstChildOfClass("Humanoid")
        if humanoid then
            humanoid.WalkSpeed = walkSpeed
        end
        wait(1)  -- This is for ensuring the walk speed is constantly maintained
    end
end

local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local humanoidRootPart = character:FindFirstChild("HumanoidRootPart")
local resourcesFolder = Workspace:FindFirstChild("BuildPack") and Workspace.BuildPack:FindFirstChild("Resources")

if humanoidRootPart and resourcesFolder then
    local nearbyParts = getNearbyParts(resourcesFolder, humanoidRootPart.Position)
    if #nearbyParts > 0 then
        walkToPart(nearbyParts[math.random(#nearbyParts)])
        spawn(setWalkSpeedLoop)
    end
end