-- GUIDE TOOLS – Ana Panel (2025 Güncel – %100 Sürüklenir + Kapatma Tuşlu)

local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local TextChatService = game:GetService("TextChatService")
local HttpService = game:GetService("HttpService")
local player = Players.LocalPlayer

-- Ana GUI
local GuideGui = Instance.new("ScreenGui")
GuideGui.Name = "GuideMainGUI"
GuideGui.ResetOnSpawn = false
GuideGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
GuideGui.Parent = player:WaitForChild("PlayerGui")

-- Ana Frame
local GuideFrame = Instance.new("Frame")
GuideFrame.Size = UDim2.new(0, 150, 0, 135)
GuideFrame.Position = UDim2.new(0, 20, 0, 20)
GuideFrame.BackgroundColor3 = Color3.fromRGB(28, 28, 28)
GuideFrame.BorderSizePixel = 0
GuideFrame.Active = true
GuideFrame.Parent = GuideGui

local Corner = Instance.new("UICorner")
Corner.CornerRadius = UDim.new(0, 12)
Corner.Parent = GuideFrame

local Stroke = Instance.new("UIStroke")
Stroke.Thickness = 2.5
Stroke.Color = Color3.fromRGB(0, 170, 255)
Stroke.Parent = GuideFrame

-- Başlık Çubuğu
local TitleBar = Instance.new("Frame")
TitleBar.Size = UDim2.new(1, 0, 0, 38)
TitleBar.BackgroundColor3 = Color3.fromRGB(0, 0 , 0)
TitleBar.BorderSizePixel = 0
TitleBar.Parent = GuideFrame

local TitleCorner = Instance.new("UICorner")
TitleCorner.CornerRadius = UDim.new(0, 12)
TitleCorner.Parent = TitleBar

local TitleLabel = Instance.new("TextLabel")
TitleLabel.Size = UDim2.new(1, -40, 1, 0)
TitleLabel.BackgroundTransparency = 1
TitleLabel.Text = "KaçakPanel"
TitleLabel.TextColor3 = Color3.new(1, 1, 1)
TitleLabel.TextSize = 16
TitleLabel.Font = Enum.Font.GothamBold
TitleLabel.TextXAlignment = Enum.TextXAlignment.Left
TitleLabel.Position = UDim2.new(0, 12, 0, 0)
TitleLabel.Parent = TitleBar

-- KAPATMA TUŞU (X)
local CloseBtn = Instance.new("TextButton")
CloseBtn.Size = UDim2.new(0, 32, 0, 32)
CloseBtn.Position = UDim2.new(1, -38, 0, 3)
CloseBtn.BackgroundColor3 = Color3.fromRGB(220, 30, 30)
CloseBtn.Text = "X"
CloseBtn.TextColor3 = Color3.new(1,1,1)
CloseBtn.TextSize = 20
CloseBtn.Font = Enum.Font.GothamBold
CloseBtn.ZIndex = 10
CloseBtn.Parent = TitleBar

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

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

CloseBtn.MouseEnter:Connect(function() CloseBtn.BackgroundColor3 = Color3.fromRGB(255, 60, 60) end)
CloseBtn.MouseLeave:Connect(function() CloseBtn.BackgroundColor3 = Color3.fromRGB(220, 30, 30) end)

-- Butonlar
local OkurufInfoBtn = Instance.new("TextButton")
OkurufInfoBtn.Size = UDim2.new(0.8, 0, 0, 36)
OkurufInfoBtn.Position = UDim2.new(0.1, 0, 0, 50)
OkurufInfoBtn.Text = "OkurufInfo"
OkurufInfoBtn.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
OkurufInfoBtn.TextColor3 = Color3.new(1,1,1)
OkurufInfoBtn.TextSize = 14
OkurufInfoBtn.Font = Enum.Font.Gotham
OkurufInfoBtn.Parent = GuideFrame

local c1 = Instance.new("UICorner", OkurufInfoBtn)
c1.CornerRadius = UDim.new(0, 8)

local IPFinderBtn = Instance.new("TextButton")
IPFinderBtn.Size = UDim2.new(0.8, 0, 0, 36)
IPFinderBtn.Position = UDim2.new(0.1, 0, 0, 95)
IPFinderBtn.Text = "IP Finder"
IPFinderBtn.BackgroundColor3 = Color3.fromRGB(50, 50, 50)
IPFinderBtn.TextColor3 = Color3.new(1,1,1)
IPFinderBtn.TextSize = 14
IPFinderBtn.Font = Enum.Font.Gotham
IPFinderBtn.Parent = GuideFrame

local c2 = Instance.new("UICorner", IPFinderBtn)
c2.CornerRadius = UDim.new(0, 8)

-- %100 ÇALIŞAN SÜRÜKLEME KODU
local dragging = false
local dragInput = nil
local dragStart = nil
local startPos = nil

local function update(input)
    local delta = input.Position - dragStart
    GuideFrame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
end

TitleBar.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
        dragging = true
        dragStart = input.Position
        startPos = GuideFrame.Position

        input.Changed:Connect(function()
            if input.UserInputState == Enum.UserInputState.End then
                dragging = false
            end
        end)
    end
end)

TitleBar.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 dragging and (input.UserInputType == Enum.UserInputType.MouseMovement or input.UserInputType == Enum.UserInputType.Touch) then
        if input == dragInput then
            update(input)
        end
    end
end)

-- OkurufInfo Fonksiyonu
local function message2(input)
    local replacements = {
        ["0"] = "\u{FF10}",
        ["1"] = "\u{FF11}",
        ["2"] = "\u{FF12}",
        ["3"] = "\u{FF13}",
        ["4"] = "\u{FF14}",
        ["5"] = "\u{FF15}",
        ["6"] = "\u{FF16}",
        ["7"] = "\u{FF17}",
        ["8"] = "\u{FF18}",
        ["9"] = "\u{FF19}"
    }    

    for word, replacement in pairs(replacements) do
        input = input:gsub(word, "{" .. replacement .. "}")
    end
    
    local result = ""
    local insideReplacedWord = false

    for i = 1, #input do
        local char = input:sub(i, i)

        if char == "{" then
            insideReplacedWord = true
        elseif char == "}" then
            insideReplacedWord = false
        elseif insideReplacedWord then
            result = result .. char
        elseif char == " " then
            result = result .. "\b"
        else
            result = result .. char
        end
    end

    result = result:gsub("{", ""):gsub("}", "")
    local A_1 = result
    local A_2 = "All"
    if TextChatService:FindFirstChild("TextChannels") then
        TextChatService.TextChannels.RBXGeneral:SendAsync(A_1)
    else
        game:GetService("ReplicatedStorage").DefaultChatSystemChatEvents.SayMessageRequest:FireServer(A_1, A_2)
    end
end

local function INFOS(displayName)
    local targetPlayer = nil
    displayName = string.lower(displayName)
    for _, plr in ipairs(Players:GetPlayers()) do
        local playerNameLower = string.lower(plr.Name)
        local playerDisplayNameLower = string.lower(plr.DisplayName)
        if string.find(playerNameLower, displayName, 1, true) or string.find(playerDisplayNameLower, displayName, 1, true) then
            targetPlayer = plr
            break
        end
    end

    if targetPlayer then
        local accountAge = targetPlayer.AccountAge
        local accountCreationDate = os.date("*t", os.time() - (accountAge * 24 * 60 * 60))
        local creationDateString = string.format("%02d-%02d-%04d", accountCreationDate.month, accountCreationDate.day, accountCreationDate.year)

        local years = math.floor(accountAge / 365)
        local remainingDaysAfterYears = accountAge % 365
        local months = math.floor(remainingDaysAfterYears / 30)
        local days = remainingDaysAfterYears % 30
        local accountAgeString = string.format("%d year%s %d month%s %d day%s",
            years, years == 1 and "" or "s",
            months, months == 1 and "" or "s",
            days, days == 1 and "" or "s"
        )

        local membershipTypeString
        if targetPlayer.MembershipType == Enum.MembershipType.None then
            membershipTypeString = "None"
        elseif targetPlayer.MembershipType == Enum.MembershipType.BuildersClub then
            membershipTypeString = "Builders Club (no longer available)"
        elseif targetPlayer.MembershipType == Enum.MembershipType.TurboBuildersClub then
            membershipTypeString = "Turbo Builders Club (no longer available)"
        elseif targetPlayer.MembershipType == Enum.MembershipType.OutrageousBuildersClub then
            membershipTypeString = "Outrageous Builders Club (no longer available)"
        elseif targetPlayer.MembershipType == Enum.MembershipType.Premium then
            membershipTypeString = "Premium"
        else
            membershipTypeString = "Unknown"
        end

        message2("Player Info:\r> Display: " .. targetPlayer.DisplayName ..
            "\r> User: " .. targetPlayer.Name ..
            "\r> Created: " .. creationDateString ..
            "\r> Account Age: " .. accountAgeString)
    else
        message2("Player not found!")
    end
end

-- IP Finder Fonksiyonu
local fakeIPs = {
    "192.168.1.",
    "10.0.0.",
    "172.16.1.",
    "89.216.123.",
    "203.0.113.",
    "198.51.100.",
    "93.184.216."
}

local function generateFakeIP()
    local baseIP = fakeIPs[math.random(1, #fakeIPs)]
    local lastPart = math.random(1, 254)
    return baseIP .. lastPart
end

local function generateFakeLocation()
    local locations = {
        "New York, USA",
        "London, UK", 
        "Tokyo, Japan",
        "Berlin, Germany",
        "Sydney, Australia",
        "Paris, France",
        "Moscow, Russia",
        "Istanbul, Turkey"
    }
    return locations[math.random(1, #locations)]
end

local function sendToChat(message)
    if TextChatService:FindFirstChild("TextChannels") then
        local channel = TextChatService.TextChannels.RBXGeneral
        if channel then
            channel:SendAsync(message)
        end
    else
        game:GetService("ReplicatedStorage"):WaitForChild("DefaultChatSystemChatEvents"):WaitForChild("SayMessageRequest"):FireServer(message, "All")
    end
end

local function startIPScan(targetPlayer)
    if targetPlayer == "" or targetPlayer == player.Name then
        return
    end
    
    local displayName = targetPlayer
    local accountAge = math.random(30, 2000) .. " days"
    local joinDate = "202" .. math.random(2,4) .. "-" .. string.format("%02d", math.random(1,12)) .. "-" .. string.format("%02d", math.random(1,28))
    
    sendToChat("Player: " .. targetPlayer)
    wait(0.5)
    sendToChat("Display Name: " .. displayName)
    wait(0.5)
    sendToChat("Account Created: " .. joinDate .. " (" .. accountAge .. ")")
    
    wait(1)
    
    sendToChat("[IP SCANNER] Initializing connection scan...")
    wait(0.8)
    sendToChat("[IP SCANNER] Establishing secure link...")
    wait(0.8)
    sendToChat("[IP SCANNER] Analyzing network traffic...")
    
    for i = 1, 3 do
        wait(1)
        sendToChat("[IP SCANNER] Scanning port " .. math.random(8000, 65000) .. "...")
    end
    
    wait(1)
    
    local fakeIP = generateFakeIP()
    local fakeLocation = generateFakeLocation()
    
    sendToChat("[IP SCANNER] ✓ TARGET IP FOUND: " .. fakeIP)
    wait(0.5)
    sendToChat("[IP SCANNER] 📍 LOCATION: " .. fakeLocation)
    wait(0.5)
    sendToChat("[IP SCANNER] 🔒 SECURITY: Medium firewall detected")
    wait(0.5)
    sendToChat("[IP SCANNER] ⚠️ WARNING: This information is for educational purposes only")
end

-- Buton işlevleri
OkurufInfoBtn.MouseButton1Click:Connect(function()
    local gui = Instance.new("ScreenGui")
    gui.Name = "OkurufInfoGui"
    gui.Parent = player.PlayerGui

    local OkurufInfoMain = Instance.new("Frame")
    OkurufInfoMain.Size = UDim2.new(0.5, 0, 0.5, 0)
    OkurufInfoMain.Position = UDim2.new(0.5, 0, 0.5, 0)
    OkurufInfoMain.BackgroundColor3 = Color3.new(1, 1, 1)
    OkurufInfoMain.BorderColor3 = Color3.new(0, 0, 0)
    OkurufInfoMain.BorderSizePixel = 1
    OkurufInfoMain.Active = true
    OkurufInfoMain.BackgroundTransparency = 0 
    OkurufInfoMain.Draggable = true
    OkurufInfoMain.Parent = gui

    local OkurufInfoTitle = Instance.new("TextLabel")
    OkurufInfoTitle.Size = UDim2.new(1, 0, 0.2, 0)
    OkurufInfoTitle.Position = UDim2.new(0, 0, 0, 0)
    OkurufInfoTitle.BackgroundColor3 = Color3.new(0, 0, 0)
    OkurufInfoTitle.BorderColor3 = Color3.new(0, 0, 0)
    OkurufInfoTitle.BorderSizePixel = 1
    OkurufInfoTitle.Text = "OkurufInfo Basic Info's"
    OkurufInfoTitle.TextSize = 14
    OkurufInfoTitle.BackgroundTransparency = 0 
    OkurufInfoTitle.TextColor3 = Color3.new(205, 205, 205)
    OkurufInfoTitle.Font = Enum.Font.Bodoni
    OkurufInfoTitle.Parent = OkurufInfoMain

    local EnterName = Instance.new("TextBox")
    EnterName.Size = UDim2.new(0.8, 0, 0.2, 0)
    EnterName.Position = UDim2.new(0.1, 0, 0.3, 0)
    EnterName.BackgroundColor3 = Color3.new(0, 0, 0)
    EnterName.BorderColor3 = Color3.new(0, 0, 0)
    EnterName.BorderSizePixel = 1
    EnterName.PlaceholderText = "(displayname/username can be shorten)"
    EnterName.TextColor3 = Color3.new(255, 255, 255)
    EnterName.BackgroundTransparency = 0
    EnterName.Font = Enum.Font.Code
    EnterName.Text = ""
    EnterName.TextSize = 15
    EnterName.Parent = OkurufInfoMain

    local INFO = Instance.new("TextButton")
    INFO.Size = UDim2.new(0.3, 0, 0.2, 0)
    INFO.Position = UDim2.new(0.35, 0, 0.7, 0)
    INFO.BackgroundColor3 = Color3.new(0, 0, 0)
    INFO.BorderColor3 = Color3.new(0, 0, 0)
    INFO.BorderSizePixel = 1
    INFO.Text = "Info!!"
    INFO.TextSize = 14
    INFO.BackgroundTransparency = 0 
    INFO.TextColor3 = Color3.new(255, 255, 255)
    INFO.Font = Enum.Font.Code
    INFO.Parent = OkurufInfoMain

    local CloseBtn2 = Instance.new("TextButton")
    CloseBtn2.Size = UDim2.new(0, 25, 0, 25)
    CloseBtn2.Position = UDim2.new(1, -30, 0, 5)
    CloseBtn2.BackgroundColor3 = Color3.fromRGB(220, 30, 30)
    CloseBtn2.Text = "X"
    CloseBtn2.TextColor3 = Color3.new(1,1,1)
    CloseBtn2.TextSize = 14
    CloseBtn2.Font = Enum.Font.GothamBold
    CloseBtn2.Parent = OkurufInfoTitle

    INFO.MouseButton1Click:Connect(function()
        local displayName = EnterName.Text
        INFOS(displayName)
    end)

    CloseBtn2.MouseButton1Click:Connect(function()
        gui:Destroy()
    end)
end)

IPFinderBtn.MouseButton1Click:Connect(function()
    local IPGui = Instance.new("ScreenGui")
    IPGui.Name = "IPFinderGUI"
    IPGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling
    IPGui.Parent = player.PlayerGui

    local MainFrame = Instance.new("Frame")
    MainFrame.Size = UDim2.new(0, 350, 0, 200)
    MainFrame.Position = UDim2.new(0.5, -175, 0.3, 0)
    MainFrame.BackgroundColor3 = Color3.fromRGB(40, 40, 40)
    MainFrame.BorderSizePixel = 0
    MainFrame.Parent = IPGui

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

    local Title = Instance.new("TextLabel")
    Title.Size = UDim2.new(1, 0, 0, 40)
    Title.Position = UDim2.new(0, 0, 0, 0)
    Title.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
    Title.Text = "IP FINDER TOOL"
    Title.TextColor3 = Color3.fromRGB(255, 50, 50)
    Title.TextSize = 18
    Title.Font = Enum.Font.SourceSansBold
    Title.Parent = MainFrame

    local TargetBox = Instance.new("TextBox")
    TargetBox.Size = UDim2.new(0, 200, 0, 35)
    TargetBox.Position = UDim2.new(0.5, -100, 0, 50)
    TargetBox.PlaceholderText = "Enter player username"
    TargetBox.Text = ""
    TargetBox.TextColor3 = Color3.fromRGB(255, 255, 255)
    TargetBox.TextSize = 14
    TargetBox.BackgroundColor3 = Color3.fromRGB(60, 60, 60)
    TargetBox.Parent = MainFrame

    local StartBtn = Instance.new("TextButton")
    StartBtn.Size = UDim2.new(0, 120, 0, 35)
    StartBtn.Position = UDim2.new(0.5, -60, 0, 100)
    StartBtn.Text = "START IP SCAN"
    StartBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
    StartBtn.TextSize = 14
    StartBtn.Font = Enum.Font.SourceSansBold
    StartBtn.BackgroundColor3 = Color3.fromRGB(200, 0, 0)
    StartBtn.Parent = MainFrame

    local StatusLabel = Instance.new("TextLabel")
    StatusLabel.Size = UDim2.new(1, 0, 0, 30)
    StatusLabel.Position = UDim2.new(0, 0, 0, 145)
    StatusLabel.BackgroundTransparency = 1
    StatusLabel.Text = "Status: Ready to scan"
    StatusLabel.TextColor3 = Color3.fromRGB(200, 200, 200)
    StatusLabel.TextSize = 12
    StatusLabel.Parent = MainFrame

    local CloseBtn3 = Instance.new("TextButton")
    CloseBtn3.Size = UDim2.new(0, 80, 0, 25)
    CloseBtn3.Position = UDim2.new(0.5, -40, 0, 165)
    CloseBtn3.Text = "CLOSE"
    CloseBtn3.TextColor3 = Color3.fromRGB(255, 255, 255)
    CloseBtn3.TextSize = 12
    CloseBtn3.BackgroundColor3 = Color3.fromRGB(100, 100, 100)
    CloseBtn3.Parent = MainFrame

    StartBtn.MouseButton1Click:Connect(function()
        local target = TargetBox.Text
        if target and target ~= "" then
            startIPScan(target)
        else
            StatusLabel.Text = "Error: Enter a username"
        end
    end)

    CloseBtn3.MouseButton1Click:Connect(function()
        IPGui:Destroy()
    end)

    TargetBox.FocusLost:Connect(function(enterPressed)
        if enterPressed then
            local target = TargetBox.Text
            if target and target ~= "" then
                startIPScan(target)
            end
        end
    end)
end)

print("Guide Tools %100 SÜRÜKLENEBİLİR ana panel yüklendi!")
print("Başlık çubuğundan tutup sürükle | Sağ üstteki kırmızı X ile kapat")