--[[ medhub v5.0 – النسخة المطلوبة - واجهة انتظار 5 ثواني مع عداد و ألوان متغيرة - بعدها تظهر نافذتين صغيرتين: 1. نافذة "ANTI" فيها أزرار تشغيل Anti‑AFK, Anti‑Fling, Anti‑Crash, Anti‑Exit 2. نافذة "SMLA" تتبع أي لاعب بالاسم (كامل أو جزء) وتحسب كم مرة طلع وكم وقت قعد - كل نافذة فيها علامة × حمراء تزيل النافذة فقط (الوظيفة توقف) - النوافذ قابلة للسحب و صغيرة و شكلها حلو - الشغل كله ثابت و ما يعلق ]] -- الخدمات local plr = game.Players.LocalPlayer local uis = game:GetService("UserInputService") local run = game:GetService("RunService") local ws = game:GetService("Workspace") -- ------------------- واجهة الانتظار (5 ثواني مع ألوان) ------------------- local splashGui = Instance.new("ScreenGui") splashGui.Name = "Splash" splashGui.Parent = (gethui and gethui()) or plr:WaitForChild("PlayerGui") local splashFrame = Instance.new("Frame") splashFrame.Size = UDim2.new(1, 0, 1, 0) splashFrame.BackgroundColor3 = Color3.new(0, 0, 0) splashFrame.Parent = splashGui local textLabel = Instance.new("TextLabel") textLabel.Size = UDim2.new(1, 0, 1, 0) textLabel.Text = "ميد عمك ملك تصميل فوق سنه نيك امك يا ابن كحبه" textLabel.TextColor3 = Color3.new(1, 1, 1) textLabel.TextScaled = true textLabel.Font = Enum.Font.GothamBold textLabel.BackgroundTransparency = 1 textLabel.Parent = splashFrame local timerLabel = Instance.new("TextLabel") timerLabel.Size = UDim2.new(0, 200, 0, 50) timerLabel.Position = UDim2.new(0.5, -100, 0.8, 0) timerLabel.Text = "5" timerLabel.TextColor3 = Color3.new(1, 1, 1) timerLabel.TextScaled = true timerLabel.Font = Enum.Font.GothamBold timerLabel.BackgroundTransparency = 1 timerLabel.Parent = splashFrame -- تأثير تغيير لون الخلفية local start = tick() while tick() - start < 5 do local elapsed = tick() - start local t = elapsed / 5 -- ألوان متدرجة من أحمر إلى أزرق إلى أخضر local r = math.sin(t * math.pi * 2) * 0.5 + 0.5 local g = math.sin((t * math.pi * 2) + 2.094) * 0.5 + 0.5 local b = math.sin((t * math.pi * 2) + 4.188) * 0.5 + 0.5 splashFrame.BackgroundColor3 = Color3.new(r, g, b) timerLabel.Text = tostring(math.floor(5 - elapsed) + 1) wait(0.1) end splashGui:Destroy() -- ------------------- إنشاء GUI رئيسي (لكن سنضع كل نافذة لوحدها) ------------------- local mainGui = Instance.new("ScreenGui") mainGui.Name = "medhub" mainGui.Parent = (gethui and gethui()) or plr:WaitForChild("PlayerGui") -- ------------------- الوظائف العامة ------------------- local function makeDraggable(frame) local drag = false local dragStart frame.InputBegan:Connect(function(input) if input.UserInputType == Enum.UserInputType.MouseButton1 then drag = true dragStart = input.Position end end) frame.InputEnded:Connect(function(input) if input.UserInputType == Enum.UserInputType.MouseButton1 then drag = false end end) uis.InputChanged:Connect(function(input) if drag and input.UserInputType == Enum.UserInputType.MouseMovement then local delta = input.Position - dragStart frame.Position = UDim2.new(frame.Position.X.Scale, frame.Position.X.Offset + delta.X, frame.Position.Y.Scale, frame.Position.Y.Offset + delta.Y) end end) end local function createMiniWindow(title, x, y, width, height) local window = Instance.new("Frame") window.Size = UDim2.new(0, width, 0, height) window.Position = UDim2.new(0, x, 0, y) window.BackgroundColor3 = Color3.fromRGB(25, 25, 35) window.BackgroundTransparency = 0.05 window.BorderSizePixel = 0 window.Parent = mainGui local corner = Instance.new("UICorner") corner.CornerRadius = UDim.new(0, 8) corner.Parent = window local titleBar = Instance.new("Frame") titleBar.Size = UDim2.new(1, 0, 0, 30) titleBar.BackgroundColor3 = Color3.fromRGB(40, 40, 50) titleBar.BorderSizePixel = 0 titleBar.Parent = window local titleCorner = Instance.new("UICorner") titleCorner.CornerRadius = UDim.new(0, 8) titleCorner.Parent = titleBar local titleLabel = Instance.new("TextLabel") titleLabel.Size = UDim2.new(1, -30, 1, 0) titleLabel.Position = UDim2.new(0, 10, 0, 0) titleLabel.Text = title titleLabel.TextColor3 = Color3.new(1, 1, 1) titleLabel.Font = Enum.Font.GothamBold titleLabel.TextSize = 14 titleLabel.TextXAlignment = Enum.TextXAlignment.Left titleLabel.BackgroundTransparency = 1 titleLabel.Parent = titleBar local closeBtn = Instance.new("TextButton") closeBtn.Size = UDim2.new(0, 24, 0, 24) closeBtn.Position = UDim2.new(1, -28, 0, 3) closeBtn.Text = "✕" closeBtn.TextColor3 = Color3.new(1, 1, 1) closeBtn.BackgroundColor3 = Color3.fromRGB(200, 50, 50) closeBtn.Font = Enum.Font.GothamBold closeBtn.TextSize = 16 closeBtn.Parent = titleBar local closeCorner = Instance.new("UICorner") closeCorner.CornerRadius = UDim.new(0, 4) closeCorner.Parent = closeBtn local content = Instance.new("Frame") content.Size = UDim2.new(1, -10, 1, -40) content.Position = UDim2.new(0, 5, 0, 35) content.BackgroundTransparency = 1 content.Parent = window makeDraggable(titleBar) return window, content, closeBtn end -- ------------------- نافذة ANTI ------------------- local antiWin, antiContent, antiClose = createMiniWindow("ANTI MODULES", 50, 100, 260, 280) local antiFeatures = { {name = "Anti‑AFK", enabled = true, callback = nil}, {name = "Anti‑Fling", enabled = true, callback = nil}, {name = "Anti‑Crash", enabled = true, callback = nil}, {name = "Anti‑Exit", enabled = true, callback = nil} } -- تنفيذ الوظائف local afkThread = nil local flingThread = nil local exitThread = nil local crashEnabled = true -- Anti-AFK: يحركك كل 60 ثانية إذا ما تحركت local function antiAFK() local idleTime = 0 while antiFeatures[1].enabled and run.Stepped:Wait() do local char = plr.Character if char and char:FindFirstChild("HumanoidRootPart") then local vel = char.HumanoidRootPart.Velocity if vel.Magnitude < 1 then idleTime = idleTime + 0.1 if idleTime >= 60 then local rand = math.random(0, 360) local offset = Vector3.new(math.cos(math.rad(rand)), 0, math.sin(math.rad(rand))) * 0.5 char.HumanoidRootPart.CFrame = char.HumanoidRootPart.CFrame + offset idleTime = 0 end else idleTime = 0 end end wait(0.1) end end -- Anti-Fling: يرجع السرعة لو زادت فجأة local function antiFling() local lastVel = Vector3.new() while antiFeatures[2].enabled and run.RenderStepped:Wait() do local char = plr.Character if char and char:FindFirstChild("HumanoidRootPart") then local vel = char.HumanoidRootPart.Velocity if vel.Magnitude > 200 and (vel - lastVel).Magnitude > 150 then char.HumanoidRootPart.Velocity = lastVel * 0.8 end lastVel = vel end wait(0.05) end end -- Anti-Exit: يعيد الـ GUI لو انحذف local function antiExit() while antiFeatures[4].enabled and wait(1) do if not mainGui.Parent then mainGui.Parent = (gethui and gethui()) or plr:WaitForChild("PlayerGui") end -- نضمن أن النوافذ موجودة if not antiWin.Parent then antiWin.Parent = mainGui end if not smlaWin.Parent then smlaWin.Parent = mainGui end end end -- بدء الخيوط local function startAntiThreads() if antiFeatures[1].enabled then if afkThread and coroutine.status(afkThread) == "dead" then afkThread = coroutine.create(antiAFK) coroutine.resume(afkThread) elseif not afkThread then afkThread = coroutine.create(antiAFK) coroutine.resume(afkThread) end end if antiFeatures[2].enabled then if flingThread and coroutine.status(flingThread) == "dead" then flingThread = coroutine.create(antiFling) coroutine.resume(flingThread) elseif not flingThread then flingThread = coroutine.create(antiFling) coroutine.resume(flingThread) end end if antiFeatures[4].enabled then if exitThread and coroutine.status(exitThread) == "dead" then exitThread = coroutine.create(antiExit) coroutine.resume(exitThread) elseif not exitThread then exitThread = coroutine.create(antiExit) coroutine.resume(exitThread) end end end -- إنشاء أزرار التبديل في نافذة ANTI local y = 10 for i, feat in ipairs(antiFeatures) do local btnFrame = Instance.new("Frame") btnFrame.Size = UDim2.new(1, 0, 0, 35) btnFrame.Position = UDim2.new(0, 0, 0, y) btnFrame.BackgroundTransparency = 1 btnFrame.Parent = antiContent local label = Instance.new("TextLabel") label.Size = UDim2.new(0.6, 0, 1, 0) label.Text = feat.name label.TextColor3 = Color3.new(1, 1, 1) label.TextXAlignment = Enum.TextXAlignment.Left label.Font = Enum.Font.Gotham label.TextSize = 13 label.BackgroundTransparency = 1 label.Parent = btnFrame local toggle = Instance.new("TextButton") toggle.Size = UDim2.new(0, 50, 0, 28) toggle.Position = UDim2.new(1, -55, 0, 3) toggle.Text = "ON" toggle.TextColor3 = Color3.new(1, 1, 1) toggle.BackgroundColor3 = Color3.fromRGB(50, 200, 50) toggle.Font = Enum.Font.GothamBold toggle.TextSize = 12 toggle.Parent = btnFrame local state = feat.enabled toggle.MouseButton1Click:Connect(function() state = not state toggle.Text = state and "ON" or "OFF" toggle.BackgroundColor3 = state and Color3.fromRGB(50, 200, 50) or Color3.fromRGB(200, 50, 50) feat.enabled = state -- إعادة تشغيل الخيوط إذا لزم الأمر if feat.name == "Anti‑AFK" then if state then if not afkThread or coroutine.status(afkThread) == "dead" then afkThread = coroutine.create(antiAFK) coroutine.resume(afkThread) end end elseif feat.name == "Anti‑Fling" then if state then if not flingThread or coroutine.status(flingThread) == "dead" then flingThread = coroutine.create(antiFling) coroutine.resume(flingThread) end end elseif feat.name == "Anti‑Exit" then if state then if not exitThread or coroutine.status(exitThread) == "dead" then exitThread = coroutine.create(antiExit) coroutine.resume(exitThread) end end end end) y = y + 40 end -- بدء الخيوط الأساسية startAntiThreads() -- إغلاق النافذة يوقف الوظائف؟ (المطلوب: ضغط × ينشال السكربت فقط للنافذة) -- هنا نربط الزر الأحمر بإزالة النافذة و إيقاف الوظائف المرتبطة بها antiClose.MouseButton1Click:Connect(function() antiWin:Destroy() -- إيقاف كل خيوط ANTI antiFeatures[1].enabled = false antiFeatures[2].enabled = false antiFeatures[4].enabled = false -- الخيوط ستتوقف لأن شرط while يعتمد على enabled end) -- ------------------- نافذة SMLA (التتبع) ------------------- local smlaWin, smlaContent, smlaClose = createMiniWindow("ORCA SMLA", 350, 100, 300, 280) -- تصميم داخلي local inputBox = Instance.new("TextBox") inputBox.Size = UDim2.new(1, -10, 0, 35) inputBox.Position = UDim2.new(0, 5, 0, 10) inputBox.PlaceholderText = "اكتب اسم اللاعب (كامل أو جزء)" inputBox.Text = "" inputBox.TextColor3 = Color3.new(1, 1, 1) inputBox.BackgroundColor3 = Color3.fromRGB(40, 40, 50) inputBox.Font = Enum.Font.Gotham inputBox.TextSize = 14 inputBox.Parent = smlaContent local inputCorner = Instance.new("UICorner") inputCorner.CornerRadius = UDim.new(0, 4) inputCorner.Parent = inputBox local trackBtn = Instance.new("TextButton") trackBtn.Size = UDim2.new(1, -10, 0, 35) trackBtn.Position = UDim2.new(0, 5, 0, 55) trackBtn.Text = "ابدأ التتبع" trackBtn.TextColor3 = Color3.new(1, 1, 1) trackBtn.BackgroundColor3 = Color3.fromRGB(60, 100, 200) trackBtn.Font = Enum.Font.GothamBold trackBtn.TextSize = 14 trackBtn.Parent = smlaContent local btnCorner = Instance.new("UICorner") btnCorner.CornerRadius = UDim.new(0, 4) btnCorner.Parent = trackBtn local resultLabel = Instance.new("TextLabel") resultLabel.Size = UDim2.new(1, -10, 0, 150) resultLabel.Position = UDim2.new(0, 5, 0, 100) resultLabel.Text = "لا يوجد تتبع حالياً" resultLabel.TextColor3 = Color3.new(1, 1, 1) resultLabel.TextWrapped = true resultLabel.Font = Enum.Font.Gotham resultLabel.TextSize = 13 resultLabel.BackgroundTransparency = 1 resultLabel.Parent = smlaContent -- منطق التتبع local trackedPlayer = nil local targetPattern = nil local leaveCount = 0 local joinTime = nil local totalTime = 0 local tracking = false local function updateDisplay() if tracking and trackedPlayer then local currentTime = totalTime if joinTime then currentTime = totalTime + (os.time() - joinTime) end resultLabel.Text = string.format("يتعقب: %s\nعدد مرات الخروج: %d\nالوقت الكلي في السيرفر: %.0f ثانية", trackedPlayer.Name, leaveCount, currentTime) else resultLabel.Text = "لا يوجد تتبع حالياً.\nأدخل اسم اللاعب واضغط ابدأ التتبع." end end local function findPlayerByPattern(pattern) pattern = pattern:lower() for _, p in pairs(game.Players:GetPlayers()) do if p.Name:lower():find(pattern, 1, true) then return p end end return nil end local function startTracking(pattern) targetPattern = pattern trackedPlayer = findPlayerByPattern(pattern) if trackedPlayer then tracking = true leaveCount = 0 totalTime = 0 joinTime = os.time() updateDisplay() else tracking = false trackedPlayer = nil updateDisplay() end end trackBtn.MouseButton1Click:Connect(function() local pattern = inputBox.Text if pattern and pattern ~= "" then startTracking(pattern) end end) -- مراقبة الخروج والدخول game.Players.PlayerRemoving:Connect(function(p) if tracking and p == trackedPlayer then leaveCount = leaveCount + 1 if joinTime then totalTime = totalTime + (os.time() - joinTime) joinTime = nil end trackedPlayer = nil updateDisplay() -- محاولة إعادة التتبع إذا كان الاسم لا يزال مطابقاً (قد يكون عاد بنفس الاسم) local newTarget = findPlayerByPattern(targetPattern) if newTarget then trackedPlayer = newTarget joinTime = os.time() updateDisplay() else tracking = false updateDisplay() end end end) game.Players.PlayerAdded:Connect(function(p) if tracking and not trackedPlayer and targetPattern then if p.Name:lower():find(targetPattern, 1, true) then trackedPlayer = p joinTime = os.time() updateDisplay() end end end) -- تحديث الوقت بشكل مستمر run.RenderStepped:Connect(function() if tracking and trackedPlayer and joinTime then updateDisplay() end end) -- زر إغلاق نافذة SMLA: يزيل النافذة ويوقف التتبع smlaClose.MouseButton1Click:Connect(function() smlaWin:Destroy() tracking = false trackedPlayer = nil end) print("ORCAhub v5.0 – الشغل الحقيقي. استمتع.")