View difference between Paste ID: 3Fm1JHLN and 3tBweEA1

 _G.scanRemotes = true
 
 _G.ignoreNames = {
 	Event = true;
 	MessagesChanged = true;
 }
 
 local pseudoEnv = {}
 local gameMeta = getrawmetatable(game)
 local oldncall= gameMeta.__namecall
 local tabChar = "      "
 
 local function getSmaller(a, b, notLast)
 	local aByte = a:byte() or -1
 	local bByte = b:byte() or -1
 	if aByte == bByte then
 		if notLast and #a == 1 and #b == 1 then
 			return -1
 		elseif #b == 1 then
 			return false
 		elseif #a == 1 then
 			return true
 		else
 			return getSmaller(a:sub(2), b:sub(2), notLast)
 		end
 	else
 		return aByte < bByte
 	end
 end
 
 local function parseData(obj, numTabs, isKey, overflow, noTables, forceDict)
 	local objType = typeof(obj)
 	local objStr = tostring(obj)
 	if objType == "table" then
 		if noTables then return objStr end
 		local isCyclic = overflow[obj]
 		overflow[obj] = true
 		local out = {}
 		local nextIndex = 1
 		local isDict = false
 		local hasTables = false
 		local data = {}
 
 		for key, val in next, obj do
 			if not hasTables and typeof(val) == "table" then
 				hasTables = true
 			end
 
 			if not isDict and key ~= nextIndex then
 				isDict = true
 			else
 				nextIndex = nextIndex + 1
 			end
 			data[#data+1] = {key, val}
 		end
 
 		if isDict or hasTables or forceDict then
 			out[#out+1] = (isCyclic and "Cyclic " or "") .. "{"
 			table.sort(data, function(a, b)
 				local aType = typeof(a[2])
 				local bType = typeof(b[2])
 				if bType == "string" and aType ~= "string" then return false end
 				local res = getSmaller(aType, bType, true)
 				if res == -1 then
 					return getSmaller(tostring(a[1]), tostring(b[1]))
 				else
 					return res
 				end
 			end)
 			for i = 1, #data do
 				local arr = data[i]
 				local nowKey = arr[1]
 				local nowVal = arr[2]
 				local parseKey = parseData(nowKey, numTabs+1, true, overflow, isCyclic)
 				local parseVal = parseData(nowVal, numTabs+1, false, overflow, isCyclic)
 				if isDict then
 					local nowValType = typeof(nowVal)
 					local preStr = ""
 					local postStr = ""
 					if i > 1 and (nowValType == "table" or typeof(data[i-1][2]) ~= nowValType) then
 						preStr = "\n"
 					end
 					if i < #data and nowValType == "table" and typeof(data[i+1][2]) ~= "table" and typeof(data[i+1][2]) == nowValType then
 						postStr = "\n"
 					end
 					out[#out+1] = preStr .. string.rep(tabChar, numTabs+1) .. parseKey .. " = " .. parseVal .. ";" .. postStr
 				else
 					out[#out+1] = string.rep(tabChar, numTabs+1) .. parseVal .. ";"
 				end
 			end
 			out[#out+1] = string.rep(tabChar, numTabs) .. "}"
 		else
 			local data2 = {}
 			for i = 1, #data do
 				local arr = data[i]
 				local nowVal = arr[2]
 				local parseVal = parseData(nowVal, 0, false, overflow, isCyclic)
 				data2[#data2+1] = parseVal
 			end
 			out[#out+1] = "{" .. table.concat(data2, ", ") .. "}"
 		end
 
 		return table.concat(out, "\n")
 	else
 		local returnVal = nil
 		if (objType == "string" or objType == "Content") and (not isKey or tonumber(obj:sub(1, 1))) then
 			local retVal = '"' .. objStr .. '"'
 			if isKey then
 				retVal = "[" .. retVal .. "]"
 			end
 			returnVal = retVal
 		elseif objType == "EnumItem" then
 			returnVal = "Enum." .. tostring(obj.EnumType) .. "." .. obj.Name
 		elseif objType == "Enum" then
 			returnVal = "Enum." .. objStr
 		elseif objType == "Instance" then
 			returnVal = obj.Parent and obj:GetFullName() or obj.ClassName
 		elseif objType == "CFrame" then
 			returnVal = "CFrame.new(" .. objStr .. ")"
 		elseif objType == "Vector3" then
 			returnVal = "Vector3.new(" .. objStr .. ")"
 		elseif objType == "Vector2" then
 			returnVal = "Vector2.new(" .. objStr .. ")"
 		elseif objType == "UDim2" then
 			returnVal = "UDim2.new(" .. objStr:gsub("[{}]", "") .. ")"
 		elseif objType == "BrickColor" then
 			returnVal = "BrickColor.new(\"" .. objStr .. "\")"
 		elseif objType == "Color3" then
 			returnVal = "Color3.new(" .. objStr .. ")"
 		elseif objType == "NumberRange" then
 			returnVal = "NumberRange.new(" .. objStr:gsub("^%s*(.-)%s*$", "%1"):gsub(" ", ", ") .. ")"
 		elseif objType == "PhysicalProperties" then
 			returnVal = "PhysicalProperties.new(" .. objStr .. ")"
 		else
 			returnVal = objStr
 		end
 		return returnVal
 	end
 end
 
 function tableToString(t) return parseData(t, 0, false, {}, nil, false) end
 
 local detectClasses = {
 	BindableEvent = true;
 	BindableFunction = true;
 	RemoteEvent = true;
 	RemoteFunction = true;
 }
 
 local classMethods = {
 	BindableEvent = "Fire";
 	BindableFunction = "Invoke";
 	RemoteEvent = "FireServer";
 	RemoteFunction = "InvokeServer";
 }
 
 local realMethods = {}
 
 for name, enabled in next, detectClasses do
 	if enabled then
 		realMethods[classMethods[name]] = Instance.new(name)[classMethods[name]]
 	end
 end
 
 for key, value in next, gameMeta do pseudoEnv[key] = value end
 
 local incId = 0
 
 gameMeta.__namecall = function(...)
 	local args = {...}
 	local self = args[1]
 	local key = args[#args]
 	if realMethods[key] and not _G.ignoreNames[self.Name] and _G.scanRemotes then
 		incId = incId + 1
 		local nowId = incId
 		local strId = "[RemoteSpy_" .. nowId .. "]"
 
 		local allPassed = {}
 		for i=2, #args - 1 do
 			table.insert(allPassed, 1, args[i])
 		end
 		print("\n" .. strId .. " ClassName: " .. self.ClassName .. " | Path: " .. self:GetFullName() .. " | Method: " .. key .. "\n" .. strId .. " Packed Arguments: " .. tableToString(allPassed) .. "\n" .. strId .. " Packed Returned: [ERROR] \n")--" Packed Returned: [ERROR] " .. data .. "\n")
 	end
 	return oldncall(...)
 end
 
 print("\nRan Vaeb's RemoteSpy\n")