-- ============================================================================= -- T-800 DYNAMIC VISION EXACT REPLICA (Arceus X NEO) -- Sürekli akan veriler, pusula ve 3D Vücut Izgarası (Wireframe) içerir. -- ============================================================================= local Players = game:GetService("Players") local LocalPlayer = Players.LocalPlayer local Mouse = LocalPlayer:GetMouse() local RunService = game:GetService("RunService") local CoreGui = game:GetService("CoreGui") local Lighting = game:GetService("Lighting") local Camera = workspace.CurrentCamera -- 1. ESKİ SİSTEMLERİ TEMİZLE if CoreGui:FindFirstChild("T800_DynamicVision") then CoreGui.T800_DynamicVision:Destroy() end if Lighting:FindFirstChild("T800_Color") then Lighting.T800_Color:Destroy() end -- 2. KIRMIZI VİZYON FİLTRESİ local cc = Instance.new("ColorCorrectionEffect") cc.Name = "T800_Color" cc.TintColor = Color3.fromRGB(255, 30, 30) cc.Brightness = 0.1 cc.Contrast = 0.6 cc.Saturation = -0.5 cc.Parent = Lighting local screenGui = Instance.new("ScreenGui") screenGui.Name = "T800_DynamicVision" screenGui.IgnoreGuiInset = true screenGui.Parent = CoreGui -- Kırmızı Ekran Katmanı local redTint = Instance.new("Frame", screenGui) redTint.Size = UDim2.new(1, 0, 1, 0) redTint.BackgroundColor3 = Color3.fromRGB(200, 0, 0) redTint.BackgroundTransparency = 0.85 redTint.BorderSizePixel = 0 -- 3. HAREKETLİ ARAYÜZ (GUI) ELEMANLARI local function createText(pos, size, align, sizeText) local l = Instance.new("TextLabel", screenGui) l.BackgroundTransparency = 1 l.Position = pos l.Size = size l.TextColor3 = Color3.fromRGB(255, 200, 200) l.Font = Enum.Font.Code l.TextXAlignment = align l.TextYAlignment = Enum.TextYAlignment.Top l.TextSize = sizeText or 12 l.TextStrokeTransparency = 0.8 return l end -- Sol Üst Hızlı Akan Kodlar local leftStream = createText(UDim2.new(0.02, 0, 0.1, 0), UDim2.new(0.15, 0, 0.6, 0), Enum.TextXAlignment.Left) -- Sağ Üst Hafıza Adresleri local rightStream = createText(UDim2.new(0.83, 0, 0.1, 0), UDim2.new(0.15, 0, 0.6, 0), Enum.TextXAlignment.Right) -- Sol Alt Sabit/Değişken Veri local bottomStream = createText(UDim2.new(0.25, 0, 0.8, 0), UDim2.new(0.3, 0, 0.15, 0), Enum.TextXAlignment.Left) -- Ortada Hedef Bilgisi (Sadece kilitlenince çıkar) local centerAlert = createText(UDim2.new(0.3, 0, 0.6, 0), UDim2.new(0.4, 0, 0.1, 0), Enum.TextXAlignment.Center, 20) centerAlert.TextColor3 = Color3.new(1, 1, 1) -- Pusula (Orta Sol) local compassLabel = createText(UDim2.new(0.05, 0, 0.5, 0), UDim2.new(0.1, 0, 0.1, 0), Enum.TextXAlignment.Center, 14) -- 4. DİNAMİK YAZI VE PUSULA DÖNGÜSÜ local function generateHex() local chars = "0123456789ABCDEF" local result = "" for i = 1, 4 do local r = math.random(1, 16) result = result .. string.sub(chars, r, r) end return result end RunService.RenderStepped:Connect(function() -- Sol Taraf Akan Yazılar (Assembly kodu taklidi) local lText = "" for i = 1, 15 do lText = lText .. math.random(100, 199) .. " " .. generateHex() .. " " .. generateHex() .. "\n" end leftStream.Text = lText -- Sağ Taraf Akan Yazılar (Adres Taklidi) local rText = "KEY PERFECT 4 0\nRUN ON\nOVLY OBJ\n---------------\nCODE ADDR#\n" for i = 1, 10 do rText = rText .. generateHex() .. " " .. generateHex() .. "F\n" end rightStream.Text = rText -- Sol Alt Sistem Verileri bottomStream.Text = "29 SLOTA EQU $"..string.format("%02X", math.random(0, 255)).." :ADDRESS ADDER (SLOT# * 16)\n" .. "30 SLOT EQU $"..string.format("%02X", math.random(0, 255)).." :<<< POKE RAMCARD SLOT#\n" .. "31 BANK EQU $"..string.format("%02X", math.random(0, 255)).." :<<< POKE 16K RAM BANK\n" .. "32 COUNT EQU $"..string.format("%02X", math.random(0, 255)).." :HIBYTE # OF POINTS" -- Gerçek Zamanlı Pusula (Kamera yönüne göre hesaplanır) local look = Camera.CFrame.LookVector local heading = math.atan2(look.X, look.Z) local degrees = math.floor(math.deg(heading)) + 180 compassLabel.Text = "NW N NE\n \\ | /\n -- " .. string.format("%03d", degrees) .. " --\n / | \\\nSW S SE" end) -- 5. CANLI VÜCUT TARAMASI VE IZGARA (WIREFRAME) SİSTEMİ local currentTarget = nil local scanBoxes = {} local targetStatsBill = nil local function clearScan() for _, box in pairs(scanBoxes) do box:Destroy() end scanBoxes = {} if targetStatsBill then targetStatsBill:Destroy() end centerAlert.Text = "" end -- Mouse ile bir oyuncuya bakıldığını algılama (RenderStepped ile anlık) RunService.RenderStepped:Connect(function() local target = Mouse.Target local newTarget = nil if target and target.Parent and target.Parent:FindFirstChild("Humanoid") then local plr = Players:GetPlayerFromCharacter(target.Parent) if plr and plr ~= LocalPlayer then newTarget = target.Parent end end -- Yeni bir hedefe bakılıyorsa taramayı başlat if newTarget ~= currentTarget then clearScan() currentTarget = newTarget if currentTarget then -- Vücudun her parçasına 3D ızgara (Wireframe) ekle for _, part in pairs(currentTarget:GetChildren()) do if part:IsA("BasePart") and part.Name ~= "HumanoidRootPart" then local box = Instance.new("SelectionBox") box.Adornee = part box.LineThickness = 0.03 box.Color3 = Color3.new(1, 1, 1) -- Beyaz ızgara box.SurfaceTransparency = 0.8 box.SurfaceColor3 = Color3.new(1, 0, 0) box.Parent = CoreGui table.insert(scanBoxes, box) end end -- Hedefin yanına analiz paneli (BillboardGui) ekle targetStatsBill = Instance.new("BillboardGui", currentTarget:WaitForChild("Head")) targetStatsBill.Size = UDim2.new(0, 200, 0, 150) targetStatsBill.ExtentsOffset = Vector3.new(3, 0, 0) -- Sağ tarafta dursun targetStatsBill.AlwaysOnTop = true local statsText = Instance.new("TextLabel", targetStatsBill) statsText.Size = UDim2.new(1, 0, 1, 0) statsText.BackgroundTransparency = 1 statsText.TextColor3 = Color3.new(1, 1, 1) statsText.Font = Enum.Font.Code statsText.TextSize = 14 statsText.TextXAlignment = Enum.TextXAlignment.Left -- Hesaplama taklidi (sayılar sürekli değişir) spawn(function() local lockTimer = 0 while currentTarget == newTarget and lockTimer < 30 do -- Yaklaşık 1 saniye tarama statsText.Text = "CRITERIA:\n" .. "HGHT " .. math.random(100000, 999999) .. " " .. math.random(100, 999) .. "\n" .. "WGHT " .. math.random(100000, 999999) .. " " .. math.random(100, 999) .. "\n" .. "NECK " .. math.random(100000, 999999) .. " " .. math.random(100, 999) .. "\n" .. "SHLD " .. math.random(100000, 999999) .. " " .. math.random(100, 999) .. "\n" .. "BACK " .. math.random(100000, 999999) .. " " .. math.random(100, 999) centerAlert.Text = "ASSESSING PROBABILITY...\nSCAN MODE 43894" task.wait(0.05) lockTimer = lockTimer + 1 end -- Tarama bitince kilitlenir ve sayılar sabitlenir if currentTarget == newTarget then centerAlert.Text = "MATCH PROBABILITY .99\nIDENT POSITIVE: " .. string.upper(currentTarget.Name) statsText.TextColor3 = Color3.new(1, 0, 0) -- Kırmızıya döner end end) end end -- Mouse hiçbir şeye bakmıyorsa temizle if not newTarget and currentTarget then clearScan() currentTarget = nil end end) print("CYBERDYNE SYSTEMS MODEL 101 VISION INITIALIZED.")