--[[
  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)