local TweenService = game:GetService("TweenService")
local RunService = game:GetService("RunService")
local UIS = game:GetService("UserInputService")
local Players = game:GetService("Players")

local ScreenGui = Instance.new("ScreenGui")
local target = game:GetService("CoreGui") or Players.LocalPlayer:WaitForChild("PlayerGui")
ScreenGui.Parent = target
ScreenGui.Name = "LoriUltra_Final_ESP_90"
ScreenGui.ResetOnSpawn = false

local rainbow = Color3.new(1,1,1)
task.spawn(function()
    local s = 0
    while task.wait() do s = s + 0.005; rainbow = Color3.fromHSV(s % 1, 0.7, 1) end
end)

local function Notify(txt)
    local n = Instance.new("TextLabel", ScreenGui)
    n.Size = UDim2.new(0, 280, 0, 45); n.Position = UDim2.new(1, 20, 1, -150)
    n.BackgroundColor3 = Color3.fromRGB(15,15,15); n.TextColor3 = rainbow
    n.Text = " [RED]: "..txt; n.Font = Enum.Font.GothamBold; n.TextSize = 15
    Instance.new("UICorner", n); local s = Instance.new("UIStroke", n); s.Thickness = 2
    task.spawn(function()
        n:TweenPosition(UDim2.new(1, -300, 1, -150), "Out", "Back", 0.5)
        task.wait(2.5); n:TweenPosition(UDim2.new(1, 50, 1, -150), "In", "Quad", 0.5)
        task.wait(0.6); n:Destroy()
    end)
    task.spawn(function() while n.Parent do s.Color = rainbow; n.TextColor3 = rainbow; task.wait() end end)
end

local function SideBtn(name, offset, func)
    local b = Instance.new("TextButton", ScreenGui)
    b.Size = UDim2.new(0, 120, 0, 55); b.Position = UDim2.new(1, -140, 0.5, offset)
    b.BackgroundColor3 = Color3.fromRGB(20, 20, 20); b.Text = name; b.Font = Enum.Font.GothamBlack; b.TextSize = 18; b.TextColor3 = Color3.new(1,1,1)
    Instance.new("UICorner", b); local s = Instance.new("UIStroke", b); s.Thickness = 3
    b.MouseButton1Click:Connect(function() func(b, s) end)
    task.spawn(function() while task.wait() do s.Color = rainbow end end)
end

local MainFrame = Instance.new("Frame", ScreenGui)
MainFrame.Size = UDim2.new(0, 560, 0, 480); MainFrame.Position = UDim2.new(0.5, -280, 0.5, -240)
MainFrame.BackgroundColor3 = Color3.fromRGB(12, 12, 12); MainFrame.Visible = false; MainFrame.Active = true; MainFrame.Draggable = true
Instance.new("UICorner", MainFrame); local MainStroke = Instance.new("UIStroke", MainFrame); MainStroke.Thickness = 4

local Title = Instance.new("TextLabel", MainFrame)
Title.Size = UDim2.new(1, 0, 0, 85); Title.BackgroundTransparency = 1
Title.Text = "RED V2"; Title.TextSize = 55; Title.Font = Enum.Font.GothamBlack; Title.TextColor3 = rainbow

local Scroll = Instance.new("ScrollingFrame", MainFrame)
Scroll.Size = UDim2.new(1, -25, 1, -110); Scroll.Position = UDim2.new(0, 12, 0, 95)
Scroll.BackgroundTransparency = 1; Scroll.AutomaticCanvasSize = Enum.AutomaticSize.Y; Scroll.ScrollBarThickness = 0
Instance.new("UIListLayout", Scroll).Padding = UDim.new(0, 12)

local function AddBtn(text, func)
    local b = Instance.new("TextButton", Scroll)
    b.Size = UDim2.new(1, -15, 0, 70); b.BackgroundColor3 = Color3.fromRGB(28, 28, 28)
    b.Text = text; b.Font = Enum.Font.GothamBlack; b.TextSize = 25; b.TextColor3 = Color3.new(1,1,1)
    Instance.new("UICorner", b); local s = Instance.new("UIStroke", b); s.Thickness = 3
    b.MouseButton1Click:Connect(function() pcall(func, b) end)
    task.spawn(function() while task.wait() do s.Color = rainbow end end)
end

SideBtn("FLY", -70, function(btn)
    _G.LoriFly = not _G.LoriFly; btn.Text = _G.LoriFly and "FLY: ON" or "FLY"
    Notify("Fly Mode: " .. (_G.LoriFly and "Active" or "Disabled"))
    local char = Players.LocalPlayer.Character
    if _G.LoriFly and char then
        local root = char:FindFirstChild("HumanoidRootPart")
        local bv = Instance.new("BodyVelocity", root); bv.Name = "LoriFly"; bv.MaxForce = Vector3.new(1e6,1e6,1e6)
        task.spawn(function()
            while _G.LoriFly and root do
                local cam = workspace.CurrentCamera.CFrame; local d = Vector3.new(0,0,0)
                if UIS:IsKeyDown("W") then d = d + cam.LookVector end
                if UIS:IsKeyDown("S") then d = d - cam.LookVector end
                if UIS:IsKeyDown("A") then d = d - cam.RightVector end
                if UIS:IsKeyDown("D") then d = d + cam.RightVector end
                bv.Velocity = d * 75; task.wait()
            end
            if bv then bv:Destroy() end
        end)
    end
end)

SideBtn("MENU", 0, function() MainFrame.Visible = not MainFrame.Visible end)

AddBtn("🌀 EXIT PORTAL", function()
    local r = Players.LocalPlayer.Character:FindFirstChild("HumanoidRootPart")
    if r then r.CFrame = CFrame.new(-234.05, 20.22, -228.79); Notify("Portal TP Success!") end
end)

local farmOn = false
AddBtn("💰 AUTO-FARM COINS: OFF", function(btn)
    farmOn = not farmOn; btn.Text = farmOn and "💰 FARMING..." or "💰 AUTO-FARM COINS: OFF"
    Notify("Farm " .. (farmOn and "Running" or "Stopped"))
    if farmOn then
        task.spawn(function()
            while farmOn do
                local root = Players.LocalPlayer.Character and Players.LocalPlayer.Character:FindFirstChild("HumanoidRootPart")
                if root then
                    for _, o in pairs(workspace:GetDescendants()) do
                        if not farmOn then break end
                        if o.Name:lower():find("coin") and o:IsA("BasePart") then
                            root.CFrame = o.CFrame; task.wait(0.35)
                        end
                    end
                end
                task.wait(0.5)
            end
        end)
    end
end)

local speedOn = false
AddBtn("⚡ SPEED 100: OFF", function(btn)
    speedOn = not speedOn; btn.Text = speedOn and "⚡ SPEED 100: ON" or "⚡ SPEED 100: OFF"
    Notify("Speed Mod: " .. (speedOn and "100" or "Default"))
end)

local espActive = false
AddBtn("🔴 PLAYER ESP: OFF", function(btn)
    espActive = not espActive; btn.Text = espActive and "🔴 ESP: ON" or "🔴 PLAYER ESP: OFF"
    Notify("ESP: " .. (espActive and "Active" or "Disabled"))
    if not espActive then
        for _, p in pairs(Players:GetPlayers()) do
            if p.Character and p.Character:FindFirstChild("ESPHl") then p.Character.ESPHl:Destroy() end
        end
    end
end)

for i = 1, 7 do
    AddBtn("📺 TELEPORT TO VHStv " .. i, function()
        local t = workspace:FindFirstChild("VHStv"..i, true)
        if t and Players.LocalPlayer.Character then 
            Players.LocalPlayer.Character:PivotTo(t:GetPivot() * CFrame.new(0,5,0))
            Notify("TP to TV " .. i)
        end
    end)
end

RunService.RenderStepped:Connect(function()
    MainStroke.Color = rainbow; Title.TextColor3 = rainbow
    local char = Players.LocalPlayer.Character
    if not char then return end
    if speedOn then
        local r, h = char:FindFirstChild("HumanoidRootPart"), char:FindFirstChild("Humanoid")
        if r and h and h.MoveDirection.Magnitude > 0 then r.CFrame = r.CFrame + (h.MoveDirection * 1.25) end
    end
    if espActive then
        for _, p in pairs(Players:GetPlayers()) do
            if p ~= Players.LocalPlayer and p.Character and not p.Character:FindFirstChild("ESPHl") then
                local hl = Instance.new("Highlight", p.Character)
                hl.Name = "ESPHl"; hl.FillColor = Color3.new(1,0,0); hl.OutlineColor = Color3.new(1,1,1)
            end
        end
    end
end)

Notify("Lori Ultra v3.0 (ESP) Loaded!")




AddBtn("☀️ FULLBRIGHT: ON/OFF", function()
    local L = game:GetService("Lighting")
    L.Brightness = 2; L.ClockTime = 14; L.FogEnd = 1e5; L.GlobalShadows = false
    Notify("FullBright Active!")
end)