Car Dealership Tycoon [Event]

Script source Luau

Copy Script

-- [[ BloxScripts Risk Notice ]]
-- This script has not been verified by BloxScripts.fun. 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 BloxScripts Risk Notice ]]

local Workspace = game:GetService("Workspace")
local Players = game:GetService("Players")
local TweenService = game:GetService("TweenService")

local LP = Players.LocalPlayer

local CONFIG = {
    Enabled = false,
    FlySpeed = 300,
    MaxSize = 10,
    WaitTime = 30,
}

local blacklistedZones = {}

local sg = Instance.new("ScreenGui")
sg.Name = "PumpkinFarmGUI"
sg.ResetOnSpawn = false
sg.Parent = LP:WaitForChild("PlayerGui")

local frame = Instance.new("Frame")
frame.Size = UDim2.new(0, 220, 0, 140)
frame.Position = UDim2.new(0.5, -110, 0, 50)
frame.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
frame.BorderSizePixel = 2
frame.BorderColor3 = Color3.fromRGB(255, 140, 0)
frame.Parent = sg

local btnAutoFarm = Instance.new("TextButton")
btnAutoFarm.Size = UDim2.new(1, -20, 0, 45)
btnAutoFarm.Position = UDim2.new(0, 10, 0, 10)
btnAutoFarm.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
btnAutoFarm.TextColor3 = Color3.fromRGB(255, 255, 255)
btnAutoFarm.Font = Enum.Font.SourceSansBold
btnAutoFarm.TextSize = 18
btnAutoFarm.Text = "AUTO-FARM: OFF"
btnAutoFarm.Parent = frame

local btnExclude = Instance.new("TextButton")
btnExclude.Size = UDim2.new(1, -20, 0, 45)
btnExclude.Position = UDim2.new(0, 10, 0, 65)
btnExclude.BackgroundColor3 = Color3.fromRGB(255, 140, 0)
btnExclude.TextColor3 = Color3.fromRGB(255, 255, 255)
btnExclude.Font = Enum.Font.SourceSansBold
btnExclude.TextSize = 16
btnExclude.Text = "EXCLUDE THIS PLACE"
btnExclude.Parent = frame

local statusLabel = Instance.new("TextLabel")
statusLabel.Size = UDim2.new(1, -20, 0, 30)
statusLabel.Position = UDim2.new(0, 10, 0, 115)
statusLabel.BackgroundTransparency = 1
statusLabel.TextColor3 = Color3.fromRGB(200, 200, 200)
statusLabel.Font = Enum.Font.SourceSans
statusLabel.TextSize = 14
statusLabel.Text = "Status: Waiting..."
statusLabel.Parent = frame

btnAutoFarm.MouseButton1Click:Connect(function()
    CONFIG.Enabled = not CONFIG.Enabled
    btnAutoFarm.Text = CONFIG.Enabled and "AUTO-FARM: ON" or "AUTO-FARM: OFF"
    btnAutoFarm.BackgroundColor3 = CONFIG.Enabled and Color3.fromRGB(50, 200, 50) or Color3.fromRGB(200, 50, 50)
end)

btnExclude.MouseButton1Click:Connect(function()
    local char = LP.Character
    if char and char:FindFirstChild("HumanoidRootPart") then
        table.insert(blacklistedZones, char.HumanoidRootPart.Position)
        btnExclude.Text = "ZONE ADDED!"
        task.wait(1)
        btnExclude.Text = "EXCLUDE THIS PLACE"
    end
end)

local function isBlacklisted(pos)
    for _, zone in ipairs(blacklistedZones) do
        if (pos - zone).Magnitude < 150 then return true end
    end
    return false
end

local function isRealPumpkin(obj)
    local name = obj.Name:lower()
    local parentName = obj.Parent and obj.Parent.Name:lower() or ""
    
    local nameMatch = name:find("pumpkin") or name:find("halloween") or name:find("jack") or
                      parentName:find("pumpkin")
                      
    local hasInteractive = obj:FindFirstChildOfClass("ClickDetector") or 
                           obj:FindFirstChildOfClass("ProximityPrompt") or
                           (obj.Parent and obj.Parent:FindFirstChildOfClass("ClickDetector"))
                           
    return nameMatch or hasInteractive
end

local function findPumpkins()
    local list = {}
    for _, child in ipairs(Workspace:GetDescendants()) do
        if child:IsA("BasePart") or child:IsA("MeshPart") then
            local s = child.Size
            if math.max(s.X, s.Y, s.Z) <= CONFIG.MaxSize 
               and not child:IsDescendantOf(LP.Character) 
               and not isBlacklisted(child.Position)
               and isRealPumpkin(child) then
                table.insert(list, child)
            end
        end
    end
    return list
end

local function flyTo(target)
    local char = LP.Character
    if not char then return end
    local hrp = char:FindFirstChild("HumanoidRootPart")
    if not hrp then return end

    local dist = (target.Position - hrp.Position).Magnitude
    local duration = math.clamp(dist / CONFIG.FlySpeed, 0.1, 3)
    
    local tween = TweenService:Create(hrp, TweenInfo.new(duration, Enum.EasingStyle.Linear), {CFrame = CFrame.new(target.Position + Vector3.new(0, 2, 0))})
    tween:Play()
    tween.Completed:Wait()
    
    local click = target:FindFirstChildOfClass("ClickDetector") or (target.Parent and target.Parent:FindFirstChildOfClass("ClickDetector"))
    if click and fireclickdetector then
        fireclickdetector(click)
    end
end

task.spawn(function()
    while true do
        if CONFIG.Enabled then
            local pumpkins = findPumpkins()
            
            if #pumpkins > 0 then
                local hrp = LP.Character and LP.Character:FindFirstChild("HumanoidRootPart")
                if hrp then
                    table.sort(pumpkins, function(a, b)
                        return (a.Position - hrp.Position).Magnitude < (b.Position - hrp.Position).Magnitude
                    end)
                end
                
                for _, p in ipairs(pumpkins) do
                    if not CONFIG.Enabled then break end
                    if p.Parent then
                        statusLabel.Text = "Status: Collecting (" .. #pumpkins .. " left)"
                        flyTo(p)
                        task.wait(0.3)
                    end
                end
            else
                statusLabel.Text = "Status: Waiting respawn (30s)"
                local timeLeft = CONFIG.WaitTime
                while timeLeft > 0 and CONFIG.Enabled do
                    statusLabel.Text = "Status: Waiting respawn (" .. timeLeft .. "s)"
                    task.wait(1)
                    timeLeft = timeLeft - 1
                end
            end
        else
            statusLabel.Text = "Status: Off"
            task.wait(0.5)
        end
        task.wait(0.5)
    end
end)

Review the source before using it. Executions count successful copies, capped at 10 per user and network per script in 24 hours.