local TweenService = game:GetService("TweenService")
local SoundService = game:GetService("SoundService")
local Debris = game:GetService("Debris")
local Players = game:GetService("Players")
local LocalPlayer = Players.LocalPlayer

-- ================= GUI KORUMASI VE TEMİZLİĞİ =================
local CoreGui
local success, result = pcall(function() return game:GetService("CoreGui") end)
if success and result then 
    CoreGui = result 
else 
    CoreGui = LocalPlayer:WaitForChild("PlayerGui") 
end

-- Eski UI varsa ekrandan temizle
for _, v in pairs(CoreGui:GetChildren()) do
    if v.Name == "BestoUI" then 
        v:Destroy() 
    end
end

local ScreenGui = Instance.new("ScreenGui")
ScreenGui.Name = "BestoUI"
ScreenGui.Parent = CoreGui
ScreenGui.ResetOnSpawn = false
ScreenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling

-- ================= YENİ VE YÜKSEK SESLİ SES EFEKTLERİ =================
local Sounds = { 
    Hover = 4743208535,    -- Tok ve temiz bir Pop sesi
    ClickOn = 4743208535, 
    ClickOff = 4743208535, 
    Intro = 4808968114,    -- Şık ve yüksek sesli sistem başlatma sesi
    Success = 3146430391   -- Tatlı bir başarı (Çın) sesi
}

local function PlaySound(id, volume, pitch)
    task.spawn(function()
        local sound = Instance.new("Sound")
        sound.SoundId = "rbxassetid://" .. tostring(id)
        sound.Volume = volume or 2.5 -- Ses seviyesi oldukça yükseltildi
        sound.PlaybackSpeed = pitch or 1
        sound.Parent = SoundService
        sound:Play()
        Debris:AddItem(sound, 3)
    end)
end

-- ================= UZUN VE GELİŞMİŞ GİRİŞ ANİMASYONU =================
task.wait(0.5)
local IntroFrame = Instance.new("Frame", ScreenGui)
IntroFrame.Size = UDim2.new(1, 0, 1, 0)
IntroFrame.BackgroundColor3 = Color3.fromRGB(15, 15, 20)
IntroFrame.ZIndex = 999
IntroFrame.BackgroundTransparency = 1

local IntroText = Instance.new("TextLabel", IntroFrame)
IntroText.Text = "Besto"
IntroText.Font = Enum.Font.FredokaOne -- Daha şık, kalın ve modern bir font
IntroText.TextSize = 85 -- Boyut büyütüldü
IntroText.TextColor3 = Color3.fromRGB(170, 120, 255)
IntroText.AnchorPoint = Vector2.new(0.5, 0.5)
IntroText.Position = UDim2.new(0.5, 0, 0.42, 0)
IntroText.BackgroundTransparency = 1
IntroText.ZIndex = 1000
IntroText.TextTransparency = 1

-- Yazıya Derinlik/Gölge Efekti
local ShadowText = Instance.new("TextLabel", IntroText)
ShadowText.Text = "Besto"
ShadowText.Font = Enum.Font.FredokaOne
ShadowText.TextSize = 85
ShadowText.TextColor3 = Color3.fromRGB(0, 0, 0)
ShadowText.AnchorPoint = Vector2.new(0.5, 0.5)
ShadowText.Position = UDim2.new(0.5, 4, 0.5, 4)
ShadowText.BackgroundTransparency = 1
ShadowText.ZIndex = 999
ShadowText.TextTransparency = 1

local LoadText = Instance.new("TextLabel", IntroFrame)
LoadText.Text = "Sistem yukleniyor"
LoadText.Font = Enum.Font.GothamMedium
LoadText.TextSize = 22
LoadText.TextColor3 = Color3.fromRGB(200, 200, 200)
LoadText.AnchorPoint = Vector2.new(0.5, 0.5)
LoadText.Position = UDim2.new(0.5, 0, 0.58, 0)
LoadText.BackgroundTransparency = 1
LoadText.ZIndex = 1000
LoadText.TextTransparency = 1

PlaySound(Sounds.Intro, 3, 1) -- En yüksek sesle intro başlat
local TweenIn = TweenInfo.new(1, Enum.EasingStyle.Cubic, Enum.EasingDirection.Out)
TweenService:Create(IntroFrame, TweenIn, {BackgroundTransparency = 0}):Play()
TweenService:Create(IntroText, TweenIn, {TextTransparency = 0, Position = UDim2.new(0.5, 0, 0.48, 0)}):Play()
TweenService:Create(ShadowText, TweenIn, {TextTransparency = 0.5}):Play()
TweenService:Create(LoadText, TweenIn, {TextTransparency = 0, Position = UDim2.new(0.5, 0, 0.58, 0)}):Play()

local dots = 0
local introActive = true
task.spawn(function()
    while introActive do 
        dots = (dots + 1) % 4
        LoadText.Text = "Sistem yukleniyor" .. string.rep(".", dots)
        task.wait(0.5) 
    end
end)

task.wait(3.5) -- Intro süresi uzatıldı (Daha uzun izlenmesi için)
introActive = false
LoadText.Text = "Basariyla Yuklendi!"
LoadText.TextColor3 = Color3.fromRGB(100, 255, 100)
PlaySound(Sounds.Success, 2.5, 1)
task.wait(1.5) -- Başarıyla yüklendi yazısı ekranda daha uzun kalıyor

local TweenOut = TweenInfo.new(0.8, Enum.EasingStyle.Cubic, Enum.EasingDirection.In)
TweenService:Create(IntroFrame, TweenOut, {BackgroundTransparency = 1}):Play()
TweenService:Create(IntroText, TweenOut, {TextTransparency = 1, Position = UDim2.new(0.5, 0, 0.42, 0)}):Play()
TweenService:Create(ShadowText, TweenOut, {TextTransparency = 1}):Play()
TweenService:Create(LoadText, TweenOut, {TextTransparency = 1}):Play()
task.wait(0.8)
IntroFrame:Destroy()

-- ================= ANA PANEL SİSTEMİ =================
local ToggleBtn = Instance.new("TextButton", ScreenGui)
ToggleBtn.BackgroundColor3 = Color3.fromRGB(20, 20, 25)
ToggleBtn.Position = UDim2.new(0.5, -75, 0, -50)
ToggleBtn.Size = UDim2.new(0, 150, 0, 42)
ToggleBtn.Font = Enum.Font.FredokaOne
ToggleBtn.Text = "Besto"
ToggleBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
ToggleBtn.TextSize = 18
ToggleBtn.Active = true
ToggleBtn.Draggable = true
ToggleBtn.ZIndex = 100

local ToggleCorner = Instance.new("UICorner", ToggleBtn)
ToggleCorner.CornerRadius = UDim.new(0, 10)
local ToggleStroke = Instance.new("UIStroke", ToggleBtn)
ToggleStroke.Color = Color3.fromRGB(170, 120, 255)
ToggleStroke.Thickness = 2

TweenService:Create(ToggleBtn, TweenInfo.new(1, Enum.EasingStyle.Elastic, Enum.EasingDirection.Out), {Position = UDim2.new(0.5, -75, 0, 15)}):Play()

local MainFrame = Instance.new("Frame", ScreenGui)
MainFrame.BackgroundColor3 = Color3.fromRGB(18, 18, 22)
MainFrame.Position = UDim2.new(0.5, -180, 0.5, -240)
MainFrame.Size = UDim2.new(0, 0, 0, 0)
MainFrame.Visible = false
MainFrame.Active = true
MainFrame.Draggable = true
MainFrame.ZIndex = 90
MainFrame.ClipsDescendants = true

local MainCorner = Instance.new("UICorner", MainFrame)
MainCorner.CornerRadius = UDim.new(0, 12)
local MainStroke = Instance.new("UIStroke", MainFrame)
MainStroke.Color = Color3.fromRGB(170, 120, 255)

-- ================= SEKME SİSTEMİ =================
local TabContainer = Instance.new("Frame", MainFrame)
TabContainer.Size = UDim2.new(1, -20, 0, 35)
TabContainer.Position = UDim2.new(0, 10, 0, 10)
TabContainer.BackgroundTransparency = 1

local TabListLayout = Instance.new("UIListLayout", TabContainer)
TabListLayout.FillDirection = Enum.FillDirection.Horizontal
TabListLayout.SortOrder = Enum.SortOrder.LayoutOrder
TabListLayout.Padding = UDim.new(0, 5)

local PageContainer = Instance.new("Frame", MainFrame)
PageContainer.Size = UDim2.new(1, -20, 1, -60)
PageContainer.Position = UDim2.new(0, 10, 0, 50)
PageContainer.BackgroundTransparency = 1

local firstTab = true

local function CreateTab(name)
    local TabBtn = Instance.new("TextButton", TabContainer)
    TabBtn.Size = UDim2.new(0, 110, 1, 0)
    TabBtn.BackgroundColor3 = Color3.fromRGB(25, 25, 30)
    TabBtn.Font = Enum.Font.GothamBold
    TabBtn.TextColor3 = Color3.fromRGB(255, 255, 255)
    TabBtn.TextSize = 13
    TabBtn.Text = name
    
    local TabCorner = Instance.new("UICorner", TabBtn)
    TabCorner.CornerRadius = UDim.new(0, 6)
    local TabStroke = Instance.new("UIStroke", TabBtn)
    TabStroke.Color = Color3.fromRGB(170, 120, 255)
    TabStroke.Transparency = 0.5
    
    local ScrollPage = Instance.new("ScrollingFrame", PageContainer)
    ScrollPage.Size = UDim2.new(1, 0, 1, 0)
    ScrollPage.BackgroundTransparency = 1
    ScrollPage.BorderSizePixel = 0
    ScrollPage.ScrollBarThickness = 4
    ScrollPage.ScrollBarImageColor3 = Color3.fromRGB(170, 120, 255)
    ScrollPage.CanvasSize = UDim2.new(0, 0, 0, 0)
    ScrollPage.AutomaticCanvasSize = Enum.AutomaticSize.Y
    ScrollPage.Visible = firstTab
    
    local PageLayout = Instance.new("UIListLayout", ScrollPage)
    PageLayout.SortOrder = Enum.SortOrder.LayoutOrder
    PageLayout.Padding = UDim.new(0, 8)
    PageLayout.HorizontalAlignment = Enum.HorizontalAlignment.Center
    
    if firstTab then
        TabBtn.BackgroundColor3 = Color3.fromRGB(170, 120, 255)
        TabStroke.Transparency = 0
        firstTab = false
    end
    
    TabBtn.MouseButton1Click:Connect(function()
        PlaySound(Sounds.ClickOn, 2, 1)
        for _, page in pairs(PageContainer:GetChildren()) do
            if page:IsA("ScrollingFrame") then page.Visible = false end
        end
        for _, btn in pairs(TabContainer:GetChildren()) do
            if btn:IsA("TextButton") then 
                btn.BackgroundColor3 = Color3.fromRGB(25, 25, 30) 
                local stroke = btn:FindFirstChildOfClass("UIStroke")
                if stroke then stroke.Transparency = 0.5 end
            end
        end
        ScrollPage.Visible = true
        TabBtn.BackgroundColor3 = Color3.fromRGB(170, 120, 255)
        TabStroke.Transparency = 0
    end)
    
    return ScrollPage
end

-- ================= BUTON OLUŞTURMA FONKSİYONU =================
local function CreateButton(parentTab, text, callback)
    local Btn = Instance.new("TextButton", parentTab)
    Btn.Size = UDim2.new(1, -10, 0, 38)
    Btn.BackgroundColor3 = Color3.fromRGB(25, 25, 30)
    Btn.Font = Enum.Font.GothamMedium
    Btn.TextColor3 = Color3.fromRGB(220, 220, 220)
    Btn.TextSize = 14
    Btn.Text = text
    
    local BtnCorner = Instance.new("UICorner", Btn)
    BtnCorner.CornerRadius = UDim.new(0, 6)
    local Stroke = Instance.new("UIStroke", Btn)
    Stroke.Color = Color3.fromRGB(170, 120, 255)
    Stroke.Thickness = 1
    Stroke.Transparency = 0.4
    
    Btn.MouseButton1Click:Connect(function()
        PlaySound(Sounds.ClickOn, 2, 1)
        pcall(callback) 
    end)
end

-- ================= SEKMELER =================
local MainTab = CreateTab("Ana")
local MiscTab = CreateTab("Çeşitli")
local MultiTab = CreateTab("Çarpan")
local WalkTab = CreateTab("Walkspeed")

-- ================= ANA SEKME (ORİJİNAL KODLARIN BİREBİR AYNISI) =================
CreateButton(MainTab, "Sonsuz Para (Inf Money)", function()
    -- Oyun içi dizin adını oyunun beklediği şekilde bulur, veriyi "Cash" stringi ile yollar
    local folder = LocalPlayer:FindFirstChild("ownedShoes") or LocalPlayer:FindFirstChild("owneredShoes")
    if folder and folder:FindFirstChild("37") then
        game:GetService("ReplicatedStorage").Remote.Shoes.SellShoes:FireServer(folder:FindFirstChild("37"), 3, 200000000933993939393993939393939393939393939393939399393939393939393939393939393939393939939300000, "Cash")
    end
end)

CreateButton(MainTab, "Sonsuz XP (Inf Exp)", function()
    game:GetService("ReplicatedStorage").Remote.AFKEvent:FireServer(3993939939393999, "XP")
end)

CreateButton(MainTab, "Sonsuz Kar Nakit (Inf SnowCash)", function()
    game:GetService("ReplicatedStorage").Remote.AFKEvent:FireServer(16009999900000090, "SnowSeasonalCash")
end)

CreateButton(MainTab, "En Iyi Ayakkabi (Best Shoes)", function()
    game:GetService("ReplicatedStorage").Remote.Shoes.BuyShoes:FireServer("70", "ShoeShop9")
end)

-- ================= ÇEŞİTLİ SEKME =================
CreateButton(MiscTab, "Tum UGC'leri Alin", function()
    local a = {2125130804, 2125130810, 2125130812, 2125747688, 2127210306, 2127210319, 2127210328, 2127480708, 2127480711, 2127480712, 2129357352, 2129357355, 2129357358, 2129357362}
    for i = 1, #a do
        game:GetService("ReplicatedStorage"):WaitForChild("AwardBadge"):FireServer(a[i])
    end
end)

-- ================= WALKSPEED =================
local wsActive = false
CreateButton(WalkTab, "Walkspeed 50", function()
    if wsActive then return end
    wsActive = true
    task.spawn(function()
        while true do
            local char = LocalPlayer.Character
            if char and char:FindFirstChild("Humanoid") then
                if char.Humanoid.WalkSpeed ~= 50 then
                    char.Humanoid.WalkSpeed = 50
                end
            end
            task.wait(0.1)
        end
    end)
end)

-- ================= ÇARPAN SEKME =================
CreateButton(MultiTab, "2x Cash", function()
    game:GetService("ReplicatedStorage").Remote.DailySpin.AddToInventory:FireServer("2xCash", true)
end)

CreateButton(MultiTab, "5x Cash", function()
    game:GetService("ReplicatedStorage").Remote.DailySpin.AddToInventory:FireServer("5xCash", true)
end)

CreateButton(MultiTab, "50x Cash", function()
    game:GetService("ReplicatedStorage").Remote.DailySpin.AddToInventory:FireServer("50xCash", true)
end)

CreateButton(MultiTab, "100x Cash", function()
    game:GetService("ReplicatedStorage").Remote.DailySpin.AddToInventory:FireServer("100xCash", true)
end)

CreateButton(MultiTab, "1000x Cash", function()
    game:GetService("ReplicatedStorage").Remote.DailySpin.AddToInventory:FireServer("1000xCash", true)
end)

-- ================= AÇILMA / KAPANMA ANİMASYONU =================
local isOpen = false
ToggleBtn.MouseButton1Click:Connect(function()
    isOpen = not isOpen
    MainFrame.Visible = true
    
    PlaySound(Sounds.ClickOn, 2, isOpen and 1.1 or 0.8)
    
    if isOpen then 
        TweenService:Create(MainFrame, TweenInfo.new(0.5, Enum.EasingStyle.Cubic, Enum.EasingDirection.Out), { 
            Size = UDim2.new(0, 360, 0, 480), 
            Position = UDim2.new(0.5, -180, 0.5, -240) 
        }):Play()
    else 
        TweenService:Create(MainFrame, TweenInfo.new(0.4, Enum.EasingStyle.Cubic, Enum.EasingDirection.In), { 
            Size = UDim2.new(0, 0, 0, 0), 
            Position = UDim2.new(0.5, 0, 0.5, 0) 
        }):Play()
        
        task.delay(0.4, function() 
            if not isOpen then MainFrame.Visible = false end 
        end) 
    end
end)