Roblox remote spy (NEW)

-- LocalScript: Full Remote Tester with Scrollable Console + Multiservice + Resizable UI
-- Place in StarterGui. Development and debugging only.

local Players = game:GetService("Players")
local ReplicatedStorage = game:GetService("ReplicatedStorage")
local Workspace = game:GetService("Workspace")
local Lighting = game:GetService("Lighting")
local SoundService = game:GetService("SoundService")
local StarterGui = game:GetService("StarterGui")
local StarterPack = game:GetService("StarterPack")
local StarterPlayer = game:GetService("StarterPlayer")
local TextChatService = game:GetService("TextChatService")
local UserInputService = game:GetService("UserInputService")
local player = Players.LocalPlayer
local playerGui = player:WaitForChild("PlayerGui")

-- =========================
-- UTILITY FUNCTIONS
-- =========================

-- Trim whitespace
local function trim(s) return s:match("^%s*(.-)%s*$") end

-- Pretty print tables recursively
local function pretty(v, depth)
    depth = depth or 0
    local t = typeof(v)
    if t == "string" then
        return '"' .. v .. '"'
    elseif t == "number" or t == "boolean" or v == nil then
        return tostring(v)
    elseif t == "table" then
        if depth > 4 then return "{...}" end
        local parts = {}
        for k,val in pairs(v) do
            table.insert(parts, string.rep("  ", depth+1) ..
                "["..pretty(k,depth+1).."] = "..pretty(val,depth+1))
        end
        return "{\n"..table.concat(parts,",\n").."\n"..string.rep("  ",depth).."}"
    else
        return "<"..t..">"
    end
end

-- Parse a single token
local function parseToken(tok)
    tok = trim(tok)
    if tok == "" then return nil end
    local s = tok:match('^"(.*)"$') or tok:match("^'(.*)'$")
    if s then return s end
    if tok == "true" then return true end
    if tok == "false" then return false end
    if tok == "nil" then return nil end
    local n = tonumber(tok)
    if n then return n end
    return tok
end

-- Parse CSV arguments into Lua values
local function parseArgs(csv)
    csv = tostring(csv or "")
    if csv == "" then return {} end
    local out, cur, inQuotes, quoteChar = {}, "", false, nil
    for i = 1, #csv do
        local c = csv:sub(i,i)
        if (c == '"' or c == "'") and not inQuotes then
            inQuotes = true
            quoteChar = c
            cur ..= c
        elseif c == quoteChar and inQuotes then
            inQuotes = false
            quoteChar = nil
            cur ..= c
        elseif c == "," and not inQuotes then
            table.insert(out, parseToken(cur))
            cur = ""
        else
            cur ..= c
        end
    end
    if cur ~= "" then table.insert(out, parseToken(cur)) end
    return out
end

-- =========================
-- REMOTE COLLECTION
-- =========================

local function safeGetDescendants(parent)
    local ok, descendants = pcall(function()
        return parent:GetDescendants()
    end)
    return ok and descendants or {}
end

local function collectRemotes()
    local remotes = {}

    local services = {
        ReplicatedStorage, Players, Workspace, StarterGui, StarterPack,
        StarterPlayer, playerGui, Lighting, SoundService, ChatService,
        TextChatService, CoreGui, UserGameSettings, VRService
    }

    for _, svc in ipairs(services) do
        for _, inst in ipairs(safeGetDescendants(svc)) do
            if inst:IsA("RemoteEvent") or inst:IsA("RemoteFunction") then
                table.insert(remotes, inst)
            end
        end
    end

    -- Include Backpack remotes
    if player:FindFirstChild("Backpack") then
        for _, inst in ipairs(safeGetDescendants(player.Backpack)) do
            if inst:IsA("RemoteEvent") or inst:IsA("RemoteFunction") then
                table.insert(remotes, inst)
            end
        end
    end

    -- Include Character tool remotes
    if player.Character then
        for _, inst in ipairs(safeGetDescendants(player.Character)) do
            if inst:IsA("RemoteEvent") or inst:IsA("RemoteFunction") then
                table.insert(remotes, inst)
            end
        end
    end

    -- Include StarterPack items
    for _, inst in ipairs(safeGetDescendants(StarterPack)) do
        if inst:IsA("RemoteEvent") or inst:IsA("RemoteFunction") then
            table.insert(remotes, inst)
        end
    end

    table.sort(remotes, function(a,b) return a:GetFullName() < b:GetFullName() end)
    return remotes
end

-- =========================
-- GUI SETUP
-- =========================

local screenGui = Instance.new("ScreenGui")
screenGui.Name = "RemoteTesterGUI"
screenGui.ResetOnSpawn = false
screenGui.Parent = playerGui
screenGui.ZIndexBehavior = Enum.ZIndexBehavior.Sibling

local main = Instance.new("Frame")
main.Size = UDim2.new(0.45,0,0.6,0)
main.Position = UDim2.new(0.5,-260,0.15,0)
main.AnchorPoint = Vector2.new(0.5,0)
main.BackgroundColor3 = Color3.fromRGB(34,34,34)
main.BorderSizePixel = 0
main.Parent = screenGui

-- UIScale for optional zooming
local uiScale = Instance.new("UIScale")
uiScale.Scale = 1
uiScale.Parent = main

-- Titlebar
local titlebar = Instance.new("Frame")
titlebar.Size = UDim2.new(1,0,0,34)
titlebar.BackgroundColor3 = Color3.fromRGB(24,24,24)
titlebar.BorderSizePixel = 0
titlebar.Parent = main

local title = Instance.new("TextLabel")
title.Size = UDim2.new(0.7,0,1,0)
title.Position = UDim2.new(0,8,0,0)
title.BackgroundTransparency = 1
title.Text = "ReplicatedStorage Remote Tester + Scrollable Console"
title.TextColor3 = Color3.fromRGB(230,230,230)
title.Font = Enum.Font.SourceSansSemibold
title.TextSize = 14
title.TextXAlignment = Enum.TextXAlignment.Left
title.Parent = titlebar

local btnClose = Instance.new("TextButton")
btnClose.Size = UDim2.new(0,36,0,22)
btnClose.Position = UDim2.new(1,-44,0,6)
btnClose.Text = "X"
btnClose.Parent = titlebar

local btnMin = Instance.new("TextButton")
btnMin.Size = UDim2.new(0,36,0,22)
btnMin.Position = UDim2.new(1,-88,0,6)
btnMin.Text = "_"
btnMin.Parent = titlebar

-- Content frame
local content = Instance.new("Frame")
content.Size = UDim2.new(1,-16,1,-50)
content.Position = UDim2.new(0,8,0,40)
content.BackgroundTransparency = 1
content.Parent = main

-- Panels
local leftPanel = Instance.new("Frame")
leftPanel.Size = UDim2.new(0.55,0,1,0)
leftPanel.Position = UDim2.new(0,0,0,0)
leftPanel.BackgroundColor3 = Color3.fromRGB(28,28,28)
leftPanel.BorderSizePixel = 0
leftPanel.Parent = content

local rightPanel = Instance.new("Frame")
rightPanel.Size = UDim2.new(0.43,0,1,0)
rightPanel.Position = UDim2.new(0.57,0,0,0)
rightPanel.BackgroundColor3 = Color3.fromRGB(30,30,30)
rightPanel.BorderSizePixel = 0
rightPanel.Parent = content

-- Scrollable console
local consoleFrame = Instance.new("Frame")
consoleFrame.Size = UDim2.new(1,0,0.25,0)
consoleFrame.Position = UDim2.new(0,0,0.75,0)
consoleFrame.BackgroundColor3 = Color3.fromRGB(20,20,20)
consoleFrame.BorderSizePixel = 0
consoleFrame.Parent = main

local consoleScroll = Instance.new("ScrollingFrame")
consoleScroll.Size = UDim2.new(1,-8,1,-8)
consoleScroll.Position = UDim2.new(0,4,0,4)
consoleScroll.BackgroundTransparency = 1
consoleScroll.CanvasSize = UDim2.new(0,0,0,0)
consoleScroll.ScrollBarThickness = 6
consoleScroll.Parent = consoleFrame

local consoleLayout = Instance.new("UIListLayout")
consoleLayout.Padding = UDim.new(0,2)
consoleLayout.Parent = consoleScroll

-- =========================
-- LOGGING FUNCTION
-- =========================

local function logConsole(msg,isError)
    msg = tostring(msg)
    local lines = msg:split("\n")
    for _,line in ipairs(lines) do
        local label = Instance.new("TextLabel")
        label.Size = UDim2.new(1,0,0,16)
        label.BackgroundTransparency = 1
        label.Font = Enum.Font.Code
        label.TextSize = 12
        label.TextXAlignment = Enum.TextXAlignment.Left
        label.Text = os.date("[%H:%M:%S] ") .. line
        label.TextColor3 = isError and Color3.fromRGB(255,80,80) or Color3.fromRGB(0,255,0)
        label.Parent = consoleScroll
    end
    consoleScroll.CanvasSize = UDim2.new(0,0,0,consoleLayout.AbsoluteContentSize.Y + 4)
    consoleScroll.CanvasPosition = Vector2.new(0, consoleScroll.CanvasSize.Y.Offset)
end

-- =========================
-- REMOTES UI
-- =========================

local remotesLabel = Instance.new("TextLabel")
remotesLabel.Size = UDim2.new(1,0,0,26)
remotesLabel.Position = UDim2.new(0,8,0,6)
remotesLabel.BackgroundTransparency = 1
remotesLabel.Text = "Remotes in accessible services"
remotesLabel.TextColor3 = Color3.fromRGB(220,220,220)
remotesLabel.Font = Enum.Font.SourceSansSemibold
remotesLabel.TextSize = 14
remotesLabel.TextXAlignment = Enum.TextXAlignment.Left
remotesLabel.Parent = leftPanel

local refreshBtn = Instance.new("TextButton")
refreshBtn.Size = UDim2.new(0,80,0,24)
refreshBtn.Position = UDim2.new(1,-88,0,6)
refreshBtn.Text = "Refresh"
refreshBtn.Parent = leftPanel

local remotesList = Instance.new("ScrollingFrame")
remotesList.Size = UDim2.new(1,-16,1,-50)
remotesList.Position = UDim2.new(0,8,0,38)
remotesList.CanvasSize = UDim2.new(0,0,0,0)
remotesList.ScrollBarThickness = 6
remotesList.BackgroundTransparency = 1
remotesList.Parent = leftPanel

local uiListLayout = Instance.new("UIListLayout")
uiListLayout.Padding = UDim.new(0,6)
uiListLayout.Parent = remotesList

local selectedLabel = Instance.new("TextLabel")
selectedLabel.Size = UDim2.new(1,-16,0,24)
selectedLabel.Position = UDim2.new(0,8,0,8)
selectedLabel.BackgroundTransparency = 1
selectedLabel.Text = "Selected: (none)"
selectedLabel.TextColor3 = Color3.fromRGB(230,230,230)
selectedLabel.Font = Enum.Font.SourceSans
selectedLabel.TextSize = 14
selectedLabel.TextXAlignment = Enum.TextXAlignment.Left
selectedLabel.Parent = rightPanel

local argsLabel = Instance.new("TextLabel")
argsLabel.Size = UDim2.new(1,-16,0,18)
argsLabel.Position = UDim2.new(0,8,0,36)
argsLabel.BackgroundTransparency = 1
argsLabel.Text = "Arguments (comma separated)"
argsLabel.TextColor3 = Color3.fromRGB(200,200,200)
argsLabel.Font = Enum.Font.SourceSans
argsLabel.TextSize = 12
argsLabel.TextXAlignment = Enum.TextXAlignment.Left
argsLabel.Parent = rightPanel

local argsBox = Instance.new("TextBox")
argsBox.Size = UDim2.new(1,-16,0,36)
argsBox.Position = UDim2.new(0,8,0,56)
argsBox.ClearTextOnFocus = false
argsBox.PlaceholderText = [["hello",5,true]]
argsBox.Text = ""
argsBox.Parent = rightPanel

local fireButton = Instance.new("TextButton")
fireButton.Size = UDim2.new(0,200,0,36)
fireButton.Position = UDim2.new(0,8,0,100)
fireButton.Text = "Fire / Invoke Selected Remote"
fireButton.Parent = rightPanel

-- =========================
-- DRAGGING AND RESIZING
-- =========================

local dragging, dragStartPos, guiStartPos
local resizing, resizeDir, resizeStartPos, resizeStartSize
local edgeThreshold = 8

-- Determine which edge/corner is being hovered
local function getResizeDirection(mousePos)
    local absPos = main.AbsolutePosition
    local absSize = main.AbsoluteSize
    local rightEdge = absPos.X + absSize.X
    local bottomEdge = absPos.Y + absSize.Y
    local nearLeft = math.abs(mousePos.X - absPos.X) <= edgeThreshold
    local nearRight = math.abs(mousePos.X - rightEdge) <= edgeThreshold
    local nearTop = math.abs(mousePos.Y - absPos.Y) <= edgeThreshold
    local nearBottom = math.abs(mousePos.Y - bottomEdge) <= edgeThreshold

    if nearLeft and nearTop then return "TopLeft"
    elseif nearRight and nearTop then return "TopRight"
    elseif nearLeft and nearBottom then return "BottomLeft"
    elseif nearRight and nearBottom then return "BottomRight"
    elseif nearLeft then return "Left"
    elseif nearRight then return "Right"
    elseif nearTop then return "Top"
    elseif nearBottom then return "Bottom"
    end
    return nil
end

-- Dragging
titlebar.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 then
        if resizing then return end
        dragging = true
        dragStartPos = input.Position
        guiStartPos = main.Position
        input.Changed:Connect(function()
            if input.UserInputState == Enum.UserInputState.End then
                dragging = false
            end
        end)
    end
end)

UserInputService.InputChanged:Connect(function(input)
    -- Dragging
    if dragging and input.UserInputType == Enum.UserInputType.MouseMovement then
        if resizing then return end
        local delta = input.Position - dragStartPos
        main.Position = UDim2.new(guiStartPos.X.Scale, guiStartPos.X.Offset + delta.X,
            guiStartPos.Y.Scale, guiStartPos.Y.Offset + delta.Y)
    end

    -- Resizing
    if resizing and input.UserInputType == Enum.UserInputType.MouseMovement then
        local delta = input.Position - resizeStartPos
        local newSize = resizeStartSize
        local newPos = main.Position

        if resizeDir == "Right" or resizeDir == "TopRight" or resizeDir == "BottomRight" then
            newSize = UDim2.new(0, math.max(240, resizeStartSize.X.Offset + delta.X), 0, newSize.Y.Offset)
        elseif resizeDir == "Left" or resizeDir == "TopLeft" or resizeDir == "BottomLeft" then
            local newWidth = math.max(240, resizeStartSize.X.Offset - delta.X)
            newSize = UDim2.new(0, newWidth, 0, newSize.Y.Offset)
            newPos = UDim2.new(newPos.X.Scale, newPos.X.Offset + delta.X, newPos.Y.Scale, newPos.Y.Offset)
        end

        if resizeDir == "Bottom" or resizeDir == "BottomLeft" or resizeDir == "BottomRight" then
            newSize = UDim2.new(0, newSize.X.Offset, 0, math.max(180, resizeStartSize.Y.Offset + delta.Y))
        elseif resizeDir == "Top" or resizeDir == "TopLeft" or resizeDir == "TopRight" then
            local newHeight = math.max(180, resizeStartSize.Y.Offset - delta.Y)
            newSize = UDim2.new(0, newSize.X.Offset, 0, newHeight)
            newPos = UDim2.new(newPos.X.Scale, newPos.X.Offset, newPos.Y.Scale, newPos.Y.Offset + delta.Y)
        end

        main.Size = newSize
        main.Position = newPos
    end
end)

main.InputBegan:Connect(function(input)
    if input.UserInputType == Enum.UserInputType.MouseButton1 then
        local dir = getResizeDirection(input.Position)
        if dir then
            resizing = true
            resizeDir = dir
            resizeStartPos = input.Position
            resizeStartSize = main.Size
            input.Changed:Connect(function()
                if input.UserInputState == Enum.UserInputState.End then
                    resizing = false
                    resizeDir = nil
                end
            end)
        end
    end
end)

-- =========================
-- MINIMIZE / CLOSE
-- =========================

btnClose.MouseButton1Click:Connect(function() screenGui:Destroy() end)
local minimized = false
btnMin.MouseButton1Click:Connect(function()
    minimized = not minimized
    content.Visible = not minimized
    consoleFrame.Visible = not minimized
    main.Size = minimized and UDim2.new(0,240,0,34) or UDim2.new(0.45,0,0.6,0)
end)

-- =========================
-- REMOTE LIST POPULATION
-- =========================

local selectedRemote
local function clearList()
    for _,v in ipairs(remotesList:GetChildren()) do
        if v:IsA("TextButton") then v:Destroy() end
    end
end

local function populate()
    clearList()
    local remotes = collectRemotes()
    logConsole("Loading "..#remotes.." remotes...")

    spawn(function()  -- run asynchronously to avoid freezing the main thread
        for _,inst in ipairs(remotes) do
            local btn = Instance.new("TextButton")
            btn.Size = UDim2.new(1,-8,0,28)
            btn.BackgroundColor3 = Color3.fromRGB(38,38,38)
            btn.BorderSizePixel = 0
            btn.Text = inst:GetFullName()
            btn.Font = Enum.Font.SourceSans
            btn.TextSize = 13
            btn.TextColor3 = Color3.fromRGB(230,230,230)
            btn.Parent = remotesList

            btn.MouseButton1Click:Connect(function()
                for _,b in ipairs(remotesList:GetChildren()) do
                    if b:IsA("TextButton") then
                        b.BackgroundColor3 = Color3.fromRGB(38,38,38)
                    end
                end
                btn.BackgroundColor3 = Color3.fromRGB(60,60,60)
                selectedRemote = inst
                selectedLabel.Text = "Selected: " .. inst:GetFullName()
            end)

            -- Yield a little to avoid freezing on low-end
            task.wait(0.05)
        end
        remotesList.CanvasSize = UDim2.new(0,0,0,uiListLayout.AbsoluteContentSize.Y + 8)
        logConsole("Finished loading "..#remotes.." remotes.")
    end)
end


refreshBtn.MouseButton1Click:Connect(function()
    populate()
    logConsole("Manual refresh triggered.")
end)

ReplicatedStorage.DescendantAdded:Connect(function(d)
    if d:IsA("RemoteEvent") or d:IsA("RemoteFunction") then populate() end
end)
ReplicatedStorage.DescendantRemoving:Connect(function(d)
    if d:IsA("RemoteEvent") or d:IsA("RemoteFunction") then
        if selectedRemote == d then selectedRemote = nil end
        populate()
    end
end)

-- =========================
-- FIRE REMOTE
-- =========================

fireButton.MouseButton1Click:Connect(function()
    if not selectedRemote then
        logConsole("No remote selected.",true)
        return
    end
    local args = parseArgs(argsBox.Text)
    local ok, res = pcall(function()
        if selectedRemote:IsA("RemoteEvent") then
            selectedRemote:FireServer(table.unpack(args))
            return "Fired RemoteEvent."
        else
            local result = selectedRemote:InvokeServer(table.unpack(args))
            return "InvokeServer returned: " .. pretty(result)
        end
    end)
    if ok then
        logConsole(res)
    else
        logConsole("Error: "..tostring(res),true)
    end
end)

-- =========================
-- INITIALIZATION
-- =========================

populate()
logConsole("Ready.")