What's new
Heapleak - Scripthub

Get the most out of HeapLeak by creating a free account! Once signed in, you’ll gain full access to restricted content, be able to share your own scripts, and participate in our member-only discussions.

HALLOWEEN EVENT SCRIPT

Version / Update: v1.0.0
Download / Script Link
--[[
Farm/Teleport UI — Retro 8-bit (Dark)
Title shown: Halloween Event 2025

• Main:
- Enable "Farm All Pumpkins" (0.5s/point)
- Enable "Auto Trick or Treat" (1m/point, infinite)
• Teleports:
- One-click: Pumpkin Rune, Bloodveil Rune, Dust, Ghost, Candies
• Credits:
- Chimera__Gaming + copy-to-clipboard codes

Notes:
- RightShift to show/hide
- Close button stops loops and destroys UI
]]

----------------------------
-- USER DATA (COORD SETS) --
----------------------------
local TELEPORT_SETS = {
["Pumpkin Rune"] = { {946, -17, -74}, },
["Bloodveil Rune"] = { {964, -17, -60}, },
["Dust"] = { {1046, -18, -65}, },
["Ghost"] = { {1031, -18, 26}, },
["Candies"] = { {936, -18, 106}, },

["Farm All Pumpkins"] = {
{945,-18,127},{938,-18,107},{922,-18,83},{900,-18,79},
{897,-18,61},{885,-18,49},{893,-18,18},{931,-18,-11},
{933,-18,-50},{972,-18,-24},{987,-18,-29},
{1009,-18,-43},{1031,-18,-59},{1047,-18,-71},{1069,-18,-66},
{1089,-18,-62},{1098,-18,-43},{1113,-18,-17},{1116,-18,6},
{1127,-18,34},{1092,-18,64},{1109,-18,50},{1078,-18,78},
{1060,-18,75},{1059,-18,59},{1039,-18,37},{1027,-18,23},
{1020,-18,8},{996,-18,-15},{1066,-18,93},{1051,-18,115},
{1033,-18,123},{1020,-18,137},{1004,-18,135},{992,-18,144},
{969,-18,134},{946,-18,127},{1046,-18,-65},{1031,-18,26},
{936,-18,106},
},

["Auto Trick or Treat"] = {
{912, -18, 36},
{1029, -18, -29},
{1087, -18, 102},
{1000, -18, 161},
},
}

local FARM_WAIT = 0.5
local TOT_WAIT = 60

-------------------------
-- SERVICES / HELPERS --
-------------------------
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local UIS = game:GetService("UserInputService")
local StarterGui = game:GetService("StarterGui")
local player = Players.LocalPlayer

-- cleanup any prior instance
do
local pg = player:FindFirstChild("PlayerGui")
if pg then
local old = pg:FindFirstChild("FarmAllPumpkinsUI")
if old then old:Destroy() end
end
end

local function getHRP()
local c = player.Character or player.CharacterAdded:Wait()
return c:WaitForChild("HumanoidRootPart"), c:WaitForChild("Humanoid")
end

local function waitSeconds(s)
local t0 = os.clock()
repeat RunService.Heartbeat:Wait() until os.clock() - t0 >= (s or 0)
end

local function notify(t)
pcall(function()
StarterGui:SetCore("SendNotification", {
Title = t.Title or "Info",
Text = t.Text or "",
Duration = t.Duration or 2
})
end)
end

local function tpAndJump(hrp, hum, xyz)
hrp.CFrame = CFrame.new(xyz[1], xyz[2], xyz[3])
if hum and hum.Health > 0 then
hum.Sit = false
hum:ChangeState(Enum.HumanoidStateType.Jumping)
hum.Jump = true
end
end

-------------------------
-- ROOT WINDOW / TABS --
-------------------------
local gui = Instance.new("ScreenGui")
gui.Name = "FarmAllPumpkinsUI"
gui.IgnoreGuiInset = true
gui.ResetOnSpawn = false
gui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
gui.DisplayOrder = 9999
gui.Parent = player:WaitForChild("PlayerGui")

-- RightShift show/hide
UIS.InputBegan:Connect(function(i,gpe)
if gpe then return end
if i.KeyCode == Enum.KeyCode.RightShift then
gui.Enabled = not gui.Enabled
end
end)

local win = Instance.new("Frame")
win.Name = "Window"
win.Position = UDim2.new(0, 40, 0, 120)
win.Size = UDim2.new(0, 560, 0, 340)
win.BackgroundColor3 = Color3.fromRGB(28,28,36) -- dark base
win.BorderSizePixel = 0
win.Parent = gui

-- drag whole window
do
local dragging, dragStart, startPos
win.InputBegan:Connect(function(i)
if i.UserInputType == Enum.UserInputType.MouseButton1 then
dragging = true; dragStart = i.Position; startPos = win.Position
end
end)
win.InputChanged:Connect(function(i)
if i.UserInputType == Enum.UserInputType.MouseMovement and dragging then
local d = i.Position - dragStart
win.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + d.X, startPos.Y.Scale, startPos.Y.Offset + d.Y)
end
end)
UIS.InputEnded:Connect(function(i)
if i.UserInputType == Enum.UserInputType.MouseButton1 then dragging = false end
end)
end

-- header (text only; it will be reparented into the bar in skin step)
local header = Instance.new("TextLabel")
header.BackgroundTransparency = 1
header.Font = Enum.Font.GothamBold
header.TextSize = 18
header.TextColor3 = Color3.fromRGB(255,255,255)
header.TextXAlignment = Enum.TextXAlignment.Left
header.Text = "Halloween Event 2025"
header.Position = UDim2.new(0, 14, 0, 10)
header.Size = UDim2.new(1, -58, 0, 22)
header.Parent = win

-- CLOSE (top-right)
local closeBtn = Instance.new("TextButton")
closeBtn.Text = "✕"
closeBtn.Font = Enum.Font.GothamBold
closeBtn.TextSize = 16
closeBtn.TextColor3 = Color3.fromRGB(255,255,255)
closeBtn.BackgroundColor3 = Color3.fromRGB(64,64,74)
closeBtn.AutoButtonColor = true
closeBtn.Size = UDim2.new(0, 28, 0, 28)
closeBtn.Position = UDim2.new(1, -36, 0, 8)
closeBtn.Parent = win
closeBtn.ZIndex = 50 -- ensure above header bar

-- tabs
local tabs = Instance.new("Frame")
tabs.Name = "Tabs"
tabs.BackgroundTransparency = 1
tabs.Position = UDim2.new(0, 10, 0, 40)
tabs.Size = UDim2.new(1, -20, 0, 28)
tabs.Parent = win

local function mkTabBtn(text)
local b = Instance.new("TextButton")
b.Text = text
b.Font = Enum.Font.GothamBold
b.TextSize = 14
b.TextColor3 = Color3.fromRGB(255,255,255)
b.AutoButtonColor = true
b.BackgroundColor3 = Color3.fromRGB(56,56,64)
b.Size = UDim2.new(0, 150, 1, 0)
b.Parent = tabs
return b
end

local BTN_W, GAP = 150, 10
local mainTabBtn = mkTabBtn("Main"); mainTabBtn.Position = UDim2.new(0, 0, 0, 0)
local tpTabBtn = mkTabBtn("Teleports"); tpTabBtn.Position = UDim2.new(0, BTN_W + GAP, 0, 0)
local crTabBtn = mkTabBtn("Credits"); crTabBtn.Position = UDim2.new(1, -BTN_W, 0, 0)

-- pages
local body = Instance.new("Frame")
body.Position = UDim2.new(0, 10, 0, 78)
body.Size = UDim2.new(1, -20, 1, -88)
body.BackgroundTransparency = 1
body.Parent = win

local mainPage = Instance.new("Frame"); mainPage.Size = UDim2.new(1,0,1,0); mainPage.BackgroundTransparency=1; mainPage.Parent=body
local tpPage = Instance.new("Frame"); tpPage.Size = UDim2.new(1,0,1,0); tpPage.BackgroundTransparency=1; tpPage.Parent=body; tpPage.Visible=false
local crPage = Instance.new("Frame"); crPage.Size = UDim2.new(1,0,1,0); crPage.BackgroundTransparency=1; crPage.Parent=body; crPage.Visible=false

local function switchTab(which)
mainPage.Visible = (which=="main")
tpPage.Visible = (which=="tp")
crPage.Visible = (which=="cr")
mainTabBtn.BackgroundColor3 = which=="main" and Color3.fromRGB(255,170,40) or Color3.fromRGB(56,56,64)
tpTabBtn.BackgroundColor3 = which=="tp" and Color3.fromRGB(255,170,40) or Color3.fromRGB(56,56,64)
crTabBtn.BackgroundColor3 = which=="cr" and Color3.fromRGB(255,170,40) or Color3.fromRGB(56,56,64)
end
mainTabBtn.MouseButton1Click:Connect(function() switchTab("main") end)
tpTabBtn.MouseButton1Click:Connect(function() switchTab("tp") end)
crTabBtn.MouseButton1Click:Connect(function() switchTab("cr") end)
switchTab("main")

-------------------------
-- MAIN: Two loops --
-------------------------
-- Farm All Pumpkins
local infoFarm = Instance.new("TextLabel")
infoFarm.BackgroundTransparency = 1
infoFarm.Text = "Loop: Farm All Pumpkins (0.5s per point)"
infoFarm.Font = Enum.Font.Gotham
infoFarm.TextSize = 14
infoFarm.TextColor3 = Color3.fromRGB(255,255,255)
infoFarm.Position = UDim2.new(0, 0, 0, 0)
infoFarm.Size = UDim2.new(1, -10, 0, 20)
infoFarm.Parent = mainPage

local boxFarm = Instance.new("TextButton")
boxFarm.Text = ""
boxFarm.Size = UDim2.new(0, 36, 0, 36)
boxFarm.Position = UDim2.new(0, 0, 0, 24)
boxFarm.BackgroundColor3 = Color3.fromRGB(70,130,90)
boxFarm.AutoButtonColor = true
boxFarm.Parent = mainPage

local checkFarm = Instance.new("TextLabel")
checkFarm.BackgroundTransparency = 1
checkFarm.Size = UDim2.new(1,0,1,0)
checkFarm.Text = ""
checkFarm.Font = Enum.Font.Arcade
checkFarm.TextScaled = true
checkFarm.TextColor3 = Color3.fromRGB(255,255,255)
checkFarm.Parent = boxFarm

local enFarm = Instance.new("TextLabel")
enFarm.BackgroundTransparency = 1
enFarm.Text = "Enable"
enFarm.Font = Enum.Font.Gotham
enFarm.TextSize = 14
enFarm.TextColor3 = Color3.fromRGB(255,255,255)
enFarm.Position = UDim2.new(0, 46, 0, 31)
enFarm.Size = UDim2.new(0, 80, 0, 20)
enFarm.Parent = mainPage

local statusFarm = Instance.new("TextLabel")
statusFarm.BackgroundTransparency = 1
statusFarm.Text = "Idle"
statusFarm.Font = Enum.Font.Gotham
statusFarm.TextSize = 14
statusFarm.TextColor3 = Color3.fromRGB(220,220,220)
statusFarm.Position = UDim2.new(0, 0, 0, 64)
statusFarm.Size = UDim2.new(1, 0, 0, 20)
statusFarm.Parent = mainPage

-- Auto Trick or Treat
local infoTot = Instance.new("TextLabel")
infoTot.BackgroundTransparency = 1
infoTot.Text = "Loop: Auto Trick or Treat (1m per point)"
infoTot.Font = Enum.Font.Gotham
infoTot.TextSize = 14
infoTot.TextColor3 = Color3.fromRGB(255,255,255)
infoTot.Position = UDim2.new(0, 0, 0, 100)
infoTot.Size = UDim2.new(1, -10, 0, 20)
infoTot.Parent = mainPage

local boxTot = Instance.new("TextButton")
boxTot.Text = ""
boxTot.Size = UDim2.new(0, 36, 0, 36)
boxTot.Position = UDim2.new(0, 0, 0, 124)
boxTot.BackgroundColor3 = Color3.fromRGB(70,130,90)
boxTot.AutoButtonColor = true
boxTot.Parent = mainPage

local checkTot = Instance.new("TextLabel")
checkTot.BackgroundTransparency = 1
checkTot.Size = UDim2.new(1,0,1,0)
checkTot.Text = ""
checkTot.Font = Enum.Font.Arcade
checkTot.TextScaled = true
checkTot.TextColor3 = Color3.fromRGB(255,255,255)
checkTot.Parent = boxTot

local enTot = Instance.new("TextLabel")
enTot.BackgroundTransparency = 1
enTot.Text = "Enable"
enTot.Font = Enum.Font.Gotham
enTot.TextSize = 14
enTot.TextColor3 = Color3.fromRGB(255,255,255)
enTot.Position = UDim2.new(0, 46, 0, 131)
enTot.Size = UDim2.new(0, 80, 0, 20)
enTot.Parent = mainPage

local statusTot = Instance.new("TextLabel")
statusTot.BackgroundTransparency = 1
statusTot.Text = "Idle"
statusTot.Font = Enum.Font.Gotham
statusTot.TextSize = 14
statusTot.TextColor3 = Color3.fromRGB(220,220,220)
statusTot.Position = UDim2.new(0, 0, 0, 164)
statusTot.Size = UDim2.new(1, 0, 0, 20)
statusTot.Parent = mainPage

-- loop state
local enabledFarm, runningFarm = false, false
local enabledTot, runningTot = false, false

boxFarm.MouseButton1Click:Connect(function()
enabledFarm = not enabledFarm
checkFarm.Text = enabledFarm and "✓" or ""
boxFarm.BackgroundColor3 = enabledFarm and Color3.fromRGB(40,160,80) or Color3.fromRGB(70,130,90)
statusFarm.Text = enabledFarm and "Running…" or "Idle"
end)

boxTot.MouseButton1Click:Connect(function()
enabledTot = not enabledTot
checkTot.Text = enabledTot and "✓" or ""
boxTot.BackgroundColor3 = enabledTot and Color3.fromRGB(40,160,80) or Color3.fromRGB(70,130,90)
statusTot.Text = enabledTot and "Running…" or "Idle"
end)

-- farm loop worker
local function runFarmLoop()
if runningFarm then return end
runningFarm = true
while gui.Parent do
if enabledFarm then
local set = TELEPORT_SETS["Farm All Pumpkins"] or {}
if #set == 0 then statusFarm.Text = "No coords"; waitSeconds(0.3)
else
local hrp, hum = getHRP(); hum.Sit = false
for i,c in ipairs(set) do
if not enabledFarm then break end
hrp.CFrame = CFrame.new(c[1], c[2], c[3])
statusFarm.Text = string.format("TP %d/%d → {%d,%d,%d}", i, #set, c[1], c[2], c[3])
waitSeconds(FARM_WAIT)
end
end
else
waitSeconds(0.05)
end
RunService.Heartbeat:Wait()
end
end

-- trick-or-treat worker
local function runTotLoop()
if runningTot then return end
runningTot = true
while gui.Parent do
if enabledTot then
local set = TELEPORT_SETS["Auto Trick or Treat"] or {}
if #set == 0 then statusTot.Text = "No coords"; waitSeconds(0.3)
else
local hrp, hum = getHRP(); hum.Sit = false
for i,c in ipairs(set) do
if not enabledTot then break end
tpAndJump(hrp, hum, c)
statusTot.Text = string.format("TP %d/%d → {%d,%d,%d}", i, #set, c[1], c[2], c[3])
waitSeconds(TOT_WAIT)
end
end
else
waitSeconds(0.05)
end
RunService.Heartbeat:Wait()
end
end

task.spawn(runFarmLoop)
task.spawn(runTotLoop)

-------------------------
-- TELEPORTS: Buttons --
-------------------------
local tpScroll = Instance.new("ScrollingFrame")
tpScroll.BackgroundColor3 = Color3.fromRGB(36,36,44)
tpScroll.BorderSizePixel = 0
tpScroll.Size = UDim2.new(1, 0, 1, 0)
tpScroll.Position = UDim2.new(0, 0, 0, 0)
tpScroll.CanvasSize = UDim2.new(0,0,0,0)
tpScroll.ScrollBarThickness = 6
tpScroll.Parent = tpPage

local tpLayout = Instance.new("UIListLayout", tpScroll)
tpLayout.Padding = UDim.new(0, 8)

local function teleportOnce(setName)
local set = TELEPORT_SETS[setName]
if not set or #set == 0 then
notify{Title="No coords", Text=setName.." is empty"}
return
end
local hrp, hum = getHRP(); hum.Sit = false
for _,c in ipairs(set) do
tpAndJump(hrp, hum, c)
RunService.Heartbeat:Wait()
end
end

local order = {"Pumpkin Rune","Bloodveil Rune","Dust","Ghost","Candies"}
for _,name in ipairs(order) do
local btn = Instance.new("TextButton")
btn.Text = name
btn.Font = Enum.Font.GothamBold
btn.TextSize = 14
btn.TextColor3 = Color3.fromRGB(255,255,255)
btn.BackgroundColor3 = Color3.fromRGB(64,64,74)
btn.AutoButtonColor = true
btn.Size = UDim2.new(1, -10, 0, 36)
btn.Position = UDim2.new(0, 5, 0, 0)
btn.Parent = tpScroll
btn.MouseButton1Click:Connect(function() teleportOnce(name) end)
end
RunService.Heartbeat:Wait()
tpScroll.CanvasSize = UDim2.new(0,0,0, tpLayout.AbsoluteContentSize.Y + 10)

-------------------------
-- CREDITS TAB --
-------------------------
local crTitle = Instance.new("TextLabel")
crTitle.BackgroundTransparency = 1
crTitle.Font = Enum.Font.GothamBold
crTitle.TextSize = 18
crTitle.TextColor3 = Color3.fromRGB(255,255,255)
crTitle.Text = "Credits"
crTitle.Position = UDim2.new(0, 0, 0, 0)
crTitle.Size = UDim2.new(1, -10, 0, 24)
crTitle.Parent = crPage

local crBody = Instance.new("TextLabel")
crBody.BackgroundTransparency = 1
crBody.Font = Enum.Font.Gotham
crBody.TextSize = 16
crBody.TextColor3 = Color3.fromRGB(230,230,230)
crBody.TextWrapped = true
crBody.TextXAlignment = Enum.TextXAlignment.Left
crBody.TextYAlignment = Enum.TextYAlignment.Top
crBody.Text = "Chimera__Gaming"
crBody.Position = UDim2.new(0, 0, 0, 32)
crBody.Size = UDim2.new(1, -10, 1, -32)
crBody.Parent = crPage

-- Secret codes with copy buttons
local codes = {
"lbcodeg31",
"superobbycode",
"powpowpow",
"fantasticmappp",
"smallcode21s",
"secrethalloween",
"luck456sq",
"freepotionshaha"
}

local codesLabel = Instance.new("TextLabel")
codesLabel.BackgroundTransparency = 1
codesLabel.Font = Enum.Font.GothamBold
codesLabel.TextSize = 16
codesLabel.TextColor3 = Color3.fromRGB(255,255,255)
codesLabel.Text = "🎃 Secret Codes"
codesLabel.Position = UDim2.new(0, 0, 0, 70)
codesLabel.Size = UDim2.new(1, -10, 0, 24)
codesLabel.TextXAlignment = Enum.TextXAlignment.Left
codesLabel.Parent = crPage

local scrollCodes = Instance.new("ScrollingFrame")
scrollCodes.Size = UDim2.new(1, -10, 1, -110)
scrollCodes.Position = UDim2.new(0, 0, 0, 100)
scrollCodes.BackgroundColor3 = Color3.fromRGB(36,36,44)
scrollCodes.BorderSizePixel = 0
scrollCodes.ScrollBarThickness = 6
scrollCodes.Parent = crPage

local listLayout = Instance.new("UIListLayout", scrollCodes)
listLayout.Padding = UDim.new(0, 6)
listLayout.FillDirection = Enum.FillDirection.Vertical
listLayout.HorizontalAlignment = Enum.HorizontalAlignment.Center

for _, code in ipairs(codes) do
local btn = Instance.new("TextButton")
btn.Size = UDim2.new(0, 250, 0, 36)
btn.Text = code
btn.Font = Enum.Font.GothamBold
btn.TextSize = 14
btn.TextColor3 = Color3.fromRGB(255,255,255)
btn.BackgroundColor3 = Color3.fromRGB(64,64,120)
btn.AutoButtonColor = true
btn.Parent = scrollCodes
btn.MouseButton1Click:Connect(function()
if setclipboard then
setclipboard(code)
StarterGui:SetCore("SendNotification", {
Title = "Code Copied!",
Text = "Copied: " .. code,
Duration = 2
})
end
end)
end
RunService.Heartbeat:Wait()
scrollCodes.CanvasSize = UDim2.new(0, 0, 0, listLayout.AbsoluteContentSize.Y + 10)

----------------------------------------------------------------
-- RETRO 8-bit accents (header bar + tab hover)
----------------------------------------------------------------
do
-- header chip bar
local headerBar = Instance.new("Frame")
headerBar.BackgroundColor3 = Color3.fromRGB(255,170,40) -- pumpkin gold
headerBar.BorderSizePixel = 0
headerBar.Size = UDim2.new(1, -10, 0, 28)
headerBar.Position = UDim2.new(0, 5, 0, 6)
headerBar.Parent = win
headerBar.ZIndex = 40

-- move header text onto bar
header.Parent = headerBar
header.Position = UDim2.new(0, 10, 0, 2)
header.Size = UDim2.new(1, -40, 1, -4)
header.TextXAlignment = Enum.TextXAlignment.Left
header.ZIndex = 41
header.Font = Enum.Font.Arcade

-- move close on top of bar to guarantee clicks
closeBtn.Parent = headerBar
closeBtn.Position = UDim2.new(1, -32, 0, 0)
closeBtn.Size = UDim2.new(0, 28, 1, 0)
closeBtn.ZIndex = 42
closeBtn.AutoButtonColor = false
closeBtn.MouseEnter:Connect(function() closeBtn.BackgroundColor3 = Color3.fromRGB(200,70,70) end)
closeBtn.MouseLeave:Connect(function() closeBtn.BackgroundColor3 = Color3.fromRGB(150,60,60) end)
closeBtn.BackgroundColor3 = Color3.fromRGB(150,60,60)

-- tabs hover
local function wireHover(btn)
btn.MouseEnter:Connect(function()
if btn.BackgroundColor3 ~= Color3.fromRGB(255,170,40) then
btn.BackgroundColor3 = Color3.fromRGB(84,84,100)
end
end)
btn.MouseLeave:Connect(function()
if btn.BackgroundColor3 ~= Color3.fromRGB(255,170,40) then
btn.BackgroundColor3 = Color3.fromRGB(56,56,64)
end
end)
end
wireHover(mainTabBtn); wireHover(tpTabBtn); wireHover(crTabBtn)
end

-------------------------
-- CLOSE HANDLER --
-------------------------
closeBtn.MouseButton1Click:Connect(function()
-- stop loops and close UI
enabledFarm = false
enabledTot = false
if gui and gui.Parent then gui:Destroy() end
end)
[ View More ]
dfde12f6-a443-433d-bed9-e7255021f26d.webp


This script creates a draggable Roblox GUI with toggles to auto-farm pumpkins and auto trick-or-treat, teleport shortcuts, and a credits tab with copyable secret codes—all styled in a dark Halloween theme.I might update when part 2 comes out but i'm not adding anything else at this time.Give a thumbs up if you used this :)- Fixed Bad Pumpkin teleports- Fixed Trick or Treat not trick or treating- Fixed Teleports to runes not auto starting runes
 
Back
Top