-- [[ Rscripts Risk Notice ]]
-- This script is not verified by rscripts.net. Deal with caution.
--
-- Stay safe:
--   • Never log in on unofficial Roblox sites or lookalike domains.
--   • Real Roblox links use roblox.com (check the .com ending).
--   • Treat fake Roblox login / "claim reward" pages as phishing.
-- [[ End Rscripts Risk Notice ]]

-- LocalScript: يوضع في StarterPlayerScripts أو StarterGui
local Players = game:GetService("Players")
local UserInputService = game:GetService("UserInputService")
local TweenService = game:GetService("TweenService")

local player = Players.LocalPlayer
local mouse = player:GetMouse()

-- 1. إنشاء واجهة عرض المعلومات (UI)
local screenGui = Instance.new("ScreenGui")
screenGui.Name = "ScannerHub"
screenGui.ResetOnSpawn = false
screenGui.Parent = player:WaitForChild("PlayerGui")

local mainFrame = Instance.new("Frame")
mainFrame.Name = "MainFrame"
mainFrame.Size = UDim2.new(0, 380, 0, 260)
mainFrame.Position = UDim2.new(0.02, 0, 0.3, 0)
mainFrame.BackgroundColor3 = Color3.fromRGB(20, 20, 25)
mainFrame.BorderSizePixel = 0
mainFrame.Parent = screenGui

local uiCorner = Instance.new("UICorner")
uiCorner.CornerRadius = UDim.new(0, 10)
uiCorner.Parent = mainFrame

local titleLabel = Instance.new("TextLabel")
titleLabel.Size = UDim2.new(1, 0, 0, 35)
titleLabel.BackgroundColor3 = Color3.fromRGB(35, 35, 45)
titleLabel.Text = "🔍 فاحص المجسمات والسكربتات"
titleLabel.TextColor3 = Color3.fromRGB(255, 255, 255)
titleLabel.TextSize = 16
titleLabel.Font = Enum.Font.GothamBold
titleLabel.Parent = mainFrame

local titleCorner = Instance.new("UICorner")
titleCorner.CornerRadius = UDim.new(0, 10)
titleCorner.Parent = titleLabel

local scrollFrame = Instance.new("ScrollingFrame")
scrollFrame.Size = UDim2.new(0.92, 0, 0.8, 0)
scrollFrame.Position = UDim2.new(0.04, 0, 0.16, 0)
scrollFrame.BackgroundTransparency = 1
scrollFrame.ScrollBarThickness = 6
scrollFrame.Parent = mainFrame

local infoText = Instance.new("TextLabel")
infoText.Size = UDim2.new(1, -10, 0, 0)
infoText.AutomaticSize = Enum.AutomaticSize.Y
infoText.BackgroundTransparency = 1
infoText.Text = "أشر بالموس على أي بلوكة أو المودل..."
infoText.TextColor3 = Color3.fromRGB(200, 200, 200)
infoText.TextSize = 13
infoText.Font = Enum.Font.SourceSans
infoText.TextXAlignment = Enum.TextXAlignment.Left
infoText.TextYAlignment = Enum.TextYAlignment.Top
infoText.TextWrapped = true
infoText.Parent = scrollFrame

-- 2. إعداد تأثير التظليل (Highlight)
local highlight = Instance.new("Highlight")
highlight.FillColor = Color3.fromRGB(0, 170, 255)
highlight.OutlineColor = Color3.fromRGB(255, 255, 255)
highlight.FillTransparency = 0.5
highlight.OutlineTransparency = 0
highlight.Parent = game:GetService("CoreGui")

-- 3. دالة قراءة تفاصيل المجسم والسكربتات داخله
local function inspectTarget(target)
	if not target then
		highlight.Adornee = nil
		infoText.Text = "أشر بالموس على أي بلوكة أو المودل..."
		return
	end

	-- التظليل يركز على المودل إذا كان جزءاً منه، أو على البلوكة مباشرة
	local model = target:FindFirstAncestorOfClass("Model")
	local rootObject = model or target
	highlight.Adornee = rootObject

	local textResult = "📌 **المجسم المباشر:** " .. target.Name .. " (" .. target.ClassName .. ")\n"
	
	if model then
		textResult = textResult .. "📦 **داخل مودل باسم:** " .. model.Name .. "\n"
	end

	textResult = textResult .. "-----------------------------------\n"
	textResult = textResult .. "📂 **محتويات " .. rootObject.Name .. ":**\n"

	local function scanDescendants(parent, indent)
		for _, child in ipairs(parent:GetChildren()) do
			textResult = textResult .. indent .. "• " .. child.Name .. " [" .. child.ClassName .. "]\n"

			-- إذا كان الشيء سكربت، نحاول قراءة الكود الداخلي
			if child:IsA("LuaSourceContainer") then
				local code = ""
				pcall(function()
					code = child.Source
				end)

				if code ~= "" then
					textResult = textResult .. indent .. "   📜 **محتوى السكربت:**\n"
					textResult = textResult .. indent .. "   -------------------------\n"
					for line in code:gmatch("[^\r\n]+") do
						textResult = textResult .. indent .. "   " .. line .. "\n"
					end
					textResult = textResult .. indent .. "   -------------------------\n"
				else
					textResult = textResult .. indent .. "   ⚠️ (السكربت محمي أو فارغ)\n"
				end
			end

			-- التكرار داخل المودلات أو الأجزاء الفرعية
			scanDescendants(child, indent .. "   ")
		end
	end

	scanDescendants(rootObject, " ")
	infoText.Text = textResult
end

-- 4. تحديث الفحص عند تحريك الموس
mouse.Move:Connect(function()
	inspectTarget(mouse.Target)
end)