-- [[ RED VN ANIMATION - ULTIMATE GLASSMORPHISM ALL-IN-ONE ]] --
local Players = game:GetService("Players")
local RunService = game:GetService("RunService")
local CoreGui = game:GetService("CoreGui")
local LocalPlayer = Players.LocalPlayer

-- Xác định vị trí an toàn để đặt UI (Tránh Anti-Cheat)
local successCore, guiParent = pcall(function() return CoreGui end)
if not successCore then guiParent = LocalPlayer:WaitForChild("PlayerGui") end

-- Xóa UI cũ nếu có
if guiParent:FindFirstChild("RedVnUltimate") then
    guiParent.RedVnUltimate:Destroy()
end

local ScreenGui = Instance.new("ScreenGui", guiParent)
ScreenGui.Name = "RedVnUltimate"
ScreenGui.ResetOnSpawn = false

-- Hàm tạo hiệu ứng Kính mờ (Glassmorphism)
local function ApplyGlass(frame)
    frame.BackgroundColor3 = Color3.fromRGB(10, 10, 10)
    frame.BackgroundTransparency = 0.45
    frame.BorderSizePixel = 0
    local corner = Instance.new("UICorner", frame)
    corner.CornerRadius = UDim.new(0, 15)
    local stroke = Instance.new("UIStroke", frame)
    stroke.Color = Color3.fromRGB(255, 255, 255)
    stroke.Transparency = 0.8
    stroke.Thickness = 1
end

-- Hàm Kéo Thả (Draggable)
local UserInputService = game:GetService("UserInputService")
local function MakeDraggable(frame)
    local dragging, dragInput, dragStart, startPos
    frame.InputBegan:Connect(function(input)
        if input.UserInputType == Enum.UserInputType.MouseButton1 or input.UserInputType == Enum.UserInputType.Touch then
            dragging = true; dragStart = input.Position; startPos = frame.Position
            input.Changed:Connect(function() if input.UserInputState == Enum.UserInputState.End then dragging = false end end)
        end
    end)
    frame.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
            frame.Position = UDim2.new(startPos.X.Scale, startPos.X.Offset + delta.X, startPos.Y.Scale, startPos.Y.Offset + delta.Y)
        end
    end)
end

-- ==========================================
-- 1. MÀN HÌNH NHẬP KEY
-- ==========================================
local KeyFrame = Instance.new("Frame", ScreenGui)
KeyFrame.Size = UDim2.new(0, 260, 0, 130); KeyFrame.Position = UDim2.new(0.5, -130, 0.4, -65)
ApplyGlass(KeyFrame); MakeDraggable(KeyFrame)

local KeyInput = Instance.new("TextBox", KeyFrame)
KeyInput.Size = UDim2.new(0, 220, 0, 35); KeyInput.Position = UDim2.new(0, 20, 0, 20)
KeyInput.PlaceholderText = "Nhập Key (Aihoi)"; KeyInput.BackgroundColor3 = Color3.fromRGB(30, 30, 30)
KeyInput.TextColor3 = Color3.new(1,1,1); Instance.new("UICorner", KeyInput).CornerRadius = UDim.new(0, 8)

local CheckBtn = Instance.new("TextButton", KeyFrame)
CheckBtn.Size = UDim2.new(0, 220, 0, 35); CheckBtn.Position = UDim2.new(0, 20, 0, 70)
CheckBtn.Text = "KÍCH HOẠT MENU"; CheckBtn.BackgroundColor3 = Color3.fromRGB(200, 0, 0)
CheckBtn.TextColor3 = Color3.new(1,1,1); CheckBtn.Font = Enum.Font.SourceSansBold
Instance.new("UICorner", CheckBtn).CornerRadius = UDim.new(0, 8)

-- ==========================================
-- 2. MÀN HÌNH LOADING TỔNG HỢP
-- ==========================================
local LoadFrame = Instance.new("Frame", ScreenGui)
LoadFrame.Size = UDim2.new(0, 280, 0, 180); LoadFrame.Position = UDim2.new(0.5, -140, 0.4, -90)
LoadFrame.Visible = false; ApplyGlass(LoadFrame)

local Logo = Instance.new("ImageLabel", LoadFrame)
Logo.Size = UDim2.new(0, 80, 0, 80); Logo.Position = UDim2.new(0.5, -40, 0, 15)
Logo.Image = "rbxassetid://13412154445"; Logo.BackgroundTransparency = 1
Instance.new("UICorner", Logo).CornerRadius = UDim.new(1, 0)

local PercentTxt = Instance.new("TextLabel", LoadFrame)
PercentTxt.Size = UDim2.new(1, 0, 0, 30); PercentTxt.Position = UDim2.new(0, 0, 0, 105)
PercentTxt.Text = "0%"; PercentTxt.TextColor3 = Color3.fromRGB(255, 0, 0)
PercentTxt.BackgroundTransparency = 1; PercentTxt.Font = Enum.Font.SourceSansBold; PercentTxt.TextSize = 22

local BarBg = Instance.new("Frame", LoadFrame)
BarBg.Size = UDim2.new(0, 240, 0, 10); BarBg.Position = UDim2.new(0.5, -120, 0, 145)
BarBg.BackgroundColor3 = Color3.fromRGB(40, 40, 40); Instance.new("UICorner", BarBg)
local BarFill = Instance.new("Frame", BarBg)
BarFill.Size = UDim2.new(0, 0, 1, 0); BarFill.BackgroundColor3 = Color3.fromRGB(255, 0, 0)
Instance.new("UICorner", BarFill)

-- ==========================================
-- 3. MENU CHÍNH VÀ NÚT ẨN/HIỆN (LOGO)
-- ==========================================
local OpenBtn = Instance.new("ImageButton", ScreenGui)
OpenBtn.Size = UDim2.new(0, 50, 0, 50); OpenBtn.Position = UDim2.new(0, 15, 0, 15)
OpenBtn.Image = "rbxassetid://13412154445"; OpenBtn.Visible = false
ApplyGlass(OpenBtn); Instance.new("UICorner", OpenBtn).CornerRadius = UDim.new(0, 10)

local MainFrame = Instance.new("Frame", ScreenGui)
MainFrame.Size = UDim2.new(0, 320, 0, 350); MainFrame.Position = UDim2.new(0.5, -160, 0.4, -175)
MainFrame.Visible = false; ApplyGlass(MainFrame); MakeDraggable(MainFrame)

local Title = Instance.new("TextLabel", MainFrame)
Title.Size = UDim2.new(1, -40, 0, 40); Title.Position = UDim2.new(0, 15, 0, 0)
Title.Text = "Red vn Animation V10"; Title.TextColor3 = Color3.new(1,1,1)
Title.Font = Enum.Font.SourceSansBold; Title.TextSize = 18
Title.BackgroundTransparency = 1; Title.TextXAlignment = Enum.TextXAlignment.Left

local CloseBtn = Instance.new("TextButton", MainFrame)
CloseBtn.Size = UDim2.new(0, 30, 0, 30); CloseBtn.Position = UDim2.new(1, -40, 0, 5)
CloseBtn.Text = "X"; CloseBtn.BackgroundColor3 = Color3.fromRGB(220, 0, 0)
CloseBtn.TextColor3 = Color3.new(1,1,1); Instance.new("UICorner", CloseBtn).CornerRadius = UDim.new(0, 6)

CloseBtn.MouseButton1Click:Connect(function() MainFrame.Visible = false; OpenBtn.Visible = true end)
OpenBtn.MouseButton1Click:Connect(function() MainFrame.Visible = true; OpenBtn.Visible = false end)

local ScrollList = Instance.new("ScrollingFrame", MainFrame)
ScrollList.Size = UDim2.new(1, -20, 1, -55); ScrollList.Position = UDim2.new(0, 10, 0, 45)
ScrollList.BackgroundTransparency = 1; ScrollList.ScrollBarThickness = 4
ScrollList.CanvasSize = UDim2.new(0, 0, 0, 350) -- Độ dài cuộn

-- Hàm tạo nút tính năng an toàn (pcall)
local function AddFeatureBtn(text, yPos, func)
    local btn = Instance.new("TextButton", ScrollList)
    btn.Size = UDim2.new(1, -15, 0, 38); btn.Position = UDim2.new(0, 5, 0, yPos)
    btn.Text = text; btn.TextColor3 = Color3.new(1,1,1); btn.Font = Enum.Font.SourceSansSemibold
    btn.BackgroundColor3 = Color3.fromRGB(255, 255, 255); btn.BackgroundTransparency = 0.85
    Instance.new("UICorner", btn).CornerRadius = UDim.new(0, 8)
    btn.MouseButton1Click:Connect(function() pcall(func) end)
end

-- Danh sách Tính năng
AddFeatureBtn("Tăng Tốc (WalkSpeed = 100)", 5, function() LocalPlayer.Character.Humanoid.WalkSpeed = 100 end)
AddFeatureBtn("Chạy Chậm (WalkSpeed = 5)", 50, function() LocalPlayer.Character.Humanoid.WalkSpeed = 5 end)
AddFeatureBtn("Bật/Tắt Fly (Bay)", 95, function() LocalPlayer.Character.Humanoid.PlatformStand = not LocalPlayer.Character.Humanoid.PlatformStand end)
AddFeatureBtn("Tăng 200 Máu & Hồi Phục", 140, function() 
    local h = LocalPlayer.Character.Humanoid
    h.MaxHealth = 200; h.Health = 200 
end)
AddFeatureBtn("Lấy Tất Cả Tools (Equip All)", 185, function()
    for _, i in pairs(LocalPlayer.Backpack:GetChildren()) do if i:IsA("Tool") then LocalPlayer.Character.Humanoid:EquipTool(i) end end
end)
AddFeatureBtn("Phóng To Hitbox Thạch (All)", 230, function()
    for _, p in pairs(Players:GetPlayers()) do
        if p ~= LocalPlayer and p.Character and p.Character:FindFirstChild("HumanoidRootPart") then
            local hrp = p.Character.HumanoidRootPart
            hrp.Size = Vector3.new(8, 8, 8); hrp.Transparency = 0.5; hrp.Color = Color3.fromRGB(255,0,0); hrp.CanCollide = false
        end
    end
end)
AddFeatureBtn("Phá Hủy UI (Tắt Hoàn Toàn)", 275, function() ScreenGui:Destroy() end)

-- ==========================================
-- 4. LOGIC KÍCH HOẠT CHẠY REAL-TIME
-- ==========================================
CheckBtn.MouseButton1Click:Connect(function()
    if KeyInput.Text == "Aihoi" then
        KeyFrame.Visible = false; LoadFrame.Visible = true
        for i = 1, 100 do
            PercentTxt.Text = i .. "%"
            BarFill.Size = UDim2.new(i/100, 0, 1, 0)
            task.wait(0.02)
        end
        task.wait(0.3)
        LoadFrame.Visible = false; MainFrame.Visible = true
    else
        CheckBtn.Text = "SAI KEY! NHẬP LẠI"; CheckBtn.BackgroundColor3 = Color3.fromRGB(150, 0, 0)
        task.wait(1.5); CheckBtn.Text = "KÍCH HOẠT MENU"; CheckBtn.BackgroundColor3 = Color3.fromRGB(200, 0, 0)
    end
end)