Threat Level Radar 001

local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local CoreGui = (gethui and gethui()) or game:GetService("CoreGui") or Players.LocalPlayer:WaitForChild("PlayerGui")

local RADAR_NAME = "ThreatRadarModel001"

if CoreGui:FindFirstChild(RADAR_NAME) then
    CoreGui[RADAR_NAME]:Destroy()
end

local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = RADAR_NAME
ScreenGui.ResetOnSpawn = false
ScreenGui.Parent = CoreGui

local MainFrame = Instance.new("Frame")
MainFrame.Size = UDim2.new(0, 280, 0, 240)
MainFrame.Position = UDim2.new(0.05, 0, 0.3, 0)
MainFrame.BackgroundColor3 = Color3.fromRGB(15, 15, 20)
MainFrame.BorderSizePixel = 0
MainFrame.Parent = ScreenGui

local UICorner = Instance.new("UICorner")
UICorner.CornerRadius = UDim.new(0, 8)
UICorner.Parent = MainFrame

local UIStroke = Instance.new("UIStroke")
UIStroke.Color = Color3.fromRGB(0, 255, 150)
UIStroke.Thickness = 2
UIStroke.Parent = MainFrame

local TopBar = Instance.new("Frame")
TopBar.Size = UDim2.new(1, 0, 0, 35)
TopBar.BackgroundColor3 = Color3.fromRGB(25, 25, 30)
TopBar.BorderSizePixel = 0
TopBar.Parent = MainFrame

local TopBarCorner = Instance.new("UICorner")
TopBarCorner.CornerRadius = UDim.new(0, 8)
TopBarCorner.Parent = TopBar

local TitleLabel = Instance.new("TextLabel")
TitleLabel.Size = UDim2.new(1, -60, 1, 0)
TitleLabel.Position = UDim2.new(0, 10, 0, 0)
TitleLabel.BackgroundTransparency = 1
TitleLabel.Text = "THREAT RADAR MODEL 001"
TitleLabel.TextColor3 = Color3.fromRGB(255, 50, 50)
TitleLabel.Font = Enum.Font.Code
TitleLabel.TextSize = 13
TitleLabel.TextXAlignment = Enum.TextXAlignment.Left
TitleLabel.Parent = TopBar

local ContentFrame = Instance.new("Frame")
ContentFrame.Size = UDim2.new(1, 0, 1, -35)
ContentFrame.Position = UDim2.new(0, 0, 0, 35)
ContentFrame.BackgroundTransparency = 1
ContentFrame.Parent = MainFrame

local StatusLabel = Instance.new("TextLabel")
StatusLabel.Size = UDim2.new(1, -20, 0, 35)
StatusLabel.Position = UDim2.new(0, 10, 0, 5)
StatusLabel.BackgroundTransparency = 1
StatusLabel.Text = "SMART AI ACTIVE...\nFILTERING INNOCENT PLAYERS."
StatusLabel.TextColor3 = Color3.fromRGB(0, 255, 150)
StatusLabel.Font = Enum.Font.Code
StatusLabel.TextSize = 12
StatusLabel.TextWrapped = true
StatusLabel.TextYAlignment = Enum.TextYAlignment.Top
StatusLabel.Parent = ContentFrame

-- Hacker Listesi için Kaydırma Alanı (ScrollingFrame)
local ScrollingFrame = Instance.new("ScrollingFrame")
ScrollingFrame.Size = UDim2.new(1, -20, 0, 110)
ScrollingFrame.Position = UDim2.new(0, 10, 0, 45)
ScrollingFrame.BackgroundColor3 = Color3.fromRGB(20, 20, 25)
ScrollingFrame.BorderSizePixel = 0
ScrollingFrame.CanvasSize = UDim2.new(0, 0, 0, 0)
ScrollingFrame.AutomaticCanvasSize = Enum.AutomaticSize.Y
ScrollingFrame.Parent = ContentFrame

local UIListLayout = Instance.new("UIListLayout")
UIListLayout.SortOrder = Enum.SortOrder.LayoutOrder
UIListLayout.Padding = UDim.new(0, 4)
UIListLayout.Parent = ScrollingFrame

local ScrollCorner = Instance.new("UICorner")
ScrollCorner.CornerRadius = UDim.new(0, 5)
ScrollCorner.Parent = ScrollingFrame

-- Copy to Clipboard Butonu
local CopyBtn = Instance.new("TextButton")
CopyBtn.Size = UDim2.new(1, -20, 0, 30)
CopyBtn.Position = UDim2.new(0, 10, 1, -35)
CopyBtn.BackgroundColor3 = Color3.fromRGB(0, 120, 255)
CopyBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
CopyBtn.Font = Enum.Font.Code
CopyBtn.TextSize = 12
CopyBtn.Text = "COPY TO CLIPBOARD"
CopyBtn.Parent = ContentFrame

local CopyCorner = Instance.new("UICorner")
CopyCorner.CornerRadius = UDim.new(0, 5)
CopyCorner.Parent = CopyBtn

local MinMaxBtn = Instance.new("TextButton")
MinMaxBtn.Size = UDim2.new(0, 30, 0, 30)
MinMaxBtn.Position = UDim2.new(1, -65, 0, 2)
MinMaxBtn.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
MinMaxBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
MinMaxBtn.Font = Enum.Font.SourceSansBold
MinMaxBtn.TextSize = 20
MinMaxBtn.Text = "-"
MinMaxBtn.Parent = TopBar

local MinMaxCorner = Instance.new("UICorner")
MinMaxCorner.CornerRadius = UDim.new(0, 5)
MinMaxCorner.Parent = MinMaxBtn

local CloseBtn = Instance.new("TextButton")
CloseBtn.Size = UDim2.new(0, 30, 0, 30)
CloseBtn.Position = UDim2.new(1, -32, 0, 2)
CloseBtn.BackgroundColor3 = Color3.fromRGB(200, 30, 30)
CloseBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
CloseBtn.Font = Enum.Font.SourceSansBold
CloseBtn.TextSize = 18
CloseBtn.Text = "X"
CloseBtn.Parent = TopBar

local CloseCorner = Instance.new("UICorner")
CloseCorner.CornerRadius = UDim.new(0, 5)
CloseCorner.Parent = CloseBtn

local isMinimized = false
MinMaxBtn.MouseButton1Click:Connect(function()
    isMinimized = not isMinimized
    if isMinimized then
        MinMaxBtn.Text = "+"
        ContentFrame.Visible = false
        MainFrame.Size = UDim2.new(0, 280, 0, 35)
    else
        MinMaxBtn.Text = "-"
        ContentFrame.Visible = true
        MainFrame.Size = UDim2.new(0, 280, 0, 240)
    end
end)

CloseBtn.MouseButton1Click:Connect(function()
    ScreenGui:Destroy()
end)

local dragging, dragInput, dragStart, startPos
TopBar.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
    end
end)
TopBar.InputEnded:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
        dragging = false
    end
end)
game:GetService("UserInputService").InputChanged:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch then
        dragInput = input
    end
end)
RunService.RenderStepped:Connect(function()
    if dragging and dragInput then
        local delta = dragInput.Position - dragStart
        MainFrame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
    end
end)

local function UpdateESP(player, text, color)
    local char = player.Character
    if not char or not char:FindFirstChild("Head") then return end

    local head = char.Head
    local esp = head:FindFirstChild("ThreatRadar001_ESP")

    if not esp then
        esp = Instance.new("BillboardGui")
        esp.Name = "ThreatRadar001_ESP"
        esp.Size = UDim2.new(0, 200, 0, 50)
        esp.StudsOffset = Vector3.new(0, 3, 0)
        esp.AlwaysOnTop = true
        esp.Parent = head

        local txt = Instance.new("TextLabel")
        txt.Name = "WarningText"
        txt.Size = UDim2.new(1, 0, 1, 0)
        txt.BackgroundTransparency = 1
        txt.Font = Enum.Font.Code
        txt.TextScaled = true
        txt.Parent = esp
    end

    local txt = esp.WarningText
    txt.Text = text
    txt.TextColor3 = color
end

local function RemoveESP(player)
    if player.Character and player.Character:FindFirstChild("Head") then
        local esp = player.Character.Head:FindFirstChild("ThreatRadar001_ESP")
        if esp then esp:Destroy() end
    end
end

-- Kopyalama Listesi Verisi
local detectedThreatsList = {}

CopyBtn.MouseButton1Click:Connect(function()
    if #detectedThreatsList > 0 then
        local clipboardText = "--- THREAT RADAR MODEL 001 REPORT ---\n"
        for _, info in ipairs(detectedThreatsList) do
            clipboardText = clipboardText .. "User: " .. info.Name .. " | Display: " .. info.DisplayName .. "\n"
        end
        if setclipboard then
            setclipboard(clipboardText)
            CopyBtn.Text = "COPIED TO CLIPBOARD!"
            task.wait(2)
            CopyBtn.Text = "COPY TO CLIPBOARD"
        else
            CopyBtn.Text = "ERROR: NOT SUPPORTED"
            task.wait(2)
            CopyBtn.Text = "COPY TO CLIPBOARD"
        end
    else
        CopyBtn.Text = "NO THREATS TO COPY"
        task.wait(1.5)
        CopyBtn.Text = "COPY TO CLIPBOARD"
    end
end)

RunService.Heartbeat:Connect(function()
    if not ScreenGui.Parent then return end
    
    -- Eski GUI listesindeki etiketleri temizle
    for _, child in pairs(ScrollingFrame:GetChildren()) do
        if child:IsA("TextLabel") then
            child:Destroy()
        end
    end

    detectedThreatsList = {}
    local threatCount = 0

    for _, player in pairs(Players:GetPlayers()) do
        if player ~= Players.LocalPlayer and player.Character and player.Character:FindFirstChild("HumanoidRootPart") and player.Character:FindFirstChild("Humanoid") then
            
            local hrp = player.Character.HumanoidRootPart
            local hum = player.Character.Humanoid
            
            local vel = hrp.AssemblyLinearVelocity
            local angVel = hrp.AssemblyAngularVelocity
            
            local horizontalSpeed = Vector3.new(vel.X, 0, vel.Z).Magnitude 
            local spinSpeed = angVel.Magnitude
            local moveIntent = hum.MoveDirection.Magnitude

            -- Uçma Tespiti (Fly hack: Havada asılı kalma veya dikey hızı sabit tutup uçma)
            local isFlying = false
            if hrp.Position.Y > 25 and math.abs(vel.Y) < 5 and horizontalSpeed > 20 and moveIntent > 0 then
                isFlying = true
            end

            local threatText = nil
            local threatColor = nil

            -- 1. DROPKICK (0 HP + Aktif Yürüme Niyyeti)
            if hum.Health <= 0 and horizontalSpeed > 15 and moveIntent > 0 then
                threatText = "THREAT LEVEL: MAXIMUM.\nLETHAL ANOMALY."
                threatColor = Color3.fromRGB(255, 0, 0)
                threatCount = threatCount + 1

            -- 2. FLY HACK TESPİTİ
            elseif isFlying then
                threatText = "THREAT LEVEL: CRITICAL.\nAIRBORNE ANOMALY (FLY)."
                threatColor = Color3.fromRGB(255, 80, 0)
                threatCount = threatCount + 1

            -- 3. SPEED / FLING HACK (Aşırı Hız + Aktif Niyet)
            elseif horizontalSpeed > 400 and moveIntent > 0 then
                threatText = "THREAT LEVEL: MAXIMUM.\nHOSTILE FLING INBOUND."
                threatColor = Color3.fromRGB(255, 0, 0)
                threatCount = threatCount + 1

            -- 4. INVISFLING / SPIN HACK (Aşırı Dönme)
            elseif spinSpeed > 500 then
                threatText = "THREAT LEVEL: CRITICAL.\nSPIN ANOMALY."
                threatColor = Color3.fromRGB(255, 50, 0)
                threatCount = threatCount + 1
            end

            if threatText then
                UpdateESP(player, threatText, threatColor)
                
                -- Tabloya ve Kaydırma Listesine Ekle
                table.insert(detectedThreatsList, {Name = player.Name, DisplayName = player.DisplayName})

                local listLabel = Instance.new("TextLabel")
                listLabel.Size = UDim2.new(1, -10, 0, 22)
                listLabel.BackgroundTransparency = 1
                listLabel.Font = Enum.Font.Code
                listLabel.TextSize = 12
                listLabel.TextColor3 = Color3.fromRGB(255, 80, 80)
                listLabel.TextXAlignment = Enum.TextXAlignment.Left
                listLabel.Text = "• " .. player.Name .. " (@" .. player.DisplayName .. ")"
                listLabel.Parent = ScrollingFrame
            else
                RemoveESP(player)
            end
        end
    end
    
    if threatCount > 0 then
        StatusLabel.Text = "WARNING: " .. threatCount .. " HOSTILE ENTITIES LOCKED!"
        StatusLabel.TextColor3 = Color3.fromRGB(255, 50, 50)
        UIStroke.Color = Color3.fromRGB(255, 0, 0)
    else
        StatusLabel.Text = "SMART AI ACTIVE...\nNO THREATS DETECTED. AREA CLEAR."
        StatusLabel.TextColor3 = Color3.fromRGB(0, 255, 150)
        UIStroke.Color = Color3.fromRGB(0, 255, 150)
    end
end)