local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local UserInputService = game:GetService("UserInputService")
local CoreGui = game:GetService("CoreGui")
local LocalPlayer = Players.LocalPlayer

-- GUI Tasarımı
local ScreenGui = Instance.new("ScreenGui")
local MainFrame = Instance.new("Frame")
local Title = Instance.new("TextLabel")
local FlyButton = Instance.new("TextButton")
local SpeedButton = Instance.new("TextButton")
local NoclipButton = Instance.new("TextButton") -- Noclip Butonu Eklendi

ScreenGui.Name = "XenoClassicFly_V3"
ScreenGui.Parent = CoreGui
ScreenGui.ResetOnSpawn = false

MainFrame.Name = "MainFrame"
MainFrame.Parent = ScreenGui
MainFrame.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
MainFrame.Position = UDim2.new(0.05, 0, 0.4, 0)
MainFrame.Size = UDim2.new(0, 240, 0, 190) -- Yeni buton için dikey boyut 145'ten 190'a çıkarıldı
MainFrame.BorderSizePixel = 0
MainFrame.Active = true

local function addCorner(parent)
    local corner = Instance.new("UICorner")
    corner.CornerRadius = UDim.new(0, 6)
    corner.Parent = parent
end
addCorner(MainFrame)

Title.Name = "Title"
Title.Parent = MainFrame
Title.BackgroundColor3 = Color3.fromRGB(45, 45, 45)
Title.Size = UDim2.new(1, 0, 0, 30)
Title.Font = Enum.Font.SourceSansBold
Title.Text = "Beleş uçuyon şükret kardeş" 
Title.TextColor3 = Color3.fromRGB(255, 255, 255)
Title.TextSize = 14 
addCorner(Title)

FlyButton.Name = "FlyButton"
FlyButton.Parent = MainFrame
FlyButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
FlyButton.Position = UDim2.new(0.1, 0, 0.23, 0)
FlyButton.Size = UDim2.new(0.8, 0, 0, 32)
FlyButton.Font = Enum.Font.SourceSansBold
FlyButton.Text = "Fly: OFF"
FlyButton.TextColor3 = Color3.fromRGB(255, 255, 255)
FlyButton.TextSize = 15
addCorner(FlyButton)

SpeedButton.Name = "SpeedButton"
SpeedButton.Parent = MainFrame
SpeedButton.BackgroundColor3 = Color3.fromRGB(45, 120, 200)
SpeedButton.Position = UDim2.new(0.1, 0, 0.48, 0)
SpeedButton.Size = UDim2.new(0.8, 0, 0, 32)
SpeedButton.Font = Enum.Font.SourceSansBold
SpeedButton.Text = "Hız: 250"
SpeedButton.TextColor3 = Color3.fromRGB(255, 255, 255)
SpeedButton.TextSize = 15
addCorner(SpeedButton)

NoclipButton.Name = "NoclipButton"
NoclipButton.Parent = MainFrame
NoclipButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
NoclipButton.Position = UDim2.new(0.1, 0, 0.73, 0)
NoclipButton.Size = UDim2.new(0.8, 0, 0, 32)
NoclipButton.Font = Enum.Font.SourceSansBold
NoclipButton.Text = "Noclip: OFF"
NoclipButton.TextColor3 = Color3.fromRGB(255, 255, 255)
NoclipButton.TextSize = 15
addCorner(NoclipButton)

-- Menü Sürükleme Sistemi
local dragging, dragInput, dragStart, startPos
MainFrame.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
        dragging = true
        dragStart = input.Position
        startPos = MainFrame.Position
        input.Changed:Connect(function()
            if input.UserInputState == Enum.UserInputState.End then
                dragging = false
            end
        end)
    end
end)
MainFrame.InputChanged:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
        dragInput = input
    end
end)
UserInputService.InputChanged:Connect(function(input)
    if input == dragInput and dragging then
        local delta = input.Position - dragStart
        MainFrame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
    end
end)

-- Menü Kapatma (K Tuşu)
UserInputService.InputBegan:Connect(function(input, gameProcessed)
    if gameProcessed then return end
    if input.KeyCode == Enum.KeyCode.K then
        MainFrame.Visible = not MainFrame.Visible
    end
end)

-- Değişkenler
local flying = false
local noclip = false
local speeds = {250, 350, 450, 550, 650, 750, 850, 950, 1000}
local currentSpeedIndex = 1
local flySpeed = speeds[currentSpeedIndex]
local flyConnection
local noclipConnection
local bv, bg

-- Hız Butonu
SpeedButton.MouseButton1Click:Connect(function()
    currentSpeedIndex = currentSpeedIndex + 1
    if currentSpeedIndex > #speeds then
        currentSpeedIndex = 1
    end
    flySpeed = speeds[currentSpeedIndex]
    SpeedButton.Text = "Hız: " .. tostring(flySpeed)
end)

-- Uçma Sistemi
local function startFlying()
    local character = LocalPlayer.Character
    if not character then return end
    local root = character:FindFirstChild("HumanoidRootPart")
    local humanoid = character:FindFirstChildOfClass("Humanoid")
    if not root or not humanoid then return end

    for _, anim in pairs(humanoid:GetPlayingAnimationTracks()) do
        anim:Stop()
    end

    if bv then bv:Destroy() end
    if bg then bg:Destroy() end

    bv = Instance.new("BodyVelocity")
    bv.MaxForce = Vector3.new(1e5, 1e5, 1e5)
    bv.Velocity = Vector3.new(0, 0, 0)
    bv.Parent = root

    bg = Instance.new("BodyGyro")
    bg.MaxTorque = Vector3.new(1e5, 1e5, 1e5)
    bg.CFrame = root.CFrame
    bg.Parent = root

    flyConnection = RunService.RenderStepped:Connect(function()
        if not LocalPlayer.Character or not LocalPlayer.Character:FindFirstChild("HumanoidRootPart") then 
            flying = false
            FlyButton.Text = "Fly: OFF"
            FlyButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
            if flyConnection then flyConnection:Disconnect() end
            return 
        end

        local camera = workspace.CurrentCamera
        local moveDirection = Vector3.new(0, 0, 0)

        humanoid.PlatformStand = true
        for _, anim in pairs(humanoid:GetPlayingAnimationTracks()) do
            anim:Stop()
        end

        if UserInputService:IsKeyDown(Enum.KeyCode.W) then
            moveDirection = moveDirection + camera.CFrame.LookVector
        end
        if UserInputService:IsKeyDown(Enum.KeyCode.S) then
            moveDirection = moveDirection - camera.CFrame.LookVector
        end
        if UserInputService:IsKeyDown(Enum.KeyCode.A) then
            moveDirection = moveDirection - camera.CFrame.RightVector
        end
        if UserInputService:IsKeyDown(Enum.KeyCode.D) then
            moveDirection = moveDirection + camera.CFrame.RightVector
        end
        if UserInputService:IsKeyDown(Enum.KeyCode.Space) then
            moveDirection = moveDirection + Vector3.new(0, 1, 0)
        end
        if UserInputService:IsKeyDown(Enum.KeyCode.LeftShift) then
            moveDirection = moveDirection - Vector3.new(0, 1, 0)
        end

        if moveDirection.Magnitude > 0 then
            bv.Velocity = moveDirection.Unit * flySpeed
        else
            bv.Velocity = Vector3.new(0, 0, 0)
        end

        bg.CFrame = camera.CFrame
    end)
end

local function stopFlying()
    if flyConnection then flyConnection:Disconnect() end
    if bv then bv:Destroy() end
    if bg then bg:Destroy() end
    
    local character = LocalPlayer.Character
    if character then
        local humanoid = character:FindFirstChildOfClass("Humanoid")
        if humanoid then
            humanoid.PlatformStand = false
        end
    end
end

FlyButton.MouseButton1Click:Connect(function()
    flying = not flying
    if flying then
        FlyButton.Text = "Fly: ON"
        FlyButton.BackgroundColor3 = Color3.fromRGB(50, 200, 50)
        startFlying()
    else
        FlyButton.Text = "Fly: OFF"
        FlyButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
        stopFlying()
    end
end)

-- Noclip Döngüsü (Her karede karakter parçalarının temasını kapatır)
local function startNoclip()
    noclipConnection = RunService.Stepped:Connect(function()
        if noclip and LocalPlayer.Character then
            for _, part in pairs(LocalPlayer.Character:GetDescendants()) do
                if part:IsA("BasePart") and part.CanCollide == true then
                    part.CanCollide = false
                end
            end
        end
    end)
end

local function stopNoclip()
    if noclipConnection then noclipConnection:Disconnect() end
end

NoclipButton.MouseButton1Click:Connect(function()
    noclip = not noclip
    if noclip then
        NoclipButton.Text = "Noclip: ON"
        NoclipButton.BackgroundColor3 = Color3.fromRGB(50, 200, 50)
        startNoclip()
    else
        NoclipButton.Text = "Noclip: OFF"
        NoclipButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
        stopNoclip()
    end
end)

-- Yeniden Doğma Temizliği
LocalPlayer.CharacterAdded:Connect(function()
    flying = false
    noclip = false
    FlyButton.Text = "Fly: OFF"
    FlyButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
    NoclipButton.Text = "Noclip: OFF"
    NoclipButton.BackgroundColor3 = Color3.fromRGB(200, 50, 50)
    stopFlying()
    stopNoclip()
end)