-- Delta Executor用 カスタムGUI
local ScreenGui = Instance.new("ScreenGui")
local MainFrame = Instance.new("Frame")
local Title = Instance.new("TextLabel")
local ScrollingFrame = Instance.new("ScrollingFrame")
local UIListLayout = Instance.new("UIListLayout")

ScreenGui.Parent = game.CoreGui
ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling

MainFrame.Name = "MainFrame"
MainFrame.Parent = ScreenGui
MainFrame.BackgroundColor3 = Color3.fromRGB(10, 10, 10)
MainFrame.Position = UDim2.new(0.1, 0, 0.1, 0)
MainFrame.Size = UDim2.new(0, 220, 0, 560)
MainFrame.Active = true
MainFrame.Draggable = true

Title.Parent = MainFrame
Title.Size = UDim2.new(1, 0, 0, 40)
Title.BackgroundColor3 = Color3.fromRGB(100, 0, 0)
Title.Text = "ZvsH ULTIMATE v6"
Title.TextColor3 = Color3.fromRGB(255, 255, 255)
Title.TextSize = 20

ScrollingFrame.Parent = MainFrame
ScrollingFrame.Position = UDim2.new(0, 0, 0, 40)
ScrollingFrame.Size = UDim2.new(1, 0, 1, -40)
ScrollingFrame.BackgroundTransparency = 1
ScrollingFrame.CanvasSize = UDim2.new(0, 0, 2, 0)

UIListLayout.Parent = ScrollingFrame
UIListLayout.SortOrder = Enum.SortOrder.LayoutOrder
UIListLayout.Padding = UDim.new(0, 5)

-- 設定変数
local AimbotEnabled = false
local TeamCheck = true
local InfiniteJump = false
local WalkSpeedValue = 16
local JumpPowerValue = 50
local HitboxEnabled = false
local HitboxSize = 50 
local GodModeEnabled = false
local NoclipEnabled = false
local AutoKillFarmEnabled = false
local FlyEnabled = false
local FlySpeed = 50

-- UI作成関数
local function createToggle(text, callback)
    local Button = Instance.new("TextButton")
    local state = false
    Button.Parent = ScrollingFrame
    Button.Size = UDim2.new(0.9, 0, 0, 35)
    Button.Text = text .. ": OFF"
    Button.BackgroundColor3 = Color3.fromRGB(40, 40, 40)
    Button.TextColor3 = Color3.fromRGB(255, 255, 255)
    Button.MouseButton1Click:Connect(function()
        state = not state
        Button.Text = text .. (state and ": ON" or ": OFF")
        Button.BackgroundColor3 = state and Color3.fromRGB(0, 120, 0) or Color3.fromRGB(40, 40, 40)
        callback(state)
    end)
end

local function createSlider(text, default, callback)
    local Label = Instance.new("TextLabel")
    Label.Parent = ScrollingFrame
    Label.Size = UDim2.new(0.9, 0, 0, 20)
    Label.Text = text .. ": " .. default
    Label.TextColor3 = Color3.fromRGB(255, 255, 255)
    Label.BackgroundTransparency = 1
    local Box = Instance.new("TextBox")
    Box.Parent = ScrollingFrame
    Box.Size = UDim2.new(0.9, 0, 0, 30)
    Box.Text = tostring(default)
    Box.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
    Box.TextColor3 = Color3.fromRGB(255, 255, 255)
    Box.FocusLost:Connect(function()
        local val = tonumber(Box.Text) or default
        Label.Text = text .. ": " .. val
        callback(val)
    end)
end

createToggle("Aimbot", function(s) AimbotEnabled = s end)
createToggle("Team Check", function(s) TeamCheck = s end)
createToggle("Infinite Jump", function(s) InfiniteJump = s end)
createSlider("WalkSpeed", 16, function(v) WalkSpeedValue = v end)
createSlider("JumpPower", 50, function(v) JumpPowerValue = v end)
createToggle("Fly (Tablet Ready)", function(s) FlyEnabled = s end)
createSlider("Fly Speed", 50, function(v) FlySpeed = v end)
createToggle("Noclip (Wallhack)", function(s) NoclipEnabled = s end)
createToggle("Hitbox Expander", function(s) HitboxEnabled = s end)
createSlider("Hitbox Size", 50, function(v) HitboxSize = v end)
createToggle("GOD MODE (Bypass)", function(s) GodModeEnabled = s end)
createToggle("Auto Kill-Farm", function(s) AutoKillFarmEnabled = s end)

-- Player Teleport セクション
local TpLabel = Instance.new("TextLabel")
TpLabel.Parent = ScrollingFrame
TpLabel.Size = UDim2.new(0.9, 0, 0, 20)
TpLabel.Text = "--- PLAYER TELEPORT ---"
TpLabel.TextColor3 = Color3.fromRGB(255, 255, 0)
TpLabel.BackgroundTransparency = 1

local TpContainer = Instance.new("Frame")
TpContainer.Parent = ScrollingFrame
TpContainer.Size = UDim2.new(0.9, 0, 0, 150)
TpContainer.BackgroundTransparency = 1

local TpScroll = Instance.new("ScrollingFrame")
TpScroll.Parent = TpContainer
TpScroll.Size = UDim2.new(1, 0, 1, 0)
TpScroll.BackgroundTransparency = 1
TpScroll.CanvasSize = UDim2.new(0, 0, 2, 0)

local TpListLayout = Instance.new("UIListLayout")
TpListLayout.Parent = TpScroll
TpListLayout.SortOrder = Enum.SortOrder.LayoutOrder

local Camera = workspace.CurrentCamera
local LocalPlayer = game.Players.LocalPlayer

-- 【修正】テレポート実行関数 (巻き戻し防止策を組み込み)
local function teleportTo(targetPart)
    if LocalPlayer.Character and LocalPlayer.Character:FindFirstChild("HumanoidRootPart") then
        local hrp = LocalPlayer.Character.HumanoidRootPart
        -- サーバー検知を避けるため、わずかに座標をずらして設定
        hrp.CFrame = targetPart.CFrame * CFrame.new(0, 0, 3)
        -- 強制的に速度をゼロにして、反動で飛ばされるのを防ぐ
        hrp.Velocity = Vector3.new(0,0,0)
        hrp.RotVelocity = Vector3.new(0,0,0)
    end
end

-- テレポートボタン更新
local function updatePlayerList()
    for _, child in pairs(TpScroll:GetChildren()) do
        if child:IsA("TextButton") then child:Destroy() end
    end

    for _, player in pairs(game.Players:GetPlayers()) do
        if player ~= LocalPlayer then
            local btn = Instance.new("TextButton")
            btn.Parent = TpScroll
            btn.Size = UDim2.new(1, 0, 0, 30)
            btn.Text = "TP to: " .. player.Name
            btn.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
            btn.TextColor3 = Color3.fromRGB(255, 255, 255)
            btn.MouseButton1Click:Connect(function()
                if player.Character and player.Character:FindFirstChild("HumanoidRootPart") then
                    teleportTo(player.Character.HumanoidRootPart)
                end
            end)
        end
    end
end

spawn(function()
    while wait(10) do updatePlayerList() end
end)
updatePlayerList()

-- エイムボット
game:GetService("RunService").RenderStepped:Connect(function()
    if AimbotEnabled then
        local closestPlayer = nil
        local shortestDistance = math.huge
        for _, player in pairs(game.Players:GetPlayers()) do
            if player ~= LocalPlayer and player.Character and player.Character:FindFirstChild("Head") then
                if TeamCheck and player.Team == LocalPlayer.Team then continue end
                local magnitude = (player.Character.Head.Position - Camera.CFrame.Position).Magnitude
                if magnitude < shortestDistance then
                    shortestDistance = magnitude
                    closestPlayer = player
                end
            end
        end
        if closestPlayer then
            Camera.CFrame = CFrame.new(Camera.CFrame.Position, closestPlayer.Character.Head.Position)
        end
    end
end)

-- Hitbox Expander
game:GetService("RunService").Heartbeat:Connect(function()
    if HitboxEnabled then
        for _, player in pairs(game.Players:GetPlayers()) do
            if player ~= LocalPlayer and player.Character and player.Character:FindFirstChild("HumanoidRootPart") then
                local hrp = player.Character.HumanoidRootPart
                hrp.Size = Vector3.new(HitboxSize, HitboxSize, HitboxSize)
                hrp.CanCollide = false
                hrp.Transparency = 0.7
            end
        end
    end
end)

-- Advanced God Mode (Bypass)
spawn(function()
    while wait() do
        if GodModeEnabled and LocalPlayer.Character then
            local hum = LocalPlayer.Character:FindFirstChildOfClass("Humanoid")
            if hum then
                hum.Health = hum.MaxHealth
                hum:ChangeState(Enum.HumanoidStateType.Physics)
                wait(0.01)
                hum:ChangeState(Enum.HumanoidStateType.GettingUp)
            end
            for _, part in pairs(LocalPlayer.Character:GetDescendants()) do
                if part:IsA("BasePart") then
                    part.CanTouch = false 
                    part.CanCollide = false 
                end
            end
        end
    end
end)

-- Noclip (壁抜け)
game:GetService("RunService").Stepped:Connect(function()
    if NoclipEnabled and LocalPlayer.Character then
        for _, part in pairs(LocalPlayer.Character:GetDescendants()) do
            if part:IsA("BasePart") then part.CanCollide = false end
        end
    end
end)

-- 【改善】Auto Kill-Farm (巻き戻し防止版)
spawn(function()
    while wait(0.3) do -- 間隔をわずかに広げてサーバー検知を回避
        if AutoKillFarmEnabled and LocalPlayer.Character and LocalPlayer.Character:FindFirstChild("HumanoidRootPart") then
            local target = nil
            local shortestDist = math.huge
            for _, player in pairs(game.Players:GetPlayers()) do
                if player ~= LocalPlayer and player.Character and player.Character:FindFirstChild("HumanoidRootPart") then
                    if player.Team ~= LocalPlayer.Team then
                        local dist = (player.Character.HumanoidRootPart.Position - LocalPlayer.Character.HumanoidRootPart.Position).Magnitude
                        if dist < shortestDist then
                            shortestDist = dist
                            target = player.Character.HumanoidRootPart
                        end
                    end
                end
            end
            if target then
                teleportTo(target)
            end
        end
    end
end)

-- Tablet/Mobile Ready Fly (ジョイスティック対応)
local bv, bg
spawn(function()
    while wait() do
        if FlyEnabled and LocalPlayer.Character and LocalPlayer.Character:FindFirstChild("HumanoidRootPart") then
            local root = LocalPlayer.Character.HumanoidRootPart
            local hum = LocalPlayer.Character:FindFirstChildOfClass("Humanoid")
            if not bv then
                bv = Instance.new("BodyVelocity", root)
                bv.MaxForce = Vector3.new(math.huge, math.huge, math.huge)
                bv.Velocity = Vector3.new(0, 0, 0)
                bg = Instance.new("BodyGyro", root)
                bg.MaxTorque = Vector3.new(math.huge, math.huge, math.huge)
                bg.CFrame = root.CFrame
            end

            local moveDir = hum.MoveDirection * FlySpeed
            bv.Velocity = moveDir + (Camera.CFrame.LookVector * (hum.MoveDirection.Magnitude > 0 and 5 or 0))
            bg.CFrame = Camera.CFrame
        else
            if bv then bv:Destroy() bv = nil end
            if bg then bg:Destroy() bg = nil end
        end
    end
end)

-- 無限ジャンプとステータス更新
game:GetService("UserInputService").JumpRequest:Connect(function()
    if InfiniteJump and LocalPlayer.Character and LocalPlayer.Character:FindFirstChildOfClass("Humanoid") then
        LocalPlayer.Character:FindFirstChildOfClass("Humanoid"):ChangeState("Jumping")
    end
end)

spawn(function()
    while wait(0.1) do
        if LocalPlayer.Character and LocalPlayer.Character:FindFirstChildOfClass("Humanoid") then
            LocalPlayer.Character:FindFirstChildOfClass("Humanoid").WalkSpeed = WalkSpeedValue
            LocalPlayer.Character:FindFirstChildOfClass("Humanoid").JumpPower = JumpPowerValue
        end
    end
end)