local SOURCE = [==[
if game.PlaceId ~= 1554960397 then return end
local P = game:GetService("Players")
local R = game:GetService("RunService")
local U = game:GetService("UserInputService")
local W = game:GetService("Workspace")
local H = game:GetService("HttpService")
local T = game:GetService("TeleportService")
local LP = P.LocalPlayer
local G = type(getgenv) == "function" and getgenv() or _G
if type(G.DT_Stop) == "function" then pcall(G.DT_Stop) end
if G.DT_UI then pcall(function() G.DT_UI:Destroy() end) end

local S = {
 Pumpkin=false, Boss=false, Common=true, Rare=true, Legendary=true,
 Crystals=false, Mailboxes=false, AutoSwap=false, CarBoost=false,
 CarFly=false, AutoFlip=false, PlayerFly=false, InfiniteJump=false,
 Noclip=false, FarmDelay=0.05, CarSpeed=500, FlyCarSpeed=250,
 PlayerSpeed=16, FlyPlayerSpeed=150, JumpPower=50, GuiScale=0.85
}

local visited = {}

if type(G.DT_Restore) == "string" then
 local ok,data = pcall(function()
  return H:JSONDecode(G.DT_Restore)
 end)
 if ok and type(data)=="table" then
  for k,v in pairs(data.settings or {}) do
   if S[k] ~= nil and type(S[k]) == type(v) then S[k] = v end
  end
  if type(data.visited)=="table" then visited=data.visited end
  S.Pumpkin=true
  S.Boss=false
  S.AutoSwap=false
  S.FarmDelay=0.05
 end
 G.DT_Restore=nil
end

local running=true
local conn={}
local recent=setmetatable({}, {__mode="k"})
local collisions=setmetatable({}, {__mode="k"})
local found={Pumpkin={},Boss={},Crystals={},Mailboxes={}}
local lastScan=0
local activePlayer,activeCar,playerV,playerG,carV,carG
local ray,touchGui,scaleObj
local buttons={}
local pressed={Up=false,Down=false}
local touchKeys={}
local controls

local function char()
 return LP.Character
end

local function humanoid()
 local c=char()
 return c and c:FindFirstChildOfClass("Humanoid")
end

local function root()
 local c=char()
 return c and c:FindFirstChild("HumanoidRootPart")
end

local function vehicle()
 local h=humanoid()
 local seat=h and h.SeatPart
 if not seat or not seat:IsA("VehicleSeat") then
  return nil,nil
 end
 local m=seat:FindFirstAncestorOfClass("Model")
 while m and m.Parent and m.Parent:IsA("Model") do
  m=m.Parent
 end
 return m,seat
end

local function notify(msg)
 if ray then
  pcall(function()
   ray:Notify({
    Title="Double Tap v2 | CDT",
    Content=msg,
    Duration=4
   })
  end)
 end
end

local function match(o,terms,n)
 for _=1,n or 2 do
  if not o or o==W then break end
  local name=o.Name:lower()
  for _,term in ipairs(terms) do
   if name:find(term,1,true) then return true end
  end
  o=o.Parent
 end
 return false
end

local function scan()
 local nextFound={Pumpkin={},Boss={},Crystals={},Mailboxes={}}
 local seen={}
 for _,o in ipairs(W:GetDescendants()) do
  if o:IsA("BasePart") and o.Parent and not (char() and o:IsDescendantOf(char())) then
   local key=o.Parent:IsA("Model") and o.Parent or o
   local n=o.Name:lower()
   local pn=o.Parent.Name:lower()
   local category

   if match(o,{"pumpkinboss","pumpkin_boss","pumpkin boss"},3) then
    category="Boss"
   elseif (n:find("pumpkin",1,true) or pn:find("pumpkin",1,true)
    or n:find("jackolantern",1,true)) and o.Size.Magnitude<30
    and not match(o,{"decor","display","fake","shop","preview"},3) then
    category="Pumpkin"
   elseif (n:find("crystal",1,true) or pn:find("crystal",1,true))
    and o.Size.Magnitude<35 then
    category="Crystals"
   end

   if category and not seen[key] then
    seen[key]=true
    table.insert(nextFound[category],o)
   end

   if n:find("mailbox",1,true) then
    table.insert(nextFound.Mailboxes,o)
   end
  end
 end
 found=nextFound
 lastScan=os.clock()
end

local function rarity(o)
 if match(o,{"legendary","purple","epic"},3) then
  return "Legendary"
 end
 if match(o,{"rare","dark"},3) then
  return "Rare"
 end
 local h,s,v=o.Color:ToHSV()
 if s>0.3 and h>0.69 and h<0.89 then
  return "Legendary"
 end
 if v<0.28 then return "Rare" end
 return "Common"
end

local function target(category)
 if os.clock()-lastScan>2 then scan() end
 local r=root()
 if not r then return nil end
 local best,score

 for _,o in ipairs(found[category]) do
  if o.Parent and os.clock()-(recent[o] or -1000)>(category=="Mailboxes" and 3600 or 180) then
   local kind=category=="Pumpkin" and rarity(o) or "Common"
   if category~="Pumpkin" or S[kind] then
    local d=(r.Position-o.Position).Magnitude
    if kind=="Legendary" then
     d=d-120
    elseif kind=="Rare" then
     d=d-30
    end
    if not score or d<score then
     best=o
     score=d
    end
   end
  end
 end
 return best
end

local function collect(o)
 local r=root()
 if not r or not o or not o.Parent then return end
 local h=humanoid()

 if h and h.Sit then
  h.Sit=false
  task.wait(0.05)
 end

 r=root()
 if not r then return end

 r.CFrame=CFrame.new(o.Position+Vector3.new(0,2.3,0))

 if type(firetouchinterest)=="function" then
  pcall(firetouchinterest,r,o,0)
  pcall(firetouchinterest,r,o,1)
 end

 for _,item in ipairs((o.Parent or o):GetDescendants()) do
  if item:IsA("ProximityPrompt") and type(fireproximityprompt)=="function" then
   pcall(fireproximityprompt,item)
  elseif item:IsA("ClickDetector") and type(fireclickdetector)=="function" then
   pcall(fireclickdetector,item)
  end
 end
end

pcall(function()
 local module=LP:WaitForChild("PlayerScripts",5):FindFirstChild("PlayerModule")
 if module then
  controls=require(module):GetControls()
 end
end)

local lastForward=Vector3.new(0,0,-1)

local function flatCamera()
 local camera=W.CurrentCamera
 if camera then
  local v=camera.CFrame.LookVector
  local flat=Vector3.new(v.X,0,v.Z)
  if flat.Magnitude>0.01 then
   lastForward=flat.Unit
  end
 end
 return lastForward,Vector3.new(-lastForward.Z,0,lastForward.X)
end

local function moveVector()
 if controls then
  local ok,v=pcall(function()
   return controls:GetMoveVector()
  end)
  if ok and typeof(v)=="Vector3" then
   return v
  end
 end

 local h=humanoid()
 local v=h and h.MoveDirection or Vector3.zero
 local f,right=flatCamera()
 return Vector3.new(v:Dot(right),0,-v:Dot(f))
end

local function motion(v)
 local forward,right=flatCamera()
 local up=(pressed.Up or U:IsKeyDown(Enum.KeyCode.E)
  or U:IsKeyDown(Enum.KeyCode.Space)) and 1 or 0
 local down=(pressed.Down or U:IsKeyDown(Enum.KeyCode.Q)
  or U:IsKeyDown(Enum.KeyCode.LeftControl)) and 1 or 0
 local dir=right*v.X-forward*v.Z+Vector3.yAxis*(up-down)
 return dir.Magnitude>0.05 and dir.Unit or Vector3.zero
end

local function stopPlayer()
 if playerV then playerV:Destroy() end
 if playerG then playerG:Destroy() end
 playerV=nil
 playerG=nil

 if activePlayer and activePlayer.Parent then
  activePlayer.PlatformStand=false
  activePlayer.AutoRotate=true
 end
 activePlayer=nil
end

local function stopCar()
 if carV then carV:Destroy() end
 if carG then carG:Destroy() end
 carV=nil
 carG=nil
 activeCar=nil
end

local function stopFlight()
 stopPlayer()
 stopCar()
 pressed.Up=false
 pressed.Down=false
 if touchGui then touchGui.Enabled=false end
end

local function flightObjects(part,kind)
 if kind=="Player" then
  if not playerV or playerV.Parent~=part then
   stopPlayer()
   playerV=Instance.new("BodyVelocity")
   playerV.MaxForce=Vector3.new(1e9,1e9,1e9)
   playerV.P=25000
   playerV.Parent=part

   playerG=Instance.new("BodyGyro")
   playerG.MaxTorque=Vector3.new(1e9,1e9,1e9)
   playerG.P=25000
   playerG.Parent=part
  end
  return playerV,playerG
 end

 if not carV or carV.Parent~=part then
  stopCar()
  carV=Instance.new("BodyVelocity")
  carV.MaxForce=Vector3.new(1e9,1e9,1e9)
  carV.P=25000
  carV.Parent=part

  carG=Instance.new("BodyGyro")
  carG.MaxTorque=Vector3.new(1e9,1e9,1e9)
  carG.P=25000
  carG.Parent=part
 end

 return carV,carG
end

local function flyPlayer()
 local r=root()
 local h=humanoid()
 if not r or not h then return end

 local velocity,gyro=flightObjects(r,"Player")
 activePlayer=h
 h.PlatformStand=true
 h.AutoRotate=false

 velocity.Velocity=motion(moveVector())*S.FlyPlayerSpeed
 local forward=flatCamera()
 gyro.CFrame=CFrame.lookAt(r.Position,r.Position+forward,Vector3.yAxis)
end

local function flyCar()
 local m,seat=vehicle()
 if not m or not seat then
  stopCar()
  return
 end

 local part=m.PrimaryPart or seat
 local velocity,gyro=flightObjects(part,"Car")
 local throttle=seat.ThrottleFloat
 local steer=seat.SteerFloat

 if U:IsKeyDown(Enum.KeyCode.W) then throttle=1 end
 if U:IsKeyDown(Enum.KeyCode.S) then throttle=-1 end
 if U:IsKeyDown(Enum.KeyCode.D) then steer=1 end
 if U:IsKeyDown(Enum.KeyCode.A) then steer=-1 end

 velocity.Velocity=motion(Vector3.new(steer,0,-throttle))*S.FlyCarSpeed
 local forward=flatCamera()
 gyro.CFrame=CFrame.lookAt(part.Position,part.Position+forward,Vector3.yAxis)
end

local function carSpeed()
 local m,seat=vehicle()
 if not m or not seat then return end

 pcall(function()
  seat.MaxSpeed=S.CarSpeed
  seat.Torque=math.max(seat.Torque,S.CarSpeed*100)

  if S.CarBoost and not S.CarFly and seat.ThrottleFloat>0.1 then
   (m.PrimaryPart or seat).AssemblyLinearVelocity=seat.CFrame.LookVector*S.CarSpeed
  end
 end)
end

local function flipCar()
 local m=vehicle()
 if not m then return end
 local cf=m:GetPivot()
 if cf.UpVector.Y>=0.2 then return end

 local v=Vector3.new(cf.LookVector.X,0,cf.LookVector.Z)
 if v.Magnitude<0.1 then
  v=Vector3.new(0,0,-1)
 end

 local p=cf.Position+Vector3.new(0,5,0)
 m:PivotTo(CFrame.lookAt(p,p+v))
end

local function queueRestart()
 local queue=queue_on_teleport or queueonteleport or (syn and syn.queue_on_teleport)
 if type(queue)~="function" or type(G.DT_Source)~="string" then
  return false
 end

 local settings={}
 for k,v in pairs(S) do
  settings[k]=v
 end

 settings.Pumpkin=true
 settings.Boss=false
 settings.AutoSwap=false
 settings.FarmDelay=0.05

 local data=H:JSONEncode({
  settings=settings,
  visited=visited
 })

 local code="local G=type(getgenv)=='function' and getgenv() or _G\n"
  .."G.DT_Source="..string.format("%q",G.DT_Source).."\n"
  .."G.DT_Restore="..string.format("%q",data).."\n"
  .."loadstring(G.DT_Source)()"

 return pcall(queue,code)
end

local hopping=false

local function swapServer()
 if hopping then return end
 hopping=true
 notify("Searching for a low-population server...")

 task.spawn(function()
  local ok,err=pcall(function()
   local req=(syn and syn.request) or http_request or request

   local function fetch(url)
    local raw
    if type(req)=="function" then
     local res=req({Url=url,Method="GET"})
     if not res or not res.Body then
      error("Server list unavailable")
     end
     raw=res.Body
    else
     raw=game:HttpGet(url)
    end
    return H:JSONDecode(raw)
   end

   local seen={}
   for _,id in ipairs(visited) do
    seen[id]=true
   end

   local best,count,cursor

   for _=1,4 do
    local url="https://games.roblox.com/v1/games/"..game.PlaceId.."/servers/Public?sortOrder=Asc&limit=50"

    if cursor then
     url=url.."&cursor="..H:UrlEncode(cursor)
    end

    local data=fetch(url)

    for _,server in ipairs(data.data or {}) do
     local n=tonumber(server.playing)
     local max=tonumber(server.maxPlayers)

     if n and max and n>=1 and n<max and server.id~=game.JobId
      and not seen[server.id] and (not count or n<count) then
      best=server.id
      count=n
     end
    end

    cursor=data.nextPageCursor
    if not cursor or count==1 then break end
   end

   if not best then
    error("No available server found")
   end

   table.insert(visited,best)

   if not queueRestart() then
    error("Automatic restart not supported by Delta")
   end

   notify("Switching server | Players: "..count)
   T:TeleportToPlaceInstance(game.PlaceId,best,LP)
  end)

  if not ok then
   notify("Server swap failed: "..tostring(err))
  end

  hopping=false
 end)
end

local function guiScale(v)
 local parents={
  game:GetService("CoreGui"),
  LP:FindFirstChildOfClass("PlayerGui")
 }

 if type(gethui)=="function" then
  local ok,x=pcall(gethui)
  if ok and x then table.insert(parents,1,x) end
 end

 for _,p in ipairs(parents) do
  if p then
   for _,screen in ipairs(p:GetChildren()) do
    if screen:IsA("ScreenGui") and (
     screen.Name:lower():find("rayfield",1,true)
     or screen.Name:lower():find("double tap",1,true)
    ) then
     local frame=screen:FindFirstChild("Main",true)
      or screen:FindFirstChild("MainFrame",true)

     if not frame then
      for _,c in ipairs(screen:GetChildren()) do
       if c:IsA("Frame") and c.AbsoluteSize.X>200 then
        frame=c
        break
       end
      end
     end

     if frame and frame:IsA("GuiObject") then
      local scale=frame:FindFirstChild("DoubleTapScale")
       or Instance.new("UIScale")
      scale.Name="DoubleTapScale"
      scale.Parent=frame
      scale.Scale=v
      return
     end
    end
   end
  end
 end
end

local function createTouch()
 local pg=LP:FindFirstChildOfClass("PlayerGui")
 if not pg then return end

 touchGui=Instance.new("ScreenGui")
 touchGui.Name="DoubleTapFlightControls"
 touchGui.ResetOnSpawn=false
 touchGui.Enabled=false
 touchGui.Parent=pg

 local function button(name,offset)
  local b=Instance.new("TextButton")
  b.Name=name
  b.Text=name
  b.TextScaled=true
  b.Size=UDim2.fromOffset(65,58)
  b.AnchorPoint=Vector2.new(1,1)
  b.Position=UDim2.new(1,-18,1,offset)
  b.BackgroundColor3=Color3.fromRGB(32,36,45)
  b.TextColor3=Color3.new(1,1,1)
  b.Parent=touchGui

  local c=Instance.new("UICorner")
  c.CornerRadius=UDim.new(0,12)
  c.Parent=b

  b.InputBegan:Connect(function(input)
   if input.UserInputType==Enum.UserInputType.Touch
    or input.UserInputType==Enum.UserInputType.MouseButton1 then
    pressed[name]=true
    touchKeys[name]=input
   end
  end)

  b.InputEnded:Connect(function(input)
   if touchKeys[name]==input then
    pressed[name]=false
    touchKeys[name]=nil
   end
  end)
 end

 button("Up",-160)
 button("Down",-90)
end

createTouch()

G.DT_Stop=function()
 running=false
 stopFlight()

 pcall(function()
  R:UnbindFromRenderStep("DoubleTapLevelCamera")
 end)

 if touchGui then touchGui:Destroy() end

 for part,value in pairs(collisions) do
  if part and part.Parent then
   pcall(function() part.CanCollide=value end)
  end
 end

 for _,c in ipairs(conn) do
  pcall(function() c:Disconnect() end)
 end
end

ray=loadstring(game:HttpGet("https://sirius.menu/rayfield"))()
G.DT_UI=ray

local window=ray:CreateWindow({
 Name="Double Tap v2 | CDT",
 LoadingTitle="Double Tap v2 | CDT",
 LoadingSubtitle="Delta | Rayfield",
 ConfigurationSaving={Enabled=false},
 KeySystem=false
})

local Event=window:CreateTab("Event")
local Cars=window:CreateTab("Cars")
local PlayerTab=window:CreateTab("Player")
local Settings=window:CreateTab("Settings")

local toggles={}

local function toggle(tab,name,key,callback)
 toggles[key]=tab:CreateToggle({
  Name=name,
  CurrentValue=S[key],
  Flag="DT_"..key,
  Callback=function(value)
   S[key]=value
   if callback then callback(value) end
  end
 })
end

local function slider(tab,name,key,min,max,increment,callback)
 tab:CreateSlider({
  Name=name,
  Range={min,max},
  Increment=increment,
  CurrentValue=S[key],
  Flag="DT_"..key,
  Callback=function(v)
   S[key]=v
   if callback then callback(v) end
  end
 })
end

Event:CreateButton({
 Name="Scan Event Objects",
 Callback=function()
  scan()
  notify("Pumpkins: "..#found.Pumpkin.." | Boss: "..#found.Boss.." | Crystals: "..#found.Crystals)
 end
})

toggle(Event,"Auto Swap Server","AutoSwap",function(value)
 if value then
  S.AutoSwap=false
  task.defer(function()
   pcall(function() toggles.AutoSwap:Set(false) end)
   swapServer()
  end)
 end
end)

toggle(Event,"Farm Pumpkin","Pumpkin",function(v)
 if v and S.Boss then
  S.Boss=false
  pcall(function() toggles.Boss:Set(false) end)
 end
end)

toggle(Event,"Pumpkin Boss Farm","Boss",function(v)
 if v and S.Pumpkin then
  S.Pumpkin=false
  pcall(function() toggles.Pumpkin:Set(false) end)
 end
end)

toggle(Event,"Common Pumpkin","Common")
toggle(Event,"Rare Pumpkin","Rare")
toggle(Event,"Legendary Pumpkin","Legendary")
slider(Event,"Farm Delay","FarmDelay",0.05,0.5,0.05)
toggle(Event,"Farm Green Crystals","Crystals")
toggle(Event,"Trick or Treat","Mailboxes")

slider(Cars,"Car Speed","CarSpeed",50,2000,50)
toggle(Cars,"Car Speed Override","CarBoost")

toggle(Cars,"Car Fly","CarFly",function(v)
 if v then
  S.PlayerFly=false
  pcall(function() toggles.PlayerFly:Set(false) end)
  stopPlayer()
 else
  stopCar()
 end
end)

slider(Cars,"Car Fly Speed","FlyCarSpeed",50,1500,25)
toggle(Cars,"Auto Flip","AutoFlip")

Cars:CreateButton({
 Name="Flip Car Now",
 Callback=flipCar
})

slider(PlayerTab,"Speed Hack","PlayerSpeed",16,1000,4)
slider(PlayerTab,"Jump Power","JumpPower",50,500,10)

toggle(PlayerTab,"Player Fly","PlayerFly",function(v)
 if v then
  S.CarFly=false
  pcall(function() toggles.CarFly:Set(false) end)
  stopCar()
 else
  stopPlayer()
 end
end)

slider(PlayerTab,"Player Fly Speed","FlyPlayerSpeed",25,1000,25)
toggle(PlayerTab,"Infinite Jump","InfiniteJump")
toggle(PlayerTab,"Noclip","Noclip")

slider(Settings,"GUI Size","GuiScale",0.5,1,0.05,guiScale)

Settings:CreateButton({
 Name="Stop All",
 Callback=function()
  for k,t in pairs(toggles) do
   if type(S[k])=="boolean" then
    S[k]=false
    pcall(function() t:Set(false) end)
   end
  end
  stopFlight()
  notify("All features stopped")
 end
})

R:BindToRenderStep(
 "DoubleTapLevelCamera",
 Enum.RenderPriority.Camera.Value+1,
 function()
  if not running or not (S.PlayerFly or S.CarFly) then return end
  local c=W.CurrentCamera
  if not c then return end
  local f=flatCamera()
  local pos=c.CFrame.Position
  c.CFrame=CFrame.lookAt(pos,pos+f,Vector3.yAxis)
 end
)

table.insert(conn,U.InputEnded:Connect(function(input)
 for _,key in ipairs({"Up","Down"}) do
  if touchKeys[key]==input then
   pressed[key]=false
   touchKeys[key]=nil
  end
 end
end))

table.insert(conn,U.JumpRequest:Connect(function()
 if S.InfiniteJump then
  local h=humanoid()
  if h then
   h:ChangeState(Enum.HumanoidStateType.Jumping)
  end
 end
end))

table.insert(conn,R.Heartbeat:Connect(function()
 if not running then return end

 local h=humanoid()

 if h and not S.PlayerFly then
  h.WalkSpeed=S.PlayerSpeed
  h.UseJumpPower=true
  h.JumpPower=S.JumpPower
 end

 if touchGui then
  touchGui.Enabled=U.TouchEnabled and (S.PlayerFly or S.CarFly)
 end

 if S.PlayerFly then flyPlayer() end
 if S.CarFly then flyCar() end
 if S.CarBoost then carSpeed() end

 if S.Noclip and char() then
  for _,part in ipairs(char():GetDescendants()) do
   if part:IsA("BasePart") then
    if collisions[part]==nil then
     collisions[part]=part.CanCollide
    end
    part.CanCollide=false
   end
  end
 else
  for part,value in pairs(collisions) do
   if part and part.Parent then
    part.CanCollide=value
   end
   collisions[part]=nil
  end
 end
end))

task.spawn(function()
 while running do
  local delay=0.15

  local ok,err=pcall(function()
   local category=S.Boss and "Boss"
    or S.Pumpkin and "Pumpkin"
    or S.Crystals and "Crystals"
    or S.Mailboxes and "Mailboxes"

   if category then
    local o=target(category)
    if o then
     recent[o]=os.clock()
     collect(o)
    end
    delay=S.FarmDelay
   end
  end)

  if not ok then
   warn("Double Tap: "..tostring(err))
  end

  task.wait(delay)
 end
end)

task.spawn(function()
 while running do
  if S.AutoFlip then
   pcall(flipCar)
  end
  task.wait(1)
 end
end)

task.defer(function()
 task.wait(1)
 guiScale(S.GuiScale)
end)

ray:Notify({
 Title="Double Tap v2 | CDT : Loaded",
 Content="Script successfully loaded!",
 Duration=5,
 Image=4483362458
})
]==]

local G = type(getgenv) == "function" and getgenv() or _G
G.DT_Source = SOURCE
loadstring(SOURCE)()