
KeylessUniversal

-- =============================================================================
-- 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.")No comments yet for this script.

![[KEYLESS] Moondiety Script | 17+ supported Games](https://scriptblox.com/images/sb/0-1753093706828.png)

